From a5c9250524403a4e90724ef5cf4ae88181e7f770 Mon Sep 17 00:00:00 2001 From: Edwin Brady Date: Sat, 4 Jul 2020 22:10:44 +0100 Subject: [PATCH] Update bootstrap scheme This is needed because the existing version won't build the Prelude correctly as it doesn't do import...as correctly. I don't believe this affects Idris2-boot, since it has its own Prelude. --- bootstrap/idris2_app/idris2.rkt | 9994 ++++++++++++++++--------------- bootstrap/idris2_app/idris2.ss | 9958 +++++++++++++++--------------- 2 files changed, 10056 insertions(+), 9896 deletions(-) diff --git a/bootstrap/idris2_app/idris2.rkt b/bootstrap/idris2_app/idris2.rkt index decdfd626..1e469dd95 100755 --- a/bootstrap/idris2_app/idris2.rkt +++ b/bootstrap/idris2_app/idris2.rkt @@ -424,72 +424,77 @@ (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--15257-10523 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-coreRun 'erased 'erased (lambda (eta-1) (Driver-Idris-stMain arg-0 arg-1 eta-1)) (lambda (err) (lambda (eta-1) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-24 (arg-3664 eta-2))) ((arg-3665 act-24) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err))) eta-1))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-25 (arg-3664 eta-2))) ((arg-3665 act-25) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-1)))) (lambda (res) (lambda (eta-1) (vector 0 ))) eta-0))) (else (lambda (eta-0) (vector 0 ))))))) -(define Driver-Idris-case--15246-10509 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Driver-Idris-quitOpts e-2) eta-0))) (let ((sc1 act-24)) (cond ((equal? sc1 0) (Core-Core-coreRun 'erased 'erased (lambda (eta-1) (Driver-Idris-stMain arg-0 e-2 eta-1)) (lambda (err) (lambda (eta-1) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-25 (arg-3664 eta-2))) ((arg-3665 act-25) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err))) eta-1))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-26 (arg-3664 eta-2))) ((arg-3665 act-26) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-1)))) (lambda (res) (lambda (eta-1) (vector 0 ))) eta-0)) (else (vector 0 )))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-5) eta-0))) ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (CommandLine-Idris-usage)) eta-0))))))))) -(define Driver-Idris-case--13293-10407 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 arg-5 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) -(define Driver-Idris-case--13590-10201 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-26)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Context-Core-logTime 'erased arg-6 (lambda () "Loading prelude") (let ((sc1 (Prelude-not (let ((sc2 arg-24)) (let ((e-0 (vector-ref sc2 1))) e-0))))) (cond ((equal? sc1 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-6 arg-21 arg-7 0 eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-logTime 'erased arg-6 (lambda () "Loading main file") (lambda (eta-1) (let ((act-24 (REPL-Idris-loadMainFile arg-6 arg-21 arg-7 arg-22 arg-16 e-2 eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-displayErrors arg-6 arg-21 arg-7 arg-22 arg-16 e-5) eta-1))))))) eta-0)))))))) -(define Driver-Idris-case--13955-10054 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32) (let ((sc0 arg-32)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-24)))))))) -(define Driver-Idris-case--14302-9749 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32) (let ((sc0 arg-32)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-25))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setOutput arg-16 (vector 0 0 e-5 e-5) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (REPL-IDEMode-Idris-replIDE arg-6 arg-21 arg-7 arg-22 arg-16 eta-0)))))))))))) -(define Driver-Idris-case--14138-9673 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30) (let ((sc0 arg-30)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (REPL-IDEMode-Idris-initIDESocketFile e-2 e-3 eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-4) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((act-26 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-26)))))))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (REPLOpts-Idris-setOutput arg-16 (vector 0 0 e-6 e-6) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (REPL-IDEMode-Idris-replIDE arg-6 arg-21 arg-7 arg-22 arg-16 eta-0)))))))))))))))))))) -(define Driver-Idris-case--14045-9537 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30) (let ((sc0 arg-30)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setOutput arg-16 (vector 0 0 (File-System-stdin) (File-System-stdout)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (REPL-IDEMode-Idris-replIDE arg-6 arg-21 arg-7 arg-22 arg-16 eta-0))))))) (else (Driver-Idris-case--14138-9673 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 (CommandLine-Idris-ideSocketModeAddress arg-0))))))) -(define Driver-Idris-case--13955-9473 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30) (let ((sc0 arg-30)) (cond ((equal? sc0 0) (Driver-Idris-case--14045-9537 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 (Prelude-not arg-13))) (else (lambda (eta-0) (let ((act-24 (REPL-Idris-repl arg-6 arg-21 arg-7 arg-22 arg-16 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Context-Core-showTimeRecord arg-6 eta-0))))))))))) -(define Driver-Idris-case--13590-9412 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-29)) (cond ((equal? sc0 0) (let ((doRepl 0)) (Driver-Idris-case--13955-9473 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 doRepl (Prelude-C-124C-124 arg-12 (lambda () arg-13))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-16))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-showTimeRecord arg-6 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((doRepl 1)) ((Driver-Idris-case--13955-10054 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 doRepl e-5 e-6 (let ((sc3 e-5)) (let ((e-10 (vector-ref sc3 6))) e-10))) eta-0)))))))))))))))))) -(define Driver-Idris-case--13590-9300 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (lambda (eta-0) (Package-Idris-findIpkg arg-6 arg-16 arg-15 eta-0))) (else (lambda (eta-0) (vector 1 arg-15))))))) -(define Driver-Idris-case--13590-9240 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 e-2 " "))))) -(define Driver-Idris-case--13486-9110 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((sc1 (Driver-Idris-checkVerbose arg-0))) (cond ((equal? sc1 0) (REPLOpts-Idris-setOutput arg-16 (vector 1 1) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Driver-Idris-updateREPLOpts arg-16 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-getSession arg-6 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (let ((sc6 (Prelude-not (let ((sc7 e-9)) (let ((e-1 (vector-ref sc7 2))) e-1))))) (cond ((equal? sc6 0) (let ((act-29 (REPLCommon-Idris-iputStrLn arg-16 (Driver-Idris-banner) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((sc8 (List-Data-isCons 'erased arg-1))) (cond ((equal? sc8 0) (REPLCommon-Idris-iputStrLn arg-16 (Strings-Prelude-C-43C-43 "With codegen for: " (Strings-Data-fastAppend (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-2 (vector-ref sc9 1))) (Strings-Prelude-C-43C-43 e-2 " ")))) arg-1))) eta-0)) (else (vector 1 (vector 0 )))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((_-0 0)) ((Driver-Idris-case--13590-9300 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 _-0 e-5 e-6 e-7 e-8 e-9 e-10 (let ((sc7 e-9)) (let ((e-2 (vector-ref sc7 3))) e-2))) eta-0)))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (REPLOpts-Idris-setMainFile arg-16 e-11 eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (let ((sc9 e-11)) (case (vector-ref sc9 0) ((0) (Context-Core-logTime 'erased arg-6 (lambda () "Loading prelude") (let ((sc10 (Prelude-not (let ((sc11 e-9)) (let ((e-0 (vector-ref sc11 1))) e-0))))) (cond ((equal? sc10 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-6 e-6 arg-7 0 eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))) eta-0)) (else (let ((e-2 (vector-ref sc9 1))) (Context-Core-logTime 'erased arg-6 (lambda () "Loading main file") (lambda (eta-1) (let ((act-32 (REPL-Idris-loadMainFile arg-6 e-6 arg-7 e-7 arg-16 e-2 eta-1))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc10 1))) ((REPL-Idris-displayErrors arg-6 e-6 arg-7 e-7 arg-16 e-13) eta-1))))))) eta-0))))))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 ((SetOptions-Idris-postOptions arg-6 e-6 arg-7 e-7 arg-16 arg-0) eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc10 1))) (let ((_-0 0)) (let ((sc11 e-14)) (cond ((equal? sc11 0) (let ((doRepl 0)) ((Driver-Idris-case--13955-9473 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 doRepl (Prelude-C-124C-124 arg-12 (lambda () arg-13))) eta-0))) (else (let ((act-34 (let ((act-34 (unbox arg-16))) (vector 1 act-34)))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc12 1))) (let ((act-35 (Context-Core-showTimeRecord arg-6 eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc13 1))) (let ((doRepl 1)) ((Driver-Idris-case--13955-10054 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 doRepl e-15 e-16 (let ((sc14 e-15)) (let ((e-20 (vector-ref sc14 6))) e-20))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Driver-Idris-case--13293-9023 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 ((Package-Idris-processPackageOpts arg-6 arg-7 arg-16 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 (Prelude-not e-5))) (cond ((equal? sc2 0) (let ((act-25 ((SetOptions-Idris-preOptions arg-6 arg-16 arg-0) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((finish 1)) (let ((sc4 e-6)) (cond ((equal? sc4 0) (let ((act-26 (let ((sc5 (Driver-Idris-checkVerbose arg-0))) (cond ((equal? sc5 0) (REPLOpts-Idris-setOutput arg-16 (vector 1 1) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-28 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-29 (Driver-Idris-updateREPLOpts arg-16 eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-30 (Context-Core-getSession arg-6 eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc9 1))) (let ((act-31 (let ((sc10 (Prelude-not (let ((sc11 e-11)) (let ((e-1 (vector-ref sc11 2))) e-1))))) (cond ((equal? sc10 0) (let ((act-31 (REPLCommon-Idris-iputStrLn arg-16 (Driver-Idris-banner) eta-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((sc12 (List-Data-isCons 'erased arg-1))) (cond ((equal? sc12 0) (REPLCommon-Idris-iputStrLn arg-16 (Strings-Prelude-C-43C-43 "With codegen for: " (Strings-Data-fastAppend (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc13 lamc-0)) (let ((e-2 (vector-ref sc13 1))) (Strings-Prelude-C-43C-43 e-2 " ")))) arg-1))) eta-0)) (else (vector 1 (vector 0 )))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc10 1))) (let ((act-32 (let ((_-0 0)) ((Driver-Idris-case--13590-9300 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 e-12 (let ((sc11 e-11)) (let ((e-2 (vector-ref sc11 3))) e-2))) eta-0)))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-33 (REPLOpts-Idris-setMainFile arg-16 e-13 eta-0))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc12 1))) (let ((act-34 (let ((sc13 e-13)) (case (vector-ref sc13 0) ((0) (Context-Core-logTime 'erased arg-6 (lambda () "Loading prelude") (let ((sc14 (Prelude-not (let ((sc15 e-11)) (let ((e-0 (vector-ref sc15 1))) e-0))))) (cond ((equal? sc14 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-6 e-8 arg-7 0 eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))) eta-0)) (else (let ((e-2 (vector-ref sc13 1))) (Context-Core-logTime 'erased arg-6 (lambda () "Loading main file") (lambda (eta-1) (let ((act-34 (REPL-Idris-loadMainFile arg-6 e-8 arg-7 e-9 arg-16 e-2 eta-1))) (let ((sc14 act-34)) (case (vector-ref sc14 0) ((0) (let ((e-3 (vector-ref sc14 1))) (vector 0 e-3))) (else (let ((e-15 (vector-ref sc14 1))) ((REPL-Idris-displayErrors arg-6 e-8 arg-7 e-9 arg-16 e-15) eta-1))))))) eta-0))))))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc13 1))) (let ((act-35 ((SetOptions-Idris-postOptions arg-6 e-8 arg-7 e-9 arg-16 arg-0) eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc14 1))) (let ((_-0 0)) (let ((sc15 e-16)) (cond ((equal? sc15 0) (let ((doRepl 0)) ((Driver-Idris-case--13955-9473 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 doRepl (Prelude-C-124C-124 arg-12 (lambda () arg-13))) eta-0))) (else (let ((act-36 (let ((act-36 (unbox arg-16))) (vector 1 act-36)))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc16 1))) (let ((act-37 (Context-Core-showTimeRecord arg-6 eta-0))) (let ((sc17 act-37)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc17 1))) (let ((doRepl 1)) ((Driver-Idris-case--13955-10054 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 doRepl e-17 e-18 (let ((sc18 e-17)) (let ((e-22 (vector-ref sc18 6))) e-22))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 )))))))))))))))) -(define Driver-Idris-case--13293-8945 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) -(define Driver-Idris-case--13293-8866 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (Options-Core-addCG (vector 0 e-2 (vector 3 e-2)) arg-5))))) -(define Driver-Idris-case--13280-8844 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Context-Core-initDefs eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((updated (Prelude-foldl_Foldable__List 'erased 'erased (lambda (o) (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (Options-Core-addCG (vector 0 e-2 (vector 3 e-2)) o))))) (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)) arg-1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-26 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (vector 0 e-0 e-1 e-2 e-3 updated e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-setCG e-6 (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-1) (vector 3 (Builtin-fst 'erased 'erased eta-1)))) (List-Data-headC-39 'erased arg-1)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((InitPrimitives-Core-addPrimitives e-6) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Context-Core-setWorkingDir e-6 "." eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Driver-Idris-updateEnv e-6 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc8 ide)) (cond ((equal? sc8 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Driver-Idris-findInput arg-0))) (let ((act-31 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode arg-1) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 ((Driver-Idris-showInfo e-6 e-12 arg-0) eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (let ((_-0 1)) (let ((sc10 e-13)) (cond ((equal? sc10 0) (vector 1 (vector 0 ))) (else (let ((act-33 ((Package-Idris-processPackageOpts e-6 e-7 e-12 arg-0) eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc11 1))) (let ((sc12 (Prelude-not e-14))) (cond ((equal? sc12 0) (let ((act-34 ((SetOptions-Idris-preOptions e-6 e-12 arg-0) eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc13 1))) (let ((finish 1)) (let ((sc14 e-15)) (cond ((equal? sc14 0) (let ((act-35 (let ((sc15 (Driver-Idris-checkVerbose arg-0))) (cond ((equal? sc15 0) (REPLOpts-Idris-setOutput e-12 (vector 1 1) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc15 1))) (let ((act-36 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc16 1))) (let ((act-37 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) eta-0))) (let ((sc17 act-37)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc17 1))) (let ((act-38 (Driver-Idris-updateREPLOpts e-12 eta-0))) (let ((sc18 act-38)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc18 1))) (let ((act-39 (Context-Core-getSession e-6 eta-0))) (let ((sc19 act-39)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (vector 0 e-2))) (else (let ((e-20 (vector-ref sc19 1))) (let ((act-40 (let ((sc20 (Prelude-not (let ((sc21 e-20)) (let ((e-1 (vector-ref sc21 2))) e-1))))) (cond ((equal? sc20 0) (let ((act-40 (REPLCommon-Idris-iputStrLn e-12 (Driver-Idris-banner) eta-0))) (let ((sc21 act-40)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (vector 0 e-2))) (else (let ((sc22 (List-Data-isCons 'erased arg-1))) (cond ((equal? sc22 0) (REPLCommon-Idris-iputStrLn e-12 (Strings-Prelude-C-43C-43 "With codegen for: " (Strings-Data-fastAppend (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc23 lamc-0)) (let ((e-2 (vector-ref sc23 1))) (Strings-Prelude-C-43C-43 e-2 " ")))) arg-1))) eta-0)) (else (vector 1 (vector 0 )))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc20 act-40)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (vector 0 e-2))) (else (let ((e-21 (vector-ref sc20 1))) (let ((act-41 (let ((_-1 0)) ((Driver-Idris-case--13590-9300 arg-0 arg-1 arg-2 _-0 e-5 updated e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 e-21 (let ((sc21 e-20)) (let ((e-2 (vector-ref sc21 3))) e-2))) eta-0)))) (let ((sc21 act-41)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (vector 0 e-2))) (else (let ((e-22 (vector-ref sc21 1))) (let ((act-42 (REPLOpts-Idris-setMainFile e-12 e-22 eta-0))) (let ((sc22 act-42)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (vector 0 e-2))) (else (let ((e-23 (vector-ref sc22 1))) (let ((act-43 (let ((sc23 e-22)) (case (vector-ref sc23 0) ((0) (Context-Core-logTime 'erased e-6 (lambda () "Loading prelude") (let ((sc24 (Prelude-not (let ((sc25 e-20)) (let ((e-0 (vector-ref sc25 1))) e-0))))) (cond ((equal? sc24 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude e-6 e-17 e-7 0 eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))) eta-0)) (else (let ((e-2 (vector-ref sc23 1))) (Context-Core-logTime 'erased e-6 (lambda () "Loading main file") (lambda (eta-1) (let ((act-43 (REPL-Idris-loadMainFile e-6 e-17 e-7 e-18 e-12 e-2 eta-1))) (let ((sc24 act-43)) (case (vector-ref sc24 0) ((0) (let ((e-3 (vector-ref sc24 1))) (vector 0 e-3))) (else (let ((e-24 (vector-ref sc24 1))) ((REPL-Idris-displayErrors e-6 e-17 e-7 e-18 e-12 e-24) eta-1))))))) eta-0))))))) (let ((sc23 act-43)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (vector 0 e-2))) (else (let ((e-24 (vector-ref sc23 1))) (let ((act-44 ((SetOptions-Idris-postOptions e-6 e-17 e-7 e-18 e-12 arg-0) eta-0))) (let ((sc24 act-44)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (vector 0 e-2))) (else (let ((e-25 (vector-ref sc24 1))) (let ((_-1 0)) (let ((sc25 e-25)) (cond ((equal? sc25 0) (let ((doRepl 0)) ((Driver-Idris-case--13955-9473 arg-0 arg-1 arg-2 _-0 e-5 updated e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) eta-0))) (else (let ((act-45 (let ((act-45 (unbox e-12))) (vector 1 act-45)))) (let ((sc26 act-45)) (case (vector-ref sc26 0) ((0) (let ((e-2 (vector-ref sc26 1))) (vector 0 e-2))) (else (let ((e-26 (vector-ref sc26 1))) (let ((act-46 (Context-Core-showTimeRecord e-6 eta-0))) (let ((sc27 act-46)) (case (vector-ref sc27 0) ((0) (let ((e-2 (vector-ref sc27 1))) (vector 0 e-2))) (else (let ((e-27 (vector-ref sc27 1))) (let ((doRepl 1)) ((Driver-Idris-case--13955-10054 arg-0 arg-1 arg-2 _-0 e-5 updated e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 doRepl e-26 e-27 (let ((sc28 e-26)) (let ((e-31 (vector-ref sc28 6))) e-31))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Driver-Idris-case--13272-8833 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 ((Driver-Idris-tryTTM arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 1)) (let ((sc2 e-5)) (cond ((equal? sc2 1) (let ((act-25 (Context-Core-initDefs eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((updated (Prelude-foldl_Foldable__List 'erased 'erased (lambda (o) (lambda (lamc-0) (let ((sc4 lamc-0)) (let ((e-2 (vector-ref sc4 1))) (Options-Core-addCG (vector 0 e-2 (vector 3 e-2)) o))))) (let ((sc4 e-6)) (let ((e-4 (vector-ref sc4 5))) e-4)) arg-1))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-27 (vector-ref sc4 6))) (let ((e-26 (vector-ref sc4 7))) (let ((e-7 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (let ((e-21 (vector-ref sc4 22))) (let ((e-22 (vector-ref sc4 23))) (let ((e-23 (vector-ref sc4 24))) (let ((e-24 (vector-ref sc4 25))) (let ((e-25 (vector-ref sc4 26))) (vector 0 e-0 e-1 e-2 e-3 updated e-27 e-26 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (Context-Core-setCG e-7 (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-1) (vector 3 (Builtin-fst 'erased 'erased eta-1)))) (List-Data-headC-39 'erased arg-1)) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 ((InitPrimitives-Core-addPrimitives e-7) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 (Context-Core-setWorkingDir e-7 "." eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-31 (Driver-Idris-updateEnv e-7 eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc9 1))) (let ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc10 ide)) (cond ((equal? sc10 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Driver-Idris-findInput arg-0))) (let ((act-32 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode arg-1) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-33 ((Driver-Idris-showInfo e-7 e-13 arg-0) eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc11 1))) (let ((_-1 1)) (let ((sc12 e-14)) (cond ((equal? sc12 0) (vector 1 (vector 0 ))) (else (let ((act-34 ((Package-Idris-processPackageOpts e-7 e-8 e-13 arg-0) eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc13 1))) (let ((sc14 (Prelude-not e-15))) (cond ((equal? sc14 0) (let ((act-35 ((SetOptions-Idris-preOptions e-7 e-13 arg-0) eta-0))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc15 1))) (let ((finish 1)) (let ((sc16 e-16)) (cond ((equal? sc16 0) (let ((act-36 (let ((sc17 (Driver-Idris-checkVerbose arg-0))) (cond ((equal? sc17 0) (REPLOpts-Idris-setOutput e-13 (vector 1 1) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc17 act-36)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc17 1))) (let ((act-37 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc18 act-37)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc18 1))) (let ((act-38 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) eta-0))) (let ((sc19 act-38)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc19 1))) (let ((act-39 (Driver-Idris-updateREPLOpts e-13 eta-0))) (let ((sc20 act-39)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (vector 0 e-2))) (else (let ((e-20 (vector-ref sc20 1))) (let ((act-40 (Context-Core-getSession e-7 eta-0))) (let ((sc21 act-40)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (vector 0 e-2))) (else (let ((e-21 (vector-ref sc21 1))) (let ((act-41 (let ((sc22 (Prelude-not (let ((sc23 e-21)) (let ((e-1 (vector-ref sc23 2))) e-1))))) (cond ((equal? sc22 0) (let ((act-41 (REPLCommon-Idris-iputStrLn e-13 (Driver-Idris-banner) eta-0))) (let ((sc23 act-41)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (vector 0 e-2))) (else (let ((sc24 (List-Data-isCons 'erased arg-1))) (cond ((equal? sc24 0) (REPLCommon-Idris-iputStrLn e-13 (Strings-Prelude-C-43C-43 "With codegen for: " (Strings-Data-fastAppend (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc25 lamc-0)) (let ((e-2 (vector-ref sc25 1))) (Strings-Prelude-C-43C-43 e-2 " ")))) arg-1))) eta-0)) (else (vector 1 (vector 0 )))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc22 act-41)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (vector 0 e-2))) (else (let ((e-22 (vector-ref sc22 1))) (let ((act-42 (let ((_-2 0)) ((Driver-Idris-case--13590-9300 arg-0 arg-1 _-0 _-1 e-6 updated e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 e-22 (let ((sc23 e-21)) (let ((e-2 (vector-ref sc23 3))) e-2))) eta-0)))) (let ((sc23 act-42)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (vector 0 e-2))) (else (let ((e-23 (vector-ref sc23 1))) (let ((act-43 (REPLOpts-Idris-setMainFile e-13 e-23 eta-0))) (let ((sc24 act-43)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (vector 0 e-2))) (else (let ((e-24 (vector-ref sc24 1))) (let ((act-44 (let ((sc25 e-23)) (case (vector-ref sc25 0) ((0) (Context-Core-logTime 'erased e-7 (lambda () "Loading prelude") (let ((sc26 (Prelude-not (let ((sc27 e-21)) (let ((e-0 (vector-ref sc27 1))) e-0))))) (cond ((equal? sc26 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude e-7 e-18 e-8 0 eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))) eta-0)) (else (let ((e-2 (vector-ref sc25 1))) (Context-Core-logTime 'erased e-7 (lambda () "Loading main file") (lambda (eta-1) (let ((act-44 (REPL-Idris-loadMainFile e-7 e-18 e-8 e-19 e-13 e-2 eta-1))) (let ((sc26 act-44)) (case (vector-ref sc26 0) ((0) (let ((e-3 (vector-ref sc26 1))) (vector 0 e-3))) (else (let ((e-25 (vector-ref sc26 1))) ((REPL-Idris-displayErrors e-7 e-18 e-8 e-19 e-13 e-25) eta-1))))))) eta-0))))))) (let ((sc25 act-44)) (case (vector-ref sc25 0) ((0) (let ((e-2 (vector-ref sc25 1))) (vector 0 e-2))) (else (let ((e-25 (vector-ref sc25 1))) (let ((act-45 ((SetOptions-Idris-postOptions e-7 e-18 e-8 e-19 e-13 arg-0) eta-0))) (let ((sc26 act-45)) (case (vector-ref sc26 0) ((0) (let ((e-2 (vector-ref sc26 1))) (vector 0 e-2))) (else (let ((e-26 (vector-ref sc26 1))) (let ((_-2 0)) (let ((sc27 e-26)) (cond ((equal? sc27 0) (let ((doRepl 0)) ((Driver-Idris-case--13955-9473 arg-0 arg-1 _-0 _-1 e-6 updated e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) eta-0))) (else (let ((act-46 (let ((act-46 (unbox e-13))) (vector 1 act-46)))) (let ((sc28 act-46)) (case (vector-ref sc28 0) ((0) (let ((e-2 (vector-ref sc28 1))) (vector 0 e-2))) (else (let ((e-27 (vector-ref sc28 1))) (let ((act-47 (Context-Core-showTimeRecord e-7 eta-0))) (let ((sc29 act-47)) (case (vector-ref sc29 0) ((0) (let ((e-2 (vector-ref sc29 1))) (vector 0 e-2))) (else (let ((e-28 (vector-ref sc29 1))) (let ((doRepl 1)) ((Driver-Idris-case--13955-10054 arg-0 arg-1 _-0 _-1 e-6 updated e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 doRepl e-27 e-28 (let ((sc30 e-27)) (let ((e-32 (vector-ref sc30 6))) e-32))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 ))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Driver-Idris-case--13120-8712 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 arg-2 e-5 e-6 e-7 e-8)))))))))))) -(define Driver-Idris-case--13098-8687 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (set-box! arg-0 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (vector 0 e-0 e-9 e-2 e-3 e-1 e-5 e-6 e-7 e-8))))))))))))) (vector 1 act-24))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Driver-Idris-case--12561-8651 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setPrefix arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Context-Core-setPrefix arg-0 (IdrisPaths-yprefix) eta-0))))))) -(define Driver-Idris-case--12561-8611 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addExtraDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-5) (Prelude-C-61C-61_Eq__Char arg-5 (Path-Utils-pathSeparator))) e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Driver-Idris-case--12561-8563 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addDataDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-7) (Prelude-C-61C-61_Eq__Char arg-7 (Path-Utils-pathSeparator))) e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Driver-Idris-case--12561-8507 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addLibDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-9) (Prelude-C-61C-61_Eq__Char arg-9 (Path-Utils-pathSeparator))) e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Driver-Idris-case--12783-8419 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setCG arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Unknown code generator " (Prelude-show_Show__String arg-10))) eta-0))))))) -(define Driver-Idris-case--12561-8392 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((cg (vector 1 e-1))) (Driver-Idris-case--12783-8419 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 cg (Options-Core-getCG (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)) e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Driver-Idris-case--12561-8313 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-addLibDir arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0))))))) -(define Driver-Idris-updateREPLOpts (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "EDITOR") ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (set-box! arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-10 (vector-ref sc3 6))) (let ((e-9 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (vector 0 e-0 e-11 e-2 e-3 e-1 e-10 e-9 e-7 e-8))))))))))))) (vector 1 act-26)))) (else (vector 1 (vector 0 ))))))))))))))))) -(define Driver-Idris-updateEnv (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "IDRIS2_PREFIX") ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (Context-Core-setPrefix arg-0 e-1 ext-0))) (else (Context-Core-setPrefix arg-0 (IdrisPaths-yprefix) ext-0)))))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-27 (arg-3664 eta-0))) ((arg-3665 act-27) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "IDRIS2_PATH") ext-0))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addExtraDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 (Path-Utils-pathSeparator))) e-1))) ext-0))) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (let ((act-29 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-29 (arg-3664 eta-0))) ((arg-3665 act-29) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "IDRIS2_DATA") ext-0))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (let ((sc6 e-10)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addDataDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 (Path-Utils-pathSeparator))) e-1))) ext-0))) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (let ((act-31 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-31 (arg-3664 eta-0))) ((arg-3665 act-31) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "IDRIS2_LIBS") ext-0))) (vector 1 act-31)))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 (let ((sc8 e-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addLibDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 (Path-Utils-pathSeparator))) e-1))) ext-0))) (else (vector 1 (vector 0 ))))))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-33 (let ((act-33 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-33 (arg-3664 eta-0))) ((arg-3665 act-33) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "IDRIS2_CG") ext-0))) (vector 1 act-33)))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-34 (let ((sc10 e-14)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((cg (vector 1 e-1))) ((Driver-Idris-case--12783-8419 arg-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-1 cg (Options-Core-getCG (let ((sc11 e-5)) (let ((e-4 (vector-ref sc11 5))) e-4)) e-1)) ext-0)))) (else (vector 1 (vector 0 ))))))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-35 (let ((act-35 (unbox arg-0))) (vector 1 act-35)))) (let ((sc11 act-35)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-36 (SetOptions-Idris-addPkgDir arg-0 "prelude" ext-0))) (let ((sc12 act-36)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((act-37 (SetOptions-Idris-addPkgDir arg-0 "base" ext-0))) (let ((sc13 act-37)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((act-38 (Context-Core-addDataDir arg-0 (Path-Utils-C-60C-47C-62 (let ((sc14 (let ((sc15 (let ((sc16 e-16)) (let ((e-4 (vector-ref sc16 5))) e-4)))) (let ((e-0 (vector-ref sc15 1))) e-0)))) (let ((e-4 (vector-ref sc14 5))) e-4)) (Path-Utils-C-60C-47C-62 (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))) "support")) ext-0))) (let ((sc14 act-38)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((act-39 (Context-Core-addLibDir arg-0 (Path-Utils-C-60C-47C-62 (let ((sc15 (let ((sc16 (let ((sc17 e-16)) (let ((e-4 (vector-ref sc17 5))) e-4)))) (let ((e-0 (vector-ref sc16 1))) e-0)))) (let ((e-4 (vector-ref sc15 5))) e-4)) (Path-Utils-C-60C-47C-62 (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))) "lib")) ext-0))) (let ((sc15 act-39)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((act-40 (let ((act-40 ((Directory-System-currentDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-40 (arg-3664 eta-0))) ((arg-3665 act-40) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341)))) ext-0))) (vector 1 act-40)))) (let ((sc16 act-40)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-21 (vector-ref sc16 1))) (let ((sc17 e-21)) (case (vector-ref sc17 0) ((1) (let ((e-1 (vector-ref sc17 1))) (Context-Core-addLibDir arg-0 e-1 ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Driver-Idris-tryYaffle (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((20) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Main-Yaffle-yaffleMain e-4 (vector 0 ) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (vector 1 0))))))))(else (Driver-Idris-tryYaffle e-3))))))))))) -(define Driver-Idris-tryTTM (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((21) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Metadata-Core-dumpTTM e-4 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (vector 1 0))))))))(else (Driver-Idris-tryTTM e-3))))))))))) -(define Driver-Idris-stMain (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Driver-Idris-tryYaffle arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 1) (let ((act-25 ((Driver-Idris-tryTTM arg-1) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((_-0 1)) (let ((sc3 e-6)) (cond ((equal? sc3 1) (let ((act-26 (Context-Core-initDefs ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((updated (Prelude-foldl_Foldable__List 'erased 'erased (lambda (o) (lambda (lamc-0) (let ((sc5 lamc-0)) (let ((e-2 (vector-ref sc5 1))) (Options-Core-addCG (vector 0 e-2 (vector 3 e-2)) o))))) (let ((sc5 e-7)) (let ((e-4 (vector-ref sc5 5))) e-4)) arg-0))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) (let ((sc5 e-7)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-28 (vector-ref sc5 6))) (let ((e-27 (vector-ref sc5 7))) (let ((e-26 (vector-ref sc5 8))) (let ((e-8 (vector-ref sc5 9))) (let ((e-9 (vector-ref sc5 10))) (let ((e-10 (vector-ref sc5 11))) (let ((e-11 (vector-ref sc5 12))) (let ((e-12 (vector-ref sc5 13))) (let ((e-13 (vector-ref sc5 14))) (let ((e-14 (vector-ref sc5 15))) (let ((e-15 (vector-ref sc5 16))) (let ((e-16 (vector-ref sc5 17))) (let ((e-17 (vector-ref sc5 18))) (let ((e-18 (vector-ref sc5 19))) (let ((e-19 (vector-ref sc5 20))) (let ((e-20 (vector-ref sc5 21))) (let ((e-21 (vector-ref sc5 22))) (let ((e-22 (vector-ref sc5 23))) (let ((e-23 (vector-ref sc5 24))) (let ((e-24 (vector-ref sc5 25))) (let ((e-25 (vector-ref sc5 26))) (vector 0 e-0 e-1 e-2 e-3 updated e-28 e-27 e-26 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))) ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (Context-Core-setCG e-8 (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-0) (vector 3 (Builtin-fst 'erased 'erased eta-0)))) (List-Data-headC-39 'erased arg-0)) ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 ((InitPrimitives-Core-addPrimitives e-8) ext-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-31 (Context-Core-setWorkingDir e-8 "." ext-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-32 (Driver-Idris-updateEnv e-8 ext-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc10 1))) (let ((ide (SetOptions-Idris-ideMode arg-1))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-1))) (let ((outmode (let ((sc11 ide)) (cond ((equal? sc11 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Driver-Idris-findInput arg-1))) (let ((act-33 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode arg-0) ext-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-34 ((Driver-Idris-showInfo e-8 e-14 arg-1) ext-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc12 1))) (let ((_-1 1)) (let ((sc13 e-15)) (cond ((equal? sc13 0) (vector 1 (vector 0 ))) (else (let ((act-35 ((Package-Idris-processPackageOpts e-8 e-9 e-14 arg-1) ext-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc14 1))) (let ((sc15 (Prelude-not e-16))) (cond ((equal? sc15 0) (let ((act-36 ((SetOptions-Idris-preOptions e-8 e-14 arg-1) ext-0))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc16 1))) (let ((finish 1)) (let ((sc17 e-17)) (cond ((equal? sc17 0) (let ((act-37 (let ((sc18 (Driver-Idris-checkVerbose arg-1))) (cond ((equal? sc18 0) (REPLOpts-Idris-setOutput e-14 (vector 1 1) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc18 act-37)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc18 1))) (let ((act-38 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) ext-0))) (let ((sc19 act-38)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc19 1))) (let ((act-39 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) ext-0))) (let ((sc20 act-39)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (vector 0 e-2))) (else (let ((e-20 (vector-ref sc20 1))) (let ((act-40 (Driver-Idris-updateREPLOpts e-14 ext-0))) (let ((sc21 act-40)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (vector 0 e-2))) (else (let ((e-21 (vector-ref sc21 1))) (let ((act-41 (Context-Core-getSession e-8 ext-0))) (let ((sc22 act-41)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (vector 0 e-2))) (else (let ((e-22 (vector-ref sc22 1))) (let ((act-42 (let ((sc23 (Prelude-not (let ((sc24 e-22)) (let ((e-1 (vector-ref sc24 2))) e-1))))) (cond ((equal? sc23 0) (let ((act-42 (REPLCommon-Idris-iputStrLn e-14 (Driver-Idris-banner) ext-0))) (let ((sc24 act-42)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (vector 0 e-2))) (else (let ((sc25 (List-Data-isCons 'erased arg-0))) (cond ((equal? sc25 0) (REPLCommon-Idris-iputStrLn e-14 (Strings-Prelude-C-43C-43 "With codegen for: " (Strings-Data-fastAppend (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc26 lamc-0)) (let ((e-2 (vector-ref sc26 1))) (Strings-Prelude-C-43C-43 e-2 " ")))) arg-0))) ext-0)) (else (vector 1 (vector 0 )))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc23 act-42)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (vector 0 e-2))) (else (let ((e-23 (vector-ref sc23 1))) (let ((act-43 (let ((_-2 0)) ((Driver-Idris-case--13590-9300 arg-1 arg-0 _-0 _-1 e-7 updated e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 e-23 (let ((sc24 e-22)) (let ((e-2 (vector-ref sc24 3))) e-2))) ext-0)))) (let ((sc24 act-43)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (vector 0 e-2))) (else (let ((e-24 (vector-ref sc24 1))) (let ((act-44 (REPLOpts-Idris-setMainFile e-14 e-24 ext-0))) (let ((sc25 act-44)) (case (vector-ref sc25 0) ((0) (let ((e-2 (vector-ref sc25 1))) (vector 0 e-2))) (else (let ((e-25 (vector-ref sc25 1))) (let ((act-45 (let ((sc26 e-24)) (case (vector-ref sc26 0) ((0) (Context-Core-logTime 'erased e-8 (lambda () "Loading prelude") (let ((sc27 (Prelude-not (let ((sc28 e-22)) (let ((e-0 (vector-ref sc28 1))) e-0))))) (cond ((equal? sc27 0) (lambda (eta-0) (ProcessIdr-Idris-readPrelude e-8 e-19 e-9 0 eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))) ext-0)) (else (let ((e-2 (vector-ref sc26 1))) (Context-Core-logTime 'erased e-8 (lambda () "Loading main file") (lambda (eta-0) (let ((act-45 (REPL-Idris-loadMainFile e-8 e-19 e-9 e-20 e-14 e-2 eta-0))) (let ((sc27 act-45)) (case (vector-ref sc27 0) ((0) (let ((e-3 (vector-ref sc27 1))) (vector 0 e-3))) (else (let ((e-26 (vector-ref sc27 1))) ((REPL-Idris-displayErrors e-8 e-19 e-9 e-20 e-14 e-26) eta-0))))))) ext-0))))))) (let ((sc26 act-45)) (case (vector-ref sc26 0) ((0) (let ((e-2 (vector-ref sc26 1))) (vector 0 e-2))) (else (let ((e-26 (vector-ref sc26 1))) (let ((act-46 ((SetOptions-Idris-postOptions e-8 e-19 e-9 e-20 e-14 arg-1) ext-0))) (let ((sc27 act-46)) (case (vector-ref sc27 0) ((0) (let ((e-2 (vector-ref sc27 1))) (vector 0 e-2))) (else (let ((e-27 (vector-ref sc27 1))) (let ((_-2 0)) (let ((sc28 e-27)) (cond ((equal? sc28 0) (let ((doRepl 0)) ((Driver-Idris-case--13955-9473 arg-1 arg-0 _-0 _-1 e-7 updated e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) ext-0))) (else (let ((act-47 (let ((act-47 (unbox e-14))) (vector 1 act-47)))) (let ((sc29 act-47)) (case (vector-ref sc29 0) ((0) (let ((e-2 (vector-ref sc29 1))) (vector 0 e-2))) (else (let ((e-28 (vector-ref sc29 1))) (let ((act-48 (Context-Core-showTimeRecord e-8 ext-0))) (let ((sc30 act-48)) (case (vector-ref sc30 0) ((0) (let ((e-2 (vector-ref sc30 1))) (vector 0 e-2))) (else (let ((e-29 (vector-ref sc30 1))) (let ((doRepl 1)) ((Driver-Idris-case--13955-10054 arg-1 arg-0 _-0 _-1 e-7 updated e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 doRepl e-28 e-29 (let ((sc31 e-28)) (let ((e-33 (vector-ref sc31 6))) e-33))) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 )))))))))))) -(define Driver-Idris-showInfo (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((30) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (REPLCommon-Idris-iputStrLn arg-1 (Options-Core-toString (let ((sc3 (let ((sc4 e-5)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 0))))))))))))(else (Driver-Idris-showInfo arg-0 arg-1 e-3))))))))))) -(define Driver-Idris-quitOpts (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (CommandLine-Idris-versionMsg)) eta-0))) 1))) ((10) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (CommandLine-Idris-usage)) eta-0))) 1))) ((8) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (IdrisPaths-yprefix)) eta-0))) 1)))(else (Driver-Idris-quitOpts e-3))))))))))) -(define Driver-Idris-mainWithCodegens (lambda (arg-0 ext-0) (let ((act-24 (CommandLine-Idris-getCmdOpts ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 ((Driver-Idris-quitOpts e-2) ext-0))) (let ((sc1 act-25)) (cond ((equal? sc1 0) (Core-Core-coreRun 'erased 'erased (lambda (eta-0) (Driver-Idris-stMain arg-0 e-2 eta-0)) (lambda (err) (lambda (eta-0) (let ((act-26 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err))) eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0)))) (lambda (res) (lambda (eta-0) (vector 0 ))) ext-0)) (else (vector 0 ))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-5) ext-0))) ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (CommandLine-Idris-usage)) ext-0))))))))) -(define Driver-Idris-findInput (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((17) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (Driver-Idris-findInput e-3))))))))))) +(define Driver-Idris-case--15333-10532 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-coreRun 'erased 'erased (lambda (eta-1) (Driver-Idris-stMain arg-0 arg-1 eta-1)) (lambda (err) (lambda (eta-1) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-24 (arg-3672 eta-2))) ((arg-3673 act-24) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err))) eta-1))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-25 (arg-3672 eta-2))) ((arg-3673 act-25) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 1 1 (vector 0 ))) eta-1)))) (lambda (res) (lambda (eta-1) (vector 0 ))) eta-0))) (else (lambda (eta-0) (vector 0 ))))))) +(define Driver-Idris-case--15322-10518 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Driver-Idris-quitOpts e-2) eta-0))) (let ((sc1 act-24)) (cond ((equal? sc1 0) (Core-Core-coreRun 'erased 'erased (lambda (eta-1) (Driver-Idris-stMain arg-0 e-2 eta-1)) (lambda (err) (lambda (eta-1) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-25 (arg-3672 eta-2))) ((arg-3673 act-25) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err))) eta-1))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-26 (arg-3672 eta-2))) ((arg-3673 act-26) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 1 1 (vector 0 ))) eta-1)))) (lambda (res) (lambda (eta-1) (vector 0 ))) eta-0)) (else (vector 0 )))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-5) eta-0))) ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (CommandLine-Idris-usage)) eta-0))))))))) +(define Driver-Idris-case--13369-10416 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 arg-5 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) +(define Driver-Idris-case--13666-10210 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-26)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Context-Core-logTime 'erased arg-6 (lambda () "Loading prelude") (let ((sc1 (Prelude-not (let ((sc2 arg-24)) (let ((e-0 (vector-ref sc2 1))) e-0))))) (cond ((equal? sc1 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-6 arg-21 arg-7 0 eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-logTime 'erased arg-6 (lambda () "Loading main file") (lambda (eta-1) (let ((act-24 (REPL-Idris-loadMainFile arg-6 arg-21 arg-7 arg-22 arg-16 e-2 eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-displayErrors arg-6 arg-21 arg-7 arg-22 arg-16 e-5) eta-1))))))) eta-0)))))))) +(define Driver-Idris-case--14031-10063 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32) (let ((sc0 arg-32)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-24)))))))) +(define Driver-Idris-case--14378-9758 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32) (let ((sc0 arg-32)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-2) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-25))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setOutput arg-16 (vector 0 0 e-5 e-5) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (REPL-IDEMode-Idris-replIDE arg-6 arg-21 arg-7 arg-22 arg-16 eta-0)))))))))))) +(define Driver-Idris-case--14214-9682 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30) (let ((sc0 arg-30)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (REPL-IDEMode-Idris-initIDESocketFile e-2 e-3 eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-4) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((act-26 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-26 (arg-3672 eta-1))) ((arg-3673 act-26) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-26)))))))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (REPLOpts-Idris-setOutput arg-16 (vector 0 0 e-6 e-6) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (REPL-IDEMode-Idris-replIDE arg-6 arg-21 arg-7 arg-22 arg-16 eta-0)))))))))))))))))))) +(define Driver-Idris-case--14121-9546 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30) (let ((sc0 arg-30)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setOutput arg-16 (vector 0 0 (File-System-stdin) (File-System-stdout)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (REPL-IDEMode-Idris-replIDE arg-6 arg-21 arg-7 arg-22 arg-16 eta-0))))))) (else (Driver-Idris-case--14214-9682 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 (CommandLine-Idris-ideSocketModeAddress arg-0))))))) +(define Driver-Idris-case--14031-9482 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30) (let ((sc0 arg-30)) (cond ((equal? sc0 0) (Driver-Idris-case--14121-9546 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 (Prelude-not arg-13))) (else (lambda (eta-0) (let ((act-24 (REPL-Idris-repl arg-6 arg-21 arg-7 arg-22 arg-16 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Context-Core-showTimeRecord arg-6 eta-0))))))))))) +(define Driver-Idris-case--13666-9421 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-29)) (cond ((equal? sc0 0) (let ((doRepl 0)) (Driver-Idris-case--14031-9482 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 doRepl (Prelude-C-124C-124 arg-12 (lambda () arg-13))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-16))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-showTimeRecord arg-6 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((doRepl 1)) ((Driver-Idris-case--14031-10063 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 doRepl e-5 e-6 (let ((sc3 e-5)) (let ((e-10 (vector-ref sc3 7))) e-10))) eta-0)))))))))))))))))) +(define Driver-Idris-case--13666-9309 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (lambda (eta-0) (Package-Idris-findIpkg arg-6 arg-16 arg-15 eta-0))) (else (lambda (eta-0) (vector 1 arg-15))))))) +(define Driver-Idris-case--13666-9249 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 e-2 " "))))) +(define Driver-Idris-case--13562-9119 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((sc1 (Driver-Idris-checkVerbose arg-0))) (cond ((equal? sc1 0) (REPLOpts-Idris-setOutput arg-16 (vector 1 1) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Driver-Idris-updateREPLOpts arg-16 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-getSession arg-6 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (let ((sc6 (Prelude-not (let ((sc7 e-9)) (let ((e-1 (vector-ref sc7 2))) e-1))))) (cond ((equal? sc6 0) (let ((act-29 (REPLCommon-Idris-iputStrLn arg-16 (Driver-Idris-banner) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((sc8 (List-Data-isCons 'erased arg-1))) (cond ((equal? sc8 0) (REPLCommon-Idris-iputStrLn arg-16 (Strings-Prelude-C-43C-43 "With codegen for: " (Strings-Data-fastAppend (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-2 (vector-ref sc9 1))) (Strings-Prelude-C-43C-43 e-2 " ")))) arg-1))) eta-0)) (else (vector 1 (vector 0 )))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((_-0 0)) ((Driver-Idris-case--13666-9309 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 _-0 e-5 e-6 e-7 e-8 e-9 e-10 (let ((sc7 e-9)) (let ((e-2 (vector-ref sc7 3))) e-2))) eta-0)))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (REPLOpts-Idris-setMainFile arg-16 e-11 eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (let ((sc9 e-11)) (case (vector-ref sc9 0) ((0) (Context-Core-logTime 'erased arg-6 (lambda () "Loading prelude") (let ((sc10 (Prelude-not (let ((sc11 e-9)) (let ((e-0 (vector-ref sc11 1))) e-0))))) (cond ((equal? sc10 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-6 e-6 arg-7 0 eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))) eta-0)) (else (let ((e-2 (vector-ref sc9 1))) (Context-Core-logTime 'erased arg-6 (lambda () "Loading main file") (lambda (eta-1) (let ((act-32 (REPL-Idris-loadMainFile arg-6 e-6 arg-7 e-7 arg-16 e-2 eta-1))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc10 1))) ((REPL-Idris-displayErrors arg-6 e-6 arg-7 e-7 arg-16 e-13) eta-1))))))) eta-0))))))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 ((SetOptions-Idris-postOptions arg-6 e-6 arg-7 e-7 arg-16 arg-0) eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc10 1))) (let ((_-0 0)) (let ((sc11 e-14)) (cond ((equal? sc11 0) (let ((doRepl 0)) ((Driver-Idris-case--14031-9482 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 doRepl (Prelude-C-124C-124 arg-12 (lambda () arg-13))) eta-0))) (else (let ((act-34 (let ((act-34 (unbox arg-16))) (vector 1 act-34)))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc12 1))) (let ((act-35 (Context-Core-showTimeRecord arg-6 eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc13 1))) (let ((doRepl 1)) ((Driver-Idris-case--14031-10063 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 doRepl e-15 e-16 (let ((sc14 e-15)) (let ((e-20 (vector-ref sc14 7))) e-20))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Driver-Idris-case--13369-9032 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 ((Package-Idris-processPackageOpts arg-6 arg-7 arg-16 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 (Prelude-not e-5))) (cond ((equal? sc2 0) (let ((act-25 ((SetOptions-Idris-preOptions arg-6 arg-16 arg-0) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((finish 1)) (let ((sc4 e-6)) (cond ((equal? sc4 0) (let ((act-26 (let ((sc5 (Driver-Idris-checkVerbose arg-0))) (cond ((equal? sc5 0) (REPLOpts-Idris-setOutput arg-16 (vector 1 1) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-28 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-29 (Driver-Idris-updateREPLOpts arg-16 eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-30 (Context-Core-getSession arg-6 eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc9 1))) (let ((act-31 (let ((sc10 (Prelude-not (let ((sc11 e-11)) (let ((e-1 (vector-ref sc11 2))) e-1))))) (cond ((equal? sc10 0) (let ((act-31 (REPLCommon-Idris-iputStrLn arg-16 (Driver-Idris-banner) eta-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((sc12 (List-Data-isCons 'erased arg-1))) (cond ((equal? sc12 0) (REPLCommon-Idris-iputStrLn arg-16 (Strings-Prelude-C-43C-43 "With codegen for: " (Strings-Data-fastAppend (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc13 lamc-0)) (let ((e-2 (vector-ref sc13 1))) (Strings-Prelude-C-43C-43 e-2 " ")))) arg-1))) eta-0)) (else (vector 1 (vector 0 )))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc10 1))) (let ((act-32 (let ((_-0 0)) ((Driver-Idris-case--13666-9309 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 e-12 (let ((sc11 e-11)) (let ((e-2 (vector-ref sc11 3))) e-2))) eta-0)))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-33 (REPLOpts-Idris-setMainFile arg-16 e-13 eta-0))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc12 1))) (let ((act-34 (let ((sc13 e-13)) (case (vector-ref sc13 0) ((0) (Context-Core-logTime 'erased arg-6 (lambda () "Loading prelude") (let ((sc14 (Prelude-not (let ((sc15 e-11)) (let ((e-0 (vector-ref sc15 1))) e-0))))) (cond ((equal? sc14 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-6 e-8 arg-7 0 eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))) eta-0)) (else (let ((e-2 (vector-ref sc13 1))) (Context-Core-logTime 'erased arg-6 (lambda () "Loading main file") (lambda (eta-1) (let ((act-34 (REPL-Idris-loadMainFile arg-6 e-8 arg-7 e-9 arg-16 e-2 eta-1))) (let ((sc14 act-34)) (case (vector-ref sc14 0) ((0) (let ((e-3 (vector-ref sc14 1))) (vector 0 e-3))) (else (let ((e-15 (vector-ref sc14 1))) ((REPL-Idris-displayErrors arg-6 e-8 arg-7 e-9 arg-16 e-15) eta-1))))))) eta-0))))))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc13 1))) (let ((act-35 ((SetOptions-Idris-postOptions arg-6 e-8 arg-7 e-9 arg-16 arg-0) eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc14 1))) (let ((_-0 0)) (let ((sc15 e-16)) (cond ((equal? sc15 0) (let ((doRepl 0)) ((Driver-Idris-case--14031-9482 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 doRepl (Prelude-C-124C-124 arg-12 (lambda () arg-13))) eta-0))) (else (let ((act-36 (let ((act-36 (unbox arg-16))) (vector 1 act-36)))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc16 1))) (let ((act-37 (Context-Core-showTimeRecord arg-6 eta-0))) (let ((sc17 act-37)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc17 1))) (let ((doRepl 1)) ((Driver-Idris-case--14031-10063 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 doRepl e-17 e-18 (let ((sc18 e-17)) (let ((e-22 (vector-ref sc18 7))) e-22))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 )))))))))))))))) +(define Driver-Idris-case--13369-8954 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) +(define Driver-Idris-case--13369-8875 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (Options-Core-addCG (vector 0 e-2 (vector 3 e-2)) arg-5))))) +(define Driver-Idris-case--13356-8853 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Context-Core-initDefs eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((updated (Prelude-foldl_Foldable__List 'erased 'erased (lambda (o) (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (Options-Core-addCG (vector 0 e-2 (vector 3 e-2)) o))))) (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)) arg-1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-26 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (vector 0 e-0 e-1 e-2 e-3 updated e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-setCG e-6 (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-1) (vector 3 (Builtin-fst 'erased 'erased eta-1)))) (List-Data-headC-39 'erased arg-1)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((InitPrimitives-Core-addPrimitives e-6) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Context-Core-setWorkingDir e-6 "." eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Driver-Idris-updateEnv e-6 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc8 ide)) (cond ((equal? sc8 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Driver-Idris-findInput arg-0))) (let ((act-31 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode arg-1) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 ((Driver-Idris-showInfo e-6 e-12 arg-0) eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (let ((_-0 1)) (let ((sc10 e-13)) (cond ((equal? sc10 0) (vector 1 (vector 0 ))) (else (let ((act-33 ((Package-Idris-processPackageOpts e-6 e-7 e-12 arg-0) eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc11 1))) (let ((sc12 (Prelude-not e-14))) (cond ((equal? sc12 0) (let ((act-34 ((SetOptions-Idris-preOptions e-6 e-12 arg-0) eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc13 1))) (let ((finish 1)) (let ((sc14 e-15)) (cond ((equal? sc14 0) (let ((act-35 (let ((sc15 (Driver-Idris-checkVerbose arg-0))) (cond ((equal? sc15 0) (REPLOpts-Idris-setOutput e-12 (vector 1 1) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc15 1))) (let ((act-36 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc16 1))) (let ((act-37 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) eta-0))) (let ((sc17 act-37)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc17 1))) (let ((act-38 (Driver-Idris-updateREPLOpts e-12 eta-0))) (let ((sc18 act-38)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc18 1))) (let ((act-39 (Context-Core-getSession e-6 eta-0))) (let ((sc19 act-39)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (vector 0 e-2))) (else (let ((e-20 (vector-ref sc19 1))) (let ((act-40 (let ((sc20 (Prelude-not (let ((sc21 e-20)) (let ((e-1 (vector-ref sc21 2))) e-1))))) (cond ((equal? sc20 0) (let ((act-40 (REPLCommon-Idris-iputStrLn e-12 (Driver-Idris-banner) eta-0))) (let ((sc21 act-40)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (vector 0 e-2))) (else (let ((sc22 (List-Data-isCons 'erased arg-1))) (cond ((equal? sc22 0) (REPLCommon-Idris-iputStrLn e-12 (Strings-Prelude-C-43C-43 "With codegen for: " (Strings-Data-fastAppend (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc23 lamc-0)) (let ((e-2 (vector-ref sc23 1))) (Strings-Prelude-C-43C-43 e-2 " ")))) arg-1))) eta-0)) (else (vector 1 (vector 0 )))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc20 act-40)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (vector 0 e-2))) (else (let ((e-21 (vector-ref sc20 1))) (let ((act-41 (let ((_-1 0)) ((Driver-Idris-case--13666-9309 arg-0 arg-1 arg-2 _-0 e-5 updated e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 e-21 (let ((sc21 e-20)) (let ((e-2 (vector-ref sc21 3))) e-2))) eta-0)))) (let ((sc21 act-41)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (vector 0 e-2))) (else (let ((e-22 (vector-ref sc21 1))) (let ((act-42 (REPLOpts-Idris-setMainFile e-12 e-22 eta-0))) (let ((sc22 act-42)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (vector 0 e-2))) (else (let ((e-23 (vector-ref sc22 1))) (let ((act-43 (let ((sc23 e-22)) (case (vector-ref sc23 0) ((0) (Context-Core-logTime 'erased e-6 (lambda () "Loading prelude") (let ((sc24 (Prelude-not (let ((sc25 e-20)) (let ((e-0 (vector-ref sc25 1))) e-0))))) (cond ((equal? sc24 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude e-6 e-17 e-7 0 eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))) eta-0)) (else (let ((e-2 (vector-ref sc23 1))) (Context-Core-logTime 'erased e-6 (lambda () "Loading main file") (lambda (eta-1) (let ((act-43 (REPL-Idris-loadMainFile e-6 e-17 e-7 e-18 e-12 e-2 eta-1))) (let ((sc24 act-43)) (case (vector-ref sc24 0) ((0) (let ((e-3 (vector-ref sc24 1))) (vector 0 e-3))) (else (let ((e-24 (vector-ref sc24 1))) ((REPL-Idris-displayErrors e-6 e-17 e-7 e-18 e-12 e-24) eta-1))))))) eta-0))))))) (let ((sc23 act-43)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (vector 0 e-2))) (else (let ((e-24 (vector-ref sc23 1))) (let ((act-44 ((SetOptions-Idris-postOptions e-6 e-17 e-7 e-18 e-12 arg-0) eta-0))) (let ((sc24 act-44)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (vector 0 e-2))) (else (let ((e-25 (vector-ref sc24 1))) (let ((_-1 0)) (let ((sc25 e-25)) (cond ((equal? sc25 0) (let ((doRepl 0)) ((Driver-Idris-case--14031-9482 arg-0 arg-1 arg-2 _-0 e-5 updated e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) eta-0))) (else (let ((act-45 (let ((act-45 (unbox e-12))) (vector 1 act-45)))) (let ((sc26 act-45)) (case (vector-ref sc26 0) ((0) (let ((e-2 (vector-ref sc26 1))) (vector 0 e-2))) (else (let ((e-26 (vector-ref sc26 1))) (let ((act-46 (Context-Core-showTimeRecord e-6 eta-0))) (let ((sc27 act-46)) (case (vector-ref sc27 0) ((0) (let ((e-2 (vector-ref sc27 1))) (vector 0 e-2))) (else (let ((e-27 (vector-ref sc27 1))) (let ((doRepl 1)) ((Driver-Idris-case--14031-10063 arg-0 arg-1 arg-2 _-0 e-5 updated e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 doRepl e-26 e-27 (let ((sc28 e-26)) (let ((e-31 (vector-ref sc28 7))) e-31))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Driver-Idris-case--13348-8842 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 ((Driver-Idris-tryTTM arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 1)) (let ((sc2 e-5)) (cond ((equal? sc2 1) (let ((act-25 (Context-Core-initDefs eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((updated (Prelude-foldl_Foldable__List 'erased 'erased (lambda (o) (lambda (lamc-0) (let ((sc4 lamc-0)) (let ((e-2 (vector-ref sc4 1))) (Options-Core-addCG (vector 0 e-2 (vector 3 e-2)) o))))) (let ((sc4 e-6)) (let ((e-4 (vector-ref sc4 5))) e-4)) arg-1))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-27 (vector-ref sc4 6))) (let ((e-26 (vector-ref sc4 7))) (let ((e-7 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (let ((e-21 (vector-ref sc4 22))) (let ((e-22 (vector-ref sc4 23))) (let ((e-23 (vector-ref sc4 24))) (let ((e-24 (vector-ref sc4 25))) (let ((e-25 (vector-ref sc4 26))) (vector 0 e-0 e-1 e-2 e-3 updated e-27 e-26 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (Context-Core-setCG e-7 (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-1) (vector 3 (Builtin-fst 'erased 'erased eta-1)))) (List-Data-headC-39 'erased arg-1)) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 ((InitPrimitives-Core-addPrimitives e-7) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 (Context-Core-setWorkingDir e-7 "." eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-31 (Driver-Idris-updateEnv e-7 eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc9 1))) (let ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc10 ide)) (cond ((equal? sc10 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Driver-Idris-findInput arg-0))) (let ((act-32 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode arg-1) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-33 ((Driver-Idris-showInfo e-7 e-13 arg-0) eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc11 1))) (let ((_-1 1)) (let ((sc12 e-14)) (cond ((equal? sc12 0) (vector 1 (vector 0 ))) (else (let ((act-34 ((Package-Idris-processPackageOpts e-7 e-8 e-13 arg-0) eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc13 1))) (let ((sc14 (Prelude-not e-15))) (cond ((equal? sc14 0) (let ((act-35 ((SetOptions-Idris-preOptions e-7 e-13 arg-0) eta-0))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc15 1))) (let ((finish 1)) (let ((sc16 e-16)) (cond ((equal? sc16 0) (let ((act-36 (let ((sc17 (Driver-Idris-checkVerbose arg-0))) (cond ((equal? sc17 0) (REPLOpts-Idris-setOutput e-13 (vector 1 1) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc17 act-36)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc17 1))) (let ((act-37 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc18 act-37)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc18 1))) (let ((act-38 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) eta-0))) (let ((sc19 act-38)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc19 1))) (let ((act-39 (Driver-Idris-updateREPLOpts e-13 eta-0))) (let ((sc20 act-39)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (vector 0 e-2))) (else (let ((e-20 (vector-ref sc20 1))) (let ((act-40 (Context-Core-getSession e-7 eta-0))) (let ((sc21 act-40)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (vector 0 e-2))) (else (let ((e-21 (vector-ref sc21 1))) (let ((act-41 (let ((sc22 (Prelude-not (let ((sc23 e-21)) (let ((e-1 (vector-ref sc23 2))) e-1))))) (cond ((equal? sc22 0) (let ((act-41 (REPLCommon-Idris-iputStrLn e-13 (Driver-Idris-banner) eta-0))) (let ((sc23 act-41)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (vector 0 e-2))) (else (let ((sc24 (List-Data-isCons 'erased arg-1))) (cond ((equal? sc24 0) (REPLCommon-Idris-iputStrLn e-13 (Strings-Prelude-C-43C-43 "With codegen for: " (Strings-Data-fastAppend (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc25 lamc-0)) (let ((e-2 (vector-ref sc25 1))) (Strings-Prelude-C-43C-43 e-2 " ")))) arg-1))) eta-0)) (else (vector 1 (vector 0 )))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc22 act-41)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (vector 0 e-2))) (else (let ((e-22 (vector-ref sc22 1))) (let ((act-42 (let ((_-2 0)) ((Driver-Idris-case--13666-9309 arg-0 arg-1 _-0 _-1 e-6 updated e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 e-22 (let ((sc23 e-21)) (let ((e-2 (vector-ref sc23 3))) e-2))) eta-0)))) (let ((sc23 act-42)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (vector 0 e-2))) (else (let ((e-23 (vector-ref sc23 1))) (let ((act-43 (REPLOpts-Idris-setMainFile e-13 e-23 eta-0))) (let ((sc24 act-43)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (vector 0 e-2))) (else (let ((e-24 (vector-ref sc24 1))) (let ((act-44 (let ((sc25 e-23)) (case (vector-ref sc25 0) ((0) (Context-Core-logTime 'erased e-7 (lambda () "Loading prelude") (let ((sc26 (Prelude-not (let ((sc27 e-21)) (let ((e-0 (vector-ref sc27 1))) e-0))))) (cond ((equal? sc26 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude e-7 e-18 e-8 0 eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))) eta-0)) (else (let ((e-2 (vector-ref sc25 1))) (Context-Core-logTime 'erased e-7 (lambda () "Loading main file") (lambda (eta-1) (let ((act-44 (REPL-Idris-loadMainFile e-7 e-18 e-8 e-19 e-13 e-2 eta-1))) (let ((sc26 act-44)) (case (vector-ref sc26 0) ((0) (let ((e-3 (vector-ref sc26 1))) (vector 0 e-3))) (else (let ((e-25 (vector-ref sc26 1))) ((REPL-Idris-displayErrors e-7 e-18 e-8 e-19 e-13 e-25) eta-1))))))) eta-0))))))) (let ((sc25 act-44)) (case (vector-ref sc25 0) ((0) (let ((e-2 (vector-ref sc25 1))) (vector 0 e-2))) (else (let ((e-25 (vector-ref sc25 1))) (let ((act-45 ((SetOptions-Idris-postOptions e-7 e-18 e-8 e-19 e-13 arg-0) eta-0))) (let ((sc26 act-45)) (case (vector-ref sc26 0) ((0) (let ((e-2 (vector-ref sc26 1))) (vector 0 e-2))) (else (let ((e-26 (vector-ref sc26 1))) (let ((_-2 0)) (let ((sc27 e-26)) (cond ((equal? sc27 0) (let ((doRepl 0)) ((Driver-Idris-case--14031-9482 arg-0 arg-1 _-0 _-1 e-6 updated e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) eta-0))) (else (let ((act-46 (let ((act-46 (unbox e-13))) (vector 1 act-46)))) (let ((sc28 act-46)) (case (vector-ref sc28 0) ((0) (let ((e-2 (vector-ref sc28 1))) (vector 0 e-2))) (else (let ((e-27 (vector-ref sc28 1))) (let ((act-47 (Context-Core-showTimeRecord e-7 eta-0))) (let ((sc29 act-47)) (case (vector-ref sc29 0) ((0) (let ((e-2 (vector-ref sc29 1))) (vector 0 e-2))) (else (let ((e-28 (vector-ref sc29 1))) (let ((doRepl 1)) ((Driver-Idris-case--14031-10063 arg-0 arg-1 _-0 _-1 e-6 updated e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 doRepl e-27 e-28 (let ((sc30 e-27)) (let ((e-32 (vector-ref sc30 7))) e-32))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 ))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Driver-Idris-case--13195-8721 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 arg-2 e-6 e-7 e-8 e-9))))))))))))) +(define Driver-Idris-case--13173-8695 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (set-box! arg-0 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-10 e-2 e-3 e-4 e-1 e-6 e-7 e-8 e-9)))))))))))))) (vector 1 act-24))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Driver-Idris-case--12636-8659 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setPrefix arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Context-Core-setPrefix arg-0 (IdrisPaths-yprefix) eta-0))))))) +(define Driver-Idris-case--12636-8619 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addExtraDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-5) (Prelude-C-61C-61_Eq__Char arg-5 (Path-Utils-pathSeparator))) e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Driver-Idris-case--12636-8571 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addDataDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-7) (Prelude-C-61C-61_Eq__Char arg-7 (Path-Utils-pathSeparator))) e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Driver-Idris-case--12636-8515 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addLibDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-9) (Prelude-C-61C-61_Eq__Char arg-9 (Path-Utils-pathSeparator))) e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Driver-Idris-case--12858-8427 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setCG arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Unknown code generator " (Prelude-show_Show__String arg-10))) eta-0))))))) +(define Driver-Idris-case--12636-8400 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((cg (vector 1 e-1))) (Driver-Idris-case--12858-8427 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 cg (Options-Core-getCG (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)) e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Driver-Idris-case--12636-8321 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-addLibDir arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0))))))) +(define Driver-Idris-updateREPLOpts (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "EDITOR") ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (set-box! arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-12 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-10 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (vector 0 e-0 e-12 e-2 e-3 e-4 e-1 e-10 e-7 e-8 e-9)))))))))))))) (vector 1 act-26)))) (else (vector 1 (vector 0 ))))))))))))))))) +(define Driver-Idris-updateEnv (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "IDRIS2_PREFIX") ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (Context-Core-setPrefix arg-0 e-1 ext-0))) (else (Context-Core-setPrefix arg-0 (IdrisPaths-yprefix) ext-0)))))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-27 (arg-3672 eta-0))) ((arg-3673 act-27) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "IDRIS2_PATH") ext-0))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addExtraDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 (Path-Utils-pathSeparator))) e-1))) ext-0))) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (let ((act-29 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-29 (arg-3672 eta-0))) ((arg-3673 act-29) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "IDRIS2_DATA") ext-0))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (let ((sc6 e-10)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addDataDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 (Path-Utils-pathSeparator))) e-1))) ext-0))) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (let ((act-31 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-31 (arg-3672 eta-0))) ((arg-3673 act-31) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "IDRIS2_LIBS") ext-0))) (vector 1 act-31)))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 (let ((sc8 e-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addLibDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 (Path-Utils-pathSeparator))) e-1))) ext-0))) (else (vector 1 (vector 0 ))))))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-33 (let ((act-33 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-33 (arg-3672 eta-0))) ((arg-3673 act-33) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "IDRIS2_CG") ext-0))) (vector 1 act-33)))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-34 (let ((sc10 e-14)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((cg (vector 1 e-1))) ((Driver-Idris-case--12858-8427 arg-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-1 cg (Options-Core-getCG (let ((sc11 e-5)) (let ((e-4 (vector-ref sc11 5))) e-4)) e-1)) ext-0)))) (else (vector 1 (vector 0 ))))))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-35 (let ((act-35 (unbox arg-0))) (vector 1 act-35)))) (let ((sc11 act-35)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-36 (SetOptions-Idris-addPkgDir arg-0 "prelude" ext-0))) (let ((sc12 act-36)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((act-37 (SetOptions-Idris-addPkgDir arg-0 "base" ext-0))) (let ((sc13 act-37)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((act-38 (Context-Core-addDataDir arg-0 (Path-Utils-C-60C-47C-62 (let ((sc14 (let ((sc15 (let ((sc16 e-16)) (let ((e-4 (vector-ref sc16 5))) e-4)))) (let ((e-0 (vector-ref sc15 1))) e-0)))) (let ((e-4 (vector-ref sc14 5))) e-4)) (Path-Utils-C-60C-47C-62 (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))) "support")) ext-0))) (let ((sc14 act-38)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((act-39 (Context-Core-addLibDir arg-0 (Path-Utils-C-60C-47C-62 (let ((sc15 (let ((sc16 (let ((sc17 e-16)) (let ((e-4 (vector-ref sc17 5))) e-4)))) (let ((e-0 (vector-ref sc16 1))) e-0)))) (let ((e-4 (vector-ref sc15 5))) e-4)) (Path-Utils-C-60C-47C-62 (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))) "lib")) ext-0))) (let ((sc15 act-39)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((act-40 (let ((act-40 ((Directory-System-currentDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-40 (arg-3672 eta-0))) ((arg-3673 act-40) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350)))) ext-0))) (vector 1 act-40)))) (let ((sc16 act-40)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-21 (vector-ref sc16 1))) (let ((sc17 e-21)) (case (vector-ref sc17 0) ((1) (let ((e-1 (vector-ref sc17 1))) (Context-Core-addLibDir arg-0 e-1 ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Driver-Idris-tryYaffle (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((21) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Main-Yaffle-yaffleMain e-4 (vector 0 ) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (vector 1 0))))))))(else (Driver-Idris-tryYaffle e-3))))))))))) +(define Driver-Idris-tryTTM (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((22) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Metadata-Core-dumpTTM e-4 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (vector 1 0))))))))(else (Driver-Idris-tryTTM e-3))))))))))) +(define Driver-Idris-stMain (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Driver-Idris-tryYaffle arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 1) (let ((act-25 ((Driver-Idris-tryTTM arg-1) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((_-0 1)) (let ((sc3 e-6)) (cond ((equal? sc3 1) (let ((act-26 (Context-Core-initDefs ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((updated (Prelude-foldl_Foldable__List 'erased 'erased (lambda (o) (lambda (lamc-0) (let ((sc5 lamc-0)) (let ((e-2 (vector-ref sc5 1))) (Options-Core-addCG (vector 0 e-2 (vector 3 e-2)) o))))) (let ((sc5 e-7)) (let ((e-4 (vector-ref sc5 5))) e-4)) arg-0))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) (let ((sc5 e-7)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-28 (vector-ref sc5 6))) (let ((e-27 (vector-ref sc5 7))) (let ((e-26 (vector-ref sc5 8))) (let ((e-8 (vector-ref sc5 9))) (let ((e-9 (vector-ref sc5 10))) (let ((e-10 (vector-ref sc5 11))) (let ((e-11 (vector-ref sc5 12))) (let ((e-12 (vector-ref sc5 13))) (let ((e-13 (vector-ref sc5 14))) (let ((e-14 (vector-ref sc5 15))) (let ((e-15 (vector-ref sc5 16))) (let ((e-16 (vector-ref sc5 17))) (let ((e-17 (vector-ref sc5 18))) (let ((e-18 (vector-ref sc5 19))) (let ((e-19 (vector-ref sc5 20))) (let ((e-20 (vector-ref sc5 21))) (let ((e-21 (vector-ref sc5 22))) (let ((e-22 (vector-ref sc5 23))) (let ((e-23 (vector-ref sc5 24))) (let ((e-24 (vector-ref sc5 25))) (let ((e-25 (vector-ref sc5 26))) (vector 0 e-0 e-1 e-2 e-3 updated e-28 e-27 e-26 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))) ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (Context-Core-setCG e-8 (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-0) (vector 3 (Builtin-fst 'erased 'erased eta-0)))) (List-Data-headC-39 'erased arg-0)) ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 ((InitPrimitives-Core-addPrimitives e-8) ext-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-31 (Context-Core-setWorkingDir e-8 "." ext-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-32 (Driver-Idris-updateEnv e-8 ext-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc10 1))) (let ((ide (SetOptions-Idris-ideMode arg-1))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-1))) (let ((outmode (let ((sc11 ide)) (cond ((equal? sc11 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Driver-Idris-findInput arg-1))) (let ((act-33 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode arg-0) ext-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-34 ((Driver-Idris-showInfo e-8 e-14 arg-1) ext-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc12 1))) (let ((_-1 1)) (let ((sc13 e-15)) (cond ((equal? sc13 0) (vector 1 (vector 0 ))) (else (let ((act-35 ((Package-Idris-processPackageOpts e-8 e-9 e-14 arg-1) ext-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc14 1))) (let ((sc15 (Prelude-not e-16))) (cond ((equal? sc15 0) (let ((act-36 ((SetOptions-Idris-preOptions e-8 e-14 arg-1) ext-0))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc16 1))) (let ((finish 1)) (let ((sc17 e-17)) (cond ((equal? sc17 0) (let ((act-37 (let ((sc18 (Driver-Idris-checkVerbose arg-1))) (cond ((equal? sc18 0) (REPLOpts-Idris-setOutput e-14 (vector 1 1) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc18 act-37)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc18 1))) (let ((act-38 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) ext-0))) (let ((sc19 act-38)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc19 1))) (let ((act-39 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) ext-0))) (let ((sc20 act-39)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (vector 0 e-2))) (else (let ((e-20 (vector-ref sc20 1))) (let ((act-40 (Driver-Idris-updateREPLOpts e-14 ext-0))) (let ((sc21 act-40)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (vector 0 e-2))) (else (let ((e-21 (vector-ref sc21 1))) (let ((act-41 (Context-Core-getSession e-8 ext-0))) (let ((sc22 act-41)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (vector 0 e-2))) (else (let ((e-22 (vector-ref sc22 1))) (let ((act-42 (let ((sc23 (Prelude-not (let ((sc24 e-22)) (let ((e-1 (vector-ref sc24 2))) e-1))))) (cond ((equal? sc23 0) (let ((act-42 (REPLCommon-Idris-iputStrLn e-14 (Driver-Idris-banner) ext-0))) (let ((sc24 act-42)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (vector 0 e-2))) (else (let ((sc25 (List-Data-isCons 'erased arg-0))) (cond ((equal? sc25 0) (REPLCommon-Idris-iputStrLn e-14 (Strings-Prelude-C-43C-43 "With codegen for: " (Strings-Data-fastAppend (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc26 lamc-0)) (let ((e-2 (vector-ref sc26 1))) (Strings-Prelude-C-43C-43 e-2 " ")))) arg-0))) ext-0)) (else (vector 1 (vector 0 )))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc23 act-42)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (vector 0 e-2))) (else (let ((e-23 (vector-ref sc23 1))) (let ((act-43 (let ((_-2 0)) ((Driver-Idris-case--13666-9309 arg-1 arg-0 _-0 _-1 e-7 updated e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 e-23 (let ((sc24 e-22)) (let ((e-2 (vector-ref sc24 3))) e-2))) ext-0)))) (let ((sc24 act-43)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (vector 0 e-2))) (else (let ((e-24 (vector-ref sc24 1))) (let ((act-44 (REPLOpts-Idris-setMainFile e-14 e-24 ext-0))) (let ((sc25 act-44)) (case (vector-ref sc25 0) ((0) (let ((e-2 (vector-ref sc25 1))) (vector 0 e-2))) (else (let ((e-25 (vector-ref sc25 1))) (let ((act-45 (let ((sc26 e-24)) (case (vector-ref sc26 0) ((0) (Context-Core-logTime 'erased e-8 (lambda () "Loading prelude") (let ((sc27 (Prelude-not (let ((sc28 e-22)) (let ((e-0 (vector-ref sc28 1))) e-0))))) (cond ((equal? sc27 0) (lambda (eta-0) (ProcessIdr-Idris-readPrelude e-8 e-19 e-9 0 eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))) ext-0)) (else (let ((e-2 (vector-ref sc26 1))) (Context-Core-logTime 'erased e-8 (lambda () "Loading main file") (lambda (eta-0) (let ((act-45 (REPL-Idris-loadMainFile e-8 e-19 e-9 e-20 e-14 e-2 eta-0))) (let ((sc27 act-45)) (case (vector-ref sc27 0) ((0) (let ((e-3 (vector-ref sc27 1))) (vector 0 e-3))) (else (let ((e-26 (vector-ref sc27 1))) ((REPL-Idris-displayErrors e-8 e-19 e-9 e-20 e-14 e-26) eta-0))))))) ext-0))))))) (let ((sc26 act-45)) (case (vector-ref sc26 0) ((0) (let ((e-2 (vector-ref sc26 1))) (vector 0 e-2))) (else (let ((e-26 (vector-ref sc26 1))) (let ((act-46 ((SetOptions-Idris-postOptions e-8 e-19 e-9 e-20 e-14 arg-1) ext-0))) (let ((sc27 act-46)) (case (vector-ref sc27 0) ((0) (let ((e-2 (vector-ref sc27 1))) (vector 0 e-2))) (else (let ((e-27 (vector-ref sc27 1))) (let ((_-2 0)) (let ((sc28 e-27)) (cond ((equal? sc28 0) (let ((doRepl 0)) ((Driver-Idris-case--14031-9482 arg-1 arg-0 _-0 _-1 e-7 updated e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) ext-0))) (else (let ((act-47 (let ((act-47 (unbox e-14))) (vector 1 act-47)))) (let ((sc29 act-47)) (case (vector-ref sc29 0) ((0) (let ((e-2 (vector-ref sc29 1))) (vector 0 e-2))) (else (let ((e-28 (vector-ref sc29 1))) (let ((act-48 (Context-Core-showTimeRecord e-8 ext-0))) (let ((sc30 act-48)) (case (vector-ref sc30 0) ((0) (let ((e-2 (vector-ref sc30 1))) (vector 0 e-2))) (else (let ((e-29 (vector-ref sc30 1))) (let ((doRepl 1)) ((Driver-Idris-case--14031-10063 arg-1 arg-0 _-0 _-1 e-7 updated e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 doRepl e-28 e-29 (let ((sc31 e-28)) (let ((e-33 (vector-ref sc31 7))) e-33))) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 )))))))))))) +(define Driver-Idris-showInfo (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((31) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (REPLCommon-Idris-iputStrLn arg-1 (Options-Core-toString (let ((sc3 (let ((sc4 e-5)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 0))))))))))))(else (Driver-Idris-showInfo arg-0 arg-1 e-3))))))))))) +(define Driver-Idris-quitOpts (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (CommandLine-Idris-versionMsg)) eta-0))) 1))) ((10) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (CommandLine-Idris-usage)) eta-0))) 1))) ((8) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (IdrisPaths-yprefix)) eta-0))) 1)))(else (Driver-Idris-quitOpts e-3))))))))))) +(define Driver-Idris-mainWithCodegens (lambda (arg-0 ext-0) (let ((act-24 (CommandLine-Idris-getCmdOpts ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 ((Driver-Idris-quitOpts e-2) ext-0))) (let ((sc1 act-25)) (cond ((equal? sc1 0) (Core-Core-coreRun 'erased 'erased (lambda (eta-0) (Driver-Idris-stMain arg-0 e-2 eta-0)) (lambda (err) (lambda (eta-0) (let ((act-26 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-26 (arg-3672 eta-1))) ((arg-3673 act-26) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err))) eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-27 (arg-3672 eta-1))) ((arg-3673 act-27) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 1 1 (vector 0 ))) eta-0)))) (lambda (res) (lambda (eta-0) (vector 0 ))) ext-0)) (else (vector 0 ))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-5) ext-0))) ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-26 (arg-3672 eta-0))) ((arg-3673 act-26) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (CommandLine-Idris-usage)) ext-0))))))))) +(define Driver-Idris-findInput (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((18) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (Driver-Idris-findInput e-3))))))))))) (define Driver-Idris-checkVerbose (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((13) 0)(else (Driver-Idris-checkVerbose e-3))))))))))) (define Driver-Idris-banner (lambda () (Strings-Prelude-C-43C-43 " ____ __ _ ___ \u000a" (Strings-Prelude-C-43C-43 " / _/___/ /____(_)____ |__ \\ \u000a" (Strings-Prelude-C-43C-43 " / // __ / ___/ / ___/ __/ / Version " (Strings-Prelude-C-43C-43 (Version-Idris-showVersion 0 (Version-Idris-version)) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 " _/ // /_/ / / / (__ ) / __/ https://www.idris-lang.org \u000a" (Strings-Prelude-C-43C-43 " /___/\\__,_/_/ /_/____/ /____/ Type :? for help \u000a" (Strings-Prelude-C-43C-43 "\u000a" "Welcome to Idris 2. Enjoy yourself!")))))))))) -(define Main-Yaffle-case--10406-7980 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (cond ((equal? sc1 "ttc") (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Processing as TTC") eta-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2106 eta-1)))) arg-3 arg-5 0 (FC-Core-emptyFC) 0 arg-1 (vector 0 ) (vector 0 ) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-26 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Read TTC") eta-0))) (vector 1 act-26))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Processing as TTImp") eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (ProcessDecls-TTImp-processTTImpFile arg-3 arg-4 arg-5 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (let ((act-26 ((Directory-Core-pathToNS (let ((sc4 arg-6)) (let ((e-0 (vector-ref sc4 1))) e-0)) (let ((sc4 arg-6)) (let ((e-10 (vector-ref sc4 2))) e-10)) arg-1) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Directory-Core-makeBuildDirectory arg-3 e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (Directory-Core-getTTCFileName arg-3 arg-1 "ttc" eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (Binary-Core-writeToTTC 'erased (vector 0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (lambda (eta-1) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-5886 arg-5887 eta-1)))) (lambda (arg-5888) (lambda (arg-5889) (lambda (eta-1) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-5888 arg-5889 eta-1))))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2106 eta-1))))) arg-3 arg-5 (vector 0 ) e-9 eta-0)))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-29 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-29 (arg-3664 eta-1))) ((arg-3665 act-29) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Written TTC") eta-0))) (vector 1 act-29)))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Processing as TTImp") eta-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (ProcessDecls-TTImp-processTTImpFile arg-3 arg-4 arg-5 arg-1 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (let ((act-26 ((Directory-Core-pathToNS (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0)) (let ((sc3 arg-6)) (let ((e-1 (vector-ref sc3 2))) e-1)) arg-1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Directory-Core-makeBuildDirectory arg-3 e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (Directory-Core-getTTCFileName arg-3 arg-1 "ttc" eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (Binary-Core-writeToTTC 'erased (vector 0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (lambda (eta-1) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-5886 arg-5887 eta-1)))) (lambda (arg-5888) (lambda (arg-5889) (lambda (eta-1) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-5888 arg-5889 eta-1))))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2106 eta-1))))) arg-3 arg-5 (vector 0 ) e-9 eta-0)))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-29 (arg-3664 eta-1))) ((arg-3665 act-29) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Written TTC") eta-0))) (vector 1 act-29)))))))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))) +(define Main-Yaffle-case--10412-7988 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (cond ((equal? sc1 "ttc") (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "Processing as TTC") eta-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2124 eta-1)))) arg-3 arg-5 0 (FC-Core-emptyFC) 0 arg-1 (vector 0 ) (vector 0 ) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-26 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-26 (arg-3672 eta-1))) ((arg-3673 act-26) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "Read TTC") eta-0))) (vector 1 act-26))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "Processing as TTImp") eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (ProcessDecls-TTImp-processTTImpFile arg-3 arg-4 arg-5 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (let ((act-26 ((Directory-Core-pathToNS (let ((sc4 arg-6)) (let ((e-0 (vector-ref sc4 1))) e-0)) (let ((sc4 arg-6)) (let ((e-10 (vector-ref sc4 2))) e-10)) arg-1) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Directory-Core-makeBuildDirectory arg-3 e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (Directory-Core-getTTCFileName arg-3 arg-1 "ttc" eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (Binary-Core-writeToTTC 'erased (vector 0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (lambda (eta-1) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-6290 arg-6291 eta-1)))) (lambda (arg-6292) (lambda (arg-6293) (lambda (eta-1) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-6292 arg-6293 eta-1))))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2124 eta-1))))) arg-3 arg-5 (vector 0 ) e-9 eta-0)))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-29 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-29 (arg-3672 eta-1))) ((arg-3673 act-29) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "Written TTC") eta-0))) (vector 1 act-29)))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "Processing as TTImp") eta-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (ProcessDecls-TTImp-processTTImpFile arg-3 arg-4 arg-5 arg-1 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (let ((act-26 ((Directory-Core-pathToNS (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0)) (let ((sc3 arg-6)) (let ((e-1 (vector-ref sc3 2))) e-1)) arg-1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Directory-Core-makeBuildDirectory arg-3 e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (Directory-Core-getTTCFileName arg-3 arg-1 "ttc" eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (Binary-Core-writeToTTC 'erased (vector 0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (lambda (eta-1) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-6290 arg-6291 eta-1)))) (lambda (arg-6292) (lambda (arg-6293) (lambda (eta-1) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-6292 arg-6293 eta-1))))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2124 eta-1))))) arg-3 arg-5 (vector 0 ) e-9 eta-0)))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-29 (arg-3672 eta-1))) ((arg-3673 act-29) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "Written TTC") eta-0))) (vector 1 act-29)))))))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))) (define Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 (lambda (arg-0 arg-1 ext-0) (vector 1 (vector 0 )))) (define Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 (lambda (arg-0 arg-1 ext-0) (vector 1 (vector 0 )))) -(define Main-Yaffle-__Impl_HasNames_C-40C-124UnitC-44MkUnitC-124C-41 (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (lambda (eta-0) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-5886 arg-5887 eta-0)))) (lambda (arg-5888) (lambda (arg-5889) (lambda (eta-0) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-5888 arg-5889 eta-0))))))) -(define Main-Yaffle-yaffleMain (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-initDefs ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Context-Core-getDirs e-6 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 ((Main-Yaffle-processArgs arg-1) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Context-Core-setLogTimings e-6 e-10 ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 ((InitPrimitives-Core-addPrimitives e-6) ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 ((Main-Yaffle-case--10406-7980 arg-1 arg-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (Path-Utils-extension arg-0)) ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-33 (let ((act-33 (unbox e-8))) (vector 1 act-33)))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (REPL-Yaffle-repl e-6 e-7 e-8 ext-0))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Main-Yaffle-__Impl_HasNames_C-40C-124UnitC-44MkUnitC-124C-41 (lambda () (vector 0 (lambda (arg-6290) (lambda (arg-6291) (lambda (eta-0) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-6290 arg-6291 eta-0)))) (lambda (arg-6292) (lambda (arg-6293) (lambda (eta-0) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-6292 arg-6293 eta-0))))))) +(define Main-Yaffle-yaffleMain (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-initDefs ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Context-Core-getDirs e-6 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 ((Main-Yaffle-processArgs arg-1) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Context-Core-setLogTimings e-6 e-10 ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 ((InitPrimitives-Core-addPrimitives e-6) ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 ((Main-Yaffle-case--10412-7988 arg-1 arg-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (Path-Utils-extension arg-0)) ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-33 (let ((act-33 (unbox e-8))) (vector 1 act-33)))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (REPL-Yaffle-repl e-6 e-7 e-8 ext-0))))))))))))))))))))))))))))))))))))))))))))))))))) (define Main-Yaffle-usage (lambda () "Usage: yaffle [--timing]")) -(define Main-Yaffle-processArgs (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 "--timing") (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Main-Yaffle-usage)) eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0)))) (vector 1 act-24)))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Main-Yaffle-usage)) eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0)))) (vector 1 act-24)))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Main-Yaffle-usage)) eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0)))) (vector 1 act-24)))))))) -(define System-case--1881-7409 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 ))))) (else (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 1 (Prelude-prim__getString arg-3)))))))))) +(define Main-Yaffle-processArgs (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 "--timing") (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Main-Yaffle-usage)) eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 1 1 (vector 0 ))) eta-0)))) (vector 1 act-24)))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Main-Yaffle-usage)) eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 1 1 (vector 0 ))) eta-0)))) (vector 1 act-24)))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Main-Yaffle-usage)) eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 1 1 (vector 0 ))) eta-0)))) (vector 1 act-24)))))))) +(define System-case--1883-7417 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 ))))) (else (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 1 (Prelude-prim__getString arg-3)))))))))) (define System-system (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (System-prim_system arg-2 eta-0))))))) -(define System-getEnv (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (System-prim_getEnv arg-2 eta-0)))))) (lambda (env) (System-case--1881-7409 'erased arg-1 arg-2 env (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased env)) 0)))))))) +(define System-getEnv (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (System-prim_getEnv arg-2 eta-0)))))) (lambda (env) (System-case--1883-7417 'erased arg-1 arg-2 env (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased env)) 0)))))))) (define System-getArgs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (System-prim__getArgs eta-0))))))) (define System-exitWith (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (Builtin-believe_me 'erased 'erased (lambda (eta-0) (System-prim_exit 0 eta-0))))))) (else (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (Builtin-believe_me 'erased 'erased (lambda (eta-0) (System-prim_exit e-0 eta-0)))))))))))) -(define Strings-Data-with--2055-6529 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (cond ((equal? sc0 "") (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (vector 0 ))(else (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((sc2 e-0)) (cond ((equal? sc2 #\+) (Prelude-map_Functor__Maybe 'erased 'erased (let ((sc3 arg-1)) (let ((e-3 (vector-ref sc3 3))) (lambda (arg-5) (e-3 arg-5)))) (Strings-Data-parseNumWithoutSign (Prelude-unpack e-1) 0)))(else (Strings-Data-case--2057-6559 'erased arg-1 arg-2 e-1 e-0 (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Char e-0 #\0) (lambda () (Prelude-C-60C-61_Ord__Char e-0 #\9))))))))))))))(else (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (cond ((equal? sc1 #\+) (Prelude-map_Functor__Maybe 'erased 'erased (let ((sc2 arg-1)) (let ((e-3 (vector-ref sc2 3))) (lambda (arg-5) (e-3 arg-5)))) (Strings-Data-parseNumWithoutSign (Prelude-unpack e-1) 0)))(else (Strings-Data-case--2057-6559 'erased arg-1 arg-2 e-1 e-0 (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Char e-0 #\0) (lambda () (Prelude-C-60C-61_Ord__Char e-0 #\9))))))))))))))) -(define Strings-Data-case--2057-6559 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Prelude-map_Functor__Maybe 'erased 'erased (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 3))) (lambda (arg-6) (e-3 arg-6)))) (Strings-Data-parseNumWithoutSign (Prelude-unpack arg-3) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int (Prelude-ord arg-4) (Prelude-ord #\0)))))) (else (vector 0 )))))) -(define Strings-Data-case--1998-6494 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Strings-Data-parseNumWithoutSign arg-1 (+ (* arg-2 10) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int (Prelude-ord arg-0) (Prelude-ord #\0)))))) (else (vector 0 )))))) -(define Strings-Data-case--1911-6389 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (Prelude-pack e-2) (Prelude-pack e-3))))))) -(define Strings-Data-case--1869-6344 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Strings-Data-n--1867-6334-ltrimChars arg-0 arg-2)) (else (vector 1 arg-1 arg-2)))))) -(define Strings-Data-case--1800-6282 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (Strings-Data-linesC-39 e-3))))))) -(define Strings-Data-case--1792-6268 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc1 2))) (Strings-Data-linesC-39 e-4))))))))))) -(define Strings-Data-case--1731-6208 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (Strings-Data-wordsC-39 e-3))))))) -(define Strings-Data-case--1726-6195 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (Strings-Data-case--1731-6208 arg-0 arg-1 (List-Data-break 'erased (lambda (eta-0) (Prelude-isSpace eta-0)) arg-1))))))) -(define Strings-Data-n--1713-6179-toFArgs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector "String" ) e-2 (Strings-Data-n--1713-6179-toFArgs arg-0 e-3))))))))) -(define Strings-Data-n--2048-6527-parsePosTrimmed (lambda (arg-0 arg-1 arg-2 arg-3) (Strings-Data-with--2055-6529 'erased arg-1 arg-3 arg-3 (Strings-Data-strM arg-3)))) -(define Strings-Data-n--1867-6334-ltrimChars (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Data-case--1869-6344 arg-0 e-2 e-3 (Prelude-isSpace e-2))))))))) -(define Strings-Data-n--1766-6230-addSpace (lambda (arg-0 arg-1 arg-2) (List-Prelude-C-43C-43 'erased arg-1 (vector 1 #\ arg-2)))) -(define Strings-Data-wordsC-39 (lambda (arg-0) (Strings-Data-case--1726-6195 arg-0 (List-Data-dropWhile 'erased (lambda (eta-0) (Prelude-isSpace eta-0)) arg-0)))) +(define Strings-Data-with--2136-6619 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (cond ((equal? sc0 "") (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (vector 0 ))(else (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (Strings-Data-case--2138-6632 'erased arg-1 arg-2 e-1 e-0 (Prelude-C-61C-61_Eq__Char e-0 #\-)))))))))(else (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Strings-Data-case--2138-6632 'erased arg-1 arg-2 e-1 e-0 (Prelude-C-61C-61_Eq__Char e-0 #\-)))))))))) +(define Strings-Data-with--2057-6537 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (cond ((equal? sc0 "") (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (vector 0 ))(else (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((sc2 e-0)) (cond ((equal? sc2 #\+) (Prelude-map_Functor__Maybe 'erased 'erased (let ((sc3 arg-1)) (let ((e-3 (vector-ref sc3 3))) (lambda (arg-5) (e-3 arg-5)))) (Strings-Data-parseNumWithoutSign (Prelude-unpack e-1) 0)))(else (Strings-Data-case--2059-6567 'erased arg-1 arg-2 e-1 e-0 (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Char e-0 #\0) (lambda () (Prelude-C-60C-61_Ord__Char e-0 #\9))))))))))))))(else (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (cond ((equal? sc1 #\+) (Prelude-map_Functor__Maybe 'erased 'erased (let ((sc2 arg-1)) (let ((e-3 (vector-ref sc2 3))) (lambda (arg-5) (e-3 arg-5)))) (Strings-Data-parseNumWithoutSign (Prelude-unpack e-1) 0)))(else (Strings-Data-case--2059-6567 'erased arg-1 arg-2 e-1 e-0 (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Char e-0 #\0) (lambda () (Prelude-C-60C-61_Ord__Char e-0 #\9))))))))))))))) +(define Strings-Data-case--2196-6716 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Prelude-map_Functor__Maybe 'erased 'erased (let ((sc1 (Builtin-fst 'erased 'erased arg-1))) (let ((e-3 (vector-ref sc1 3))) (lambda (arg-6) (e-3 arg-6)))) (Strings-Data-parseNumWithoutSign (Prelude-unpack arg-3) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int (Prelude-ord arg-4) (Prelude-ord #\0)))))) (else (vector 0 )))))) +(define Strings-Data-case--2152-6672 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Prelude-map_Functor__Maybe 'erased 'erased (let ((sc1 (Builtin-fst 'erased 'erased arg-1))) (let ((e-3 (vector-ref sc1 3))) (lambda (arg-6) (e-3 arg-6)))) (Strings-Data-parseNumWithoutSign (Prelude-unpack arg-3) (Prelude-cast_Cast__Int_Integer 0)))) (else (Strings-Data-case--2196-6716 'erased arg-1 arg-2 arg-3 arg-4 (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Char arg-4 #\0) (lambda () (Prelude-C-60C-61_Ord__Char arg-4 #\9))))))))) +(define Strings-Data-case--2138-6632 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (y) (let ((sc1 (Builtin-snd 'erased 'erased arg-1))) (let ((e-2 (vector-ref sc1 2))) (e-2 (let ((sc2 (Builtin-fst 'erased 'erased arg-1))) (let ((e-4 (vector-ref sc2 3))) (e-4 y))))))) (Strings-Data-parseNumWithoutSign (Prelude-unpack arg-3) 0))) (else (Strings-Data-case--2152-6672 'erased arg-1 arg-2 arg-3 arg-4 (Prelude-C-61C-61_Eq__Char arg-4 #\+))))))) +(define Strings-Data-case--2059-6567 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Prelude-map_Functor__Maybe 'erased 'erased (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 3))) (lambda (arg-6) (e-3 arg-6)))) (Strings-Data-parseNumWithoutSign (Prelude-unpack arg-3) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int (Prelude-ord arg-4) (Prelude-ord #\0)))))) (else (vector 0 )))))) +(define Strings-Data-case--2000-6502 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Strings-Data-parseNumWithoutSign arg-1 (+ (* arg-2 10) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int (Prelude-ord arg-0) (Prelude-ord #\0)))))) (else (vector 0 )))))) +(define Strings-Data-case--1913-6397 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (Prelude-pack e-2) (Prelude-pack e-3))))))) +(define Strings-Data-case--1871-6352 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Strings-Data-n--1869-6342-ltrimChars arg-0 arg-2)) (else (vector 1 arg-1 arg-2)))))) +(define Strings-Data-case--1802-6290 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (Strings-Data-linesC-39 e-3))))))) +(define Strings-Data-case--1794-6276 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc1 2))) (Strings-Data-linesC-39 e-4))))))))))) +(define Strings-Data-case--1733-6216 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (Strings-Data-wordsC-39 e-3))))))) +(define Strings-Data-case--1728-6203 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (Strings-Data-case--1733-6216 arg-0 arg-1 (List-Data-break 'erased (lambda (eta-0) (Prelude-isSpace eta-0)) arg-1))))))) +(define Strings-Data-n--1715-6187-toFArgs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector "String" ) e-2 (Strings-Data-n--1715-6187-toFArgs arg-0 e-3))))))))) +(define Strings-Data-n--2050-6535-parsePosTrimmed (lambda (arg-0 arg-1 arg-2 arg-3) (Strings-Data-with--2057-6537 'erased arg-1 arg-3 arg-3 (Strings-Data-strM arg-3)))) +(define Strings-Data-n--2129-6617-parseIntTrimmed (lambda (arg-0 arg-1 arg-2 arg-3) (Strings-Data-with--2136-6619 'erased arg-1 arg-3 arg-3 (Strings-Data-strM arg-3)))) +(define Strings-Data-n--1869-6342-ltrimChars (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Data-case--1871-6352 arg-0 e-2 e-3 (Prelude-isSpace e-2))))))))) +(define Strings-Data-n--1768-6238-addSpace (lambda (arg-0 arg-1 arg-2) (List-Prelude-C-43C-43 'erased arg-1 (vector 1 #\ arg-2)))) +(define Strings-Data-wordsC-39 (lambda (arg-0) (Strings-Data-case--1728-6203 arg-0 (List-Data-dropWhile 'erased (lambda (eta-0) (Prelude-isSpace eta-0)) arg-0)))) (define Strings-Data-words (lambda (arg-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-pack eta-0)) (Strings-Data-wordsC-39 (Prelude-unpack arg-0))))) -(define Strings-Data-unwordsC-39 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (Strings-Data-foldr1 'erased (lambda (eta-0) (lambda (eta-1) (Strings-Data-n--1766-6230-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--1768-6238-addSpace arg-0 eta-0 eta-1))) arg-0)))))) (define Strings-Data-unwords (lambda (ext-0) (Prelude-pack (Strings-Data-unwordsC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-unpack eta-0)) ext-0))))) (define Strings-Data-unlinesC-39 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Prelude-C-43C-43 'erased e-2 (vector 1 (integer->char 10) (Strings-Data-unlinesC-39 e-3)))))))))) (define Strings-Data-unlines (lambda (ext-0) (Prelude-pack (Strings-Data-unlinesC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-unpack eta-0)) ext-0))))) @@ -499,65 +504,66 @@ (define Strings-Data-strM (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "") (vector 0 ))(else (Builtin-believe_me 'erased 'erased (vector 1 (string-ref arg-0 0) (substring arg-0 1 (string-length arg-0))))))))) (define Strings-Data-strIndex (lambda (ext-0 ext-1) (string-ref ext-0 ext-1))) (define Strings-Data-split (lambda (arg-0 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-pack eta-0)) (List-Data-split 'erased arg-0 (Prelude-unpack arg-1))))) -(define Strings-Data-span (lambda (arg-0 arg-1) (Strings-Data-case--1911-6389 arg-1 arg-0 (List-Data-span 'erased arg-0 (Prelude-unpack arg-1))))) +(define Strings-Data-span (lambda (arg-0 arg-1) (Strings-Data-case--1913-6397 arg-1 arg-0 (List-Data-span 'erased arg-0 (Prelude-unpack arg-1))))) (define Strings-Data-singleton (lambda (arg-0) (Prelude-strCons arg-0 ""))) -(define Strings-Data-parsePositive (lambda (arg-0 arg-1 arg-2) (Strings-Data-n--2048-6527-parsePosTrimmed 'erased arg-1 arg-2 (Strings-Data-trim arg-2)))) -(define Strings-Data-parseNumWithoutSign (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 1 arg-1)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Data-case--1998-6494 e-2 e-3 arg-1 (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Char e-2 #\0) (lambda () (Prelude-C-60C-61_Ord__Char e-2 #\9))))))))))) -(define Strings-Data-ltrim (lambda (arg-0) (Prelude-pack (Strings-Data-n--1867-6334-ltrimChars arg-0 (Prelude-unpack arg-0))))) -(define Strings-Data-linesC-39 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (Strings-Data-case--1792-6268 arg-0 (List-Data-break 'erased (lambda (eta-0) (Prelude-isNL eta-0)) arg-0))))))) +(define Strings-Data-parsePositive (lambda (arg-0 arg-1 arg-2) (Strings-Data-n--2050-6535-parsePosTrimmed 'erased arg-1 arg-2 (Strings-Data-trim arg-2)))) +(define Strings-Data-parseNumWithoutSign (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 1 arg-1)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Data-case--2000-6502 e-2 e-3 arg-1 (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Char e-2 #\0) (lambda () (Prelude-C-60C-61_Ord__Char e-2 #\9))))))))))) +(define Strings-Data-parseInteger (lambda (arg-0 arg-1 arg-2) (Strings-Data-n--2129-6617-parseIntTrimmed 'erased arg-1 arg-2 (Strings-Data-trim arg-2)))) +(define Strings-Data-ltrim (lambda (arg-0) (Prelude-pack (Strings-Data-n--1869-6342-ltrimChars arg-0 (Prelude-unpack arg-0))))) +(define Strings-Data-linesC-39 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (Strings-Data-case--1794-6276 arg-0 (List-Data-break 'erased (lambda (eta-0) (Prelude-isNL eta-0)) arg-0))))))) (define Strings-Data-lines (lambda (arg-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-pack eta-0)) (Strings-Data-linesC-39 (Prelude-unpack arg-0))))) -(define Strings-Data-isSuffixOf (lambda (arg-0 arg-1) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Char arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Char arg-430 arg-431)))) (Prelude-unpack arg-0) (Prelude-unpack arg-1)))) -(define Strings-Data-isPrefixOf (lambda (arg-0 arg-1) (List-Data-isPrefixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Char arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Char arg-430 arg-431)))) (Prelude-unpack arg-0) (Prelude-unpack arg-1)))) +(define Strings-Data-isSuffixOf (lambda (arg-0 arg-1) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Char arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Char arg-438 arg-439)))) (Prelude-unpack arg-0) (Prelude-unpack arg-1)))) +(define Strings-Data-isPrefixOf (lambda (arg-0 arg-1) (List-Data-isPrefixOf 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Char arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Char arg-438 arg-439)))) (Prelude-unpack arg-0) (Prelude-unpack arg-1)))) (define Strings-Data-foldr1 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) e-1)(else ((arg-1 e-1) (Strings-Data-foldr1 'erased arg-1 e-2))))))))(else (Builtin-idris_crash 'erased "Unhandled input for Data.Strings.foldr1 at Data/Strings.idr:11:1--12:1")))))) -(define Strings-Data-fastAppend (lambda (arg-0) (PrimIO-unsafePerformIO 'erased (lambda (eta-0) (apply string-append (blodwen-read-args (Strings-Data-n--1713-6179-toFArgs arg-0 arg-0))))))) +(define Strings-Data-fastAppend (lambda (arg-0) (PrimIO-unsafePerformIO 'erased (lambda (eta-0) (apply string-append (blodwen-read-args (Strings-Data-n--1715-6187-toFArgs arg-0 arg-0))))))) (define Strings-Data-break (lambda (arg-0 ext-0) (Strings-Data-span (lambda (eta-0) (Prelude-not (arg-0 eta-0))) ext-0))) -(define List-Data-with--4578-6063 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (lambda (eq) (List-Data-lemma_x_neq_xs_eq 'erased arg-5 arg-2 arg-6 arg-2 arg-7 (vector 0 ) eq)))))) (else (let ((e-3 (vector-ref sc0 1))) (vector 1 (lambda (eq) (List-Data-lemma_x_neq_xs_neq 'erased arg-5 arg-3 arg-6 arg-2 arg-7 e-3 eq))))))))) -(define List-Data-with--4578-6004 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 0 (vector 0 ))))) (else (let ((e-3 (vector-ref sc0 1))) (vector 1 (lambda (eq) (List-Data-lemma_x_eq_xs_neq 'erased arg-5 arg-3 arg-5 arg-2 (vector 0 ) e-3 eq))))))))) -(define List-Data-with--4503-5981 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (List-Data-with--4578-6004 'erased arg-1 arg-6 arg-5 (List-Data-decEq_DecEq__C-40ListC-32C-36aC-41 'erased arg-1 arg-5 arg-6) arg-2)))) (else (let ((e-3 (vector-ref sc0 1))) (List-Data-with--4578-6063 'erased arg-1 arg-6 arg-5 (List-Data-decEq_DecEq__C-40ListC-32C-36aC-41 'erased arg-1 arg-5 arg-6) arg-2 arg-3 e-3))))))) -(define List-Data-case--3961-5390 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (List-Data-isPrefixOfBy 'erased arg-5 arg-2 arg-4)) (else 1))))) -(define List-Data-case--3852-5323 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-mergeBy 'erased arg-2 (List-Data-sortBy 'erased arg-2 e-2) (List-Data-sortBy 'erased arg-2 e-3))))))) -(define List-Data-case--3749-5176 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 1 arg-1 (List-Data-mergeBy 'erased arg-5 arg-2 (vector 1 arg-3 arg-4))))(else (vector 1 arg-3 (List-Data-mergeBy 'erased arg-5 (vector 1 arg-1 arg-2) arg-4))))))) -(define List-Data-case--3490-4912 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (List-Data-mapMaybe 'erased 'erased arg-4 arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 (List-Data-mapMaybe 'erased 'erased arg-4 arg-3)))))))) -(define List-Data-case--2848-4306 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) arg-3) (else arg-5))))) -(define List-Data-case--2549-4021 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (vector 1 e-2 (vector 0 ))) (else (let ((e-7 (vector-ref sc1 2))) (vector 1 e-2 (List-Data-split 'erased arg-2 e-7))))))))))) -(define List-Data-case--2466-3947 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-3 e-2) e-3)))))) -(define List-Data-case--2440-3927 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (List-Data-case--2466-3947 'erased arg-2 arg-3 arg-1 (List-Data-span 'erased arg-3 arg-2))) (else (vector 0 (vector 0 ) (vector 1 arg-1 arg-2))))))) -(define List-Data-case--2332-3808 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) arg-3) (else (vector 1 arg-2 (List-Data-deleteBy 'erased arg-4 arg-1 arg-3))))))) -(define List-Data-case--2267-3725 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (List-Data-n--2263-3707-nubByC-39 'erased arg-4 arg-3 arg-2)) (else (vector 1 arg-1 (List-Data-n--2263-3707-nubByC-39 'erased (vector 1 arg-1 arg-4) arg-3 arg-2))))))) -(define List-Data-case--2197-3662 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) 0) (else (List-Data-elemBy 'erased arg-4 arg-1 arg-3)))))) -(define List-Data-case--2091-3561 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 1 arg-6)) (else (List-Data-lookupBy 'erased 'erased arg-3 arg-4 arg-2)))))) -(define List-Data-case--2060-3537 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((x (vector 0 e-2 e-3))) (List-Data-case--2091-3561 'erased 'erased arg-4 arg-5 arg-2 e-2 e-3 x ((arg-5 arg-2) e-2)))))))) -(define List-Data-case--2005-3472 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (List-Data-find 'erased arg-3 arg-2)))))) -(define List-Data-case--1949-3417 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 arg-1 (List-Data-filter 'erased arg-3 arg-2))) (else (List-Data-filter 'erased arg-3 arg-2)))))) -(define List-Data-case--1894-3363 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (List-Data-dropWhile 'erased arg-3 arg-2)) (else (vector 1 arg-1 arg-2)))))) -(define List-Data-n--4088-5499-spreadHeads (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 1 e-2 (vector 0 )) (List-Data-n--4088-5499-spreadHeads 'erased arg-1 arg-2 e-3 (vector 0 )))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 1 e-2 e-6) (List-Data-n--4088-5499-spreadHeads 'erased arg-1 arg-2 e-3 e-7)))))))))))))) -(define List-Data-n--3852-5273-splitRec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (List-Data-n--3852-5273-splitRec 'erased arg-1 arg-2 'erased e-5 e-8 (lambda (eta-0) (arg-6 (vector 1 e-7 eta-0)))))))(else (vector 0 arg-5 (arg-6 (vector 0 ))))))))(else (vector 0 arg-5 (arg-6 (vector 0 ))))))))(else (vector 0 arg-5 (arg-6 (vector 0 )))))))) -(define List-Data-n--3852-5274-split (lambda (arg-0 arg-1 arg-2 arg-3) (List-Data-n--3852-5273-splitRec 'erased arg-1 arg-2 'erased arg-3 arg-3 (lambda (eta-0) eta-0)))) -(define List-Data-n--2263-3707-nubByC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--2267-3725 'erased e-2 e-3 arg-2 arg-1 (List-Data-elemBy 'erased arg-2 e-2 arg-1))))))))) -(define List-Data-decEq_DecEq__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (vector 0 (vector 0 ))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (lambda (eta-0) (Equality-Decidable-negEqSym 'erased 'erased 'erased (lambda (eta-1) (List-Data-lemma_val_not_nil 'erased e-6 e-7 eta-1)) eta-0))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (vector 1 (lambda (eta-0) (List-Data-lemma_val_not_nil 'erased e-2 e-3 eta-0)))) (else (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (List-Data-with--4503-5981 'erased arg-1 e-2 e-10 ((arg-1 e-2) e-10) e-3 e-11))))))))))))) +(define List-Data-with--4580-6071 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (lambda (eq) (List-Data-lemma_x_neq_xs_eq 'erased arg-5 arg-2 arg-6 arg-2 arg-7 (vector 0 ) eq)))))) (else (let ((e-3 (vector-ref sc0 1))) (vector 1 (lambda (eq) (List-Data-lemma_x_neq_xs_neq 'erased arg-5 arg-3 arg-6 arg-2 arg-7 e-3 eq))))))))) +(define List-Data-with--4580-6012 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 0 (vector 0 ))))) (else (let ((e-3 (vector-ref sc0 1))) (vector 1 (lambda (eq) (List-Data-lemma_x_eq_xs_neq 'erased arg-5 arg-3 arg-5 arg-2 (vector 0 ) e-3 eq))))))))) +(define List-Data-with--4505-5989 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (List-Data-with--4580-6012 'erased arg-1 arg-6 arg-5 (List-Data-decEq_DecEq__C-40ListC-32C-36aC-41 'erased arg-1 arg-5 arg-6) arg-2)))) (else (let ((e-3 (vector-ref sc0 1))) (List-Data-with--4580-6071 'erased arg-1 arg-6 arg-5 (List-Data-decEq_DecEq__C-40ListC-32C-36aC-41 'erased arg-1 arg-5 arg-6) arg-2 arg-3 e-3))))))) +(define List-Data-case--3963-5398 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (List-Data-isPrefixOfBy 'erased arg-5 arg-2 arg-4)) (else 1))))) +(define List-Data-case--3854-5331 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-mergeBy 'erased arg-2 (List-Data-sortBy 'erased arg-2 e-2) (List-Data-sortBy 'erased arg-2 e-3))))))) +(define List-Data-case--3751-5184 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 1 arg-1 (List-Data-mergeBy 'erased arg-5 arg-2 (vector 1 arg-3 arg-4))))(else (vector 1 arg-3 (List-Data-mergeBy 'erased arg-5 (vector 1 arg-1 arg-2) arg-4))))))) +(define List-Data-case--3492-4920 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (List-Data-mapMaybe 'erased 'erased arg-4 arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 (List-Data-mapMaybe 'erased 'erased arg-4 arg-3)))))))) +(define List-Data-case--2850-4314 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) arg-3) (else arg-5))))) +(define List-Data-case--2551-4029 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (vector 1 e-2 (vector 0 ))) (else (let ((e-7 (vector-ref sc1 2))) (vector 1 e-2 (List-Data-split 'erased arg-2 e-7))))))))))) +(define List-Data-case--2468-3955 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-3 e-2) e-3)))))) +(define List-Data-case--2442-3935 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (List-Data-case--2468-3955 'erased arg-2 arg-3 arg-1 (List-Data-span 'erased arg-3 arg-2))) (else (vector 0 (vector 0 ) (vector 1 arg-1 arg-2))))))) +(define List-Data-case--2334-3816 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) arg-3) (else (vector 1 arg-2 (List-Data-deleteBy 'erased arg-4 arg-1 arg-3))))))) +(define List-Data-case--2269-3733 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (List-Data-n--2265-3715-nubByC-39 'erased arg-4 arg-3 arg-2)) (else (vector 1 arg-1 (List-Data-n--2265-3715-nubByC-39 'erased (vector 1 arg-1 arg-4) arg-3 arg-2))))))) +(define List-Data-case--2199-3670 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) 0) (else (List-Data-elemBy 'erased arg-4 arg-1 arg-3)))))) +(define List-Data-case--2093-3569 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 1 arg-6)) (else (List-Data-lookupBy 'erased 'erased arg-3 arg-4 arg-2)))))) +(define List-Data-case--2062-3545 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((x (vector 0 e-2 e-3))) (List-Data-case--2093-3569 'erased 'erased arg-4 arg-5 arg-2 e-2 e-3 x ((arg-5 arg-2) e-2)))))))) +(define List-Data-case--2007-3480 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (List-Data-find 'erased arg-3 arg-2)))))) +(define List-Data-case--1951-3425 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 arg-1 (List-Data-filter 'erased arg-3 arg-2))) (else (List-Data-filter 'erased arg-3 arg-2)))))) +(define List-Data-case--1896-3371 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (List-Data-dropWhile 'erased arg-3 arg-2)) (else (vector 1 arg-1 arg-2)))))) +(define List-Data-n--4090-5507-spreadHeads (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 1 e-2 (vector 0 )) (List-Data-n--4090-5507-spreadHeads 'erased arg-1 arg-2 e-3 (vector 0 )))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 1 e-2 e-6) (List-Data-n--4090-5507-spreadHeads 'erased arg-1 arg-2 e-3 e-7)))))))))))))) +(define List-Data-n--3854-5281-splitRec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (List-Data-n--3854-5281-splitRec 'erased arg-1 arg-2 'erased e-5 e-8 (lambda (eta-0) (arg-6 (vector 1 e-7 eta-0)))))))(else (vector 0 arg-5 (arg-6 (vector 0 ))))))))(else (vector 0 arg-5 (arg-6 (vector 0 ))))))))(else (vector 0 arg-5 (arg-6 (vector 0 )))))))) +(define List-Data-n--3854-5282-split (lambda (arg-0 arg-1 arg-2 arg-3) (List-Data-n--3854-5281-splitRec 'erased arg-1 arg-2 'erased arg-3 arg-3 (lambda (eta-0) eta-0)))) +(define List-Data-n--2265-3715-nubByC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--2269-3733 'erased e-2 e-3 arg-2 arg-1 (List-Data-elemBy 'erased arg-2 e-2 arg-1))))))))) +(define List-Data-decEq_DecEq__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (vector 0 (vector 0 ))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (lambda (eta-0) (Equality-Decidable-negEqSym 'erased 'erased 'erased (lambda (eta-1) (List-Data-lemma_val_not_nil 'erased e-6 e-7 eta-1)) eta-0))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (vector 1 (lambda (eta-0) (List-Data-lemma_val_not_nil 'erased e-2 e-3 eta-0)))) (else (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (List-Data-with--4505-5989 'erased arg-1 e-2 e-10 ((arg-1 e-2) e-10) e-3 e-11))))))))))))) (define List-Data-__Impl_DecEq_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 ext-0 ext-1) (List-Data-decEq_DecEq__C-40ListC-32C-36aC-41 'erased arg-1 ext-0 ext-1))) (define List-Data-zipWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-5)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (vector 1 ((arg-3 e-1) e-4) (List-Data-zipWith 'erased 'erased 'erased arg-3 e-2 e-5)))))))))))))))) (define List-Data-zip (lambda (arg-0 arg-1 ext-0 ext-1) (List-Data-zipWith 'erased 'erased 'erased (lambda (x) (lambda (y) (vector 0 x y))) ext-0 ext-1))) (define List-Data-unionBy (lambda (arg-0 arg-1 arg-2 arg-3) (List-Prelude-C-43C-43 'erased arg-2 (Prelude-foldl_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Basics-Prelude-flip 'erased 'erased 'erased (lambda (eta-2) (lambda (eta-3) (List-Data-deleteBy 'erased arg-1 eta-2 eta-3))) eta-0 eta-1))) (List-Data-nubBy 'erased arg-1 arg-3) arg-2)))) (define List-Data-union (lambda (arg-0 arg-1 ext-0 ext-1) (List-Data-unionBy 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (lambda (arg-3) ((e-1 arg-2) arg-3))))) ext-0 ext-1))) -(define List-Data-transpose (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-n--4088-5499-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--4090-5507-spreadHeads 'erased e-2 e-3 e-2 (List-Data-transpose 'erased e-3))))))))) (define List-Data-toList (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-3) (((((e-1 'erased) 'erased) (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1)))) (vector 0 )) arg-3)))))) (define List-Data-take (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 ))(else (let ((e-0 (- arg-1 1))) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (vector 1 e-3 (List-Data-take 'erased e-0 e-4))))))))))))) (define List-Data-tailC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 e-3))))))) -(define List-Data-split (lambda (arg-0 arg-1 arg-2) (List-Data-case--2549-4021 'erased arg-2 arg-1 (List-Data-break 'erased arg-1 arg-2)))) -(define List-Data-span (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--2440-3927 'erased e-2 e-3 arg-1 (arg-1 e-2))))))))) -(define List-Data-sortBy (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (vector 1 e-2 (vector 0 )))(else (List-Data-case--3852-5323 'erased arg-2 arg-1 (List-Data-n--3852-5274-split 'erased arg-2 arg-1 arg-2))))))))(else (List-Data-case--3852-5323 'erased arg-2 arg-1 (List-Data-n--3852-5274-split 'erased arg-2 arg-1 arg-2))))))) +(define List-Data-split (lambda (arg-0 arg-1 arg-2) (List-Data-case--2551-4029 'erased arg-2 arg-1 (List-Data-break 'erased arg-1 arg-2)))) +(define List-Data-span (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--2442-3935 'erased e-2 e-3 arg-1 (arg-1 e-2))))))))) +(define List-Data-sortBy (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (vector 1 e-2 (vector 0 )))(else (List-Data-case--3854-5331 'erased arg-2 arg-1 (List-Data-n--3854-5282-split 'erased arg-2 arg-1 arg-2))))))))(else (List-Data-case--3854-5331 'erased arg-2 arg-1 (List-Data-n--3854-5282-split 'erased arg-2 arg-1 arg-2))))))) (define List-Data-sort (lambda (arg-0 arg-1 ext-0) (List-Data-sortBy 'erased (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-2) (lambda (arg-3) ((e-2 arg-2) arg-3))))) ext-0))) (define List-Data-reverseOnto (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-reverseOnto 'erased (vector 1 e-2 arg-1) e-3)))))))) (define List-Data-reverse (lambda (arg-0 ext-0) (List-Data-reverseOnto 'erased (vector 0 ) ext-0))) (define List-Data-replicate (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 ))(else (let ((e-0 (- arg-1 1))) (vector 1 arg-2 (List-Data-replicate 'erased e-0 arg-2)))))))) -(define List-Data-replaceOn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (c) (List-Data-case--2848-4306 'erased arg-1 arg-2 arg-3 arg-4 c (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) ((e-1 c) arg-2))))) arg-4))) -(define List-Data-nubBy (lambda (arg-0 ext-0 ext-1) (List-Data-n--2263-3707-nubByC-39 'erased (vector 0 ) ext-0 ext-1))) +(define List-Data-replaceOn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (c) (List-Data-case--2850-4314 'erased arg-1 arg-2 arg-3 arg-4 c (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) ((e-1 c) arg-2))))) arg-4))) +(define List-Data-nubBy (lambda (arg-0 ext-0 ext-1) (List-Data-n--2265-3715-nubByC-39 'erased (vector 0 ) ext-0 ext-1))) (define List-Data-nub (lambda (arg-0 arg-1 ext-0) (List-Data-nubBy 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (lambda (arg-3) ((e-1 arg-2) arg-3))))) ext-0))) (define List-Data-mergeReplicate (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 arg-1 (vector 1 e-2 (List-Data-mergeReplicate 'erased arg-1 e-3)))))))))) -(define List-Data-mergeBy (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3)(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-2)(else (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (List-Data-case--3749-5176 'erased e-1 e-2 e-4 e-5 arg-1 ((arg-1 e-1) e-4)))))))))))))))) -(define List-Data-mapMaybe (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--3490-4912 'erased 'erased e-2 e-3 arg-2 (arg-2 e-2))))))))) -(define List-Data-lookupBy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((x (vector 0 e-5 e-4))) (List-Data-case--2091-3561 'erased 'erased e-3 arg-2 arg-3 e-5 e-4 x ((arg-2 arg-3) e-5))))))))))))) +(define List-Data-mergeBy (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3)(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-2)(else (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (List-Data-case--3751-5184 'erased e-1 e-2 e-4 e-5 arg-1 ((arg-1 e-1) e-4)))))))))))))))) +(define List-Data-mapMaybe (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--3492-4920 'erased 'erased e-2 e-3 arg-2 (arg-2 e-2))))))))) +(define List-Data-lookupBy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((x (vector 0 e-5 e-4))) (List-Data-case--2093-3569 'erased 'erased e-3 arg-2 arg-3 e-5 e-4 x ((arg-2 arg-3) e-5))))))))))))) (define List-Data-lookup (lambda (arg-0 arg-1 arg-2 ext-0 ext-1) (List-Data-lookupBy 'erased 'erased (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-3) (lambda (arg-4) ((e-1 arg-3) arg-4))))) ext-0 ext-1))) (define List-Data-length (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-3 (vector-ref sc0 2))) (+ 1 (List-Data-length 'erased e-3)))))))) (define List-Data-lemma_x_neq_xs_neq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (arg-5 (vector 0 ))))) @@ -568,43 +574,43 @@ (define List-Data-last (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) e-1) (else (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (List-Data-last 'erased (vector 1 e-5 e-6) (vector 0 )))))))))))) (define List-Data-isSuffixOfBy (lambda (arg-0 arg-1 arg-2 arg-3) (List-Data-isPrefixOfBy 'erased arg-1 (List-Data-reverse 'erased arg-2) (List-Data-reverse 'erased arg-3)))) (define List-Data-isSuffixOf (lambda (arg-0 arg-1 ext-0 ext-1) (List-Data-isSuffixOfBy 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (lambda (arg-3) ((e-1 arg-2) arg-3))))) ext-0 ext-1))) -(define List-Data-isPrefixOfBy (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0)(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 1)(else (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (List-Data-case--3961-5390 'erased e-1 e-2 e-4 e-5 arg-1 ((arg-1 e-1) e-4)))))))))))))))) +(define List-Data-isPrefixOfBy (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0)(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 1)(else (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (List-Data-case--3963-5398 'erased e-1 e-2 e-4 e-5 arg-1 ((arg-1 e-1) e-4)))))))))))))))) (define List-Data-isPrefixOf (lambda (arg-0 arg-1 ext-0 ext-1) (List-Data-isPrefixOfBy 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (lambda (arg-3) ((e-1 arg-2) arg-3))))) ext-0 ext-1))) (define List-Data-isNil (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) 0) (else 1))))) (define List-Data-isCons (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) 1) (else 0))))) (define List-Data-intersperse (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (List-Data-mergeReplicate 'erased arg-1 e-3))))))))) (define List-Data-init (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 0 )) (else (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (vector 1 e-1 (List-Data-init 'erased (vector 1 e-5 e-6) (vector 0 ))))))))))))) (define List-Data-headC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2))))))) -(define List-Data-find (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--2005-3472 'erased e-2 e-3 arg-1 (arg-1 e-2))))))))) -(define List-Data-filter (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--1949-3417 'erased e-2 e-3 arg-1 (arg-1 e-2))))))))) -(define List-Data-elemBy (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--2197-3662 'erased arg-2 e-2 e-3 arg-1 ((arg-1 arg-2) e-2))))))))) -(define List-Data-dropWhile (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--1894-3363 'erased e-2 e-3 arg-1 (arg-1 e-2))))))))) +(define List-Data-find (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--2007-3480 'erased e-2 e-3 arg-1 (arg-1 e-2))))))))) +(define List-Data-filter (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--1951-3425 'erased e-2 e-3 arg-1 (arg-1 e-2))))))))) +(define List-Data-elemBy (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--2199-3670 'erased arg-2 e-2 e-3 arg-1 ((arg-1 arg-2) e-2))))))))) +(define List-Data-dropWhile (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--1896-3371 'erased e-2 e-3 arg-1 (arg-1 e-2))))))))) (define List-Data-drop (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) arg-2)(else (let ((e-0 (- arg-1 1))) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 2))) (List-Data-drop 'erased e-0 e-4))))))))))) -(define List-Data-deleteBy (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--2332-3808 'erased arg-2 e-2 e-3 arg-1 ((arg-1 arg-2) e-2))))))))) +(define List-Data-deleteBy (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--2334-3816 'erased arg-2 e-2 e-3 arg-1 ((arg-1 arg-2) e-2))))))))) (define List-Data-delete (lambda (arg-0 arg-1 ext-0 ext-1) (List-Data-deleteBy 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (lambda (arg-3) ((e-1 arg-2) arg-3))))) ext-0 ext-1))) (define List-Data-break (lambda (arg-0 arg-1 arg-2) (List-Data-span 'erased (lambda (eta-0) (Prelude-not (arg-1 eta-0))) arg-2))) (define List-Data-appendNilRightNeutral (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (vector 0 )))))) (define List-Data-appendAssociative (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (vector 0 )))))) -(define Equality-Decidable-with--2192-2340 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (lambda (eq) (Equality-Decidable-lemma_fst_neq_snd_eq 'erased 'erased 'erased 'erased 'erased 'erased arg-8 (vector 0 ) eq)))))) (else (let ((e-3 (vector-ref sc0 1))) (vector 1 (lambda (eq) (Equality-Decidable-lemma_both_neq 'erased 'erased 'erased 'erased 'erased 'erased arg-8 e-3 eq))))))))) -(define Equality-Decidable-with--2192-2261 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 0 (vector 0 ))))) (else (let ((e-3 (vector-ref sc0 1))) (vector 1 (lambda (eq) (Equality-Decidable-lemma_snd_neq 'erased 'erased 'erased 'erased 'erased (vector 0 ) e-3 eq))))))))) -(define Equality-Decidable-with--2155-2232 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (Equality-Decidable-with--2192-2261 'erased 'erased arg-2 arg-6 arg-7 (((Builtin-snd 'erased 'erased arg-2) arg-6) arg-7) arg-3)))) (else (let ((e-3 (vector-ref sc0 1))) (Equality-Decidable-with--2192-2340 'erased 'erased arg-2 arg-6 arg-7 (((Builtin-snd 'erased 'erased arg-2) arg-6) arg-7) arg-3 arg-4 e-3))))))) -(define Equality-Decidable-case--2934-2987 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2934-2951-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2934-2952-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0)))))))) -(define Equality-Decidable-case--2866-2923 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2866-2887-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2866-2888-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0)))))))) -(define Equality-Decidable-case--2798-2859 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2798-2823-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2798-2824-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0)))))))) -(define Equality-Decidable-case--2730-2795 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2730-2759-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2730-2760-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0)))))))) -(define Equality-Decidable-n--2934-2952-primitiveNotEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Builtin-believe_me 'erased 'erased (vector 0 )))) -(define Equality-Decidable-n--2866-2888-primitiveNotEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Builtin-believe_me 'erased 'erased (vector 0 )))) -(define Equality-Decidable-n--2798-2824-primitiveNotEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Builtin-believe_me 'erased 'erased (vector 0 )))) -(define Equality-Decidable-n--2730-2760-primitiveNotEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Builtin-believe_me 'erased 'erased (vector 0 )))) -(define Equality-Decidable-n--2934-2951-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 )))) -(define Equality-Decidable-n--2866-2887-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 )))) -(define Equality-Decidable-n--2798-2823-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 )))) -(define Equality-Decidable-n--2730-2759-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 )))) -(define Equality-Decidable-decEq_DecEq__String (lambda (arg-0 arg-1) (Equality-Decidable-case--2934-2987 arg-1 arg-0 (Prelude-C-61C-61_Eq__String arg-0 arg-1)))) -(define Equality-Decidable-decEq_DecEq__Integer (lambda (arg-0 arg-1) (Equality-Decidable-case--2866-2923 arg-1 arg-0 (Prelude-C-61C-61_Eq__Integer arg-0 arg-1)))) -(define Equality-Decidable-decEq_DecEq__Int (lambda (arg-0 arg-1) (Equality-Decidable-case--2730-2795 arg-1 arg-0 (Prelude-C-61C-61_Eq__Int arg-0 arg-1)))) -(define Equality-Decidable-decEq_DecEq__Char (lambda (arg-0 arg-1) (Equality-Decidable-case--2798-2859 arg-1 arg-0 (Prelude-C-61C-61_Eq__Char arg-0 arg-1)))) -(define Equality-Decidable-decEq_DecEq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Equality-Decidable-with--2155-2232 'erased 'erased arg-2 e-2 e-6 (((Builtin-fst 'erased 'erased arg-2) e-2) e-6) e-3 e-7))))))))) +(define Equality-Decidable-with--2194-2348 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (lambda (eq) (Equality-Decidable-lemma_fst_neq_snd_eq 'erased 'erased 'erased 'erased 'erased 'erased arg-8 (vector 0 ) eq)))))) (else (let ((e-3 (vector-ref sc0 1))) (vector 1 (lambda (eq) (Equality-Decidable-lemma_both_neq 'erased 'erased 'erased 'erased 'erased 'erased arg-8 e-3 eq))))))))) +(define Equality-Decidable-with--2194-2269 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 0 (vector 0 ))))) (else (let ((e-3 (vector-ref sc0 1))) (vector 1 (lambda (eq) (Equality-Decidable-lemma_snd_neq 'erased 'erased 'erased 'erased 'erased (vector 0 ) e-3 eq))))))))) +(define Equality-Decidable-with--2157-2240 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (Equality-Decidable-with--2194-2269 'erased 'erased arg-2 arg-6 arg-7 (((Builtin-snd 'erased 'erased arg-2) arg-6) arg-7) arg-3)))) (else (let ((e-3 (vector-ref sc0 1))) (Equality-Decidable-with--2194-2348 'erased 'erased arg-2 arg-6 arg-7 (((Builtin-snd 'erased 'erased arg-2) arg-6) arg-7) arg-3 arg-4 e-3))))))) +(define Equality-Decidable-case--2936-2995 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2936-2959-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2936-2960-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0)))))))) +(define Equality-Decidable-case--2868-2931 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2868-2895-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2868-2896-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0)))))))) +(define Equality-Decidable-case--2800-2867 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2800-2831-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2800-2832-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0)))))))) +(define Equality-Decidable-case--2732-2803 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2732-2767-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2732-2768-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0)))))))) +(define Equality-Decidable-n--2936-2960-primitiveNotEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Builtin-believe_me 'erased 'erased (vector 0 )))) +(define Equality-Decidable-n--2868-2896-primitiveNotEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Builtin-believe_me 'erased 'erased (vector 0 )))) +(define Equality-Decidable-n--2800-2832-primitiveNotEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Builtin-believe_me 'erased 'erased (vector 0 )))) +(define Equality-Decidable-n--2732-2768-primitiveNotEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Builtin-believe_me 'erased 'erased (vector 0 )))) +(define Equality-Decidable-n--2936-2959-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 )))) +(define Equality-Decidable-n--2868-2895-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 )))) +(define Equality-Decidable-n--2800-2831-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 )))) +(define Equality-Decidable-n--2732-2767-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 )))) +(define Equality-Decidable-decEq_DecEq__String (lambda (arg-0 arg-1) (Equality-Decidable-case--2936-2995 arg-1 arg-0 (Prelude-C-61C-61_Eq__String arg-0 arg-1)))) +(define Equality-Decidable-decEq_DecEq__Integer (lambda (arg-0 arg-1) (Equality-Decidable-case--2868-2931 arg-1 arg-0 (Prelude-C-61C-61_Eq__Integer arg-0 arg-1)))) +(define Equality-Decidable-decEq_DecEq__Int (lambda (arg-0 arg-1) (Equality-Decidable-case--2732-2803 arg-1 arg-0 (Prelude-C-61C-61_Eq__Int arg-0 arg-1)))) +(define Equality-Decidable-decEq_DecEq__Char (lambda (arg-0 arg-1) (Equality-Decidable-case--2800-2867 arg-1 arg-0 (Prelude-C-61C-61_Eq__Char arg-0 arg-1)))) +(define Equality-Decidable-decEq_DecEq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Equality-Decidable-with--2157-2240 'erased 'erased arg-2 e-2 e-6 (((Builtin-fst 'erased 'erased arg-2) e-2) e-6) e-3 e-7))))))))) (define Equality-Decidable-__Impl_DecEq_String (lambda (ext-0 ext-1) (Equality-Decidable-decEq_DecEq__String ext-0 ext-1))) (define Equality-Decidable-__Impl_DecEq_Int (lambda (ext-0 ext-1) (Equality-Decidable-decEq_DecEq__Int ext-0 ext-1))) (define Equality-Decidable-__Impl_DecEq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-0 arg-1 arg-2 ext-0 ext-1) (Equality-Decidable-decEq_DecEq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 ext-0 ext-1))) @@ -617,61 +623,61 @@ (define Nat-Data-plusZeroRightNeutral (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (vector 0 ))(else (vector 0 )))))) (define Nat-Data-plusSuccRightSucc (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (vector 0 ))(else (vector 0 )))))) (define Nat-Data-isSucc (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) 1)(else 0))))) -(define Prelude-case--8976-9568 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Prelude-countFrom 'erased arg-2 (lambda (arg-5) (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-5) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc2 3))) ((e-4 arg-3) arg-2))))))))) (else (Prelude-countFrom 'erased arg-2 (lambda (n) (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 n) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc2 3))) ((e-4 arg-2) arg-3))))))))))))) -(define Prelude-case--9211-9496 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-2 (vector 0 ))) (else (vector 0 )))))) -(define Prelude-case--9144-9431 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Prelude-takeBefore 'erased (lambda (arg-6) (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 arg-6) arg-2)))) (Prelude-countFrom 'erased arg-4 (lambda (n) (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 n) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc2 3))) ((e-4 arg-4) arg-3)))))))))) (else (Prelude-case--9211-9496 'erased arg-1 arg-4 arg-3 arg-2 (Prelude-C-38C-38 (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-4) arg-3))) (lambda () (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-3) arg-2))))))))))) -(define Prelude-case--8974-9368 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Prelude-takeBefore 'erased (lambda (arg-6) (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc1 4))) ((e-4 arg-6) arg-4)))) (Prelude-countFrom 'erased arg-2 (lambda (arg-6) (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-6) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc2 3))) ((e-4 arg-3) arg-2)))))))))) (else (Prelude-case--9144-9431 'erased arg-1 arg-4 arg-3 arg-2 (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-9 (vector-ref sc2 3))) ((e-9 arg-4) arg-2)))) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-9 (vector-ref sc2 3))) ((e-9 arg-4) arg-3)))))))))))) -(define Prelude-case--9012-9299 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Prelude-takeUntil 'erased (lambda (arg-5) (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-5 (vector-ref sc1 5))) ((e-5 arg-5) arg-2)))) (Prelude-countFrom 'erased arg-3 (lambda (x) (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 x) (let ((sc2 (let ((sc3 (Builtin-fst 'erased 'erased arg-1))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-4 (vector-ref sc2 3))) (e-4 1)))))))))) (else (vector 1 arg-3 (vector 0 ))))))) -(define Prelude-case--8973-9246 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Prelude-takeUntil 'erased (lambda (arg-5) (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-6 (vector-ref sc1 6))) ((e-6 arg-5) arg-3)))) (Prelude-countFrom 'erased arg-2 (lambda (arg-5) (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-5) (let ((sc2 (let ((sc3 (Builtin-fst 'erased 'erased arg-1))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-4 (vector-ref sc2 3))) (e-4 1)))))))))) (else (Prelude-case--9012-9299 'erased arg-1 arg-3 arg-2 (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc1 4))) ((e-4 arg-2) arg-3))))))))) -(define Prelude-case--8752-9023 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Prelude-takeUntil 'erased (lambda (arg-3) (Prelude-C-60C-61_Ord__Nat arg-3 arg-0)) (Prelude-countFrom 'erased arg-1 (lambda (n) (Prelude-minus n (+ 1 0)))))) (else (vector 1 arg-1 (vector 0 ))))))) -(define Prelude-case--8728-8995 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Prelude-takeUntil 'erased (lambda (arg-3) (Prelude-C-62C-61_Ord__Nat arg-3 arg-0)) (Prelude-countFrom 'erased arg-1 (lambda (eta-0) (+ 1 eta-0))))) (else (Prelude-case--8752-9023 arg-0 arg-1 (Prelude-C-62_Ord__Nat arg-1 arg-0))))))) -(define Prelude-case--8590-8840 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 arg-1 (Prelude-takeBefore 'erased arg-3 (arg-2)))))))) -(define Prelude-case--8538-8789 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 arg-1 (vector 0 ))) (else (vector 1 arg-1 (Prelude-takeUntil 'erased arg-3 (arg-2)))))))) -(define Prelude-case--7521-7802 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-strCons #\\ (Prelude-protectEsc (lambda (eta-1) (Prelude-isDigit eta-1)) (Prelude-show_Show__Int (char->integer arg-0)) eta-0)))) (else (lambda (eta-0) (Prelude-strCons arg-0 eta-0))))))) -(define Prelude-case--7373-7779 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-strCons #\\ (Strings-Prelude-C-43C-43 e-1 eta-0))))) (else (Prelude-case--7521-7802 arg-0 (Prelude-C-62_Ord__Char arg-0 (integer->char 127)))))))) -(define Prelude-case--7348-7613 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) "\\&") (else ""))))) -(define Prelude-case--7014-7363 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define Prelude-case--7015-7349 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define Prelude-case--6846-7164 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (cast-int-char (b+ (char->integer arg-0) 32 63))) (else arg-0))))) -(define Prelude-case--6831-7150 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (cast-int-char (Prelude-C-45_Neg__Int (char->integer arg-0) 32))) (else arg-0))))) -(define Prelude-case--6698-7036 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 (string-ref arg-1 arg-3) (Prelude-n--6696-7026-unpackC-39 arg-0 (b+ arg-3 1 63) arg-2 arg-1))))))) -(define Prelude-case--6636-6980 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (string-substr arg-2 arg-1 arg-0)) (else ""))))) -(define Prelude-case--6482-6857 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) 0) (else (Prelude-elem 'erased arg-1 arg-2 arg-4)))))) -(define Prelude-case--5784-6270 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 1) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-3 arg-5))(else arg-6))))) -(define Prelude-case--5789-6161 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-3) (else arg-2))))) -(define Prelude-case--5790-6133 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-3) (else arg-2))))) -(define Prelude-case--4410-4612 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define Prelude-case--4411-4598 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define Prelude-case--4320-4487 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) 0) (else (+ 1 (- arg-0 1))))))) -(define Prelude-case--3182-3200 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (remainder arg-1 arg-0))(else (Builtin-idris_crash 'erased "Unhandled input for Prelude.case block in 3182(3200) at Prelude.idr:397:3--403:1")))))) -(define Prelude-case--3181-3181 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (b/ arg-1 arg-0 63))(else (Builtin-idris_crash 'erased "Unhandled input for Prelude.case block in 3181(3181) at Prelude.idr:394:3--397:3")))))) -(define Prelude-case--3154-3149 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Prelude-negate_Neg__Int arg-0)) (else arg-0))))) -(define Prelude-case--3066-3078 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (remainder arg-1 arg-0))(else (Builtin-idris_crash 'erased "Unhandled input for Prelude.case block in 3066(3078) at Prelude.idr:361:3--368:1")))))) -(define Prelude-case--3065-3059 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (quotient arg-1 arg-0))(else (Builtin-idris_crash 'erased "Unhandled input for Prelude.case block in 3065(3059) at Prelude.idr:358:3--361:3")))))) -(define Prelude-case--3038-3027 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Prelude-negate_Neg__Integer arg-0)) (else arg-0))))) -(define Prelude-case--2419-2682 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 2))) ((e-2 arg-4) arg-6)))) (else (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 2))) ((e-2 arg-5) arg-7)))))))) -(define Prelude-case--2424-2557 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) arg-5) (else arg-4))))) -(define Prelude-case--2425-2515 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) arg-5) (else arg-4))))) -(define Prelude-case--2237-2265 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 1) (else 2))))) -(define Prelude-case--2165-2248 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 0) (else (Prelude-case--2237-2265 arg-0 arg-1 (Prelude-C-61C-61_Eq__String arg-1 arg-0))))))) -(define Prelude-case--2170-2231 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define Prelude-case--2171-2217 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define Prelude-case--1481-1581 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 1) (else 2))))) -(define Prelude-case--1409-1564 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 0) (else (Prelude-case--1481-1581 arg-0 arg-1 (Prelude-C-61C-61_Eq__Integer arg-1 arg-0))))))) -(define Prelude-case--1414-1547 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define Prelude-case--1415-1533 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define Prelude-case--1355-1467 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 1) (else 2))))) -(define Prelude-case--1283-1450 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 0) (else (Prelude-case--1355-1467 arg-0 arg-1 (Prelude-C-61C-61_Eq__Int arg-1 arg-0))))))) -(define Prelude-case--1288-1433 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define Prelude-case--1289-1419 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define Prelude-case--1172-1325 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define Prelude-case--1173-1311 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define Prelude-n--6696-7026-unpackC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--6698-7036 arg-0 arg-3 arg-2 arg-1 (Prelude-C-62C-61_Ord__Int arg-1 arg-2)))) -(define Prelude-n--6683-7015-toFArgs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector "Char" ) e-2 (Prelude-n--6683-7015-toFArgs arg-0 e-3))))))))) -(define Prelude-n--7794-8062-showC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 arg-3 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) (e-1 e-2)))))(else (Prelude-n--7794-8062-showC-39 'erased arg-1 arg-2 (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (e-1 e-2))) ", ")) e-3))))))))))) -(define Prelude-n--6861-7176-hexChars (lambda (arg-0) (vector 1 #\0 (vector 1 #\1 (vector 1 #\2 (vector 1 #\3 (vector 1 #\4 (vector 1 #\5 (vector 1 #\6 (vector 1 #\7 (vector 1 #\8 (vector 1 #\9 (vector 1 #\A (vector 1 #\B (vector 1 #\C (vector 1 #\D (vector 1 #\E (vector 1 #\F (vector 0 ))))))))))))))))))) -(define Prelude-n--7373-7659-getAt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (vector 1 e-3)))(else (let ((sc1 arg-2)) (vector 0 ))))))(else (let ((e-1 (- arg-1 1))) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-7 (vector-ref sc0 2))) (Prelude-n--7373-7659-getAt arg-0 e-1 e-7)))(else (let ((sc0 arg-2)) (vector 0 ))))))))))) -(define Prelude-n--7373-7658-asciiTab (lambda (arg-0) (vector 1 "NUL" (vector 1 "SOH" (vector 1 "STX" (vector 1 "ETX" (vector 1 "EOT" (vector 1 "ENQ" (vector 1 "ACK" (vector 1 "BEL" (vector 1 "BS" (vector 1 "HT" (vector 1 "LF" (vector 1 "VT" (vector 1 "FF" (vector 1 "CR" (vector 1 "SO" (vector 1 "SI" (vector 1 "DLE" (vector 1 "DC1" (vector 1 "DC2" (vector 1 "DC3" (vector 1 "DC4" (vector 1 "NAK" (vector 1 "SYN" (vector 1 "ETB" (vector 1 "CAN" (vector 1 "EM" (vector 1 "SUB" (vector 1 "ESC" (vector 1 "FS" (vector 1 "GS" (vector 1 "RS" (vector 1 "US" (vector 0 ))))))))))))))))))))))))))))))))))) +(define Prelude-case--8979-9577 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Prelude-countFrom 'erased arg-2 (lambda (arg-5) (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-5) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc2 3))) ((e-4 arg-3) arg-2))))))))) (else (Prelude-countFrom 'erased arg-2 (lambda (n) (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 n) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc2 3))) ((e-4 arg-2) arg-3))))))))))))) +(define Prelude-case--9214-9505 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-2 (vector 0 ))) (else (vector 0 )))))) +(define Prelude-case--9147-9440 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Prelude-takeBefore 'erased (lambda (arg-6) (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 arg-6) arg-2)))) (Prelude-countFrom 'erased arg-4 (lambda (n) (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 n) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc2 3))) ((e-4 arg-4) arg-3)))))))))) (else (Prelude-case--9214-9505 'erased arg-1 arg-4 arg-3 arg-2 (Prelude-C-38C-38 (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-4) arg-3))) (lambda () (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-3) arg-2))))))))))) +(define Prelude-case--8977-9377 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Prelude-takeBefore 'erased (lambda (arg-6) (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc1 4))) ((e-4 arg-6) arg-4)))) (Prelude-countFrom 'erased arg-2 (lambda (arg-6) (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-6) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc2 3))) ((e-4 arg-3) arg-2)))))))))) (else (Prelude-case--9147-9440 'erased arg-1 arg-4 arg-3 arg-2 (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-9 (vector-ref sc2 3))) ((e-9 arg-4) arg-2)))) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-9 (vector-ref sc2 3))) ((e-9 arg-4) arg-3)))))))))))) +(define Prelude-case--9015-9308 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Prelude-takeUntil 'erased (lambda (arg-5) (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-5 (vector-ref sc1 5))) ((e-5 arg-5) arg-2)))) (Prelude-countFrom 'erased arg-3 (lambda (x) (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 x) (let ((sc2 (let ((sc3 (Builtin-fst 'erased 'erased arg-1))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-4 (vector-ref sc2 3))) (e-4 1)))))))))) (else (vector 1 arg-3 (vector 0 ))))))) +(define Prelude-case--8976-9255 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Prelude-takeUntil 'erased (lambda (arg-5) (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-6 (vector-ref sc1 6))) ((e-6 arg-5) arg-3)))) (Prelude-countFrom 'erased arg-2 (lambda (arg-5) (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-5) (let ((sc2 (let ((sc3 (Builtin-fst 'erased 'erased arg-1))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-4 (vector-ref sc2 3))) (e-4 1)))))))))) (else (Prelude-case--9015-9308 'erased arg-1 arg-3 arg-2 (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc1 4))) ((e-4 arg-2) arg-3))))))))) +(define Prelude-case--8755-9032 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Prelude-takeUntil 'erased (lambda (arg-3) (Prelude-C-60C-61_Ord__Nat arg-3 arg-0)) (Prelude-countFrom 'erased arg-1 (lambda (n) (Prelude-minus n (+ 1 0)))))) (else (vector 1 arg-1 (vector 0 ))))))) +(define Prelude-case--8731-9004 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Prelude-takeUntil 'erased (lambda (arg-3) (Prelude-C-62C-61_Ord__Nat arg-3 arg-0)) (Prelude-countFrom 'erased arg-1 (lambda (eta-0) (+ 1 eta-0))))) (else (Prelude-case--8755-9032 arg-0 arg-1 (Prelude-C-62_Ord__Nat arg-1 arg-0))))))) +(define Prelude-case--8593-8849 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 arg-1 (Prelude-takeBefore 'erased arg-3 (arg-2)))))))) +(define Prelude-case--8541-8798 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 arg-1 (vector 0 ))) (else (vector 1 arg-1 (Prelude-takeUntil 'erased arg-3 (arg-2)))))))) +(define Prelude-case--7524-7811 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-strCons #\\ (Prelude-protectEsc (lambda (eta-1) (Prelude-isDigit eta-1)) (Prelude-show_Show__Int (char->integer arg-0)) eta-0)))) (else (lambda (eta-0) (Prelude-strCons arg-0 eta-0))))))) +(define Prelude-case--7376-7788 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-strCons #\\ (Strings-Prelude-C-43C-43 e-1 eta-0))))) (else (Prelude-case--7524-7811 arg-0 (Prelude-C-62_Ord__Char arg-0 (integer->char 127)))))))) +(define Prelude-case--7351-7622 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) "\\&") (else ""))))) +(define Prelude-case--7017-7372 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) +(define Prelude-case--7018-7358 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) +(define Prelude-case--6849-7173 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (cast-int-char (b+ (char->integer arg-0) 32 63))) (else arg-0))))) +(define Prelude-case--6834-7159 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (cast-int-char (Prelude-C-45_Neg__Int (char->integer arg-0) 32))) (else arg-0))))) +(define Prelude-case--6701-7045 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 (string-ref arg-1 arg-3) (Prelude-n--6699-7035-unpackC-39 arg-0 (b+ arg-3 1 63) arg-2 arg-1))))))) +(define Prelude-case--6639-6989 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (string-substr arg-2 arg-1 arg-0)) (else ""))))) +(define Prelude-case--6484-6865 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) 0) (else (Prelude-elem 'erased arg-1 arg-2 arg-4)))))) +(define Prelude-case--5786-6278 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 1) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-3 arg-5))(else arg-6))))) +(define Prelude-case--5791-6169 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-3) (else arg-2))))) +(define Prelude-case--5792-6141 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-3) (else arg-2))))) +(define Prelude-case--4412-4620 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) +(define Prelude-case--4413-4606 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) +(define Prelude-case--4322-4495 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) 0) (else (+ 1 (- arg-0 1))))))) +(define Prelude-case--3184-3208 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (remainder arg-1 arg-0))(else (Builtin-idris_crash 'erased "Unhandled input for Prelude.case block in 3184(3208) at Prelude.idr:397:3--403:1")))))) +(define Prelude-case--3183-3189 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (b/ arg-1 arg-0 63))(else (Builtin-idris_crash 'erased "Unhandled input for Prelude.case block in 3183(3189) at Prelude.idr:394:3--397:3")))))) +(define Prelude-case--3156-3157 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Prelude-negate_Neg__Int arg-0)) (else arg-0))))) +(define Prelude-case--3068-3086 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (remainder arg-1 arg-0))(else (Builtin-idris_crash 'erased "Unhandled input for Prelude.case block in 3068(3086) at Prelude.idr:361:3--368:1")))))) +(define Prelude-case--3067-3067 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (quotient arg-1 arg-0))(else (Builtin-idris_crash 'erased "Unhandled input for Prelude.case block in 3067(3067) at Prelude.idr:358:3--361:3")))))) +(define Prelude-case--3040-3035 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Prelude-negate_Neg__Integer arg-0)) (else arg-0))))) +(define Prelude-case--2421-2690 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 2))) ((e-2 arg-4) arg-6)))) (else (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 2))) ((e-2 arg-5) arg-7)))))))) +(define Prelude-case--2426-2565 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) arg-5) (else arg-4))))) +(define Prelude-case--2427-2523 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) arg-5) (else arg-4))))) +(define Prelude-case--2239-2273 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 1) (else 2))))) +(define Prelude-case--2167-2256 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 0) (else (Prelude-case--2239-2273 arg-0 arg-1 (Prelude-C-61C-61_Eq__String arg-1 arg-0))))))) +(define Prelude-case--2172-2239 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) +(define Prelude-case--2173-2225 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) +(define Prelude-case--1483-1589 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 1) (else 2))))) +(define Prelude-case--1411-1572 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 0) (else (Prelude-case--1483-1589 arg-0 arg-1 (Prelude-C-61C-61_Eq__Integer arg-1 arg-0))))))) +(define Prelude-case--1416-1555 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) +(define Prelude-case--1417-1541 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) +(define Prelude-case--1357-1475 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 1) (else 2))))) +(define Prelude-case--1285-1458 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 0) (else (Prelude-case--1357-1475 arg-0 arg-1 (Prelude-C-61C-61_Eq__Int arg-1 arg-0))))))) +(define Prelude-case--1290-1441 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) +(define Prelude-case--1291-1427 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) +(define Prelude-case--1174-1333 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) +(define Prelude-case--1175-1319 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) +(define Prelude-n--6699-7035-unpackC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--6701-7045 arg-0 arg-3 arg-2 arg-1 (Prelude-C-62C-61_Ord__Int arg-1 arg-2)))) +(define Prelude-n--6686-7024-toFArgs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector "Char" ) e-2 (Prelude-n--6686-7024-toFArgs arg-0 e-3))))))))) +(define Prelude-n--7797-8071-showC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 arg-3 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) (e-1 e-2)))))(else (Prelude-n--7797-8071-showC-39 'erased arg-1 arg-2 (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (e-1 e-2))) ", ")) e-3))))))))))) +(define Prelude-n--6864-7185-hexChars (lambda (arg-0) (vector 1 #\0 (vector 1 #\1 (vector 1 #\2 (vector 1 #\3 (vector 1 #\4 (vector 1 #\5 (vector 1 #\6 (vector 1 #\7 (vector 1 #\8 (vector 1 #\9 (vector 1 #\A (vector 1 #\B (vector 1 #\C (vector 1 #\D (vector 1 #\E (vector 1 #\F (vector 0 ))))))))))))))))))) +(define Prelude-n--7376-7668-getAt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (vector 1 e-3)))(else (let ((sc1 arg-2)) (vector 0 ))))))(else (let ((e-1 (- arg-1 1))) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-7 (vector-ref sc0 2))) (Prelude-n--7376-7668-getAt arg-0 e-1 e-7)))(else (let ((sc0 arg-2)) (vector 0 ))))))))))) +(define Prelude-n--7376-7667-asciiTab (lambda (arg-0) (vector 1 "NUL" (vector 1 "SOH" (vector 1 "STX" (vector 1 "ETX" (vector 1 "EOT" (vector 1 "ENQ" (vector 1 "ACK" (vector 1 "BEL" (vector 1 "BS" (vector 1 "HT" (vector 1 "LF" (vector 1 "VT" (vector 1 "FF" (vector 1 "CR" (vector 1 "SO" (vector 1 "SI" (vector 1 "DLE" (vector 1 "DC1" (vector 1 "DC2" (vector 1 "DC3" (vector 1 "DC4" (vector 1 "NAK" (vector 1 "SYN" (vector 1 "ETB" (vector 1 "CAN" (vector 1 "EM" (vector 1 "SUB" (vector 1 "ESC" (vector 1 "FS" (vector 1 "GS" (vector 1 "RS" (vector 1 "US" (vector 0 ))))))))))))))))))))))))))))))))))) (define Prelude-traverse_Traversable__List (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-4 (vector-ref sc1 3))) ((((e-4 'erased) 'erased) (let ((sc2 arg-3)) (let ((e-6 (vector-ref sc2 3))) ((((e-6 'erased) 'erased) (let ((sc3 arg-3)) (let ((e-10 (vector-ref sc3 2))) ((e-10 'erased) (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1))))))) (arg-4 e-2))))) (Prelude-traverse_Traversable__List 'erased 'erased 'erased arg-3 arg-4 e-3))))))))))) (define Prelude-show_Show__String (lambda (arg-0) (Prelude-strCons #\" ((Prelude-showLitString (Prelude-unpack arg-0)) "\"")))) (define Prelude-show_Show__Nat (lambda (arg-0) (Prelude-show_Show__Integer arg-0))) @@ -682,7 +688,7 @@ (define Prelude-show_Show__Bool (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "True") (else "False"))))) (define Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (let ((sc1 (Builtin-fst 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc1 1))) (e-1 e-2))) (Strings-Prelude-C-43C-43 ", " (Strings-Prelude-C-43C-43 (let ((sc1 (Builtin-snd 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc1 1))) (e-1 e-3))) ")"))))))))) (define Prelude-show_Show__C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased arg-1 (vector 0 ) arg-2))) -(define Prelude-show_Show__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Prelude-n--7794-8062-showC-39 'erased arg-1 arg-2 "" arg-2) "]")))) +(define Prelude-show_Show__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Prelude-n--7797-8071-showC-39 'erased arg-1 arg-2 "" arg-2) "]")))) (define Prelude-show_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-showPrec_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased arg-2 (vector 0 ) arg-3))) (define Prelude-showPrec_Show__String (lambda (arg-0 arg-1) (Prelude-show_Show__String arg-1))) (define Prelude-showPrec_Show__Nat (lambda (arg-0 arg-1) (Prelude-show_Show__Nat arg-1))) @@ -696,10 +702,10 @@ (define Prelude-showPrec_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-showCon arg-3 "Left" (Prelude-showArg 'erased (Builtin-fst 'erased 'erased arg-2) e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-showCon arg-3 "Right" (Prelude-showArg 'erased (Builtin-snd 'erased 'erased arg-2) e-5)))))))) (define Prelude-rangeFrom_Range__Nat (lambda (arg-0) (Prelude-countFrom 'erased arg-0 (lambda (eta-0) (+ 1 eta-0))))) (define Prelude-rangeFrom_Range__C-36a (lambda (arg-0 arg-1 arg-2) (Prelude-countFrom 'erased arg-2 (lambda (arg-3) (let ((sc0 (let ((sc1 (Builtin-fst 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-1 (vector-ref sc0 1))) ((e-1 (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased arg-1))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-4 (vector-ref sc1 3))) (e-4 1)))) arg-3))))))) -(define Prelude-rangeFromTo_Range__Nat (lambda (arg-0 arg-1) (Prelude-case--8728-8995 arg-1 arg-0 (Prelude-C-62_Ord__Nat arg-1 arg-0)))) -(define Prelude-rangeFromTo_Range__C-36a (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--8973-9246 'erased arg-1 arg-2 arg-3 (let ((sc0 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc0 4))) ((e-4 arg-3) arg-2)))))) -(define Prelude-rangeFromThen_Range__C-36a (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--8976-9568 'erased arg-1 arg-2 arg-3 (let ((sc0 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc0 4))) ((e-4 arg-3) arg-2)))))) -(define Prelude-rangeFromThenTo_Range__C-36a (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Prelude-case--8974-9368 'erased arg-1 arg-2 arg-3 arg-4 (let ((sc0 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc0 4))) ((e-4 (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-9 (vector-ref sc1 3))) ((e-9 arg-4) arg-2)))) (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-9 (vector-ref sc1 3))) ((e-9 arg-4) arg-3))))))))) +(define Prelude-rangeFromTo_Range__Nat (lambda (arg-0 arg-1) (Prelude-case--8731-9004 arg-1 arg-0 (Prelude-C-62_Ord__Nat arg-1 arg-0)))) +(define Prelude-rangeFromTo_Range__C-36a (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--8976-9255 'erased arg-1 arg-2 arg-3 (let ((sc0 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc0 4))) ((e-4 arg-3) arg-2)))))) +(define Prelude-rangeFromThen_Range__C-36a (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--8979-9577 'erased arg-1 arg-2 arg-3 (let ((sc0 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc0 4))) ((e-4 arg-3) arg-2)))))) +(define Prelude-rangeFromThenTo_Range__C-36a (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Prelude-case--8977-9377 'erased arg-1 arg-2 arg-3 arg-4 (let ((sc0 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc0 4))) ((e-4 (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-9 (vector-ref sc1 3))) ((e-9 arg-4) arg-2)))) (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-9 (vector-ref sc1 3))) ((e-9 arg-4) arg-3))))))))) (define Prelude-pure_Applicative__Maybe (lambda (arg-0 ext-0) (vector 1 ext-0))) (define Prelude-pure_Applicative__List (lambda (arg-0 arg-1) (vector 1 arg-1 (vector 0 )))) (define Prelude-pure_Applicative__IO (lambda (arg-0 arg-1 ext-0) arg-1)) @@ -709,24 +715,24 @@ (define Prelude-negate_Neg__Integer (lambda (arg-0) (- 0 arg-0))) (define Prelude-negate_Neg__Int (lambda (arg-0) (b- 0 arg-0 63))) (define Prelude-negate_Neg__Double (lambda (arg-0) (- arg-0))) -(define Prelude-mod_Integral__Integer (lambda (arg-0 arg-1) (Prelude-case--3066-3078 arg-1 arg-0 (Prelude-C-61C-61_Eq__Integer arg-1 0)))) -(define Prelude-mod_Integral__Int (lambda (arg-0 arg-1) (Prelude-case--3182-3200 arg-1 arg-0 (Prelude-C-61C-61_Eq__Int arg-1 0)))) -(define Prelude-min_Ord__String (lambda (arg-0 arg-1) (Prelude-case--2171-2217 arg-1 arg-0 (Prelude-C-60_Ord__String arg-0 arg-1)))) -(define Prelude-min_Ord__Prec (lambda (arg-0 arg-1) (Prelude-case--7015-7349 arg-1 arg-0 (Prelude-C-60_Ord__Prec arg-0 arg-1)))) -(define Prelude-min_Ord__Nat (lambda (arg-0 arg-1) (Prelude-case--4411-4598 arg-1 arg-0 (Prelude-C-60_Ord__Nat arg-0 arg-1)))) -(define Prelude-min_Ord__Integer (lambda (arg-0 arg-1) (Prelude-case--1415-1533 arg-1 arg-0 (Prelude-C-60_Ord__Integer arg-0 arg-1)))) -(define Prelude-min_Ord__Int (lambda (arg-0 arg-1) (Prelude-case--1289-1419 arg-1 arg-0 (Prelude-C-60_Ord__Int arg-0 arg-1)))) -(define Prelude-min_Ord__Bool (lambda (arg-0 arg-1) (Prelude-case--1173-1311 arg-1 arg-0 (Prelude-C-60_Ord__Bool arg-0 arg-1)))) -(define Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-case--2425-2515 'erased 'erased arg-2 arg-3 arg-5 arg-4 (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-3 arg-4 arg-5)))) -(define Prelude-min_Ord__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--5790-6133 'erased arg-1 arg-3 arg-2 (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-2 arg-3)))) -(define Prelude-max_Ord__String (lambda (arg-0 arg-1) (Prelude-case--2170-2231 arg-1 arg-0 (Prelude-C-62_Ord__String arg-0 arg-1)))) -(define Prelude-max_Ord__Prec (lambda (arg-0 arg-1) (Prelude-case--7014-7363 arg-1 arg-0 (Prelude-C-62_Ord__Prec arg-0 arg-1)))) -(define Prelude-max_Ord__Nat (lambda (arg-0 arg-1) (Prelude-case--4410-4612 arg-1 arg-0 (Prelude-C-62_Ord__Nat arg-0 arg-1)))) -(define Prelude-max_Ord__Integer (lambda (arg-0 arg-1) (Prelude-case--1414-1547 arg-1 arg-0 (Prelude-C-62_Ord__Integer arg-0 arg-1)))) -(define Prelude-max_Ord__Int (lambda (arg-0 arg-1) (Prelude-case--1288-1433 arg-1 arg-0 (Prelude-C-62_Ord__Int arg-0 arg-1)))) -(define Prelude-max_Ord__Bool (lambda (arg-0 arg-1) (Prelude-case--1172-1325 arg-1 arg-0 (Prelude-C-62_Ord__Bool arg-0 arg-1)))) -(define Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-case--2424-2557 'erased 'erased arg-2 arg-3 arg-5 arg-4 (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-3 arg-4 arg-5)))) -(define Prelude-max_Ord__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--5789-6161 'erased arg-1 arg-3 arg-2 (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-2 arg-3)))) +(define Prelude-mod_Integral__Integer (lambda (arg-0 arg-1) (Prelude-case--3068-3086 arg-1 arg-0 (Prelude-C-61C-61_Eq__Integer arg-1 0)))) +(define Prelude-mod_Integral__Int (lambda (arg-0 arg-1) (Prelude-case--3184-3208 arg-1 arg-0 (Prelude-C-61C-61_Eq__Int arg-1 0)))) +(define Prelude-min_Ord__String (lambda (arg-0 arg-1) (Prelude-case--2173-2225 arg-1 arg-0 (Prelude-C-60_Ord__String arg-0 arg-1)))) +(define Prelude-min_Ord__Prec (lambda (arg-0 arg-1) (Prelude-case--7018-7358 arg-1 arg-0 (Prelude-C-60_Ord__Prec arg-0 arg-1)))) +(define Prelude-min_Ord__Nat (lambda (arg-0 arg-1) (Prelude-case--4413-4606 arg-1 arg-0 (Prelude-C-60_Ord__Nat arg-0 arg-1)))) +(define Prelude-min_Ord__Integer (lambda (arg-0 arg-1) (Prelude-case--1417-1541 arg-1 arg-0 (Prelude-C-60_Ord__Integer arg-0 arg-1)))) +(define Prelude-min_Ord__Int (lambda (arg-0 arg-1) (Prelude-case--1291-1427 arg-1 arg-0 (Prelude-C-60_Ord__Int arg-0 arg-1)))) +(define Prelude-min_Ord__Bool (lambda (arg-0 arg-1) (Prelude-case--1175-1319 arg-1 arg-0 (Prelude-C-60_Ord__Bool arg-0 arg-1)))) +(define Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-case--2427-2523 'erased 'erased arg-2 arg-3 arg-5 arg-4 (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-3 arg-4 arg-5)))) +(define Prelude-min_Ord__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--5792-6141 'erased arg-1 arg-3 arg-2 (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-2 arg-3)))) +(define Prelude-max_Ord__String (lambda (arg-0 arg-1) (Prelude-case--2172-2239 arg-1 arg-0 (Prelude-C-62_Ord__String arg-0 arg-1)))) +(define Prelude-max_Ord__Prec (lambda (arg-0 arg-1) (Prelude-case--7017-7372 arg-1 arg-0 (Prelude-C-62_Ord__Prec arg-0 arg-1)))) +(define Prelude-max_Ord__Nat (lambda (arg-0 arg-1) (Prelude-case--4412-4620 arg-1 arg-0 (Prelude-C-62_Ord__Nat arg-0 arg-1)))) +(define Prelude-max_Ord__Integer (lambda (arg-0 arg-1) (Prelude-case--1416-1555 arg-1 arg-0 (Prelude-C-62_Ord__Integer arg-0 arg-1)))) +(define Prelude-max_Ord__Int (lambda (arg-0 arg-1) (Prelude-case--1290-1441 arg-1 arg-0 (Prelude-C-62_Ord__Int arg-0 arg-1)))) +(define Prelude-max_Ord__Bool (lambda (arg-0 arg-1) (Prelude-case--1174-1333 arg-1 arg-0 (Prelude-C-62_Ord__Bool arg-0 arg-1)))) +(define Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-case--2426-2565 'erased 'erased arg-2 arg-3 arg-5 arg-4 (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-3 arg-4 arg-5)))) +(define Prelude-max_Ord__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--5791-6169 'erased arg-1 arg-3 arg-2 (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-2 arg-3)))) (define Prelude-map_Functor__Maybe (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (arg-2 e-1)))) (else (vector 0 )))))) (define Prelude-map_Functor__List (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (arg-2 e-2) (Prelude-map_Functor__List 'erased 'erased arg-2 e-3))))))))) (define Prelude-map_Functor__IO (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-3 (arg-3 ext-0))) (arg-2 act-3)))) @@ -742,16 +748,16 @@ (define Prelude-foldr_Foldable__List (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) ((arg-2 e-2) (Prelude-foldr_Foldable__List 'erased 'erased arg-2 arg-3 e-3))))))))) (define Prelude-foldl_Foldable__List (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-foldl_Foldable__List 'erased 'erased arg-2 ((arg-2 arg-3) e-2) e-3)))))))) (define Prelude-empty_Alternative__List (lambda (arg-0) (vector 0 ))) -(define Prelude-div_Integral__Integer (lambda (arg-0 arg-1) (Prelude-case--3065-3059 arg-1 arg-0 (Prelude-C-61C-61_Eq__Integer arg-1 0)))) -(define Prelude-div_Integral__Int (lambda (arg-0 arg-1) (Prelude-case--3181-3181 arg-1 arg-0 (Prelude-C-61C-61_Eq__Int arg-1 0)))) -(define Prelude-compare_Ord__String (lambda (arg-0 arg-1) (Prelude-case--2165-2248 arg-1 arg-0 (Prelude-C-60_Ord__String arg-0 arg-1)))) +(define Prelude-div_Integral__Integer (lambda (arg-0 arg-1) (Prelude-case--3067-3067 arg-1 arg-0 (Prelude-C-61C-61_Eq__Integer arg-1 0)))) +(define Prelude-div_Integral__Int (lambda (arg-0 arg-1) (Prelude-case--3183-3189 arg-1 arg-0 (Prelude-C-61C-61_Eq__Int arg-1 0)))) +(define Prelude-compare_Ord__String (lambda (arg-0 arg-1) (Prelude-case--2167-2256 arg-1 arg-0 (Prelude-C-60_Ord__String arg-0 arg-1)))) (define Prelude-compare_Ord__Prec (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((4) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-1 (vector-ref sc1 1))) (Prelude-compare_Ord__Nat e-0 e-1)))(else (Prelude-compare_Ord__Integer (Prelude-precCon arg-0) (Prelude-precCon arg-1)))))))(else (Prelude-compare_Ord__Integer (Prelude-precCon arg-0) (Prelude-precCon arg-1))))))) (define Prelude-compare_Ord__Nat (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (let ((sc1 arg-1)) (cond ((equal? sc1 0) 1)(else 0))))(else (let ((e-0 (- arg-0 1))) (let ((sc0 arg-1)) (cond ((equal? sc0 0) 2)(else (let ((e-2 (- arg-1 1))) (Prelude-compare_Ord__Nat e-0 e-2))))))))))) -(define Prelude-compare_Ord__Integer (lambda (arg-0 arg-1) (Prelude-case--1409-1564 arg-1 arg-0 (Prelude-C-60_Ord__Integer arg-0 arg-1)))) -(define Prelude-compare_Ord__Int (lambda (arg-0 arg-1) (Prelude-case--1283-1450 arg-1 arg-0 (Prelude-C-60_Ord__Int arg-0 arg-1)))) +(define Prelude-compare_Ord__Integer (lambda (arg-0 arg-1) (Prelude-case--1411-1572 arg-1 arg-0 (Prelude-C-60_Ord__Integer arg-0 arg-1)))) +(define Prelude-compare_Ord__Int (lambda (arg-0 arg-1) (Prelude-case--1285-1458 arg-1 arg-0 (Prelude-C-60_Ord__Int arg-0 arg-1)))) (define Prelude-compare_Ord__Bool (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 1) (let ((sc1 arg-1)) (cond ((equal? sc1 1) 1) (else 0)))) (else (let ((sc1 arg-1)) (cond ((equal? sc1 1) 2) (else 1)))))))) -(define Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Prelude-case--2419-2682 'erased 'erased arg-2 arg-3 e-2 e-3 e-6 e-7 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-4 (vector-ref sc2 2))) ((e-4 e-2) e-6)))))))))))) -(define Prelude-compare_Ord__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) 1) (else 0)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) 2) (else (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (Prelude-case--5784-6270 'erased arg-1 e-2 e-3 e-10 e-11 (let ((sc2 arg-1)) (let ((e-12 (vector-ref sc2 2))) ((e-12 e-2) e-10)))))))))))))))) +(define Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Prelude-case--2421-2690 'erased 'erased arg-2 arg-3 e-2 e-3 e-6 e-7 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-4 (vector-ref sc2 2))) ((e-4 e-2) e-6)))))))))))) +(define Prelude-compare_Ord__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) 1) (else 0)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) 2) (else (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (Prelude-case--5786-6278 'erased arg-1 e-2 e-3 e-10 e-11 (let ((sc2 arg-1)) (let ((e-12 (vector-ref sc2 2))) ((e-12 e-2) e-10)))))))))))))))) (define Prelude-cast_Cast__String_Integer (lambda (ext-0) (cast-string-int ext-0))) (define Prelude-cast_Cast__String_Int (lambda (ext-0) (cast-string-int ext-0))) (define Prelude-cast_Cast__String_Double (lambda (ext-0) (cast-string-double ext-0))) @@ -765,13 +771,13 @@ (define Prelude-cast_Cast__Double_Int (lambda (ext-0) (exact-floor ext-0))) (define Prelude-cast_Cast__Char_String (lambda (ext-0) (string ext-0))) (define Prelude-cast_Cast__Char_Int (lambda (ext-0) (char->integer ext-0))) -(define Prelude-abs_Abs__Integer (lambda (arg-0) (Prelude-case--3038-3027 arg-0 (Prelude-C-60_Ord__Integer arg-0 0)))) -(define Prelude-abs_Abs__Int (lambda (arg-0) (Prelude-case--3154-3149 arg-0 (Prelude-C-60_Ord__Int arg-0 0)))) +(define Prelude-abs_Abs__Integer (lambda (arg-0) (Prelude-case--3040-3035 arg-0 (Prelude-C-60_Ord__Integer arg-0 0)))) +(define Prelude-abs_Abs__Int (lambda (arg-0) (Prelude-case--3156-3157 arg-0 (Prelude-C-60_Ord__Int arg-0 0)))) (define Prelude-__Ord_C-40EqC-32tyC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (define Prelude-__Monoid_C-40SemigroupC-32tyC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (define Prelude-__Monad_C-40ApplicativeC-32mC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (define Prelude-__Integral_C-40NumC-32tyC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)))) -(define Prelude-__Impl_Traversable_List (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Prelude-map_Functor__List 'erased 'erased func arg-3435))))) (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (b) (lambda (a) (lambda (f) (lambda (i_con-0) (lambda (arg-4362) (lambda (arg-4364) (Prelude-traverse_Traversable__List 'erased 'erased 'erased i_con-0 arg-4362 arg-4364)))))))))) +(define Prelude-__Impl_Traversable_List (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Prelude-map_Functor__List 'erased 'erased func arg-3443))))) (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (b) (lambda (a) (lambda (f) (lambda (i_con-0) (lambda (arg-4370) (lambda (arg-4372) (Prelude-traverse_Traversable__List 'erased 'erased 'erased i_con-0 arg-4370 arg-4372)))))))))) (define Prelude-__Impl_Show_String (lambda () (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))))) (define Prelude-__Impl_Show_Nat (lambda () (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))))) (define Prelude-__Impl_Show_Integer (lambda () (vector 0 (lambda (x) (Prelude-show_Show__Integer x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Integer d x)))))) @@ -785,50 +791,50 @@ (define Prelude-__Impl_Semigroup_String (lambda (ext-0 ext-1) (Prelude-C-60C-43C-62_Semigroup__String ext-0 ext-1))) (define Prelude-__Impl_Semigroup_C-40MaybeC-32C-36aC-41 (lambda (arg-0 ext-0 ext-1) (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased ext-0 ext-1))) (define Prelude-__Impl_Semigroup_C-40ListC-32C-36aC-41 (lambda (arg-0 ext-0 ext-1) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased ext-0 ext-1))) -(define Prelude-__Impl_Range_C-36a (lambda (arg-0 arg-1) (vector 0 (lambda (arg-8876) (lambda (arg-8877) (Prelude-rangeFromTo_Range__C-36a 'erased arg-1 arg-8876 arg-8877))) (lambda (arg-8878) (lambda (arg-8879) (lambda (arg-8880) (Prelude-rangeFromThenTo_Range__C-36a 'erased arg-1 arg-8878 arg-8879 arg-8880)))) (lambda (arg-8881) (Prelude-rangeFrom_Range__C-36a 'erased arg-1 arg-8881)) (lambda (arg-8882) (lambda (arg-8883) (Prelude-rangeFromThen_Range__C-36a 'erased arg-1 arg-8882 arg-8883)))))) -(define Prelude-__Impl_Ord_String (lambda () (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))))) -(define Prelude-__Impl_Ord_Prec (lambda () (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Prec arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Prec arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Prec arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Prec arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Prec arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Prec arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Prec arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Prec arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Prec arg-787 arg-788)))))) -(define Prelude-__Impl_Ord_Nat (lambda () (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Nat arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Nat arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Nat arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Nat arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Nat arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Nat arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Nat arg-787 arg-788)))))) -(define Prelude-__Impl_Ord_Integer (lambda () (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Integer arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Integer arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Integer arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Integer arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Integer arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Integer arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Integer arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Integer arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Integer arg-787 arg-788)))))) -(define Prelude-__Impl_Ord_Int (lambda () (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))))) -(define Prelude-__Impl_Ord_Bool (lambda () (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))))) -(define Prelude-__Impl_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-0 arg-1 arg-2 arg-3) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) e-1)) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) e-1)) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) e-1)) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) e-1)) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-3 arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-3 arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-3 arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-3 arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-3 arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-3 arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-3 arg-787 arg-788)))))) -(define Prelude-__Impl_Ord_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-787 arg-788)))))) -(define Prelude-__Impl_Num_Nat (lambda () (vector 0 (lambda (arg-2743) (lambda (arg-2744) (Prelude-C-43_Num__Nat arg-2743 arg-2744))) (lambda (arg-2745) (lambda (arg-2746) (Prelude-C-42_Num__Nat arg-2745 arg-2746))) (lambda (arg-2747) (Prelude-fromInteger_Num__Nat arg-2747))))) -(define Prelude-__Impl_Num_Integer (lambda () (vector 0 (lambda (arg-2743) (lambda (arg-2744) (+ arg-2743 arg-2744))) (lambda (arg-2745) (lambda (arg-2746) (* arg-2745 arg-2746))) (lambda (arg-2747) arg-2747)))) -(define Prelude-__Impl_Num_Int (lambda () (vector 0 (lambda (arg-2743) (lambda (arg-2744) (b+ arg-2743 arg-2744 63))) (lambda (arg-2745) (lambda (arg-2746) (b* arg-2745 arg-2746 63))) (lambda (arg-2747) arg-2747)))) -(define Prelude-__Impl_Neg_Integer (lambda () (vector 0 (vector 0 (lambda (arg-2743) (lambda (arg-2744) (+ arg-2743 arg-2744))) (lambda (arg-2745) (lambda (arg-2746) (* arg-2745 arg-2746))) (lambda (arg-2747) arg-2747)) (lambda (arg-2797) (Prelude-negate_Neg__Integer arg-2797)) (lambda (arg-2798) (lambda (arg-2799) (Prelude-C-45_Neg__Integer arg-2798 arg-2799)))))) -(define Prelude-__Impl_Neg_Int (lambda () (vector 0 (vector 0 (lambda (arg-2743) (lambda (arg-2744) (b+ arg-2743 arg-2744 63))) (lambda (arg-2745) (lambda (arg-2746) (b* arg-2745 arg-2746 63))) (lambda (arg-2747) arg-2747)) (lambda (arg-2797) (Prelude-negate_Neg__Int arg-2797)) (lambda (arg-2798) (lambda (arg-2799) (Prelude-C-45_Neg__Int arg-2798 arg-2799)))))) -(define Prelude-__Impl_Monoid_String (lambda () (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) -(define Prelude-__Impl_Monoid_C-40ListC-32C-36aC-41 (lambda (arg-0) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) -(define Prelude-__Impl_Monad_Maybe (lambda () (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Prelude-pure_Applicative__Maybe 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Prelude-join_Monad__Maybe 'erased arg-3667)))))) -(define Prelude-__Impl_Monad_IO (lambda () (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-29 (arg-3667 eta-0))) (act-29 eta-0)))))))) -(define Prelude-__Impl_Monad_C-40EitherC-32C-36eC-41 (lambda (arg-0) (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (let ((sc0 arg-3435)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (func e-5)))))))))) (lambda (a) (lambda (arg-3502) (vector 1 arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (let ((sc0 arg-3503)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-3505)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (vector 1 (e-5 e-8)))) (else (let ((e-11 (vector-ref sc1 1))) (vector 0 e-11)))))))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Prelude-join_Monad__C-40EitherC-32C-36eC-41 'erased 'erased arg-3667)))))) -(define Prelude-__Impl_Integral_Integer (lambda () (vector 0 (vector 0 (lambda (arg-2743) (lambda (arg-2744) (+ arg-2743 arg-2744))) (lambda (arg-2745) (lambda (arg-2746) (* arg-2745 arg-2746))) (lambda (arg-2747) arg-2747)) (lambda (arg-2924) (lambda (arg-2925) (Prelude-div_Integral__Integer arg-2924 arg-2925))) (lambda (arg-2926) (lambda (arg-2927) (Prelude-mod_Integral__Integer arg-2926 arg-2927)))))) -(define Prelude-__Impl_Integral_Int (lambda () (vector 0 (vector 0 (lambda (arg-2743) (lambda (arg-2744) (b+ arg-2743 arg-2744 63))) (lambda (arg-2745) (lambda (arg-2746) (b* arg-2745 arg-2746 63))) (lambda (arg-2747) arg-2747)) (lambda (arg-2924) (lambda (arg-2925) (Prelude-div_Integral__Int arg-2924 arg-2925))) (lambda (arg-2926) (lambda (arg-2927) (Prelude-mod_Integral__Int arg-2926 arg-2927)))))) -(define Prelude-__Impl_HasIO_IO (lambda () (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))))) +(define Prelude-__Impl_Range_C-36a (lambda (arg-0 arg-1) (vector 0 (lambda (arg-8885) (lambda (arg-8886) (Prelude-rangeFromTo_Range__C-36a 'erased arg-1 arg-8885 arg-8886))) (lambda (arg-8887) (lambda (arg-8888) (lambda (arg-8889) (Prelude-rangeFromThenTo_Range__C-36a 'erased arg-1 arg-8887 arg-8888 arg-8889)))) (lambda (arg-8890) (Prelude-rangeFrom_Range__C-36a 'erased arg-1 arg-8890)) (lambda (arg-8891) (lambda (arg-8892) (Prelude-rangeFromThen_Range__C-36a 'erased arg-1 arg-8891 arg-8892)))))) +(define Prelude-__Impl_Ord_String (lambda () (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))))) +(define Prelude-__Impl_Ord_Prec (lambda () (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Prec arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Prec arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Prec arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Prec arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Prec arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Prec arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Prec arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Prec arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Prec arg-795 arg-796)))))) +(define Prelude-__Impl_Ord_Nat (lambda () (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Nat arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Nat arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Nat arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Nat arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Nat arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Nat arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Nat arg-795 arg-796)))))) +(define Prelude-__Impl_Ord_Integer (lambda () (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Integer arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Integer arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Integer arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Integer arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Integer arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Integer arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Integer arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Integer arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Integer arg-795 arg-796)))))) +(define Prelude-__Impl_Ord_Int (lambda () (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))))) +(define Prelude-__Impl_Ord_Bool (lambda () (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Bool arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Bool arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Bool arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Bool arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Bool arg-795 arg-796)))))) +(define Prelude-__Impl_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-0 arg-1 arg-2 arg-3) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) e-1)) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) e-1)) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) e-1)) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) e-1)) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-3 arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-3 arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-3 arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-3 arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-3 arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-3 arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-3 arg-795 arg-796)))))) +(define Prelude-__Impl_Ord_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-795 arg-796)))))) +(define Prelude-__Impl_Num_Nat (lambda () (vector 0 (lambda (arg-2751) (lambda (arg-2752) (Prelude-C-43_Num__Nat arg-2751 arg-2752))) (lambda (arg-2753) (lambda (arg-2754) (Prelude-C-42_Num__Nat arg-2753 arg-2754))) (lambda (arg-2755) (Prelude-fromInteger_Num__Nat arg-2755))))) +(define Prelude-__Impl_Num_Integer (lambda () (vector 0 (lambda (arg-2751) (lambda (arg-2752) (+ arg-2751 arg-2752))) (lambda (arg-2753) (lambda (arg-2754) (* arg-2753 arg-2754))) (lambda (arg-2755) arg-2755)))) +(define Prelude-__Impl_Num_Int (lambda () (vector 0 (lambda (arg-2751) (lambda (arg-2752) (b+ arg-2751 arg-2752 63))) (lambda (arg-2753) (lambda (arg-2754) (b* arg-2753 arg-2754 63))) (lambda (arg-2755) arg-2755)))) +(define Prelude-__Impl_Neg_Integer (lambda () (vector 0 (vector 0 (lambda (arg-2751) (lambda (arg-2752) (+ arg-2751 arg-2752))) (lambda (arg-2753) (lambda (arg-2754) (* arg-2753 arg-2754))) (lambda (arg-2755) arg-2755)) (lambda (arg-2805) (Prelude-negate_Neg__Integer arg-2805)) (lambda (arg-2806) (lambda (arg-2807) (Prelude-C-45_Neg__Integer arg-2806 arg-2807)))))) +(define Prelude-__Impl_Neg_Int (lambda () (vector 0 (vector 0 (lambda (arg-2751) (lambda (arg-2752) (b+ arg-2751 arg-2752 63))) (lambda (arg-2753) (lambda (arg-2754) (b* arg-2753 arg-2754 63))) (lambda (arg-2755) arg-2755)) (lambda (arg-2805) (Prelude-negate_Neg__Int arg-2805)) (lambda (arg-2806) (lambda (arg-2807) (Prelude-C-45_Neg__Int arg-2806 arg-2807)))))) +(define Prelude-__Impl_Monoid_String (lambda () (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (Prelude-neutral_Monoid__String)))) +(define Prelude-__Impl_Monoid_C-40ListC-32C-36aC-41 (lambda (arg-0) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) +(define Prelude-__Impl_Monad_Maybe (lambda () (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Prelude-pure_Applicative__Maybe 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Prelude-join_Monad__Maybe 'erased arg-3675)))))) +(define Prelude-__Impl_Monad_IO (lambda () (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-29 (arg-3675 eta-0))) (act-29 eta-0)))))))) +(define Prelude-__Impl_Monad_C-40EitherC-32C-36eC-41 (lambda (arg-0) (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (let ((sc0 arg-3443)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (func e-5)))))))))) (lambda (a) (lambda (arg-3510) (vector 1 arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (let ((sc0 arg-3511)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-3513)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (vector 1 (e-5 e-8)))) (else (let ((e-11 (vector-ref sc1 1))) (vector 0 e-11)))))))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Prelude-join_Monad__C-40EitherC-32C-36eC-41 'erased 'erased arg-3675)))))) +(define Prelude-__Impl_Integral_Integer (lambda () (vector 0 (vector 0 (lambda (arg-2751) (lambda (arg-2752) (+ arg-2751 arg-2752))) (lambda (arg-2753) (lambda (arg-2754) (* arg-2753 arg-2754))) (lambda (arg-2755) arg-2755)) (lambda (arg-2932) (lambda (arg-2933) (Prelude-div_Integral__Integer arg-2932 arg-2933))) (lambda (arg-2934) (lambda (arg-2935) (Prelude-mod_Integral__Integer arg-2934 arg-2935)))))) +(define Prelude-__Impl_Integral_Int (lambda () (vector 0 (vector 0 (lambda (arg-2751) (lambda (arg-2752) (b+ arg-2751 arg-2752 63))) (lambda (arg-2753) (lambda (arg-2754) (b* arg-2753 arg-2754 63))) (lambda (arg-2755) arg-2755)) (lambda (arg-2932) (lambda (arg-2933) (Prelude-div_Integral__Int arg-2932 arg-2933))) (lambda (arg-2934) (lambda (arg-2935) (Prelude-mod_Integral__Int arg-2934 arg-2935)))))) +(define Prelude-__Impl_HasIO_IO (lambda () (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))))) (define Prelude-__Impl_Functor_Maybe (lambda (ext-0 ext-1 ext-2 ext-3) (Prelude-map_Functor__Maybe 'erased 'erased ext-2 ext-3))) (define Prelude-__Impl_Functor_List (lambda (ext-0 ext-1 ext-2 ext-3) (Prelude-map_Functor__List 'erased 'erased ext-2 ext-3))) (define Prelude-__Impl_Functor_IO (lambda (ext-4 ext-1 ext-2 ext-3 ext-0) (Prelude-map_Functor__IO 'erased 'erased ext-2 ext-3 ext-0))) (define Prelude-__Impl_Functor_C-40PairC-32C-36aC-41 (lambda (arg-0 ext-0 ext-1 ext-2 ext-3) (Prelude-map_Functor__C-40PairC-32C-36aC-41 'erased 'erased 'erased ext-2 ext-3))) (define Prelude-__Impl_Functor_C-40EitherC-32C-36eC-41 (lambda (arg-0 ext-0 ext-1 ext-2 ext-3) (let ((sc0 ext-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (ext-2 e-5)))))))) (define Prelude-__Impl_Foldable_List (lambda () (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))))) -(define Prelude-__Impl_Eq_String (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))))) -(define Prelude-__Impl_Eq_Prec (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Prec arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Prec arg-430 arg-431)))))) -(define Prelude-__Impl_Eq_Ordering (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Ordering arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Ordering arg-430 arg-431)))))) -(define Prelude-__Impl_Eq_Nat (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))))) -(define Prelude-__Impl_Eq_Integer (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Integer arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Integer arg-430 arg-431)))))) -(define Prelude-__Impl_Eq_Int (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))))) -(define Prelude-__Impl_Eq_Char (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Char arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Char arg-430 arg-431)))))) -(define Prelude-__Impl_Eq_Bool (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))))) -(define Prelude-__Impl_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-0 arg-1 arg-2 arg-3) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-3 arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-3 arg-430 arg-431)))))) -(define Prelude-__Impl_Eq_C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-430 arg-431)))))) -(define Prelude-__Impl_Eq_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased arg-1 arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased arg-1 arg-430 arg-431)))))) +(define Prelude-__Impl_Eq_String (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))))) +(define Prelude-__Impl_Eq_Prec (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Prec arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Prec arg-438 arg-439)))))) +(define Prelude-__Impl_Eq_Ordering (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Ordering arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Ordering arg-438 arg-439)))))) +(define Prelude-__Impl_Eq_Nat (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))))) +(define Prelude-__Impl_Eq_Integer (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Integer arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Integer arg-438 arg-439)))))) +(define Prelude-__Impl_Eq_Int (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))))) +(define Prelude-__Impl_Eq_Char (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Char arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Char arg-438 arg-439)))))) +(define Prelude-__Impl_Eq_Bool (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))))) +(define Prelude-__Impl_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-0 arg-1 arg-2 arg-3) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-3 arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-3 arg-438 arg-439)))))) +(define Prelude-__Impl_Eq_C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-438 arg-439)))))) +(define Prelude-__Impl_Eq_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased arg-1 arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased arg-1 arg-438 arg-439)))))) (define Prelude-__Impl_Cast_Int_Integer (lambda (ext-0) (Prelude-cast_Cast__Int_Integer ext-0))) -(define Prelude-__Impl_Applicative_Maybe (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Prelude-pure_Applicative__Maybe 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3503 arg-3505)))))))) -(define Prelude-__Impl_Applicative_List (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Prelude-map_Functor__List 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Prelude-pure_Applicative__List 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Prelude-C-60C-42C-62_Applicative__List 'erased 'erased arg-3503 arg-3505)))))))) -(define Prelude-__Impl_Applicative_IO (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))))) -(define Prelude-__Impl_Applicative_C-40EitherC-32C-36eC-41 (lambda (arg-0) (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (let ((sc0 arg-3435)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (func e-5)))))))))) (lambda (a) (lambda (arg-3502) (vector 1 arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (let ((sc0 arg-3503)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-3505)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (vector 1 (e-5 e-8)))) (else (let ((e-11 (vector-ref sc1 1))) (vector 0 e-11)))))))))))))))) +(define Prelude-__Impl_Applicative_Maybe (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Prelude-pure_Applicative__Maybe 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3511 arg-3513)))))))) +(define Prelude-__Impl_Applicative_List (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Prelude-map_Functor__List 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Prelude-pure_Applicative__List 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Prelude-C-60C-42C-62_Applicative__List 'erased 'erased arg-3511 arg-3513)))))))) +(define Prelude-__Impl_Applicative_IO (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))))) +(define Prelude-__Impl_Applicative_C-40EitherC-32C-36eC-41 (lambda (arg-0) (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (let ((sc0 arg-3443)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (func e-5)))))))))) (lambda (a) (lambda (arg-3510) (vector 1 arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (let ((sc0 arg-3511)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-3513)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (vector 1 (e-5 e-8)))) (else (let ((e-11 (vector-ref sc1 1))) (vector 0 e-11)))))))))))))))) (define Prelude-__HasIO_C-40MonadC-32ioC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (define Prelude-__Applicative_C-40FunctorC-32fC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (define Prelude-C-62_Ord__String (lambda (arg-0 arg-1) (let ((sc0 (or (and (string>? arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0))))) @@ -842,7 +848,7 @@ (define Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-C-61C-61_Eq__Ordering (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-3 arg-4 arg-5) 2))) (define Prelude-C-62_Ord__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-C-61C-61_Eq__Ordering (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-2 arg-3) 2))) (define Prelude-C-62C-62C-61_Monad__Maybe (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (arg-3 e-2))))))) -(define Prelude-C-62C-62C-61_Monad__List (lambda (arg-0 arg-1 arg-2 arg-3) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) arg-3) arg-2))) +(define Prelude-C-62C-62C-61_Monad__List (lambda (arg-0 arg-1 arg-2 arg-3) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) arg-3) arg-2))) (define Prelude-C-62C-62C-61_Monad__IO (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-1 (arg-2 ext-0))) ((arg-3 act-1) ext-0)))) (define Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (arg-4 e-5))))))) (define Prelude-C-62C-61_Ord__String (lambda (arg-0 arg-1) (let ((sc0 (or (and (string>=? arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0))))) @@ -891,7 +897,7 @@ (define Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2))))))) (define Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 (lambda (arg-0 ext-0 ext-1) (List-Prelude-C-43C-43 'erased ext-0 ext-1))) (define Prelude-C-60C-42C-62_Applicative__Maybe (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (vector 1 (e-1 e-3))))(else (vector 0 ))))))(else (vector 0 )))))) -(define Prelude-C-60C-42C-62_Applicative__List (lambda (arg-0 arg-1 arg-2 arg-3) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (f) (Prelude-map_Functor__List 'erased 'erased f arg-3))) arg-2))) +(define Prelude-C-60C-42C-62_Applicative__List (lambda (arg-0 arg-1 arg-2 arg-3) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (f) (Prelude-map_Functor__List 'erased 'erased f arg-3))) arg-2))) (define Prelude-C-60C-42C-62_Applicative__IO (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-6 (arg-2 ext-0))) (let ((act-5 (arg-3 ext-0))) (act-6 act-5))))) (define Prelude-C-60C-42C-62_Applicative__C-40EitherC-32C-36eC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (vector 1 (e-5 e-8)))) (else (let ((e-11 (vector-ref sc1 1))) (vector 0 e-11))))))))))) (define Prelude-C-47_Fractional__Double (lambda (ext-0 ext-1) (/ ext-0 ext-1))) @@ -918,22 +924,22 @@ (define Prelude-C-42_Num__Int (lambda (ext-0 ext-1) (b* ext-0 ext-1 63))) (define Prelude-C-42_Num__Double (lambda (ext-0 ext-1) (* ext-0 ext-1))) (define Prelude-C-124C-124 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) 0) (else (arg-1)))))) -(define Prelude-unpack (lambda (arg-0) (Prelude-n--6696-7026-unpackC-39 arg-0 0 (Prelude-length arg-0) arg-0))) +(define Prelude-unpack (lambda (arg-0) (Prelude-n--6699-7035-unpackC-39 arg-0 0 (Prelude-length arg-0) arg-0))) (define Prelude-traverse (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-3 (vector-ref sc0 3))) (lambda (arg-6) (lambda (arg-7) ((((((e-3 'erased) 'erased) 'erased) arg-4) arg-6) arg-7))))))) -(define Prelude-toUpper (lambda (arg-0) (Prelude-case--6831-7150 arg-0 (Prelude-isLower arg-0)))) -(define Prelude-toLower (lambda (arg-0) (Prelude-case--6846-7164 arg-0 (Prelude-isUpper arg-0)))) +(define Prelude-toUpper (lambda (arg-0) (Prelude-case--6834-7159 arg-0 (Prelude-isLower arg-0)))) +(define Prelude-toLower (lambda (arg-0) (Prelude-case--6849-7173 arg-0 (Prelude-isUpper arg-0)))) (define Prelude-tan (lambda (arg-0) (tan arg-0))) -(define Prelude-takeUntil (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (Prelude-case--8538-8789 'erased e-1 e-2 arg-1 (arg-1 e-1))))))) -(define Prelude-takeBefore (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (Prelude-case--8590-8840 'erased e-1 e-2 arg-1 (arg-1 e-1))))))) +(define Prelude-takeUntil (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (Prelude-case--8541-8798 'erased e-1 e-2 arg-1 (arg-1 e-1))))))) +(define Prelude-takeBefore (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (Prelude-case--8593-8849 'erased e-1 e-2 arg-1 (arg-1 e-1))))))) (define Prelude-take (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 ))(else (let ((e-0 (- arg-1 1))) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (Prelude-take 'erased e-0 (e-3)))))))))))) -(define Prelude-substr (lambda (arg-0 arg-1 arg-2) (Prelude-case--6636-6980 arg-2 arg-1 arg-0 (Prelude-C-60_Ord__Integer arg-0 (Prelude-length arg-2))))) +(define Prelude-substr (lambda (arg-0 arg-1 arg-2) (Prelude-case--6639-6989 arg-2 arg-1 arg-0 (Prelude-C-60_Ord__Integer arg-0 (Prelude-length arg-2))))) (define Prelude-strCons (lambda (ext-0 ext-1) (string-cons ext-0 ext-1))) (define Prelude-sqrt (lambda (arg-0) (sqrt arg-0))) (define Prelude-sin (lambda (arg-0) (sin arg-0))) (define Prelude-showPrec (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-2) (lambda (arg-3) ((e-2 arg-2) arg-3))))))) (define Prelude-showParens (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 1) arg-1) (else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-1 ")"))))))) (define Prelude-showLitString (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) eta-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 #\") (lambda (eta-0) (Strings-Prelude-C-43C-43 "\\\"" ((Prelude-showLitString e-3) eta-0))))(else (lambda (eta-0) ((Prelude-showLitChar e-2) ((Prelude-showLitString e-3) eta-0))))))))))))) -(define Prelude-showLitChar (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 (integer->char 7)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\a" arg-1))) ((equal? sc0 (integer->char 8)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\b" arg-1))) ((equal? sc0 (integer->char 12)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\f" arg-1))) ((equal? sc0 (integer->char 10)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\n" arg-1))) ((equal? sc0 (integer->char 13)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\r" arg-1))) ((equal? sc0 (integer->char 9)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\t" arg-1))) ((equal? sc0 (integer->char 11)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\v" arg-1))) ((equal? sc0 (integer->char 14)) (lambda (eta-0) (Prelude-protectEsc (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 #\H)) "\\SO" eta-0))) ((equal? sc0 (integer->char 127)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\DEL" arg-1))) ((equal? sc0 #\\) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\\\" arg-1)))(else (Prelude-case--7373-7779 arg-0 (Prelude-n--7373-7659-getAt arg-0 (Prelude-fromInteger_Num__Nat (char->integer arg-0)) (Prelude-n--7373-7658-asciiTab arg-0)))))))) +(define Prelude-showLitChar (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 (integer->char 7)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\a" arg-1))) ((equal? sc0 (integer->char 8)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\b" arg-1))) ((equal? sc0 (integer->char 12)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\f" arg-1))) ((equal? sc0 (integer->char 10)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\n" arg-1))) ((equal? sc0 (integer->char 13)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\r" arg-1))) ((equal? sc0 (integer->char 9)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\t" arg-1))) ((equal? sc0 (integer->char 11)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\v" arg-1))) ((equal? sc0 (integer->char 14)) (lambda (eta-0) (Prelude-protectEsc (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 #\H)) "\\SO" eta-0))) ((equal? sc0 (integer->char 127)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\DEL" arg-1))) ((equal? sc0 #\\) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\\\" arg-1)))(else (Prelude-case--7376-7788 arg-0 (Prelude-n--7376-7668-getAt arg-0 (Prelude-fromInteger_Num__Nat (char->integer arg-0)) (Prelude-n--7376-7667-asciiTab arg-0)))))))) (define Prelude-showCon (lambda (arg-0 arg-1 arg-2) (Prelude-showParens (Prelude-C-62C-61_Ord__Prec arg-0 (vector 6 )) (Strings-Prelude-C-43C-43 arg-1 arg-2)))) (define Prelude-showArg (lambda (arg-0 arg-1 arg-2) (Strings-Prelude-C-43C-43 " " (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 (vector 6 )) arg-2)))))) (define Prelude-show (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (e-1 arg-2)))))) @@ -945,7 +951,7 @@ (define Prelude-putStrLn (lambda (arg-0 arg-1 arg-2) (Prelude-putStr 'erased arg-1 (string-append arg-2 "\u000a")))) (define Prelude-putStr (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (Prelude-prim__putStr arg-2 eta-0))))))) (define Prelude-pure (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-3) ((e-2 'erased) arg-3)))))) -(define Prelude-protectEsc (lambda (arg-0 arg-1 arg-2) (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 (Prelude-case--7348-7613 arg-2 arg-1 arg-0 (Prelude-firstCharIs arg-0 arg-2)) arg-2)))) +(define Prelude-protectEsc (lambda (arg-0 arg-1 arg-2) (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 (Prelude-case--7351-7622 arg-2 arg-1 arg-0 (Prelude-firstCharIs arg-0 arg-2)) arg-2)))) (define Prelude-printLn (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-putStrLn 'erased (Builtin-fst 'erased 'erased arg-2) (let ((sc0 (Builtin-snd 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc0 1))) (e-1 arg-3)))))) (define Prelude-primNumShow (lambda (arg-0 arg-1 arg-2 arg-3) (let ((str (arg-1 arg-3))) (Prelude-showParens (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Prec arg-2 (vector 5 )) (lambda () (Prelude-firstCharIs (lambda (arg-4) (Prelude-C-61C-61_Eq__Char arg-4 #\-)) str))) str)))) (define Prelude-primIO (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) arg-3))))) @@ -972,11 +978,11 @@ (define Prelude-isOctDigit (lambda (arg-0) (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Char arg-0 #\0) (lambda () (Prelude-C-60C-61_Ord__Char arg-0 #\7))))) (define Prelude-isNL (lambda (arg-0) (Prelude-C-124C-124 (Prelude-C-61C-61_Eq__Char arg-0 (integer->char 13)) (lambda () (Prelude-C-61C-61_Eq__Char arg-0 (integer->char 10)))))) (define Prelude-isLower (lambda (arg-0) (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Char arg-0 #\a) (lambda () (Prelude-C-60C-61_Ord__Char arg-0 #\z))))) -(define Prelude-isHexDigit (lambda (arg-0) (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Char arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Char arg-430 arg-431)))) (Prelude-toUpper arg-0) (Prelude-n--6861-7176-hexChars arg-0)))) +(define Prelude-isHexDigit (lambda (arg-0) (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Char arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Char arg-438 arg-439)))) (Prelude-toUpper arg-0) (Prelude-n--6864-7185-hexChars arg-0)))) (define Prelude-isDigit (lambda (arg-0) (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Char arg-0 #\0) (lambda () (Prelude-C-60C-61_Ord__Char arg-0 #\9))))) (define Prelude-isAlphaNum (lambda (arg-0) (Prelude-C-124C-124 (Prelude-isDigit arg-0) (lambda () (Prelude-isAlpha arg-0))))) (define Prelude-isAlpha (lambda (arg-0) (Prelude-C-124C-124 (Prelude-isUpper arg-0) (lambda () (Prelude-isLower arg-0))))) -(define Prelude-integerToNat (lambda (arg-0) (Prelude-case--4320-4487 arg-0 (let ((sc0 (or (and (<= arg-0 0) 1) 0))) (cond ((equal? sc0 0) 1)(else 0)))))) +(define Prelude-integerToNat (lambda (arg-0) (Prelude-case--4322-4495 arg-0 (let ((sc0 (or (and (<= arg-0 0) 1) 0))) (cond ((equal? sc0 0) 1)(else 0)))))) (define Prelude-intToBool (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) 1)(else 0))))) (define Prelude-getLine (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (Prelude-prim__getStr eta-0))))))) (define Prelude-fromInteger (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) (lambda (arg-2) (e-3 arg-2)))))) @@ -984,12 +990,12 @@ (define Prelude-foldl (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-4) (lambda (arg-5) (lambda (arg-6) (((((e-2 'erased) 'erased) arg-4) arg-5) arg-6)))))))) (define Prelude-floor (lambda (arg-0) (floor arg-0))) (define Prelude-firstCharIs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 "") 1)(else (arg-0 (string-ref arg-1 0))))))) -(define Prelude-fastPack (lambda (arg-0) (PrimIO-unsafePerformIO 'erased (lambda (eta-0) (apply string (blodwen-read-args (Prelude-n--6683-7015-toFArgs arg-0 arg-0))))))) +(define Prelude-fastPack (lambda (arg-0) (PrimIO-unsafePerformIO 'erased (lambda (eta-0) (apply string (blodwen-read-args (Prelude-n--6686-7024-toFArgs arg-0 arg-0))))))) (define Prelude-exp (lambda (arg-0) (exp arg-0))) -(define Prelude-elem (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-case--6482-6857 'erased arg-1 arg-2 e-2 e-3 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-2) e-2))))))))))) +(define Prelude-elem (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-case--6484-6865 'erased arg-1 arg-2 e-2 e-3 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-2) e-2))))))))))) (define Prelude-either (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) ((arg-3) e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((arg-4) e-5))))))) (define Prelude-div (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-2) (lambda (arg-3) ((e-2 arg-2) arg-3))))))) -(define Prelude-defaultInteger (lambda () (vector 0 (lambda (arg-2743) (lambda (arg-2744) (+ arg-2743 arg-2744))) (lambda (arg-2745) (lambda (arg-2746) (* arg-2745 arg-2746))) (lambda (arg-2747) arg-2747)))) +(define Prelude-defaultInteger (lambda () (vector 0 (lambda (arg-2751) (lambda (arg-2752) (+ arg-2751 arg-2752))) (lambda (arg-2753) (lambda (arg-2754) (* arg-2753 arg-2754))) (lambda (arg-2755) arg-2755)))) (define Prelude-countFrom (lambda (arg-0 arg-1 arg-2) (vector 0 arg-1 (lambda () (Prelude-countFrom 'erased (arg-2 arg-1) arg-2))))) (define Prelude-cos (lambda (arg-0) (cos arg-0))) (define Prelude-concatMap (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 (Builtin-fst 'erased 'erased arg-3))) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-5) (((((e-1 'erased) 'erased) (lambda (eta-0) (lambda (arg-6) (let ((sc1 (Builtin-snd 'erased 'erased arg-3))) (let ((e-4 (vector-ref sc1 1))) ((e-4 (arg-4 eta-0)) arg-6)))))) (let ((sc1 (Builtin-snd 'erased 'erased arg-3))) (let ((e-3 (vector-ref sc1 2))) e-3))) arg-5)))))) @@ -1034,10 +1040,10 @@ (define Builtin-believe_me (lambda (arg-0 arg-1 ext-0) ext-0)) (define Builtin-assert_total (lambda (arg-0 arg-1) arg-1)) (define Builtin-assert_smaller (lambda (arg-0 arg-1 arg-2 arg-3) arg-3)) -(define PrimIO-case--389-413 (lambda (arg-0 arg-1 arg-2 arg-3) (PrimIO-unsafeDestroyWorld 'erased 'erased arg-3))) -(define PrimIO-case--276-337 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (arg-7 arg-6))) -(define PrimIO-case--258-315 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (PrimIO-case--276-337 'erased 'erased 'erased 'erased 'erased arg-5 'erased (arg-3 arg-5)))) -(define PrimIO-unsafePerformIO (lambda (arg-0 arg-1) (PrimIO-unsafeCreateWorld 'erased (lambda (w) (PrimIO-case--389-413 'erased 'erased 'erased (arg-1 w)))))) +(define PrimIO-case--391-421 (lambda (arg-0 arg-1 arg-2 arg-3) (PrimIO-unsafeDestroyWorld 'erased 'erased arg-3))) +(define PrimIO-case--278-345 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (arg-7 arg-6))) +(define PrimIO-case--260-323 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (PrimIO-case--278-345 'erased 'erased 'erased 'erased 'erased arg-5 'erased (arg-3 arg-5)))) +(define PrimIO-unsafePerformIO (lambda (arg-0 arg-1) (PrimIO-unsafeCreateWorld 'erased (lambda (w) (PrimIO-case--391-421 'erased 'erased 'erased (arg-1 w)))))) (define PrimIO-unsafeDestroyWorld (lambda (arg-0 arg-1 arg-2) arg-2)) (define PrimIO-unsafeCreateWorld (lambda (arg-0 arg-1) (arg-1 #f))) (define PrimIO-schemeCall (lambda (arg-0 arg-1 arg-2 ext-0) (apply (eval (string->symbol arg-1)) (blodwen-read-args arg-2)))) @@ -1045,120 +1051,120 @@ (define PrimIO-prim__nullPtr (lambda (arg-0 arg-1) (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased arg-1)))) (define PrimIO-prim__forgetPtr (lambda (arg-0 ext-0) (Builtin-believe_me 'erased 'erased ext-0))) (define PrimIO-io_pure (lambda (arg-0 arg-1 ext-0) arg-1)) -(define PrimIO-io_bind (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (PrimIO-case--258-315 'erased 'erased 'erased arg-3 'erased (arg-2 ext-0)))) +(define PrimIO-io_bind (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (PrimIO-case--260-323 'erased 'erased 'erased arg-3 'erased (arg-2 ext-0)))) (define PrimIO-fromPrim (lambda (arg-0 arg-1) arg-1)) (define Maybe-Data-toMaybe (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 1 (arg-2))) (else (vector 0 )))))) (define Maybe-Data-isJust (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) 1) (else 0))))) (define Maybe-Data-fromMaybe (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (arg-1)) (else (let ((e-2 (vector-ref sc0 1))) e-2)))))) -(define REPL-Yaffle-case--13213-1648 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Yaffle-repl arg-2 arg-1 arg-0 eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define REPL-Yaffle-case--13184-1592 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x-0) (Source-Lexer-Parser-show_Show__Token x-0)) (lambda (d) (lambda (x-0) (Source-Lexer-Parser-showPrec_Show__Token d x-0)))) x)) (lambda (d) (lambda (x) (Support-Parser-showPrec_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x-0) (Source-Lexer-Parser-show_Show__Token x-0)) (lambda (d-0) (lambda (x-0) (Source-Lexer-Parser-showPrec_Show__Token d-0 x-0)))) d x))))) e-2) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (REPL-Yaffle-repl arg-2 arg-1 arg-0 eta-0)))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPL-Yaffle-processCatch arg-2 arg-1 arg-0 e-5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (REPL-Yaffle-repl arg-2 arg-1 arg-0 eta-0)) (else (vector 1 (vector 0 ))))))))))))))))) -(define REPL-Yaffle-case--11953-1432 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-emptyFC) arg-0) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-24 (Termination-Core-checkTotal arg-3 (FC-Core-emptyFC) fn eta-1))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (Context-Core-getTotality arg-3 (FC-Core-emptyFC) fn eta-1))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-26 (arg-3664 eta-2))) ((arg-3665 act-26) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name fn) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-6)))) eta-1))) (vector 1 act-26))))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 0))))))))))) -(define REPL-Yaffle-case--12866-1332 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-9)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-9)))))))) -(define REPL-Yaffle-case--12807-1266 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-10) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-10)) e-0))))) eta-0))) (vector 1 act-24))))) ((2) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Prelude-C-43C-43 ": Calls non covering function" (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-3)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-1)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-1))))))))) eta-0))) (vector 1 act-24)))))(else (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) ": All cases covered")) eta-0))) (vector 1 act-24)))))))) -(define REPL-Yaffle-case--11953-1212 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-emptyFC) arg-0) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-24 (Context-Core-getTotality arg-3 (FC-Core-emptyFC) fn eta-1))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((bind-0 arg-5)) ((REPL-Yaffle-case--12807-1266 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 bind-0 fn e-5 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))) eta-1))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 0))))))))))) -(define REPL-Yaffle-case--12561-1042 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-6)) eta-0))) (vector 1 act-24))))))) (else (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Failed") eta-0))) (vector 1 act-24)))))))) -(define REPL-Yaffle-case--12507-986 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Context-Core-logTime 'erased arg-4 (lambda () "Generation") (lambda (eta-2) (GenerateDef-Interactive-TTImp-makeDef arg-4 arg-3 arg-2 (lambda (p) (lambda (n) (FC-Core-onLine arg-1 p))) arg-9 eta-2)) eta-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((sc4 e-2)) (let ((e-6 (vector-ref sc4 2))) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-25 (arg-3664 eta-2))) ((arg-3665 act-25) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-6)) eta-1))) (vector 1 act-25)))))) (else (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-25 (arg-3664 eta-2))) ((arg-3665 act-25) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Failed") eta-1))) (vector 1 act-25))))))))))) (lambda (err) (lambda (eta-1) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-24 (arg-3664 eta-2))) ((arg-3665 act-24) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Can't find a definition for " (Name-Core-show_Show__Name arg-9))) eta-1))) (vector 1 act-24)))) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Already defined") eta-0))) (vector 1 act-24)))))))) (else (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0))) eta-0))) (vector 1 act-24)))))))) -(define REPL-Yaffle-case--11953-937 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-lookupDefExact e-9 (let ((sc4 arg-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-2 (vector-ref sc5 1))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (Context-Core-logTime 'erased arg-4 (lambda () "Generation") (lambda (eta-2) (GenerateDef-Interactive-TTImp-makeDef arg-4 arg-3 arg-2 (lambda (p) (lambda (n) (FC-Core-onLine arg-1 p))) e-9 eta-2)) eta-1))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((sc9 e-3)) (let ((e-11 (vector-ref sc9 2))) (let ((act-26 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-26 (arg-3664 eta-2))) ((arg-3665 act-26) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-11)) eta-1))) (vector 1 act-26)))))) (else (let ((act-26 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-26 (arg-3664 eta-2))) ((arg-3665 act-26) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Failed") eta-1))) (vector 1 act-26))))))))))) (lambda (err) (lambda (eta-1) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-25 (arg-3664 eta-2))) ((arg-3665 act-25) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Can't find a definition for " (Name-Core-show_Show__Name e-9))) eta-1))) (vector 1 act-25)))) eta-0))(else (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Already defined") eta-0))) (vector 1 act-25))))))) (else (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0))) eta-0))) (vector 1 act-25)))))))))))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 0)))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0))) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 0))))))))))) -(define REPL-Yaffle-case--11953-790 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (ExprSearch-Interactive-TTImp-exprSearch arg-3 arg-2 arg-1 (FC-Core-toplevelFC) e-6 (vector 0 ) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (unbox arg-3))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) eta-1 eta-2))) e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse_ 'erased 'erased (lambda (d) (lambda (eta-1) (let ((act-27 (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) d eta-1))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-28 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-28 (arg-3664 eta-2))) ((arg-3665 act-28) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d-0) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x))))) e-12) eta-1))) (vector 1 act-28))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (vector 1 0))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-toplevelFC) arg-0) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))) -(define REPL-Yaffle-case--11953-652 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Unify-Core-search (vector 0 ) arg-3 arg-1 (FC-Core-toplevelFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-6 e-11 (vector 0 ) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (unbox arg-3))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-26 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-5 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 (let ((act-27 (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-9 eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-28 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-28 (arg-3664 eta-1))) ((arg-3665 act-28) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x))))) e-12) eta-0))) (vector 1 act-28))))))))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (vector 1 0))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-toplevelFC) arg-0) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))) -(define REPL-Yaffle-case--11953-576 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 ((Unelab-TTImp-unelab (vector 0 ) arg-3 (vector 0 ) e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-28 (arg-3664 eta-1))) ((arg-3665 act-28) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x))))) e-8) eta-0))) (vector 1 act-28))))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 0))))))))))))))))))))))))) -(define REPL-Yaffle-case--11953-423 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normalise (vector 0 ) e-5 (vector 0 ) e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 ((Unelab-TTImp-unelab (vector 0 ) arg-3 (vector 0 ) e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x))))) e-7) eta-0))) (vector 1 act-27))))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 0)))))))))))))))))))) -(define REPL-Yaffle-n--11953-482-printName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-7 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 ((Unelab-TTImp-unelab (vector 0 ) arg-4 (vector 0 ) e-8) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp e-9)))) eta-0))) (vector 1 act-27))))))))))))))))))))))))) -(define REPL-Yaffle-showInfo (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " ==>\u000a" (Strings-Prelude-C-43C-43 "\u0009" (Strings-Prelude-C-43C-43 (Context-Core-show_Show__Def (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17))) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 "\u0009" (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__SCCall x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__SCCall d x)))) (let ((sc2 e-7)) (let ((e-20 (vector-ref sc2 21))) e-20))) "\u000a")))))))) eta-0))) (vector 1 act-24)))))))))) -(define REPL-Yaffle-repl (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 ((Prelude-putStr 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Yaffle> ") ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 ((Prelude-getLine 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341)))) ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((REPL-Yaffle-case--13184-1592 arg-2 arg-1 arg-0 e-5 e-6 (Source-Parser-runParser 'erased 0 (vector 0 ) e-6 (Parser-TTImp-command))) ext-0))))))))))))) -(define REPL-Yaffle-processCatch (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Core-Core-catch_Catchable__Core_Error 'erased (REPL-Yaffle-process arg-0 arg-1 arg-2 arg-3) (lambda (err) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Core-Core-show_Show__Error err)) eta-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 0))))))) ext-0))) -(define REPL-Yaffle-process (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-1 arg-2 0 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-0 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-normalise (vector 0 ) e-6 (vector 0 ) e-2 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 ((Unelab-TTImp-unelab (vector 0 ) arg-0 (vector 0 ) e-7) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-28 (arg-3664 eta-1))) ((arg-3665 act-28) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x))))) e-8) eta-0))) (vector 1 act-28))))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 0))))))))))))))))))))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-lookupTyName e-10 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Yaffle-n--11953-482-printName e-9 e-10 arg-2 arg-1 arg-0 eta-1)) e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 0)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-1 arg-2 0 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-1 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Normalise-Core-normaliseHoles (vector 0 ) e-6 (vector 0 ) e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 ((Unelab-TTImp-unelab (vector 0 ) arg-0 (vector 0 ) e-8) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-29 (arg-3664 eta-1))) ((arg-3665 act-29) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x))))) e-9) eta-0))) (vector 1 act-29))))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 0))))))))))))))))))))))))))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyName e-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((act-26 (Unify-Core-search (vector 0 ) arg-0 arg-2 (FC-Core-toplevelFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-8 e-11 (vector 0 ) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-28 (Normalise-Core-normaliseHoles (vector 0 ) e-12 (vector 0 ) e-9 eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-29 (let ((act-29 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-13 eta-0))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-30 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-30 (arg-3664 eta-1))) ((arg-3665 act-30) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x))))) e-14) eta-0))) (vector 1 act-30))))))))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (vector 1 0)))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-toplevelFC) e-2) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyName e-3 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-26 (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-1 arg-2 (FC-Core-toplevelFC) e-8 (vector 0 ) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-normaliseHoles (vector 0 ) e-12 (vector 0 ) eta-1 eta-2))) e-9) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-29 ((Core-Core-traverse_ 'erased 'erased (lambda (d) (lambda (eta-1) (let ((act-29 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) d eta-1))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-30 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-30 (arg-3664 eta-2))) ((arg-3665 act-30) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d-0) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x))))) e-14) eta-1))) (vector 1 act-30))))))))) e-13) eta-0))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (vector 1 0)))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-toplevelFC) e-3) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (Metadata-Core-findTyDeclAt arg-1 (lambda (p) (lambda (n) (FC-Core-onLine e-4 p))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (let ((e-11 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-10)) (let ((act-26 (let ((act-26 (Context-Core-lookupDefExact e-11 (let ((sc7 e-6)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((1) (let ((e-2 (vector-ref sc8 1))) (let ((sc9 e-2)) (case (vector-ref sc9 0) ((0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-27 (Context-Core-logTime 'erased arg-0 (lambda () "Generation") (lambda (eta-2) (GenerateDef-Interactive-TTImp-makeDef arg-0 arg-1 arg-2 (lambda (p) (lambda (n) (FC-Core-onLine e-4 p))) e-11 eta-2)) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-15)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((sc12 e-3)) (let ((e-16 (vector-ref sc12 2))) (let ((act-28 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-28 (arg-3664 eta-2))) ((arg-3665 act-28) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-16)) eta-1))) (vector 1 act-28)))))) (else (let ((act-28 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-28 (arg-3664 eta-2))) ((arg-3665 act-28) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Failed") eta-1))) (vector 1 act-28))))))))))) (lambda (err) (lambda (eta-1) (let ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-27 (arg-3664 eta-2))) ((arg-3665 act-27) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Can't find a definition for " (Name-Core-show_Show__Name e-11))) eta-1))) (vector 1 act-27)))) eta-0))(else (let ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Already defined") eta-0))) (vector 1 act-27))))))) (else (let ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name e-5))) eta-0))) (vector 1 act-27)))))))))))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (vector 1 0))))))))))))) (else (let ((act-26 (let ((act-26 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name e-5))) eta-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 0)))))))))))))))))))))) ((5) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-6 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-emptyFC) e-6) eta-0))(else (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-26 (Context-Core-getTotality arg-0 (FC-Core-emptyFC) fn eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((bind-0 e-7)) ((REPL-Yaffle-case--12807-1266 e-6 arg-2 arg-1 arg-0 e-5 e-7 bind-0 fn e-8 (let ((sc4 e-8)) (let ((e-1 (vector-ref sc4 2))) e-1))) eta-1))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-7)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 0))))))))))))))))))))) ((6) (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-7 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-emptyFC) e-7) eta-0))(else (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-26 (Termination-Core-checkTotal arg-0 (FC-Core-emptyFC) fn eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (Context-Core-getTotality arg-0 (FC-Core-emptyFC) fn eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-28 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-28 (arg-3664 eta-2))) ((arg-3665 act-28) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name fn) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-9)))) eta-1))) (vector 1 act-28))))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 0))))))))))))))))))))) ((7) (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Context-Core-lookupCtxtName e-8 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Yaffle-showInfo eta-1)) e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 0))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Bye for now!") eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 1))))))))))) -(define Source-Parser-case--2688-370 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Source-Parser-runParser 'erased 0 (Unlit-Parser-isLitFile arg-2) e-2 arg-1)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 (vector 2 e-5))))))))) +(define REPL-Yaffle-case--13243-1656 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Yaffle-repl arg-2 arg-1 arg-0 eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define REPL-Yaffle-case--13214-1600 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 0 (lambda (x) (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x-0) (Source-Lexer-Parser-show_Show__Token x-0)) (lambda (d) (lambda (x-0) (Source-Lexer-Parser-showPrec_Show__Token d x-0)))) x)) (lambda (d) (lambda (x) (Support-Parser-showPrec_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x-0) (Source-Lexer-Parser-show_Show__Token x-0)) (lambda (d-0) (lambda (x-0) (Source-Lexer-Parser-showPrec_Show__Token d-0 x-0)))) d x))))) e-2) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (REPL-Yaffle-repl arg-2 arg-1 arg-0 eta-0)))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPL-Yaffle-processCatch arg-2 arg-1 arg-0 e-5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (REPL-Yaffle-repl arg-2 arg-1 arg-0 eta-0)) (else (vector 1 (vector 0 ))))))))))))))))) +(define REPL-Yaffle-case--11983-1440 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-emptyFC) arg-0) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-24 (Termination-Core-checkTotal arg-3 (FC-Core-emptyFC) fn eta-1))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (Context-Core-getTotality arg-3 (FC-Core-emptyFC) fn eta-1))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-26 (arg-3672 eta-2))) ((arg-3673 act-26) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name fn) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-6)))) eta-1))) (vector 1 act-26))))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 0))))))))))) +(define REPL-Yaffle-case--12896-1340 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-9)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-9)))))))) +(define REPL-Yaffle-case--12837-1274 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-10) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-10)) e-0))))) eta-0))) (vector 1 act-24))))) ((2) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Prelude-C-43C-43 ": Calls non covering function" (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-3)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-1)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-1))))))))) eta-0))) (vector 1 act-24)))))(else (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) ": All cases covered")) eta-0))) (vector 1 act-24)))))))) +(define REPL-Yaffle-case--11983-1220 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-emptyFC) arg-0) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-24 (Context-Core-getTotality arg-3 (FC-Core-emptyFC) fn eta-1))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((bind-0 arg-5)) ((REPL-Yaffle-case--12837-1274 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 bind-0 fn e-5 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))) eta-1))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 0))))))))))) +(define REPL-Yaffle-case--12591-1050 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-6)) eta-0))) (vector 1 act-24))))))) (else (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "Failed") eta-0))) (vector 1 act-24)))))))) +(define REPL-Yaffle-case--12537-994 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Context-Core-logTime 'erased arg-4 (lambda () "Generation") (lambda (eta-2) (GenerateDef-Interactive-TTImp-makeDef arg-4 arg-3 arg-2 (lambda (p) (lambda (n) (FC-Core-onLine arg-1 p))) arg-9 eta-2)) eta-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((sc4 e-2)) (let ((e-6 (vector-ref sc4 2))) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-25 (arg-3672 eta-2))) ((arg-3673 act-25) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-6)) eta-1))) (vector 1 act-25)))))) (else (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-25 (arg-3672 eta-2))) ((arg-3673 act-25) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "Failed") eta-1))) (vector 1 act-25))))))))))) (lambda (err) (lambda (eta-1) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-24 (arg-3672 eta-2))) ((arg-3673 act-24) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Can't find a definition for " (Name-Core-show_Show__Name arg-9))) eta-1))) (vector 1 act-24)))) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "Already defined") eta-0))) (vector 1 act-24)))))))) (else (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0))) eta-0))) (vector 1 act-24)))))))) +(define REPL-Yaffle-case--11983-945 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-lookupDefExact e-9 (let ((sc4 arg-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-2 (vector-ref sc5 1))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (Context-Core-logTime 'erased arg-4 (lambda () "Generation") (lambda (eta-2) (GenerateDef-Interactive-TTImp-makeDef arg-4 arg-3 arg-2 (lambda (p) (lambda (n) (FC-Core-onLine arg-1 p))) e-9 eta-2)) eta-1))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((sc9 e-3)) (let ((e-11 (vector-ref sc9 2))) (let ((act-26 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-26 (arg-3672 eta-2))) ((arg-3673 act-26) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-11)) eta-1))) (vector 1 act-26)))))) (else (let ((act-26 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-26 (arg-3672 eta-2))) ((arg-3673 act-26) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "Failed") eta-1))) (vector 1 act-26))))))))))) (lambda (err) (lambda (eta-1) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-25 (arg-3672 eta-2))) ((arg-3673 act-25) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Can't find a definition for " (Name-Core-show_Show__Name e-9))) eta-1))) (vector 1 act-25)))) eta-0))(else (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "Already defined") eta-0))) (vector 1 act-25))))))) (else (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0))) eta-0))) (vector 1 act-25)))))))))))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 0)))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0))) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 0))))))))))) +(define REPL-Yaffle-case--11983-798 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (ExprSearch-Interactive-TTImp-exprSearch arg-3 arg-2 arg-1 (FC-Core-toplevelFC) e-6 (vector 0 ) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (unbox arg-3))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) eta-1 eta-2))) e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse_ 'erased 'erased (lambda (d) (lambda (eta-1) (let ((act-27 (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) d eta-1))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-28 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-28 (arg-3672 eta-2))) ((arg-3673 act-28) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d-0) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x))))) e-12) eta-1))) (vector 1 act-28))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (vector 1 0))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-toplevelFC) arg-0) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))) +(define REPL-Yaffle-case--11983-660 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Unify-Core-search (vector 0 ) arg-3 arg-1 (FC-Core-toplevelFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-6 e-11 (vector 0 ) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (unbox arg-3))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-26 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-5 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 (let ((act-27 (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-9 eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-28 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-28 (arg-3672 eta-1))) ((arg-3673 act-28) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x))))) e-12) eta-0))) (vector 1 act-28))))))))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (vector 1 0))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-toplevelFC) arg-0) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))) +(define REPL-Yaffle-case--11983-584 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 ((Unelab-TTImp-unelab (vector 0 ) arg-3 (vector 0 ) e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-28 (arg-3672 eta-1))) ((arg-3673 act-28) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x))))) e-8) eta-0))) (vector 1 act-28))))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 0))))))))))))))))))))))))) +(define REPL-Yaffle-case--11983-431 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normalise (vector 0 ) e-5 (vector 0 ) e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 ((Unelab-TTImp-unelab (vector 0 ) arg-3 (vector 0 ) e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-27 (arg-3672 eta-1))) ((arg-3673 act-27) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x))))) e-7) eta-0))) (vector 1 act-27))))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 0)))))))))))))))))))) +(define REPL-Yaffle-n--11983-490-printName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-7 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 ((Unelab-TTImp-unelab (vector 0 ) arg-4 (vector 0 ) e-8) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-27 (arg-3672 eta-1))) ((arg-3673 act-27) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp e-9)))) eta-0))) (vector 1 act-27))))))))))))))))))))))))) +(define REPL-Yaffle-showInfo (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " ==>\u000a" (Strings-Prelude-C-43C-43 "\u0009" (Strings-Prelude-C-43C-43 (Context-Core-show_Show__Def (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17))) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 "\u0009" (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__SCCall x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__SCCall d x)))) (let ((sc2 e-7)) (let ((e-20 (vector-ref sc2 21))) e-20))) "\u000a")))))))) eta-0))) (vector 1 act-24)))))))))) +(define REPL-Yaffle-repl (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 ((Prelude-putStr 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "Yaffle> ") ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 ((Prelude-getLine 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350)))) ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((REPL-Yaffle-case--13214-1600 arg-2 arg-1 arg-0 e-5 e-6 (Source-Parser-runParser 'erased 0 (vector 0 ) e-6 (Parser-TTImp-command))) ext-0))))))))))))) +(define REPL-Yaffle-processCatch (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Core-Core-catch_Catchable__Core_Error 'erased (REPL-Yaffle-process arg-0 arg-1 arg-2 arg-3) (lambda (err) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Core-Core-show_Show__Error err)) eta-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 0))))))) ext-0))) +(define REPL-Yaffle-process (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-1 arg-2 0 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-0 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-normalise (vector 0 ) e-6 (vector 0 ) e-2 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 ((Unelab-TTImp-unelab (vector 0 ) arg-0 (vector 0 ) e-7) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-28 (arg-3672 eta-1))) ((arg-3673 act-28) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x))))) e-8) eta-0))) (vector 1 act-28))))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 0))))))))))))))))))))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-lookupTyName e-10 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Yaffle-n--11983-490-printName e-9 e-10 arg-2 arg-1 arg-0 eta-1)) e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 0)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-1 arg-2 0 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-1 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Normalise-Core-normaliseHoles (vector 0 ) e-6 (vector 0 ) e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 ((Unelab-TTImp-unelab (vector 0 ) arg-0 (vector 0 ) e-8) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-29 (arg-3672 eta-1))) ((arg-3673 act-29) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x))))) e-9) eta-0))) (vector 1 act-29))))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 0))))))))))))))))))))))))))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyName e-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((act-26 (Unify-Core-search (vector 0 ) arg-0 arg-2 (FC-Core-toplevelFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-8 e-11 (vector 0 ) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-28 (Normalise-Core-normaliseHoles (vector 0 ) e-12 (vector 0 ) e-9 eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-29 (let ((act-29 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-13 eta-0))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-30 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-30 (arg-3672 eta-1))) ((arg-3673 act-30) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x))))) e-14) eta-0))) (vector 1 act-30))))))))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (vector 1 0)))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-toplevelFC) e-2) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyName e-3 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-26 (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-1 arg-2 (FC-Core-toplevelFC) e-8 (vector 0 ) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-normaliseHoles (vector 0 ) e-12 (vector 0 ) eta-1 eta-2))) e-9) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-29 ((Core-Core-traverse_ 'erased 'erased (lambda (d) (lambda (eta-1) (let ((act-29 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) d eta-1))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-30 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-30 (arg-3672 eta-2))) ((arg-3673 act-30) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d-0) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x))))) e-14) eta-1))) (vector 1 act-30))))))))) e-13) eta-0))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (vector 1 0)))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-toplevelFC) e-3) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (Metadata-Core-findTyDeclAt arg-1 (lambda (p) (lambda (n) (FC-Core-onLine e-4 p))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (let ((e-11 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-10)) (let ((act-26 (let ((act-26 (Context-Core-lookupDefExact e-11 (let ((sc7 e-6)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((1) (let ((e-2 (vector-ref sc8 1))) (let ((sc9 e-2)) (case (vector-ref sc9 0) ((0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-27 (Context-Core-logTime 'erased arg-0 (lambda () "Generation") (lambda (eta-2) (GenerateDef-Interactive-TTImp-makeDef arg-0 arg-1 arg-2 (lambda (p) (lambda (n) (FC-Core-onLine e-4 p))) e-11 eta-2)) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-15)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((sc12 e-3)) (let ((e-16 (vector-ref sc12 2))) (let ((act-28 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-28 (arg-3672 eta-2))) ((arg-3673 act-28) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-16)) eta-1))) (vector 1 act-28)))))) (else (let ((act-28 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-28 (arg-3672 eta-2))) ((arg-3673 act-28) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "Failed") eta-1))) (vector 1 act-28))))))))))) (lambda (err) (lambda (eta-1) (let ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-27 (arg-3672 eta-2))) ((arg-3673 act-27) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Can't find a definition for " (Name-Core-show_Show__Name e-11))) eta-1))) (vector 1 act-27)))) eta-0))(else (let ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-27 (arg-3672 eta-1))) ((arg-3673 act-27) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "Already defined") eta-0))) (vector 1 act-27))))))) (else (let ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-27 (arg-3672 eta-1))) ((arg-3673 act-27) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name e-5))) eta-0))) (vector 1 act-27)))))))))))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (vector 1 0))))))))))))) (else (let ((act-26 (let ((act-26 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-26 (arg-3672 eta-1))) ((arg-3673 act-26) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name e-5))) eta-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 0)))))))))))))))))))))) ((5) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-6 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-emptyFC) e-6) eta-0))(else (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-26 (Context-Core-getTotality arg-0 (FC-Core-emptyFC) fn eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((bind-0 e-7)) ((REPL-Yaffle-case--12837-1274 e-6 arg-2 arg-1 arg-0 e-5 e-7 bind-0 fn e-8 (let ((sc4 e-8)) (let ((e-1 (vector-ref sc4 2))) e-1))) eta-1))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-7)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 0))))))))))))))))))))) ((6) (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-7 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-emptyFC) e-7) eta-0))(else (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-26 (Termination-Core-checkTotal arg-0 (FC-Core-emptyFC) fn eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (Context-Core-getTotality arg-0 (FC-Core-emptyFC) fn eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-28 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-28 (arg-3672 eta-2))) ((arg-3673 act-28) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name fn) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-9)))) eta-1))) (vector 1 act-28))))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 0))))))))))))))))))))) ((7) (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Context-Core-lookupCtxtName e-8 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Yaffle-showInfo eta-1)) e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 0))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "Bye for now!") eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 1))))))))))) +(define Source-Parser-case--2690-378 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Source-Parser-runParser 'erased 0 (Unlit-Parser-isLitFile arg-2) e-2 arg-1)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 (vector 2 e-5))))))))) (define Source-Parser-runParserTo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (Either-Utils-mapError 'erased 'erased 'erased (lambda (eta-0) (vector 3 eta-0)) (Unlit-Parser-unlit arg-2 arg-4)) (lambda (str) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (Either-Utils-mapError 'erased 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (Source-Lexer-Parser-lexTo arg-3 str)) (lambda (toks) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (Either-Utils-mapError 'erased 'erased 'erased (lambda (eta-0) (Support-Parser-toGenericParsingError 'erased eta-0)) (Core-Parser-Text-parse 'erased 'erased arg-1 arg-5 toks)) (lambda (parsed) (vector 1 (Builtin-fst 'erased 'erased parsed)))))))))) (define Source-Parser-runParser (lambda (arg-0 arg-1 arg-2 ext-0 ext-1) (Source-Parser-runParserTo 'erased arg-1 arg-2 (lambda (eta-0) 1) ext-0 ext-1))) -(define Source-Parser-parseFile (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (Source-Parser-runParser 'erased 0 (Unlit-Parser-isLitFile arg-1) e-2 arg-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (vector 2 e-5))))))))) +(define Source-Parser-parseFile (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (Source-Parser-runParser 'erased 0 (Unlit-Parser-isLitFile arg-1) e-2 arg-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (vector 2 e-5))))))))) (define Either-Utils-mapError (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Prelude-either 'erased 'erased 'erased (lambda () (lambda (eta-0) (vector 0 (arg-3 eta-0)))) (lambda () (lambda (eta-0) (vector 1 eta-0))) arg-4))) -(define File-System-case--3371-1833 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 1 (vector 0 )))))) (else (File-System-returnError 'erased 'erased arg-1)))))) -(define File-System-case--3147-1627 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-4 (vector-ref sc2 2))) ((((e-4 'erased) 'erased) (File-System-closeFile 'erased arg-1 arg-4)) (lambda (_-1651) (let ((sc3 (let ((sc4 (let ((sc5 arg-1)) (let ((e-6 (vector-ref sc5 1))) e-6)))) (let ((e-7 (vector-ref sc4 1))) e-7)))) (let ((e-6 (vector-ref sc3 2))) ((e-6 'erased) (vector 1 (vector 0 )))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (File-System-closeFile 'erased arg-1 arg-4)) (lambda (_-1692) (let ((sc2 (let ((sc3 (let ((sc4 arg-1)) (let ((e-6 (vector-ref sc4 1))) e-6)))) (let ((e-7 (vector-ref sc3 1))) e-7)))) (let ((e-6 (vector-ref sc2 2))) ((e-6 'erased) (vector 0 e-5)))))))))))))) -(define File-System-case--3126-1599 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (File-System-fPutStr 'erased arg-1 e-2 arg-2)) (lambda (_-0) (let ((sc2 _-0)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((sc4 (let ((sc5 arg-1)) (let ((e-7 (vector-ref sc5 1))) e-7)))) (let ((e-7 (vector-ref sc4 2))) ((((e-7 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-2)) (lambda (_-1651) (let ((sc5 (let ((sc6 (let ((sc7 arg-1)) (let ((e-10 (vector-ref sc7 1))) e-10)))) (let ((e-11 (vector-ref sc6 1))) e-11)))) (let ((e-10 (vector-ref sc5 2))) ((e-10 'erased) (vector 1 (vector 0 )))))))))))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 (let ((sc4 arg-1)) (let ((e-7 (vector-ref sc4 1))) e-7)))) (let ((e-7 (vector-ref sc3 2))) ((((e-7 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-2)) (lambda (_-1692) (let ((sc4 (let ((sc5 (let ((sc6 arg-1)) (let ((e-10 (vector-ref sc6 1))) e-10)))) (let ((e-11 (vector-ref sc5 1))) e-11)))) (let ((e-10 (vector-ref sc4 2))) ((e-10 'erased) (vector 0 e-5)))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 e-5)))))))))) -(define File-System-case--3014-1493 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (File-System-closeFile 'erased arg-1 arg-3)) (lambda (_-1515) (let ((sc2 (let ((sc3 (let ((sc4 arg-1)) (let ((e-6 (vector-ref sc4 1))) e-6)))) (let ((e-7 (vector-ref sc3 1))) e-7)))) (let ((e-6 (vector-ref sc2 2))) ((e-6 'erased) (vector 1 (Strings-Data-fastAppend e-2))))))))))) (else (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (File-System-closeFile 'erased arg-1 arg-3)) (lambda (_-1553) (File-System-returnError 'erased 'erased arg-1)))))))))) -(define File-System-case--2883-1469 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (File-System-n--2883-1351-read 'erased arg-1 arg-2 (vector 0 ) e-2)) (lambda (_-0) (let ((sc2 _-0)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 (let ((sc4 arg-1)) (let ((e-7 (vector-ref sc4 1))) e-7)))) (let ((e-7 (vector-ref sc3 2))) ((((e-7 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-2)) (lambda (_-1515) (let ((sc4 (let ((sc5 (let ((sc6 arg-1)) (let ((e-10 (vector-ref sc6 1))) e-10)))) (let ((e-11 (vector-ref sc5 1))) e-11)))) (let ((e-10 (vector-ref sc4 2))) ((e-10 'erased) (vector 1 (Strings-Data-fastAppend e-5))))))))))) (else (let ((sc3 (let ((sc4 arg-1)) (let ((e-7 (vector-ref sc4 1))) e-7)))) (let ((e-7 (vector-ref sc3 2))) ((((e-7 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-2)) (lambda (_-1553) (File-System-returnError 'erased 'erased arg-1)))))))))))))) (else (File-System-returnError 'erased 'erased arg-1)))))) -(define File-System-case--2904-1415 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (File-System-n--2883-1351-read 'erased arg-1 arg-2 (vector 1 e-2 arg-4) arg-3))) (else (File-System-returnError 'erased 'erased arg-1)))))) -(define File-System-case--2890-1366 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 1 (List-Data-reverse 'erased arg-4)))))) (else (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (File-System-fGetLine 'erased arg-1 arg-3)) (lambda (_-0) (let ((sc2 _-0)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (File-System-n--2883-1351-read 'erased arg-1 arg-2 (vector 1 e-4 arg-4) arg-3))) (else (File-System-returnError 'erased 'erased arg-1))))))))))))) -(define File-System-case--2797-1282 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (File-System-ok 'erased 'erased arg-1 arg-3)) (else (File-System-returnError 'erased 'erased arg-1)))))) -(define File-System-case--2741-1225 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (File-System-ok 'erased 'erased arg-1 (vector 0 ))) (else (File-System-returnError 'erased 'erased arg-1)))))) -(define File-System-case--2631-1115 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (File-System-ok 'erased 'erased arg-1 arg-3)) (else (File-System-returnError 'erased 'erased arg-1)))))) -(define File-System-case--2365-845 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (File-System-returnError 'erased 'erased arg-1)) (else (File-System-ok 'erased 'erased arg-1 (vector 0 ))))))) -(define File-System-case--2292-782 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (File-System-returnError 'erased 'erased arg-1)) (else (File-System-ok 'erased 'erased arg-1 (Prelude-cast_Cast__Int_Char arg-3))))))) -(define File-System-case--2174-654 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (File-System-returnError 'erased 'erased arg-1)) (else (File-System-ok 'erased 'erased arg-1 (Prelude-prim__getString arg-3))))))) -(define File-System-case--2070-547 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (File-System-returnError 'erased 'erased arg-1)) (else (File-System-ok 'erased 'erased arg-1 arg-4)))))) -(define File-System-case--1874-349 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 1 )))))) ((equal? sc0 1) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 2 )))))) ((equal? sc0 2) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 3 )))))) ((equal? sc0 3) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 4 )))))) ((equal? sc0 4) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 5 ))))))(else (let ((sc0 (let ((sc1 (let ((sc2 arg-2)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (vector 0 (vector 0 (Prelude-C-45_Neg__Int arg-3 5))))))))))) -(define File-System-case--1836-322 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "ab+") (else "a+"))))) -(define File-System-case--1836-316 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "wb+") (else "w+"))))) -(define File-System-case--1836-310 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "rb+") (else "r+"))))) -(define File-System-case--1836-304 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "ab") (else "a"))))) -(define File-System-case--1836-298 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "wb") (else "w"))))) -(define File-System-case--1836-292 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "rb") (else "r"))))) -(define File-System-n--2883-1351-read (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (File-System-fEOF 'erased arg-1 arg-4)) (lambda (eof) (let ((sc1 eof)) (cond ((equal? sc1 0) (let ((sc2 (let ((sc3 (let ((sc4 arg-1)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 1 (List-Data-reverse 'erased arg-3)))))) (else (let ((sc2 (let ((sc3 arg-1)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-5 (vector-ref sc2 2))) ((((e-5 'erased) 'erased) (File-System-fGetLine 'erased arg-1 arg-4)) (lambda (_-0) (let ((sc3 _-0)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (File-System-n--2883-1351-read 'erased arg-1 arg-2 (vector 1 e-7 arg-3) arg-4))) (else (File-System-returnError 'erased 'erased arg-1))))))))))))))))) +(define File-System-case--3373-1841 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 1 (vector 0 )))))) (else (File-System-returnError 'erased 'erased arg-1)))))) +(define File-System-case--3149-1635 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-4 (vector-ref sc2 2))) ((((e-4 'erased) 'erased) (File-System-closeFile 'erased arg-1 arg-4)) (lambda (_-1659) (let ((sc3 (let ((sc4 (let ((sc5 arg-1)) (let ((e-6 (vector-ref sc5 1))) e-6)))) (let ((e-7 (vector-ref sc4 1))) e-7)))) (let ((e-6 (vector-ref sc3 2))) ((e-6 'erased) (vector 1 (vector 0 )))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (File-System-closeFile 'erased arg-1 arg-4)) (lambda (_-1700) (let ((sc2 (let ((sc3 (let ((sc4 arg-1)) (let ((e-6 (vector-ref sc4 1))) e-6)))) (let ((e-7 (vector-ref sc3 1))) e-7)))) (let ((e-6 (vector-ref sc2 2))) ((e-6 'erased) (vector 0 e-5)))))))))))))) +(define File-System-case--3128-1607 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (File-System-fPutStr 'erased arg-1 e-2 arg-2)) (lambda (_-0) (let ((sc2 _-0)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((sc4 (let ((sc5 arg-1)) (let ((e-7 (vector-ref sc5 1))) e-7)))) (let ((e-7 (vector-ref sc4 2))) ((((e-7 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-2)) (lambda (_-1659) (let ((sc5 (let ((sc6 (let ((sc7 arg-1)) (let ((e-10 (vector-ref sc7 1))) e-10)))) (let ((e-11 (vector-ref sc6 1))) e-11)))) (let ((e-10 (vector-ref sc5 2))) ((e-10 'erased) (vector 1 (vector 0 )))))))))))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 (let ((sc4 arg-1)) (let ((e-7 (vector-ref sc4 1))) e-7)))) (let ((e-7 (vector-ref sc3 2))) ((((e-7 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-2)) (lambda (_-1700) (let ((sc4 (let ((sc5 (let ((sc6 arg-1)) (let ((e-10 (vector-ref sc6 1))) e-10)))) (let ((e-11 (vector-ref sc5 1))) e-11)))) (let ((e-10 (vector-ref sc4 2))) ((e-10 'erased) (vector 0 e-5)))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 e-5)))))))))) +(define File-System-case--3016-1501 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (File-System-closeFile 'erased arg-1 arg-3)) (lambda (_-1523) (let ((sc2 (let ((sc3 (let ((sc4 arg-1)) (let ((e-6 (vector-ref sc4 1))) e-6)))) (let ((e-7 (vector-ref sc3 1))) e-7)))) (let ((e-6 (vector-ref sc2 2))) ((e-6 'erased) (vector 1 (Strings-Data-fastAppend e-2))))))))))) (else (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (File-System-closeFile 'erased arg-1 arg-3)) (lambda (_-1561) (File-System-returnError 'erased 'erased arg-1)))))))))) +(define File-System-case--2885-1477 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (File-System-n--2885-1359-read 'erased arg-1 arg-2 (vector 0 ) e-2)) (lambda (_-0) (let ((sc2 _-0)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 (let ((sc4 arg-1)) (let ((e-7 (vector-ref sc4 1))) e-7)))) (let ((e-7 (vector-ref sc3 2))) ((((e-7 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-2)) (lambda (_-1523) (let ((sc4 (let ((sc5 (let ((sc6 arg-1)) (let ((e-10 (vector-ref sc6 1))) e-10)))) (let ((e-11 (vector-ref sc5 1))) e-11)))) (let ((e-10 (vector-ref sc4 2))) ((e-10 'erased) (vector 1 (Strings-Data-fastAppend e-5))))))))))) (else (let ((sc3 (let ((sc4 arg-1)) (let ((e-7 (vector-ref sc4 1))) e-7)))) (let ((e-7 (vector-ref sc3 2))) ((((e-7 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-2)) (lambda (_-1561) (File-System-returnError 'erased 'erased arg-1)))))))))))))) (else (File-System-returnError 'erased 'erased arg-1)))))) +(define File-System-case--2906-1423 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (File-System-n--2885-1359-read 'erased arg-1 arg-2 (vector 1 e-2 arg-4) arg-3))) (else (File-System-returnError 'erased 'erased arg-1)))))) +(define File-System-case--2892-1374 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 1 (List-Data-reverse 'erased arg-4)))))) (else (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (File-System-fGetLine 'erased arg-1 arg-3)) (lambda (_-0) (let ((sc2 _-0)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (File-System-n--2885-1359-read 'erased arg-1 arg-2 (vector 1 e-4 arg-4) arg-3))) (else (File-System-returnError 'erased 'erased arg-1))))))))))))) +(define File-System-case--2799-1290 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (File-System-ok 'erased 'erased arg-1 arg-3)) (else (File-System-returnError 'erased 'erased arg-1)))))) +(define File-System-case--2743-1233 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (File-System-ok 'erased 'erased arg-1 (vector 0 ))) (else (File-System-returnError 'erased 'erased arg-1)))))) +(define File-System-case--2633-1123 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (File-System-ok 'erased 'erased arg-1 arg-3)) (else (File-System-returnError 'erased 'erased arg-1)))))) +(define File-System-case--2367-853 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (File-System-returnError 'erased 'erased arg-1)) (else (File-System-ok 'erased 'erased arg-1 (vector 0 ))))))) +(define File-System-case--2294-790 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (File-System-returnError 'erased 'erased arg-1)) (else (File-System-ok 'erased 'erased arg-1 (Prelude-cast_Cast__Int_Char arg-3))))))) +(define File-System-case--2176-662 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (File-System-returnError 'erased 'erased arg-1)) (else (File-System-ok 'erased 'erased arg-1 (Prelude-prim__getString arg-3))))))) +(define File-System-case--2072-555 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (File-System-returnError 'erased 'erased arg-1)) (else (File-System-ok 'erased 'erased arg-1 arg-4)))))) +(define File-System-case--1876-357 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 1 )))))) ((equal? sc0 1) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 2 )))))) ((equal? sc0 2) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 3 )))))) ((equal? sc0 3) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 4 )))))) ((equal? sc0 4) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 5 ))))))(else (let ((sc0 (let ((sc1 (let ((sc2 arg-2)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (vector 0 (vector 0 (Prelude-C-45_Neg__Int arg-3 5))))))))))) +(define File-System-case--1838-330 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "ab+") (else "a+"))))) +(define File-System-case--1838-324 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "wb+") (else "w+"))))) +(define File-System-case--1838-318 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "rb+") (else "r+"))))) +(define File-System-case--1838-312 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "ab") (else "a"))))) +(define File-System-case--1838-306 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "wb") (else "w"))))) +(define File-System-case--1838-300 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "rb") (else "r"))))) +(define File-System-n--2885-1359-read (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (File-System-fEOF 'erased arg-1 arg-4)) (lambda (eof) (let ((sc1 eof)) (cond ((equal? sc1 0) (let ((sc2 (let ((sc3 (let ((sc4 arg-1)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 1 (List-Data-reverse 'erased arg-3)))))) (else (let ((sc2 (let ((sc3 arg-1)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-5 (vector-ref sc2 2))) ((((e-5 'erased) 'erased) (File-System-fGetLine 'erased arg-1 arg-4)) (lambda (_-0) (let ((sc3 _-0)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (File-System-n--2885-1359-read 'erased arg-1 arg-2 (vector 1 e-7 arg-3) arg-4))) (else (File-System-returnError 'erased 'erased arg-1))))))))))))))))) (define File-System-show_Show__FileError (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "File error: " (Prelude-show_Show__Int e-0)))) ((1) "File Read Error") ((2) "File Write Error") ((3) "File Not Found") ((4) "Permission Denied") (else "File Exists"))))) (define File-System-showPrec_Show__FileError (lambda (arg-0 arg-1) (File-System-show_Show__FileError arg-1))) (define File-System-__Impl_Show_FileError (lambda () (vector 0 (lambda (x) (File-System-show_Show__FileError x)) (lambda (d) (lambda (x) (File-System-showPrec_Show__FileError d x)))))) -(define File-System-writeFile (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (File-System-openFile 'erased arg-1 arg-2 (vector 1 ))) (lambda (_-0) (let ((sc1 _-0)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 (let ((sc3 arg-1)) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-6 (vector-ref sc2 2))) ((((e-6 'erased) 'erased) (File-System-fPutStr 'erased arg-1 e-4 arg-3)) (lambda (_-1) (let ((sc3 _-1)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((sc5 (let ((sc6 arg-1)) (let ((e-10 (vector-ref sc6 1))) e-10)))) (let ((e-10 (vector-ref sc5 2))) ((((e-10 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-4)) (lambda (_-1651) (let ((sc6 (let ((sc7 (let ((sc8 arg-1)) (let ((e-13 (vector-ref sc8 1))) e-13)))) (let ((e-14 (vector-ref sc7 1))) e-14)))) (let ((e-13 (vector-ref sc6 2))) ((e-13 'erased) (vector 1 (vector 0 )))))))))))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 (let ((sc5 arg-1)) (let ((e-10 (vector-ref sc5 1))) e-10)))) (let ((e-10 (vector-ref sc4 2))) ((((e-10 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-4)) (lambda (_-1692) (let ((sc5 (let ((sc6 (let ((sc7 arg-1)) (let ((e-13 (vector-ref sc7 1))) e-13)))) (let ((e-14 (vector-ref sc6 1))) e-14)))) (let ((e-13 (vector-ref sc5 2))) ((e-13 'erased) (vector 0 e-8)))))))))))))))))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 (let ((sc3 (let ((sc4 arg-1)) (let ((e-6 (vector-ref sc4 1))) e-6)))) (let ((e-7 (vector-ref sc3 1))) e-7)))) (let ((e-6 (vector-ref sc2 2))) ((e-6 'erased) (vector 0 e-5)))))))))))))) +(define File-System-writeFile (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (File-System-openFile 'erased arg-1 arg-2 (vector 1 ))) (lambda (_-0) (let ((sc1 _-0)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 (let ((sc3 arg-1)) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-6 (vector-ref sc2 2))) ((((e-6 'erased) 'erased) (File-System-fPutStr 'erased arg-1 e-4 arg-3)) (lambda (_-1) (let ((sc3 _-1)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((sc5 (let ((sc6 arg-1)) (let ((e-10 (vector-ref sc6 1))) e-10)))) (let ((e-10 (vector-ref sc5 2))) ((((e-10 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-4)) (lambda (_-1659) (let ((sc6 (let ((sc7 (let ((sc8 arg-1)) (let ((e-13 (vector-ref sc8 1))) e-13)))) (let ((e-14 (vector-ref sc7 1))) e-14)))) (let ((e-13 (vector-ref sc6 2))) ((e-13 'erased) (vector 1 (vector 0 )))))))))))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 (let ((sc5 arg-1)) (let ((e-10 (vector-ref sc5 1))) e-10)))) (let ((e-10 (vector-ref sc4 2))) ((((e-10 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-4)) (lambda (_-1700) (let ((sc5 (let ((sc6 (let ((sc7 arg-1)) (let ((e-13 (vector-ref sc7 1))) e-13)))) (let ((e-14 (vector-ref sc6 1))) e-14)))) (let ((e-13 (vector-ref sc5 2))) ((e-13 'erased) (vector 0 e-8)))))))))))))))))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 (let ((sc3 (let ((sc4 arg-1)) (let ((e-6 (vector-ref sc4 1))) e-6)))) (let ((e-7 (vector-ref sc3 1))) e-7)))) (let ((e-6 (vector-ref sc2 2))) ((e-6 'erased) (vector 0 e-5)))))))))))))) (define File-System-stdout (lambda () (File-System-prim__stdout))) (define File-System-stdin (lambda () (File-System-prim__stdin))) (define File-System-returnError (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-2)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim_fileErrno eta-0)))))) (lambda (err) (let ((sc1 err)) (cond ((equal? sc1 0) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 1 )))))) ((equal? sc1 1) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 2 )))))) ((equal? sc1 2) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 3 )))))) ((equal? sc1 3) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 4 )))))) ((equal? sc1 4) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 5 ))))))(else (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (vector 0 (vector 0 (Prelude-C-45_Neg__Int err 5))))))))))))))) -(define File-System-removeFile (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__removeFile arg-2 eta-0)))))) (lambda (res) (File-System-case--2741-1225 'erased arg-1 arg-2 res (Prelude-C-61C-61_Eq__Int res 0)))))))) -(define File-System-readFile (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (File-System-openFile 'erased arg-1 arg-2 (vector 0 ))) (lambda (_-0) (let ((sc1 _-0)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 (let ((sc3 arg-1)) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-6 (vector-ref sc2 2))) ((((e-6 'erased) 'erased) (File-System-n--2883-1351-read 'erased arg-1 arg-2 (vector 0 ) e-4)) (lambda (_-1) (let ((sc3 _-1)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 (let ((sc5 arg-1)) (let ((e-10 (vector-ref sc5 1))) e-10)))) (let ((e-10 (vector-ref sc4 2))) ((((e-10 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-4)) (lambda (_-1515) (let ((sc5 (let ((sc6 (let ((sc7 arg-1)) (let ((e-13 (vector-ref sc7 1))) e-13)))) (let ((e-14 (vector-ref sc6 1))) e-14)))) (let ((e-13 (vector-ref sc5 2))) ((e-13 'erased) (vector 1 (Strings-Data-fastAppend e-8))))))))))) (else (let ((sc4 (let ((sc5 arg-1)) (let ((e-10 (vector-ref sc5 1))) e-10)))) (let ((e-10 (vector-ref sc4 2))) ((((e-10 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-4)) (lambda (_-1553) (File-System-returnError 'erased 'erased arg-1)))))))))))))) (else (File-System-returnError 'erased 'erased arg-1)))))))))) -(define File-System-openFile (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__open arg-2 (File-System-modeStr arg-3) 0 eta-0)))))) (lambda (res) (File-System-case--2070-547 'erased arg-1 arg-3 arg-2 res (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr res) 0)))))))) +(define File-System-removeFile (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__removeFile arg-2 eta-0)))))) (lambda (res) (File-System-case--2743-1233 'erased arg-1 arg-2 res (Prelude-C-61C-61_Eq__Int res 0)))))))) +(define File-System-readFile (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (File-System-openFile 'erased arg-1 arg-2 (vector 0 ))) (lambda (_-0) (let ((sc1 _-0)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 (let ((sc3 arg-1)) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-6 (vector-ref sc2 2))) ((((e-6 'erased) 'erased) (File-System-n--2885-1359-read 'erased arg-1 arg-2 (vector 0 ) e-4)) (lambda (_-1) (let ((sc3 _-1)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 (let ((sc5 arg-1)) (let ((e-10 (vector-ref sc5 1))) e-10)))) (let ((e-10 (vector-ref sc4 2))) ((((e-10 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-4)) (lambda (_-1523) (let ((sc5 (let ((sc6 (let ((sc7 arg-1)) (let ((e-13 (vector-ref sc7 1))) e-13)))) (let ((e-14 (vector-ref sc6 1))) e-14)))) (let ((e-13 (vector-ref sc5 2))) ((e-13 'erased) (vector 1 (Strings-Data-fastAppend e-8))))))))))) (else (let ((sc4 (let ((sc5 arg-1)) (let ((e-10 (vector-ref sc5 1))) e-10)))) (let ((e-10 (vector-ref sc4 2))) ((((e-10 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-4)) (lambda (_-1561) (File-System-returnError 'erased 'erased arg-1)))))))))))))) (else (File-System-returnError 'erased 'erased arg-1)))))))))) +(define File-System-openFile (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__open arg-2 (File-System-modeStr arg-3) 0 eta-0)))))) (lambda (res) (File-System-case--2072-555 'erased arg-1 arg-3 arg-2 res (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr res) 0)))))))) (define File-System-ok (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 (let ((sc2 arg-2)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (vector 1 arg-3)))))) -(define File-System-modeStr (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (File-System-case--1836-292 (Info-System-isWindows))) ((1) (File-System-case--1836-298 (Info-System-isWindows))) ((2) (File-System-case--1836-304 (Info-System-isWindows))) ((3) (File-System-case--1836-310 (Info-System-isWindows))) ((4) (File-System-case--1836-316 (Info-System-isWindows))) (else (File-System-case--1836-322 (Info-System-isWindows))))))) -(define File-System-fileSize (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__fileSize arg-2 eta-0)))))) (lambda (res) (File-System-case--2797-1282 'erased arg-1 arg-2 res (Prelude-C-62C-61_Ord__Int res 0)))))))) -(define File-System-fileModifiedTime (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__fileModifiedTime arg-2 eta-0)))))) (lambda (res) (File-System-case--2631-1115 'erased arg-1 arg-2 res (Prelude-C-62_Ord__Int res 0)))))))) +(define File-System-modeStr (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (File-System-case--1838-300 (Info-System-isWindows))) ((1) (File-System-case--1838-306 (Info-System-isWindows))) ((2) (File-System-case--1838-312 (Info-System-isWindows))) ((3) (File-System-case--1838-318 (Info-System-isWindows))) ((4) (File-System-case--1838-324 (Info-System-isWindows))) (else (File-System-case--1838-330 (Info-System-isWindows))))))) +(define File-System-fileSize (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__fileSize arg-2 eta-0)))))) (lambda (res) (File-System-case--2799-1290 'erased arg-1 arg-2 res (Prelude-C-62C-61_Ord__Int res 0)))))))) +(define File-System-fileModifiedTime (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__fileModifiedTime arg-2 eta-0)))))) (lambda (res) (File-System-case--2633-1123 'erased arg-1 arg-2 res (Prelude-C-62_Ord__Int res 0)))))))) (define File-System-fileError (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim_error arg-2 eta-0)))))) (lambda (x) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (Prelude-C-47C-61_Eq__Int x 0)))))))))) -(define File-System-fflush (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__flush arg-2 eta-0)))))) (lambda (_-938) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (vector 0 )))))))))) -(define File-System-fPutStr (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__writeLine arg-2 arg-3 eta-0)))))) (lambda (res) (File-System-case--2365-845 'erased arg-1 arg-2 arg-3 res (Prelude-C-61C-61_Eq__Int res 0)))))))) -(define File-System-fGetLine (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__readLine arg-2 eta-0)))))) (lambda (res) (File-System-case--2174-654 'erased arg-1 arg-2 res (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased res)) 0)))))))) -(define File-System-fGetChar (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__readChar arg-2 eta-0)))))) (lambda (c) (let ((sc1 (let ((sc2 arg-1)) (let ((e-5 (vector-ref sc2 1))) e-5)))) (let ((e-5 (vector-ref sc1 2))) ((((e-5 'erased) 'erased) (let ((sc2 arg-1)) (let ((e-7 (vector-ref sc2 2))) ((e-7 'erased) (lambda (eta-0) (File-System-prim_error arg-2 eta-0)))))) (lambda (ferr) (File-System-case--2292-782 'erased arg-1 arg-2 c ferr (Prelude-C-47C-61_Eq__Int ferr 0)))))))))))) +(define File-System-fflush (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__flush arg-2 eta-0)))))) (lambda (_-946) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (vector 0 )))))))))) +(define File-System-fPutStr (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__writeLine arg-2 arg-3 eta-0)))))) (lambda (res) (File-System-case--2367-853 'erased arg-1 arg-2 arg-3 res (Prelude-C-61C-61_Eq__Int res 0)))))))) +(define File-System-fGetLine (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__readLine arg-2 eta-0)))))) (lambda (res) (File-System-case--2176-662 'erased arg-1 arg-2 res (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased res)) 0)))))))) +(define File-System-fGetChar (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__readChar arg-2 eta-0)))))) (lambda (c) (let ((sc1 (let ((sc2 arg-1)) (let ((e-5 (vector-ref sc2 1))) e-5)))) (let ((e-5 (vector-ref sc1 2))) ((((e-5 'erased) 'erased) (let ((sc2 arg-1)) (let ((e-7 (vector-ref sc2 2))) ((e-7 'erased) (lambda (eta-0) (File-System-prim_error arg-2 eta-0)))))) (lambda (ferr) (File-System-case--2294-790 'erased arg-1 arg-2 c ferr (Prelude-C-47C-61_Eq__Int ferr 0)))))))))))) (define File-System-fEOF (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__eof arg-2 eta-0)))))) (lambda (res) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (Prelude-C-47C-61_Eq__Int res 0)))))))))) (define File-System-closeFile (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (File-System-prim__close arg-2 eta-0))))))) -(define File-System-chmodRaw (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__chmod arg-2 arg-3 eta-0)))))) (lambda (ok) (File-System-case--3371-1833 'erased arg-1 arg-3 arg-2 ok (Prelude-C-61C-61_Eq__Int ok 0)))))))) +(define File-System-chmodRaw (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__chmod arg-2 arg-3 eta-0)))))) (lambda (ok) (File-System-case--3373-1841 'erased arg-1 arg-3 arg-2 ok (Prelude-C-61C-61_Eq__Int ok 0)))))))) (define Info-System-prim__os (lambda () (blodwen-os))) (define Info-System-os (lambda () (blodwen-os))) -(define Info-System-isWindows (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (Info-System-os) (vector 1 "windows" (vector 1 "mingw32" (vector 1 "cygwin32" (vector 0 ))))))) -(define Unlit-Parser-case--1705-7506 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 0 (vector 1 e-5) e-3)))(else (vector 0 (vector 0 ) arg-0)))))))(else (vector 0 (vector 0 ) arg-0)))))) -(define Unlit-Parser-case--1681-7481 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 0 (vector 1 e-5) e-3)))(else (Unlit-Parser-case--1705-7506 arg-0 arg-1 arg-2 (Literate-Text-isLiterateLine (Unlit-Parser-styleCMark) arg-0))))))))(else (Unlit-Parser-case--1705-7506 arg-0 arg-1 arg-2 (Literate-Text-isLiterateLine (Unlit-Parser-styleCMark) arg-0))))))) -(define Unlit-Parser-case--1677-7460 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 0 (vector 1 e-5) e-3)))(else (Unlit-Parser-case--1681-7481 arg-0 arg-1 (Literate-Text-isLiterateLine (Unlit-Parser-styleOrg) arg-0))))))))(else (Unlit-Parser-case--1681-7481 arg-0 arg-1 (Literate-Text-isLiterateLine (Unlit-Parser-styleOrg) arg-0))))))) -(define Unlit-Parser-case--1647-7444 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 e-1))) (else (Unlit-Parser-n--1617-7401-isStyle arg-0 (Unlit-Parser-styleCMark))))))) -(define Unlit-Parser-case--1617-7429 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 e-1))) (else (Unlit-Parser-case--1647-7444 arg-0 (Unlit-Parser-n--1617-7401-isStyle arg-0 (Unlit-Parser-styleOrg)))))))) -(define Unlit-Parser-case--1620-7412 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 0 )))))) -(define Unlit-Parser-n--1617-7401-isStyle (lambda (arg-0 arg-1) (Unlit-Parser-case--1620-7412 arg-0 arg-1 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Unlit-Parser-n--1617-7400-hasSuffix arg-0 eta-0))) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2)))))) -(define Unlit-Parser-n--1617-7400-hasSuffix (lambda (arg-0 arg-1) (Strings-Data-isSuffixOf arg-1 arg-0))) +(define Info-System-isWindows (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (Info-System-os) (vector 1 "windows" (vector 1 "mingw32" (vector 1 "cygwin32" (vector 0 ))))))) +(define Unlit-Parser-case--1707-7514 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 0 (vector 1 e-5) e-3)))(else (vector 0 (vector 0 ) arg-0)))))))(else (vector 0 (vector 0 ) arg-0)))))) +(define Unlit-Parser-case--1683-7489 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 0 (vector 1 e-5) e-3)))(else (Unlit-Parser-case--1707-7514 arg-0 arg-1 arg-2 (Literate-Text-isLiterateLine (Unlit-Parser-styleCMark) arg-0))))))))(else (Unlit-Parser-case--1707-7514 arg-0 arg-1 arg-2 (Literate-Text-isLiterateLine (Unlit-Parser-styleCMark) arg-0))))))) +(define Unlit-Parser-case--1679-7468 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 0 (vector 1 e-5) e-3)))(else (Unlit-Parser-case--1683-7489 arg-0 arg-1 (Literate-Text-isLiterateLine (Unlit-Parser-styleOrg) arg-0))))))))(else (Unlit-Parser-case--1683-7489 arg-0 arg-1 (Literate-Text-isLiterateLine (Unlit-Parser-styleOrg) arg-0))))))) +(define Unlit-Parser-case--1649-7452 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 e-1))) (else (Unlit-Parser-n--1619-7409-isStyle arg-0 (Unlit-Parser-styleCMark))))))) +(define Unlit-Parser-case--1619-7437 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 e-1))) (else (Unlit-Parser-case--1649-7452 arg-0 (Unlit-Parser-n--1619-7409-isStyle arg-0 (Unlit-Parser-styleOrg)))))))) +(define Unlit-Parser-case--1622-7420 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 0 )))))) +(define Unlit-Parser-n--1619-7409-isStyle (lambda (arg-0 arg-1) (Unlit-Parser-case--1622-7420 arg-0 arg-1 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Unlit-Parser-n--1619-7408-hasSuffix arg-0 eta-0))) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2)))))) +(define Unlit-Parser-n--1619-7408-hasSuffix (lambda (arg-0 arg-1) (Strings-Data-isSuffixOf arg-1 arg-0))) (define Unlit-Parser-unlit (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 1 arg-1)) (else (let ((e-2 (vector-ref sc0 1))) (Literate-Text-unlit e-2 arg-1))))))) (define Unlit-Parser-styleOrg (lambda () (vector 0 (vector 1 (vector 0 "#+BEGIN_SRC idris" "#+END_SRC") (vector 1 (vector 0 "#+begin_src idris" "#+end_src") (vector 1 (vector 0 "#+COMMENT idris" "#+END_COMMENT") (vector 1 (vector 0 "#+comment idris" "#+end_comment") (vector 0 ))))) (vector 1 "#+IDRIS:" (vector 0 )) (vector 1 ".org" (vector 0 ))))) (define Unlit-Parser-styleCMark (lambda () (vector 0 (vector 1 (vector 0 "```idris" "```") (vector 0 )) (vector 0 ) (vector 1 ".md" (vector 1 ".markdown" (vector 0 )))))) (define Unlit-Parser-styleBird (lambda () (vector 0 (vector 0 ) (vector 1 ">" (vector 1 "<" (vector 0 ))) (vector 1 ".lidr" (vector 0 ))))) (define Unlit-Parser-relit (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc0 1))) (Strings-Data-unwords (vector 1 e-2 (vector 1 arg-1 (vector 0 )))))))))) -(define Unlit-Parser-isLitLine (lambda (arg-0) (Unlit-Parser-case--1677-7460 arg-0 (Literate-Text-isLiterateLine (Unlit-Parser-styleBird) arg-0)))) -(define Unlit-Parser-isLitFile (lambda (arg-0) (Unlit-Parser-case--1617-7429 arg-0 (Unlit-Parser-n--1617-7401-isStyle arg-0 (Unlit-Parser-styleBird))))) -(define Literate-Text-with--2565-7737 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 5))) (let ((sc3 e-12)) (case (vector-ref sc3 0) ((2) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-19 (vector-ref sc5 2))) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((0) (let ((e-23 (vector-ref sc6 2))) (let ((sc7 e-23)) (cond ((equal? sc7 "") (vector 0 (vector 1 e-13) e-14))(else (vector 0 (vector 0 ) arg-2))))))(else (vector 0 (vector 0 ) arg-2))))))(else (vector 0 (vector 0 ) arg-2)))))(else (vector 0 (vector 0 ) arg-2)))))))(else (vector 0 (vector 0 ) arg-2))))))(else (vector 0 (vector 0 ) arg-2)))))))(else (vector 0 (vector 0 ) arg-2))))))))) -(define Literate-Text-with--2324-7569 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (Literate-Text-reduce arg-8 arg-7))(else (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) (Literate-Text-reduce arg-8 (vector 1 "\u000a" (vector 1 (Strings-Data-unlines e-2) arg-7)))))))))(else (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (Literate-Text-reduce arg-8 (vector 1 "\u000a" (vector 1 (Strings-Data-unlines e-2) arg-7)))))))))) -(define Literate-Text-with--2206-7546 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Literate-Text-reduce arg-8 arg-9)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Literate-Text-with--2324-7569 e-3 (Views-List-Data-snocList 'erased e-3) arg-2 arg-3 arg-4 arg-5 e-2 arg-9 arg-8 arg-7 arg-6 arg-0)))))))) -(define Literate-Text-case--2490-7674 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (cond ((equal? sc3 "") (vector 1 (Literate-Text-reduce e-2 (vector 0 ))))(else (vector 0 (vector 0 e-6 e-10 e-11)))))))))))))))) -(define Literate-Text-case--2206-7487 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (Literate-Text-reduce arg-6 (vector 1 "\u000a" arg-7))) (else (Literate-Text-reduce arg-6 (vector 1 (Prelude-substr (Prelude-C-43_Num__Nat (Prelude-length arg-5) (+ 1 0)) (Prelude-length arg-4) arg-4) arg-7))))))) -(define Literate-Text-case--2156-7427 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (Literate-Text-block e-2 e-3) (lambda (eta-0) (vector 0 (Strings-Data-trim e-2) (Strings-Data-trim e-3) eta-0)))))))) -(define Literate-Text-n--2206-7460-blank_content (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Strings-Data-fastAppend (List-Data-replicate 'erased (List-Data-length 'erased (Strings-Data-lines arg-4)) "\u000a")))) +(define Unlit-Parser-isLitLine (lambda (arg-0) (Unlit-Parser-case--1679-7468 arg-0 (Literate-Text-isLiterateLine (Unlit-Parser-styleBird) arg-0)))) +(define Unlit-Parser-isLitFile (lambda (arg-0) (Unlit-Parser-case--1619-7437 arg-0 (Unlit-Parser-n--1619-7409-isStyle arg-0 (Unlit-Parser-styleBird))))) +(define Literate-Text-with--2567-7745 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 5))) (let ((sc3 e-12)) (case (vector-ref sc3 0) ((2) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-19 (vector-ref sc5 2))) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((0) (let ((e-23 (vector-ref sc6 2))) (let ((sc7 e-23)) (cond ((equal? sc7 "") (vector 0 (vector 1 e-13) e-14))(else (vector 0 (vector 0 ) arg-2))))))(else (vector 0 (vector 0 ) arg-2))))))(else (vector 0 (vector 0 ) arg-2)))))(else (vector 0 (vector 0 ) arg-2)))))))(else (vector 0 (vector 0 ) arg-2))))))(else (vector 0 (vector 0 ) arg-2)))))))(else (vector 0 (vector 0 ) arg-2))))))))) +(define Literate-Text-with--2326-7577 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (Literate-Text-reduce arg-8 arg-7))(else (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) (Literate-Text-reduce arg-8 (vector 1 "\u000a" (vector 1 (Strings-Data-unlines e-2) arg-7)))))))))(else (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (Literate-Text-reduce arg-8 (vector 1 "\u000a" (vector 1 (Strings-Data-unlines e-2) arg-7)))))))))) +(define Literate-Text-with--2208-7554 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Literate-Text-reduce arg-8 arg-9)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Literate-Text-with--2326-7577 e-3 (Views-List-Data-snocList 'erased e-3) arg-2 arg-3 arg-4 arg-5 e-2 arg-9 arg-8 arg-7 arg-6 arg-0)))))))) +(define Literate-Text-case--2492-7682 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (cond ((equal? sc3 "") (vector 1 (Literate-Text-reduce e-2 (vector 0 ))))(else (vector 0 (vector 0 e-6 e-10 e-11)))))))))))))))) +(define Literate-Text-case--2208-7495 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (Literate-Text-reduce arg-6 (vector 1 "\u000a" arg-7))) (else (Literate-Text-reduce arg-6 (vector 1 (Prelude-substr (Prelude-C-43_Num__Nat (Prelude-length arg-5) (+ 1 0)) (Prelude-length arg-4) arg-4) arg-7))))))) +(define Literate-Text-case--2158-7435 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (Literate-Text-block e-2 e-3) (lambda (eta-0) (vector 0 (Strings-Data-trim e-2) (Strings-Data-trim e-3) eta-0)))))))) +(define Literate-Text-n--2208-7468-blank_content (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Strings-Data-fastAppend (List-Data-replicate 'erased (List-Data-length 'erased (Strings-Data-lines arg-4)) "\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 ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (Literate-Text-reduce e-3 (vector 1 (Literate-Text-n--2206-7460-blank_content e-5 e-6 e-7 e-8 e-10 e-3 arg-1) arg-1)))) ((2) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (Literate-Text-case--2206-7487 e-5 e-6 e-7 e-8 e-12 e-11 e-3 arg-1 (Prelude-C-61C-61_Eq__String e-11 (Strings-Data-trim e-12)))))) (else (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((e-15 (vector-ref sc2 3))) (Literate-Text-with--2206-7546 e-15 (Strings-Data-lines e-15) e-5 e-6 e-7 e-8 e-14 e-13 e-3 arg-1)))))))))))))))))))) +(define Literate-Text-reduce (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (Strings-Data-fastAppend (List-Data-reverse 'erased arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((e-9 (vector-ref sc1 5))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (Literate-Text-reduce e-3 (vector 1 (Literate-Text-n--2208-7468-blank_content e-5 e-6 e-7 e-8 e-10 e-3 arg-1) arg-1)))) ((2) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (Literate-Text-case--2208-7495 e-5 e-6 e-7 e-8 e-12 e-11 e-3 arg-1 (Prelude-C-61C-61_Eq__String e-11 (Strings-Data-trim e-12)))))) (else (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((e-15 (vector-ref sc2 3))) (Literate-Text-with--2208-7554 e-15 (Strings-Data-lines e-15) e-5 e-6 e-7 e-8 e-14 e-13 e-3 arg-1)))))))))))))))))))) (define Literate-Text-rawTokens (lambda (arg-0 arg-1) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (Literate-Text-block e-2 e-3) (lambda (eta-0) (vector 0 (Strings-Data-trim e-2) (Strings-Data-trim e-3) eta-0))))))) arg-0) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (m) (vector 0 (Literate-Text-line m) (lambda (eta-0) (vector 2 (Strings-Data-trim m) eta-0)))) arg-1) (vector 1 (vector 0 (Literate-Text-notCodeLine) (lambda (eta-0) (vector 1 eta-0))) (vector 0 )))))) (define Literate-Text-notCodeLine (lambda () (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-newline) (vector 4 (Lexer-Text-any) (lambda () (Literate-Text-untilEOL)))))) (define Literate-Text-line (lambda (arg-0) (vector 4 (Lexer-Text-exact arg-0) (lambda () (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-newline) (vector 4 (Lexer-Text-space) (lambda () (Literate-Text-untilEOL)))))))) -(define Literate-Text-isLiterateLine (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (Literate-Text-with--2565-7737 e-1 e-0 arg-1 (Core-Lexer-Text-lex 'erased (Literate-Text-rawTokens e-0 e-1) arg-1) e-2))))))) +(define Literate-Text-isLiterateLine (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (Literate-Text-with--2567-7745 e-1 e-0 arg-1 (Core-Lexer-Text-lex 'erased (Literate-Text-rawTokens e-0 e-1) arg-1) e-2))))))) (define LiterateStyle-Literate-Text-file_extensions (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) -(define Literate-Text-extractCode (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (Literate-Text-case--2490-7674 e-2 e-1 e-0 arg-1 (Core-Lexer-Text-lex 'erased (Literate-Text-rawTokens e-0 e-1) arg-1)))))))) +(define Literate-Text-extractCode (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (Literate-Text-case--2492-7682 e-2 e-1 e-0 arg-1 (Core-Lexer-Text-lex 'erased (Literate-Text-rawTokens e-0 e-1) arg-1)))))))) (define Literate-Text-block (lambda (arg-0 arg-1) (Lexer-Text-surround (vector 4 (Lexer-Text-exact arg-0) (lambda () (Literate-Text-untilEOL))) (vector 4 (Lexer-Text-exact arg-1) (lambda () (Literate-Text-untilEOL))) (Lexer-Text-any)))) (define Views-List-Data-snocListHelp (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Views-List-Data-snocListHelp 'erased (List-Prelude-C-43C-43 'erased arg-1 (vector 1 e-2 (vector 0 ))) (vector 1 e-2 arg-1 arg-2) e-3)))))))) (define Views-List-Data-snocList (lambda (arg-0 arg-1) (Views-List-Data-snocListHelp 'erased (vector 0 ) (vector 0 ) arg-1))) -(define Lexer-Text-case--2271-480 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Core-Lexer-Text-fail 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-concatMap 'erased 'erased (lambda (eta-0) (Lexer-Text-like eta-0)) (vector 1 e-2 e-3))))))))) -(define Lexer-Text-case--2247-459 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Core-Lexer-Text-fail 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-concatMap 'erased 'erased (lambda (eta-0) (Lexer-Text-is eta-0)) (vector 1 e-2 e-3))))))))) -(define Lexer-Text-case--2114-341 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (lambda (eta-0) (vector 0 e-3 eta-0)))))))) -(define Lexer-Text-n--2441-602-lexStr (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (Core-Lexer-Text-fail 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-exact e-2) (Lexer-Text-n--2441-602-lexStr e-3))))))))) -(define Lexer-Text-n--2441-603-control (lambda () (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-n--2441-602-lexStr (vector 1 "NUL" (vector 1 "SOH" (vector 1 "STX" (vector 1 "ETX" (vector 1 "EOT" (vector 1 "ENQ" (vector 1 "ACK" (vector 1 "BEL" (vector 1 "BS" (vector 1 "HT" (vector 1 "LF" (vector 1 "VT" (vector 1 "FF" (vector 1 "CR" (vector 1 "SO" (vector 1 "SI" (vector 1 "DLE" (vector 1 "DC1" (vector 1 "DC2" (vector 1 "DC3" (vector 1 "DC4" (vector 1 "NAK" (vector 1 "SYN" (vector 1 "ETB" (vector 1 "CAN" (vector 1 "EM" (vector 1 "SUB" (vector 1 "ESC" (vector 1 "FS" (vector 1 "GS" (vector 1 "RS" (vector 1 "US" (vector 1 "SP" (vector 1 "DEL" (vector 0 )))))))))))))))))))))))))))))))))))) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (vector 4 (Lexer-Text-is #\x) (lambda () (Lexer-Text-hexDigits))) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (vector 4 (Lexer-Text-is #\o) (lambda () (Lexer-Text-octDigits))) (Lexer-Text-digits)))))) +(define Lexer-Text-case--2272-487 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Core-Lexer-Text-fail 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-concatMap 'erased 'erased (lambda (eta-0) (Lexer-Text-like eta-0)) (vector 1 e-2 e-3))))))))) +(define Lexer-Text-case--2248-466 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Core-Lexer-Text-fail 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-concatMap 'erased 'erased (lambda (eta-0) (Lexer-Text-is eta-0)) (vector 1 e-2 e-3))))))))) +(define Lexer-Text-case--2116-349 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (lambda (eta-0) (vector 0 e-3 eta-0)))))))) +(define Lexer-Text-n--2442-609-lexStr (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (Core-Lexer-Text-fail 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-exact e-2) (Lexer-Text-n--2442-609-lexStr e-3))))))))) +(define Lexer-Text-n--2442-610-control (lambda () (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-n--2442-609-lexStr (vector 1 "NUL" (vector 1 "SOH" (vector 1 "STX" (vector 1 "ETX" (vector 1 "EOT" (vector 1 "ENQ" (vector 1 "ACK" (vector 1 "BEL" (vector 1 "BS" (vector 1 "HT" (vector 1 "LF" (vector 1 "VT" (vector 1 "FF" (vector 1 "CR" (vector 1 "SO" (vector 1 "SI" (vector 1 "DLE" (vector 1 "DC1" (vector 1 "DC2" (vector 1 "DC3" (vector 1 "DC4" (vector 1 "NAK" (vector 1 "SYN" (vector 1 "ETB" (vector 1 "CAN" (vector 1 "EM" (vector 1 "SUB" (vector 1 "ESC" (vector 1 "FS" (vector 1 "GS" (vector 1 "RS" (vector 1 "US" (vector 1 "SP" (vector 1 "DEL" (vector 0 )))))))))))))))))))))))))))))))))))) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (vector 4 (Lexer-Text-is #\x) (lambda () (Lexer-Text-hexDigits))) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (vector 4 (Lexer-Text-is #\o) (lambda () (Lexer-Text-octDigits))) (Lexer-Text-digits)))))) (define Lexer-Text-toTokenMap (lambda (arg-0 ext-0) (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (lambda (eta-0) (vector 0 e-3 eta-0))))))) ext-0))) (define Lexer-Text-symbol (lambda () (Core-Lexer-Text-pred (lambda (x) (Prelude-not (Prelude-C-124C-124 (Prelude-isSpace x) (lambda () (Prelude-isAlphaNum x)))))))) (define Lexer-Text-surround (lambda (arg-0 arg-1 arg-2) (vector 4 arg-0 (lambda () (Lexer-Text-manyThen 'erased arg-1 arg-2))))) @@ -1167,7 +1173,7 @@ (define Lexer-Text-some (lambda (arg-0) (vector 4 arg-0 (lambda () (Lexer-Text-many arg-0))))) (define Lexer-Text-quote (lambda (arg-0 arg-1) (Lexer-Text-surround arg-0 arg-0 arg-1))) (define Lexer-Text-opt (lambda (arg-0) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased arg-0 (Core-Lexer-Text-empty)))) -(define Lexer-Text-oneOf (lambda (arg-0) (Core-Lexer-Text-pred (lambda (x) (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Char arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Char arg-430 arg-431)))) x (Prelude-unpack arg-0)))))) +(define Lexer-Text-oneOf (lambda (arg-0) (Core-Lexer-Text-pred (lambda (x) (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Char arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Char arg-438 arg-439)))) x (Prelude-unpack arg-0)))))) (define Lexer-Text-octLit (lambda () (vector 4 (Lexer-Text-exact "0o") (lambda () (Lexer-Text-octDigits))))) (define Lexer-Text-octDigits (lambda () (Lexer-Text-some (Lexer-Text-octDigit)))) (define Lexer-Text-octDigit (lambda () (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isOctDigit eta-0))))) @@ -1182,15 +1188,15 @@ (define Lexer-Text-hexLit (lambda () (vector 4 (Lexer-Text-approx "0x") (lambda () (Lexer-Text-hexDigits))))) (define Lexer-Text-hexDigits (lambda () (Lexer-Text-some (Lexer-Text-hexDigit)))) (define Lexer-Text-hexDigit (lambda () (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isHexDigit eta-0))))) -(define Lexer-Text-exact (lambda (arg-0) (Lexer-Text-case--2247-459 arg-0 (Prelude-unpack arg-0)))) +(define Lexer-Text-exact (lambda (arg-0) (Lexer-Text-case--2248-466 arg-0 (Prelude-unpack arg-0)))) (define Lexer-Text-escape (lambda (arg-0 arg-1) (vector 4 (Lexer-Text-is arg-0) (lambda () arg-1)))) (define Lexer-Text-digits (lambda () (Lexer-Text-some (Lexer-Text-digit)))) (define Lexer-Text-digit (lambda () (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isDigit eta-0))))) (define Lexer-Text-choiceMap (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (((((e-1 'erased) 'erased) (lambda (x) (lambda (acc) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (arg-4 x) acc)))) (Core-Lexer-Text-fail 'erased)) arg-5))))) -(define Lexer-Text-choice (lambda (arg-0 arg-1 arg-2 ext-0) (Lexer-Text-choiceMap 'erased 'erased arg-1 arg-2 (lambda (eta-0) eta-0) ext-0))) -(define Lexer-Text-charLit (lambda () (let ((q #\')) (vector 4 (vector 4 (Lexer-Text-is q) (lambda () (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-escape #\\ (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-n--2441-603-control) (Lexer-Text-any))) (Lexer-Text-isNot q)))) (lambda () (Lexer-Text-is q)))))) -(define Lexer-Text-approx (lambda (arg-0) (Lexer-Text-case--2271-480 arg-0 (Prelude-unpack arg-0)))) -(define Lexer-Text-any (lambda () (Core-Lexer-Text-pred (lambda (eta-0) 0)))) +(define Lexer-Text-choice (lambda (arg-0 arg-1 arg-2 ext-0) (Lexer-Text-choiceMap 'erased 'erased arg-1 arg-2 (lambda (eta-0) (Basics-Prelude-id 'erased eta-0)) ext-0))) +(define Lexer-Text-charLit (lambda () (let ((q #\')) (vector 4 (vector 4 (Lexer-Text-is q) (lambda () (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-escape #\\ (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-n--2442-610-control) (Lexer-Text-any))) (Lexer-Text-isNot q)))) (lambda () (Lexer-Text-is q)))))) +(define Lexer-Text-approx (lambda (arg-0) (Lexer-Text-case--2272-487 arg-0 (Prelude-unpack arg-0)))) +(define Lexer-Text-any (lambda () (Core-Lexer-Text-pred (lambda (eta-0) (Basics-Prelude-const 'erased 'erased 0 eta-0))))) (define Token-Text-tokValue (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-2) (lambda (arg-3) ((e-2 arg-2) arg-3))))))) (define Token-Text-TokType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (e-1 arg-2)))))) (define Quantity-Quantity-Text-min (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) @@ -1198,32 +1204,32 @@ (define Quantity-Text-between (lambda (arg-0 arg-1) (vector 0 arg-0 (vector 1 arg-1)))) (define Quantity-Text-atMost (lambda (arg-0) (vector 0 0 (vector 1 arg-0)))) (define Quantity-Text-atLeast (lambda (arg-0) (vector 0 arg-0 (vector 0 )))) -(define Core-Lexer-Text-case--3166-8286 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (Prelude-fastPack e-11))))))))))))))) -(define Core-Lexer-Text-case--3110-8234 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (Prelude-fastPack e-11))))))))))))))) -(define Core-Lexer-Text-case--2961-8115 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (vector 0 (List-Data-reverse 'erased arg-3) (vector 0 arg-5 (vector 0 arg-4 (vector 0 ))))) (else (Core-Lexer-Text-tokenise 'erased arg-6 arg-8 arg-9 (vector 1 arg-7 arg-3) arg-2 arg-10)))))) -(define Core-Lexer-Text-case--2743-8082 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (Core-Lexer-Text-case--2961-8115 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-9 e-13 e-14 (arg-6 e-5))))))))))))) (else (vector 0 (List-Data-reverse 'erased arg-3) (vector 0 arg-5 (vector 0 arg-4 arg-1)))))))) -(define Core-Lexer-Text-case--2755-7996 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((lineC-39 (b+ arg-5 (Prelude-cast_Cast__Nat_Int (Core-Lexer-Text-n--2743-7889-countNLs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5)) 63))) (let ((colC-39 (Core-Lexer-Text-n--2743-7890-getCols 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 arg-4))) (vector 1 (vector 0 (vector 0 arg-5 arg-4 lineC-39 colC-39 (arg-8 (Prelude-fastPack (List-Data-reverse 'erased e-5)))) (vector 0 lineC-39 (vector 0 colC-39 e-6))))))))))) (else (Core-Lexer-Text-n--2743-7891-getFirstToken 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-10)))))) -(define Core-Lexer-Text-case--2754-7915 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (b+ arg-7 (Prelude-cast_Cast__Nat_Int (List-Data-length 'erased e-2)) 63))(else (Prelude-cast_Cast__Nat_Int (List-Data-length 'erased e-2)))))))))) -(define Core-Lexer-Text-case--2267-7664 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-scan 'erased arg-1 e-2 e-3)))))) -(define Core-Lexer-Text-case--2267-7629 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-scan 'erased arg-2 e-2 e-3)))))) -(define Core-Lexer-Text-case--2267-7593 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-scan 'erased (arg-1) e-2 e-3)))))) -(define Core-Lexer-Text-case--2267-7548 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 (vector 0 (vector 1 arg-1 arg-3) arg-2))) (else (vector 0 )))))) -(define Core-Lexer-Text-case--2267-7499 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-4 arg-3))) (else (vector 0 )))))) -(define Core-Lexer-Text-n--2743-7891-getFirstToken (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Core-Lexer-Text-case--2755-7996 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 e-7 e-3 arg-8 (Core-Lexer-Text-scan 'erased e-6 (vector 0 ) arg-8)))))))))))) -(define Core-Lexer-Text-n--2743-7890-getCols (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Core-Lexer-Text-case--2754-7915 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-7 (List-Data-span 'erased (lambda (arg-9) (Prelude-C-47C-61_Eq__Char arg-9 (integer->char 10))) (List-Data-reverse 'erased arg-7))))) -(define Core-Lexer-Text-n--2743-7889-countNLs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (List-Data-length 'erased (List-Data-filter 'erased (lambda (arg-8) (Prelude-C-61C-61_Eq__Char arg-8 (integer->char 10))) arg-7)))) +(define Core-Lexer-Text-case--3168-8294 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (Prelude-fastPack e-11))))))))))))))) +(define Core-Lexer-Text-case--3112-8242 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (Prelude-fastPack e-11))))))))))))))) +(define Core-Lexer-Text-case--2963-8123 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (vector 0 (List-Data-reverse 'erased arg-3) (vector 0 arg-5 (vector 0 arg-4 (vector 0 ))))) (else (Core-Lexer-Text-tokenise 'erased arg-6 arg-8 arg-9 (vector 1 arg-7 arg-3) arg-2 arg-10)))))) +(define Core-Lexer-Text-case--2745-8090 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (Core-Lexer-Text-case--2963-8123 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-9 e-13 e-14 (arg-6 e-5))))))))))))) (else (vector 0 (List-Data-reverse 'erased arg-3) (vector 0 arg-5 (vector 0 arg-4 arg-1)))))))) +(define Core-Lexer-Text-case--2757-8004 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((lineC-39 (b+ arg-5 (Prelude-cast_Cast__Nat_Int (Core-Lexer-Text-n--2745-7897-countNLs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5)) 63))) (let ((colC-39 (Core-Lexer-Text-n--2745-7898-getCols 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 arg-4))) (vector 1 (vector 0 (vector 0 arg-5 arg-4 lineC-39 colC-39 (arg-8 (Prelude-fastPack (List-Data-reverse 'erased e-5)))) (vector 0 lineC-39 (vector 0 colC-39 e-6))))))))))) (else (Core-Lexer-Text-n--2745-7899-getFirstToken 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-10)))))) +(define Core-Lexer-Text-case--2756-7923 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (b+ arg-7 (Prelude-cast_Cast__Nat_Int (List-Data-length 'erased e-2)) 63))(else (Prelude-cast_Cast__Nat_Int (List-Data-length 'erased e-2)))))))))) +(define Core-Lexer-Text-case--2269-7672 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-scan 'erased arg-1 e-2 e-3)))))) +(define Core-Lexer-Text-case--2269-7637 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-scan 'erased arg-2 e-2 e-3)))))) +(define Core-Lexer-Text-case--2269-7601 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-scan 'erased (arg-1) e-2 e-3)))))) +(define Core-Lexer-Text-case--2269-7556 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 (vector 0 (vector 1 arg-1 arg-3) arg-2))) (else (vector 0 )))))) +(define Core-Lexer-Text-case--2269-7507 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-4 arg-3))) (else (vector 0 )))))) +(define Core-Lexer-Text-n--2745-7899-getFirstToken (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Core-Lexer-Text-case--2757-8004 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 e-7 e-3 arg-8 (Core-Lexer-Text-scan 'erased e-6 (vector 0 ) arg-8)))))))))))) +(define Core-Lexer-Text-n--2745-7898-getCols (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Core-Lexer-Text-case--2756-7923 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-7 (List-Data-span 'erased (lambda (arg-9) (Prelude-C-47C-61_Eq__Char arg-9 (integer->char 10))) (List-Data-reverse 'erased arg-7))))) +(define Core-Lexer-Text-n--2745-7897-countNLs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (List-Data-length 'erased (List-Data-filter 'erased (lambda (arg-8) (Prelude-C-61C-61_Eq__Char arg-8 (integer->char 10))) arg-7)))) (define TokenData-Core-Lexer-Text-rf--line (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (define TokenData-Core-Lexer-Text-rf--endLine (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) e-3)))) (define TokenData-Core-Lexer-Text-rf--endCol (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 4))) e-4)))) (define TokenData-Core-Lexer-Text-rf--col (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2)))) -(define Core-Lexer-Text-tokenise (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Core-Lexer-Text-case--2743-8082 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (Core-Lexer-Text-n--2743-7891-getFirstToken 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-5 arg-6)))) +(define Core-Lexer-Text-tokenise (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Core-Lexer-Text-case--2745-8090 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (Core-Lexer-Text-n--2745-7899-getFirstToken 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-5 arg-6)))) (define TokenData-Core-Lexer-Text-tok (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-5 (vector-ref sc0 5))) e-5)))) -(define Core-Lexer-Text-scan (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-2 arg-3))) ((1) (vector 0 )) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-case--2267-7499 'erased e-3 e-2 arg-3 arg-2 'erased (Prelude-C-61C-61_Eq__Bool (Maybe-Data-isJust 'erased (Core-Lexer-Text-scan 'erased e-3 arg-2 arg-3)) e-2))))) ((3) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (vector 0 )) (else (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (Core-Lexer-Text-case--2267-7548 e-4 e-21 e-22 arg-2 (e-4 e-21))))))))) ((4) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Core-Lexer-Text-scan 'erased e-6 arg-2 arg-3) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Core-Lexer-Text-scan 'erased (e-7) e-2 e-3))))))))) ((5) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Core-Lexer-Text-scan 'erased e-10 arg-2 arg-3) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Core-Lexer-Text-scan 'erased e-11 e-2 e-3))))))))) ((6) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Core-Lexer-Text-scan 'erased e-13 arg-2 arg-3) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Core-Lexer-Text-scan 'erased e-14 e-2 e-3))))))))) (else (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (Prelude-maybe 'erased 'erased (lambda () (Core-Lexer-Text-scan 'erased e-18 arg-2 arg-3)) (lambda () (lambda (eta-0) (vector 1 eta-0))) (Core-Lexer-Text-scan 'erased e-17 arg-2 arg-3))))))))) +(define Core-Lexer-Text-scan (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-2 arg-3))) ((1) (vector 0 )) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-case--2269-7507 'erased e-3 e-2 arg-3 arg-2 'erased (Prelude-C-61C-61_Eq__Bool (Maybe-Data-isJust 'erased (Core-Lexer-Text-scan 'erased e-3 arg-2 arg-3)) e-2))))) ((3) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (vector 0 )) (else (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (Core-Lexer-Text-case--2269-7556 e-4 e-21 e-22 arg-2 (e-4 e-21))))))))) ((4) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Core-Lexer-Text-scan 'erased e-6 arg-2 arg-3) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Core-Lexer-Text-scan 'erased (e-7) e-2 e-3))))))))) ((5) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Core-Lexer-Text-scan 'erased e-10 arg-2 arg-3) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Core-Lexer-Text-scan 'erased e-11 e-2 e-3))))))))) ((6) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Core-Lexer-Text-scan 'erased e-13 arg-2 arg-3) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Core-Lexer-Text-scan 'erased e-14 e-2 e-3))))))))) (else (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (Prelude-maybe 'erased 'erased (lambda () (Core-Lexer-Text-scan 'erased e-18 arg-2 arg-3)) (lambda () (lambda (eta-0) (vector 1 eta-0))) (Core-Lexer-Text-scan 'erased e-17 arg-2 arg-3))))))))) (define Core-Lexer-Text-reject (lambda (arg-0 ext-0) (vector 2 1 ext-0))) (define Core-Lexer-Text-pred (lambda (ext-0) (vector 3 ext-0))) (define TokenData-Core-Lexer-Text-line (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)))) -(define Core-Lexer-Text-lexTo (lambda (arg-0 arg-1 arg-2 arg-3) (Core-Lexer-Text-case--3166-8286 'erased arg-3 arg-2 arg-1 (Core-Lexer-Text-tokenise 'erased arg-1 0 0 (vector 0 ) arg-2 (Prelude-unpack arg-3))))) -(define Core-Lexer-Text-lex (lambda (arg-0 arg-1 arg-2) (Core-Lexer-Text-case--3110-8234 'erased arg-2 arg-1 (Core-Lexer-Text-tokenise 'erased (lambda (eta-0) 1) 0 0 (vector 0 ) arg-1 (Prelude-unpack arg-2))))) +(define Core-Lexer-Text-lexTo (lambda (arg-0 arg-1 arg-2 arg-3) (Core-Lexer-Text-case--3168-8294 'erased arg-3 arg-2 arg-1 (Core-Lexer-Text-tokenise 'erased arg-1 0 0 (vector 0 ) arg-2 (Prelude-unpack arg-3))))) +(define Core-Lexer-Text-lex (lambda (arg-0 arg-1 arg-2) (Core-Lexer-Text-case--3112-8242 'erased arg-2 arg-1 (Core-Lexer-Text-tokenise 'erased (lambda (eta-0) (Basics-Prelude-const 'erased 'erased 1 eta-0)) 0 0 (vector 0 ) arg-1 (Prelude-unpack arg-2))))) (define Core-Lexer-Text-fail (lambda (arg-0) (vector 1 ))) (define Core-Lexer-Text-expect (lambda (arg-0 ext-0) (vector 2 0 ext-0))) (define Core-Lexer-Text-empty (lambda () (vector 0 ))) @@ -1234,131 +1240,131 @@ (define Core-Lexer-Text-C-60C-43C-62 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 1) (lambda (eta-0) (lambda (eta-1) (vector 5 eta-0 eta-1)))) (else (lambda (eta-0) (lambda (eta-1) (vector 4 eta-0 eta-1)))))))) (define Extra-Bool-Data-anyTrue (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-124C-124 e-2 (lambda () (Extra-Bool-Data-anyTrue e-3)))))))))) (define Extra-Bool-Data-allTrue (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-38C-38 e-2 (lambda () (Extra-Bool-Data-allTrue e-3)))))))))) -(define Source-Rule-Parser-case--4805-8974 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 0 (vector 0 (vector 0 ) (vector 0 )))) (else (vector 8 1 1 (Parser-Text-optional 'erased 'erased 0 (Source-Rule-Parser-blockEntry 'erased (vector 1 arg-5) arg-3)) (lambda (hidt) (vector 8 1 1 (Source-Rule-Parser-blockEntries 'erased (vector 1 arg-5) arg-2) (lambda (ps) (vector 0 (vector 0 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) hidt) ps))))))))))) -(define Source-Rule-Parser-case--4709-8802 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (Source-Rule-Parser-blockEntries 'erased (vector 1 arg-3) arg-1)))))) -(define Source-Rule-Parser-case--4372-8451 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 (vector 1 arg-2))) (else (vector 4 1 "Not the end of a block entry")))))) -(define Source-Rule-Parser-case--4372-8418 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 (vector 1 arg-2))) (else (vector 4 1 "Not the end of a block entry")))))) -(define Source-Rule-Parser-case--4372-8389 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Not the end of a block entry")))))) -(define Source-Rule-Parser-case--4328-8353 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Not the end of a block entry")))))) -(define Source-Rule-Parser-case--4267-8316 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Not the end of a block entry")))))) -(define Source-Rule-Parser-case--4182-8225 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Invalid indentation")))))) -(define Source-Rule-Parser-case--4182-8201 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Invalid indentation")))))) -(define Source-Rule-Parser-case--4061-8124 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) arg-1) (else (vector 0 (vector 0 ))))))) -(define Source-Rule-Parser-case--3913-7966 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 4 1 (Strings-Prelude-C-43C-43 "can't use reserved name " arg-0))) (else (vector 0 (vector 0 arg-1 (vector 1 arg-0)))))))) -(define Source-Rule-Parser-case--3913-7947 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 4 1 (Strings-Prelude-C-43C-43 "can't use reserved name " arg-0))) (else (vector 0 (vector 1 arg-0))))))) -(define Source-Rule-Parser-case--3847-7872 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((4) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 )))))) -(define Source-Rule-Parser-case--3816-7844 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0))) ((5) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 1 e-1 (vector 0 )))))(else (vector 0 )))))) -(define Source-Rule-Parser-case--3786-7816 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0))) ((5) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 1 e-1 (vector 0 )))))(else (vector 0 )))))) -(define Source-Rule-Parser-case--3766-7797 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 )))))) -(define Source-Rule-Parser-case--3735-7770 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 (vector 1 arg-1))))))) -(define Source-Rule-Parser-case--3728-7761 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3735-7770 arg-0 e-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-0 (Source-Lexer-Parser-reservedSymbols)))))(else (vector 0 )))))) -(define Source-Rule-Parser-case--3686-7728 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (vector 0 ))) (else (vector 0 )))))) -(define Source-Rule-Parser-case--3677-7716 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((14) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3686-7728 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 )))))) -(define Source-Rule-Parser-case--3635-7681 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (vector 0 ))) (else (vector 0 )))))) -(define Source-Rule-Parser-case--3626-7669 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3635-7681 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 )))))) -(define Source-Rule-Parser-case--3584-7634 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (vector 0 ))) (else (vector 0 )))))) -(define Source-Rule-Parser-case--3574-7622 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((13) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3584-7634 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 )))))) -(define Source-Rule-Parser-case--3532-7586 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (vector 0 ))) (else (vector 0 )))))) -(define Source-Rule-Parser-case--3522-7574 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3532-7586 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 )))))) -(define Source-Rule-Parser-case--3502-7552 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (vector 1 (vector 5 e-0))))(else (vector 0 )))))) -(define Source-Rule-Parser-case--3482-7533 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 )))))) -(define Source-Rule-Parser-case--3462-7514 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 )))))) -(define Source-Rule-Parser-case--3433-7486 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((10) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 )))))) -(define Source-Rule-Parser-case--3308-7402 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 6 e-2)))))))) -(define Source-Rule-Parser-case--3308-7369 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 7 e-2)))))))) -(define Source-Rule-Parser-case--3301-7362 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3308-7369 arg-0 e-0 (Support-Parser-getCharLit e-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 8 e-1)))) ((2) (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 1 e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (Source-Rule-Parser-case--3308-7402 arg-0 e-3 (Support-Parser-escape e-3)))) ((5) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 e-4)) (cond ((equal? sc1 "Char") (vector 1 (vector 17 ))) ((equal? sc1 "Double") (vector 1 (vector 18 ))) ((equal? sc1 "Int") (vector 1 (vector 10 ))) ((equal? sc1 "Integer") (vector 1 (vector 11 ))) ((equal? sc1 "Bits8") (vector 1 (vector 12 ))) ((equal? sc1 "Bits16") (vector 1 (vector 13 ))) ((equal? sc1 "Bits32") (vector 1 (vector 14 ))) ((equal? sc1 "Bits64") (vector 1 (vector 15 ))) ((equal? sc1 "String") (vector 1 (vector 16 )))(else (vector 0 ))))))(else (vector 0 )))))) -(define Source-Rule-Parser-n--4805-8841-restOfBlock (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased e-6 arg-2) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8867) (vector 0 (vector 0 (vector 1 e-5) ps)))))))))))) (else (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (vector 0 ) arg-2) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8902) (vector 0 (vector 0 (vector 0 ) ps)))))))))))) -(define Source-Rule-Parser-n--3911-7926-reserved (lambda (arg-0) (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-0 (Source-Rule-Parser-reservedNames)))) -(define Source-Rule-Parser-n--3911-7928-opNonNS (lambda () (vector 8 (Prelude-C-124C-124 0 (lambda () 0)) 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (lambda (eta-0) (lambda (eta-1) eta-0)) (vector 8 0 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (Source-Rule-Parser-symbol "(")) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (vector 9 0 0 (Source-Rule-Parser-operator) (lambda () (Source-Rule-Parser-recField))))))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-symbol ")")))))) -(define Source-Rule-Parser-n--3911-7929-opNS (lambda (arg-0) (vector 7 0 (Source-Rule-Parser-symbol ".(") (lambda () (lambda (_-8013) (vector 7 0 (vector 9 0 0 (Source-Rule-Parser-operator) (lambda () (Source-Rule-Parser-recField))) (lambda () (lambda (n) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-8045) (vector 0 (vector 0 arg-0 n))))))))))))) -(define Source-Rule-Parser-n--3911-7927-nameNS (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 1 "IMPOSSIBLE"))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Source-Rule-Parser-case--3913-7947 e-2 (Source-Rule-Parser-n--3911-7926-reserved e-2)))(else (Source-Rule-Parser-case--3913-7966 e-2 e-3 (Source-Rule-Parser-n--3911-7926-reserved e-2)))))))))))) -(define Source-Rule-Parser-n--3281-7329-isEOI (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((12) 0)(else 1))))) -(define Source-Rule-Parser-n--4368-8372-afterSemi (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) ((1) (let ((e-0 (vector-ref sc0 1))) (vector 2 e-0))) ((2) (let ((e-1 (vector-ref sc0 1))) (vector 2 e-1))) (else (vector 3 )))))) -(define Source-Rule-Parser-n--4368-8373-afterDedent (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (Source-Rule-Parser-case--4372-8389 arg-0 arg-1 arg-3 (Prelude-C-60C-61_Ord__Int arg-3 arg-0))) ((2) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--4372-8418 arg-0 arg-1 e-0 arg-3 (Prelude-C-60C-61_Ord__Int arg-3 arg-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (Source-Rule-Parser-case--4372-8451 arg-0 arg-1 e-1 arg-3 (Prelude-C-60C-61_Ord__Int arg-3 arg-0)))) (else (vector 0 (vector 3 ))))))) +(define Source-Rule-Parser-case--4811-8982 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 0 (vector 0 (vector 0 ) (vector 0 )))) (else (vector 8 1 1 (Parser-Text-optional 'erased 'erased 0 (Source-Rule-Parser-blockEntry 'erased (vector 1 arg-5) arg-3)) (lambda (hidt) (vector 8 1 1 (Source-Rule-Parser-blockEntries 'erased (vector 1 arg-5) arg-2) (lambda (ps) (vector 0 (vector 0 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) hidt) ps))))))))))) +(define Source-Rule-Parser-case--4715-8810 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (Source-Rule-Parser-blockEntries 'erased (vector 1 arg-3) arg-1)))))) +(define Source-Rule-Parser-case--4378-8459 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 (vector 1 arg-2))) (else (vector 4 1 "Not the end of a block entry")))))) +(define Source-Rule-Parser-case--4378-8426 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 (vector 1 arg-2))) (else (vector 4 1 "Not the end of a block entry")))))) +(define Source-Rule-Parser-case--4378-8397 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Not the end of a block entry")))))) +(define Source-Rule-Parser-case--4334-8361 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Not the end of a block entry")))))) +(define Source-Rule-Parser-case--4273-8324 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Not the end of a block entry")))))) +(define Source-Rule-Parser-case--4188-8233 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Invalid indentation")))))) +(define Source-Rule-Parser-case--4188-8209 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Invalid indentation")))))) +(define Source-Rule-Parser-case--4067-8132 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) arg-1) (else (vector 0 (vector 0 ))))))) +(define Source-Rule-Parser-case--3919-7974 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 4 1 (Strings-Prelude-C-43C-43 "can't use reserved name " arg-0))) (else (vector 0 (vector 0 arg-1 (vector 1 arg-0)))))))) +(define Source-Rule-Parser-case--3919-7955 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 4 1 (Strings-Prelude-C-43C-43 "can't use reserved name " arg-0))) (else (vector 0 (vector 1 arg-0))))))) +(define Source-Rule-Parser-case--3853-7880 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((4) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 )))))) +(define Source-Rule-Parser-case--3822-7852 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0))) ((5) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 1 e-1 (vector 0 )))))(else (vector 0 )))))) +(define Source-Rule-Parser-case--3792-7824 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0))) ((5) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 1 e-1 (vector 0 )))))(else (vector 0 )))))) +(define Source-Rule-Parser-case--3772-7805 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 )))))) +(define Source-Rule-Parser-case--3741-7778 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 (vector 1 arg-1))))))) +(define Source-Rule-Parser-case--3734-7769 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3741-7778 arg-0 e-0 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) e-0 (Source-Lexer-Parser-reservedSymbols)))))(else (vector 0 )))))) +(define Source-Rule-Parser-case--3692-7736 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (vector 0 ))) (else (vector 0 )))))) +(define Source-Rule-Parser-case--3683-7724 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((14) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3692-7736 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 )))))) +(define Source-Rule-Parser-case--3641-7689 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (vector 0 ))) (else (vector 0 )))))) +(define Source-Rule-Parser-case--3632-7677 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3641-7689 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 )))))) +(define Source-Rule-Parser-case--3590-7642 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (vector 0 ))) (else (vector 0 )))))) +(define Source-Rule-Parser-case--3580-7630 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((13) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3590-7642 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 )))))) +(define Source-Rule-Parser-case--3538-7594 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (vector 0 ))) (else (vector 0 )))))) +(define Source-Rule-Parser-case--3528-7582 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3538-7594 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 )))))) +(define Source-Rule-Parser-case--3508-7560 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (vector 1 (vector 5 e-0))))(else (vector 0 )))))) +(define Source-Rule-Parser-case--3488-7541 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 )))))) +(define Source-Rule-Parser-case--3468-7522 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 )))))) +(define Source-Rule-Parser-case--3439-7494 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((10) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 )))))) +(define Source-Rule-Parser-case--3314-7410 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 6 e-2)))))))) +(define Source-Rule-Parser-case--3314-7377 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 7 e-2)))))))) +(define Source-Rule-Parser-case--3307-7370 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3314-7377 arg-0 e-0 (Support-Parser-getCharLit e-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 8 e-1)))) ((2) (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 1 e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (Source-Rule-Parser-case--3314-7410 arg-0 e-3 (Support-Parser-escape e-3)))) ((5) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 e-4)) (cond ((equal? sc1 "Char") (vector 1 (vector 17 ))) ((equal? sc1 "Double") (vector 1 (vector 18 ))) ((equal? sc1 "Int") (vector 1 (vector 10 ))) ((equal? sc1 "Integer") (vector 1 (vector 11 ))) ((equal? sc1 "Bits8") (vector 1 (vector 12 ))) ((equal? sc1 "Bits16") (vector 1 (vector 13 ))) ((equal? sc1 "Bits32") (vector 1 (vector 14 ))) ((equal? sc1 "Bits64") (vector 1 (vector 15 ))) ((equal? sc1 "String") (vector 1 (vector 16 )))(else (vector 0 ))))))(else (vector 0 )))))) +(define Source-Rule-Parser-n--4811-8849-restOfBlock (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased e-6 arg-2) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8875) (vector 0 (vector 0 (vector 1 e-5) ps)))))))))))) (else (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (vector 0 ) arg-2) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8910) (vector 0 (vector 0 (vector 0 ) ps)))))))))))) +(define Source-Rule-Parser-n--3917-7934-reserved (lambda (arg-0) (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-0 (Source-Rule-Parser-reservedNames)))) +(define Source-Rule-Parser-n--3917-7936-opNonNS (lambda () (vector 8 (Prelude-C-124C-124 0 (lambda () 0)) 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (lambda (eta-0) (lambda (eta-1) eta-0)) (vector 8 0 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (Source-Rule-Parser-symbol "(")) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (vector 9 0 0 (Source-Rule-Parser-operator) (lambda () (Source-Rule-Parser-recField))))))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-symbol ")")))))) +(define Source-Rule-Parser-n--3917-7937-opNS (lambda (arg-0) (vector 7 0 (Source-Rule-Parser-symbol ".(") (lambda () (lambda (_-8021) (vector 7 0 (vector 9 0 0 (Source-Rule-Parser-operator) (lambda () (Source-Rule-Parser-recField))) (lambda () (lambda (n) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-8053) (vector 0 (vector 0 arg-0 n))))))))))))) +(define Source-Rule-Parser-n--3917-7935-nameNS (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 1 "IMPOSSIBLE"))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Source-Rule-Parser-case--3919-7955 e-2 (Source-Rule-Parser-n--3917-7934-reserved e-2)))(else (Source-Rule-Parser-case--3919-7974 e-2 e-3 (Source-Rule-Parser-n--3917-7934-reserved e-2)))))))))))) +(define Source-Rule-Parser-n--3287-7337-isEOI (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((12) 0)(else 1))))) +(define Source-Rule-Parser-n--4374-8380-afterSemi (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) ((1) (let ((e-0 (vector-ref sc0 1))) (vector 2 e-0))) ((2) (let ((e-1 (vector-ref sc0 1))) (vector 2 e-1))) (else (vector 3 )))))) +(define Source-Rule-Parser-n--4374-8381-afterDedent (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (Source-Rule-Parser-case--4378-8397 arg-0 arg-1 arg-3 (Prelude-C-60C-61_Ord__Int arg-3 arg-0))) ((2) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--4378-8426 arg-0 arg-1 e-0 arg-3 (Prelude-C-60C-61_Ord__Int arg-3 arg-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (Source-Rule-Parser-case--4378-8459 arg-0 arg-1 e-1 arg-3 (Prelude-C-60C-61_Ord__Int arg-3 arg-0)))) (else (vector 0 (vector 3 ))))))) (define Source-Rule-Parser-unqualifiedName (lambda () (Source-Rule-Parser-identPart))) -(define Source-Rule-Parser-terminator (lambda (arg-0 arg-1) (vector 9 1 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 1 (lambda () 1)))) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-8530) (vector 0 (vector 3 )))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 1 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol ";") (lambda () (lambda (_-8518) (vector 0 (Source-Rule-Parser-n--4368-8372-afterSemi arg-1 arg-0 arg-0))))) (lambda () (vector 9 1 1 (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-n--4368-8373-afterDedent arg-1 arg-0 arg-0 col))) (lambda () (vector 0 (vector 3 )))))))))) -(define Source-Rule-Parser-symbol (lambda (arg-0) (vector 1 (Strings-Prelude-C-43C-43 "Expected '" (Strings-Prelude-C-43C-43 arg-0 "'")) (lambda (x) (Source-Rule-Parser-case--3522-7574 arg-0 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5))))))) -(define Source-Rule-Parser-strLit (lambda () (vector 1 "Expected string literal" (lambda (x) (Source-Rule-Parser-case--3482-7533 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5))))))) +(define Source-Rule-Parser-terminator (lambda (arg-0 arg-1) (vector 9 1 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 1 (lambda () 1)))) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-8538) (vector 0 (vector 3 )))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 1 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol ";") (lambda () (lambda (_-8526) (vector 0 (Source-Rule-Parser-n--4374-8380-afterSemi arg-1 arg-0 arg-0))))) (lambda () (vector 9 1 1 (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-n--4374-8381-afterDedent arg-1 arg-0 arg-0 col))) (lambda () (vector 0 (vector 3 )))))))))) +(define Source-Rule-Parser-symbol (lambda (arg-0) (vector 1 (Strings-Prelude-C-43C-43 "Expected '" (Strings-Prelude-C-43C-43 arg-0 "'")) (lambda (x) (Source-Rule-Parser-case--3528-7582 arg-0 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5))))))) +(define Source-Rule-Parser-strLit (lambda () (vector 1 "Expected string literal" (lambda (x) (Source-Rule-Parser-case--3488-7541 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5))))))) (define Source-Rule-Parser-reservedNames (lambda () (vector 1 "Type" (vector 1 "Int" (vector 1 "Integer" (vector 1 "Bits8" (vector 1 "Bits16" (vector 1 "Bits32" (vector 1 "Bits64" (vector 1 "String" (vector 1 "Char" (vector 1 "Double" (vector 1 "Lazy" (vector 1 "Inf" (vector 1 "Force" (vector 1 "Delay" (vector 0 ))))))))))))))))) -(define Source-Rule-Parser-recField (lambda () (vector 1 "Expected record field" (lambda (x) (Source-Rule-Parser-case--3502-7552 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5))))))) -(define Source-Rule-Parser-pragma (lambda (arg-0) (vector 1 (Strings-Prelude-C-43C-43 "Expected pragma " arg-0) (lambda (x) (Source-Rule-Parser-case--3677-7716 arg-0 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5))))))) -(define Source-Rule-Parser-operator (lambda () (vector 1 "Expected operator" (lambda (x) (Source-Rule-Parser-case--3728-7761 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5))))))) -(define Source-Rule-Parser-nonEmptyBlock (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-9094) (vector 8 1 0 (vector 5 ) (lambda (_-9104) (vector 7 0 (Source-Rule-Parser-blockEntry 'erased (vector 0 ) arg-1) (lambda () (lambda (res) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (Builtin-snd 'erased 'erased res) arg-1) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-9135) (vector 0 (vector 1 (Builtin-fst 'erased 'erased res) ps))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 1 (Source-Rule-Parser-blockEntry 'erased (vector 1 col) arg-1) (lambda () (lambda (res) (vector 8 1 1 (Source-Rule-Parser-blockEntries 'erased (Builtin-snd 'erased 'erased res) arg-1) (lambda (ps) (vector 0 (vector 1 (Builtin-fst 'erased 'erased res) ps))))))))))))) -(define Source-Rule-Parser-namespacedIdent (lambda () (vector 1 "Expected namespaced name" (lambda (x) (Source-Rule-Parser-case--3786-7816 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5))))))) -(define Source-Rule-Parser-name (lambda () (vector 9 0 0 (Source-Rule-Parser-n--3911-7928-opNonNS) (lambda () (vector 7 1 (Source-Rule-Parser-namespacedIdent) (lambda () (lambda (ns) (vector 9 0 1 (Source-Rule-Parser-n--3911-7929-opNS ns) (lambda () (Source-Rule-Parser-n--3911-7927-nameNS ns)))))))))) +(define Source-Rule-Parser-recField (lambda () (vector 1 "Expected record field" (lambda (x) (Source-Rule-Parser-case--3508-7560 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5))))))) +(define Source-Rule-Parser-pragma (lambda (arg-0) (vector 1 (Strings-Prelude-C-43C-43 "Expected pragma " arg-0) (lambda (x) (Source-Rule-Parser-case--3683-7724 arg-0 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5))))))) +(define Source-Rule-Parser-operator (lambda () (vector 1 "Expected operator" (lambda (x) (Source-Rule-Parser-case--3734-7769 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5))))))) +(define Source-Rule-Parser-nonEmptyBlock (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-9102) (vector 8 1 0 (vector 5 ) (lambda (_-9112) (vector 7 0 (Source-Rule-Parser-blockEntry 'erased (vector 0 ) arg-1) (lambda () (lambda (res) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (Builtin-snd 'erased 'erased res) arg-1) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-9143) (vector 0 (vector 1 (Builtin-fst 'erased 'erased res) ps))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 1 (Source-Rule-Parser-blockEntry 'erased (vector 1 col) arg-1) (lambda () (lambda (res) (vector 8 1 1 (Source-Rule-Parser-blockEntries 'erased (Builtin-snd 'erased 'erased res) arg-1) (lambda (ps) (vector 0 (vector 1 (Builtin-fst 'erased 'erased res) ps))))))))))))) +(define Source-Rule-Parser-namespacedIdent (lambda () (vector 1 "Expected namespaced name" (lambda (x) (Source-Rule-Parser-case--3792-7824 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5))))))) +(define Source-Rule-Parser-name (lambda () (vector 9 0 0 (Source-Rule-Parser-n--3917-7936-opNonNS) (lambda () (vector 7 1 (Source-Rule-Parser-namespacedIdent) (lambda () (lambda (ns) (vector 9 0 1 (Source-Rule-Parser-n--3917-7937-opNS ns) (lambda () (Source-Rule-Parser-n--3917-7935-nameNS ns)))))))))) (define Source-Rule-Parser-mustContinue (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Source-Rule-Parser-continueF (vector 4 0 "Unexpected end of expression") arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (Source-Rule-Parser-continueF (vector 4 0 (Strings-Prelude-C-43C-43 "Expected '" (Strings-Prelude-C-43C-43 e-2 "'"))) arg-0))))))) -(define Source-Rule-Parser-moduleIdent (lambda () (vector 1 "Expected module identifier" (lambda (x) (Source-Rule-Parser-case--3816-7844 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5))))))) -(define Source-Rule-Parser-keyword (lambda (arg-0) (vector 1 (Strings-Prelude-C-43C-43 "Expected '" (Strings-Prelude-C-43C-43 arg-0 "'")) (lambda (x) (Source-Rule-Parser-case--3574-7622 arg-0 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5))))))) +(define Source-Rule-Parser-moduleIdent (lambda () (vector 1 "Expected module identifier" (lambda (x) (Source-Rule-Parser-case--3822-7852 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5))))))) +(define Source-Rule-Parser-keyword (lambda (arg-0) (vector 1 (Strings-Prelude-C-43C-43 "Expected '" (Strings-Prelude-C-43C-43 arg-0 "'")) (lambda (x) (Source-Rule-Parser-case--3580-7630 arg-0 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5))))))) (define Source-Rule-Parser-isTerminator (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 ",") 0) ((equal? sc1 "]") 0) ((equal? sc1 ";") 0) ((equal? sc1 "}") 0) ((equal? sc1 ")") 0) ((equal? sc1 "|") 0)(else 1))))) ((13) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (cond ((equal? sc1 "in") 0) ((equal? sc1 "then") 0) ((equal? sc1 "else") 0) ((equal? sc1 "where") 0)(else 1))))) ((12) 0)(else 1))))) -(define Source-Rule-Parser-intLit (lambda () (vector 1 "Expected integer literal" (lambda (x) (Source-Rule-Parser-case--3462-7514 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5))))))) +(define Source-Rule-Parser-intLit (lambda () (vector 1 "Expected integer literal" (lambda (x) (Source-Rule-Parser-case--3468-7522 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5))))))) (define Source-Rule-Parser-init (lambda () 0)) -(define Source-Rule-Parser-identPart (lambda () (vector 1 "Expected name" (lambda (x) (Source-Rule-Parser-case--3766-7797 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5))))))) -(define Source-Rule-Parser-holeName (lambda () (vector 1 "Expected hole name" (lambda (x) (Source-Rule-Parser-case--3847-7872 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5))))))) -(define Source-Rule-Parser-exactIdent (lambda (arg-0) (vector 1 (Strings-Prelude-C-43C-43 "Expected " arg-0) (lambda (x) (Source-Rule-Parser-case--3626-7669 arg-0 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5))))))) -(define Source-Rule-Parser-eoi (lambda () (vector 8 1 1 (vector 2 "Expected end of input" (lambda (eta-0) (Source-Rule-Parser-n--3281-7329-isEOI (let ((sc0 eta-0)) (let ((e-5 (vector-ref sc0 5))) e-5))))) (lambda (_-7348) (vector 0 (vector 0 )))))) -(define Source-Rule-Parser-documentationC-39 (lambda () (vector 1 "Expected documentation comment" (lambda (x) (Source-Rule-Parser-case--3433-7486 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5))))))) +(define Source-Rule-Parser-identPart (lambda () (vector 1 "Expected name" (lambda (x) (Source-Rule-Parser-case--3772-7805 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5))))))) +(define Source-Rule-Parser-holeName (lambda () (vector 1 "Expected hole name" (lambda (x) (Source-Rule-Parser-case--3853-7880 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5))))))) +(define Source-Rule-Parser-exactIdent (lambda (arg-0) (vector 1 (Strings-Prelude-C-43C-43 "Expected " arg-0) (lambda (x) (Source-Rule-Parser-case--3632-7677 arg-0 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5))))))) +(define Source-Rule-Parser-eoi (lambda () (vector 8 1 1 (vector 2 "Expected end of input" (lambda (eta-0) (Source-Rule-Parser-n--3287-7337-isEOI (let ((sc0 eta-0)) (let ((e-5 (vector-ref sc0 5))) e-5))))) (lambda (_-7356) (vector 0 (vector 0 )))))) +(define Source-Rule-Parser-documentationC-39 (lambda () (vector 1 "Expected documentation comment" (lambda (x) (Source-Rule-Parser-case--3439-7494 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5))))))) (define Source-Rule-Parser-documentation (lambda () (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 eta-2 eta-3))))) (lambda (eta-0) (Strings-Data-unlines eta-0)) (Parser-Text-some 'erased 'erased (Source-Rule-Parser-documentationC-39))))) -(define Source-Rule-Parser-continueF (lambda (arg-0 arg-1) (vector 9 1 (Prelude-C-38C-38 0 (lambda () 1)) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-8115) arg-0)) (lambda () (vector 9 0 1 (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-8106) arg-0))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--4061-8124 arg-1 arg-0 col (Prelude-C-60C-61_Ord__Int col arg-1)))))))))) +(define Source-Rule-Parser-continueF (lambda (arg-0 arg-1) (vector 9 1 (Prelude-C-38C-38 0 (lambda () 1)) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-8123) arg-0)) (lambda () (vector 9 0 1 (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-8114) arg-0))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--4067-8132 arg-1 arg-0 col (Prelude-C-60C-61_Ord__Int col arg-1)))))))))) (define Source-Rule-Parser-continue (lambda (ext-0) (Source-Rule-Parser-continueF (vector 4 1 "Unexpected end of expression") ext-0))) -(define Source-Rule-Parser-constant (lambda () (vector 1 "Expected constant" (lambda (x) (Source-Rule-Parser-case--3301-7362 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5))))))) -(define Source-Rule-Parser-checkValid (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ))) ((1) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--4182-8201 e-0 arg-1 (Prelude-C-61C-61_Eq__Int arg-1 e-0)))) ((2) (let ((e-1 (vector-ref sc0 1))) (Source-Rule-Parser-case--4182-8225 e-1 arg-1 (Prelude-C-62C-61_Ord__Int arg-1 e-1)))) (else (vector 4 1 "End of block")))))) -(define Source-Rule-Parser-blockWithOptHeaderAfter (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8940) (vector 8 1 0 (vector 5 ) (lambda (_-8950) (vector 8 1 0 (Parser-Text-optional 'erased 'erased 0 (Source-Rule-Parser-blockEntry 'erased (vector 0 ) arg-3)) (lambda (hidt) (Source-Rule-Parser-n--4805-8841-restOfBlock 'erased 'erased arg-4 arg-3 arg-2 hidt)))))))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--4805-8974 'erased 'erased arg-4 arg-3 arg-2 col (Prelude-C-60C-61_Ord__Int col arg-2)))))))) -(define Source-Rule-Parser-blockEntry (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 8 1 0 (Source-Rule-Parser-checkValid arg-1 col) (lambda (_-8559) (vector 7 1 (arg-2 col) (lambda () (lambda (p) (vector 8 1 1 (Source-Rule-Parser-terminator arg-1 col) (lambda (validC-39) (vector 0 (vector 0 p validC-39))))))))))))) -(define Source-Rule-Parser-blockEntries (lambda (arg-0 arg-1 arg-2) (vector 9 1 (Prelude-C-38C-38 0 (lambda () 1)) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-8629) (vector 0 (vector 0 )))) (lambda () (vector 9 0 1 (vector 7 1 (Source-Rule-Parser-blockEntry 'erased arg-1 arg-2) (lambda () (lambda (res) (vector 8 1 1 (Source-Rule-Parser-blockEntries 'erased (Builtin-snd 'erased 'erased res) arg-2) (lambda (ts) (vector 0 (vector 1 (Builtin-fst 'erased 'erased res) ts))))))) (lambda () (vector 0 (vector 0 )))))))) -(define Source-Rule-Parser-blockAfter (lambda (arg-0 arg-1 arg-2) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8757) (vector 8 1 0 (vector 5 ) (lambda (_-8767) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (vector 0 ) arg-2) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8786) (vector 0 ps))))))))))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--4709-8802 'erased arg-2 arg-1 col (Prelude-C-60C-61_Ord__Int col arg-1)))))))) -(define Source-Rule-Parser-block (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8686) (vector 8 1 0 (vector 5 ) (lambda (_-8696) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (vector 0 ) arg-1) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8715) (vector 0 ps))))))))))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-blockEntries 'erased (vector 1 col) arg-1))))))) -(define Source-Rule-Parser-atEndIndent (lambda (arg-0) (vector 9 1 1 (Source-Rule-Parser-eoi) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--4328-8353 arg-0 col (Prelude-C-60C-61_Ord__Int col arg-0)))))))) -(define Source-Rule-Parser-atEnd (lambda (arg-0) (vector 9 1 (Prelude-C-38C-38 1 (lambda () 1)) (Source-Rule-Parser-eoi) (lambda () (vector 9 1 1 (vector 8 1 1 (vector 2 "Expected end of block" (lambda (eta-0) (Source-Rule-Parser-isTerminator (let ((sc0 eta-0)) (let ((e-5 (vector-ref sc0 5))) e-5))))) (lambda (_-8304) (vector 0 (vector 0 )))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--4267-8316 arg-0 col (Prelude-C-60C-61_Ord__Int col arg-0)))))))))) +(define Source-Rule-Parser-constant (lambda () (vector 1 "Expected constant" (lambda (x) (Source-Rule-Parser-case--3307-7370 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5))))))) +(define Source-Rule-Parser-checkValid (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ))) ((1) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--4188-8209 e-0 arg-1 (Prelude-C-61C-61_Eq__Int arg-1 e-0)))) ((2) (let ((e-1 (vector-ref sc0 1))) (Source-Rule-Parser-case--4188-8233 e-1 arg-1 (Prelude-C-62C-61_Ord__Int arg-1 e-1)))) (else (vector 4 1 "End of block")))))) +(define Source-Rule-Parser-blockWithOptHeaderAfter (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8948) (vector 8 1 0 (vector 5 ) (lambda (_-8958) (vector 8 1 0 (Parser-Text-optional 'erased 'erased 0 (Source-Rule-Parser-blockEntry 'erased (vector 0 ) arg-3)) (lambda (hidt) (Source-Rule-Parser-n--4811-8849-restOfBlock 'erased 'erased arg-4 arg-3 arg-2 hidt)))))))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--4811-8982 'erased 'erased arg-4 arg-3 arg-2 col (Prelude-C-60C-61_Ord__Int col arg-2)))))))) +(define Source-Rule-Parser-blockEntry (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 8 1 0 (Source-Rule-Parser-checkValid arg-1 col) (lambda (_-8567) (vector 7 1 (arg-2 col) (lambda () (lambda (p) (vector 8 1 1 (Source-Rule-Parser-terminator arg-1 col) (lambda (validC-39) (vector 0 (vector 0 p validC-39))))))))))))) +(define Source-Rule-Parser-blockEntries (lambda (arg-0 arg-1 arg-2) (vector 9 1 (Prelude-C-38C-38 0 (lambda () 1)) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-8637) (vector 0 (vector 0 )))) (lambda () (vector 9 0 1 (vector 7 1 (Source-Rule-Parser-blockEntry 'erased arg-1 arg-2) (lambda () (lambda (res) (vector 8 1 1 (Source-Rule-Parser-blockEntries 'erased (Builtin-snd 'erased 'erased res) arg-2) (lambda (ts) (vector 0 (vector 1 (Builtin-fst 'erased 'erased res) ts))))))) (lambda () (vector 0 (vector 0 )))))))) +(define Source-Rule-Parser-blockAfter (lambda (arg-0 arg-1 arg-2) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8765) (vector 8 1 0 (vector 5 ) (lambda (_-8775) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (vector 0 ) arg-2) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8794) (vector 0 ps))))))))))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--4715-8810 'erased arg-2 arg-1 col (Prelude-C-60C-61_Ord__Int col arg-1)))))))) +(define Source-Rule-Parser-block (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8694) (vector 8 1 0 (vector 5 ) (lambda (_-8704) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (vector 0 ) arg-1) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8723) (vector 0 ps))))))))))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-blockEntries 'erased (vector 1 col) arg-1))))))) +(define Source-Rule-Parser-atEndIndent (lambda (arg-0) (vector 9 1 1 (Source-Rule-Parser-eoi) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--4334-8361 arg-0 col (Prelude-C-60C-61_Ord__Int col arg-0)))))))) +(define Source-Rule-Parser-atEnd (lambda (arg-0) (vector 9 1 (Prelude-C-38C-38 1 (lambda () 1)) (Source-Rule-Parser-eoi) (lambda () (vector 9 1 1 (vector 8 1 1 (vector 2 "Expected end of block" (lambda (eta-0) (Source-Rule-Parser-isTerminator (let ((sc0 eta-0)) (let ((e-5 (vector-ref sc0 5))) e-5))))) (lambda (_-8312) (vector 0 (vector 0 )))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--4273-8324 arg-0 col (Prelude-C-60C-61_Ord__Int col arg-0)))))))))) (define Source-Rule-Parser-Rule (lambda (ext-0) (Common-Rule-Parser-Rule (vector "Parser.Lexer.Source.Token" ) ext-0))) (define Source-Rule-Parser-IndentInfo (lambda () (vector "Int" ))) -(define TT-Core-case--10100-7772 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-n--10100-7252-showApp arg-0 arg-1 arg-0 e-2 e-3)))))) -(define TT-Core-case--9870-7105 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (TT-Core-addRefs 'erased 0 arg-9 (NameMap-Data-insert 'erased arg-4 0 arg-8) arg-7)) (else (TT-Core-addRefs 'erased arg-10 arg-9 (TT-Core-addRefs 'erased arg-10 arg-9 (NameMap-Data-insert 'erased arg-4 arg-10 arg-8) arg-6) arg-7)))))) -(define TT-Core-case--9627-6854 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 1 arg-3 arg-2 arg-1)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) arg-4))))))) -(define TT-Core-case--9120-6408 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 0 arg-1 (vector 1 1) e-1)))(else (vector 1 arg-1 (vector 0 ) arg-0)))))) -(define TT-Core-case--9055-6361 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-pure_Applicative__Maybe 'erased (+ 1 arg-3)))) -(define TT-Core-case--9043-6342 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-isVar arg-2 arg-1) (lambda (_-0) (Prelude-pure_Applicative__Maybe 'erased (+ 1 _-0))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (Prelude-pure_Applicative__Maybe 'erased 0)))))))) -(define TT-Core-case--8728-6083 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (vector 0 arg-7 arg-6 arg-9))) -(define TT-Core-case--8579-5968 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (vector 1 (vector 0 arg-5 (vector 0 ) arg-12)))) -(define TT-Core-case--8547-5916 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (TT-Core-case--8579-5968 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased 'erased 'erased 'erased (TT-Core-weakenNVar 'erased 'erased (List-Prelude-C-43C-43 'erased arg-7 arg-6) 0 'erased))) (else (TT-Core-resolveRef 'erased 'erased arg-7 (List-Prelude-C-43C-43 'erased arg-6 (vector 1 arg-3 (vector 0 ))) arg-1 arg-5 arg-4)))))) -(define TT-Core-case--8433-5859 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (+ 1 arg-9))) -(define TT-Core-case--8246-5650 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 0 arg-6 arg-5 arg-8))) -(define TT-Core-case--8080-5599 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (+ 1 arg-10))) -(define TT-Core-case--8080-5525 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (+ 1 arg-8))) -(define TT-Core-case--7559-5232 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 0 arg-6 arg-5 e-2)))))))) -(define TT-Core-case--7279-4885 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (vector 1 (+ 1 arg-10)))) -(define TT-Core-case--7279-4803 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (vector 1 arg-9))) -(define TT-Core-case--6639-4204 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 0 arg-6 arg-5 arg-8))) -(define TT-Core-case--6535-4151 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (+ 1 arg-7))) -(define TT-Core-case--6431-4063 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (+ 1 arg-7))) -(define TT-Core-case--6365-3979 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (+ 1 arg-6))) -(define TT-Core-case--6087-3747 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (+ 1 arg-6))) -(define TT-Core-case--5723-3463 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define TT-Core-case--5724-3449 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define TT-Core-case--2872-840 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) -(define TT-Core-case--2872-808 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) -(define TT-Core-case--2872-776 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) -(define TT-Core-case--2872-744 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) -(define TT-Core-n--6039-3689-showTot (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) "total")(else (TT-Core-show_Show__Covering arg-2)))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (TT-Core-show_Show__Terminating arg-1))(else (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Covering arg-2) (Strings-Prelude-C-43C-43 "; " (TT-Core-show_Show__Terminating arg-1))))))))))) -(define TT-Core-n--10100-7252-showApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-5 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (TT-Core-nameAt 'erased arg-2 e-5 'erased)) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-5) "]"))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((1) (let ((e-10 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Name-Core-show_Show__Name e-10))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((2) (let ((e-13 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 4))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "?" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-13) (Strings-Prelude-C-43C-43 "_" (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-2 d x)))) e-15)))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))))) ((3) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (let ((e-20 (vector-ref sc0 4))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((0) (let ((e-55 (vector-ref sc1 1))) (let ((e-57 (vector-ref sc1 3))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "\\" (Strings-Prelude-C-43C-43 (TT-Core-showCount e-55) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-57) (Strings-Prelude-C-43C-43 " => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))))) ((1) (let ((e-59 (vector-ref sc1 1))) (let ((e-60 (vector-ref sc1 2))) (let ((e-61 (vector-ref sc1 3))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "let " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-59) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-61) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-60) (Strings-Prelude-C-43C-43 " in " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((2) (let ((e-63 (vector-ref sc1 1))) (let ((e-64 (vector-ref sc1 2))) (let ((e-65 (vector-ref sc1 3))) (let ((sc2 e-64)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "((" (Strings-Prelude-C-43C-43 (TT-Core-showCount e-63) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-65) (Strings-Prelude-C-43C-43 ") -> " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20) ")"))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((0) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "{" (Strings-Prelude-C-43C-43 (TT-Core-showCount e-63) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-65) (Strings-Prelude-C-43C-43 "} -> " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((2) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "{auto " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-63) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-65) (Strings-Prelude-C-43C-43 "} -> " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((3) (let ((e-83 (vector-ref sc2 1))) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "{default " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-83) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-63) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-65) (Strings-Prelude-C-43C-43 "} -> " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((3) (let ((e-67 (vector-ref sc1 1))) (let ((e-68 (vector-ref sc1 2))) (let ((e-69 (vector-ref sc1 3))) (let ((sc2 e-68)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "pat " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-67) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-69) (Strings-Prelude-C-43C-43 " => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((0) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "{pat " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-67) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-69) (Strings-Prelude-C-43C-43 "} => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((2) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "{auto pat " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-67) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-69) (Strings-Prelude-C-43C-43 "} => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((4) (let ((e-71 (vector-ref sc1 1))) (let ((e-72 (vector-ref sc1 2))) (let ((e-73 (vector-ref sc1 3))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "plet " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-71) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-73) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-72) (Strings-Prelude-C-43C-43 " in " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((5) (let ((e-75 (vector-ref sc1 1))) (let ((e-76 (vector-ref sc1 2))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "pty " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-75) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-76) (Strings-Prelude-C-43C-43 " => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((4) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "[can't happen]")(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((5) (let ((e-28 (vector-ref sc0 3))) (let ((e-29 (vector-ref sc0 4))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-28) (Strings-Prelude-C-43C-43 "@" (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-29))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))))) ((6) (let ((e-33 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "%Delayed " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-33)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((7) (let ((e-38 (vector-ref sc0 4))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "%Delay " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-38)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((8) (let ((e-42 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "%Force " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-42)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((9) (let ((e-45 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (TT-Core-show_Show__Constant e-45))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((10) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "[__]")(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((11) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "Type")(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) -(define TT-Core-n--7065-4572-getFA (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((4) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (TT-Core-n--7065-4572-getFA 'erased arg-1 (vector 1 e-3 arg-2) e-2))))(else (vector 0 arg-3 arg-2)))))) -(define TT-Core-n--5181-3002-eqPiInfo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((0) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((2) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((2) 0)(else 1)))) ((3) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (TT-Core-eqTerm 'erased 'erased e-4 e-9)))(else 1)))))(else 1))))) -(define TT-Core-n--5181-3003-eqBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((0) (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (let ((e-26 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-1 e-24) (lambda () (Prelude-C-38C-38 (TT-Core-n--5181-3002-eqPiInfo 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-25) (lambda () (TT-Core-eqTerm 'erased 'erased e-3 e-26)))))))))(else 1))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((1) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (let ((e-30 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-5 e-28) (lambda () (Prelude-C-38C-38 (TT-Core-eqTerm 'erased 'erased e-6 e-29) (lambda () (TT-Core-eqTerm 'erased 'erased e-7 e-30)))))))))(else 1))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((2) (let ((e-32 (vector-ref sc1 1))) (let ((e-33 (vector-ref sc1 2))) (let ((e-34 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-9 e-32) (lambda () (Prelude-C-38C-38 (TT-Core-n--5181-3002-eqPiInfo 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-10 e-33) (lambda () (TT-Core-eqTerm 'erased 'erased e-11 e-34)))))))))(else 1))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((3) (let ((e-36 (vector-ref sc1 1))) (let ((e-37 (vector-ref sc1 2))) (let ((e-38 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-13 e-36) (lambda () (Prelude-C-38C-38 (TT-Core-n--5181-3002-eqPiInfo 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-14 e-37) (lambda () (TT-Core-eqTerm 'erased 'erased e-15 e-38)))))))))(else 1))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((4) (let ((e-40 (vector-ref sc1 1))) (let ((e-41 (vector-ref sc1 2))) (let ((e-42 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-17 e-40) (lambda () (Prelude-C-38C-38 (TT-Core-eqTerm 'erased 'erased e-18 e-41) (lambda () (TT-Core-eqTerm 'erased 'erased e-19 e-42)))))))))(else 1))))))) ((5) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((5) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-21 e-44) (lambda () (TT-Core-eqTerm 'erased 'erased e-22 e-45))))))(else 1))))))(else 1))))) -(define TT-Core-n--9870-7058-addRefsArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) arg-8) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-n--9870-7058-addRefsArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (TT-Core-addRefs 'erased arg-7 arg-6 arg-8 e-2) e-3)))))))) -(define TT-Core-n--9756-6966-addMetaArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) arg-6) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-n--9756-6966-addMetaArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (TT-Core-addMetas 'erased arg-6 e-2) e-3)))))))) +(define TT-Core-case--10123-7780 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-n--10123-7260-showApp arg-0 arg-1 arg-0 e-2 e-3)))))) +(define TT-Core-case--9893-7113 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (TT-Core-addRefs 'erased 0 arg-9 (NameMap-Data-insert 'erased arg-4 0 arg-8) arg-7)) (else (TT-Core-addRefs 'erased arg-10 arg-9 (TT-Core-addRefs 'erased arg-10 arg-9 (NameMap-Data-insert 'erased arg-4 arg-10 arg-8) arg-6) arg-7)))))) +(define TT-Core-case--9650-6862 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 1 arg-3 arg-2 arg-1)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) arg-4))))))) +(define TT-Core-case--9143-6416 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 0 arg-1 (vector 1 1) e-1)))(else (vector 1 arg-1 (vector 0 ) arg-0)))))) +(define TT-Core-case--9078-6369 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-pure_Applicative__Maybe 'erased (+ 1 arg-3)))) +(define TT-Core-case--9066-6350 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-isVar arg-2 arg-1) (lambda (_-0) (Prelude-pure_Applicative__Maybe 'erased (+ 1 _-0))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (Prelude-pure_Applicative__Maybe 'erased 0)))))))) +(define TT-Core-case--8751-6091 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (vector 0 arg-7 arg-6 arg-9))) +(define TT-Core-case--8602-5976 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (vector 1 (vector 0 arg-5 (vector 0 ) arg-12)))) +(define TT-Core-case--8570-5924 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (TT-Core-case--8602-5976 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased 'erased 'erased 'erased (TT-Core-weakenNVar 'erased 'erased (List-Prelude-C-43C-43 'erased arg-7 arg-6) 0 'erased))) (else (TT-Core-resolveRef 'erased 'erased arg-7 (List-Prelude-C-43C-43 'erased arg-6 (vector 1 arg-3 (vector 0 ))) arg-1 arg-5 arg-4)))))) +(define TT-Core-case--8456-5867 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (+ 1 arg-9))) +(define TT-Core-case--8269-5658 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 0 arg-6 arg-5 arg-8))) +(define TT-Core-case--8103-5607 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (+ 1 arg-10))) +(define TT-Core-case--8103-5533 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (+ 1 arg-8))) +(define TT-Core-case--7582-5240 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 0 arg-6 arg-5 e-2)))))))) +(define TT-Core-case--7302-4893 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (vector 1 (+ 1 arg-10)))) +(define TT-Core-case--7302-4811 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (vector 1 arg-9))) +(define TT-Core-case--6662-4212 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 0 arg-6 arg-5 arg-8))) +(define TT-Core-case--6558-4159 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (+ 1 arg-7))) +(define TT-Core-case--6454-4071 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (+ 1 arg-7))) +(define TT-Core-case--6388-3987 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (+ 1 arg-6))) +(define TT-Core-case--6110-3755 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (+ 1 arg-6))) +(define TT-Core-case--5746-3471 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) +(define TT-Core-case--5747-3457 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) +(define TT-Core-case--2895-848 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) +(define TT-Core-case--2895-816 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) +(define TT-Core-case--2895-784 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) +(define TT-Core-case--2895-752 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) +(define TT-Core-n--6062-3697-showTot (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) "total")(else (TT-Core-show_Show__Covering arg-2)))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (TT-Core-show_Show__Terminating arg-1))(else (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Covering arg-2) (Strings-Prelude-C-43C-43 "; " (TT-Core-show_Show__Terminating arg-1))))))))))) +(define TT-Core-n--10123-7260-showApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-5 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (TT-Core-nameAt 'erased arg-2 e-5 'erased)) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-5) "]"))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((1) (let ((e-10 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Name-Core-show_Show__Name e-10))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((2) (let ((e-13 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 4))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "?" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-13) (Strings-Prelude-C-43C-43 "_" (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-2 d x)))) e-15)))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))))) ((3) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (let ((e-20 (vector-ref sc0 4))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((0) (let ((e-55 (vector-ref sc1 1))) (let ((e-57 (vector-ref sc1 3))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "\\" (Strings-Prelude-C-43C-43 (TT-Core-showCount e-55) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-57) (Strings-Prelude-C-43C-43 " => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))))) ((1) (let ((e-59 (vector-ref sc1 1))) (let ((e-60 (vector-ref sc1 2))) (let ((e-61 (vector-ref sc1 3))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "let " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-59) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-61) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-60) (Strings-Prelude-C-43C-43 " in " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((2) (let ((e-63 (vector-ref sc1 1))) (let ((e-64 (vector-ref sc1 2))) (let ((e-65 (vector-ref sc1 3))) (let ((sc2 e-64)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "((" (Strings-Prelude-C-43C-43 (TT-Core-showCount e-63) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-65) (Strings-Prelude-C-43C-43 ") -> " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20) ")"))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((0) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "{" (Strings-Prelude-C-43C-43 (TT-Core-showCount e-63) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-65) (Strings-Prelude-C-43C-43 "} -> " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((2) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "{auto " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-63) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-65) (Strings-Prelude-C-43C-43 "} -> " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((3) (let ((e-83 (vector-ref sc2 1))) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "{default " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-83) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-63) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-65) (Strings-Prelude-C-43C-43 "} -> " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((3) (let ((e-67 (vector-ref sc1 1))) (let ((e-68 (vector-ref sc1 2))) (let ((e-69 (vector-ref sc1 3))) (let ((sc2 e-68)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "pat " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-67) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-69) (Strings-Prelude-C-43C-43 " => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((0) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "{pat " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-67) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-69) (Strings-Prelude-C-43C-43 "} => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((2) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "{auto pat " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-67) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-69) (Strings-Prelude-C-43C-43 "} => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((4) (let ((e-71 (vector-ref sc1 1))) (let ((e-72 (vector-ref sc1 2))) (let ((e-73 (vector-ref sc1 3))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "plet " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-71) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-73) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-72) (Strings-Prelude-C-43C-43 " in " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((5) (let ((e-75 (vector-ref sc1 1))) (let ((e-76 (vector-ref sc1 2))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "pty " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-75) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-76) (Strings-Prelude-C-43C-43 " => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((4) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "[can't happen]")(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((5) (let ((e-28 (vector-ref sc0 3))) (let ((e-29 (vector-ref sc0 4))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-28) (Strings-Prelude-C-43C-43 "@" (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-29))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))))) ((6) (let ((e-33 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "%Delayed " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-33)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((7) (let ((e-38 (vector-ref sc0 4))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "%Delay " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-38)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((8) (let ((e-42 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "%Force " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-42)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((9) (let ((e-45 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (TT-Core-show_Show__Constant e-45))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((10) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "[__]")(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((11) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "Type")(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) +(define TT-Core-n--7088-4580-getFA (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((4) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (TT-Core-n--7088-4580-getFA 'erased arg-1 (vector 1 e-3 arg-2) e-2))))(else (vector 0 arg-3 arg-2)))))) +(define TT-Core-n--5204-3010-eqPiInfo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((0) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((2) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((2) 0)(else 1)))) ((3) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (TT-Core-eqTerm 'erased 'erased e-4 e-9)))(else 1)))))(else 1))))) +(define TT-Core-n--5204-3011-eqBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((0) (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (let ((e-26 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-1 e-24) (lambda () (Prelude-C-38C-38 (TT-Core-n--5204-3010-eqPiInfo 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-25) (lambda () (TT-Core-eqTerm 'erased 'erased e-3 e-26)))))))))(else 1))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((1) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (let ((e-30 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-5 e-28) (lambda () (Prelude-C-38C-38 (TT-Core-eqTerm 'erased 'erased e-6 e-29) (lambda () (TT-Core-eqTerm 'erased 'erased e-7 e-30)))))))))(else 1))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((2) (let ((e-32 (vector-ref sc1 1))) (let ((e-33 (vector-ref sc1 2))) (let ((e-34 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-9 e-32) (lambda () (Prelude-C-38C-38 (TT-Core-n--5204-3010-eqPiInfo 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-10 e-33) (lambda () (TT-Core-eqTerm 'erased 'erased e-11 e-34)))))))))(else 1))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((3) (let ((e-36 (vector-ref sc1 1))) (let ((e-37 (vector-ref sc1 2))) (let ((e-38 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-13 e-36) (lambda () (Prelude-C-38C-38 (TT-Core-n--5204-3010-eqPiInfo 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-14 e-37) (lambda () (TT-Core-eqTerm 'erased 'erased e-15 e-38)))))))))(else 1))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((4) (let ((e-40 (vector-ref sc1 1))) (let ((e-41 (vector-ref sc1 2))) (let ((e-42 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-17 e-40) (lambda () (Prelude-C-38C-38 (TT-Core-eqTerm 'erased 'erased e-18 e-41) (lambda () (TT-Core-eqTerm 'erased 'erased e-19 e-42)))))))))(else 1))))))) ((5) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((5) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-21 e-44) (lambda () (TT-Core-eqTerm 'erased 'erased e-22 e-45))))))(else 1))))))(else 1))))) +(define TT-Core-n--9893-7066-addRefsArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) arg-8) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-n--9893-7066-addRefsArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (TT-Core-addRefs 'erased arg-7 arg-6 arg-8 e-2) e-3)))))))) +(define TT-Core-n--9779-6974-addMetaArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) arg-6) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-n--9779-6974-addMetaArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (TT-Core-addMetas 'erased arg-6 e-2) e-3)))))))) (define Totality-TT-Core-rf--isCovering (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (define TT-Core-weaken_Weaken__Var (lambda (arg-0 arg-1 arg-2) (+ 1 arg-2))) (define TT-Core-weaken_Weaken__Term (lambda (arg-0 arg-1 ext-0) (TT-Core-weakenNs_Weaken__Term arg-1 (vector 1 arg-0 (vector 0 )) ext-0))) (define TT-Core-weakenNs_Weaken__Var (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-weaken_Weaken__Var e-2 (List-Prelude-C-43C-43 'erased e-3 arg-0) (TT-Core-weakenNs_Weaken__Var arg-0 e-3 arg-2))))))))) (define TT-Core-weakenNs_Weaken__Term (lambda (arg-0 arg-1 arg-2) (TT-Core-insertNames (vector 0 ) arg-0 arg-1 arg-2))) (define TT-Core-show_Show__Visibility (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "private") ((1) "export") (else "public export"))))) -(define TT-Core-show_Show__Totality (lambda (arg-0) (let ((t (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (let ((c (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (TT-Core-n--6039-3689-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--6062-3697-showTot arg-0 t c))))) (define TT-Core-show_Show__TotalReq (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "total") ((1) "covering") (else "partial"))))) (define TT-Core-show_Show__Terminating (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "not yet checked") ((1) "terminating") (else (let ((e-0 (vector-ref sc0 1))) (TT-Core-show_Show__PartialReason e-0))))))) (define TT-Core-show_Show__PartialReason (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "not strictly positive") ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "possibly not terminating due to call to " (Name-Core-show_Show__Name e-3)))(else (Strings-Prelude-C-43C-43 "possibly not terminating due to calls to " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-0)))))))))(else (Strings-Prelude-C-43C-43 "possibly not terminating due to calls to " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-0)))))))) (else (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "possibly not terminating due to recursive path " (Name-Core-showSep " -> " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1))))))))) (define TT-Core-show_Show__Covering (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "covering") ((1) "not covering all cases") (else (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "not covering due to call to function " (Name-Core-show_Show__Name e-3)))(else (Strings-Prelude-C-43C-43 "not covering due to calls to functions " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1)))))))))(else (Strings-Prelude-C-43C-43 "not covering due to calls to functions " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1)))))))))))) (define TT-Core-show_Show__Constant (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Prelude-show_Show__Int e-0))) ((1) (let ((e-1 (vector-ref sc0 1))) (Prelude-show_Show__Integer e-1))) ((2) (let ((e-2 (vector-ref sc0 1))) (Prelude-show_Show__Int e-2))) ((3) (let ((e-3 (vector-ref sc0 1))) (Prelude-show_Show__Int e-3))) ((4) (let ((e-4 (vector-ref sc0 1))) (Prelude-show_Show__Int e-4))) ((5) (let ((e-5 (vector-ref sc0 1))) (Prelude-show_Show__Integer e-5))) ((6) (let ((e-6 (vector-ref sc0 1))) (Prelude-show_Show__String e-6))) ((7) (let ((e-7 (vector-ref sc0 1))) (Prelude-show_Show__Char e-7))) ((8) (let ((e-8 (vector-ref sc0 1))) (Prelude-show_Show__Double e-8))) ((9) "%MkWorld") ((10) "Int") ((11) "Integer") ((12) "Bits8") ((13) "Bits16") ((14) "Bits32") ((15) "Bits64") ((16) "String") ((17) "Char") ((18) "Double") (else "%World"))))) (define TT-Core-show_Show__C-40VarC-32C-36nsC-41 (lambda (arg-0 arg-1) (Prelude-show_Show__Nat arg-1))) -(define TT-Core-show_Show__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1) (TT-Core-case--10100-7772 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--10123-7780 arg-0 arg-1 (TT-Core-getFnArgs 'erased arg-1)))) (define TT-Core-show_Show__C-40PrimFnC-32C-36arityC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "+" (TT-Core-show_Show__Constant e-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "-" (TT-Core-show_Show__Constant e-1)))) ((2) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "*" (TT-Core-show_Show__Constant e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "/" (TT-Core-show_Show__Constant e-3)))) ((4) (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "%" (TT-Core-show_Show__Constant e-4)))) ((5) (let ((e-5 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "neg " (TT-Core-show_Show__Constant e-5)))) ((6) (let ((e-6 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "shl " (TT-Core-show_Show__Constant e-6)))) ((7) (let ((e-7 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "shr " (TT-Core-show_Show__Constant e-7)))) ((8) (let ((e-8 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "and " (TT-Core-show_Show__Constant e-8)))) ((9) (let ((e-9 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "or " (TT-Core-show_Show__Constant e-9)))) ((10) (let ((e-10 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "xor " (TT-Core-show_Show__Constant e-10)))) ((11) (let ((e-11 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "<" (TT-Core-show_Show__Constant e-11)))) ((12) (let ((e-12 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "<=" (TT-Core-show_Show__Constant e-12)))) ((13) (let ((e-13 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "==" (TT-Core-show_Show__Constant e-13)))) ((14) (let ((e-14 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 ">=" (TT-Core-show_Show__Constant e-14)))) ((15) (let ((e-15 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 ">" (TT-Core-show_Show__Constant e-15)))) ((16) "op_strlen") ((17) "op_strhead") ((18) "op_strtail") ((19) "op_strindex") ((20) "op_strcons") ((21) "++") ((22) "op_strrev") ((23) "op_strsubstr") ((24) "op_doubleExp") ((25) "op_doubleLog") ((26) "op_doubleSin") ((27) "op_doubleCos") ((28) "op_doubleTan") ((29) "op_doubleASin") ((30) "op_doubleACos") ((31) "op_doubleATan") ((32) "op_doubleSqrt") ((33) "op_doubleFloor") ((34) "op_doubleCeiling") ((35) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "cast-" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "-" (TT-Core-show_Show__Constant e-17))))))) ((36) "believe_me") (else "crash"))))) (define TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) "Implicit") ((1) "Explicit") ((2) "AutoImplicit") (else (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "DefImplicit " (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (e-1 e-4)))))))))) (define TT-Core-showPrec_Show__Totality (lambda (arg-0 arg-1) (TT-Core-show_Show__Totality arg-1))) @@ -1369,13 +1375,13 @@ (define TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-2))) (define TT-Core-showPrec_Show__C-40PrimFnC-32C-36arityC-41 (lambda (arg-0 arg-1 arg-2) (TT-Core-show_Show__C-40PrimFnC-32C-36arityC-41 'erased arg-2))) (define TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-3))) -(define TT-Core-min_Ord__Visibility (lambda (arg-0 arg-1) (TT-Core-case--5724-3449 arg-1 arg-0 (TT-Core-C-60_Ord__Visibility arg-0 arg-1)))) -(define TT-Core-max_Ord__Visibility (lambda (arg-0 arg-1) (TT-Core-case--5723-3463 arg-1 arg-0 (TT-Core-C-62_Ord__Visibility arg-0 arg-1)))) +(define TT-Core-min_Ord__Visibility (lambda (arg-0 arg-1) (TT-Core-case--5747-3457 arg-1 arg-0 (TT-Core-C-60_Ord__Visibility arg-0 arg-1)))) +(define TT-Core-max_Ord__Visibility (lambda (arg-0 arg-1) (TT-Core-case--5746-3471 arg-1 arg-0 (TT-Core-C-62_Ord__Visibility arg-0 arg-1)))) (define TT-Core-map_Functor__PiInfo (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (vector 1 )) ((0) (vector 0 )) ((2) (vector 2 )) (else (let ((e-4 (vector-ref sc0 1))) (vector 3 (arg-2 e-4)))))))) (define TT-Core-map_Functor__Binder (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (vector 0 e-1 (TT-Core-map_Functor__PiInfo 'erased 'erased arg-2 e-2) (arg-2 e-3)))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 1 e-5 (arg-2 e-6) (arg-2 e-7)))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (vector 2 e-9 (TT-Core-map_Functor__PiInfo 'erased 'erased arg-2 e-10) (arg-2 e-11)))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (vector 3 e-13 (TT-Core-map_Functor__PiInfo 'erased 'erased arg-2 e-14) (arg-2 e-15)))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (vector 4 e-17 (arg-2 e-18) (arg-2 e-19)))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (vector 5 e-21 (arg-2 e-22))))))))) (define TT-Core-compare_Ord__Visibility (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0) ((2) 0) (else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0) ((1) 1) (else 2)))) (else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 1) ((0) 2) (else 2)))))))) -(define TT-Core-__Impl_Weaken_Var (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (TT-Core-weaken_Weaken__Var n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (TT-Core-weakenNs_Weaken__Var vars ns arg-3271))))))) -(define TT-Core-__Impl_Weaken_Term (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (TT-Core-weaken_Weaken__Term n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (TT-Core-weakenNs_Weaken__Term vars ns arg-3271))))))) +(define TT-Core-__Impl_Weaken_Var (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3275) (TT-Core-weaken_Weaken__Var n vars arg-3275)))) (lambda (vars) (lambda (ns) (lambda (arg-3279) (TT-Core-weakenNs_Weaken__Var vars ns arg-3279))))))) +(define TT-Core-__Impl_Weaken_Term (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3275) (TT-Core-weaken_Weaken__Term n vars arg-3275)))) (lambda (vars) (lambda (ns) (lambda (arg-3279) (TT-Core-weakenNs_Weaken__Term vars ns arg-3279))))))) (define TT-Core-__Impl_Show_Totality (lambda () (vector 0 (lambda (x) (TT-Core-show_Show__Totality x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__Totality d x)))))) (define TT-Core-__Impl_Show_TotalReq (lambda () (vector 0 (lambda (x) (TT-Core-show_Show__TotalReq x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__TotalReq d x)))))) (define TT-Core-__Impl_Show_Covering (lambda () (vector 0 (lambda (x) (TT-Core-show_Show__Covering x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__Covering d x)))))) @@ -1384,20 +1390,20 @@ (define TT-Core-__Impl_Show_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))))) (define TT-Core-__Impl_Show_C-40PrimFnC-32C-36arityC-41 (lambda (arg-0) (vector 0 (lambda (x) (TT-Core-show_Show__C-40PrimFnC-32C-36arityC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40PrimFnC-32C-36arityC-41 'erased d x)))))) (define TT-Core-__Impl_Show_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (x) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased arg-1 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased arg-1 d x)))))) -(define TT-Core-__Impl_Ord_Visibility (lambda () (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__Visibility arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__Visibility arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (TT-Core-compare_Ord__Visibility arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (TT-Core-C-60_Ord__Visibility arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (TT-Core-C-62_Ord__Visibility arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (TT-Core-C-60C-61_Ord__Visibility arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (TT-Core-C-62C-61_Ord__Visibility arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (TT-Core-max_Ord__Visibility arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (TT-Core-min_Ord__Visibility arg-787 arg-788)))))) +(define TT-Core-__Impl_Ord_Visibility (lambda () (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (TT-Core-C-61C-61_Eq__Visibility arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TT-Core-C-47C-61_Eq__Visibility arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (TT-Core-compare_Ord__Visibility arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (TT-Core-C-60_Ord__Visibility arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (TT-Core-C-62_Ord__Visibility arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (TT-Core-C-60C-61_Ord__Visibility arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (TT-Core-C-62C-61_Ord__Visibility arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (TT-Core-max_Ord__Visibility arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (TT-Core-min_Ord__Visibility arg-795 arg-796)))))) (define TT-Core-__Impl_Functor_Binder (lambda (ext-0 ext-1 ext-2 ext-3) (TT-Core-map_Functor__Binder 'erased 'erased ext-2 ext-3))) -(define TT-Core-__Impl_Eq_Visibility (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__Visibility arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__Visibility arg-430 arg-431)))))) -(define TT-Core-__Impl_Eq_Constant (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__Constant arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__Constant arg-430 arg-431)))))) -(define TT-Core-__Impl_Eq_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-430 arg-431)))))) -(define TT-Core-__Impl_Eq_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-430 arg-431)))))) -(define TT-Core-__Impl_Eq_C-40BinderC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__C-40BinderC-32C-36aC-41 'erased arg-1 arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__C-40BinderC-32C-36aC-41 'erased arg-1 arg-430 arg-431)))))) +(define TT-Core-__Impl_Eq_Visibility (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (TT-Core-C-61C-61_Eq__Visibility arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TT-Core-C-47C-61_Eq__Visibility arg-438 arg-439)))))) +(define TT-Core-__Impl_Eq_Constant (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (TT-Core-C-61C-61_Eq__Constant arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TT-Core-C-47C-61_Eq__Constant arg-438 arg-439)))))) +(define TT-Core-__Impl_Eq_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-436) (lambda (arg-437) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-438 arg-439)))))) +(define TT-Core-__Impl_Eq_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-436) (lambda (arg-437) (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TT-Core-C-47C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-438 arg-439)))))) +(define TT-Core-__Impl_Eq_C-40BinderC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-436) (lambda (arg-437) (TT-Core-C-61C-61_Eq__C-40BinderC-32C-36aC-41 'erased arg-1 arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TT-Core-C-47C-61_Eq__C-40BinderC-32C-36aC-41 'erased arg-1 arg-438 arg-439)))))) (define TT-Core-C-62_Ord__Visibility (lambda (arg-0 arg-1) (Prelude-C-61C-61_Eq__Ordering (TT-Core-compare_Ord__Visibility arg-0 arg-1) 2))) (define TT-Core-C-62C-61_Ord__Visibility (lambda (arg-0 arg-1) (Prelude-C-47C-61_Eq__Ordering (TT-Core-compare_Ord__Visibility arg-0 arg-1) 0))) (define TT-Core-C-61C-61_Eq__Visibility (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0)(else 1))))(else 1))))) (define TT-Core-C-61C-61_Eq__TotalReq (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0)(else 1))))(else 1))))) (define TT-Core-C-61C-61_Eq__LazyReason (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0)(else 1))))(else 1))))) (define TT-Core-C-61C-61_Eq__Constant (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-9 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__Int e-0 e-9)))(else 1))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-10 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__Integer e-1 e-10)))(else 1))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-11 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__Int e-2 e-11)))(else 1))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-12 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__Int e-3 e-12)))(else 1))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-13 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__Int e-4 e-13)))(else 1))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-14 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__Integer e-5 e-14)))(else 1))))) ((6) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-15 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__String e-6 e-15)))(else 1))))) ((7) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-16 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__Char e-7 e-16)))(else 1))))) ((8) (let ((e-8 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-17 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__Double e-8 e-17)))(else 1))))) ((9) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) 0)(else 1)))) ((10) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((10) 0)(else 1)))) ((11) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) 0)(else 1)))) ((12) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) 0)(else 1)))) ((13) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((13) 0)(else 1)))) ((14) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((14) 0)(else 1)))) ((15) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((15) 0)(else 1)))) ((16) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((16) 0)(else 1)))) ((17) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((17) 0)(else 1)))) ((18) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((18) 0)(else 1)))) ((19) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((19) 0)(else 1))))(else 1))))) -(define TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-54 (vector-ref sc1 3))) (Prelude-C-61C-61_Eq__Nat e-4 e-54)))(else 1))))) ((1) (let ((e-9 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-59 (vector-ref sc1 3))) (Name-Core-C-61C-61_Eq__Name e-9 e-59)))(else 1))))) ((2) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((2) (let ((e-63 (vector-ref sc1 3))) (let ((e-64 (vector-ref sc1 4))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-13 e-63) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-430 arg-431)))) e-14 e-64))))))(else 1)))))) ((3) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((3) (let ((e-68 (vector-ref sc1 3))) (let ((e-69 (vector-ref sc1 4))) (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40BinderC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-430 arg-431)))) e-18 e-68) (lambda () (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-19 (Builtin-believe_me 'erased 'erased e-69)))))))(else 1)))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((4) (let ((e-72 (vector-ref sc1 2))) (let ((e-73 (vector-ref sc1 3))) (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-22 e-72) (lambda () (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-23 e-73))))))(else 1)))))) ((5) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((5) (let ((e-77 (vector-ref sc1 3))) (let ((e-78 (vector-ref sc1 4))) (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-27 e-77) (lambda () (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-28 e-78))))))(else 1)))))) ((6) (let ((e-32 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((6) (let ((e-82 (vector-ref sc1 3))) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-32 e-82)))(else 1))))) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((7) (let ((e-86 (vector-ref sc1 3))) (let ((e-87 (vector-ref sc1 4))) (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-36 e-86) (lambda () (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-37 e-87))))))(else 1)))))) ((8) (let ((e-41 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((8) (let ((e-91 (vector-ref sc1 3))) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-41 e-91)))(else 1))))) ((9) (let ((e-44 (vector-ref sc0 2))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-94 (vector-ref sc1 2))) (TT-Core-C-61C-61_Eq__Constant e-44 e-94)))(else 1))))) ((10) (let ((e-47 (vector-ref sc0 2))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) (let ((e-97 (vector-ref sc1 2))) (Prelude-C-61C-61_Eq__Bool e-47 e-97)))(else 1))))) ((11) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((11) 0)(else 1))))(else 1))))) +(define TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-54 (vector-ref sc1 3))) (Prelude-C-61C-61_Eq__Nat e-4 e-54)))(else 1))))) ((1) (let ((e-9 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-59 (vector-ref sc1 3))) (Name-Core-C-61C-61_Eq__Name e-9 e-59)))(else 1))))) ((2) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((2) (let ((e-63 (vector-ref sc1 3))) (let ((e-64 (vector-ref sc1 4))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-13 e-63) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-438 arg-439)))) e-14 e-64))))))(else 1)))))) ((3) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((3) (let ((e-68 (vector-ref sc1 3))) (let ((e-69 (vector-ref sc1 4))) (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40BinderC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-438 arg-439)))) e-18 e-68) (lambda () (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-19 (Builtin-believe_me 'erased 'erased e-69)))))))(else 1)))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((4) (let ((e-72 (vector-ref sc1 2))) (let ((e-73 (vector-ref sc1 3))) (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-22 e-72) (lambda () (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-23 e-73))))))(else 1)))))) ((5) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((5) (let ((e-77 (vector-ref sc1 3))) (let ((e-78 (vector-ref sc1 4))) (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-27 e-77) (lambda () (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-28 e-78))))))(else 1)))))) ((6) (let ((e-32 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((6) (let ((e-82 (vector-ref sc1 3))) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-32 e-82)))(else 1))))) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((7) (let ((e-86 (vector-ref sc1 3))) (let ((e-87 (vector-ref sc1 4))) (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-36 e-86) (lambda () (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-37 e-87))))))(else 1)))))) ((8) (let ((e-41 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((8) (let ((e-91 (vector-ref sc1 3))) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-41 e-91)))(else 1))))) ((9) (let ((e-44 (vector-ref sc0 2))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-94 (vector-ref sc1 2))) (TT-Core-C-61C-61_Eq__Constant e-44 e-94)))(else 1))))) ((10) (let ((e-47 (vector-ref sc0 2))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) (let ((e-97 (vector-ref sc1 2))) (Prelude-C-61C-61_Eq__Bool e-47 e-97)))(else 1))))) ((11) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((11) 0)(else 1))))(else 1))))) (define TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) 0)(else 1)))) ((3) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-4) e-9)))))(else 1)))))(else 1))))) (define TT-Core-C-61C-61_Eq__C-40BinderC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (let ((e-26 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-1 e-24) (lambda () (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased arg-1 e-2 e-25) (lambda () (let ((sc2 arg-1)) (let ((e-5 (vector-ref sc2 1))) ((e-5 e-3) e-26)))))))))))(else 1))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (let ((e-30 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-5 e-28) (lambda () (Prelude-C-38C-38 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-6) e-29))) (lambda () (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-7) e-30)))))))))))(else 1))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-32 (vector-ref sc1 1))) (let ((e-33 (vector-ref sc1 2))) (let ((e-34 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-9 e-32) (lambda () (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased arg-1 e-10 e-33) (lambda () (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-11) e-34)))))))))))(else 1))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-36 (vector-ref sc1 1))) (let ((e-37 (vector-ref sc1 2))) (let ((e-38 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-13 e-36) (lambda () (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased arg-1 e-14 e-37) (lambda () (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-15) e-38)))))))))))(else 1))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((4) (let ((e-40 (vector-ref sc1 1))) (let ((e-41 (vector-ref sc1 2))) (let ((e-42 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-17 e-40) (lambda () (Prelude-C-38C-38 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-18) e-41))) (lambda () (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-19) e-42)))))))))))(else 1))))))) ((5) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((5) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-21 e-44) (lambda () (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-22) e-45))))))))(else 1))))))(else 1))))) (define TT-Core-C-60_Ord__Visibility (lambda (arg-0 arg-1) (Prelude-C-61C-61_Eq__Ordering (TT-Core-compare_Ord__Visibility arg-0 arg-1) 0))) @@ -1407,27 +1413,27 @@ (define TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (Prelude-not (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-1 arg-2)))) (define TT-Core-C-47C-61_Eq__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-not (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-2 arg-3)))) (define TT-Core-C-47C-61_Eq__C-40BinderC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-not (TT-Core-C-61C-61_Eq__C-40BinderC-32C-36aC-41 'erased arg-1 arg-2 arg-3)))) -(define TT-Core-weakenVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-case--6365-3979 '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--6388-3987 'erased 'erased arg-3 e-2 e-3 'erased (TT-Core-weakenVar 'erased 'erased e-3 arg-3 'erased))))))))) (define TT-Core-weakenNs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-3) (lambda (arg-4) (((e-2 arg-1) arg-3) arg-4))))))) -(define TT-Core-weakenNVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-case--6087-3747 '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--6110-3755 'erased 'erased arg-3 e-2 e-3 'erased (TT-Core-weakenNVar 'erased 'erased e-3 arg-3 'erased))))))))) (define TT-Core-weaken (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-4) (((e-1 arg-1) arg-2) arg-4)))))) (define TT-Core-varIdx (lambda (arg-0 arg-1) arg-1)) -(define TT-Core-varEmbedSub (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-4) ((1) (let ((e-4 (vector-ref sc0 1))) (TT-Core-case--8080-5525 'erased 'erased arg-4 'erased 'erased e-4 'erased 'erased (TT-Core-varEmbedSub 'erased 'erased 'erased e-4 arg-4 'erased)))) (else (let ((e-8 (vector-ref sc0 1))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) 0)(else (let ((e-9 (- arg-4 1))) (let ((idx (+ 1 e-9))) (TT-Core-case--8080-5599 'erased 'erased 'erased e-9 'erased e-8 'erased idx 'erased 'erased (TT-Core-varEmbedSub 'erased 'erased 'erased e-8 e-9 'erased))))))))))))) +(define TT-Core-varEmbedSub (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-4) ((1) (let ((e-4 (vector-ref sc0 1))) (TT-Core-case--8103-5533 'erased 'erased arg-4 'erased 'erased e-4 'erased 'erased (TT-Core-varEmbedSub 'erased 'erased 'erased e-4 arg-4 'erased)))) (else (let ((e-8 (vector-ref sc0 1))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) 0)(else (let ((e-9 (- arg-4 1))) (let ((idx (+ 1 e-9))) (TT-Core-case--8103-5607 'erased 'erased 'erased e-9 'erased e-8 'erased idx 'erased 'erased (TT-Core-varEmbedSub 'erased 'erased 'erased e-8 e-9 'erased))))))))))))) (define TT-Core-unchecked (lambda () (vector 0 (vector 0 ) (vector 0 )))) (define SubstEnv-TT-Core-substs (lambda (arg-0 arg-1 arg-2 arg-3) (SubstEnv-TT-Core-substEnv arg-0 arg-1 (vector 0 ) arg-2 arg-3))) -(define TT-Core-substName (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (TT-Core-case--9627-6854 arg-0 e-3 e-2 e-1 arg-2 arg-1 (Name-Core-nameEq arg-1 e-3)))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 2 e-5 e-6 e-7 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-substName arg-0 arg-1 arg-2 eta-0)) e-8))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (vector 3 e-10 e-11 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-substName arg-0 arg-1 arg-2 eta-0)) e-12) (TT-Core-substName (vector 1 e-11 arg-0) arg-1 (TT-Core-weaken_Weaken__Term e-11 arg-0 arg-2) e-13))))))) ((4) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (vector 4 e-15 (TT-Core-substName arg-0 arg-1 arg-2 e-16) (TT-Core-substName arg-0 arg-1 arg-2 e-17)))))) ((5) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (vector 5 e-19 e-20 e-21 (TT-Core-substName arg-0 arg-1 arg-2 e-22))))))) ((6) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (vector 6 e-24 e-25 (TT-Core-substName arg-0 arg-1 arg-2 e-26)))))) ((7) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (vector 7 e-28 e-29 (TT-Core-substName arg-0 arg-1 arg-2 e-30) (TT-Core-substName arg-0 arg-1 arg-2 e-31))))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (vector 8 e-33 e-34 (TT-Core-substName arg-0 arg-1 arg-2 e-35))))))(else arg-3))))) +(define TT-Core-substName (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (TT-Core-case--9650-6862 arg-0 e-3 e-2 e-1 arg-2 arg-1 (Name-Core-nameEq arg-1 e-3)))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 2 e-5 e-6 e-7 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-substName arg-0 arg-1 arg-2 eta-0)) e-8))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (vector 3 e-10 e-11 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-substName arg-0 arg-1 arg-2 eta-0)) e-12) (TT-Core-substName (vector 1 e-11 arg-0) arg-1 (TT-Core-weaken_Weaken__Term e-11 arg-0 arg-2) e-13))))))) ((4) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (vector 4 e-15 (TT-Core-substName arg-0 arg-1 arg-2 e-16) (TT-Core-substName arg-0 arg-1 arg-2 e-17)))))) ((5) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (vector 5 e-19 e-20 e-21 (TT-Core-substName arg-0 arg-1 arg-2 e-22))))))) ((6) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (vector 6 e-24 e-25 (TT-Core-substName arg-0 arg-1 arg-2 e-26)))))) ((7) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (vector 7 e-28 e-29 (TT-Core-substName arg-0 arg-1 arg-2 e-30) (TT-Core-substName arg-0 arg-1 arg-2 e-31))))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (vector 8 e-33 e-34 (TT-Core-substName arg-0 arg-1 arg-2 e-35))))))(else arg-3))))) (define SubstEnv-TT-Core-substEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (SubstEnv-TT-Core-find 'erased arg-0 arg-1 arg-2 e-4 e-2 e-3 'erased arg-3))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (vector 1 e-7 e-8 e-9))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (vector 2 e-11 e-12 e-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (SubstEnv-TT-Core-substEnv arg-0 arg-1 arg-2 arg-3 eta-0)) e-14))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (vector 3 e-16 e-17 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (SubstEnv-TT-Core-substEnv arg-0 arg-1 arg-2 arg-3 eta-0)) e-18) (SubstEnv-TT-Core-substEnv arg-0 arg-1 (vector 1 e-17 arg-2) arg-3 e-19))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (vector 4 e-21 (SubstEnv-TT-Core-substEnv arg-0 arg-1 arg-2 arg-3 e-22) (SubstEnv-TT-Core-substEnv arg-0 arg-1 arg-2 arg-3 e-23)))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (vector 5 e-25 e-26 (SubstEnv-TT-Core-substEnv arg-0 arg-1 arg-2 arg-3 e-27) (SubstEnv-TT-Core-substEnv arg-0 arg-1 arg-2 arg-3 e-28))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (vector 6 e-30 e-31 (SubstEnv-TT-Core-substEnv arg-0 arg-1 arg-2 arg-3 e-32)))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (vector 7 e-34 e-35 (SubstEnv-TT-Core-substEnv arg-0 arg-1 arg-2 arg-3 e-36) (SubstEnv-TT-Core-substEnv arg-0 arg-1 arg-2 arg-3 e-37))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (vector 8 e-39 e-40 (SubstEnv-TT-Core-substEnv arg-0 arg-1 arg-2 arg-3 e-41)))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (vector 9 e-43 e-44)))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (vector 10 e-46 e-47)))) (else (let ((e-49 (vector-ref sc0 1))) (vector 11 e-49))))))) (define SubstEnv-TT-Core-subst (lambda (arg-0 arg-1 arg-2 arg-3) (SubstEnv-TT-Core-substEnv (vector 1 arg-1 (vector 0 )) arg-0 (vector 0 ) (vector 1 arg-2 (vector 0 )) arg-3))) (define TT-Core-subExtend (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-3 (vector-ref sc0 2))) (vector 2 (TT-Core-subExtend 'erased 'erased e-3 arg-3)))))))) (define TT-Core-subElem (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 1 arg-3))(else (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (vector 0 )) (else (vector 1 0)))))(else (let ((e-0 (- arg-3 1))) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-12 (vector-ref sc0 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-subElem 'erased 'erased 'erased e-0 'erased e-12) (lambda (_-0) (vector 1 _-0))))) (else (let ((e-16 (vector-ref sc0 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-subElem 'erased 'erased 'erased e-0 'erased e-16) (lambda (_-0) (vector 1 (+ 1 _-0))))))))))))))))) -(define TT-Core-shrinkTerm (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (TT-Core-case--7559-5232 'erased 'erased 'erased e-4 'erased e-3 e-2 arg-3 (TT-Core-subElem 'erased 'erased 'erased e-4 'erased arg-3)))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (vector 1 (vector 1 e-7 e-8 e-9)))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Prelude-pure_Applicative__Maybe 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3503 arg-3505)))))) (lambda (x) (TT-Core-shrinkTerm 'erased 'erased x arg-3)) e-14) (lambda (xsC-39) (vector 1 (vector 2 e-11 e-12 e-13 xsC-39))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkBinder 'erased 'erased e-18 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-19 (vector 2 arg-3)) (lambda (bind-1) (vector 1 (vector 3 e-16 e-17 bind-0 bind-1))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-22 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-23 arg-3) (lambda (bind-1) (vector 1 (vector 4 e-21 bind-0 bind-1)))))))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-27 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-28 arg-3) (lambda (bind-1) (vector 1 (vector 5 e-25 e-26 bind-0 bind-1))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-32 arg-3) (lambda (bind-0) (vector 1 (vector 6 e-30 e-31 bind-0)))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-36 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-37 arg-3) (lambda (bind-1) (vector 1 (vector 7 e-34 e-35 bind-0 bind-1))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-41 arg-3) (lambda (bind-0) (vector 1 (vector 8 e-39 e-40 bind-0)))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (vector 1 (vector 9 e-43 e-44))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (vector 1 (vector 10 e-46 e-47))))) (else (let ((e-49 (vector-ref sc0 1))) (vector 1 (vector 11 e-49)))))))) +(define TT-Core-shrinkTerm (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (TT-Core-case--7582-5240 'erased 'erased 'erased e-4 'erased e-3 e-2 arg-3 (TT-Core-subElem 'erased 'erased 'erased e-4 'erased arg-3)))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (vector 1 (vector 1 e-7 e-8 e-9)))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Prelude-pure_Applicative__Maybe 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3511 arg-3513)))))) (lambda (x) (TT-Core-shrinkTerm 'erased 'erased x arg-3)) e-14) (lambda (xsC-39) (vector 1 (vector 2 e-11 e-12 e-13 xsC-39))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkBinder 'erased 'erased e-18 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-19 (vector 2 arg-3)) (lambda (bind-1) (vector 1 (vector 3 e-16 e-17 bind-0 bind-1))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-22 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-23 arg-3) (lambda (bind-1) (vector 1 (vector 4 e-21 bind-0 bind-1)))))))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-27 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-28 arg-3) (lambda (bind-1) (vector 1 (vector 5 e-25 e-26 bind-0 bind-1))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-32 arg-3) (lambda (bind-0) (vector 1 (vector 6 e-30 e-31 bind-0)))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-36 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-37 arg-3) (lambda (bind-1) (vector 1 (vector 7 e-34 e-35 bind-0 bind-1))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-41 arg-3) (lambda (bind-0) (vector 1 (vector 8 e-39 e-40 bind-0)))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (vector 1 (vector 9 e-43 e-44))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (vector 1 (vector 10 e-46 e-47))))) (else (let ((e-49 (vector-ref sc0 1))) (vector 1 (vector 11 e-49)))))))) (define TT-Core-shrinkPi (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (Prelude-pure_Applicative__Maybe 'erased (vector 1 ))) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 ))) ((2) (Prelude-pure_Applicative__Maybe 'erased (vector 2 ))) (else (let ((e-4 (vector-ref sc0 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-4 arg-3) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 3 bind-0)))))))))) (define TT-Core-shrinkBinder (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkPi 'erased 'erased e-2 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-3 arg-3) (lambda (bind-1) (vector 1 (vector 0 e-1 bind-0 bind-1)))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-6 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-7 arg-3) (lambda (bind-1) (vector 1 (vector 1 e-5 bind-0 bind-1)))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkPi 'erased 'erased e-10 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-11 arg-3) (lambda (bind-1) (vector 1 (vector 2 e-9 bind-0 bind-1)))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkPi 'erased 'erased e-14 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-15 arg-3) (lambda (bind-1) (vector 1 (vector 3 e-13 bind-0 bind-1)))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-18 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-19 arg-3) (lambda (bind-1) (vector 1 (vector 4 e-17 bind-0 bind-1)))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-22 arg-3) (lambda (bind-0) (vector 1 (vector 5 e-21 bind-0))))))))))) -(define TT-Core-showCount (lambda (ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) "0 " "1 " (lambda (eta-0) "") ext-0))) +(define TT-Core-showCount (lambda (ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) "0 " "1 " (lambda (eta-0) (Basics-Prelude-const 'erased 'erased "" eta-0)) ext-0))) (define TT-Core-setMultiplicity (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (vector 0 arg-2 e-2 e-3)))) ((1) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 1 arg-2 e-6 e-7)))) ((2) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (vector 2 arg-2 e-10 e-11)))) ((3) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (vector 3 arg-2 e-14 e-15)))) ((4) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (vector 4 arg-2 e-18 e-19)))) (else (let ((e-22 (vector-ref sc0 2))) (vector 5 arg-2 e-22))))))) (define TT-Core-sameVar (lambda (arg-0 arg-1 arg-2) (Prelude-C-61C-61_Eq__Nat arg-1 arg-2))) -(define TT-Core-resolveRef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (TT-Core-case--8547-5916 'erased e-3 e-2 e-1 arg-6 arg-5 arg-3 arg-2 'erased 'erased (Name-Core-C-61C-61_Eq__Name arg-6 e-2)))))))))) -(define TT-Core-resolveNames (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (TT-Core-case--9120-6408 e-3 e-1 arg-0 (TT-Core-isVar e-3 arg-0)))(else arg-1))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 2 e-5 e-6 e-7 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-resolveNames arg-0 eta-0)) e-8))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (vector 3 e-10 e-11 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-resolveNames arg-0 eta-0)) e-12) (TT-Core-resolveNames (vector 1 e-11 arg-0) e-13))))))) ((4) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (vector 4 e-15 (TT-Core-resolveNames arg-0 e-16) (TT-Core-resolveNames arg-0 e-17)))))) ((5) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (vector 5 e-19 e-20 (TT-Core-resolveNames arg-0 e-21) (TT-Core-resolveNames arg-0 e-22))))))) ((6) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (vector 6 e-24 e-25 (TT-Core-resolveNames arg-0 e-26)))))) ((7) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (vector 7 e-28 e-29 (TT-Core-resolveNames arg-0 e-30) (TT-Core-resolveNames arg-0 e-31))))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (vector 8 e-33 e-34 (TT-Core-resolveNames arg-0 e-35))))))(else arg-1))))) +(define TT-Core-resolveRef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (TT-Core-case--8570-5924 'erased e-3 e-2 e-1 arg-6 arg-5 arg-3 arg-2 'erased 'erased (Name-Core-C-61C-61_Eq__Name arg-6 e-2)))))))))) +(define TT-Core-resolveNames (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (TT-Core-case--9143-6416 e-3 e-1 arg-0 (TT-Core-isVar e-3 arg-0)))(else arg-1))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 2 e-5 e-6 e-7 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-resolveNames arg-0 eta-0)) e-8))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (vector 3 e-10 e-11 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-resolveNames arg-0 eta-0)) e-12) (TT-Core-resolveNames (vector 1 e-11 arg-0) e-13))))))) ((4) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (vector 4 e-15 (TT-Core-resolveNames arg-0 e-16) (TT-Core-resolveNames arg-0 e-17)))))) ((5) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (vector 5 e-19 e-20 (TT-Core-resolveNames arg-0 e-21) (TT-Core-resolveNames arg-0 e-22))))))) ((6) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (vector 6 e-24 e-25 (TT-Core-resolveNames arg-0 e-26)))))) ((7) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (vector 7 e-28 e-29 (TT-Core-resolveNames arg-0 e-30) (TT-Core-resolveNames arg-0 e-31))))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (vector 8 e-33 e-34 (TT-Core-resolveNames arg-0 e-35))))))(else arg-1))))) (define TT-Core-renameVars (lambda (arg-0 arg-1 arg-2 arg-3) (Builtin-believe_me 'erased 'erased arg-3))) (define TT-Core-renameTop (lambda (arg-0 arg-1 arg-2 arg-3) (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) arg-3))) (define TT-Core-refsToLocals (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) arg-3)(else (TT-Core-mkLocals 'erased (vector 0 ) arg-1 arg-2 arg-3)))))(else (TT-Core-mkLocals 'erased (vector 0 ) arg-1 arg-2 arg-3)))))) @@ -1436,50 +1442,50 @@ (define TT-Core-notCovering (lambda () (vector 0 (vector 0 ) (vector 1 (vector 0 ))))) (define TT-Core-nameAt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) e-1)(else (let ((e-3 (- arg-2 1))) (TT-Core-nameAt 'erased e-2 e-3 'erased)))))))))) (define TT-Core-multiplicity (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) e-1)) ((1) (let ((e-5 (vector-ref sc0 1))) e-5)) ((2) (let ((e-9 (vector-ref sc0 1))) e-9)) ((3) (let ((e-13 (vector-ref sc0 1))) e-13)) ((4) (let ((e-17 (vector-ref sc0 1))) e-17)) (else (let ((e-21 (vector-ref sc0 1))) e-21)))))) -(define TT-Core-mkLocals (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (TT-Core-case--8728-6083 'erased arg-1 arg-2 'erased e-4 'erased e-3 e-2 arg-3 (TT-Core-addVars 'erased 'erased arg-1 arg-2 e-4 arg-3 'erased)))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((0) (Prelude-maybe 'erased 'erased (lambda () (vector 1 e-7 (vector 0 ) e-9)) (lambda () (lambda (eta-0) eta-0)) (TT-Core-resolveRef 'erased 'erased arg-1 (vector 0 ) arg-3 e-7 e-9)))(else (vector 1 e-7 e-8 e-9)))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (Prelude-maybe 'erased 'erased (lambda () (vector 2 e-11 e-12 e-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 eta-0)) e-14))) (lambda () (lambda (eta-0) eta-0)) (TT-Core-resolveRef 'erased 'erased arg-1 (vector 0 ) arg-3 e-11 e-12))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (vector 3 e-16 e-17 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 eta-0)) e-18) (TT-Core-mkLocals 'erased (vector 1 e-17 arg-1) arg-2 arg-3 e-19))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (vector 4 e-21 (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 e-22) (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 e-23)))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (vector 5 e-25 e-26 (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 e-27) (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 e-28))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (vector 6 e-30 e-31 (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 e-32)))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (vector 7 e-34 e-35 (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 e-36) (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 e-37))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (vector 8 e-39 e-40 (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 e-41)))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (vector 9 e-43 e-44)))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (vector 10 e-46 e-47)))) (else (let ((e-49 (vector-ref sc0 1))) (vector 11 e-49))))))) -(define TT-Core-linFnType (lambda (arg-0 arg-1 arg-2) (vector 3 (FC-Core-emptyFC) (vector 2 "_" 0) (vector 2 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) arg-1) (TT-Core-weaken_Weaken__Term (vector 2 "_" 0) arg-0 arg-2)))) -(define TT-Core-isVar (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-case--9043-6342 e-2 e-3 arg-0 (Name-Core-nameEq arg-0 e-2))))))))) +(define TT-Core-mkLocals (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (TT-Core-case--8751-6091 'erased arg-1 arg-2 'erased e-4 'erased e-3 e-2 arg-3 (TT-Core-addVars 'erased 'erased arg-1 arg-2 e-4 arg-3 'erased)))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((0) (Prelude-maybe 'erased 'erased (lambda () (vector 1 e-7 (vector 0 ) e-9)) (lambda () (lambda (eta-0) (Basics-Prelude-id 'erased eta-0))) (TT-Core-resolveRef 'erased 'erased arg-1 (vector 0 ) arg-3 e-7 e-9)))(else (vector 1 e-7 e-8 e-9)))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (Prelude-maybe 'erased 'erased (lambda () (vector 2 e-11 e-12 e-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 eta-0)) e-14))) (lambda () (lambda (eta-0) (Basics-Prelude-id 'erased eta-0))) (TT-Core-resolveRef 'erased 'erased arg-1 (vector 0 ) arg-3 e-11 e-12))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (vector 3 e-16 e-17 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 eta-0)) e-18) (TT-Core-mkLocals 'erased (vector 1 e-17 arg-1) arg-2 arg-3 e-19))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (vector 4 e-21 (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 e-22) (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 e-23)))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (vector 5 e-25 e-26 (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 e-27) (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 e-28))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (vector 6 e-30 e-31 (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 e-32)))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (vector 7 e-34 e-35 (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 e-36) (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 e-37))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (vector 8 e-39 e-40 (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 e-41)))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (vector 9 e-43 e-44)))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (vector 10 e-46 e-47)))) (else (let ((e-49 (vector-ref sc0 1))) (vector 11 e-49))))))) +(define TT-Core-linFnType (lambda (arg-0 arg-1 arg-2) (vector 3 (FC-Core-emptyFC) (vector 2 "_" 0) (vector 2 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) arg-1) (TT-Core-weaken_Weaken__Term (vector 2 "_" 0) arg-0 arg-2)))) +(define TT-Core-isVar (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-case--9066-6350 e-2 e-3 arg-0 (Name-Core-nameEq arg-0 e-2))))))))) (define TT-Core-isTotal (lambda () (vector 0 (vector 0 ) (vector 0 )))) (define Totality-TT-Core-isTerminating (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (define Totality-TT-Core-isCovering (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) -(define TT-Core-insertVarNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (TT-Core-weakenVar 'erased 'erased arg-3 arg-4 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-4 1))) (TT-Core-case--6431-4063 'erased 'erased e-2 e-3 e-4 'erased arg-3 (TT-Core-insertVarNames 'erased 'erased e-3 arg-3 e-4 'erased))))))))))))) -(define TT-Core-insertNames (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (TT-Core-case--6639-4204 arg-0 arg-1 'erased e-4 'erased e-3 e-2 arg-2 (TT-Core-insertNVarNames 'erased 'erased arg-0 arg-2 e-4 'erased)))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (vector 1 e-7 e-8 e-9))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (vector 2 e-11 e-12 e-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-14))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (vector 3 e-16 e-17 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-18) (TT-Core-insertNames (vector 1 e-17 arg-0) arg-1 arg-2 e-19))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (vector 4 e-21 (TT-Core-insertNames arg-0 arg-1 arg-2 e-22) (TT-Core-insertNames arg-0 arg-1 arg-2 e-23)))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (vector 5 e-25 e-26 (TT-Core-insertNames arg-0 arg-1 arg-2 e-27) (TT-Core-insertNames arg-0 arg-1 arg-2 e-28))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (vector 6 e-30 e-31 (TT-Core-insertNames arg-0 arg-1 arg-2 e-32)))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (vector 7 e-34 e-35 (TT-Core-insertNames arg-0 arg-1 arg-2 e-36) (TT-Core-insertNames arg-0 arg-1 arg-2 e-37))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (vector 8 e-39 e-40 (TT-Core-insertNames arg-0 arg-1 arg-2 e-41)))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (vector 9 e-43 e-44)))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (vector 10 e-46 e-47)))) (else (let ((e-49 (vector-ref sc0 1))) (vector 11 e-49))))))) -(define TT-Core-insertNVarNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (TT-Core-weakenNVar 'erased 'erased arg-3 arg-4 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-4 1))) (TT-Core-case--6535-4151 'erased 'erased e-2 e-3 e-4 'erased arg-3 (TT-Core-insertNVarNames 'erased 'erased e-3 arg-3 e-4 'erased))))))))))))) +(define TT-Core-insertVarNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (TT-Core-weakenVar 'erased 'erased arg-3 arg-4 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-4 1))) (TT-Core-case--6454-4071 'erased 'erased e-2 e-3 e-4 'erased arg-3 (TT-Core-insertVarNames 'erased 'erased e-3 arg-3 e-4 'erased))))))))))))) +(define TT-Core-insertNames (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (TT-Core-case--6662-4212 arg-0 arg-1 'erased e-4 'erased e-3 e-2 arg-2 (TT-Core-insertNVarNames 'erased 'erased arg-0 arg-2 e-4 'erased)))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (vector 1 e-7 e-8 e-9))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (vector 2 e-11 e-12 e-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-14))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (vector 3 e-16 e-17 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-18) (TT-Core-insertNames (vector 1 e-17 arg-0) arg-1 arg-2 e-19))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (vector 4 e-21 (TT-Core-insertNames arg-0 arg-1 arg-2 e-22) (TT-Core-insertNames arg-0 arg-1 arg-2 e-23)))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (vector 5 e-25 e-26 (TT-Core-insertNames arg-0 arg-1 arg-2 e-27) (TT-Core-insertNames arg-0 arg-1 arg-2 e-28))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (vector 6 e-30 e-31 (TT-Core-insertNames arg-0 arg-1 arg-2 e-32)))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (vector 7 e-34 e-35 (TT-Core-insertNames arg-0 arg-1 arg-2 e-36) (TT-Core-insertNames arg-0 arg-1 arg-2 e-37))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (vector 8 e-39 e-40 (TT-Core-insertNames arg-0 arg-1 arg-2 e-41)))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (vector 9 e-43 e-44)))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (vector 10 e-46 e-47)))) (else (let ((e-49 (vector-ref sc0 1))) (vector 11 e-49))))))) +(define TT-Core-insertNVarNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (TT-Core-weakenNVar 'erased 'erased arg-3 arg-4 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-4 1))) (TT-Core-case--6558-4159 'erased 'erased e-2 e-3 e-4 'erased arg-3 (TT-Core-insertNVarNames 'erased 'erased e-3 arg-3 e-4 'erased))))))))))))) (define TT-Core-getRefs (lambda (arg-0 arg-1 arg-2) (TT-Core-addRefs 'erased 1 arg-1 (NameMap-Data-empty 'erased) arg-2))) (define TT-Core-getMetas (lambda (arg-0 arg-1) (TT-Core-addMetas 'erased (NameMap-Data-empty 'erased) arg-1))) (define TT-Core-getLoc (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) e-2)) ((1) (let ((e-7 (vector-ref sc0 1))) e-7)) ((2) (let ((e-11 (vector-ref sc0 1))) e-11)) ((3) (let ((e-16 (vector-ref sc0 1))) e-16)) ((4) (let ((e-21 (vector-ref sc0 1))) e-21)) ((5) (let ((e-25 (vector-ref sc0 1))) e-25)) ((6) (let ((e-30 (vector-ref sc0 1))) e-30)) ((7) (let ((e-34 (vector-ref sc0 1))) e-34)) ((8) (let ((e-39 (vector-ref sc0 1))) e-39)) ((9) (let ((e-43 (vector-ref sc0 1))) e-43)) ((10) (let ((e-46 (vector-ref sc0 1))) e-46)) (else (let ((e-49 (vector-ref sc0 1))) e-49)))))) -(define TT-Core-getFnArgs (lambda (arg-0 arg-1) (TT-Core-n--7065-4572-getFA 'erased arg-1 (vector 0 ) arg-1))) +(define TT-Core-getFnArgs (lambda (arg-0 arg-1) (TT-Core-n--7088-4580-getFA 'erased arg-1 (vector 0 ) arg-1))) (define TT-Core-getFn (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((4) (let ((e-2 (vector-ref sc0 2))) (TT-Core-getFn 'erased e-2)))(else arg-1))))) -(define TT-Core-getArgs (lambda (arg-0 ext-0) (Builtin-snd 'erased 'erased (TT-Core-getFnArgs 'erased ext-0)))) +(define TT-Core-getArgs (lambda (arg-0) (lambda (eta-0) (Basics-Prelude-C-46 'erased 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) (lambda (eta-1) (TT-Core-getFnArgs 'erased eta-1)) eta-0)))) (define TT-Core-forgetDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (vector 1 )) ((0) (vector 0 )) ((2) (vector 2 )) (else (vector 0 )))))) (define SubstEnv-TT-Core-findDrop (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 arg-4 arg-5 arg-3)) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (cond ((equal? sc1 0) (let ((sc2 arg-7)) (let ((e-8 (vector-ref sc2 1))) e-8)))(else (let ((e-4 (- arg-3 1))) (let ((sc1 arg-7)) (let ((e-14 (vector-ref sc1 2))) (SubstEnv-TT-Core-findDrop 'erased 'erased e-3 e-4 arg-4 arg-5 'erased e-14))))))))))))) (define SubstEnv-TT-Core-find (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (SubstEnv-TT-Core-findDrop 'erased 'erased arg-1 arg-4 arg-5 arg-6 'erased arg-8)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) (vector 0 arg-5 arg-6 0))(else (let ((e-4 (- arg-4 1))) (TT-Core-weaken_Weaken__Term e-2 (List-Prelude-C-43C-43 'erased e-3 arg-2) (SubstEnv-TT-Core-find 'erased arg-1 arg-2 e-3 e-4 arg-5 arg-6 'erased arg-8))))))))))))) -(define TT-Core-eqTerm (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-54 (vector-ref sc1 3))) (Prelude-C-61C-61_Eq__Nat e-4 e-54)))(else 1))))) ((1) (let ((e-9 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-59 (vector-ref sc1 3))) (Name-Core-C-61C-61_Eq__Name e-9 e-59)))(else 1))))) ((2) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-63 (vector-ref sc1 3))) (let ((e-64 (vector-ref sc1 4))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-13 e-63) (lambda () (Extra-Bool-Data-allTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (TT-Core-eqTerm 'erased 'erased eta-0 eta-1))) e-14 e-64)))))))(else 1)))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-66 (vector-ref sc1 1))) (let ((e-67 (vector-ref sc1 2))) (let ((e-68 (vector-ref sc1 3))) (let ((e-69 (vector-ref sc1 4))) (Prelude-C-38C-38 (TT-Core-n--5181-3003-eqBinder 'erased 'erased e-66 e-67 e-16 e-17 e-19 e-18 e-69 e-68 e-18 e-68) (lambda () (TT-Core-eqTerm 'erased 'erased e-19 e-69))))))))(else 1)))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((4) (let ((e-72 (vector-ref sc1 2))) (let ((e-73 (vector-ref sc1 3))) (Prelude-C-38C-38 (TT-Core-eqTerm 'erased 'erased e-22 e-72) (lambda () (TT-Core-eqTerm 'erased 'erased e-23 e-73))))))(else 1)))))) ((5) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((5) (let ((e-77 (vector-ref sc1 3))) (let ((e-78 (vector-ref sc1 4))) (Prelude-C-38C-38 (TT-Core-eqTerm 'erased 'erased e-27 e-77) (lambda () (TT-Core-eqTerm 'erased 'erased e-28 e-78))))))(else 1)))))) ((6) (let ((e-32 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((6) (let ((e-82 (vector-ref sc1 3))) (TT-Core-eqTerm 'erased 'erased e-32 e-82)))(else 1))))) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((7) (let ((e-86 (vector-ref sc1 3))) (let ((e-87 (vector-ref sc1 4))) (Prelude-C-38C-38 (TT-Core-eqTerm 'erased 'erased e-36 e-86) (lambda () (TT-Core-eqTerm 'erased 'erased e-37 e-87))))))(else 1)))))) ((8) (let ((e-41 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-91 (vector-ref sc1 3))) (TT-Core-eqTerm 'erased 'erased e-41 e-91)))(else 1))))) ((9) (let ((e-44 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((9) (let ((e-94 (vector-ref sc1 2))) (TT-Core-C-61C-61_Eq__Constant e-44 e-94)))(else 1))))) ((10) (let ((e-47 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((10) (let ((e-97 (vector-ref sc1 2))) (Prelude-C-61C-61_Eq__Bool e-47 e-97)))(else 1))))) ((11) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((11) 0)(else 1))))(else 1))))) -(define TT-Core-embedSub (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (TT-Core-case--8246-5650 'erased 'erased 'erased e-4 'erased e-3 e-2 arg-2 (TT-Core-varEmbedSub 'erased 'erased 'erased arg-2 e-4 'erased)))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (vector 1 e-7 e-8 e-9))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (vector 2 e-11 e-12 e-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-embedSub 'erased 'erased arg-2 eta-0)) e-14))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (vector 3 e-16 e-17 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-embedSub 'erased 'erased arg-2 eta-0)) e-18) (TT-Core-embedSub 'erased 'erased (vector 2 arg-2) e-19))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (vector 4 e-21 (TT-Core-embedSub 'erased 'erased arg-2 e-22) (TT-Core-embedSub 'erased 'erased arg-2 e-23)))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (vector 5 e-25 e-26 (TT-Core-embedSub 'erased 'erased arg-2 e-27) (TT-Core-embedSub 'erased 'erased arg-2 e-28))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (vector 6 e-30 e-31 (TT-Core-embedSub 'erased 'erased arg-2 e-32)))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (vector 7 e-34 e-35 (TT-Core-embedSub 'erased 'erased arg-2 e-36) (TT-Core-embedSub 'erased 'erased arg-2 e-37))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (vector 8 e-39 e-40 (TT-Core-embedSub 'erased 'erased arg-2 e-41)))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (vector 9 e-43 e-44)))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (vector 10 e-46 e-47)))) (else (let ((e-49 (vector-ref sc0 1))) (vector 11 e-49))))))) +(define TT-Core-eqTerm (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-54 (vector-ref sc1 3))) (Prelude-C-61C-61_Eq__Nat e-4 e-54)))(else 1))))) ((1) (let ((e-9 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-59 (vector-ref sc1 3))) (Name-Core-C-61C-61_Eq__Name e-9 e-59)))(else 1))))) ((2) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-63 (vector-ref sc1 3))) (let ((e-64 (vector-ref sc1 4))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-13 e-63) (lambda () (Extra-Bool-Data-allTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (TT-Core-eqTerm 'erased 'erased eta-0 eta-1))) e-14 e-64)))))))(else 1)))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-66 (vector-ref sc1 1))) (let ((e-67 (vector-ref sc1 2))) (let ((e-68 (vector-ref sc1 3))) (let ((e-69 (vector-ref sc1 4))) (Prelude-C-38C-38 (TT-Core-n--5204-3011-eqBinder 'erased 'erased e-66 e-67 e-16 e-17 e-19 e-18 e-69 e-68 e-18 e-68) (lambda () (TT-Core-eqTerm 'erased 'erased e-19 e-69))))))))(else 1)))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((4) (let ((e-72 (vector-ref sc1 2))) (let ((e-73 (vector-ref sc1 3))) (Prelude-C-38C-38 (TT-Core-eqTerm 'erased 'erased e-22 e-72) (lambda () (TT-Core-eqTerm 'erased 'erased e-23 e-73))))))(else 1)))))) ((5) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((5) (let ((e-77 (vector-ref sc1 3))) (let ((e-78 (vector-ref sc1 4))) (Prelude-C-38C-38 (TT-Core-eqTerm 'erased 'erased e-27 e-77) (lambda () (TT-Core-eqTerm 'erased 'erased e-28 e-78))))))(else 1)))))) ((6) (let ((e-32 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((6) (let ((e-82 (vector-ref sc1 3))) (TT-Core-eqTerm 'erased 'erased e-32 e-82)))(else 1))))) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((7) (let ((e-86 (vector-ref sc1 3))) (let ((e-87 (vector-ref sc1 4))) (Prelude-C-38C-38 (TT-Core-eqTerm 'erased 'erased e-36 e-86) (lambda () (TT-Core-eqTerm 'erased 'erased e-37 e-87))))))(else 1)))))) ((8) (let ((e-41 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-91 (vector-ref sc1 3))) (TT-Core-eqTerm 'erased 'erased e-41 e-91)))(else 1))))) ((9) (let ((e-44 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((9) (let ((e-94 (vector-ref sc1 2))) (TT-Core-C-61C-61_Eq__Constant e-44 e-94)))(else 1))))) ((10) (let ((e-47 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((10) (let ((e-97 (vector-ref sc1 2))) (Prelude-C-61C-61_Eq__Bool e-47 e-97)))(else 1))))) ((11) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((11) 0)(else 1))))(else 1))))) +(define TT-Core-embedSub (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (TT-Core-case--8269-5658 'erased 'erased 'erased e-4 'erased e-3 e-2 arg-2 (TT-Core-varEmbedSub 'erased 'erased 'erased arg-2 e-4 'erased)))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (vector 1 e-7 e-8 e-9))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (vector 2 e-11 e-12 e-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-embedSub 'erased 'erased arg-2 eta-0)) e-14))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (vector 3 e-16 e-17 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-embedSub 'erased 'erased arg-2 eta-0)) e-18) (TT-Core-embedSub 'erased 'erased (vector 2 arg-2) e-19))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (vector 4 e-21 (TT-Core-embedSub 'erased 'erased arg-2 e-22) (TT-Core-embedSub 'erased 'erased arg-2 e-23)))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (vector 5 e-25 e-26 (TT-Core-embedSub 'erased 'erased arg-2 e-27) (TT-Core-embedSub 'erased 'erased arg-2 e-28))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (vector 6 e-30 e-31 (TT-Core-embedSub 'erased 'erased arg-2 e-32)))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (vector 7 e-34 e-35 (TT-Core-embedSub 'erased 'erased arg-2 e-36) (TT-Core-embedSub 'erased 'erased arg-2 e-37))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (vector 8 e-39 e-40 (TT-Core-embedSub 'erased 'erased arg-2 e-41)))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (vector 9 e-43 e-44)))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (vector 10 e-46 e-47)))) (else (let ((e-49 (vector-ref sc0 1))) (vector 11 e-49))))))) (define TT-Core-embed (lambda (arg-0 arg-1 arg-2) (Builtin-believe_me 'erased 'erased arg-2))) (define TT-Core-dropVar (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) e-2)(else (let ((e-3 (- arg-2 1))) (vector 1 e-1 (TT-Core-dropVar 'erased e-2 e-3 'erased))))))))))) (define TT-Core-dropFirst (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (TT-Core-dropFirst 'erased 'erased e-3))(else (let ((e-8 (- e-2 1))) (vector 1 e-8 (TT-Core-dropFirst 'erased 'erased e-3))))))))))))) -(define TT-Core-constantEq (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (TT-Core-case--2872-744 e-0 e-5 (Equality-Decidable-decEq_DecEq__Int e-0 e-5))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (TT-Core-case--2872-776 e-1 e-6 (Equality-Decidable-decEq_DecEq__Integer e-1 e-6))))(else (vector 0 )))))) ((6) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-7 (vector-ref sc1 1))) (TT-Core-case--2872-808 e-2 e-7 (Equality-Decidable-decEq_DecEq__String e-2 e-7))))(else (vector 0 )))))) ((7) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-8 (vector-ref sc1 1))) (TT-Core-case--2872-840 e-3 e-8 (Equality-Decidable-decEq_DecEq__Char e-3 e-8))))(else (vector 0 )))))) ((8) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (vector 0 ))(else (vector 0 ))))) ((9) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (vector 1 (vector 0 )))(else (vector 0 ))))) ((10) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((10) (vector 1 (vector 0 )))(else (vector 0 ))))) ((11) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (vector 1 (vector 0 )))(else (vector 0 ))))) ((16) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((16) (vector 1 (vector 0 )))(else (vector 0 ))))) ((17) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((17) (vector 1 (vector 0 )))(else (vector 0 ))))) ((18) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((18) (vector 1 (vector 0 )))(else (vector 0 ))))) ((19) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((19) (vector 1 (vector 0 )))(else (vector 0 )))))(else (vector 0 )))))) +(define TT-Core-constantEq (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (TT-Core-case--2895-752 e-0 e-5 (Equality-Decidable-decEq_DecEq__Int e-0 e-5))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (TT-Core-case--2895-784 e-1 e-6 (Equality-Decidable-decEq_DecEq__Integer e-1 e-6))))(else (vector 0 )))))) ((6) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-7 (vector-ref sc1 1))) (TT-Core-case--2895-816 e-2 e-7 (Equality-Decidable-decEq_DecEq__String e-2 e-7))))(else (vector 0 )))))) ((7) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-8 (vector-ref sc1 1))) (TT-Core-case--2895-848 e-3 e-8 (Equality-Decidable-decEq_DecEq__Char e-3 e-8))))(else (vector 0 )))))) ((8) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (vector 0 ))(else (vector 0 ))))) ((9) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (vector 1 (vector 0 )))(else (vector 0 ))))) ((10) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((10) (vector 1 (vector 0 )))(else (vector 0 ))))) ((11) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (vector 1 (vector 0 )))(else (vector 0 ))))) ((16) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((16) (vector 1 (vector 0 )))(else (vector 0 ))))) ((17) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((17) (vector 1 (vector 0 )))(else (vector 0 ))))) ((18) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((18) (vector 1 (vector 0 )))(else (vector 0 ))))) ((19) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((19) (vector 1 (vector 0 )))(else (vector 0 )))))(else (vector 0 )))))) (define TT-Core-constTag (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((10) 3) ((11) 4) ((12) 5) ((13) 6) ((14) 7) ((15) 8) ((16) 9) ((17) 10) ((18) 11) ((19) 12)(else 0))))) (define TT-Core-compatible (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) 0)(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) 0)(else (TT-Core-C-61C-61_Eq__LazyReason arg-0 arg-1))))))))) (define TT-Core-binderType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) e-3)) ((1) (let ((e-7 (vector-ref sc0 3))) e-7)) ((2) (let ((e-11 (vector-ref sc0 3))) e-11)) ((3) (let ((e-15 (vector-ref sc0 3))) e-15)) ((4) (let ((e-19 (vector-ref sc0 3))) e-19)) (else (let ((e-22 (vector-ref sc0 2))) e-22)))))) (define TT-Core-apply (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-apply 'erased arg-1 (vector 4 arg-1 arg-2 e-2) e-3)))))))) -(define TT-Core-addVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (TT-Core-weakenNVar 'erased 'erased arg-3 arg-4 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-4 1))) (let ((idx (+ 1 e-4))) (TT-Core-case--8433-5859 'erased 'erased arg-3 e-4 e-2 e-3 'erased arg-5 idx (TT-Core-addVars 'erased 'erased e-3 arg-3 e-4 arg-5 'erased)))))))))))))) -(define TT-Core-addRefs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-3) ((1) (let ((e-9 (vector-ref sc0 3))) (NameMap-Data-insert 'erased e-9 arg-1 arg-3))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (TT-Core-n--9870-7058-addRefsArgs 'erased e-14 e-13 e-12 e-11 arg-3 arg-2 arg-1 arg-3 e-14)))))) ((3) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 e-18)) (case (vector-ref sc1 0) ((1) (let ((e-52 (vector-ref sc1 2))) (let ((e-53 (vector-ref sc1 3))) (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-52) e-53) e-19))))(else (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 (TT-Core-binderType 'erased e-18)) e-19))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((sc1 e-22)) (case (vector-ref sc1 0) ((4) (let ((e-55 (vector-ref sc1 1))) (let ((e-56 (vector-ref sc1 2))) (let ((e-57 (vector-ref sc1 3))) (let ((sc2 e-56)) (case (vector-ref sc2 0) ((1) (let ((e-59 (vector-ref sc2 1))) (let ((e-60 (vector-ref sc2 2))) (let ((e-61 (vector-ref sc2 3))) (TT-Core-case--9870-7105 'erased e-21 e-55 e-60 e-61 e-59 e-57 e-23 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-61 arg-2))))))(else (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-22) e-23))))))))(else (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-22) e-23)))))))) ((5) (let ((e-28 (vector-ref sc0 4))) (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-28))) ((6) (let ((e-32 (vector-ref sc0 3))) (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-32))) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-36) e-37)))) ((8) (let ((e-41 (vector-ref sc0 3))) (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-41))) ((9) arg-3) ((10) arg-3) (else arg-3))))) -(define TT-Core-addMetas (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-1) ((1) arg-1) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (TT-Core-n--9756-6966-addMetaArgs 'erased e-14 e-13 e-12 e-11 arg-1 (NameMap-Data-insert 'erased e-12 1 arg-1) e-14)))))) ((3) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 e-18)) (case (vector-ref sc1 0) ((1) (let ((e-52 (vector-ref sc1 2))) (let ((e-53 (vector-ref sc1 3))) (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased arg-1 e-52) e-53) e-19))))(else (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased arg-1 (TT-Core-binderType 'erased e-18)) e-19))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased arg-1 e-22) e-23)))) ((5) (let ((e-28 (vector-ref sc0 4))) (TT-Core-addMetas 'erased arg-1 e-28))) ((6) (let ((e-32 (vector-ref sc0 3))) (TT-Core-addMetas 'erased arg-1 e-32))) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased arg-1 e-36) e-37)))) ((8) (let ((e-41 (vector-ref sc0 3))) (TT-Core-addMetas 'erased arg-1 e-41))) ((9) arg-1) ((10) arg-1) (else arg-1))))) +(define TT-Core-addVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (TT-Core-weakenNVar 'erased 'erased arg-3 arg-4 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-4 1))) (let ((idx (+ 1 e-4))) (TT-Core-case--8456-5867 'erased 'erased arg-3 e-4 e-2 e-3 'erased arg-5 idx (TT-Core-addVars 'erased 'erased e-3 arg-3 e-4 arg-5 'erased)))))))))))))) +(define TT-Core-addRefs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-3) ((1) (let ((e-9 (vector-ref sc0 3))) (NameMap-Data-insert 'erased e-9 arg-1 arg-3))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (TT-Core-n--9893-7066-addRefsArgs 'erased e-14 e-13 e-12 e-11 arg-3 arg-2 arg-1 arg-3 e-14)))))) ((3) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 e-18)) (case (vector-ref sc1 0) ((1) (let ((e-52 (vector-ref sc1 2))) (let ((e-53 (vector-ref sc1 3))) (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-52) e-53) e-19))))(else (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 (TT-Core-binderType 'erased e-18)) e-19))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((sc1 e-22)) (case (vector-ref sc1 0) ((4) (let ((e-55 (vector-ref sc1 1))) (let ((e-56 (vector-ref sc1 2))) (let ((e-57 (vector-ref sc1 3))) (let ((sc2 e-56)) (case (vector-ref sc2 0) ((1) (let ((e-59 (vector-ref sc2 1))) (let ((e-60 (vector-ref sc2 2))) (let ((e-61 (vector-ref sc2 3))) (TT-Core-case--9893-7113 'erased e-21 e-55 e-60 e-61 e-59 e-57 e-23 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-61 arg-2))))))(else (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-22) e-23))))))))(else (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-22) e-23)))))))) ((5) (let ((e-28 (vector-ref sc0 4))) (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-28))) ((6) (let ((e-32 (vector-ref sc0 3))) (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-32))) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-36) e-37)))) ((8) (let ((e-41 (vector-ref sc0 3))) (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-41))) ((9) arg-3) ((10) arg-3) (else arg-3))))) +(define TT-Core-addMetas (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-1) ((1) arg-1) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (TT-Core-n--9779-6974-addMetaArgs 'erased e-14 e-13 e-12 e-11 arg-1 (NameMap-Data-insert 'erased e-12 1 arg-1) e-14)))))) ((3) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 e-18)) (case (vector-ref sc1 0) ((1) (let ((e-52 (vector-ref sc1 2))) (let ((e-53 (vector-ref sc1 3))) (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased arg-1 e-52) e-53) e-19))))(else (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased arg-1 (TT-Core-binderType 'erased e-18)) e-19))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased arg-1 e-22) e-23)))) ((5) (let ((e-28 (vector-ref sc0 4))) (TT-Core-addMetas 'erased arg-1 e-28))) ((6) (let ((e-32 (vector-ref sc0 3))) (TT-Core-addMetas 'erased arg-1 e-32))) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased arg-1 e-36) e-37)))) ((8) (let ((e-41 (vector-ref sc0 3))) (TT-Core-addMetas 'erased arg-1 e-41))) ((9) arg-1) ((10) arg-1) (else arg-1))))) (define TT-Core-ClosedTerm (lambda () (vector "Core.TT.Term" (vector 0 )))) (define Algebra-RigCount (lambda () (vector "Algebra.ZeroOneOmega.ZeroOneOmega" ))) -(define Preorder-Algebra-case--1502-416 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-3) (else arg-2))))) -(define Preorder-Algebra-case--1459-377 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-2) (else arg-3))))) +(define Preorder-Algebra-case--1504-424 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-3) (else arg-2))))) +(define Preorder-Algebra-case--1461-385 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-2) (else arg-3))))) (define Preorder-Algebra-top (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2)))) -(define Preorder-Algebra-lub (lambda (arg-0 arg-1 arg-2 arg-3) (Preorder-Algebra-case--1459-377 'erased arg-1 arg-3 arg-2 (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) ((e-1 arg-2) arg-3)))))) -(define Preorder-Algebra-glb (lambda (arg-0 arg-1 arg-2 arg-3) (Preorder-Algebra-case--1502-416 'erased arg-1 arg-3 arg-2 (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) ((e-1 arg-2) arg-3)))))) +(define Preorder-Algebra-lub (lambda (arg-0 arg-1 arg-2 arg-3) (Preorder-Algebra-case--1461-385 'erased arg-1 arg-3 arg-2 (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) ((e-1 arg-2) arg-3)))))) +(define Preorder-Algebra-glb (lambda (arg-0 arg-1 arg-2 arg-3) (Preorder-Algebra-case--1504-424 'erased arg-1 arg-3 arg-2 (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) ((e-1 arg-2) arg-3)))))) (define Preorder-Algebra-C-60C-61 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (lambda (arg-3) ((e-1 arg-2) arg-3))))))) (define Preorder-Algebra-C-60 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-C-38C-38 (let ((sc0 (Builtin-fst 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc0 1))) ((e-1 arg-2) arg-3))) (lambda () (let ((sc0 (Builtin-snd 'erased 'erased arg-1))) (let ((e-2 (vector-ref sc0 2))) ((e-2 arg-2) arg-3))))))) -(define Semiring-Algebra-case--1670-556 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (arg-5)) (else (arg-4)))))) -(define Semiring-Algebra-case--1612-505 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (arg-5)) (else (arg-4)))))) -(define Semiring-Algebra-case--1477-405 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) arg-5) (else (arg-4 arg-3)))))) -(define Semiring-Algebra-case--1455-355 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) arg-6) (else (Semiring-Algebra-case--1477-405 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 (let ((sc1 (Builtin-snd 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-3) (let ((sc2 (Builtin-fst 'erased 'erased arg-2))) (let ((e-4 (vector-ref sc2 4))) e-4))))))))))) +(define Semiring-Algebra-case--1672-564 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (arg-5)) (else (arg-4)))))) +(define Semiring-Algebra-case--1614-513 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (arg-5)) (else (arg-4)))))) +(define Semiring-Algebra-case--1479-413 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) arg-5) (else (arg-4 arg-3)))))) +(define Semiring-Algebra-case--1457-363 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) arg-6) (else (Semiring-Algebra-case--1479-413 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 (let ((sc1 (Builtin-snd 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-3) (let ((sc2 (Builtin-fst 'erased 'erased arg-2))) (let ((e-4 (vector-ref sc2 4))) e-4))))))))))) (define Semiring-Algebra-C-124C-42C-124 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) (lambda (arg-2) (lambda (arg-3) ((e-3 arg-2) arg-3))))))) (define Semiring-Algebra-timesNeutral (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 4))) e-4)))) (define Semiring-Algebra-plusNeutral (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2)))) @@ -1488,9 +1494,9 @@ (define Semiring-Algebra-isLinear (lambda (arg-0 arg-1 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased arg-1 1 0 (lambda (eta-0) 1) ext-0))) (define Semiring-Algebra-isErased (lambda (arg-0 arg-1 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased arg-1 0 1 (lambda (eta-0) 1) ext-0))) (define Semiring-Algebra-erased (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2)))) -(define Semiring-Algebra-elimSemi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Semiring-Algebra-case--1455-355 'erased 'erased arg-2 arg-6 arg-5 arg-4 arg-3 (let ((sc0 (Builtin-snd 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc0 1))) ((e-1 arg-6) (let ((sc1 (Builtin-fst 'erased 'erased arg-2))) (let ((e-5 (vector-ref sc1 2))) e-5)))))))) -(define Semiring-Algebra-branchZero (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Semiring-Algebra-case--1612-505 'erased 'erased arg-2 arg-5 arg-4 arg-3 (Semiring-Algebra-isErased 'erased arg-2 arg-5)))) -(define Semiring-Algebra-branchOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Semiring-Algebra-case--1670-556 'erased 'erased arg-2 arg-5 arg-4 arg-3 (Semiring-Algebra-isLinear 'erased arg-2 arg-5)))) +(define Semiring-Algebra-elimSemi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Semiring-Algebra-case--1457-363 'erased 'erased arg-2 arg-6 arg-5 arg-4 arg-3 (let ((sc0 (Builtin-snd 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc0 1))) ((e-1 arg-6) (let ((sc1 (Builtin-fst 'erased 'erased arg-2))) (let ((e-5 (vector-ref sc1 2))) e-5)))))))) +(define Semiring-Algebra-branchZero (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Semiring-Algebra-case--1614-513 'erased 'erased arg-2 arg-5 arg-4 arg-3 (Semiring-Algebra-isErased 'erased arg-2 arg-5)))) +(define Semiring-Algebra-branchOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Semiring-Algebra-case--1672-564 'erased 'erased arg-2 arg-5 arg-4 arg-3 (Semiring-Algebra-isLinear 'erased arg-2 arg-5)))) (define ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega (lambda (ext-0 ext-1) (ZeroOneOmega-Algebra-rigPlus ext-0 ext-1))) (define ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (lambda (ext-0 ext-1) (ZeroOneOmega-Algebra-rigMult ext-0 ext-1))) (define ZeroOneOmega-Algebra-top_Top__ZeroOneOmega (lambda () (vector 2 ))) @@ -1501,17 +1507,17 @@ (define ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) ((1) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (vector 0 )) (else (vector 0 ))))) (else (let ((sc1 arg-1)) arg-4)))))) (define ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) ((1) (vector 0 )) (else (vector 0 )))))) (define ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega (lambda () (vector 0 ))) -(define ZeroOneOmega-Algebra-__Impl_Top_ZeroOneOmega (lambda () (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (lambda (x) (ZeroOneOmega-Algebra-topAbs_Top__ZeroOneOmega x))))) +(define ZeroOneOmega-Algebra-__Impl_Top_ZeroOneOmega (lambda () (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-256 arg-257))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-259) (lambda (arg-261) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-259 arg-261))))))) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (lambda (x) (ZeroOneOmega-Algebra-topAbs_Top__ZeroOneOmega x))))) (define ZeroOneOmega-Algebra-__Impl_Show_ZeroOneOmega (lambda () (vector 0 (lambda (x) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x)) (lambda (d) (lambda (x) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x)))))) -(define ZeroOneOmega-Algebra-__Impl_Semiring_ZeroOneOmega (lambda () (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) -(define ZeroOneOmega-Algebra-__Impl_Preorder_ZeroOneOmega (lambda () (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))))) -(define ZeroOneOmega-Algebra-__Impl_Eq_ZeroOneOmega (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431)))))) +(define ZeroOneOmega-Algebra-__Impl_Semiring_ZeroOneOmega (lambda () (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) +(define ZeroOneOmega-Algebra-__Impl_Preorder_ZeroOneOmega (lambda () (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-256 arg-257))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-259) (lambda (arg-261) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-259 arg-261))))))))) +(define ZeroOneOmega-Algebra-__Impl_Eq_ZeroOneOmega (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439)))))) (define ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0)(else 1))))(else 1))))) (define ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 0) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0) ((2) 0)(else 1)))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0)(else 1))))(else 1))))) (define ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (lambda (arg-0 arg-1) (Prelude-not (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-0 arg-1)))) (define ZeroOneOmega-Algebra-rigPlus (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) arg-1)(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-0)(else (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (vector 2 ))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (vector 2 ))(else (let ((sc0 arg-0)) (let ((sc1 arg-1)) (vector 2 ))))))))))))))))) (define ZeroOneOmega-Algebra-rigMult (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) arg-1)(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) arg-0)(else (let ((sc0 arg-0)) (let ((sc1 arg-1)) (vector 2 ))))))))))))))))) -(define Vect-Data-n--2902-3573-go (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) arg-5) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Vect-Data-n--2902-3573-go 'erased 'erased arg-2 'erased 'erased (vector 1 e-3 arg-5) e-4)))))))) +(define Vect-Data-n--2942-3619-go (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) arg-5) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Vect-Data-n--2942-3619-go 'erased 'erased 'erased 'erased 'erased (vector 1 e-3 arg-5) e-4)))))))) (define Vect-Data-show_Show__C-40C-40VectC-32C-36lenC-41C-32C-36elemC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased arg-2 ((List-Data-toList 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldl_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))))) ext-0)))) (define Vect-Data-showPrec_Show__C-40C-40VectC-32C-36lenC-41C-32C-36elemC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Vect-Data-show_Show__C-40C-40VectC-32C-36lenC-41C-32C-36elemC-41 'erased 'erased arg-2 arg-4))) (define Vect-Data-map_Functor__C-40VectC-32C-36nC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (vector 1 (arg-3 e-3) (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased arg-3 e-4))))))))) @@ -1520,100 +1526,102 @@ (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--2902-3573-go 'erased 'erased arg-2 'erased 'erased (vector 0 ) arg-2))) +(define Vect-Data-reverse (lambda (arg-0 arg-1 arg-2) (Vect-Data-n--2942-3619-go 'erased 'erased 'erased 'erased 'erased (vector 0 ) arg-2))) (define Vect-Data-foldrImpl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (arg-5 arg-4)) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Vect-Data-foldrImpl 'erased 'erased 'erased arg-3 arg-4 (lambda (eta-0) (arg-5 ((arg-3 e-3) eta-0))) e-4)))))))) -(define NameMap-Data-case--4227-6676 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 1 (+ 1 arg-1) e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 arg-1 e-5))))))) -(define NameMap-Data-case--4227-6639 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 1 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 0 )))))))) -(define NameMap-Data-case--4139-6554 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 1 arg-1 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (+ 1 arg-1) e-5))))))) -(define NameMap-Data-case--3837-6362 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-6 arg-5 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (NameMap-Data-merge3 'erased 'erased arg-6 arg-5 arg-4 arg-3 e-5)))))))) -(define NameMap-Data-case--3837-6288 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-6 arg-5 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (NameMap-Data-merge2 'erased 'erased arg-6 arg-5 e-5 arg-3 arg-2)))))))) -(define NameMap-Data-case--3724-6264 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (NameMap-Data-case--3837-6288 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (NameMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-4))) (else (NameMap-Data-case--3837-6362 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (NameMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-2))))))) -(define NameMap-Data-case--3724-6190 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 e-2 arg-5 arg-4 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (NameMap-Data-merge1 'erased 'erased e-5 arg-5 arg-4 arg-3 arg-2)))))))) -(define NameMap-Data-case--2983-6166 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (NameMap-Data-case--3724-6190 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (NameMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-6))) (else (NameMap-Data-case--3724-6264 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Name-Core-C-60C-61_Ord__Name arg-7 arg-3))))))) -(define NameMap-Data-case--3611-6112 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 2 e-2 e-3 e-4 arg-3 arg-6)))))) (else (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (vector 0 (NameMap-Data-branch4 'erased 'erased e-7 e-8 e-9 e-10 e-11 arg-3 arg-6)))))))))))) -(define NameMap-Data-case--3469-6070 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (vector 1 (vector 2 e-2 e-3 e-4 arg-3 e-5)))))) (else (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-11 (vector-ref sc1 5))) (vector 0 (NameMap-Data-branch4 'erased 'erased e-7 e-8 e-9 e-10 e-11 arg-3 e-5)))))))))))))))) -(define NameMap-Data-case--3494-6012 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 2 arg-6 arg-3 e-2 e-3 e-4)))))) (else (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (vector 0 (NameMap-Data-branch4 'erased 'erased arg-6 arg-3 e-7 e-8 e-9 e-10 e-11)))))))))))) -(define NameMap-Data-case--3469-5970 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (vector 1 (vector 2 e-5 arg-3 e-2 e-3 e-4)))))) (else (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-11 (vector-ref sc1 5))) (vector 0 (NameMap-Data-branch4 'erased 'erased e-5 arg-3 e-7 e-8 e-9 e-10 e-11)))))))))))))))) -(define NameMap-Data-case--2983-5950 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (NameMap-Data-case--3469-5970 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (NameMap-Data-treeDelete 'erased (+ 1 arg-1) arg-5 arg-4))) (else (NameMap-Data-case--3469-6070 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (NameMap-Data-treeDelete 'erased (+ 1 arg-1) arg-5 arg-2))))))) -(define NameMap-Data-case--3297-5888 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-5 arg-4 arg-3 arg-2 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 0 (vector 1 arg-5 arg-4 arg-3))))))))) -(define NameMap-Data-case--3297-5820 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-5 arg-4 e-2 arg-2 arg-1)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 0 (vector 1 arg-5 arg-4 arg-1))))))))) -(define NameMap-Data-case--3194-5798 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (NameMap-Data-case--3297-5820 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (NameMap-Data-treeDelete 'erased 0 arg-6 arg-3))) (else (NameMap-Data-case--3297-5888 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (NameMap-Data-treeDelete 'erased 0 arg-6 arg-1))))))) -(define NameMap-Data-case--3194-5730 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 e-2 arg-4 arg-3 arg-2 arg-1)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 0 (vector 1 arg-3 arg-2 arg-1))))))))) -(define NameMap-Data-case--2983-5708 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (NameMap-Data-case--3194-5730 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (NameMap-Data-treeDelete 'erased 0 arg-6 arg-5))) (else (NameMap-Data-case--3194-5798 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (Name-Core-C-60C-61_Ord__Name arg-6 arg-2))))))) -(define NameMap-Data-case--3055-5658 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 arg-3 arg-2 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 1 arg-3)))))))) -(define NameMap-Data-case--3055-5604 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 e-2 arg-2 arg-1)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 1 arg-1)))))))) -(define NameMap-Data-case--2983-5586 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (NameMap-Data-case--3055-5604 'erased arg-1 arg-2 arg-3 arg-4 (NameMap-Data-treeDelete 'erased 0 arg-4 arg-3))) (else (NameMap-Data-case--3055-5658 'erased arg-1 arg-2 arg-3 arg-4 (NameMap-Data-treeDelete 'erased 0 arg-4 arg-1))))))) -(define NameMap-Data-case--2983-5538 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 ))) (else (vector 0 (vector 0 arg-2 arg-1))))))) -(define NameMap-Data-case--2903-5469 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 1 e-8 e-12 e-13)))))))))))))) -(define NameMap-Data-case--2644-5372 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-6 arg-5 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 arg-4) (vector 0 arg-3 (vector 1 e-8 e-12 e-13)))))))))))))))) -(define NameMap-Data-case--2644-5261 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-6 arg-5 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 e-8) (vector 0 e-12 (vector 1 e-13 arg-3 arg-2)))))))))))))))) -(define NameMap-Data-case--2481-5230 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (NameMap-Data-case--2644-5261 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (NameMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-4))) (else (NameMap-Data-case--2644-5372 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (NameMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-2))))))) -(define NameMap-Data-case--2481-5120 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 e-2 arg-5 arg-4 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 e-8 e-12 e-13) (vector 0 arg-5 (vector 1 arg-4 arg-3 arg-2)))))))))))))))) -(define NameMap-Data-case--2126-5089 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (NameMap-Data-case--2481-5120 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (NameMap-Data-treeInsertC-39 'erased 'erased arg-8 arg-2 arg-7))) (else (NameMap-Data-case--2481-5230 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (Name-Core-C-60C-61_Ord__Name arg-8 arg-4))))))) -(define NameMap-Data-case--2255-5011 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 arg-4 arg-3 e-8 e-12 e-13)))))))))))))) -(define NameMap-Data-case--2255-4922 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 e-8 e-12 e-13 arg-3 arg-2)))))))))))))) -(define NameMap-Data-case--2126-4895 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (NameMap-Data-case--2255-4922 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (NameMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-5))) (else (NameMap-Data-case--2255-5011 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (NameMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-3))))))) -(define NameMap-Data-case--2126-4793 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 1 (vector 0 (vector 0 arg-4 arg-1) (vector 0 arg-4 (vector 0 arg-3 arg-2))))) ((equal? sc0 1) (vector 0 (vector 0 arg-4 arg-1))) (else (vector 1 (vector 0 (vector 0 arg-3 arg-2) (vector 0 arg-3 (vector 0 arg-4 arg-1))))))))) -(define NameMap-Data-case--2019-4732 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (NameMap-Data-treeLookup 'erased 'erased arg-7 arg-4)) (else (NameMap-Data-treeLookup 'erased 'erased arg-7 arg-2)))))) -(define NameMap-Data-case--1896-4685 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (NameMap-Data-treeLookup 'erased 'erased arg-7 arg-6)) (else (NameMap-Data-case--2019-4732 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased (Name-Core-C-60C-61_Ord__Name arg-7 arg-3))))))) -(define NameMap-Data-case--1896-4637 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (NameMap-Data-treeLookup 'erased 'erased arg-5 arg-4)) (else (NameMap-Data-treeLookup 'erased 'erased arg-5 arg-2)))))) -(define NameMap-Data-case--1896-4594 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 0 )))))) -(define NameMap-Data-n--4010-6418-treeToListC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (vector 1 (vector 0 e-1 e-2) arg-3)))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (NameMap-Data-n--4010-6418-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--4010-6418-treeToListC-39 'erased 'erased 'erased arg-3 e-7) e-5)))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 5))) (NameMap-Data-n--4010-6418-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--4010-6418-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--4010-6418-treeToListC-39 'erased 'erased 'erased arg-3 e-14) e-12) e-10))))))))) -(define NameMap-Data-treeToList (lambda (arg-0 arg-1 ext-0) (NameMap-Data-n--4010-6418-treeToListC-39 'erased 'erased 'erased (vector 0 ) ext-0))) -(define NameMap-Data-treeLookup (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (NameMap-Data-case--1896-4594 'erased e-2 e-1 arg-2 'erased (Name-Core-C-61C-61_Eq__Name arg-2 e-1))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (NameMap-Data-case--1896-4637 'erased 'erased e-7 e-6 e-5 arg-2 'erased (Name-Core-C-60C-61_Ord__Name arg-2 e-6)))))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (NameMap-Data-case--1896-4685 'erased 'erased e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Name-Core-C-60C-61_Ord__Name arg-2 e-11)))))))))))) -(define NameMap-Data-treeInsertC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (NameMap-Data-case--2126-4793 'erased arg-3 e-2 e-1 arg-2 'erased (Name-Core-compare_Ord__Name arg-2 e-1))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (NameMap-Data-case--2126-4895 'erased 'erased arg-3 e-7 e-6 e-5 arg-2 'erased (Name-Core-C-60C-61_Ord__Name arg-2 e-6)))))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (NameMap-Data-case--2126-5089 'erased 'erased arg-3 e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Name-Core-C-60C-61_Ord__Name arg-2 e-11)))))))))))) -(define NameMap-Data-treeInsert (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (NameMap-Data-case--2903-5469 'erased 'erased arg-3 arg-4 arg-2 (NameMap-Data-treeInsertC-39 'erased 'erased arg-2 arg-3 arg-4)))) -(define NameMap-Data-treeDelete (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((n 0)) (NameMap-Data-case--2983-5538 'erased e-3 e-2 arg-2 n (Name-Core-C-61C-61_Eq__Name arg-2 e-2)))))))(else (let ((e-0 (- arg-1 1))) (let ((sc0 e-0)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (NameMap-Data-case--2983-5586 'erased e-9 e-8 e-7 arg-2 (Name-Core-C-60C-61_Ord__Name arg-2 e-8)))))) (else (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((e-16 (vector-ref sc1 5))) (NameMap-Data-case--2983-5708 'erased e-16 e-15 e-14 e-13 e-12 arg-2 (Name-Core-C-60C-61_Ord__Name arg-2 e-13)))))))))))(else (let ((e-4 (- e-0 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (NameMap-Data-case--2983-5950 'erased e-4 e-21 e-20 e-19 arg-2 (Name-Core-C-60C-61_Ord__Name arg-2 e-20)))))) (else (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (let ((e-27 (vector-ref sc0 4))) (let ((e-28 (vector-ref sc0 5))) (NameMap-Data-case--2983-6166 'erased e-4 e-28 e-27 e-26 e-25 e-24 arg-2 (Name-Core-C-60C-61_Ord__Name arg-2 e-25)))))))))))))))))))) +(define NameMap-Data-case--4233-6745 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 1 (+ 1 arg-1) e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 arg-1 e-5))))))) +(define NameMap-Data-case--4233-6708 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 1 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 0 )))))))) +(define NameMap-Data-case--4145-6623 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 1 arg-1 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (+ 1 arg-1) e-5))))))) +(define NameMap-Data-case--3843-6431 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-6 arg-5 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (NameMap-Data-merge3 'erased 'erased arg-6 arg-5 arg-4 arg-3 e-5)))))))) +(define NameMap-Data-case--3843-6357 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-6 arg-5 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (NameMap-Data-merge2 'erased 'erased arg-6 arg-5 e-5 arg-3 arg-2)))))))) +(define NameMap-Data-case--3730-6333 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (NameMap-Data-case--3843-6357 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (NameMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-4))) (else (NameMap-Data-case--3843-6431 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (NameMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-2))))))) +(define NameMap-Data-case--3730-6259 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 e-2 arg-5 arg-4 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (NameMap-Data-merge1 'erased 'erased e-5 arg-5 arg-4 arg-3 arg-2)))))))) +(define NameMap-Data-case--2989-6235 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (NameMap-Data-case--3730-6259 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (NameMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-6))) (else (NameMap-Data-case--3730-6333 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Name-Core-C-60C-61_Ord__Name arg-7 arg-3))))))) +(define NameMap-Data-case--3617-6181 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 2 e-2 e-3 e-4 arg-3 arg-6)))))) (else (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (vector 0 (NameMap-Data-branch4 'erased 'erased e-7 e-8 e-9 e-10 e-11 arg-3 arg-6)))))))))))) +(define NameMap-Data-case--3475-6139 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (vector 1 (vector 2 e-2 e-3 e-4 arg-3 e-5)))))) (else (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-11 (vector-ref sc1 5))) (vector 0 (NameMap-Data-branch4 'erased 'erased e-7 e-8 e-9 e-10 e-11 arg-3 e-5)))))))))))))))) +(define NameMap-Data-case--3500-6081 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 2 arg-6 arg-3 e-2 e-3 e-4)))))) (else (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (vector 0 (NameMap-Data-branch4 'erased 'erased arg-6 arg-3 e-7 e-8 e-9 e-10 e-11)))))))))))) +(define NameMap-Data-case--3475-6039 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (vector 1 (vector 2 e-5 arg-3 e-2 e-3 e-4)))))) (else (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-11 (vector-ref sc1 5))) (vector 0 (NameMap-Data-branch4 'erased 'erased e-5 arg-3 e-7 e-8 e-9 e-10 e-11)))))))))))))))) +(define NameMap-Data-case--2989-6019 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (NameMap-Data-case--3475-6039 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (NameMap-Data-treeDelete 'erased (+ 1 arg-1) arg-5 arg-4))) (else (NameMap-Data-case--3475-6139 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (NameMap-Data-treeDelete 'erased (+ 1 arg-1) arg-5 arg-2))))))) +(define NameMap-Data-case--3303-5957 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-5 arg-4 arg-3 arg-2 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 0 (vector 1 arg-5 arg-4 arg-3))))))))) +(define NameMap-Data-case--3303-5889 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-5 arg-4 e-2 arg-2 arg-1)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 0 (vector 1 arg-5 arg-4 arg-1))))))))) +(define NameMap-Data-case--3200-5867 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (NameMap-Data-case--3303-5889 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (NameMap-Data-treeDelete 'erased 0 arg-6 arg-3))) (else (NameMap-Data-case--3303-5957 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (NameMap-Data-treeDelete 'erased 0 arg-6 arg-1))))))) +(define NameMap-Data-case--3200-5799 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 e-2 arg-4 arg-3 arg-2 arg-1)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 0 (vector 1 arg-3 arg-2 arg-1))))))))) +(define NameMap-Data-case--2989-5777 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (NameMap-Data-case--3200-5799 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (NameMap-Data-treeDelete 'erased 0 arg-6 arg-5))) (else (NameMap-Data-case--3200-5867 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (Name-Core-C-60C-61_Ord__Name arg-6 arg-2))))))) +(define NameMap-Data-case--3061-5727 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 arg-3 arg-2 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 1 arg-3)))))))) +(define NameMap-Data-case--3061-5673 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 e-2 arg-2 arg-1)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 1 arg-1)))))))) +(define NameMap-Data-case--2989-5655 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (NameMap-Data-case--3061-5673 'erased arg-1 arg-2 arg-3 arg-4 (NameMap-Data-treeDelete 'erased 0 arg-4 arg-3))) (else (NameMap-Data-case--3061-5727 'erased arg-1 arg-2 arg-3 arg-4 (NameMap-Data-treeDelete 'erased 0 arg-4 arg-1))))))) +(define NameMap-Data-case--2989-5607 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 ))) (else (vector 0 (vector 0 arg-2 arg-1))))))) +(define NameMap-Data-case--2909-5538 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 1 e-8 e-12 e-13)))))))))))))) +(define NameMap-Data-case--2650-5441 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-6 arg-5 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 arg-4) (vector 0 arg-3 (vector 1 e-8 e-12 e-13)))))))))))))))) +(define NameMap-Data-case--2650-5330 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-6 arg-5 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 e-8) (vector 0 e-12 (vector 1 e-13 arg-3 arg-2)))))))))))))))) +(define NameMap-Data-case--2487-5299 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (NameMap-Data-case--2650-5330 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (NameMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-4))) (else (NameMap-Data-case--2650-5441 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (NameMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-2))))))) +(define NameMap-Data-case--2487-5189 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 e-2 arg-5 arg-4 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 e-8 e-12 e-13) (vector 0 arg-5 (vector 1 arg-4 arg-3 arg-2)))))))))))))))) +(define NameMap-Data-case--2132-5158 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (NameMap-Data-case--2487-5189 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (NameMap-Data-treeInsertC-39 'erased 'erased arg-8 arg-2 arg-7))) (else (NameMap-Data-case--2487-5299 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (Name-Core-C-60C-61_Ord__Name arg-8 arg-4))))))) +(define NameMap-Data-case--2261-5080 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 arg-4 arg-3 e-8 e-12 e-13)))))))))))))) +(define NameMap-Data-case--2261-4991 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 e-8 e-12 e-13 arg-3 arg-2)))))))))))))) +(define NameMap-Data-case--2132-4964 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (NameMap-Data-case--2261-4991 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (NameMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-5))) (else (NameMap-Data-case--2261-5080 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (NameMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-3))))))) +(define NameMap-Data-case--2132-4862 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 1 (vector 0 (vector 0 arg-4 arg-1) (vector 0 arg-4 (vector 0 arg-3 arg-2))))) ((equal? sc0 1) (vector 0 (vector 0 arg-4 arg-1))) (else (vector 1 (vector 0 (vector 0 arg-3 arg-2) (vector 0 arg-3 (vector 0 arg-4 arg-1))))))))) +(define NameMap-Data-case--2025-4801 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (NameMap-Data-treeLookup 'erased 'erased arg-7 arg-4)) (else (NameMap-Data-treeLookup 'erased 'erased arg-7 arg-2)))))) +(define NameMap-Data-case--1902-4754 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (NameMap-Data-treeLookup 'erased 'erased arg-7 arg-6)) (else (NameMap-Data-case--2025-4801 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased (Name-Core-C-60C-61_Ord__Name arg-7 arg-3))))))) +(define NameMap-Data-case--1902-4706 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (NameMap-Data-treeLookup 'erased 'erased arg-5 arg-4)) (else (NameMap-Data-treeLookup 'erased 'erased arg-5 arg-2)))))) +(define NameMap-Data-case--1902-4663 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 0 )))))) +(define NameMap-Data-n--4016-6487-treeToListC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (vector 1 (vector 0 e-1 e-2) arg-3)))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (NameMap-Data-n--4016-6487-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--4016-6487-treeToListC-39 'erased 'erased 'erased arg-3 e-7) e-5)))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 5))) (NameMap-Data-n--4016-6487-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--4016-6487-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--4016-6487-treeToListC-39 'erased 'erased 'erased arg-3 e-14) e-12) e-10))))))))) +(define NameMap-Data-treeToList (lambda (arg-0 arg-1 ext-0) (NameMap-Data-n--4016-6487-treeToListC-39 'erased 'erased 'erased (vector 0 ) ext-0))) +(define NameMap-Data-treeLookup (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (NameMap-Data-case--1902-4663 'erased e-2 e-1 arg-2 'erased (Name-Core-C-61C-61_Eq__Name arg-2 e-1))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (NameMap-Data-case--1902-4706 'erased 'erased e-7 e-6 e-5 arg-2 'erased (Name-Core-C-60C-61_Ord__Name arg-2 e-6)))))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (NameMap-Data-case--1902-4754 'erased 'erased e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Name-Core-C-60C-61_Ord__Name arg-2 e-11)))))))))))) +(define NameMap-Data-treeInsertC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (NameMap-Data-case--2132-4862 'erased arg-3 e-2 e-1 arg-2 'erased (Name-Core-compare_Ord__Name arg-2 e-1))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (NameMap-Data-case--2132-4964 'erased 'erased arg-3 e-7 e-6 e-5 arg-2 'erased (Name-Core-C-60C-61_Ord__Name arg-2 e-6)))))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (NameMap-Data-case--2132-5158 'erased 'erased arg-3 e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Name-Core-C-60C-61_Ord__Name arg-2 e-11)))))))))))) +(define NameMap-Data-treeInsert (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (NameMap-Data-case--2909-5538 'erased 'erased arg-3 arg-4 arg-2 (NameMap-Data-treeInsertC-39 'erased 'erased arg-2 arg-3 arg-4)))) +(define NameMap-Data-treeDelete (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((n 0)) (NameMap-Data-case--2989-5607 'erased e-3 e-2 arg-2 n (Name-Core-C-61C-61_Eq__Name arg-2 e-2)))))))(else (let ((e-0 (- arg-1 1))) (let ((sc0 e-0)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (NameMap-Data-case--2989-5655 'erased e-9 e-8 e-7 arg-2 (Name-Core-C-60C-61_Ord__Name arg-2 e-8)))))) (else (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((e-16 (vector-ref sc1 5))) (NameMap-Data-case--2989-5777 'erased e-16 e-15 e-14 e-13 e-12 arg-2 (Name-Core-C-60C-61_Ord__Name arg-2 e-13)))))))))))(else (let ((e-4 (- e-0 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (NameMap-Data-case--2989-6019 'erased e-4 e-21 e-20 e-19 arg-2 (Name-Core-C-60C-61_Ord__Name arg-2 e-20)))))) (else (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (let ((e-27 (vector-ref sc0 4))) (let ((e-28 (vector-ref sc0 5))) (NameMap-Data-case--2989-6235 'erased e-4 e-28 e-27 e-26 e-25 e-24 arg-2 (Name-Core-C-60C-61_Ord__Name arg-2 e-25)))))))))))))))))))) (define NameMap-Data-toList (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (NameMap-Data-treeToList 'erased 'erased e-3))))))) (define NameMap-Data-merge3 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((e-16 (vector-ref sc1 3))) (NameMap-Data-branch5 'erased 'erased e-2 e-3 e-4 arg-3 e-14 e-15 e-16 arg-5 arg-6))))) (else (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (let ((e-22 (vector-ref sc1 4))) (let ((e-23 (vector-ref sc1 5))) (NameMap-Data-branch6 'erased 'erased e-2 e-3 e-4 arg-3 e-19 e-20 e-21 e-22 e-23 arg-5 arg-6))))))))))))) (else (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (NameMap-Data-branch6 'erased 'erased e-7 e-8 e-9 e-10 e-11 arg-3 e-26 e-27 e-28 arg-5 arg-6))))) (else (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (let ((e-35 (vector-ref sc1 5))) (NameMap-Data-branch7 'erased 'erased e-7 e-8 e-9 e-10 e-11 arg-3 e-31 e-32 e-33 e-34 e-35 arg-5 arg-6))))))))))))))))))) (define NameMap-Data-merge2 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((e-16 (vector-ref sc1 3))) (NameMap-Data-branch5 'erased 'erased e-2 e-3 e-4 arg-3 arg-4 arg-5 e-14 e-15 e-16))))) (else (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (let ((e-22 (vector-ref sc1 4))) (let ((e-23 (vector-ref sc1 5))) (NameMap-Data-branch6 'erased 'erased e-2 e-3 e-4 arg-3 arg-4 arg-5 e-19 e-20 e-21 e-22 e-23))))))))))))) (else (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (NameMap-Data-branch6 'erased 'erased e-7 e-8 e-9 e-10 e-11 arg-3 arg-4 arg-5 e-26 e-27 e-28))))) (else (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (let ((e-35 (vector-ref sc1 5))) (NameMap-Data-branch7 'erased 'erased e-7 e-8 e-9 e-10 e-11 arg-3 arg-4 arg-5 e-31 e-32 e-33 e-34 e-35))))))))))))))))))) (define NameMap-Data-merge1 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((e-16 (vector-ref sc1 3))) (NameMap-Data-branch5 'erased 'erased arg-2 arg-3 e-2 e-3 e-4 arg-5 e-14 e-15 e-16))))) (else (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (let ((e-22 (vector-ref sc1 4))) (let ((e-23 (vector-ref sc1 5))) (NameMap-Data-branch6 'erased 'erased arg-2 arg-3 e-2 e-3 e-4 arg-5 e-19 e-20 e-21 e-22 e-23))))))))))))) (else (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (NameMap-Data-branch6 'erased 'erased arg-2 arg-3 e-7 e-8 e-9 e-10 e-11 arg-5 e-26 e-27 e-28))))) (else (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (let ((e-35 (vector-ref sc1 5))) (NameMap-Data-branch7 'erased 'erased arg-2 arg-3 e-7 e-8 e-9 e-10 e-11 arg-5 e-31 e-32 e-33 e-34 e-35))))))))))))))))))) (define NameMap-Data-lookup (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (NameMap-Data-treeLookup 'erased 'erased arg-1 e-3))))))) -(define NameMap-Data-keys (lambda (arg-0 ext-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (NameMap-Data-toList 'erased ext-0)))) -(define NameMap-Data-insert (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 0 (vector 0 arg-1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (NameMap-Data-case--4139-6554 'erased e-2 arg-2 e-3 arg-1 (NameMap-Data-treeInsert 'erased 'erased arg-1 arg-2 e-3))))))))) +(define NameMap-Data-keys (lambda (arg-0) (lambda (eta-0) (Basics-Prelude-C-46 'erased 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) eta-1)) (lambda (eta-1) (NameMap-Data-toList 'erased eta-1)) eta-0)))) +(define NameMap-Data-insert (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 0 (vector 0 arg-1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (NameMap-Data-case--4145-6623 'erased e-2 arg-2 e-3 arg-1 (NameMap-Data-treeInsert 'erased 'erased arg-1 arg-2 e-3))))))))) (define NameMap-Data-fromList (lambda (arg-0 arg-1) (Prelude-foldl_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Basics-Prelude-flip 'erased 'erased 'erased (lambda (eta-2) (Basics-Prelude-uncurry 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (NameMap-Data-insert 'erased eta-3 eta-4 eta-5)))) eta-2)) eta-0 eta-1))) (NameMap-Data-empty 'erased) arg-1))) (define NameMap-Data-empty (lambda (arg-0) (vector 0 ))) -(define NameMap-Data-delete (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (NameMap-Data-case--4227-6639 'erased e-3 arg-1 (NameMap-Data-treeDelete 'erased 0 arg-1 e-3)))(else (let ((e-4 (- e-2 1))) (NameMap-Data-case--4227-6676 'erased e-4 e-3 arg-1 (NameMap-Data-treeDelete 'erased (+ 1 e-4) arg-1 e-3))))))))))))) +(define NameMap-Data-delete (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (NameMap-Data-case--4233-6708 'erased e-3 arg-1 (NameMap-Data-treeDelete 'erased 0 arg-1 e-3)))(else (let ((e-4 (- e-2 1))) (NameMap-Data-case--4233-6745 'erased e-4 e-3 arg-1 (NameMap-Data-treeDelete 'erased (+ 1 e-4) arg-1 e-3))))))))))))) (define NameMap-Data-branch7 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (vector 2 (vector 2 arg-2 arg-3 arg-4 arg-5 arg-6) arg-7 (vector 1 arg-8 arg-9 arg-10) arg-11 (vector 1 arg-12 arg-13 arg-14)))) (define NameMap-Data-branch6 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (vector 2 (vector 1 arg-2 arg-3 arg-4) arg-5 (vector 1 arg-6 arg-7 arg-8) arg-9 (vector 1 arg-10 arg-11 arg-12)))) (define NameMap-Data-branch5 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (vector 1 (vector 1 arg-2 arg-3 arg-4) arg-5 (vector 2 arg-6 arg-7 arg-8 arg-9 arg-10)))) (define NameMap-Data-branch4 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 1 (vector 1 arg-2 arg-3 arg-4) arg-5 (vector 1 arg-6 arg-7 arg-8)))) -(define Name-Core-with--2643-4127 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) -(define Name-Core-with--3021-4100 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (vector 0 )) (else (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (vector 1 (vector 0 ))))))))) -(define Name-Core-with--2643-4079 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (vector 0 )) (else (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (Name-Core-with--3021-4100 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))))))) -(define Name-Core-with--2966-4052 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (vector 0 )) (else (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (vector 1 (vector 0 ))))))))) -(define Name-Core-with--2643-4031 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (vector 0 )) (else (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (Name-Core-with--2966-4052 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))))))) -(define Name-Core-with--2915-4011 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (vector 1 (vector 0 ))))))))) -(define Name-Core-with--2643-3987 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (vector 0 )) (else (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (Name-Core-with--2915-4011 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0)))))))) -(define Name-Core-with--2643-3953 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) -(define Name-Core-with--2834-3927 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) -(define Name-Core-with--2643-3916 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (Name-Core-with--2834-3927 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0)))) (else (vector 0 )))))) -(define Name-Core-with--2786-3886 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) -(define Name-Core-with--2643-3875 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (Name-Core-with--2786-3886 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))) (else (vector 0 )))))) -(define Name-Core-with--2735-3846 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) -(define Name-Core-with--2643-3831 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (Name-Core-with--2735-3846 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))) (else (vector 0 )))))) -(define Name-Core-with--2643-3804 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) -(define Name-Core-with--2657-3778 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (vector 1 (vector 0 ))))))))) -(define Name-Core-with--2643-3765 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (Name-Core-with--2657-3778 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0)))) (else (vector 0 )))))) -(define Name-Core-case--2234-3700 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Prelude-compare_Ord__Int arg-1 arg-3)) ((equal? sc0 2) 2) (else 0))))) -(define Name-Core-case--2234-3660 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Prelude-compare_Ord__Int arg-1 arg-3)) ((equal? sc0 2) 2) (else 0))))) -(define Name-Core-case--2234-3616 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-1 arg-3)) ((equal? sc0 2) 2) (else 0))))) -(define Name-Core-case--2234-3560 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Name-Core-compare_Ord__Name arg-1 arg-3)) ((equal? sc0 2) 2) (else 0))))) -(define Name-Core-case--2234-3520 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Prelude-compare_Ord__String arg-1 arg-3)) ((equal? sc0 2) 2) (else 0))))) -(define Name-Core-case--2234-3472 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-1 arg-3)) ((equal? sc0 2) 2) (else 0))))) -(define Name-Core-case--2239-3433 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define Name-Core-case--2240-3419 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) +(define Name-Core-with--2716-4196 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) +(define Name-Core-with--3094-4169 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (vector 0 )) (else (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (vector 1 (vector 0 ))))))))) +(define Name-Core-with--2716-4148 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (vector 0 )) (else (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (Name-Core-with--3094-4169 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))))))) +(define Name-Core-with--3039-4121 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (vector 0 )) (else (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (vector 1 (vector 0 ))))))))) +(define Name-Core-with--2716-4100 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (vector 0 )) (else (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (Name-Core-with--3039-4121 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))))))) +(define Name-Core-with--2988-4080 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (vector 1 (vector 0 ))))))))) +(define Name-Core-with--2716-4056 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (vector 0 )) (else (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (Name-Core-with--2988-4080 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0)))))))) +(define Name-Core-with--2716-4022 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) +(define Name-Core-with--2907-3996 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) +(define Name-Core-with--2716-3985 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (Name-Core-with--2907-3996 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0)))) (else (vector 0 )))))) +(define Name-Core-with--2859-3955 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) +(define Name-Core-with--2716-3944 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (Name-Core-with--2859-3955 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))) (else (vector 0 )))))) +(define Name-Core-with--2808-3915 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) +(define Name-Core-with--2716-3900 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (Name-Core-with--2808-3915 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))) (else (vector 0 )))))) +(define Name-Core-with--2716-3873 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) +(define Name-Core-with--2730-3847 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (vector 1 (vector 0 ))))))))) +(define Name-Core-with--2716-3834 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (Name-Core-with--2730-3847 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0)))) (else (vector 0 )))))) +(define Name-Core-case--2307-3769 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Prelude-compare_Ord__Int arg-1 arg-3)) ((equal? sc0 2) 2) (else 0))))) +(define Name-Core-case--2307-3729 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Prelude-compare_Ord__Int arg-1 arg-3)) ((equal? sc0 2) 2) (else 0))))) +(define Name-Core-case--2307-3685 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-1 arg-3)) ((equal? sc0 2) 2) (else 0))))) +(define Name-Core-case--2307-3629 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Name-Core-compare_Ord__Name arg-1 arg-3)) ((equal? sc0 2) 2) (else 0))))) +(define Name-Core-case--2307-3589 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Prelude-compare_Ord__String arg-1 arg-3)) ((equal? sc0 2) 2) (else 0))))) +(define Name-Core-case--2307-3541 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-1 arg-3)) ((equal? sc0 2) 2) (else 0))))) +(define Name-Core-case--2312-3502 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) +(define Name-Core-case--2313-3488 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) +(define Name-Core-case--1861-3056 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) arg-2) (else (vector 1 arg-4 (Name-Core-n--1853-3040-updateNS arg-0 arg-1 arg-2 arg-3 arg-6 arg-5))))))) +(define Name-Core-n--1853-3040-updateNS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (Name-Core-case--1861-3056 arg-0 arg-1 arg-2 arg-3 e-1 e-2 arg-4 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-4 (vector 1 e-1 e-2)))))) (else (vector 0 )))))) (define Name-Core-show_Show__Name (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((5) (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-0)) (Strings-Prelude-C-43C-43 ".(" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-1) ")"))))(else (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-0)) (Strings-Prelude-C-43C-43 "." (Name-Core-show_Show__Name e-1))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) e-2)) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "{" (Strings-Prelude-C-43C-43 e-3 (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-4) "}"))))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "{P:" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-6) "}"))))))) ((4) (let ((e-7 (vector-ref sc0 1))) e-7)) ((5) (let ((e-9 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "." e-9))) ((6) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 e-10)) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-20) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-21) (Strings-Prelude-C-43C-43 ":" (Name-Core-show_Show__Name e-11))))))))))) ((7) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "case block in " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-12) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-13) ")"))))))) ((8) (let ((e-14 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "with block in " (Prelude-show_Show__Int e-14)))) (else (let ((e-16 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "$resolved" (Prelude-show_Show__Int e-16)))))))) (define Name-Core-showPrec_Show__Name (lambda (arg-0 arg-1) (Name-Core-show_Show__Name arg-1))) -(define Name-Core-min_Ord__Name (lambda (arg-0 arg-1) (Name-Core-case--2240-3419 arg-1 arg-0 (Name-Core-C-60_Ord__Name arg-0 arg-1)))) -(define Name-Core-max_Ord__Name (lambda (arg-0 arg-1) (Name-Core-case--2239-3433 arg-1 arg-0 (Name-Core-C-62_Ord__Name arg-0 arg-1)))) -(define Name-Core-compare_Ord__Name (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (vector-ref sc1 2))) (Name-Core-case--2234-3472 e-1 e-0 e-18 e-17 (Name-Core-compare_Ord__Name e-1 e-18)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1)))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-19 (vector-ref sc1 1))) (Prelude-compare_Ord__String e-2 e-19)))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1))))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (Name-Core-case--2234-3520 e-4 e-3 e-21 e-20 (Prelude-compare_Ord__Int e-4 e-21)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1)))))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (Name-Core-case--2234-3560 e-6 e-5 e-23 e-22 (Prelude-compare_Ord__Int e-6 e-23)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1)))))))) ((4) (let ((e-8 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-25 (vector-ref sc1 2))) (Name-Core-compare_Ord__Name e-8 e-25)))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1))))))) ((5) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-26 (vector-ref sc1 1))) (Prelude-compare_Ord__String e-9 e-26)))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1))))))) ((6) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-27 (vector-ref sc1 1))) (let ((e-28 (vector-ref sc1 2))) (Name-Core-case--2234-3616 e-11 e-10 e-28 e-27 (Name-Core-compare_Ord__Name e-11 e-28)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1)))))))) ((7) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (Name-Core-case--2234-3660 e-13 e-12 e-30 e-29 (Prelude-compare_Ord__Int e-13 e-30)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1)))))))) ((8) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (Name-Core-case--2234-3700 e-15 e-14 e-32 e-31 (Prelude-compare_Ord__Int e-15 e-32)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1)))))))) ((9) (let ((e-16 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-33 (vector-ref sc1 1))) (Prelude-compare_Ord__Int e-16 e-33)))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1)))))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1))))))) +(define Name-Core-min_Ord__Name (lambda (arg-0 arg-1) (Name-Core-case--2313-3488 arg-1 arg-0 (Name-Core-C-60_Ord__Name arg-0 arg-1)))) +(define Name-Core-max_Ord__Name (lambda (arg-0 arg-1) (Name-Core-case--2312-3502 arg-1 arg-0 (Name-Core-C-62_Ord__Name arg-0 arg-1)))) +(define Name-Core-compare_Ord__Name (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (vector-ref sc1 2))) (Name-Core-case--2307-3541 e-1 e-0 e-18 e-17 (Name-Core-compare_Ord__Name e-1 e-18)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1)))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-19 (vector-ref sc1 1))) (Prelude-compare_Ord__String e-2 e-19)))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1))))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (Name-Core-case--2307-3589 e-4 e-3 e-21 e-20 (Prelude-compare_Ord__Int e-4 e-21)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1)))))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (Name-Core-case--2307-3629 e-6 e-5 e-23 e-22 (Prelude-compare_Ord__Int e-6 e-23)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1)))))))) ((4) (let ((e-8 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-25 (vector-ref sc1 2))) (Name-Core-compare_Ord__Name e-8 e-25)))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1))))))) ((5) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-26 (vector-ref sc1 1))) (Prelude-compare_Ord__String e-9 e-26)))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1))))))) ((6) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-27 (vector-ref sc1 1))) (let ((e-28 (vector-ref sc1 2))) (Name-Core-case--2307-3685 e-11 e-10 e-28 e-27 (Name-Core-compare_Ord__Name e-11 e-28)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1)))))))) ((7) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (Name-Core-case--2307-3729 e-13 e-12 e-30 e-29 (Prelude-compare_Ord__Int e-13 e-30)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1)))))))) ((8) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (Name-Core-case--2307-3769 e-15 e-14 e-32 e-31 (Prelude-compare_Ord__Int e-15 e-32)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1)))))))) ((9) (let ((e-16 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-33 (vector-ref sc1 1))) (Prelude-compare_Ord__Int e-16 e-33)))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1)))))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1))))))) (define Name-Core-__Impl_Show_Name (lambda () (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))))) -(define Name-Core-__Impl_Ord_Name (lambda () (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Name-Core-compare_Ord__Name arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Name-Core-C-60_Ord__Name arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Name-Core-C-62_Ord__Name arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Name-Core-C-60C-61_Ord__Name arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Name-Core-C-62C-61_Ord__Name arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Name-Core-max_Ord__Name arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Name-Core-min_Ord__Name arg-787 arg-788)))))) -(define Name-Core-__Impl_Eq_Name (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))))) +(define Name-Core-__Impl_Ord_Name (lambda () (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Name-Core-compare_Ord__Name arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Name-Core-C-60_Ord__Name arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Name-Core-C-62_Ord__Name arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Name-Core-C-60C-61_Ord__Name arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Name-Core-C-62C-61_Ord__Name arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Name-Core-max_Ord__Name arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Name-Core-min_Ord__Name arg-795 arg-796)))))) +(define Name-Core-__Impl_Eq_Name (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))))) (define Name-Core-C-62_Ord__Name (lambda (arg-0 arg-1) (Prelude-C-61C-61_Eq__Ordering (Name-Core-compare_Ord__Name arg-0 arg-1) 2))) (define Name-Core-C-62C-61_Ord__Name (lambda (arg-0 arg-1) (Prelude-C-47C-61_Eq__Ordering (Name-Core-compare_Ord__Name arg-0 arg-1) 0))) -(define Name-Core-C-61C-61_Eq__Name (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (vector-ref sc1 2))) (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-1 e-18) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-0 e-17))))))(else 1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-19 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__String e-2 e-19)))(else 1))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-4 e-21) (lambda () (Prelude-C-61C-61_Eq__String e-3 e-20))))))(else 1)))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-22) (lambda () (Prelude-C-61C-61_Eq__Int e-6 e-23))))))(else 1)))))) ((4) (let ((e-8 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-25 (vector-ref sc1 2))) (Name-Core-C-61C-61_Eq__Name e-8 e-25)))(else 1))))) ((5) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-26 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__String e-9 e-26)))(else 1))))) ((6) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-27 (vector-ref sc1 1))) (let ((e-28 (vector-ref sc1 2))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) e-10 e-27) (lambda () (Name-Core-C-61C-61_Eq__Name e-11 e-28))))))(else 1)))))) ((7) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-13 e-30) (lambda () (Prelude-C-61C-61_Eq__Int e-12 e-29))))))(else 1)))))) ((8) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-15 e-32) (lambda () (Prelude-C-61C-61_Eq__Int e-14 e-31))))))(else 1)))))) ((9) (let ((e-16 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-33 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__Int e-16 e-33)))(else 1)))))(else 1))))) +(define Name-Core-C-61C-61_Eq__Name (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (vector-ref sc1 2))) (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-1 e-18) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) e-0 e-17))))))(else 1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-19 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__String e-2 e-19)))(else 1))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-4 e-21) (lambda () (Prelude-C-61C-61_Eq__String e-3 e-20))))))(else 1)))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-22) (lambda () (Prelude-C-61C-61_Eq__Int e-6 e-23))))))(else 1)))))) ((4) (let ((e-8 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-25 (vector-ref sc1 2))) (Name-Core-C-61C-61_Eq__Name e-8 e-25)))(else 1))))) ((5) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-26 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__String e-9 e-26)))(else 1))))) ((6) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-27 (vector-ref sc1 1))) (let ((e-28 (vector-ref sc1 2))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) e-10 e-27) (lambda () (Name-Core-C-61C-61_Eq__Name e-11 e-28))))))(else 1)))))) ((7) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-13 e-30) (lambda () (Prelude-C-61C-61_Eq__Int e-12 e-29))))))(else 1)))))) ((8) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-15 e-32) (lambda () (Prelude-C-61C-61_Eq__Int e-14 e-31))))))(else 1)))))) ((9) (let ((e-16 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-33 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__Int e-16 e-33)))(else 1)))))(else 1))))) (define Name-Core-C-60_Ord__Name (lambda (arg-0 arg-1) (Prelude-C-61C-61_Eq__Ordering (Name-Core-compare_Ord__Name arg-0 arg-1) 0))) (define Name-Core-C-60C-61_Ord__Name (lambda (arg-0 arg-1) (Prelude-C-47C-61_Eq__Ordering (Name-Core-compare_Ord__Name arg-0 arg-1) 2))) (define Name-Core-C-47C-61_Eq__Name (lambda (arg-0 arg-1) (Prelude-not (Name-Core-C-61C-61_Eq__Name arg-0 arg-1)))) @@ -1621,14 +1629,15 @@ (define Name-Core-showSep (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) e-2)(else (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 arg-0 (Name-Core-showSep arg-0 e-3))))))))))))) (define Name-Core-nameTag (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 0) ((1) 1) ((2) 2) ((3) 3) ((4) 4) ((5) 5) ((6) 6) ((7) 7) ((8) 8) (else 9))))) (define Name-Core-nameRoot (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (Name-Core-nameRoot e-1))) ((1) (let ((e-2 (vector-ref sc0 1))) e-2)) ((2) (let ((e-3 (vector-ref sc0 1))) e-3)) ((3) (let ((e-5 (vector-ref sc0 1))) (Name-Core-nameRoot e-5))) ((4) (let ((e-8 (vector-ref sc0 2))) (Name-Core-nameRoot e-8))) ((5) (let ((e-9 (vector-ref sc0 1))) e-9)) ((6) (let ((e-11 (vector-ref sc0 2))) (Name-Core-nameRoot e-11))) ((7) (let ((e-12 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "$" (Prelude-show_Show__Int e-12)))) ((8) (let ((e-14 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "$" (Prelude-show_Show__Int e-14)))) (else (let ((e-16 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "$" (Prelude-show_Show__Int e-16)))))))) -(define Name-Core-nameEq (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (vector-ref sc1 2))) (Name-Core-with--2643-3765 e-0 e-17 (List-Data-decEq_DecEq__C-40ListC-32C-36aC-41 'erased (lambda (eta-0) (lambda (eta-1) (Equality-Decidable-decEq_DecEq__String eta-0 eta-1))) e-0 e-17) e-1 e-18))))(else (vector 0 ))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-19 (vector-ref sc1 1))) (Name-Core-with--2643-3804 e-2 e-19 (Equality-Decidable-decEq_DecEq__String e-2 e-19))))(else (vector 0 )))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (Name-Core-with--2643-3831 e-3 e-20 (Equality-Decidable-decEq_DecEq__String e-3 e-20) e-4 e-21))))(else (vector 0 ))))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (Name-Core-with--2643-3875 e-5 e-22 (Name-Core-nameEq e-5 e-22) e-6 e-23))))(else (vector 0 ))))))) ((4) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (Name-Core-with--2643-3916 e-7 e-24 (Equality-Decidable-decEq_DecEq__String e-7 e-24) e-8 e-25))))(else (vector 0 ))))))) ((5) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-26 (vector-ref sc1 1))) (Name-Core-with--2643-3953 e-9 e-26 (Equality-Decidable-decEq_DecEq__String e-9 e-26))))(else (vector 0 )))))) ((6) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-27 (vector-ref sc1 1))) (let ((e-28 (vector-ref sc1 2))) (Name-Core-with--2643-3987 e-10 e-27 (Equality-Decidable-decEq_DecEq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-0) (lambda (eta-1) (Equality-Decidable-decEq_DecEq__Int eta-0 eta-1))) (lambda (eta-0) (lambda (eta-1) (Equality-Decidable-decEq_DecEq__Int eta-0 eta-1)))) e-10 e-27) e-11 e-28))))(else (vector 0 ))))))) ((7) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (Name-Core-with--2643-4031 e-12 e-29 (Equality-Decidable-decEq_DecEq__Int e-12 e-29) e-13 e-30))))(else (vector 0 ))))))) ((8) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (Name-Core-with--2643-4079 e-14 e-31 (Equality-Decidable-decEq_DecEq__Int e-14 e-31) e-15 e-32))))(else (vector 0 ))))))) ((9) (let ((e-16 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-33 (vector-ref sc1 1))) (Name-Core-with--2643-4127 e-16 e-33 (Equality-Decidable-decEq_DecEq__Int e-16 e-33))))(else (vector 0 ))))))(else (vector 0 )))))) +(define Name-Core-nameEq (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (vector-ref sc1 2))) (Name-Core-with--2716-3834 e-0 e-17 (List-Data-decEq_DecEq__C-40ListC-32C-36aC-41 'erased (lambda (eta-0) (lambda (eta-1) (Equality-Decidable-decEq_DecEq__String eta-0 eta-1))) e-0 e-17) e-1 e-18))))(else (vector 0 ))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-19 (vector-ref sc1 1))) (Name-Core-with--2716-3873 e-2 e-19 (Equality-Decidable-decEq_DecEq__String e-2 e-19))))(else (vector 0 )))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (Name-Core-with--2716-3900 e-3 e-20 (Equality-Decidable-decEq_DecEq__String e-3 e-20) e-4 e-21))))(else (vector 0 ))))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (Name-Core-with--2716-3944 e-5 e-22 (Name-Core-nameEq e-5 e-22) e-6 e-23))))(else (vector 0 ))))))) ((4) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (Name-Core-with--2716-3985 e-7 e-24 (Equality-Decidable-decEq_DecEq__String e-7 e-24) e-8 e-25))))(else (vector 0 ))))))) ((5) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-26 (vector-ref sc1 1))) (Name-Core-with--2716-4022 e-9 e-26 (Equality-Decidable-decEq_DecEq__String e-9 e-26))))(else (vector 0 )))))) ((6) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-27 (vector-ref sc1 1))) (let ((e-28 (vector-ref sc1 2))) (Name-Core-with--2716-4056 e-10 e-27 (Equality-Decidable-decEq_DecEq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-0) (lambda (eta-1) (Equality-Decidable-decEq_DecEq__Int eta-0 eta-1))) (lambda (eta-0) (lambda (eta-1) (Equality-Decidable-decEq_DecEq__Int eta-0 eta-1)))) e-10 e-27) e-11 e-28))))(else (vector 0 ))))))) ((7) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (Name-Core-with--2716-4100 e-12 e-29 (Equality-Decidable-decEq_DecEq__Int e-12 e-29) e-13 e-30))))(else (vector 0 ))))))) ((8) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (Name-Core-with--2716-4148 e-14 e-31 (Equality-Decidable-decEq_DecEq__Int e-14 e-31) e-15 e-32))))(else (vector 0 ))))))) ((9) (let ((e-16 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-33 (vector-ref sc1 1))) (Name-Core-with--2716-4196 e-16 e-33 (Equality-Decidable-decEq_DecEq__Int e-16 e-33))))(else (vector 0 ))))))(else (vector 0 )))))) (define Name-Core-isUserName (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((3) 1) ((2) 1) ((0) (let ((e-5 (vector-ref sc0 2))) (Name-Core-isUserName e-5))) ((4) (let ((e-7 (vector-ref sc0 2))) (Name-Core-isUserName e-7)))(else 0))))) (define Name-Core-dropNS (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) e-1))(else arg-0))))) +(define Name-Core-asName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 4 e-0 (Name-Core-asName arg-0 arg-1 e-1))))) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (Name-Core-n--1853-3040-updateNS e-3 e-2 arg-1 arg-0 arg-0 e-2) e-3))))(else arg-2))))) (define FC-Core-show_Show__FC (lambda (arg-0) (Strings-Prelude-C-43C-43 (FC-Core-file arg-0) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (FC-Core-showPos (FC-Core-startPos arg-0)) (Strings-Prelude-C-43C-43 "--" (FC-Core-showPos (FC-Core-endPos arg-0)))))))) (define FC-Core-showPrec_Show__FC (lambda (arg-0 arg-1) (FC-Core-show_Show__FC arg-1))) (define FC-Core-__Impl_Show_FC (lambda () (vector 0 (lambda (x) (FC-Core-show_Show__FC x)) (lambda (d) (lambda (x) (FC-Core-showPrec_Show__FC d x)))))) -(define FC-Core-C-61C-61_Eq__FC (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__String e-0 e-3) (lambda () (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) e-1 e-4) (lambda () (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) e-2 e-5)))))))))(else 1))))))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1))))(else 1))))) -(define FC-Core-within (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) (vector 0 e-2 e-3) e-5) (lambda () (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) (vector 0 e-2 e-3) e-6))))))(else 1))))))(else 1))))) +(define FC-Core-C-61C-61_Eq__FC (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__String e-0 e-3) (lambda () (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) e-1 e-4) (lambda () (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) e-2 e-5)))))))))(else 1))))))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1))))(else 1))))) +(define FC-Core-within (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) (vector 0 e-2 e-3) e-5) (lambda () (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) (vector 0 e-2 e-3) e-6))))))(else 1))))))(else 1))))) (define FC-Core-toplevelFC (lambda () (vector 0 "(toplevel)" (vector 0 0 0) (vector 0 0 0)))) (define FC-Core-startPos (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) e-1)) (else (vector 0 0 0)))))) (define FC-Core-showPos (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int (b+ e-2 1 63)) (Strings-Prelude-C-43C-43 ":" (Prelude-show_Show__Int (b+ e-3 1 63))))))))) @@ -1637,16 +1646,16 @@ (define FC-Core-endPos (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 3))) e-2)) (else (vector 0 0 0)))))) (define FC-Core-emptyFC (lambda () (vector 1 ))) (define FC-Core-FilePos (lambda () (vector "Builtin.Pair" (vector "Int" ) (vector "Int" )))) -(define Support-Parser-case--4583-2986 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 1 (integer->char 0))) (else (vector 0 )))))) -(define Support-Parser-case--4567-2964 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 1 (string-ref arg-1 0))) (else (Support-Parser-case--4583-2986 arg-0 arg-1 (Prelude-C-61C-61_Eq__Nat (Prelude-length arg-1) (Prelude-fromInteger_Num__Nat 0)))))))) -(define Support-Parser-case--4318-2865 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 1 e-1 (vector 0 ))))) (else (Support-Parser-escapeC-39 arg-0)))))) -(define Support-Parser-case--4354-2797 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 (vector 1 arg-3 arg-4)) (lambda (bind-0) (vector 1 (vector 1 e-1 bind-0)))))) (else (Support-Parser-escapeC-39 arg-0)))))) -(define Support-Parser-case--4318-2747 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 arg-4) (lambda (bind-0) (vector 1 (vector 1 e-1 bind-0)))))) (else (Support-Parser-case--4354-2797 arg-0 arg-1 arg-2 arg-3 arg-4 (Support-Parser-getEsc (Prelude-fastPack (vector 1 arg-1 (vector 1 arg-2 (vector 0 ))))))))))) -(define Support-Parser-case--3933-2715 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (Support-Parser-case--4318-2747 arg-0 e-6 e-9 e-12 e-13 (Support-Parser-getEsc (Prelude-fastPack (vector 1 e-6 (vector 1 e-9 (vector 1 e-12 (vector 0 )))))))))) ((0) (Support-Parser-case--4318-2865 arg-0 e-6 e-9 (Support-Parser-getEsc (Prelude-fastPack (vector 1 e-6 (vector 1 e-9 (vector 0 )))))))(else (Support-Parser-escapeC-39 e-3)))))))(else (Support-Parser-escapeC-39 e-3)))))))(else (Support-Parser-escapeC-39 e-3)))))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-3) (lambda (bind-0) (vector 1 (vector 1 (Prelude-cast_Cast__Int_Char (Prelude-cast_Cast__String_Int (Prelude-fastPack e-2))) bind-0)))))))))))) -(define Support-Parser-case--3933-2663 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Support-Parser-escapeC-39 e-3))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-n--3933-2621-toOct arg-0 1 (List-Data-reverse 'erased e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (Prelude-cast_Cast__Int_Char bind-0) bind-1)))))))))))))) -(define Support-Parser-case--3933-2571 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Support-Parser-escapeC-39 e-3))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-n--3933-2529-toHex arg-0 1 (List-Data-reverse 'erased e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (Prelude-cast_Cast__Int_Char bind-0) bind-1)))))))))))))) -(define Support-Parser-n--3933-2621-toOct (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-oct (Prelude-toLower e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-n--3933-2621-toOct arg-0 (b* arg-1 8 63) e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (b+ (b* bind-0 arg-1 63) bind-1 63))))))))))))) -(define Support-Parser-n--3933-2529-toHex (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-hex (Prelude-toLower e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-n--3933-2529-toHex arg-0 (b* arg-1 16 63) e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (b+ (b* bind-0 arg-1 63) bind-1 63))))))))))))) +(define Support-Parser-case--4589-2994 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 1 (integer->char 0))) (else (vector 0 )))))) +(define Support-Parser-case--4573-2972 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 1 (string-ref arg-1 0))) (else (Support-Parser-case--4589-2994 arg-0 arg-1 (Prelude-C-61C-61_Eq__Nat (Prelude-length arg-1) (Prelude-fromInteger_Num__Nat 0)))))))) +(define Support-Parser-case--4324-2873 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 1 e-1 (vector 0 ))))) (else (Support-Parser-escapeC-39 arg-0)))))) +(define Support-Parser-case--4360-2805 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 (vector 1 arg-3 arg-4)) (lambda (bind-0) (vector 1 (vector 1 e-1 bind-0)))))) (else (Support-Parser-escapeC-39 arg-0)))))) +(define Support-Parser-case--4324-2755 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 arg-4) (lambda (bind-0) (vector 1 (vector 1 e-1 bind-0)))))) (else (Support-Parser-case--4360-2805 arg-0 arg-1 arg-2 arg-3 arg-4 (Support-Parser-getEsc (Prelude-fastPack (vector 1 arg-1 (vector 1 arg-2 (vector 0 ))))))))))) +(define Support-Parser-case--3939-2723 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (Support-Parser-case--4324-2755 arg-0 e-6 e-9 e-12 e-13 (Support-Parser-getEsc (Prelude-fastPack (vector 1 e-6 (vector 1 e-9 (vector 1 e-12 (vector 0 )))))))))) ((0) (Support-Parser-case--4324-2873 arg-0 e-6 e-9 (Support-Parser-getEsc (Prelude-fastPack (vector 1 e-6 (vector 1 e-9 (vector 0 )))))))(else (Support-Parser-escapeC-39 e-3)))))))(else (Support-Parser-escapeC-39 e-3)))))))(else (Support-Parser-escapeC-39 e-3)))))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-3) (lambda (bind-0) (vector 1 (vector 1 (Prelude-cast_Cast__Int_Char (Prelude-cast_Cast__String_Int (Prelude-fastPack e-2))) bind-0)))))))))))) +(define Support-Parser-case--3939-2671 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Support-Parser-escapeC-39 e-3))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-n--3939-2629-toOct arg-0 1 (List-Data-reverse 'erased e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (Prelude-cast_Cast__Int_Char bind-0) bind-1)))))))))))))) +(define Support-Parser-case--3939-2579 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Support-Parser-escapeC-39 e-3))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-n--3939-2537-toHex arg-0 1 (List-Data-reverse 'erased e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (Prelude-cast_Cast__Int_Char bind-0) bind-1)))))))))))))) +(define Support-Parser-n--3939-2629-toOct (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-oct (Prelude-toLower e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-n--3939-2629-toOct arg-0 (b* arg-1 8 63) e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (b+ (b* bind-0 arg-1 63) bind-1 63))))))))))))) +(define Support-Parser-n--3939-2537-toHex (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-hex (Prelude-toLower e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-n--3939-2537-toHex arg-0 (b* arg-1 16 63) e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (b+ (b* bind-0 arg-1 63) bind-1 63))))))))))))) (define Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "Parse error: " (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 " (next tokens: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased arg-1 (List-Data-take 'erased (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) e-3)) ")"))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((sc2 e-13)) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (Strings-Prelude-C-43C-43 "Lex error at " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))) (vector 0 e-12 e-16)) (Strings-Prelude-C-43C-43 " input: " e-17))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "File error: " (File-System-show_Show__FileError e-7)))) (else (let ((e-9 (vector-ref sc0 1))) (let ((sc1 e-9)) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (Strings-Prelude-C-43C-43 "Lit error(s) at " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))) (vector 0 e-19 e-18)) (Strings-Prelude-C-43C-43 " input: " e-20))))))))))))) (define Support-Parser-showPrec_Show__C-40ParseErrorC-32C-36tokC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased arg-1 arg-3))) (define Support-Parser-__Impl_Show_C-40ParseErrorC-32C-36tokC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (x) (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased arg-1 x)) (lambda (d) (lambda (x) (Support-Parser-showPrec_Show__C-40ParseErrorC-32C-36tokC-41 'erased arg-1 d x)))))) @@ -1654,67 +1663,67 @@ (define Support-Parser-oct (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\0) (vector 1 0)) ((equal? sc0 #\1) (vector 1 1)) ((equal? sc0 #\2) (vector 1 2)) ((equal? sc0 #\3) (vector 1 3)) ((equal? sc0 #\4) (vector 1 4)) ((equal? sc0 #\5) (vector 1 5)) ((equal? sc0 #\6) (vector 1 6)) ((equal? sc0 #\7) (vector 1 7))(else (vector 0 )))))) (define Support-Parser-hex (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\0) (vector 1 0)) ((equal? sc0 #\1) (vector 1 1)) ((equal? sc0 #\2) (vector 1 2)) ((equal? sc0 #\3) (vector 1 3)) ((equal? sc0 #\4) (vector 1 4)) ((equal? sc0 #\5) (vector 1 5)) ((equal? sc0 #\6) (vector 1 6)) ((equal? sc0 #\7) (vector 1 7)) ((equal? sc0 #\8) (vector 1 8)) ((equal? sc0 #\9) (vector 1 9)) ((equal? sc0 #\a) (vector 1 10)) ((equal? sc0 #\b) (vector 1 11)) ((equal? sc0 #\c) (vector 1 12)) ((equal? sc0 #\d) (vector 1 13)) ((equal? sc0 #\e) (vector 1 14)) ((equal? sc0 #\f) (vector 1 15))(else (vector 0 )))))) (define Support-Parser-getEsc (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "NUL") (vector 1 (integer->char 0))) ((equal? sc0 "SOH") (vector 1 (integer->char 1))) ((equal? sc0 "STX") (vector 1 (integer->char 2))) ((equal? sc0 "ETX") (vector 1 (integer->char 3))) ((equal? sc0 "EOT") (vector 1 (integer->char 4))) ((equal? sc0 "ENQ") (vector 1 (integer->char 5))) ((equal? sc0 "ACK") (vector 1 (integer->char 6))) ((equal? sc0 "BEL") (vector 1 (integer->char 7))) ((equal? sc0 "BS") (vector 1 (integer->char 8))) ((equal? sc0 "HT") (vector 1 (integer->char 9))) ((equal? sc0 "LF") (vector 1 (integer->char 10))) ((equal? sc0 "VT") (vector 1 (integer->char 11))) ((equal? sc0 "FF") (vector 1 (integer->char 12))) ((equal? sc0 "CR") (vector 1 (integer->char 13))) ((equal? sc0 "SO") (vector 1 (integer->char 14))) ((equal? sc0 "SI") (vector 1 (integer->char 15))) ((equal? sc0 "DLE") (vector 1 (integer->char 16))) ((equal? sc0 "DC1") (vector 1 (integer->char 17))) ((equal? sc0 "DC2") (vector 1 (integer->char 18))) ((equal? sc0 "DC3") (vector 1 (integer->char 19))) ((equal? sc0 "DC4") (vector 1 (integer->char 20))) ((equal? sc0 "NAK") (vector 1 (integer->char 21))) ((equal? sc0 "SYN") (vector 1 (integer->char 22))) ((equal? sc0 "ETB") (vector 1 (integer->char 23))) ((equal? sc0 "CAN") (vector 1 (integer->char 24))) ((equal? sc0 "EM") (vector 1 (integer->char 25))) ((equal? sc0 "SUB") (vector 1 (integer->char 26))) ((equal? sc0 "ESC") (vector 1 (integer->char 27))) ((equal? sc0 "FS") (vector 1 (integer->char 28))) ((equal? sc0 "GS") (vector 1 (integer->char 29))) ((equal? sc0 "RS") (vector 1 (integer->char 30))) ((equal? sc0 "US") (vector 1 (integer->char 31))) ((equal? sc0 "SP") (vector 1 #\ )) ((equal? sc0 "DEL") (vector 1 (integer->char 127)))(else (vector 0 )))))) -(define Support-Parser-getCharLit (lambda (arg-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escape arg-0) (lambda (e) (Support-Parser-case--4567-2964 arg-0 e (Prelude-C-61C-61_Eq__Nat (Prelude-length e) (Prelude-fromInteger_Num__Nat 1))))))) -(define Support-Parser-escapeC-39 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 #\\) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-5)) (cond ((equal? sc3 #\\) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 #\\ bind-0))))) ((equal? sc3 #\&) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased bind-0)))) ((equal? sc3 #\a) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 7) bind-0))))) ((equal? sc3 #\b) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 8) bind-0))))) ((equal? sc3 #\f) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 12) bind-0))))) ((equal? sc3 #\n) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 10) bind-0))))) ((equal? sc3 #\r) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 13) bind-0))))) ((equal? sc3 #\t) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 9) bind-0))))) ((equal? sc3 #\v) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 11) bind-0))))) ((equal? sc3 #\') (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 #\' bind-0))))) ((equal? sc3 #\") (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 #\" bind-0))))) ((equal? sc3 #\x) (Support-Parser-case--3933-2571 e-6 (List-Data-span 'erased (lambda (eta-0) (Prelude-isHexDigit eta-0)) e-6))) ((equal? sc3 #\o) (Support-Parser-case--3933-2663 e-6 (List-Data-span 'erased (lambda (eta-0) (Prelude-isOctDigit eta-0)) e-6)))(else (Support-Parser-case--3933-2715 e-3 (List-Data-span 'erased (lambda (eta-0) (Prelude-isDigit eta-0)) e-3))))))))(else (Support-Parser-case--3933-2715 e-3 (List-Data-span 'erased (lambda (eta-0) (Prelude-isDigit eta-0)) e-3))))))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-3) (lambda (bind-0) (vector 1 (vector 1 e-2 bind-0)))))))))))))) +(define Support-Parser-getCharLit (lambda (arg-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escape arg-0) (lambda (e) (Support-Parser-case--4573-2972 arg-0 e (Prelude-C-61C-61_Eq__Nat (Prelude-length e) (Prelude-fromInteger_Num__Nat 1))))))) +(define Support-Parser-escapeC-39 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 #\\) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-5)) (cond ((equal? sc3 #\\) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 #\\ bind-0))))) ((equal? sc3 #\&) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased bind-0)))) ((equal? sc3 #\a) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 7) bind-0))))) ((equal? sc3 #\b) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 8) bind-0))))) ((equal? sc3 #\f) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 12) bind-0))))) ((equal? sc3 #\n) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 10) bind-0))))) ((equal? sc3 #\r) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 13) bind-0))))) ((equal? sc3 #\t) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 9) bind-0))))) ((equal? sc3 #\v) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 11) bind-0))))) ((equal? sc3 #\') (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 #\' bind-0))))) ((equal? sc3 #\") (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 #\" bind-0))))) ((equal? sc3 #\x) (Support-Parser-case--3939-2579 e-6 (List-Data-span 'erased (lambda (eta-0) (Prelude-isHexDigit eta-0)) e-6))) ((equal? sc3 #\o) (Support-Parser-case--3939-2671 e-6 (List-Data-span 'erased (lambda (eta-0) (Prelude-isOctDigit eta-0)) e-6)))(else (Support-Parser-case--3939-2723 e-3 (List-Data-span 'erased (lambda (eta-0) (Prelude-isDigit eta-0)) e-3))))))))(else (Support-Parser-case--3939-2723 e-3 (List-Data-span 'erased (lambda (eta-0) (Prelude-isDigit eta-0)) e-3))))))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-3) (lambda (bind-0) (vector 1 (vector 1 e-2 bind-0)))))))))))))) (define Support-Parser-escape (lambda (arg-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 (Prelude-unpack arg-0)) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (Prelude-fastPack bind-0)))))) -(define Parser-Text-case--2103-364 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 1 (let ((sc1 (Builtin-snd 'erased 'erased arg-1))) (let ((e-2 (vector-ref sc1 2))) ((e-2 arg-2) arg-4))))) (else (vector 0 )))))) -(define Parser-Text-case--2086-346 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((lamc-0 (vector 0 e-1 e-2))) (Parser-Text-case--2103-364 'erased arg-1 arg-2 e-1 e-2 lamc-0 (let ((sc1 (Builtin-fst 'erased 'erased arg-1))) (let ((e-4 (vector-ref sc1 1))) ((e-4 e-1) arg-2)))))))))) +(define Parser-Text-case--2105-372 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 1 (let ((sc1 (Builtin-snd 'erased 'erased arg-1))) (let ((e-2 (vector-ref sc1 2))) ((e-2 arg-2) arg-4))))) (else (vector 0 )))))) +(define Parser-Text-case--2088-354 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((lamc-0 (vector 0 e-1 e-2))) (Parser-Text-case--2105-372 'erased arg-1 arg-2 e-1 e-2 lamc-0 (let ((sc1 (Builtin-fst 'erased 'erased arg-1))) (let ((e-4 (vector-ref sc1 1))) ((e-4 e-1) arg-2)))))))))) (define Parser-Text-some (lambda (arg-0 arg-1 arg-2) (vector 7 1 arg-2 (lambda () (lambda (bind-0) (vector 8 1 1 (Parser-Text-many 'erased 'erased arg-2) (lambda (bind-1) (vector 0 (vector 1 bind-0 bind-1))))))))) (define Parser-Text-sepBy1 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 8 (Prelude-C-124C-124 1 (lambda () arg-3)) 1 (vector 8 1 arg-3 (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1)))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-3 f arg-5))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 1 f (Parser-Text-many 'erased 'erased (vector 8 0 arg-3 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 (lambda (eta-0) (lambda (eta-1) eta-1)) arg-4) (lambda (f-0) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-3 f-0 arg-5))))))))) (define Parser-Text-sepBy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Parser-Text-option 'erased 'erased arg-3 (vector 0 ) (Parser-Text-sepBy1 'erased 'erased 'erased arg-3 arg-4 arg-5)))) (define Parser-Text-optional (lambda (arg-0 arg-1 arg-2 arg-3) (Parser-Text-option 'erased 'erased arg-2 (vector 0 ) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-2 (lambda (eta-0) (vector 1 eta-0)) arg-3)))) (define Parser-Text-option (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (vector 9 1 1 arg-4 (lambda () (vector 0 arg-3)))) (else (vector 9 0 1 arg-4 (lambda () (vector 0 arg-3)))))))) -(define Parser-Text-match (lambda (arg-0 arg-1 arg-2) (vector 1 "Unrecognised input" (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((lamc-1 (vector 0 e-1 e-2))) (Parser-Text-case--2103-364 'erased arg-1 arg-2 e-1 e-2 lamc-1 (let ((sc1 (Builtin-fst 'erased 'erased arg-1))) (let ((e-4 (vector-ref sc1 1))) ((e-4 e-1) arg-2)))))))))))) +(define Parser-Text-match (lambda (arg-0 arg-1 arg-2) (vector 1 "Unrecognised input" (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((lamc-1 (vector 0 e-1 e-2))) (Parser-Text-case--2105-372 'erased arg-1 arg-2 e-1 e-2 lamc-1 (let ((sc1 (Builtin-fst 'erased 'erased arg-1))) (let ((e-4 (vector-ref sc1 1))) ((e-4 e-1) arg-2)))))))))))) (define Parser-Text-many (lambda (arg-0 arg-1 arg-2) (Parser-Text-option 'erased 'erased 0 (vector 0 ) (Parser-Text-some 'erased 'erased arg-2)))) (define Parser-Text-count1 (lambda (arg-0 arg-1 arg-2 arg-3) (vector 7 (Prelude-C-124C-124 (Nat-Data-isSucc (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0))) (lambda () 1)) arg-3 (lambda () (lambda (x) (vector 8 (Nat-Data-isSucc (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0))) 1 (Parser-Text-count 'erased 'erased arg-2 arg-3) (lambda (xs) (vector 0 (vector 1 x xs))))))))) (define Parser-Text-count (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (cond ((equal? sc1 0) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((0) (Parser-Text-many 'erased 'erased arg-3)) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 0) (vector 0 (vector 0 )))(else (let ((e-6 (- e-5 1))) (Parser-Text-option 'erased 'erased 0 (vector 0 ) (Parser-Text-count1 'erased 'erased (Quantity-Text-atMost e-6) arg-3)))))))))))(else (let ((e-2 (- e-0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (Parser-Text-count1 'erased 'erased (Quantity-Text-atLeast e-2) arg-3)) (else (let ((e-9 (vector-ref sc1 1))) (let ((sc2 e-9)) (cond ((equal? sc2 0) (vector 4 1 "Quantity out of order"))(else (let ((e-10 (- e-9 1))) (Parser-Text-count1 'erased 'erased (Quantity-Text-between (+ 1 e-2) e-10) arg-3)))))))))))))))))) (define Parser-Text-choiceMap (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (let ((e-1 (vector-ref sc0 1))) (((((e-1 'erased) 'erased) (lambda (x) (lambda (acc) (vector 9 arg-4 arg-4 (arg-5 x) (lambda () acc))))) (vector 4 1 "No more options")) arg-7))))) (define Parser-Text-choice (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (Parser-Text-choiceMap 'erased 'erased 'erased 'erased arg-4 (lambda (eta-0) eta-0) arg-3 ext-0))) -(define Core-Parser-Text-case--3315-1803 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (vector 0 (vector 0 e-4 e-5))))) (else (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (vector 1 (vector 0 e-9 e-10))))))))) -(define Core-Parser-Text-case--3151-1715 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (vector 0 e-2 e-3 e-4 e-5)))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (vector 1 e-8 e-9 e-10))))))))) -(define Core-Parser-Text-case--2434-1654 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (vector 0 e-2 e-3 e-4 e-5)))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (Core-Parser-Text-case--3151-1715 'erased 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 'erased e-9 e-10 e-8 (Core-Parser-Text-doParse 'erased 'erased 'erased e-8 ((arg-4) e-9) e-10)))))))))) -(define Core-Parser-Text-case--2959-1555 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (vector 0 e-2 e-3 e-4 e-5)))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (vector 1 e-8 e-9 e-10))))))))) -(define Core-Parser-Text-case--2434-1490 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (vector 0 e-2 e-3 e-4 e-5)))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (Core-Parser-Text-case--2959-1555 'erased 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased e-9 e-10 e-8 (Core-Parser-Text-doParse 'erased 'erased 'erased e-8 (arg-5 e-9) e-10)))))))))) -(define Core-Parser-Text-case--2794-1376 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (vector 0 arg-7 arg-11 arg-10 arg-9)) (else (Core-Parser-Text-doParse 'erased 'erased 'erased 1 (arg-3) arg-6)))))) -(define Core-Parser-Text-case--2434-1352 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (Core-Parser-Text-case--2794-1376 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased e-5 e-4 e-3 e-2 (Prelude-C-124C-124 e-2 (lambda () e-3)))))))) (else (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (vector 1 arg-7 e-9 e-10)))))))) -(define Core-Parser-Text-case--2434-1281 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 1 arg-5 arg-3 (vector 1 arg-3 arg-4))) (else (vector 0 arg-5 1 arg-2 (vector 1 arg-3 arg-4))))))) -(define Core-Parser-Text-case--2434-1166 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 arg-6 1 arg-3 (vector 1 arg-4 arg-5))) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 arg-6 e-2 arg-5))))))) -(define Core-Parser-Text-case--2434-1100 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (vector 0 e-2 0 e-4 e-5)))))(else arg-6))))) +(define Core-Parser-Text-case--3318-1812 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (vector 0 (vector 0 e-4 e-5))))) (else (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (vector 1 (vector 0 e-9 e-10))))))))) +(define Core-Parser-Text-case--3154-1724 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (vector 0 e-2 e-3 e-4 e-5)))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (vector 1 e-8 e-9 e-10))))))))) +(define Core-Parser-Text-case--2437-1663 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (vector 0 e-2 e-3 e-4 e-5)))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (Core-Parser-Text-case--3154-1724 'erased 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 'erased e-9 e-10 e-8 (Core-Parser-Text-doParse 'erased 'erased 'erased e-8 ((arg-4) e-9) e-10)))))))))) +(define Core-Parser-Text-case--2962-1564 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (vector 0 e-2 e-3 e-4 e-5)))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (vector 1 e-8 e-9 e-10))))))))) +(define Core-Parser-Text-case--2437-1499 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (vector 0 e-2 e-3 e-4 e-5)))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (Core-Parser-Text-case--2962-1564 'erased 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased e-9 e-10 e-8 (Core-Parser-Text-doParse 'erased 'erased 'erased e-8 (arg-5 e-9) e-10)))))))))) +(define Core-Parser-Text-case--2797-1385 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (vector 0 arg-7 arg-11 arg-10 arg-9)) (else (Core-Parser-Text-doParse 'erased 'erased 'erased 1 (arg-3) arg-6)))))) +(define Core-Parser-Text-case--2437-1361 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (Core-Parser-Text-case--2797-1385 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased e-5 e-4 e-3 e-2 (Prelude-C-124C-124 e-2 (lambda () e-3)))))))) (else (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (vector 1 arg-7 e-9 e-10)))))))) +(define Core-Parser-Text-case--2437-1290 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 1 arg-5 arg-3 (vector 1 arg-3 arg-4))) (else (vector 0 arg-5 1 arg-2 (vector 1 arg-3 arg-4))))))) +(define Core-Parser-Text-case--2437-1175 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 arg-6 1 arg-3 (vector 1 arg-4 arg-5))) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 arg-6 e-2 arg-5))))))) +(define Core-Parser-Text-case--2437-1109 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (vector 0 e-2 0 e-4 e-5)))))(else arg-6))))) (define Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (cond ((equal? sc0 1) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-34 (vector-ref sc1 1))) (vector 0 (arg-4 e-34))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((4) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (vector 4 e-26 e-27)))) ((6) (let ((e-31 (vector-ref sc1 1))) (vector 6 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-3 arg-4 e-31))))(else (let ((sc1 arg-3)) (cond ((equal? sc1 0) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (vector 1 e-21 (lambda (t) (Prelude-map_Functor__Maybe 'erased 'erased arg-4 (e-22 t)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (let ((e-15 (vector-ref sc2 1))) (let ((e-16 (vector-ref sc2 2))) (let ((e-17 (vector-ref sc2 3))) (let ((e-18 (vector-ref sc2 4))) (vector 9 e-15 e-16 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-15 arg-4 e-17) (lambda () (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-16 arg-4 (e-18)))))))))(else (let ((sc2 arg-3)) (cond ((equal? sc2 0) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((7) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((e-12 (vector-ref sc3 3))) (vector 7 e-10 e-11 (lambda () (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-10 arg-4 ((e-12) val)))))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((8) (let ((e-3 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 3))) (let ((e-6 (vector-ref sc3 4))) (vector 8 e-3 e-4 e-5 (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-4 arg-4 (e-6 val)))))))))(else (let ((sc3 arg-3)) (cond (else (vector 8 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0))))))))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((8) (let ((e-3 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 3))) (let ((e-6 (vector-ref sc2 4))) (vector 8 e-3 e-4 e-5 (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-4 arg-4 (e-6 val)))))))))(else (let ((sc2 arg-3)) (cond (else (vector 8 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0))))))))))))))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (let ((e-15 (vector-ref sc1 1))) (let ((e-16 (vector-ref sc1 2))) (let ((e-17 (vector-ref sc1 3))) (let ((e-18 (vector-ref sc1 4))) (vector 9 e-15 e-16 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-15 arg-4 e-17) (lambda () (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-16 arg-4 (e-18)))))))))(else (let ((sc1 arg-3)) (cond ((equal? sc1 0) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((7) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (vector 7 e-10 e-11 (lambda () (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-10 arg-4 ((e-12) val)))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((8) (let ((e-3 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 3))) (let ((e-6 (vector-ref sc2 4))) (vector 8 e-3 e-4 e-5 (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-4 arg-4 (e-6 val)))))))))(else (let ((sc2 arg-3)) (cond (else (vector 8 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0))))))))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((8) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (let ((e-6 (vector-ref sc1 4))) (vector 8 e-3 e-4 e-5 (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-4 arg-4 (e-6 val)))))))))(else (let ((sc1 arg-3)) (cond (else (vector 8 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0))))))))))))))))))))))))))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((4) (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (vector 4 e-26 e-27)))) ((6) (let ((e-31 (vector-ref sc0 1))) (vector 6 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-3 arg-4 e-31))))(else (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (vector 1 e-21 (lambda (t) (Prelude-map_Functor__Maybe 'erased 'erased arg-4 (e-22 t)))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (let ((e-15 (vector-ref sc1 1))) (let ((e-16 (vector-ref sc1 2))) (let ((e-17 (vector-ref sc1 3))) (let ((e-18 (vector-ref sc1 4))) (vector 9 e-15 e-16 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-15 arg-4 e-17) (lambda () (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-16 arg-4 (e-18)))))))))(else (let ((sc1 arg-3)) (cond ((equal? sc1 0) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((7) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (vector 7 e-10 e-11 (lambda () (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-10 arg-4 ((e-12) val)))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((8) (let ((e-3 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 3))) (let ((e-6 (vector-ref sc2 4))) (vector 8 e-3 e-4 e-5 (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-4 arg-4 (e-6 val)))))))))(else (let ((sc2 arg-3)) (cond (else (vector 8 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0))))))))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((8) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (let ((e-6 (vector-ref sc1 4))) (vector 8 e-3 e-4 e-5 (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-4 arg-4 (e-6 val)))))))))(else (let ((sc1 arg-3)) (cond (else (vector 8 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0))))))))))))))))))))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((9) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (let ((e-18 (vector-ref sc0 4))) (vector 9 e-15 e-16 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-15 arg-4 e-17) (lambda () (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-16 arg-4 (e-18)))))))))(else (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((7) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (vector 7 e-10 e-11 (lambda () (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-10 arg-4 ((e-12) val)))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((8) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (let ((e-6 (vector-ref sc1 4))) (vector 8 e-3 e-4 e-5 (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-4 arg-4 (e-6 val)))))))))(else (let ((sc1 arg-3)) (cond (else (vector 8 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0))))))))))))))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((8) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (vector 8 e-3 e-4 e-5 (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-4 arg-4 (e-6 val)))))))))(else (let ((sc0 arg-3)) (cond (else (vector 8 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0))))))))))))))))))))))))))) (define Core-Parser-Text-__Impl_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 (lambda (arg-0 arg-1 ext-0 ext-1 ext-2 ext-3) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-1 ext-2 ext-3))) (define Core-Parser-Text-terminal (lambda (arg-0 arg-1 ext-0 ext-1) (vector 1 ext-0 ext-1))) (define Core-Parser-Text-seq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0 ext-1) (vector 8 arg-3 arg-4 ext-0 ext-1))) (define Core-Parser-Text-pure (lambda (arg-0 arg-1 ext-0) (vector 0 ext-0))) (define Core-Parser-Text-peek (lambda (arg-0) (vector 2 "Unrecognised token" (lambda (eta-0) 0)))) -(define Core-Parser-Text-parse (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Core-Parser-Text-case--3315-1803 'erased 'erased arg-2 arg-4 arg-3 (Core-Parser-Text-doParse 'erased 'erased 'erased 1 arg-3 arg-4)))) +(define Core-Parser-Text-parse (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Core-Parser-Text-case--3318-1812 'erased 'erased arg-2 arg-4 arg-3 (Core-Parser-Text-doParse 'erased 'erased 'erased 1 arg-3 arg-4)))) (define Core-Parser-Text-nextIs (lambda (arg-0 ext-0 ext-1) (vector 2 ext-0 ext-1))) (define Core-Parser-Text-mustWork (lambda (arg-0 arg-1 arg-2 ext-0) (vector 6 ext-0))) (define Core-Parser-Text-fatalError (lambda (arg-0 arg-1 arg-2 ext-0) (vector 4 0 ext-0))) (define Core-Parser-Text-fail (lambda (arg-0 arg-1 arg-2 ext-0) (vector 4 1 ext-0))) -(define Core-Parser-Text-doParse (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 1 arg-3 e-2 arg-5))) ((4) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (vector 0 arg-3 e-6 e-7 (vector 0 ))) (else (let ((e-42 (vector-ref sc1 1))) (let ((e-43 (vector-ref sc1 2))) (vector 0 arg-3 e-6 e-7 (vector 1 e-42 e-43)))))))))) ((5) (vector 1 0 (vector 0 ) arg-5)) ((6) (let ((e-12 (vector-ref sc0 1))) (let ((pC-39 (Core-Parser-Text-doParse 'erased 'erased 'erased arg-3 e-12 arg-5))) (let ((sc1 pC-39)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 4))) (vector 0 e-2 0 e-4 e-5)))))(else pC-39)))))) ((1) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (vector 0 arg-3 1 "End of input" (vector 0 ))) (else (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (Core-Parser-Text-case--2434-1166 'erased 'erased e-16 e-15 e-46 e-47 arg-3 'erased (e-16 e-46)))))))))) ((3) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (vector 1 arg-3 (vector 0 ) (vector 0 ))) (else (let ((e-50 (vector-ref sc1 1))) (let ((e-51 (vector-ref sc1 2))) (vector 0 arg-3 1 "Expected end of input" (vector 1 e-50 e-51)))))))) ((2) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (vector 0 arg-3 1 "End of input" (vector 0 ))) (else (let ((e-54 (vector-ref sc1 1))) (let ((e-55 (vector-ref sc1 2))) (Core-Parser-Text-case--2434-1281 'erased e-20 e-19 e-54 e-55 arg-3 'erased 'erased (e-20 e-54)))))))))) ((9) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (Core-Parser-Text-case--2434-1352 'erased 'erased e-24 e-26 e-23 e-25 arg-5 arg-3 'erased (Core-Parser-Text-doParse 'erased 'erased 'erased 1 e-25 arg-5))))))) ((8) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (let ((e-33 (vector-ref sc0 4))) (Core-Parser-Text-case--2434-1490 'erased 'erased 'erased e-30 e-31 e-33 e-32 arg-5 arg-3 'erased (Core-Parser-Text-doParse 'erased 'erased 'erased arg-3 e-32 arg-5))))))) (else (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (let ((e-39 (vector-ref sc0 3))) (Core-Parser-Text-case--2434-1654 'erased 'erased 'erased e-37 e-39 e-38 arg-5 arg-3 'erased (Core-Parser-Text-doParse 'erased 'erased 'erased arg-3 e-38 arg-5)))))))))) +(define Core-Parser-Text-doParse (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 1 arg-3 e-2 arg-5))) ((4) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (vector 0 arg-3 e-6 e-7 (vector 0 ))) (else (let ((e-42 (vector-ref sc1 1))) (let ((e-43 (vector-ref sc1 2))) (vector 0 arg-3 e-6 e-7 (vector 1 e-42 e-43)))))))))) ((5) (vector 1 0 (vector 0 ) arg-5)) ((6) (let ((e-12 (vector-ref sc0 1))) (let ((pC-39 (Core-Parser-Text-doParse 'erased 'erased 'erased arg-3 e-12 arg-5))) (let ((sc1 pC-39)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 4))) (vector 0 e-2 0 e-4 e-5)))))(else pC-39)))))) ((1) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (vector 0 arg-3 1 "End of input" (vector 0 ))) (else (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (Core-Parser-Text-case--2437-1175 'erased 'erased e-16 e-15 e-46 e-47 arg-3 'erased (e-16 e-46)))))))))) ((3) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (vector 1 arg-3 (vector 0 ) (vector 0 ))) (else (let ((e-50 (vector-ref sc1 1))) (let ((e-51 (vector-ref sc1 2))) (vector 0 arg-3 1 "Expected end of input" (vector 1 e-50 e-51)))))))) ((2) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (vector 0 arg-3 1 "End of input" (vector 0 ))) (else (let ((e-54 (vector-ref sc1 1))) (let ((e-55 (vector-ref sc1 2))) (Core-Parser-Text-case--2437-1290 'erased e-20 e-19 e-54 e-55 arg-3 'erased 'erased (e-20 e-54)))))))))) ((9) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (Core-Parser-Text-case--2437-1361 'erased 'erased e-24 e-26 e-23 e-25 arg-5 arg-3 'erased (Core-Parser-Text-doParse 'erased 'erased 'erased 1 e-25 arg-5))))))) ((8) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (let ((e-33 (vector-ref sc0 4))) (Core-Parser-Text-case--2437-1499 'erased 'erased 'erased e-30 e-31 e-33 e-32 arg-5 arg-3 'erased (Core-Parser-Text-doParse 'erased 'erased 'erased arg-3 e-32 arg-5))))))) (else (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (let ((e-39 (vector-ref sc0 3))) (Core-Parser-Text-case--2437-1663 'erased 'erased 'erased e-37 e-39 e-38 arg-5 arg-3 'erased (Core-Parser-Text-doParse 'erased 'erased 'erased arg-3 e-38 arg-5)))))))))) (define Core-Parser-Text-commit (lambda (arg-0) (vector 5 ))) (define Core-Parser-Text-C-62C-62C-61 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (cond ((equal? sc0 1) (lambda (eta-0) (lambda (eta-1) (vector 8 1 arg-4 eta-0 eta-1)))) (else (lambda (eta-0) (lambda (eta-1) (vector 7 arg-4 eta-0 eta-1)))))))) (define Core-Parser-Text-C-60C-124C-62 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0 ext-1) (vector 9 arg-2 arg-3 ext-0 ext-1))) (define Core-Parser-Text-C-60C-42C-62 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 8 arg-3 arg-4 arg-5 (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-4 f arg-6))))) (define Core-Parser-Text-C-60C-42 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 8 arg-3 arg-4 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-3 (lambda (eta-0) (lambda (eta-1) eta-0)) arg-5) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-4 f arg-6))))) (define Core-Parser-Text-C-42C-62 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 8 arg-3 arg-4 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-3 (lambda (eta-0) (lambda (eta-1) eta-1)) arg-5) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-4 f arg-6))))) -(define Common-Rule-Parser-case--1851-1942 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-3))))) +(define Common-Rule-Parser-case--1853-1951 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-3))))) (define Common-Rule-Parser-position (lambda (arg-0) (vector 8 1 1 (vector 2 "Unrecognised token" (lambda (eta-0) 0)) (lambda (tok) (vector 0 (vector 0 (vector 0 (let ((sc0 tok)) (let ((e-1 (vector-ref sc0 1))) e-1)) (let ((sc0 tok)) (let ((e-2 (vector-ref sc0 2))) e-2))) (vector 0 (let ((sc0 tok)) (let ((e-3 (vector-ref sc0 3))) e-3)) (let ((sc0 tok)) (let ((e-4 (vector-ref sc0 4))) e-4))))))))) (define Common-Rule-Parser-location (lambda (arg-0) (vector 8 1 1 (vector 2 "Unrecognised token" (lambda (eta-0) 0)) (lambda (tok) (vector 0 (vector 0 (let ((sc0 tok)) (let ((e-1 (vector-ref sc0 1))) e-1)) (let ((sc0 tok)) (let ((e-2 (vector-ref sc0 2))) e-2)))))))) (define Common-Rule-Parser-endLocation (lambda (arg-0) (vector 8 1 1 (vector 2 "Unrecognised token" (lambda (eta-0) 0)) (lambda (tok) (vector 0 (vector 0 (let ((sc0 tok)) (let ((e-3 (vector-ref sc0 3))) e-3)) (let ((sc0 tok)) (let ((e-4 (vector-ref sc0 4))) e-4)))))))) (define Common-Rule-Parser-column (lambda (arg-0) (vector 8 1 1 (Common-Rule-Parser-location arg-0) (lambda (_-0) (let ((sc0 _-0)) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-3))))))) (define Common-Rule-Parser-Rule (lambda (arg-0 arg-1) (vector "Text.Parser.Core.Grammar" (vector "Text.Lexer.Core.TokenData" arg-0) 0 arg-1))) -(define Source-Lexer-Parser-case--2869-1079 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (cond ((equal? sc3 "") (vector 1 (List-Prelude-C-43C-43 'erased (List-Data-filter 'erased (lambda (eta-0) (Source-Lexer-Parser-n--2869-1049-notComment arg-0 arg-1 eta-0)) e-2) (vector 1 (vector 0 e-6 e-10 e-6 e-10 (vector 12 )) (vector 0 )))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))(else (vector 0 e-3))))))))) -(define Source-Lexer-Parser-case--2872-1054 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((9) 1)(else 0))))) -(define Source-Lexer-Parser-case--2659-854 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Source-Lexer-Parser-n--2657-821-parseIdent e-1))(else (vector 6 arg-1)))))))(else (vector 6 arg-1)))))) -(define Source-Lexer-Parser-case--2658-829 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 13 arg-0)) (else (vector 5 arg-0)))))) -(define Source-Lexer-Parser-case--2619-802 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (Prelude-cast_Cast__Int_Integer e-2))))))) -(define Source-Lexer-Parser-case--2610-786 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) 0) (else (let ((num (Strings-Data-strTail (Strings-Data-strTail arg-0)))) (Source-Lexer-Parser-case--2619-802 arg-0 num (Octal-Utils-fromOct (Prelude-reverse num))))))))) -(define Source-Lexer-Parser-case--2572-758 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (Prelude-cast_Cast__Int_Integer e-2))))))) -(define Source-Lexer-Parser-case--2563-742 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) 0) (else (let ((num (Strings-Data-strTail (Strings-Data-strTail arg-0)))) (Source-Lexer-Parser-case--2572-758 arg-0 num (Hex-Utils-fromHex (Prelude-reverse num))))))))) -(define Source-Lexer-Parser-n--2657-822-parseNamespace (lambda (arg-0) (Source-Lexer-Parser-case--2659-854 arg-0 (List-Data-reverse 'erased (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 #\.)) arg-0))))) -(define Source-Lexer-Parser-n--2657-821-parseIdent (lambda (arg-0) (Source-Lexer-Parser-case--2658-829 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-0 (Source-Lexer-Parser-keywords))))) -(define Source-Lexer-Parser-n--2869-1049-notComment (lambda (arg-0 arg-1 arg-2) (Source-Lexer-Parser-case--2872-1054 arg-0 arg-1 arg-2 (let ((sc0 arg-2)) (let ((e-5 (vector-ref sc0 5))) e-5))))) +(define Source-Lexer-Parser-case--2870-1086 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (cond ((equal? sc3 "") (vector 1 (List-Prelude-C-43C-43 'erased (List-Data-filter 'erased (lambda (eta-0) (Source-Lexer-Parser-n--2870-1056-notComment arg-0 arg-1 eta-0)) e-2) (vector 1 (vector 0 e-6 e-10 e-6 e-10 (vector 12 )) (vector 0 )))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))(else (vector 0 e-3))))))))) +(define Source-Lexer-Parser-case--2873-1061 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((9) 1)(else 0))))) +(define Source-Lexer-Parser-case--2661-862 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Source-Lexer-Parser-n--2659-829-parseIdent e-1))(else (vector 6 arg-1)))))))(else (vector 6 arg-1)))))) +(define Source-Lexer-Parser-case--2660-837 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 13 arg-0)) (else (vector 5 arg-0)))))) +(define Source-Lexer-Parser-case--2621-810 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (Prelude-cast_Cast__Int_Integer e-2))))))) +(define Source-Lexer-Parser-case--2612-794 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) 0) (else (let ((num (Strings-Data-strTail (Strings-Data-strTail arg-0)))) (Source-Lexer-Parser-case--2621-810 arg-0 num ((Octal-Utils-fromOct) (Prelude-reverse num))))))))) +(define Source-Lexer-Parser-case--2574-766 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (Prelude-cast_Cast__Int_Integer e-2))))))) +(define Source-Lexer-Parser-case--2565-750 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) 0) (else (let ((num (Strings-Data-strTail (Strings-Data-strTail arg-0)))) (Source-Lexer-Parser-case--2574-766 arg-0 num ((Hex-Utils-fromHex) (Prelude-reverse num))))))))) +(define Source-Lexer-Parser-n--2659-830-parseNamespace (lambda (arg-0) (Source-Lexer-Parser-case--2661-862 arg-0 (List-Data-reverse 'erased (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 #\.)) arg-0))))) +(define Source-Lexer-Parser-n--2659-829-parseIdent (lambda (arg-0) (Source-Lexer-Parser-case--2660-837 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-0 (Source-Lexer-Parser-keywords))))) +(define Source-Lexer-Parser-n--2870-1056-notComment (lambda (arg-0 arg-1 arg-2) (Source-Lexer-Parser-case--2873-1061 arg-0 arg-1 arg-2 (let ((sc0 arg-2)) (let ((e-5 (vector-ref sc0 5))) e-5))))) (define Source-Lexer-Parser-show_Show__Token (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "character " (Prelude-show_Show__String e-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "double " (Prelude-show_Show__Double e-1)))) ((2) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "literal " (Prelude-show_Show__Integer e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "string " (Prelude-show_Show__String e-3)))) ((4) (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "hole identifier " e-4))) ((5) (let ((e-5 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "identifier " e-5))) ((6) (let ((e-6 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "namespaced identifier " (String-Utils-dotSep (List-Data-reverse 'erased e-6))))) ((7) (let ((e-7 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "record field " e-7))) ((8) (let ((e-8 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "symbol " e-8))) ((9) "comment") ((10) (let ((e-10 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "doc comment: \"" (Strings-Prelude-C-43C-43 e-10 "\"")))) ((11) (let ((e-11 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "CGDirective " e-11))) ((12) "end of input") ((13) (let ((e-12 (vector-ref sc0 1))) e-12)) ((14) (let ((e-13 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "pragma " e-13))) (else (let ((e-14 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Unrecognised " e-14))))))) (define Source-Lexer-Parser-showPrec_Show__Token (lambda (arg-0 arg-1) (Source-Lexer-Parser-show_Show__Token arg-1))) (define Source-Lexer-Parser-__Impl_Show_Token (lambda () (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))))) @@ -1725,185 +1734,194 @@ (define Source-Lexer-Parser-singleBrace (lambda (arg-0) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (vector 4 (vector 4 (Lexer-Text-is #\-) (lambda () (Lexer-Text-many (Lexer-Text-is #\-)))) (lambda () (Source-Lexer-Parser-singleDash (+ 1 arg-0)))) (Source-Lexer-Parser-toEndComment (+ 1 arg-0))))) (define Source-Lexer-Parser-reservedSymbols (lambda () (List-Prelude-C-43C-43 'erased (Source-Lexer-Parser-symbols) (vector 1 "%" (vector 1 "\\" (vector 1 ":" (vector 1 "=" (vector 1 "|" (vector 1 "|||" (vector 1 "<-" (vector 1 "->" (vector 1 "=>" (vector 1 "?" (vector 1 "!" (vector 1 "&" (vector 1 "**" (vector 1 ".." (vector 1 "~" (vector 0 ))))))))))))))))))) (define Source-Lexer-Parser-recField (lambda () (vector 4 (Lexer-Text-is #\.) (lambda () (Common-Lexer-Parser-identNormal))))) -(define Source-Lexer-Parser-rawTokens (lambda () (List-Prelude-C-43C-43 'erased (vector 1 (vector 0 (Common-Lexer-Parser-comment) (lambda (eta-0) (vector 9 eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-blockComment) (lambda (eta-0) (vector 9 eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-docComment) (lambda (eta-0) (vector 10 (Extra-String-Data-drop (+ 1 (+ 1 (+ 1 0))) eta-0)))) (vector 1 (vector 0 (Source-Lexer-Parser-cgDirective) (lambda (eta-0) (Source-Lexer-Parser-mkDirective eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-holeIdent) (lambda (x) (vector 4 (Strings-Data-strTail x)))) (vector 0 )))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 (Lexer-Text-exact x) (lambda (eta-0) (vector 8 eta-0)))) (Source-Lexer-Parser-symbols)) (vector 1 (vector 0 (Source-Lexer-Parser-doubleLit) (lambda (x) (vector 1 (Prelude-cast_Cast__String_Double x)))) (vector 1 (vector 0 (Lexer-Text-hexLit) (lambda (x) (vector 2 (Source-Lexer-Parser-fromHexLit x)))) (vector 1 (vector 0 (Lexer-Text-octLit) (lambda (x) (vector 2 (Source-Lexer-Parser-fromOctLit x)))) (vector 1 (vector 0 (Lexer-Text-digits) (lambda (x) (vector 2 (Prelude-cast_Cast__String_Integer x)))) (vector 1 (vector 0 (Lexer-Text-stringLit) (lambda (x) (vector 3 (String-Utils-stripQuotes x)))) (vector 1 (vector 0 (Lexer-Text-charLit) (lambda (x) (vector 0 (String-Utils-stripQuotes x)))) (vector 1 (vector 0 (Source-Lexer-Parser-recField) (lambda (x) (vector 7 (Strings-Data-strTail x)))) (vector 1 (vector 0 (Common-Lexer-Parser-namespacedIdent) (lambda (eta-0) (Source-Lexer-Parser-n--2657-822-parseNamespace eta-0))) (vector 1 (vector 0 (Common-Lexer-Parser-identNormal) (lambda (eta-0) (Source-Lexer-Parser-n--2657-821-parseIdent eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-pragma) (lambda (x) (vector 14 (Strings-Data-strTail x)))) (vector 1 (vector 0 (Lexer-Text-space) (lambda (eta-0) (vector 9 eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-validSymbol) (lambda (eta-0) (vector 8 eta-0))) (vector 1 (vector 0 (Lexer-Text-symbol) (lambda (eta-0) (vector 15 eta-0))) (vector 0 )))))))))))))))))) +(define Source-Lexer-Parser-rawTokens (lambda () (List-Prelude-C-43C-43 'erased (vector 1 (vector 0 (Common-Lexer-Parser-comment) (lambda (eta-0) (vector 9 eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-blockComment) (lambda (eta-0) (vector 9 eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-docComment) (lambda (eta-0) (vector 10 (Extra-String-Data-drop (+ 1 (+ 1 (+ 1 0))) eta-0)))) (vector 1 (vector 0 (Source-Lexer-Parser-cgDirective) (lambda (eta-0) (Source-Lexer-Parser-mkDirective eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-holeIdent) (lambda (x) (vector 4 (Strings-Data-strTail x)))) (vector 0 )))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 (Lexer-Text-exact x) (lambda (eta-0) (vector 8 eta-0)))) (Source-Lexer-Parser-symbols)) (vector 1 (vector 0 (Source-Lexer-Parser-doubleLit) (lambda (x) (vector 1 (Prelude-cast_Cast__String_Double x)))) (vector 1 (vector 0 (Lexer-Text-hexLit) (lambda (x) (vector 2 (Source-Lexer-Parser-fromHexLit x)))) (vector 1 (vector 0 (Lexer-Text-octLit) (lambda (x) (vector 2 (Source-Lexer-Parser-fromOctLit x)))) (vector 1 (vector 0 (Lexer-Text-digits) (lambda (x) (vector 2 (Prelude-cast_Cast__String_Integer x)))) (vector 1 (vector 0 (Lexer-Text-stringLit) (lambda (x) (vector 3 (String-Utils-stripQuotes x)))) (vector 1 (vector 0 (Lexer-Text-charLit) (lambda (x) (vector 0 (String-Utils-stripQuotes x)))) (vector 1 (vector 0 (Source-Lexer-Parser-recField) (lambda (x) (vector 7 (Strings-Data-strTail x)))) (vector 1 (vector 0 (Common-Lexer-Parser-namespacedIdent) (lambda (eta-0) (Source-Lexer-Parser-n--2659-830-parseNamespace eta-0))) (vector 1 (vector 0 (Common-Lexer-Parser-identNormal) (lambda (eta-0) (Source-Lexer-Parser-n--2659-829-parseIdent eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-pragma) (lambda (x) (vector 14 (Strings-Data-strTail x)))) (vector 1 (vector 0 (Lexer-Text-space) (lambda (eta-0) (vector 9 eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-validSymbol) (lambda (eta-0) (vector 8 eta-0))) (vector 1 (vector 0 (Lexer-Text-symbol) (lambda (eta-0) (vector 15 eta-0))) (vector 0 )))))))))))))))))) (define Source-Lexer-Parser-pragma (lambda () (vector 4 (Lexer-Text-is #\%) (lambda () (Common-Lexer-Parser-identNormal))))) (define Source-Lexer-Parser-mkDirective (lambda (arg-0) (vector 11 (Strings-Data-trim (Prelude-substr (+ 1 (+ 1 (+ 1 0))) (Prelude-length arg-0) arg-0))))) -(define Source-Lexer-Parser-lexTo (lambda (arg-0 arg-1) (Source-Lexer-Parser-case--2869-1079 arg-1 arg-0 (Core-Lexer-Text-lexTo 'erased arg-0 (Source-Lexer-Parser-rawTokens) arg-1)))) +(define Source-Lexer-Parser-lexTo (lambda (arg-0 arg-1) (Source-Lexer-Parser-case--2870-1086 arg-1 arg-0 (Core-Lexer-Text-lexTo 'erased arg-0 (Source-Lexer-Parser-rawTokens) arg-1)))) (define Source-Lexer-Parser-keywords (lambda () (vector 1 "data" (vector 1 "module" (vector 1 "where" (vector 1 "let" (vector 1 "in" (vector 1 "do" (vector 1 "record" (vector 1 "auto" (vector 1 "default" (vector 1 "implicit" (vector 1 "mutual" (vector 1 "namespace" (vector 1 "parameters" (vector 1 "with" (vector 1 "impossible" (vector 1 "case" (vector 1 "of" (vector 1 "if" (vector 1 "then" (vector 1 "else" (vector 1 "forall" (vector 1 "rewrite" (vector 1 "using" (vector 1 "interface" (vector 1 "implementation" (vector 1 "open" (vector 1 "import" (vector 1 "public" (vector 1 "export" (vector 1 "private" (vector 1 "infixl" (vector 1 "infixr" (vector 1 "infix" (vector 1 "prefix" (vector 1 "total" (vector 1 "partial" (vector 1 "covering" (vector 0 )))))))))))))))))))))))))))))))))))))))) -(define Source-Lexer-Parser-isOpChar (lambda (arg-0) (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Char arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Char arg-430 arg-431)))) arg-0 (Prelude-unpack ":!#$%&*+./<=>?@\\^|-~")))) +(define Source-Lexer-Parser-isOpChar (lambda (arg-0) (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Char arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Char arg-438 arg-439)))) arg-0 (Prelude-unpack ":!#$%&*+./<=>?@\\^|-~")))) (define Source-Lexer-Parser-holeIdent (lambda () (vector 4 (Lexer-Text-is #\?) (lambda () (Common-Lexer-Parser-identNormal))))) -(define Source-Lexer-Parser-fromOctLit (lambda (arg-0) (Source-Lexer-Parser-case--2610-786 arg-0 (Prelude-C-60C-61_Ord__Nat (Prelude-length arg-0) (Prelude-fromInteger_Num__Nat 2))))) -(define Source-Lexer-Parser-fromHexLit (lambda (arg-0) (Source-Lexer-Parser-case--2563-742 arg-0 (Prelude-C-60C-61_Ord__Nat (Prelude-length arg-0) (Prelude-fromInteger_Num__Nat 2))))) +(define Source-Lexer-Parser-fromOctLit (lambda (arg-0) (Source-Lexer-Parser-case--2612-794 arg-0 (Prelude-C-60C-61_Ord__Nat (Prelude-length arg-0) (Prelude-fromInteger_Num__Nat 2))))) +(define Source-Lexer-Parser-fromHexLit (lambda (arg-0) (Source-Lexer-Parser-case--2565-750 arg-0 (Prelude-C-60C-61_Ord__Nat (Prelude-length arg-0) (Prelude-fromInteger_Num__Nat 2))))) (define Source-Lexer-Parser-doubleLit (lambda () (let ((sc0 (Prelude-C-124C-124 0 (lambda () 0)))) (cond ((equal? sc0 1) (vector 5 (vector 4 (vector 4 (Lexer-Text-digits) (lambda () (Lexer-Text-is #\.))) (lambda () (Lexer-Text-digits))) (lambda () (Lexer-Text-opt (vector 4 (vector 4 (Lexer-Text-is #\e) (lambda () (Lexer-Text-opt (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-is #\-) (Lexer-Text-is #\+))))) (lambda () (Lexer-Text-digits))))))) (else (vector 4 (vector 4 (vector 4 (Lexer-Text-digits) (lambda () (Lexer-Text-is #\.))) (lambda () (Lexer-Text-digits))) (lambda () (Lexer-Text-opt (vector 4 (vector 4 (Lexer-Text-is #\e) (lambda () (Lexer-Text-opt (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-is #\-) (Lexer-Text-is #\+))))) (lambda () (Lexer-Text-digits))))))))))) (define Source-Lexer-Parser-doubleDash (lambda (arg-0) (vector 5 (Lexer-Text-many (Lexer-Text-is #\-)) (Lexer-Text-choice 'erased 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 1 (vector 4 (Lexer-Text-is #\}) (lambda () (Source-Lexer-Parser-toEndComment arg-0))) (vector 1 (vector 5 (Lexer-Text-many (Lexer-Text-isNot (integer->char 10))) (Source-Lexer-Parser-toEndComment (+ 1 arg-0))) (vector 0 ))))))) (define Source-Lexer-Parser-docComment (lambda () (let ((sc0 (Prelude-C-124C-124 0 (lambda () 0)))) (cond ((equal? sc0 1) (vector 5 (vector 4 (vector 4 (Lexer-Text-is #\|) (lambda () (Lexer-Text-is #\|))) (lambda () (Lexer-Text-is #\|))) (lambda () (Lexer-Text-many (Lexer-Text-isNot (integer->char 10)))))) (else (vector 4 (vector 4 (vector 4 (Lexer-Text-is #\|) (lambda () (Lexer-Text-is #\|))) (lambda () (Lexer-Text-is #\|))) (lambda () (Lexer-Text-many (Lexer-Text-isNot (integer->char 10)))))))))) (define Source-Lexer-Parser-cgDirective (lambda () (vector 4 (Lexer-Text-exact "%cg") (lambda () (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (let ((sc0 (Prelude-C-124C-124 (Prelude-C-124C-124 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () 0)) (lambda () 1)))) (cond ((equal? sc0 1) (vector 5 (let ((sc1 (Prelude-C-124C-124 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () 0)))) (cond ((equal? sc1 1) (vector 5 (let ((sc2 (Prelude-C-124C-124 0 (lambda () 1)))) (cond ((equal? sc2 1) (vector 5 (vector 4 (vector 4 (Lexer-Text-some (Lexer-Text-space)) (lambda () (Lexer-Text-some (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isAlphaNum eta-0)))))) (lambda () (Lexer-Text-many (Lexer-Text-space)))) (lambda () (Lexer-Text-is #\{)))) (else (vector 4 (vector 4 (vector 4 (Lexer-Text-some (Lexer-Text-space)) (lambda () (Lexer-Text-some (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isAlphaNum eta-0)))))) (lambda () (Lexer-Text-many (Lexer-Text-space)))) (lambda () (Lexer-Text-is #\{)))))) (lambda () (Lexer-Text-many (Lexer-Text-isNot #\}))))) (else (vector 4 (let ((sc2 (Prelude-C-124C-124 0 (lambda () 1)))) (cond ((equal? sc2 1) (vector 5 (vector 4 (vector 4 (Lexer-Text-some (Lexer-Text-space)) (lambda () (Lexer-Text-some (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isAlphaNum eta-0)))))) (lambda () (Lexer-Text-many (Lexer-Text-space)))) (lambda () (Lexer-Text-is #\{)))) (else (vector 4 (vector 4 (vector 4 (Lexer-Text-some (Lexer-Text-space)) (lambda () (Lexer-Text-some (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isAlphaNum eta-0)))))) (lambda () (Lexer-Text-many (Lexer-Text-space)))) (lambda () (Lexer-Text-is #\{)))))) (lambda () (Lexer-Text-many (Lexer-Text-isNot #\}))))))) (lambda () (Lexer-Text-is #\})))) (else (vector 4 (let ((sc1 (Prelude-C-124C-124 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () 0)))) (cond ((equal? sc1 1) (vector 5 (let ((sc2 (Prelude-C-124C-124 0 (lambda () 1)))) (cond ((equal? sc2 1) (vector 5 (vector 4 (vector 4 (Lexer-Text-some (Lexer-Text-space)) (lambda () (Lexer-Text-some (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isAlphaNum eta-0)))))) (lambda () (Lexer-Text-many (Lexer-Text-space)))) (lambda () (Lexer-Text-is #\{)))) (else (vector 4 (vector 4 (vector 4 (Lexer-Text-some (Lexer-Text-space)) (lambda () (Lexer-Text-some (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isAlphaNum eta-0)))))) (lambda () (Lexer-Text-many (Lexer-Text-space)))) (lambda () (Lexer-Text-is #\{)))))) (lambda () (Lexer-Text-many (Lexer-Text-isNot #\}))))) (else (vector 4 (let ((sc2 (Prelude-C-124C-124 0 (lambda () 1)))) (cond ((equal? sc2 1) (vector 5 (vector 4 (vector 4 (Lexer-Text-some (Lexer-Text-space)) (lambda () (Lexer-Text-some (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isAlphaNum eta-0)))))) (lambda () (Lexer-Text-many (Lexer-Text-space)))) (lambda () (Lexer-Text-is #\{)))) (else (vector 4 (vector 4 (vector 4 (Lexer-Text-some (Lexer-Text-space)) (lambda () (Lexer-Text-some (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isAlphaNum eta-0)))))) (lambda () (Lexer-Text-many (Lexer-Text-space)))) (lambda () (Lexer-Text-is #\{)))))) (lambda () (Lexer-Text-many (Lexer-Text-isNot #\}))))))) (lambda () (Lexer-Text-is #\})))))) (Lexer-Text-many (Lexer-Text-isNot (integer->char 10)))))))) (define Source-Lexer-Parser-blockComment (lambda () (vector 4 (vector 4 (Lexer-Text-is #\{) (lambda () (Lexer-Text-is #\-))) (lambda () (Source-Lexer-Parser-toEndComment (+ 1 0)))))) (define String-Utils-stripQuotes (lambda (arg-0) (Prelude-substr (+ 1 0) (Prelude-minus (Prelude-length arg-0) (+ 1 (+ 1 0))) arg-0))) -(define String-Utils-dotSep (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) e-2)(else (Strings-Prelude-C-43C-43 e-2 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) (Prelude-C-62C-62C-61_Monad__List 'erased 'erased e-3 (lambda (y) (Prelude-pure_Applicative__List 'erased (Strings-Prelude-C-43C-43 "." y)))))))))))))))) -(define Octal-Utils-n--1514-594-fromOctCharsC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Octal-Utils-fromOctDigit (Prelude-toLower e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Octal-Utils-n--1514-594-fromOctCharsC-39 (b* arg-0 8 63) e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (b+ (b* bind-0 arg-0 63) bind-1 63))))))))))))) +(define String-Utils-dotSep (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) e-2)(else (Strings-Prelude-C-43C-43 e-2 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (Prelude-neutral_Monoid__String)))) (Prelude-C-62C-62C-61_Monad__List 'erased 'erased e-3 (lambda (y) (Prelude-pure_Applicative__List 'erased (Strings-Prelude-C-43C-43 "." y)))))))))))))))) +(define Octal-Utils-n--1516-602-fromOctCharsC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Octal-Utils-fromOctDigit (Prelude-toLower e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Octal-Utils-n--1516-602-fromOctCharsC-39 (b* arg-0 8 63) e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (b+ (b* bind-0 arg-0 63) bind-1 63))))))))))))) (define Octal-Utils-fromOctDigit (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\0) (vector 1 0)) ((equal? sc0 #\1) (vector 1 1)) ((equal? sc0 #\2) (vector 1 2)) ((equal? sc0 #\3) (vector 1 3)) ((equal? sc0 #\4) (vector 1 4)) ((equal? sc0 #\5) (vector 1 5)) ((equal? sc0 #\6) (vector 1 6)) ((equal? sc0 #\7) (vector 1 7))(else (vector 0 )))))) -(define Octal-Utils-fromOctChars (lambda (ext-0) (Octal-Utils-n--1514-594-fromOctCharsC-39 1 ext-0))) -(define Octal-Utils-fromOct (lambda (ext-0) (Octal-Utils-fromOctChars (Prelude-unpack ext-0)))) -(define IntV-Views-Primitives-Data-case--1515-403 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Prelude-negate_Neg__Int (Prelude-div_Integral__Int arg-1 (Prelude-abs_Abs__Int arg-0)))) (else (Prelude-div_Integral__Int arg-1 arg-0)))))) -(define IntV-Views-Primitives-Data-divides (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 ))(else (let ((dividend (IntV-Views-Primitives-Data-case--1515-403 arg-1 arg-0 (Prelude-C-60_Ord__Int arg-1 0)))) (let ((remainder (Prelude-abs_Abs__Int (Prelude-C-45_Neg__Int arg-0 (b* dividend arg-1 63))))) (Builtin-believe_me 'erased 'erased (vector 1 dividend remainder (Builtin-believe_me 'erased 'erased (vector 0 ))))))))))) -(define Hex-Utils-with--1773-551 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (Hex-Utils-n--1771-542-asHexC-39 arg-0 e-1 (vector 1 (Hex-Utils-hexDigit e-2) arg-3))))))) -(define Hex-Utils-case--1823-598 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 (Prelude-pack (List-Data-replicate 'erased (Prelude-minus arg-1 (Prelude-length arg-0)) arg-2)) arg-0)) (else arg-0))))) -(define Hex-Utils-case--1771-580 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Prelude-pack (Hex-Utils-n--1771-542-asHexC-39 arg-0 arg-0 (vector 0 )))) (else "0"))))) -(define Hex-Utils-n--1937-701-fromHexCharsC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Hex-Utils-fromHexDigit (Prelude-toLower e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Hex-Utils-n--1937-701-fromHexCharsC-39 (b* arg-0 16 63) e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (b+ (b* bind-0 arg-0 63) bind-1 63))))))))))))) -(define Hex-Utils-n--1771-542-asHexC-39 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) arg-2)(else (Hex-Utils-with--1773-551 arg-1 arg-1 (IntV-Views-Primitives-Data-divides arg-1 16) arg-2)))))) -(define Hex-Utils-leftPad (lambda (arg-0 arg-1 arg-2) (Hex-Utils-case--1823-598 arg-2 arg-1 arg-0 (Prelude-C-60_Ord__Nat (Prelude-length arg-2) arg-1)))) +(define Octal-Utils-fromOctChars (lambda (ext-0) (Octal-Utils-n--1516-602-fromOctCharsC-39 1 ext-0))) +(define Octal-Utils-fromOct (lambda () (lambda (eta-0) (Basics-Prelude-C-46 'erased 'erased 'erased (lambda (eta-1) (Octal-Utils-fromOctChars eta-1)) (lambda (eta-1) (Prelude-unpack eta-1)) eta-0)))) +(define IntV-Views-Primitives-Data-case--1517-411 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Prelude-negate_Neg__Int (Prelude-div_Integral__Int arg-1 (Prelude-abs_Abs__Int arg-0)))) (else (Prelude-div_Integral__Int arg-1 arg-0)))))) +(define IntV-Views-Primitives-Data-divides (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 ))(else (let ((dividend (IntV-Views-Primitives-Data-case--1517-411 arg-1 arg-0 (Prelude-C-60_Ord__Int arg-1 0)))) (let ((remainder (Prelude-abs_Abs__Int (Prelude-C-45_Neg__Int arg-0 (b* dividend arg-1 63))))) (Builtin-believe_me 'erased 'erased (vector 1 dividend remainder (Builtin-believe_me 'erased 'erased (vector 0 ))))))))))) +(define Hex-Utils-with--1775-559 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (Hex-Utils-n--1773-550-asHexC-39 arg-0 e-1 (vector 1 (Hex-Utils-hexDigit e-2) arg-3))))))) +(define Hex-Utils-case--1825-606 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 (Prelude-pack (List-Data-replicate 'erased (Prelude-minus arg-1 (Prelude-length arg-0)) arg-2)) arg-0)) (else arg-0))))) +(define Hex-Utils-case--1773-588 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Prelude-pack (Hex-Utils-n--1773-550-asHexC-39 arg-0 arg-0 (vector 0 )))) (else "0"))))) +(define Hex-Utils-n--1939-709-fromHexCharsC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Hex-Utils-fromHexDigit (Prelude-toLower e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Hex-Utils-n--1939-709-fromHexCharsC-39 (b* arg-0 16 63) e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (b+ (b* bind-0 arg-0 63) bind-1 63))))))))))))) +(define Hex-Utils-n--1773-550-asHexC-39 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) arg-2)(else (Hex-Utils-with--1775-559 arg-1 arg-1 (IntV-Views-Primitives-Data-divides arg-1 16) arg-2)))))) +(define Hex-Utils-leftPad (lambda (arg-0 arg-1 arg-2) (Hex-Utils-case--1825-606 arg-2 arg-1 arg-0 (Prelude-C-60_Ord__Nat (Prelude-length arg-2) arg-1)))) (define Hex-Utils-hexDigit (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) #\0) ((equal? sc0 1) #\1) ((equal? sc0 2) #\2) ((equal? sc0 3) #\3) ((equal? sc0 4) #\4) ((equal? sc0 5) #\5) ((equal? sc0 6) #\6) ((equal? sc0 7) #\7) ((equal? sc0 8) #\8) ((equal? sc0 9) #\9) ((equal? sc0 10) #\a) ((equal? sc0 11) #\b) ((equal? sc0 12) #\c) ((equal? sc0 13) #\d) ((equal? sc0 14) #\e) ((equal? sc0 15) #\f)(else #\X))))) (define Hex-Utils-fromHexDigit (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\0) (vector 1 0)) ((equal? sc0 #\1) (vector 1 1)) ((equal? sc0 #\2) (vector 1 2)) ((equal? sc0 #\3) (vector 1 3)) ((equal? sc0 #\4) (vector 1 4)) ((equal? sc0 #\5) (vector 1 5)) ((equal? sc0 #\6) (vector 1 6)) ((equal? sc0 #\7) (vector 1 7)) ((equal? sc0 #\8) (vector 1 8)) ((equal? sc0 #\9) (vector 1 9)) ((equal? sc0 #\a) (vector 1 10)) ((equal? sc0 #\b) (vector 1 11)) ((equal? sc0 #\c) (vector 1 12)) ((equal? sc0 #\d) (vector 1 13)) ((equal? sc0 #\e) (vector 1 14)) ((equal? sc0 #\f) (vector 1 15))(else (vector 0 )))))) -(define Hex-Utils-fromHexChars (lambda (ext-0) (Hex-Utils-n--1937-701-fromHexCharsC-39 1 ext-0))) -(define Hex-Utils-fromHex (lambda (ext-0) (Hex-Utils-fromHexChars (Prelude-unpack ext-0)))) -(define Hex-Utils-asHex (lambda (arg-0) (Hex-Utils-case--1771-580 arg-0 (Prelude-C-62_Ord__Int arg-0 0)))) +(define Hex-Utils-fromHexChars (lambda (ext-0) (Hex-Utils-n--1939-709-fromHexCharsC-39 1 ext-0))) +(define Hex-Utils-fromHex (lambda () (lambda (eta-0) (Basics-Prelude-C-46 'erased 'erased 'erased (lambda (eta-1) (Hex-Utils-fromHexChars eta-1)) (lambda (eta-1) (Prelude-unpack eta-1)) eta-0)))) +(define Hex-Utils-asHex (lambda (arg-0) (Hex-Utils-case--1773-588 arg-0 (Prelude-C-62_Ord__Int arg-0 0)))) (define Extra-String-Data-join (lambda (arg-0 arg-1 arg-2 arg-3) (Extra-String-Data-drop (Prelude-length arg-1) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) (((((e-2 'erased) 'erased) (lambda (acc) (lambda (x) (Strings-Prelude-C-43C-43 acc (Strings-Prelude-C-43C-43 arg-1 x))))) "") arg-3)))))) (define Extra-String-Data-drop (lambda (arg-0 arg-1) (Prelude-substr arg-0 (Prelude-length arg-1) arg-1))) -(define Common-Lexer-Parser-case--1638-313 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-38C-38 (Common-Lexer-Parser-isIdentStart arg-1 e-2) (lambda () ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Common-Lexer-Parser-isIdentTrailing arg-1 eta-0))) e-3)))))))))) +(define Common-Lexer-Parser-case--1640-321 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-38C-38 (Common-Lexer-Parser-isIdentStart arg-1 e-2) (lambda () ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Common-Lexer-Parser-isIdentTrailing arg-1 eta-0))) e-3)))))))))) (define Common-Lexer-Parser-spacesOrNewlines (lambda () (Lexer-Text-some (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-space) (Lexer-Text-newline))))) (define Common-Lexer-Parser-namespacedIdent (lambda () (vector 4 (Common-Lexer-Parser-namespaceIdent) (lambda () (Lexer-Text-opt (vector 4 (Lexer-Text-is #\.) (lambda () (Common-Lexer-Parser-identNormal)))))))) -(define Common-Lexer-Parser-namespaceIdent (lambda () (vector 4 (vector 4 (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentStart (vector 1 ) eta-0))) (lambda () (Lexer-Text-many (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentTrailing (vector 1 ) eta-0)))))) (lambda () (Lexer-Text-many (vector 4 (vector 4 (Lexer-Text-is #\.) (lambda () (vector 4 (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentStart (vector 1 ) eta-0))) (lambda () (Lexer-Text-many (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentTrailing (vector 1 ) eta-0)))))))) (lambda () (Core-Lexer-Text-expect 'erased (Lexer-Text-is #\.))))))))) +(define Common-Lexer-Parser-namespaceIdent (lambda () (vector 4 (vector 4 (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentStart (vector 1 ) eta-0))) (lambda () (Basics-Prelude-C-46 'erased 'erased 'erased (lambda (eta-0) (Lexer-Text-many eta-0)) (lambda (eta-0) (Core-Lexer-Text-pred eta-0)) (lambda (eta-0) (Common-Lexer-Parser-isIdentTrailing (vector 1 ) eta-0))))) (lambda () (Lexer-Text-many (vector 4 (vector 4 (Lexer-Text-is #\.) (lambda () (vector 4 (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentStart (vector 1 ) eta-0))) (lambda () (Basics-Prelude-C-46 'erased 'erased 'erased (lambda (eta-0) (Lexer-Text-many eta-0)) (lambda (eta-0) (Core-Lexer-Text-pred eta-0)) (lambda (eta-0) (Common-Lexer-Parser-isIdentTrailing (vector 1 ) eta-0))))))) (lambda () (Core-Lexer-Text-expect 'erased (Lexer-Text-is #\.))))))))) (define Common-Lexer-Parser-isIdentTrailing (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (cond ((equal? sc1 #\-) 0)(else (let ((sc1 arg-1)) (cond ((equal? sc1 #\') 0) ((equal? sc1 #\_) 0)(else (Prelude-C-124C-124 (Prelude-isAlphaNum arg-1) (lambda () (Prelude-C-62_Ord__Char arg-1 (Prelude-chr 160)))))))))))(else (let ((sc0 arg-1)) (cond ((equal? sc0 #\') 0) ((equal? sc0 #\_) 0)(else (Prelude-C-124C-124 (Prelude-isAlphaNum arg-1) (lambda () (Prelude-C-62_Ord__Char arg-1 (Prelude-chr 160)))))))))))) (define Common-Lexer-Parser-isIdentStart (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 #\_) 0)(else (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (Prelude-C-124C-124 (Prelude-isUpper arg-1) (lambda () (Prelude-C-62_Ord__Char arg-1 (Prelude-chr 160)))))(else (Prelude-C-124C-124 (Prelude-isAlpha arg-1) (lambda () (Prelude-C-62_Ord__Char arg-1 (Prelude-chr 160)))))))))))) -(define Common-Lexer-Parser-isIdentNormal (lambda (ext-0) (Common-Lexer-Parser-case--1638-313 ext-0 (vector 2 ) (Prelude-unpack ext-0)))) -(define Common-Lexer-Parser-isIdent (lambda (arg-0 arg-1) (Common-Lexer-Parser-case--1638-313 arg-1 arg-0 (Prelude-unpack arg-1)))) -(define Common-Lexer-Parser-identNormal (lambda () (vector 4 (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentStart (vector 2 ) eta-0))) (lambda () (Lexer-Text-many (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentTrailing (vector 2 ) eta-0)))))))) -(define Common-Lexer-Parser-identAllowDashes (lambda () (vector 4 (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentStart (vector 0 ) eta-0))) (lambda () (Lexer-Text-many (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentTrailing (vector 0 ) eta-0)))))))) -(define Common-Lexer-Parser-ident (lambda (arg-0) (vector 4 (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentStart arg-0 eta-0))) (lambda () (Lexer-Text-many (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentTrailing arg-0 eta-0)))))))) +(define Common-Lexer-Parser-isIdentNormal (lambda (ext-0) (Common-Lexer-Parser-case--1640-321 ext-0 (vector 2 ) (Prelude-unpack ext-0)))) +(define Common-Lexer-Parser-isIdent (lambda (arg-0 arg-1) (Common-Lexer-Parser-case--1640-321 arg-1 arg-0 (Prelude-unpack arg-1)))) +(define Common-Lexer-Parser-identNormal (lambda () (vector 4 (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentStart (vector 2 ) eta-0))) (lambda () (Basics-Prelude-C-46 'erased 'erased 'erased (lambda (eta-0) (Lexer-Text-many eta-0)) (lambda (eta-0) (Core-Lexer-Text-pred eta-0)) (lambda (eta-0) (Common-Lexer-Parser-isIdentTrailing (vector 2 ) eta-0))))))) +(define Common-Lexer-Parser-identAllowDashes (lambda () (vector 4 (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentStart (vector 0 ) eta-0))) (lambda () (Basics-Prelude-C-46 'erased 'erased 'erased (lambda (eta-0) (Lexer-Text-many eta-0)) (lambda (eta-0) (Core-Lexer-Text-pred eta-0)) (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 () (Basics-Prelude-C-46 'erased 'erased 'erased (lambda (eta-0) (Lexer-Text-many eta-0)) (lambda (eta-0) (Core-Lexer-Text-pred eta-0)) (lambda (eta-0) (Common-Lexer-Parser-isIdentTrailing arg-0 eta-0))))))) (define Common-Lexer-Parser-comment (lambda () (let ((sc0 (Prelude-C-124C-124 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () 1)))) (cond ((equal? sc0 1) (vector 5 (let ((sc1 (Prelude-C-124C-124 0 (lambda () 1)))) (cond ((equal? sc1 1) (vector 5 (vector 4 (vector 4 (Lexer-Text-is #\-) (lambda () (Lexer-Text-is #\-))) (lambda () (Lexer-Text-many (Lexer-Text-is #\-)))) (lambda () (Core-Lexer-Text-reject 'erased (Lexer-Text-is #\}))))) (else (vector 4 (vector 4 (vector 4 (Lexer-Text-is #\-) (lambda () (Lexer-Text-is #\-))) (lambda () (Lexer-Text-many (Lexer-Text-is #\-)))) (lambda () (Core-Lexer-Text-reject 'erased (Lexer-Text-is #\}))))))) (lambda () (Lexer-Text-many (Lexer-Text-isNot (integer->char 10)))))) (else (vector 4 (let ((sc1 (Prelude-C-124C-124 0 (lambda () 1)))) (cond ((equal? sc1 1) (vector 5 (vector 4 (vector 4 (Lexer-Text-is #\-) (lambda () (Lexer-Text-is #\-))) (lambda () (Lexer-Text-many (Lexer-Text-is #\-)))) (lambda () (Core-Lexer-Text-reject 'erased (Lexer-Text-is #\}))))) (else (vector 4 (vector 4 (vector 4 (Lexer-Text-is #\-) (lambda () (Lexer-Text-is #\-))) (lambda () (Lexer-Text-many (Lexer-Text-is #\-)))) (lambda () (Core-Lexer-Text-reject 'erased (Lexer-Text-is #\}))))))) (lambda () (Lexer-Text-many (Lexer-Text-isNot (integer->char 10)))))))))) -(define Unelab-TTImp-case--6917-8544 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (lambda (eta-0) (vector 1 (vector 0 arg-5 (Normalise-Core-gType 'erased arg-8))))))) -(define Unelab-TTImp-case--9452-8481 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-9 arg-3 arg-4 e-2 arg-12 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 4 arg-3 arg-1 arg-2) arg-5))))))))) -(define Unelab-TTImp-case--6917-8442 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-11 arg-10 arg-8 arg-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 3 arg-9 arg-3 arg-4 e-6 e-2 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 4 arg-3 arg-1 arg-2) arg-5)))))))))))))))) -(define Unelab-TTImp-case--6917-8385 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (lambda (eta-0) (vector 1 (vector 0 arg-6 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 5 arg-3 arg-2) arg-5)))))))) -(define Unelab-TTImp-case--9181-8290 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (vector 1 (vector 1 "_"))) (else (vector 0 )))))) -(define Unelab-TTImp-case--9125-8211 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (vector 1 arg-4)) (else (Unelab-TTImp-case--9181-8290 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (Prelude-C-124C-124 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)) (lambda () (Unelab-TTImp-n--6917-8139-isDefImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 'erased arg-2))))))))) -(define Unelab-TTImp-case--6917-8168 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabPi arg-0 arg-11 arg-10 arg-8 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((nm (let ((_-0 (vector 0 e-2 e-3))) (Unelab-TTImp-case--9125-8211 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-3 e-2 _-0 e-5 (Prelude-C-124C-124 (Unelab-TTImp-used 'erased 0 arg-7) (lambda () (Unelab-TTImp-n--6917-8138-isNoSugar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-10))))))) (vector 1 (vector 0 (vector 1 arg-9 arg-3 e-5 nm e-2 arg-6) (Normalise-Core-gType 'erased arg-9))))))))))))))) -(define Unelab-TTImp-case--8976-8085 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-9 arg-3 arg-4 e-2 arg-12 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 1 arg-3 arg-1 arg-2) arg-5))))))))) -(define Unelab-TTImp-case--6917-8046 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-11 arg-10 arg-8 arg-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 3 arg-9 arg-3 arg-4 e-6 e-2 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 1 arg-3 arg-1 arg-2) arg-5)))))))))))))))) -(define Unelab-TTImp-case--6917-7981 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabPi arg-0 arg-11 arg-10 arg-8 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 2 arg-9 arg-3 e-5 (vector 1 arg-4) e-2 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 2 arg-3 arg-2 arg-1) arg-5)))))))))))))) -(define Unelab-TTImp-case--6914-7945 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 3 e-2))))))) -(define Unelab-TTImp-case--6911-7824 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 21 arg-3 e-2) (Normalise-Core-gErased 'erased arg-3)))))))))))) -(define Unelab-TTImp-case--6911-7773 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 20 arg-4 e-2) (Normalise-Core-gErased 'erased arg-4)))))))))))) -(define Unelab-TTImp-case--6911-7722 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 19 arg-3 arg-2 e-2) (Normalise-Core-gErased 'erased arg-3)))))))))))) -(define Unelab-TTImp-case--8411-7597 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 (vector 17 arg-4 arg-3 arg-14 arg-11) arg-12))))(else (lambda (eta-0) (vector 1 (vector 0 arg-11 arg-12)))))))) -(define Unelab-TTImp-case--8369-7566 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 0 (vector 17 arg-4 arg-3 e-1 arg-11) arg-12))))(else (lambda (eta-0) (vector 1 (vector 0 arg-11 arg-12))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-11 arg-12)))))))) -(define Unelab-TTImp-case--8328-7537 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 2))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 0 (vector 17 arg-4 arg-3 e-1 e-2) e-3))))(else (lambda (eta-0) (vector 1 (vector 0 e-2 e-3))))))))(else (lambda (eta-0) (vector 1 (vector 0 e-2 e-3))))))))))) -(define Unelab-TTImp-case--6911-7504 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-7 arg-6 arg-5 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (let ((e-1 (vector-ref sc3 2))) (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((1) (vector 1 (vector 0 (vector 17 arg-4 arg-3 e-1 e-6) e-4)))(else (vector 1 (vector 0 e-6 e-4)))))))(else (vector 1 (vector 0 e-6 e-4)))))))))))))))))) -(define Unelab-TTImp-case--8106-7352 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 8 arg-3 arg-7 arg-10) (Normalise-Core-glueBack arg-0 arg-14 arg-4 e-5))))))))))(else (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 9 arg-3 arg-7 (vector 1 e-2) arg-10) (Normalise-Core-glueBack arg-0 arg-14 arg-4 e-5))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 8 arg-3 arg-7 arg-10) (Normalise-Core-gErased 'erased arg-3)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 8 arg-3 arg-7 arg-10) (Normalise-Core-gErased 'erased arg-3))))))))) -(define Unelab-TTImp-case--8069-7309 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-6 arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-6))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 2))) (let ((e-7 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((2) (let ((e-10 (vector-ref sc4 2))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((act-26 (((e-4 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (vector 0 (vector 8 arg-3 arg-7 e-2) (Normalise-Core-glueBack arg-0 e-6 arg-4 e-12)))))))))(else (let ((act-26 (((e-4 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc5 1))) (vector 1 (vector 0 (vector 9 arg-3 arg-7 (vector 1 e-8) e-2) (Normalise-Core-glueBack arg-0 e-6 arg-4 e-12)))))))))))))(else (vector 1 (vector 0 (vector 8 arg-3 arg-7 e-2) (Normalise-Core-gErased 'erased arg-3))))))))))(else (vector 1 (vector 0 (vector 8 arg-3 arg-7 e-2) (Normalise-Core-gErased 'erased arg-3))))))))))))))))))))) -(define Unelab-TTImp-case--6911-7280 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-6 arg-5 arg-4 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-6 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (unbox arg-6))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 2))) (let ((e-10 (vector-ref sc5 3))) (let ((e-9 (vector-ref sc5 4))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((2) (let ((e-13 (vector-ref sc6 2))) (let ((sc7 e-13)) (case (vector-ref sc7 0) ((1) (let ((act-27 (((e-9 e-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-15 (vector-ref sc8 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc8 1))) (vector 1 (vector 0 (vector 8 arg-3 e-2 e-6) (Normalise-Core-glueBack arg-0 e-8 arg-4 e-15)))))))))(else (let ((act-27 (((e-9 e-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-15 (vector-ref sc7 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc7 1))) (vector 1 (vector 0 (vector 9 arg-3 e-2 (vector 1 e-11) e-6) (Normalise-Core-glueBack arg-0 e-8 arg-4 e-15)))))))))))))(else (vector 1 (vector 0 (vector 8 arg-3 e-2 e-6) (Normalise-Core-gErased 'erased arg-3))))))))))(else (vector 1 (vector 0 (vector 8 arg-3 e-2 e-6) (Normalise-Core-gErased 'erased arg-3))))))))))))))))))))))))))))) -(define Unelab-TTImp-case--7938-7191 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 0) (let ((xC-39 (Unelab-TTImp-n--6911-7084-uniqueLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-0 arg-1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-9) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 xC-39 arg-3 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) arg-2) arg-8 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 arg-1 arg-3 arg-2 arg-8 e-5) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-9) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 arg-1 arg-3 arg-2 arg-8 e-5) eta-0)))))))))))) -(define Unelab-TTImp-case--6911-7168 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-0 (vector-ref sc1 1))) (let ((sc2 e-0)) (cond ((equal? sc2 0) (let ((xC-39 (Unelab-TTImp-n--6911-7084-uniqueLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-0 arg-1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 xC-39 arg-3 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) arg-2) e-2 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 arg-1 arg-3 arg-2 e-2 e-5) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 arg-1 arg-3 arg-2 e-2 e-5) eta-0))))))))))))))) -(define Unelab-TTImp-case--7845-7110 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Unelab-TTImp-n--6911-7084-uniqueLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 (Unelab-TTImp-n--6911-7083-next arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8))) (else arg-8))))) -(define Unelab-TTImp-case--7703-7022 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 (vector 31 arg-4 0) (Normalise-Core-gErased 'erased arg-4)))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 29 arg-4 arg-9) (Normalise-Core-gErased 'erased arg-4))))))))) -(define Unelab-TTImp-case--6911-6967 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 29 arg-4 arg-9) (Normalise-Core-gnf arg-0 arg-5 (TT-Core-embed 'erased 'erased e-1))))))) (else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 0 (vector 31 arg-4 0) (Normalise-Core-gErased 'erased arg-4)))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 29 arg-4 arg-9) (Normalise-Core-gErased 'erased arg-4)))))))))))) -(define Unelab-TTImp-case--7563-6896 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 (vector 31 arg-3 0) (Normalise-Core-gErased 'erased arg-3)))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 arg-3 arg-1) (Normalise-Core-gErased 'erased arg-3))))))))) -(define Unelab-TTImp-case--6911-6843 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-6 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 0 arg-3 e-5) (Normalise-Core-gnf arg-0 arg-4 (TT-Core-embed 'erased 'erased e-1)))))))))))) (else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 0 (vector 31 arg-3 0) (Normalise-Core-gErased 'erased arg-3)))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 arg-3 arg-1) (Normalise-Core-gErased 'erased arg-3)))))))))))) -(define Unelab-TTImp-case--7417-6741 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((7) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabCase arg-4 (vector 0 e-2 (vector 7 e-4 e-5)) arg-6 arg-2 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 e-6 arg-3)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-3)))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-3))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-3)))))))) -(define Unelab-TTImp-case--6905-6723 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 2))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((7) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabCase arg-4 (vector 0 e-5 (vector 7 e-7 e-6)) e-3 arg-2 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-8 arg-3)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-3)))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-3))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-3))))))))))) -(define Unelab-TTImp-case--7190-6564 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (Unelab-TTImp-n--6903-6301-mkCase arg-0 arg-1 arg-2 arg-3 arg-10 arg-12 0 arg-1)) (else (lambda (eta-0) (vector 1 arg-0))))))) -(define Unelab-TTImp-case--7157-6528 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Unelab-TTImp-case--7190-6564 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-1 (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-1) (List-Data-length 'erased arg-8)))))(else (lambda (eta-0) (vector 1 arg-0))))))) -(define Unelab-TTImp-case--7136-6504 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (Unelab-TTImp-case--7157-6528 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-0 e-1 e-3 e-4 e-2 (Unelab-TTImp-n--6903-6296-findArgPos arg-0 arg-1 arg-2 arg-3 'erased e-2))))))))(else (lambda (eta-0) (vector 1 arg-0))))))) -(define Unelab-TTImp-case--6903-6489 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Unelab-TTImp-case--7136-6504 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 arg-0))))))) -(define Unelab-TTImp-case--6930-6356 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unelab-TTImp-n--6903-6297-idxOrDefault arg-0 arg-1 arg-2 arg-3 'erased arg-6 e-2 e-3)))))) -(define Unelab-TTImp-n--6744-6140-usedBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Prelude-C-124C-124 (Unelab-TTImp-used 'erased arg-5 e-2) (lambda () (Unelab-TTImp-used 'erased arg-5 e-3))))))(else (Unelab-TTImp-used 'erased arg-5 (TT-Core-binderType 'erased arg-6))))))) -(define Unelab-TTImp-n--6911-7084-uniqueLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (Unelab-TTImp-case--7845-7110 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 arg-8 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-9 arg-8)))) -(define Unelab-TTImp-n--9688-8643-toName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (vector 1 (TT-Core-nameAt 'erased arg-0 e-4 'erased))))(else (vector 0 )))))) -(define Unelab-TTImp-n--9688-8645-showScope (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (Strings-Prelude-C-43C-43 " " (Unelab-TTImp-n--9688-8644-showNScope arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Unelab-TTImp-n--9688-8643-toName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) arg-7))))) -(define Unelab-TTImp-n--9688-8644-showNScope (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) "[no locals in scope]")(else (Strings-Prelude-C-43C-43 "[locals in scope: " (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-7))) "]"))))))) -(define Unelab-TTImp-n--6903-6299-nthArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Unelab-TTImp-n--6903-6298-getNth arg-0 arg-1 arg-2 arg-3 'erased arg-6 (vector 4 e-1 e-2 e-3))))))(else (vector 10 arg-5 1)))))) -(define Unelab-TTImp-n--6911-7083-next (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 2 e-0 (b+ e-1 1 63))))) ((1) (let ((e-2 (vector-ref sc0 1))) (vector 2 (Prelude-show_Show__String e-2) 0))) ((0) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (vector 0 e-3 (Unelab-TTImp-n--6911-7083-next arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-4)))))(else (vector 2 (Name-Core-show_Show__Name arg-8) 0)))))) -(define Unelab-TTImp-n--6903-6300-mkClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((pat (Unelab-TTImp-n--6903-6299-nthArg arg-0 arg-1 arg-2 arg-3 'erased arg-4 arg-5 e-10))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy e-2 arg-3 (vector 0 ) e-6 pat eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Unelab-TTImp-unelabTy e-2 arg-3 (vector 0 ) e-6 e-11 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 arg-4 (Builtin-fst 'erased 'erased e-5) (Builtin-fst 'erased 'erased e-8)))))))))))))))))))))))))) -(define Unelab-TTImp-n--6903-6301-mkCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Unelab-TTImp-n--6903-6300-mkClause arg-0 arg-1 arg-2 arg-3 e-7 arg-6 eta-1)) arg-4) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc3 1))) (vector 1 (vector 4 e-7 e-8 (vector 31 e-7 1) e-9)))))))))))(else (lambda (eta-0) (vector 1 arg-0)))))))(else (lambda (eta-0) (vector 1 arg-0))))))(else (let ((e-0 (- arg-5 1))) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 2))) (Unelab-TTImp-n--6903-6301-mkCase arg-0 arg-1 arg-2 arg-3 arg-4 e-0 (+ 1 arg-6) e-3)))(else (lambda (eta-0) (vector 1 arg-0))))))))))) -(define Unelab-TTImp-n--6917-8138-isNoSugar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) 0)(else 1))))) -(define Unelab-TTImp-n--6917-8139-isDefImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((3) 0)(else 1))))) -(define Unelab-TTImp-n--6903-6297-idxOrDefault (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) e-3))(else (let ((sc1 arg-7)) arg-6)))))(else (let ((e-1 (- arg-5 1))) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-7 (vector-ref sc0 2))) (Unelab-TTImp-n--6903-6297-idxOrDefault arg-0 arg-1 arg-2 arg-3 'erased e-1 arg-6 e-7)))(else (let ((sc0 arg-7)) arg-6)))))))))) -(define Unelab-TTImp-n--6903-6298-getNth (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Unelab-TTImp-case--6930-6356 arg-0 arg-1 arg-2 arg-3 'erased arg-6 arg-5 (TT-Core-getFnArgs 'erased arg-6)))) -(define Unelab-TTImp-n--6905-6703-getFnArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (Unelab-TTImp-n--6905-6703-getFnArgs 'erased arg-1 arg-2 arg-3 arg-4 e-1 (vector 1 (vector 0 e-0 e-2) arg-6)))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (Unelab-TTImp-n--6905-6703-getFnArgs 'erased arg-1 arg-2 arg-3 arg-4 e-4 (vector 1 (vector 1 e-3 e-5 e-6) arg-6)))))))(else (vector 0 arg-5 arg-6)))))) -(define Unelab-TTImp-n--6903-6296-findArgPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 3))) (vector 1 e-2)))(else (vector 0 )))))) -(define Unelab-TTImp-used (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (Prelude-C-61C-61_Eq__Nat arg-1 e-4))) ((3) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (Prelude-C-124C-124 (Unelab-TTImp-n--6744-6140-usedBinder e-7 e-8 'erased e-10 e-9 arg-1 e-9) (lambda () (Unelab-TTImp-used 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) e-10)))))))) ((2) (let ((e-15 (vector-ref sc0 4))) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Unelab-TTImp-used 'erased arg-1 eta-0))) e-15))) ((4) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (Prelude-C-124C-124 (Unelab-TTImp-used 'erased arg-1 e-18) (lambda () (Unelab-TTImp-used 'erased arg-1 e-19)))))) ((5) (let ((e-24 (vector-ref sc0 4))) (Unelab-TTImp-used 'erased arg-1 e-24))) ((6) (let ((e-28 (vector-ref sc0 3))) (Unelab-TTImp-used 'erased arg-1 e-28))) ((7) (let ((e-33 (vector-ref sc0 4))) (Unelab-TTImp-used 'erased arg-1 e-33))) ((8) (let ((e-37 (vector-ref sc0 3))) (Unelab-TTImp-used 'erased arg-1 e-37)))(else 1))))) +(define Unelab-TTImp-case--6977-8558 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (lambda (eta-0) (vector 1 (vector 0 arg-5 (Normalise-Core-gType 'erased arg-8))))))) +(define Unelab-TTImp-case--9517-8495 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-9 arg-3 arg-4 e-2 arg-12 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 4 arg-3 arg-1 arg-2) arg-5))))))))) +(define Unelab-TTImp-case--6977-8456 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-11 arg-10 arg-8 arg-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 3 arg-9 arg-3 arg-4 e-6 e-2 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 4 arg-3 arg-1 arg-2) arg-5)))))))))))))))) +(define Unelab-TTImp-case--6977-8399 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (lambda (eta-0) (vector 1 (vector 0 arg-6 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 5 arg-3 arg-2) arg-5)))))))) +(define Unelab-TTImp-case--9246-8304 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (vector 1 (vector 1 "_"))) (else (vector 0 )))))) +(define Unelab-TTImp-case--9190-8225 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (vector 1 arg-4)) (else (Unelab-TTImp-case--9246-8304 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (Prelude-C-124C-124 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)) (lambda () (Unelab-TTImp-n--6977-8153-isDefImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 'erased arg-2))))))))) +(define Unelab-TTImp-case--6977-8182 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabPi arg-0 arg-11 arg-10 arg-8 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((nm (let ((_-0 (vector 0 e-2 e-3))) (Unelab-TTImp-case--9190-8225 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-3 e-2 _-0 e-5 (Prelude-C-124C-124 (Unelab-TTImp-used 'erased 0 arg-7) (lambda () (Unelab-TTImp-n--6977-8152-isNoSugar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-10))))))) (vector 1 (vector 0 (vector 1 arg-9 arg-3 e-5 nm e-2 arg-6) (Normalise-Core-gType 'erased arg-9))))))))))))))) +(define Unelab-TTImp-case--9041-8099 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-9 arg-3 arg-4 e-2 arg-12 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 1 arg-3 arg-1 arg-2) arg-5))))))))) +(define Unelab-TTImp-case--6977-8060 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-11 arg-10 arg-8 arg-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 3 arg-9 arg-3 arg-4 e-6 e-2 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 1 arg-3 arg-1 arg-2) arg-5)))))))))))))))) +(define Unelab-TTImp-case--6977-7995 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabPi arg-0 arg-11 arg-10 arg-8 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 2 arg-9 arg-3 e-5 (vector 1 arg-4) e-2 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 2 arg-3 arg-2 arg-1) arg-5)))))))))))))) +(define Unelab-TTImp-case--6974-7959 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 3 e-2))))))) +(define Unelab-TTImp-case--6971-7838 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 21 arg-3 e-2) (Normalise-Core-gErased 'erased arg-3)))))))))))) +(define Unelab-TTImp-case--6971-7787 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 20 arg-4 e-2) (Normalise-Core-gErased 'erased arg-4)))))))))))) +(define Unelab-TTImp-case--6971-7736 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 19 arg-3 arg-2 e-2) (Normalise-Core-gErased 'erased arg-3)))))))))))) +(define Unelab-TTImp-case--8476-7611 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 (vector 17 arg-4 arg-3 arg-14 arg-11) arg-12))))(else (lambda (eta-0) (vector 1 (vector 0 arg-11 arg-12)))))))) +(define Unelab-TTImp-case--8434-7580 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 0 (vector 17 arg-4 arg-3 e-1 arg-11) arg-12))))(else (lambda (eta-0) (vector 1 (vector 0 arg-11 arg-12))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-11 arg-12)))))))) +(define Unelab-TTImp-case--8393-7551 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 2))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 0 (vector 17 arg-4 arg-3 e-1 e-2) e-3))))(else (lambda (eta-0) (vector 1 (vector 0 e-2 e-3))))))))(else (lambda (eta-0) (vector 1 (vector 0 e-2 e-3))))))))))) +(define Unelab-TTImp-case--6971-7518 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-7 arg-6 arg-5 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (let ((e-1 (vector-ref sc3 2))) (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((1) (vector 1 (vector 0 (vector 17 arg-4 arg-3 e-1 e-6) e-4)))(else (vector 1 (vector 0 e-6 e-4)))))))(else (vector 1 (vector 0 e-6 e-4)))))))))))))))))) +(define Unelab-TTImp-case--8171-7366 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 8 arg-3 arg-7 arg-10) (Normalise-Core-glueBack arg-0 arg-14 arg-4 e-5))))))))))(else (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 9 arg-3 arg-7 (vector 1 e-2) arg-10) (Normalise-Core-glueBack arg-0 arg-14 arg-4 e-5))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 8 arg-3 arg-7 arg-10) (Normalise-Core-gErased 'erased arg-3)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 8 arg-3 arg-7 arg-10) (Normalise-Core-gErased 'erased arg-3))))))))) +(define Unelab-TTImp-case--8134-7323 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-6 arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-6))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 2))) (let ((e-7 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((2) (let ((e-10 (vector-ref sc4 2))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((act-26 (((e-4 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (vector 0 (vector 8 arg-3 arg-7 e-2) (Normalise-Core-glueBack arg-0 e-6 arg-4 e-12)))))))))(else (let ((act-26 (((e-4 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc5 1))) (vector 1 (vector 0 (vector 9 arg-3 arg-7 (vector 1 e-8) e-2) (Normalise-Core-glueBack arg-0 e-6 arg-4 e-12)))))))))))))(else (vector 1 (vector 0 (vector 8 arg-3 arg-7 e-2) (Normalise-Core-gErased 'erased arg-3))))))))))(else (vector 1 (vector 0 (vector 8 arg-3 arg-7 e-2) (Normalise-Core-gErased 'erased arg-3))))))))))))))))))))) +(define Unelab-TTImp-case--6971-7294 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-6 arg-5 arg-4 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-6 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (unbox arg-6))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 2))) (let ((e-10 (vector-ref sc5 3))) (let ((e-9 (vector-ref sc5 4))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((2) (let ((e-13 (vector-ref sc6 2))) (let ((sc7 e-13)) (case (vector-ref sc7 0) ((1) (let ((act-27 (((e-9 e-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-15 (vector-ref sc8 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc8 1))) (vector 1 (vector 0 (vector 8 arg-3 e-2 e-6) (Normalise-Core-glueBack arg-0 e-8 arg-4 e-15)))))))))(else (let ((act-27 (((e-9 e-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-15 (vector-ref sc7 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc7 1))) (vector 1 (vector 0 (vector 9 arg-3 e-2 (vector 1 e-11) e-6) (Normalise-Core-glueBack arg-0 e-8 arg-4 e-15)))))))))))))(else (vector 1 (vector 0 (vector 8 arg-3 e-2 e-6) (Normalise-Core-gErased 'erased arg-3))))))))))(else (vector 1 (vector 0 (vector 8 arg-3 e-2 e-6) (Normalise-Core-gErased 'erased arg-3))))))))))))))))))))))))))))) +(define Unelab-TTImp-case--8003-7205 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 0) (let ((xC-39 (Unelab-TTImp-n--6971-7098-uniqueLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-0 arg-1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-9) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 xC-39 arg-3 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) arg-2) arg-8 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 arg-1 arg-3 arg-2 arg-8 e-5) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-9) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 arg-1 arg-3 arg-2 arg-8 e-5) eta-0)))))))))))) +(define Unelab-TTImp-case--6971-7182 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-0 (vector-ref sc1 1))) (let ((sc2 e-0)) (cond ((equal? sc2 0) (let ((xC-39 (Unelab-TTImp-n--6971-7098-uniqueLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-0 arg-1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 xC-39 arg-3 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) arg-2) e-2 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 arg-1 arg-3 arg-2 e-2 e-5) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 arg-1 arg-3 arg-2 e-2 e-5) eta-0))))))))))))))) +(define Unelab-TTImp-case--7910-7124 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Unelab-TTImp-n--6971-7098-uniqueLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 (Unelab-TTImp-n--6971-7097-next arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8))) (else arg-8))))) +(define Unelab-TTImp-case--7768-7036 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 (vector 31 arg-4 0) (Normalise-Core-gErased 'erased arg-4)))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 29 arg-4 arg-9) (Normalise-Core-gErased 'erased arg-4))))))))) +(define Unelab-TTImp-case--6971-6981 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 29 arg-4 arg-9) (Normalise-Core-gnf arg-0 arg-5 (TT-Core-embed 'erased 'erased e-1))))))) (else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 0 (vector 31 arg-4 0) (Normalise-Core-gErased 'erased arg-4)))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 29 arg-4 arg-9) (Normalise-Core-gErased 'erased arg-4)))))))))))) +(define Unelab-TTImp-case--7623-6910 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 (vector 31 arg-3 0) (Normalise-Core-gErased 'erased arg-3)))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 arg-3 arg-1) (Normalise-Core-gErased 'erased arg-3))))))))) +(define Unelab-TTImp-case--6971-6851 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-6 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-aliasName arg-6 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 0 arg-3 e-6) (Normalise-Core-gnf arg-0 arg-4 (TT-Core-embed 'erased 'erased e-1))))))))))))))))) (else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 0 (vector 31 arg-3 0) (Normalise-Core-gErased 'erased arg-3)))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 arg-3 arg-1) (Normalise-Core-gErased 'erased arg-3)))))))))))) +(define Unelab-TTImp-case--7477-6749 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((7) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabCase arg-4 (vector 0 e-2 (vector 7 e-4 e-5)) arg-6 arg-2 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 e-6 arg-3)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-3)))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-3))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-3)))))))) +(define Unelab-TTImp-case--6965-6731 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 2))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((7) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabCase arg-4 (vector 0 e-5 (vector 7 e-7 e-6)) e-3 arg-2 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-8 arg-3)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-3)))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-3))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-3))))))))))) +(define Unelab-TTImp-case--7250-6572 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (Unelab-TTImp-n--6963-6309-mkCase arg-0 arg-1 arg-2 arg-3 arg-10 arg-12 0 arg-1)) (else (lambda (eta-0) (vector 1 arg-0))))))) +(define Unelab-TTImp-case--7217-6536 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Unelab-TTImp-case--7250-6572 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-1 (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-1) (List-Data-length 'erased arg-8)))))(else (lambda (eta-0) (vector 1 arg-0))))))) +(define Unelab-TTImp-case--7196-6512 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (Unelab-TTImp-case--7217-6536 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-0 e-1 e-3 e-4 e-2 (Unelab-TTImp-n--6963-6304-findArgPos arg-0 arg-1 arg-2 arg-3 'erased e-2))))))))(else (lambda (eta-0) (vector 1 arg-0))))))) +(define Unelab-TTImp-case--6963-6497 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Unelab-TTImp-case--7196-6512 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 arg-0))))))) +(define Unelab-TTImp-case--6990-6364 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unelab-TTImp-n--6963-6305-idxOrDefault arg-0 arg-1 arg-2 arg-3 'erased arg-6 e-2 e-3)))))) +(define Unelab-TTImp-n--6804-6148-usedBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Prelude-C-124C-124 (Unelab-TTImp-used 'erased arg-5 e-2) (lambda () (Unelab-TTImp-used 'erased arg-5 e-3))))))(else (Unelab-TTImp-used 'erased arg-5 (TT-Core-binderType 'erased arg-6))))))) +(define Unelab-TTImp-n--6971-7098-uniqueLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (Unelab-TTImp-case--7910-7124 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 arg-8 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) arg-9 arg-8)))) +(define Unelab-TTImp-n--9753-8657-toName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (vector 1 (TT-Core-nameAt 'erased arg-0 e-4 'erased))))(else (vector 0 )))))) +(define Unelab-TTImp-n--9753-8659-showScope (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (Strings-Prelude-C-43C-43 " " (Unelab-TTImp-n--9753-8658-showNScope arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Unelab-TTImp-n--9753-8657-toName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) arg-7))))) +(define Unelab-TTImp-n--9753-8658-showNScope (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) "[no locals in scope]")(else (Strings-Prelude-C-43C-43 "[locals in scope: " (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) (List-Data-nub 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) arg-7))) "]"))))))) +(define Unelab-TTImp-n--6963-6307-nthArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Unelab-TTImp-n--6963-6306-getNth arg-0 arg-1 arg-2 arg-3 'erased arg-6 (vector 4 e-1 e-2 e-3))))))(else (vector 10 arg-5 1)))))) +(define Unelab-TTImp-n--6971-7097-next (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 2 e-0 (b+ e-1 1 63))))) ((1) (let ((e-2 (vector-ref sc0 1))) (vector 2 (Prelude-show_Show__String e-2) 0))) ((0) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (vector 0 e-3 (Unelab-TTImp-n--6971-7097-next arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-4)))))(else (vector 2 (Name-Core-show_Show__Name arg-8) 0)))))) +(define Unelab-TTImp-n--6963-6308-mkClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((pat (Unelab-TTImp-n--6963-6307-nthArg arg-0 arg-1 arg-2 arg-3 'erased arg-4 arg-5 e-10))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy e-2 arg-3 (vector 0 ) e-6 pat eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Unelab-TTImp-unelabTy e-2 arg-3 (vector 0 ) e-6 e-11 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 arg-4 (Builtin-fst 'erased 'erased e-5) (Builtin-fst 'erased 'erased e-8)))))))))))))))))))))))))) +(define Unelab-TTImp-n--6963-6309-mkCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Unelab-TTImp-n--6963-6308-mkClause arg-0 arg-1 arg-2 arg-3 e-7 arg-6 eta-1)) arg-4) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc3 1))) (vector 1 (vector 4 e-7 e-8 (vector 31 e-7 1) e-9)))))))))))(else (lambda (eta-0) (vector 1 arg-0)))))))(else (lambda (eta-0) (vector 1 arg-0))))))(else (let ((e-0 (- arg-5 1))) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 2))) (Unelab-TTImp-n--6963-6309-mkCase arg-0 arg-1 arg-2 arg-3 arg-4 e-0 (+ 1 arg-6) e-3)))(else (lambda (eta-0) (vector 1 arg-0))))))))))) +(define Unelab-TTImp-n--6977-8152-isNoSugar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) 0)(else 1))))) +(define Unelab-TTImp-n--6977-8153-isDefImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((3) 0)(else 1))))) +(define Unelab-TTImp-n--6963-6305-idxOrDefault (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) e-3))(else (let ((sc1 arg-7)) arg-6)))))(else (let ((e-1 (- arg-5 1))) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-7 (vector-ref sc0 2))) (Unelab-TTImp-n--6963-6305-idxOrDefault arg-0 arg-1 arg-2 arg-3 'erased e-1 arg-6 e-7)))(else (let ((sc0 arg-7)) arg-6)))))))))) +(define Unelab-TTImp-n--6963-6306-getNth (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Unelab-TTImp-case--6990-6364 arg-0 arg-1 arg-2 arg-3 'erased arg-6 arg-5 (TT-Core-getFnArgs 'erased arg-6)))) +(define Unelab-TTImp-n--6965-6711-getFnArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (Unelab-TTImp-n--6965-6711-getFnArgs 'erased arg-1 arg-2 arg-3 arg-4 e-1 (vector 1 (vector 0 e-0 e-2) arg-6)))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (Unelab-TTImp-n--6965-6711-getFnArgs 'erased arg-1 arg-2 arg-3 arg-4 e-4 (vector 1 (vector 1 e-3 e-5 e-6) arg-6)))))))(else (vector 0 arg-5 arg-6)))))) +(define Unelab-TTImp-n--6963-6304-findArgPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 3))) (vector 1 e-2)))(else (vector 0 )))))) +(define Unelab-TTImp-used (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (Prelude-C-61C-61_Eq__Nat arg-1 e-4))) ((3) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (Prelude-C-124C-124 (Unelab-TTImp-n--6804-6148-usedBinder e-7 e-8 'erased e-10 e-9 arg-1 e-9) (lambda () (Unelab-TTImp-used 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) e-10)))))))) ((2) (let ((e-15 (vector-ref sc0 4))) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Unelab-TTImp-used 'erased arg-1 eta-0))) e-15))) ((4) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (Prelude-C-124C-124 (Unelab-TTImp-used 'erased arg-1 e-18) (lambda () (Unelab-TTImp-used 'erased arg-1 e-19)))))) ((5) (let ((e-24 (vector-ref sc0 4))) (Unelab-TTImp-used 'erased arg-1 e-24))) ((6) (let ((e-28 (vector-ref sc0 3))) (Unelab-TTImp-used 'erased arg-1 e-28))) ((7) (let ((e-33 (vector-ref sc0 4))) (Unelab-TTImp-used 'erased arg-1 e-33))) ((8) (let ((e-37 (vector-ref sc0 3))) (Unelab-TTImp-used 'erased arg-1 e-37)))(else 1))))) (define Unelab-TTImp-unelabUniqueBinders (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 (vector 1 0) arg-2 arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Builtin-fst 'erased 'erased e-5))))))))) -(define Unelab-TTImp-unelabTyC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 (vector 0 e-2 (TT-Core-nameAt 'erased arg-0 e-4 'erased)) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-binderType 'erased (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (TT-Core-weaken_Weaken__Term n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (TT-Core-weakenNs_Weaken__Term vars ns arg-3271))))) arg-0 e-4 'erased arg-3))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact e-9 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 0 e-7 e-10) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased e-1))))))))))) (else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((2) (vector 1 (vector 0 (vector 31 e-7 0) (Normalise-Core-gErased 'erased e-7))))(else (vector 1 (vector 0 (vector 0 e-7 e-9) (Normalise-Core-gErased 'erased e-7))))))))))))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((mkn (Name-Core-nameRoot e-12))) (let ((act-25 (Context-Core-lookupTyExact (vector 9 e-13) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 29 e-11 mkn) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased e-1)))))) (else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((2) (vector 1 (vector 0 (vector 31 e-11 0) (Normalise-Core-gErased 'erased e-11))))(else (vector 1 (vector 0 (vector 29 e-11 mkn) (Normalise-Core-gErased 'erased e-11))))))))))))))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy (vector 1 e-17 arg-0) arg-1 arg-2 (vector 1 e-18 arg-3) e-19 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-0 (vector-ref sc3 1))) (let ((sc4 e-0)) (cond ((equal? sc4 0) (let ((xC-39 (Unelab-TTImp-n--6911-7084-uniqueLocal arg-0 e-17 e-19 e-18 e-16 arg-3 arg-2 arg-1 arg-0 e-17))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc5 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-1 arg-2 e-16 arg-3 xC-39 e-18 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) e-19) e-2 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) e-6)) eta-0))))))))(else (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc4 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-1 arg-2 e-16 arg-3 e-17 e-18 e-19 e-2 e-6) eta-0)))))))))))(else (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-1 arg-2 e-16 arg-3 e-17 e-18 e-19 e-2 e-6) eta-0))))))))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-3 e-22 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-3 e-23 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((Normalise-Core-getNF 'erased arg-1 e-3) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((e-11 (vector-ref sc7 3))) (let ((e-10 (vector-ref sc7 4))) (let ((sc8 e-11)) (case (vector-ref sc8 0) ((2) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((1) (let ((act-28 (((e-10 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 e-23)) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-16 (vector-ref sc10 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc10 1))) (vector 1 (vector 0 (vector 8 e-21 e-2 e-7) (Normalise-Core-glueBack arg-0 e-9 arg-3 e-16)))))))))(else (let ((act-28 (((e-10 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 e-23)) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc9 1))) (vector 1 (vector 0 (vector 9 e-21 e-2 (vector 1 e-12) e-7) (Normalise-Core-glueBack arg-0 e-9 arg-3 e-16)))))))))))))(else (vector 1 (vector 0 (vector 8 e-21 e-2 e-7) (Normalise-Core-gErased 'erased e-21))))))))))(else (vector 1 (vector 0 (vector 8 e-21 e-2 e-7) (Normalise-Core-gErased 'erased e-21)))))))))))))))))))))))))))))))))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-27) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-28) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-7 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((0) (let ((e-1 (vector-ref sc5 2))) (let ((sc6 arg-2)) (case (vector-ref sc6 0) ((1) (vector 1 (vector 0 (vector 17 e-25 e-26 e-1 e-7) e-4)))(else (vector 1 (vector 0 e-7 e-4)))))))(else (vector 1 (vector 0 e-7 e-4)))))))))))))))))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-32) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 19 e-30 e-31 e-2) (Normalise-Core-gErased 'erased e-30))))))))))))))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-37) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 20 e-34 e-2) (Normalise-Core-gErased 'erased e-34)))))))))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-41) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 21 e-39 e-2) (Normalise-Core-gErased 'erased e-39)))))))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 27 e-43 e-44) (Normalise-Core-gErased 'erased e-43))))))) ((10) (let ((e-46 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 31 e-46 0) (Normalise-Core-gErased 'erased e-46)))))) ((11) (let ((e-49 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 28 e-49) (Normalise-Core-gType 'erased e-49))))))(else (let ((fc (TT-Core-getLoc 'erased arg-4))) (lambda (eta-0) (vector 1 (vector 0 (vector 31 fc 1) (Normalise-Core-gErased 'erased fc)))))))))) +(define Unelab-TTImp-unelabTyC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 (vector 0 e-2 (TT-Core-nameAt 'erased arg-0 e-4 'erased)) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-binderType 'erased (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3275) (TT-Core-weaken_Weaken__Term n vars arg-3275)))) (lambda (vars) (lambda (ns) (lambda (arg-3279) (TT-Core-weakenNs_Weaken__Term vars ns arg-3279))))) arg-0 e-4 'erased arg-3))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact e-9 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc4 1))) (let ((act-27 (Context-Core-aliasName arg-1 e-10 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) (vector 1 (vector 0 (vector 0 e-7 e-11) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased e-1)))))))))))))))) (else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((2) (vector 1 (vector 0 (vector 31 e-7 0) (Normalise-Core-gErased 'erased e-7))))(else (vector 1 (vector 0 (vector 0 e-7 e-9) (Normalise-Core-gErased 'erased e-7))))))))))))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((mkn (Name-Core-nameRoot e-12))) (let ((act-25 (Context-Core-lookupTyExact (vector 9 e-13) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 29 e-11 mkn) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased e-1)))))) (else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((2) (vector 1 (vector 0 (vector 31 e-11 0) (Normalise-Core-gErased 'erased e-11))))(else (vector 1 (vector 0 (vector 29 e-11 mkn) (Normalise-Core-gErased 'erased e-11))))))))))))))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy (vector 1 e-17 arg-0) arg-1 arg-2 (vector 1 e-18 arg-3) e-19 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-0 (vector-ref sc3 1))) (let ((sc4 e-0)) (cond ((equal? sc4 0) (let ((xC-39 (Unelab-TTImp-n--6971-7098-uniqueLocal arg-0 e-17 e-19 e-18 e-16 arg-3 arg-2 arg-1 arg-0 e-17))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc5 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-1 arg-2 e-16 arg-3 xC-39 e-18 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) e-19) e-2 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) e-6)) eta-0))))))))(else (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc4 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-1 arg-2 e-16 arg-3 e-17 e-18 e-19 e-2 e-6) eta-0)))))))))))(else (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-1 arg-2 e-16 arg-3 e-17 e-18 e-19 e-2 e-6) eta-0))))))))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-3 e-22 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-3 e-23 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((Normalise-Core-getNF 'erased arg-1 e-3) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((e-11 (vector-ref sc7 3))) (let ((e-10 (vector-ref sc7 4))) (let ((sc8 e-11)) (case (vector-ref sc8 0) ((2) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((1) (let ((act-28 (((e-10 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 e-23)) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-16 (vector-ref sc10 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc10 1))) (vector 1 (vector 0 (vector 8 e-21 e-2 e-7) (Normalise-Core-glueBack arg-0 e-9 arg-3 e-16)))))))))(else (let ((act-28 (((e-10 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 e-23)) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc9 1))) (vector 1 (vector 0 (vector 9 e-21 e-2 (vector 1 e-12) e-7) (Normalise-Core-glueBack arg-0 e-9 arg-3 e-16)))))))))))))(else (vector 1 (vector 0 (vector 8 e-21 e-2 e-7) (Normalise-Core-gErased 'erased e-21))))))))))(else (vector 1 (vector 0 (vector 8 e-21 e-2 e-7) (Normalise-Core-gErased 'erased e-21)))))))))))))))))))))))))))))))))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-27) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-28) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-7 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((0) (let ((e-1 (vector-ref sc5 2))) (let ((sc6 arg-2)) (case (vector-ref sc6 0) ((1) (vector 1 (vector 0 (vector 17 e-25 e-26 e-1 e-7) e-4)))(else (vector 1 (vector 0 e-7 e-4)))))))(else (vector 1 (vector 0 e-7 e-4)))))))))))))))))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-32) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 19 e-30 e-31 e-2) (Normalise-Core-gErased 'erased e-30))))))))))))))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-37) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 20 e-34 e-2) (Normalise-Core-gErased 'erased e-34)))))))))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-41) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 21 e-39 e-2) (Normalise-Core-gErased 'erased e-39)))))))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 27 e-43 e-44) (Normalise-Core-gErased 'erased e-43))))))) ((10) (let ((e-46 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 31 e-46 0) (Normalise-Core-gErased 'erased e-46)))))) ((11) (let ((e-49 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 28 e-49) (Normalise-Core-gType 'erased e-49))))))(else (let ((fc (TT-Core-getLoc 'erased arg-4))) (lambda (eta-0) (vector 1 (vector 0 (vector 31 fc 1) (Normalise-Core-gErased 'erased fc)))))))))) (define Unelab-TTImp-unelabTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 arg-4) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Unelab-TTImp-unelabSugar 'erased arg-1 arg-2 e-5) ext-0)))))))) -(define Unelab-TTImp-unelabSugar (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 arg-3))) ((2) (lambda (eta-0) (vector 1 arg-3)))(else (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unelab-TTImp-case--6905-6723 'erased arg-2 e-2 e-3 arg-1 (Unelab-TTImp-n--6905-6703-getFnArgs 'erased arg-2 e-2 e-3 arg-1 e-2 (vector 0 ))))))))))) +(define Unelab-TTImp-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--6965-6731 'erased arg-2 e-2 e-3 arg-1 (Unelab-TTImp-n--6965-6711-getFnArgs 'erased arg-2 e-2 e-3 arg-1 e-2 (vector 0 ))))))))))) (define Unelab-TTImp-unelabPi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-3 e-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (vector 1 (vector 3 e-2)))))))))))))))) (define Unelab-TTImp-unelabNoSugar (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 (vector 1 1) arg-2 arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Builtin-fst 'erased 'erased e-5))))))))) (define Unelab-TTImp-unelabNoPatvars (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 (vector 2 ) arg-2 arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Builtin-fst 'erased 'erased e-5))))))))) -(define Unelab-TTImp-unelabCase (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Unelab-TTImp-case--7136-6504 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0)))) (else (vector 1 arg-3)))))))))))))))) -(define Unelab-TTImp-unelabBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Unelab-TTImp-unelabPi arg-0 arg-1 arg-2 arg-4 e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 2 arg-3 e-1 e-7 (vector 1 arg-5) e-6 arg-8) (Normalise-Core-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 2 e-1 e-2 e-3) arg-9))))))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((sc2 e-8)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-7 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc3 1))) (let ((sc4 e-9)) (let ((e-10 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 3 arg-3 e-5 arg-5 e-10 e-2 arg-8) (Normalise-Core-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 1 e-5 e-6 e-7) arg-9))))))))))))))))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-11 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 ((Unelab-TTImp-unelabPi arg-0 arg-1 arg-2 arg-4 e-10) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((nm (let ((_-0 (vector 0 e-2 e-3))) (Unelab-TTImp-case--9125-8211 arg-0 e-11 e-10 e-9 arg-5 arg-9 arg-8 arg-7 arg-4 arg-3 arg-2 arg-1 e-3 e-2 _-0 e-6 (Prelude-C-124C-124 (Unelab-TTImp-used 'erased 0 arg-7) (lambda () (Unelab-TTImp-n--6917-8138-isNoSugar arg-0 e-11 e-10 e-9 arg-5 arg-9 arg-8 arg-7 arg-4 arg-3 arg-2 arg-1 arg-2))))))) (vector 1 (vector 0 (vector 1 arg-3 e-9 e-6 nm e-2 arg-8) (Normalise-Core-gType 'erased arg-3)))))))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-15 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (vector 1 (vector 0 arg-8 (Normalise-Core-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 5 e-13 e-15) arg-9)))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-18 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-19 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-7 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 3 arg-3 e-17 arg-5 e-7 e-2 arg-8) (Normalise-Core-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 4 e-17 e-18 e-19) arg-9))))))))))))))))))))))) (else (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-22 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (vector 1 (vector 0 arg-8 (Normalise-Core-gType 'erased arg-3)))))))))))))))) -(define Unelab-TTImp-unelab (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((mkn (Strings-Prelude-C-43C-43 (Name-Core-nameRoot e-2) (Unelab-TTImp-n--9688-8645-showScope arg-0 e-4 e-3 e-2 e-1 arg-2 arg-1 e-4)))) (lambda (eta-0) (vector 1 (vector 29 e-1 mkn)))))))))(else (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 (vector 0 ) arg-2 arg-3 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Builtin-fst 'erased 'erased e-5))))))))))))) -(define Utils-TTImp-case--5876-7996 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 (TT-Core-C-60C-61_Ord__Visibility (let ((sc2 e-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-1))) (cond ((equal? sc1 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 34 arg-4 arg-2 arg-3 (let ((sc2 e-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Utils-TTImp-case--5782-7959 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (Utils-TTImp-uniqueName arg-2 arg-1 (Utils-TTImp-n--5782-7895-next arg-0 arg-1 arg-2 arg-0) eta-0))) (else (lambda (eta-0) (vector 1 arg-0))))))) -(define Utils-TTImp-case--5787-7931 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 "_" (Prelude-show_Show__Int (b+ e-3 1 63))))))))) -(define Utils-TTImp-case--5786-7904 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-0 arg-1))))(else (lambda (eta-0) (vector 1 0))))))) -(define Utils-TTImp-case--5719-7860 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (cond ((equal? sc1 #\_) (vector 0 (Prelude-reverse (Prelude-pack e-2)) (Prelude-cast_Cast__String_Int (Prelude-reverse arg-1))))(else (vector 0 arg-0 0)))))))(else (vector 0 arg-0 0)))))) -(define Utils-TTImp-case--5714-7834 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 "") (vector 0 arg-0 0))(else (Utils-TTImp-case--5719-7860 arg-0 e-2 e-3 (Prelude-unpack e-3)))))))))) -(define Utils-TTImp-case--5373-7585 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) e-1))(else (vector 0 arg-1 arg-0)))))) -(define Utils-TTImp-case--5359-7568 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Utils-TTImp-case--5373-7585 arg-0 arg-1 arg-2 arg-3 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-0 arg-2))) (else (vector 0 arg-1 arg-0)))))) -(define Utils-TTImp-case--5106-7436 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-7) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 arg-7))))))) -(define Utils-TTImp-case--5106-7390 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-7) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 arg-7))))))) -(define Utils-TTImp-case--5106-7357 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-0 (Utils-TTImp-getUnique arg-2 arg-0)) (vector 0 ))) (else (vector 0 )))))) -(define Utils-TTImp-case--5085-7335 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Utils-TTImp-getUnique arg-1 (Strings-Prelude-C-43C-43 arg-0 "'"))) (else arg-0))))) -(define Utils-TTImp-n--5782-7894-usedName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-lookupTyName (vector 1 arg-0) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (vector 1 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-0 arg-1)))(else (vector 1 0))))))))))) -(define Utils-TTImp-n--5782-7895-next (lambda (arg-0 arg-1 arg-2 arg-3) (Utils-TTImp-case--5787-7931 arg-0 arg-1 arg-2 arg-3 (Utils-TTImp-nameNum arg-3)))) -(define Utils-TTImp-uniqueName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Utils-TTImp-n--5782-7894-usedName arg-2 arg-1 arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (Utils-TTImp-uniqueName arg-0 arg-1 (Utils-TTImp-n--5782-7895-next arg-2 arg-1 arg-0 arg-2) ext-0)) (else (vector 1 arg-2))))))))))) -(define Utils-TTImp-substNamesTy (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 e-1 (Utils-TTImp-substNames arg-0 arg-1 e-2)))))))) -(define Utils-TTImp-substNamesDecl (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 e-2 e-3 (Utils-TTImp-substNamesTy arg-0 arg-1 e-4)))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 2 e-5 e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesClause arg-0 arg-1 eta-0)) e-7)))))) ((1) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (vector 1 e-8 e-9 (Utils-TTImp-substNamesData arg-0 arg-1 e-10)))))) ((5) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (vector 5 e-11 e-12 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesDecl arg-0 arg-1 eta-0)) e-13))))))(else arg-2))))) -(define Utils-TTImp-substNamesData (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 (Utils-TTImp-substNames arg-0 arg-1 e-2) e-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesTy arg-0 arg-1 eta-0)) e-4)))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 1 e-5 e-6 (Utils-TTImp-substNames arg-0 arg-1 e-7)))))))))) -(define Utils-TTImp-substNamesClause (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((boundC-39 (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (Utils-TTImp-findBindableNames 0 arg-0 (vector 0 ) e-1))) arg-0))) (vector 0 e-0 (Utils-TTImp-substNames (vector 0 ) (vector 0 ) e-1) (Utils-TTImp-substNames boundC-39 arg-1 e-2))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (let ((boundC-39 (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (Utils-TTImp-findBindableNames 0 arg-0 (vector 0 ) e-4))) arg-0))) (vector 1 e-3 (Utils-TTImp-substNames (vector 0 ) (vector 0 ) e-4) (Utils-TTImp-substNames boundC-39 arg-1 e-5) e-6 e-7)))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (vector 2 e-8 (Utils-TTImp-substNames arg-0 (vector 0 ) e-9))))))))) -(define Utils-TTImp-substNames (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Utils-TTImp-case--5359-7568 e-1 e-0 arg-1 arg-0 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-1 arg-0)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (let ((boundC-39 (Prelude-maybe 'erased 'erased (lambda () arg-0) (lambda () (lambda (n) (vector 1 n arg-0))) e-5))) (vector 1 e-2 e-3 e-4 e-5 (Utils-TTImp-substNames arg-0 arg-1 e-6) (Utils-TTImp-substNames boundC-39 arg-1 e-7)))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (let ((boundC-39 (Prelude-maybe 'erased 'erased (lambda () arg-0) (lambda () (lambda (n) (vector 1 n arg-0))) e-11))) (vector 2 e-8 e-9 e-10 e-11 (Utils-TTImp-substNames arg-0 arg-1 e-12) (Utils-TTImp-substNames boundC-39 arg-1 e-13)))))))))) ((3) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (let ((boundC-39 (vector 1 e-16 arg-0))) (vector 3 e-14 e-15 e-16 (Utils-TTImp-substNames arg-0 arg-1 e-17) (Utils-TTImp-substNames arg-0 arg-1 e-18) (Utils-TTImp-substNames boundC-39 arg-1 e-19)))))))))) ((4) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (let ((e-23 (vector-ref sc0 4))) (vector 4 e-20 (Utils-TTImp-substNames arg-0 arg-1 e-21) (Utils-TTImp-substNames arg-0 arg-1 e-22) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesClause arg-0 arg-1 eta-0)) e-23))))))) ((5) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (let ((boundC-39 (List-Prelude-C-43C-43 'erased (TTImp-TTImp-definedInBlock (vector 0 ) e-25) arg-0))) (vector 5 e-24 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesDecl arg-0 arg-1 eta-0)) e-25) (Utils-TTImp-substNames boundC-39 arg-1 e-26))))))) ((8) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (vector 8 e-27 (Utils-TTImp-substNames arg-0 arg-1 e-28) (Utils-TTImp-substNames arg-0 arg-1 e-29)))))) ((9) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (let ((e-33 (vector-ref sc0 4))) (vector 9 e-30 (Utils-TTImp-substNames arg-0 arg-1 e-31) e-32 (Utils-TTImp-substNames arg-0 arg-1 e-33))))))) ((10) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (vector 10 e-34 (Utils-TTImp-substNames arg-0 arg-1 e-35) (Utils-TTImp-substNames arg-0 arg-1 e-36)))))) ((12) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (let ((e-39 (vector-ref sc0 3))) (vector 12 e-37 e-38 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNames arg-0 arg-1 eta-0)) e-39)))))) ((14) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 14 e-40 (Utils-TTImp-substNames arg-0 arg-1 e-41))))) ((17) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (let ((e-45 (vector-ref sc0 4))) (vector 17 e-42 e-43 e-44 (Utils-TTImp-substNames arg-0 arg-1 e-45))))))) ((18) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (let ((e-48 (vector-ref sc0 3))) (vector 18 e-46 e-47 (Utils-TTImp-substNames arg-0 arg-1 e-48)))))) ((19) (let ((e-49 (vector-ref sc0 1))) (let ((e-50 (vector-ref sc0 2))) (let ((e-51 (vector-ref sc0 3))) (vector 19 e-49 e-50 (Utils-TTImp-substNames arg-0 arg-1 e-51)))))) ((20) (let ((e-52 (vector-ref sc0 1))) (let ((e-53 (vector-ref sc0 2))) (vector 20 e-52 (Utils-TTImp-substNames arg-0 arg-1 e-53))))) ((21) (let ((e-54 (vector-ref sc0 1))) (let ((e-55 (vector-ref sc0 2))) (vector 21 e-54 (Utils-TTImp-substNames arg-0 arg-1 e-55)))))(else arg-2))))) +(define 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--7196-6512 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0)))) (else (vector 1 arg-3)))))))))))))))) +(define Unelab-TTImp-unelabBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Unelab-TTImp-unelabPi arg-0 arg-1 arg-2 arg-4 e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 2 arg-3 e-1 e-7 (vector 1 arg-5) e-6 arg-8) (Normalise-Core-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 2 e-1 e-2 e-3) arg-9))))))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((sc2 e-8)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-7 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc3 1))) (let ((sc4 e-9)) (let ((e-10 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 3 arg-3 e-5 arg-5 e-10 e-2 arg-8) (Normalise-Core-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 1 e-5 e-6 e-7) arg-9))))))))))))))))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-11 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 ((Unelab-TTImp-unelabPi arg-0 arg-1 arg-2 arg-4 e-10) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((nm (let ((_-0 (vector 0 e-2 e-3))) (Unelab-TTImp-case--9190-8225 arg-0 e-11 e-10 e-9 arg-5 arg-9 arg-8 arg-7 arg-4 arg-3 arg-2 arg-1 e-3 e-2 _-0 e-6 (Prelude-C-124C-124 (Unelab-TTImp-used 'erased 0 arg-7) (lambda () (Unelab-TTImp-n--6977-8152-isNoSugar arg-0 e-11 e-10 e-9 arg-5 arg-9 arg-8 arg-7 arg-4 arg-3 arg-2 arg-1 arg-2))))))) (vector 1 (vector 0 (vector 1 arg-3 e-9 e-6 nm e-2 arg-8) (Normalise-Core-gType 'erased arg-3)))))))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-15 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (vector 1 (vector 0 arg-8 (Normalise-Core-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 5 e-13 e-15) arg-9)))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-18 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-19 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-7 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 3 arg-3 e-17 arg-5 e-7 e-2 arg-8) (Normalise-Core-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 4 e-17 e-18 e-19) arg-9))))))))))))))))))))))) (else (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-22 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (vector 1 (vector 0 arg-8 (Normalise-Core-gType 'erased arg-3)))))))))))))))) +(define Unelab-TTImp-unelab (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((mkn (Strings-Prelude-C-43C-43 (Name-Core-nameRoot e-2) (Unelab-TTImp-n--9753-8659-showScope arg-0 e-4 e-3 e-2 e-1 arg-2 arg-1 e-4)))) (lambda (eta-0) (vector 1 (vector 29 e-1 mkn)))))))))(else (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 (vector 0 ) arg-2 arg-3 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Builtin-fst 'erased 'erased e-5))))))))))))) +(define Utils-TTImp-case--6154-8210 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 (TT-Core-C-60C-61_Ord__Visibility (let ((sc2 e-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-1))) (cond ((equal? sc1 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 34 arg-4 arg-2 arg-3 (let ((sc2 e-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Utils-TTImp-case--6060-8173 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (Utils-TTImp-uniqueName arg-2 arg-1 (Utils-TTImp-n--6060-8109-next arg-0 arg-1 arg-2 arg-0) eta-0))) (else (lambda (eta-0) (vector 1 arg-0))))))) +(define Utils-TTImp-case--6065-8145 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 "_" (Prelude-show_Show__Int (b+ e-3 1 63))))))))) +(define Utils-TTImp-case--6064-8118 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-0 arg-1))))(else (lambda (eta-0) (vector 1 0))))))) +(define Utils-TTImp-case--5997-8074 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (cond ((equal? sc1 #\_) (vector 0 (Prelude-reverse (Prelude-pack e-2)) (Prelude-cast_Cast__String_Int (Prelude-reverse arg-1))))(else (vector 0 arg-0 0)))))))(else (vector 0 arg-0 0)))))) +(define Utils-TTImp-case--5992-8048 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 "") (vector 0 arg-0 0))(else (Utils-TTImp-case--5997-8074 arg-0 e-2 e-3 (Prelude-unpack e-3)))))))))) +(define Utils-TTImp-case--5643-7787 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) e-1))(else (vector 16 arg-1 arg-0)))))) +(define Utils-TTImp-case--5566-7770 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Utils-TTImp-case--5643-7787 arg-0 arg-1 arg-2 arg-3 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (vector 1 arg-0) arg-2))) (else (vector 16 arg-1 arg-0)))))) +(define Utils-TTImp-case--5581-7732 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) e-1))(else (vector 0 arg-1 arg-0)))))) +(define Utils-TTImp-case--5566-7715 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Utils-TTImp-case--5581-7732 arg-0 arg-1 arg-2 arg-3 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) arg-0 arg-2))) (else (vector 0 arg-1 arg-0)))))) +(define Utils-TTImp-case--5354-7593 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-6) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 arg-6))))))) +(define Utils-TTImp-case--5354-7555 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-6) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 arg-6))))))) +(define Utils-TTImp-case--5354-7530 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 arg-0 (vector 0 ))) (else (vector 0 )))))) +(define Utils-TTImp-case--5148-7444 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-7) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 arg-7))))))) +(define Utils-TTImp-case--5148-7398 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-7) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 arg-7))))))) +(define Utils-TTImp-case--5148-7365 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-0 (Utils-TTImp-getUnique arg-2 arg-0)) (vector 0 ))) (else (vector 0 )))))) +(define Utils-TTImp-case--5127-7343 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Utils-TTImp-getUnique arg-1 (Strings-Prelude-C-43C-43 arg-0 "'"))) (else arg-0))))) +(define Utils-TTImp-n--6060-8108-usedName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-lookupTyName (vector 1 arg-0) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (vector 1 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-0 arg-1)))(else (vector 1 0))))))))))) +(define Utils-TTImp-n--6060-8109-next (lambda (arg-0 arg-1 arg-2 arg-3) (Utils-TTImp-case--6065-8145 arg-0 arg-1 arg-2 arg-3 (Utils-TTImp-nameNum arg-3)))) +(define Utils-TTImp-uniqueName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Utils-TTImp-n--6060-8108-usedName arg-2 arg-1 arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (Utils-TTImp-uniqueName arg-0 arg-1 (Utils-TTImp-n--6060-8109-next arg-2 arg-1 arg-0 arg-2) ext-0)) (else (vector 1 arg-2))))))))))) +(define Utils-TTImp-substNamesTyC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 e-1 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-2)))))))) +(define Utils-TTImp-substNamesDeclC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 e-2 e-3 (Utils-TTImp-substNamesTyC-39 arg-0 arg-1 arg-2 e-4)))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 2 e-5 e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesClauseC-39 arg-0 arg-1 arg-2 eta-0)) e-7)))))) ((1) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (vector 1 e-8 e-9 (Utils-TTImp-substNamesDataC-39 arg-0 arg-1 arg-2 e-10)))))) ((5) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (vector 5 e-11 e-12 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesDeclC-39 arg-0 arg-1 arg-2 eta-0)) e-13))))))(else arg-3))))) +(define Utils-TTImp-substNamesDataC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-2) e-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesTyC-39 arg-0 arg-1 arg-2 eta-0)) e-4)))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 1 e-5 e-6 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-7)))))))))) +(define Utils-TTImp-substNamesClauseC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((boundC-39 (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (Utils-TTImp-findBindableNames 0 arg-1 (vector 0 ) e-1))) arg-1))) (vector 0 e-0 (Utils-TTImp-substNamesC-39 arg-0 (vector 0 ) (vector 0 ) e-1) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-2))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (let ((boundC-39 (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (Utils-TTImp-findBindableNames 0 arg-1 (vector 0 ) e-4))) arg-1))) (vector 1 e-3 (Utils-TTImp-substNamesC-39 arg-0 (vector 0 ) (vector 0 ) e-4) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-5) e-6 e-7)))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (vector 2 e-8 (Utils-TTImp-substNamesC-39 arg-0 arg-1 (vector 0 ) e-9))))))))) +(define Utils-TTImp-substNamesClause (lambda (ext-0 ext-1 ext-2) (Utils-TTImp-substNamesClauseC-39 1 ext-0 ext-1 ext-2))) +(define Utils-TTImp-substNamesC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (cond ((equal? sc0 1) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-54 (vector-ref sc1 1))) (let ((e-55 (vector-ref sc1 2))) (Utils-TTImp-case--5566-7715 e-55 e-54 arg-2 arg-1 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-55 arg-1))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((boundC-39 (Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (n) (vector 1 n arg-1))) e-3))) (vector 1 e-0 e-1 e-2 e-3 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-4) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-5)))))))))) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((e-10 (vector-ref sc1 5))) (let ((e-11 (vector-ref sc1 6))) (let ((boundC-39 (Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (n) (vector 1 n arg-1))) e-9))) (vector 2 e-6 e-7 e-8 e-9 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-10) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-11)))))))))) ((3) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((e-16 (vector-ref sc1 5))) (let ((e-17 (vector-ref sc1 6))) (let ((boundC-39 (vector 1 e-14 arg-1))) (vector 3 e-12 e-13 e-14 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-15) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-16) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-17)))))))))) ((4) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (let ((e-21 (vector-ref sc1 4))) (vector 4 e-18 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-19) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-20) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesClauseC-39 arg-0 arg-1 arg-2 eta-0)) e-21))))))) ((5) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (let ((boundC-39 (List-Prelude-C-43C-43 'erased (TTImp-TTImp-definedInBlock (vector 0 ) e-23) arg-1))) (vector 5 e-22 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesDeclC-39 arg-0 arg-1 arg-2 eta-0)) e-23) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-24))))))) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (vector 8 e-25 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-26) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-27)))))) ((9) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (let ((e-30 (vector-ref sc1 3))) (let ((e-31 (vector-ref sc1 4))) (vector 9 e-28 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-29) e-30 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-31))))))) ((10) (let ((e-32 (vector-ref sc1 1))) (let ((e-33 (vector-ref sc1 2))) (let ((e-34 (vector-ref sc1 3))) (vector 10 e-32 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-33) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-34)))))) ((12) (let ((e-35 (vector-ref sc1 1))) (let ((e-36 (vector-ref sc1 2))) (let ((e-37 (vector-ref sc1 3))) (vector 12 e-35 e-36 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 eta-0)) e-37)))))) ((14) (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (vector 14 e-38 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-39))))) ((17) (let ((e-40 (vector-ref sc1 1))) (let ((e-41 (vector-ref sc1 2))) (let ((e-42 (vector-ref sc1 3))) (let ((e-43 (vector-ref sc1 4))) (vector 17 e-40 e-41 e-42 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-43))))))) ((18) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (let ((e-46 (vector-ref sc1 3))) (vector 18 e-44 e-45 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-46)))))) ((19) (let ((e-47 (vector-ref sc1 1))) (let ((e-48 (vector-ref sc1 2))) (let ((e-49 (vector-ref sc1 3))) (vector 19 e-47 e-48 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-49)))))) ((20) (let ((e-50 (vector-ref sc1 1))) (let ((e-51 (vector-ref sc1 2))) (vector 20 e-50 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-51))))) ((21) (let ((e-52 (vector-ref sc1 1))) (let ((e-53 (vector-ref sc1 2))) (vector 21 e-52 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-53)))))(else arg-3))))))) ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((16) (let ((e-56 (vector-ref sc1 1))) (let ((e-57 (vector-ref sc1 2))) (Utils-TTImp-case--5566-7770 e-57 e-56 arg-2 arg-1 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (vector 1 e-57) arg-1))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((boundC-39 (Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (n) (vector 1 n arg-1))) e-3))) (vector 1 e-0 e-1 e-2 e-3 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-4) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-5)))))))))) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((e-10 (vector-ref sc1 5))) (let ((e-11 (vector-ref sc1 6))) (let ((boundC-39 (Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (n) (vector 1 n arg-1))) e-9))) (vector 2 e-6 e-7 e-8 e-9 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-10) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-11)))))))))) ((3) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((e-16 (vector-ref sc1 5))) (let ((e-17 (vector-ref sc1 6))) (let ((boundC-39 (vector 1 e-14 arg-1))) (vector 3 e-12 e-13 e-14 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-15) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-16) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-17)))))))))) ((4) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (let ((e-21 (vector-ref sc1 4))) (vector 4 e-18 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-19) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-20) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesClauseC-39 arg-0 arg-1 arg-2 eta-0)) e-21))))))) ((5) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (let ((boundC-39 (List-Prelude-C-43C-43 'erased (TTImp-TTImp-definedInBlock (vector 0 ) e-23) arg-1))) (vector 5 e-22 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesDeclC-39 arg-0 arg-1 arg-2 eta-0)) e-23) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-24))))))) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (vector 8 e-25 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-26) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-27)))))) ((9) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (let ((e-30 (vector-ref sc1 3))) (let ((e-31 (vector-ref sc1 4))) (vector 9 e-28 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-29) e-30 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-31))))))) ((10) (let ((e-32 (vector-ref sc1 1))) (let ((e-33 (vector-ref sc1 2))) (let ((e-34 (vector-ref sc1 3))) (vector 10 e-32 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-33) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-34)))))) ((12) (let ((e-35 (vector-ref sc1 1))) (let ((e-36 (vector-ref sc1 2))) (let ((e-37 (vector-ref sc1 3))) (vector 12 e-35 e-36 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 eta-0)) e-37)))))) ((14) (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (vector 14 e-38 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-39))))) ((17) (let ((e-40 (vector-ref sc1 1))) (let ((e-41 (vector-ref sc1 2))) (let ((e-42 (vector-ref sc1 3))) (let ((e-43 (vector-ref sc1 4))) (vector 17 e-40 e-41 e-42 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-43))))))) ((18) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (let ((e-46 (vector-ref sc1 3))) (vector 18 e-44 e-45 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-46)))))) ((19) (let ((e-47 (vector-ref sc1 1))) (let ((e-48 (vector-ref sc1 2))) (let ((e-49 (vector-ref sc1 3))) (vector 19 e-47 e-48 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-49)))))) ((20) (let ((e-50 (vector-ref sc1 1))) (let ((e-51 (vector-ref sc1 2))) (vector 20 e-50 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-51))))) ((21) (let ((e-52 (vector-ref sc1 1))) (let ((e-53 (vector-ref sc1 2))) (vector 21 e-52 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-53)))))(else arg-3)))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((boundC-39 (Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (n) (vector 1 n arg-1))) e-3))) (vector 1 e-0 e-1 e-2 e-3 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-4) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-5)))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (let ((boundC-39 (Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (n) (vector 1 n arg-1))) e-9))) (vector 2 e-6 e-7 e-8 e-9 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-10) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-11)))))))))) ((3) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (let ((e-16 (vector-ref sc0 5))) (let ((e-17 (vector-ref sc0 6))) (let ((boundC-39 (vector 1 e-14 arg-1))) (vector 3 e-12 e-13 e-14 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-15) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-16) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-17)))))))))) ((4) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((e-21 (vector-ref sc0 4))) (vector 4 e-18 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-19) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-20) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesClauseC-39 arg-0 arg-1 arg-2 eta-0)) e-21))))))) ((5) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (let ((boundC-39 (List-Prelude-C-43C-43 'erased (TTImp-TTImp-definedInBlock (vector 0 ) e-23) arg-1))) (vector 5 e-22 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesDeclC-39 arg-0 arg-1 arg-2 eta-0)) e-23) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-24))))))) ((8) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (vector 8 e-25 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-26) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-27)))))) ((9) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (vector 9 e-28 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-29) e-30 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-31))))))) ((10) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (vector 10 e-32 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-33) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-34)))))) ((12) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (vector 12 e-35 e-36 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 eta-0)) e-37)))))) ((14) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (vector 14 e-38 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-39))))) ((17) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (let ((e-42 (vector-ref sc0 3))) (let ((e-43 (vector-ref sc0 4))) (vector 17 e-40 e-41 e-42 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-43))))))) ((18) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (let ((e-46 (vector-ref sc0 3))) (vector 18 e-44 e-45 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-46)))))) ((19) (let ((e-47 (vector-ref sc0 1))) (let ((e-48 (vector-ref sc0 2))) (let ((e-49 (vector-ref sc0 3))) (vector 19 e-47 e-48 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-49)))))) ((20) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (vector 20 e-50 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-51))))) ((21) (let ((e-52 (vector-ref sc0 1))) (let ((e-53 (vector-ref sc0 2))) (vector 21 e-52 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-53)))))(else arg-3)))))))) +(define Utils-TTImp-substNames (lambda (ext-0 ext-1 ext-2) (Utils-TTImp-substNamesC-39 1 ext-0 ext-1 ext-2))) (define Utils-TTImp-substLocTy (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 arg-0 e-1 (Utils-TTImp-substLoc arg-0 e-2))))))) (define Utils-TTImp-substLocDecl (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 arg-0 e-1 e-2 e-3 (Utils-TTImp-substLocTy arg-0 e-4))))))) ((2) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 2 arg-0 e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substLocClause arg-0 eta-0)) e-7))))) ((1) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (vector 1 arg-0 e-9 (Utils-TTImp-substLocData arg-0 e-10))))) ((5) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (vector 5 arg-0 e-12 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substLocDecl arg-0 eta-0)) e-13)))))(else arg-1))))) (define Utils-TTImp-substLocData (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 arg-0 e-1 (Utils-TTImp-substLoc arg-0 e-2) e-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substLocTy arg-0 eta-0)) e-4))))))) (else (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 1 arg-0 e-6 (Utils-TTImp-substLoc arg-0 e-7))))))))) (define Utils-TTImp-substLocClause (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 arg-0 (Utils-TTImp-substLoc arg-0 e-1) (Utils-TTImp-substLoc arg-0 e-2))))) ((1) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (vector 1 arg-0 (Utils-TTImp-substLoc arg-0 e-4) (Utils-TTImp-substLoc arg-0 e-5) e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substLocClause arg-0 eta-0)) e-7))))))) (else (let ((e-9 (vector-ref sc0 2))) (vector 2 arg-0 (Utils-TTImp-substLoc arg-0 e-9)))))))) (define Utils-TTImp-substLoc (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (vector 0 arg-0 e-1))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (vector 1 arg-0 e-3 e-4 e-5 (Utils-TTImp-substLoc arg-0 e-6) (Utils-TTImp-substLoc arg-0 e-7)))))))) ((2) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (vector 2 arg-0 e-9 e-10 e-11 (Utils-TTImp-substLoc arg-0 e-12) (Utils-TTImp-substLoc arg-0 e-13)))))))) ((3) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (vector 3 arg-0 e-15 e-16 (Utils-TTImp-substLoc arg-0 e-17) (Utils-TTImp-substLoc arg-0 e-18) (Utils-TTImp-substLoc arg-0 e-19)))))))) ((4) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (let ((e-23 (vector-ref sc0 4))) (vector 4 arg-0 (Utils-TTImp-substLoc arg-0 e-21) (Utils-TTImp-substLoc arg-0 e-22) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substLocClause arg-0 eta-0)) e-23)))))) ((5) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (vector 5 arg-0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substLocDecl arg-0 eta-0)) e-25) (Utils-TTImp-substLoc arg-0 e-26))))) ((8) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (vector 8 arg-0 (Utils-TTImp-substLoc arg-0 e-28) (Utils-TTImp-substLoc arg-0 e-29))))) ((9) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (let ((e-33 (vector-ref sc0 4))) (vector 9 arg-0 (Utils-TTImp-substLoc arg-0 e-31) e-32 (Utils-TTImp-substLoc arg-0 e-33)))))) ((10) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (vector 10 arg-0 (Utils-TTImp-substLoc arg-0 e-35) (Utils-TTImp-substLoc arg-0 e-36))))) ((12) (let ((e-38 (vector-ref sc0 2))) (let ((e-39 (vector-ref sc0 3))) (vector 12 arg-0 e-38 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substLoc arg-0 eta-0)) e-39))))) ((14) (let ((e-41 (vector-ref sc0 2))) (vector 14 arg-0 (Utils-TTImp-substLoc arg-0 e-41)))) ((17) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (let ((e-45 (vector-ref sc0 4))) (vector 17 arg-0 e-43 e-44 (Utils-TTImp-substLoc arg-0 e-45)))))) ((18) (let ((e-47 (vector-ref sc0 2))) (let ((e-48 (vector-ref sc0 3))) (vector 18 arg-0 e-47 (Utils-TTImp-substLoc arg-0 e-48))))) ((19) (let ((e-50 (vector-ref sc0 2))) (let ((e-51 (vector-ref sc0 3))) (vector 19 arg-0 e-50 (Utils-TTImp-substLoc arg-0 e-51))))) ((20) (let ((e-53 (vector-ref sc0 2))) (vector 20 arg-0 (Utils-TTImp-substLoc arg-0 e-53)))) ((21) (let ((e-55 (vector-ref sc0 2))) (vector 21 arg-0 (Utils-TTImp-substLoc arg-0 e-55))))(else arg-1))))) -(define Utils-TTImp-nameNum (lambda (arg-0) (Utils-TTImp-case--5714-7834 arg-0 (Strings-Data-span (lambda (eta-0) (Prelude-isDigit eta-0)) (Prelude-reverse arg-0))))) +(define Utils-TTImp-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--5992-8048 arg-0 (Strings-Data-span (lambda (eta-0) (Prelude-isDigit eta-0)) (Prelude-reverse arg-0))))) (define Utils-TTImp-lowerFirst (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "") 1)(else (Prelude-isLower (string-ref arg-0 0))))))) -(define Utils-TTImp-getUnique (lambda (arg-0 arg-1) (Utils-TTImp-case--5085-7335 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-1 arg-0)))) -(define Utils-TTImp-findIBindVars (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findIBindVars e-4) (Utils-TTImp-findIBindVars e-5))))) ((2) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findIBindVars e-10) (Utils-TTImp-findIBindVars e-11))))) ((8) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findIBindVars e-13) (Utils-TTImp-findIBindVars e-14))))) ((9) (let ((e-16 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findIBindVars e-16) (Utils-TTImp-findIBindVars e-18))))) ((10) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findIBindVars e-20) (Utils-TTImp-findIBindVars e-21))))) ((16) (let ((e-23 (vector-ref sc0 2))) (vector 1 (vector 1 e-23) (vector 0 )))) ((19) (let ((e-26 (vector-ref sc0 3))) (Utils-TTImp-findIBindVars e-26))) ((20) (let ((e-28 (vector-ref sc0 2))) (Utils-TTImp-findIBindVars e-28))) ((21) (let ((e-30 (vector-ref sc0 2))) (Utils-TTImp-findIBindVars e-30))) ((12) (let ((e-33 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findIBindVars eta-0))) e-33)))(else (vector 0 )))))) -(define Utils-TTImp-findBindableNames (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (let ((sc2 e-45)) (case (vector-ref sc2 0) ((1) (let ((e-46 (vector-ref sc2 1))) (Utils-TTImp-case--5106-7357 e-46 e-44 arg-2 arg-1 (Prelude-C-38C-38 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (vector 1 e-46) arg-1)) (lambda () (Utils-TTImp-lowerFirst e-46))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-5 (vector-ref sc2 6))) (let ((envC-39 (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) arg-1) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 e-6 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-4) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-5))))))) ((2) (let ((e-9 (vector-ref sc2 4))) (let ((e-10 (vector-ref sc2 5))) (let ((e-11 (vector-ref sc2 6))) (let ((envC-39 (let ((sc3 e-9)) (case (vector-ref sc3 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 e-2 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-10) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref sc2 2))) (let ((e-14 (vector-ref sc2 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-13) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-14))))) ((9) (let ((e-16 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 4))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-16) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-18))))) ((10) (let ((e-20 (vector-ref sc2 2))) (let ((e-21 (vector-ref sc2 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-20) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-21))))) ((17) (let ((e-24 (vector-ref sc2 3))) (let ((e-25 (vector-ref sc2 4))) (let ((sc3 e-24)) (case (vector-ref sc3 0) ((1) (let ((e-43 (vector-ref sc3 1))) (vector 1 (vector 0 e-43 (Utils-TTImp-getUnique arg-2 e-43)) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))(else (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))))) ((18) (let ((e-28 (vector-ref sc2 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-28))) ((19) (let ((e-31 (vector-ref sc2 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-31))) ((20) (let ((e-33 (vector-ref sc2 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-33))) ((21) (let ((e-35 (vector-ref sc2 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-35))) ((22) (let ((e-37 (vector-ref sc2 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-37))) ((25) (let ((e-39 (vector-ref sc2 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-39))) ((12) (let ((e-42 (vector-ref sc2 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 eta-0))) e-42)))(else (vector 0 ))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((envC-39 (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) arg-1) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 e-6 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-4) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-5))))))) ((2) (let ((e-9 (vector-ref sc1 4))) (let ((e-10 (vector-ref sc1 5))) (let ((e-11 (vector-ref sc1 6))) (let ((envC-39 (let ((sc2 e-9)) (case (vector-ref sc2 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc2 1))) (vector 1 e-2 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-10) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-13) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-14))))) ((9) (let ((e-16 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 4))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-16) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-18))))) ((10) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-20) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-21))))) ((17) (let ((e-24 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 4))) (let ((sc2 e-24)) (case (vector-ref sc2 0) ((1) (let ((e-43 (vector-ref sc2 1))) (vector 1 (vector 0 e-43 (Utils-TTImp-getUnique arg-2 e-43)) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))(else (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))))) ((18) (let ((e-28 (vector-ref sc1 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-28))) ((19) (let ((e-31 (vector-ref sc1 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-31))) ((20) (let ((e-33 (vector-ref sc1 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-33))) ((21) (let ((e-35 (vector-ref sc1 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-35))) ((22) (let ((e-37 (vector-ref sc1 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-37))) ((25) (let ((e-39 (vector-ref sc1 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-39))) ((12) (let ((e-42 (vector-ref sc1 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 eta-0))) e-42)))(else (vector 0 ))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((envC-39 (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) arg-1) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 e-6 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-4) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-5))))))) ((2) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (let ((envC-39 (let ((sc1 e-9)) (case (vector-ref sc1 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-10) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-13) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-14))))) ((9) (let ((e-16 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-16) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-18))))) ((10) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-20) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-21))))) ((17) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (let ((sc1 e-24)) (case (vector-ref sc1 0) ((1) (let ((e-43 (vector-ref sc1 1))) (vector 1 (vector 0 e-43 (Utils-TTImp-getUnique arg-2 e-43)) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))(else (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))))) ((18) (let ((e-28 (vector-ref sc0 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-28))) ((19) (let ((e-31 (vector-ref sc0 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-31))) ((20) (let ((e-33 (vector-ref sc0 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-33))) ((21) (let ((e-35 (vector-ref sc0 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-35))) ((22) (let ((e-37 (vector-ref sc0 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-37))) ((25) (let ((e-39 (vector-ref sc0 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-39))) ((12) (let ((e-42 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 eta-0))) e-42)))(else (vector 0 ))))))))) +(define Utils-TTImp-getUnique (lambda (arg-0 arg-1) (Utils-TTImp-case--5127-7343 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-1 arg-0)))) +(define Utils-TTImp-findIBindVars (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findIBindVars e-4) (Utils-TTImp-findIBindVars e-5))))) ((2) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findIBindVars e-10) (Utils-TTImp-findIBindVars e-11))))) ((8) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findIBindVars e-13) (Utils-TTImp-findIBindVars e-14))))) ((9) (let ((e-16 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findIBindVars e-16) (Utils-TTImp-findIBindVars e-18))))) ((10) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findIBindVars e-20) (Utils-TTImp-findIBindVars e-21))))) ((16) (let ((e-23 (vector-ref sc0 2))) (vector 1 (vector 1 e-23) (vector 0 )))) ((19) (let ((e-26 (vector-ref sc0 3))) (Utils-TTImp-findIBindVars e-26))) ((20) (let ((e-28 (vector-ref sc0 2))) (Utils-TTImp-findIBindVars e-28))) ((21) (let ((e-30 (vector-ref sc0 2))) (Utils-TTImp-findIBindVars e-30))) ((12) (let ((e-33 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findIBindVars eta-0))) e-33)))(else (vector 0 )))))) +(define Utils-TTImp-findBindableNames (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (let ((sc2 e-45)) (case (vector-ref sc2 0) ((1) (let ((e-46 (vector-ref sc2 1))) (Utils-TTImp-case--5148-7365 e-46 e-44 arg-2 arg-1 (Prelude-C-38C-38 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (vector 1 e-46) arg-1)) (lambda () (Utils-TTImp-lowerFirst e-46))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-5 (vector-ref sc2 6))) (let ((envC-39 (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) arg-1) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 e-6 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-4) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-5))))))) ((2) (let ((e-9 (vector-ref sc2 4))) (let ((e-10 (vector-ref sc2 5))) (let ((e-11 (vector-ref sc2 6))) (let ((envC-39 (let ((sc3 e-9)) (case (vector-ref sc3 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 e-2 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-10) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref sc2 2))) (let ((e-14 (vector-ref sc2 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-13) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-14))))) ((9) (let ((e-16 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 4))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-16) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-18))))) ((10) (let ((e-20 (vector-ref sc2 2))) (let ((e-21 (vector-ref sc2 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-20) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-21))))) ((17) (let ((e-24 (vector-ref sc2 3))) (let ((e-25 (vector-ref sc2 4))) (let ((sc3 e-24)) (case (vector-ref sc3 0) ((1) (let ((e-43 (vector-ref sc3 1))) (vector 1 (vector 0 e-43 (Utils-TTImp-getUnique arg-2 e-43)) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))(else (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))))) ((18) (let ((e-28 (vector-ref sc2 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-28))) ((19) (let ((e-31 (vector-ref sc2 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-31))) ((20) (let ((e-33 (vector-ref sc2 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-33))) ((21) (let ((e-35 (vector-ref sc2 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-35))) ((22) (let ((e-37 (vector-ref sc2 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-37))) ((25) (let ((e-39 (vector-ref sc2 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-39))) ((12) (let ((e-42 (vector-ref sc2 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 eta-0))) e-42)))(else (vector 0 ))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((envC-39 (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) arg-1) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 e-6 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-4) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-5))))))) ((2) (let ((e-9 (vector-ref sc1 4))) (let ((e-10 (vector-ref sc1 5))) (let ((e-11 (vector-ref sc1 6))) (let ((envC-39 (let ((sc2 e-9)) (case (vector-ref sc2 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc2 1))) (vector 1 e-2 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-10) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-13) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-14))))) ((9) (let ((e-16 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 4))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-16) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-18))))) ((10) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-20) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-21))))) ((17) (let ((e-24 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 4))) (let ((sc2 e-24)) (case (vector-ref sc2 0) ((1) (let ((e-43 (vector-ref sc2 1))) (vector 1 (vector 0 e-43 (Utils-TTImp-getUnique arg-2 e-43)) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))(else (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))))) ((18) (let ((e-28 (vector-ref sc1 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-28))) ((19) (let ((e-31 (vector-ref sc1 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-31))) ((20) (let ((e-33 (vector-ref sc1 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-33))) ((21) (let ((e-35 (vector-ref sc1 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-35))) ((22) (let ((e-37 (vector-ref sc1 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-37))) ((25) (let ((e-39 (vector-ref sc1 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-39))) ((12) (let ((e-42 (vector-ref sc1 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 eta-0))) e-42)))(else (vector 0 ))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((envC-39 (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) arg-1) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 e-6 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-4) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-5))))))) ((2) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (let ((envC-39 (let ((sc1 e-9)) (case (vector-ref sc1 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-10) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-13) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-14))))) ((9) (let ((e-16 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-16) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-18))))) ((10) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-20) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-21))))) ((17) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (let ((sc1 e-24)) (case (vector-ref sc1 0) ((1) (let ((e-43 (vector-ref sc1 1))) (vector 1 (vector 0 e-43 (Utils-TTImp-getUnique arg-2 e-43)) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))(else (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))))) ((18) (let ((e-28 (vector-ref sc0 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-28))) ((19) (let ((e-31 (vector-ref sc0 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-31))) ((20) (let ((e-33 (vector-ref sc0 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-33))) ((21) (let ((e-35 (vector-ref sc0 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-35))) ((22) (let ((e-37 (vector-ref sc0 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-37))) ((25) (let ((e-39 (vector-ref sc0 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-39))) ((12) (let ((e-42 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 eta-0))) e-42)))(else (vector 0 ))))))))) +(define Utils-TTImp-findAllNames (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Utils-TTImp-case--5354-7530 e-1 e-0 arg-0 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-1 arg-0)))))) ((1) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (let ((envC-39 (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) arg-0) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 e-8 arg-0))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findAllNames arg-0 e-6) (Utils-TTImp-findAllNames envC-39 e-7))))))) ((2) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (let ((envC-39 (let ((sc1 e-11)) (case (vector-ref sc1 0) ((0) arg-0) (else (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2 arg-0))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findAllNames envC-39 e-12) (Utils-TTImp-findAllNames envC-39 e-13))))))) ((8) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findAllNames arg-0 e-15) (Utils-TTImp-findAllNames arg-0 e-16))))) ((9) (let ((e-18 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findAllNames arg-0 e-18) (Utils-TTImp-findAllNames arg-0 e-20))))) ((10) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findAllNames arg-0 e-22) (Utils-TTImp-findAllNames arg-0 e-23))))) ((17) (let ((e-26 (vector-ref sc0 3))) (let ((e-27 (vector-ref sc0 4))) (vector 1 e-26 (Utils-TTImp-findAllNames arg-0 e-27))))) ((18) (let ((e-30 (vector-ref sc0 3))) (Utils-TTImp-findAllNames arg-0 e-30))) ((19) (let ((e-33 (vector-ref sc0 3))) (Utils-TTImp-findAllNames arg-0 e-33))) ((20) (let ((e-35 (vector-ref sc0 2))) (Utils-TTImp-findAllNames arg-0 e-35))) ((21) (let ((e-37 (vector-ref sc0 2))) (Utils-TTImp-findAllNames arg-0 e-37))) ((22) (let ((e-39 (vector-ref sc0 2))) (Utils-TTImp-findAllNames arg-0 e-39))) ((25) (let ((e-41 (vector-ref sc0 2))) (Utils-TTImp-findAllNames arg-0 e-41))) ((12) (let ((e-44 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findAllNames arg-0 eta-0))) e-44)))(else (vector 0 )))))) (define Utils-TTImp-checkRefVisibility (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-5 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 (TT-Core-C-60C-61_Ord__Visibility (let ((sc4 e-1)) (let ((e-9 (vector-ref sc4 10))) e-9)) arg-4))) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 34 arg-1 arg-3 arg-2 (let ((sc4 e-1)) (let ((e-9 (vector-ref sc4 10))) e-9)) arg-5) ext-0)) (else (vector 1 (vector 0 ))))))) (else (vector 1 (vector 0 ))))))))))))))))) -(define TTImp-TTImp-case--12806-11559 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Visibility arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__FnOpt arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__ImpTy arg-0 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Visibility arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__ImpData arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2107 eta-2))))) arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Visibility arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__ImpRecord arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 4 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 5 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 6 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-5 e-6)))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "ImpDecl" eta-0))))))) -(define TTImp-TTImp-case--12577-11129 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Bool arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Bool arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-5))))))))) ((equal? sc0 5) (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc0 6) (lambda (eta-0) (vector 1 (vector 7 (vector 0 ))))) ((equal? sc0 7) (lambda (eta-0) (vector 1 (vector 7 (vector 1 ))))) ((equal? sc0 8) (lambda (eta-0) (vector 1 (vector 7 (vector 2 ))))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 8 )))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-5))))))))) ((equal? sc0 11) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "FnOpt" eta-0))))))) -(define TTImp-TTImp-case--12179-10717 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__DataOpt arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpTy arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-5 e-6 e-7)))))))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "ImpData" eta-0))))))) -(define TTImp-TTImp-case--12075-10567 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5))))))))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc0 4) (lambda (eta-0) (vector 1 (vector 4 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "DataOpt" eta-0))))))) -(define TTImp-TTImp-case--11882-10427 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-5 e-6)))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 e-5 e-6 e-7 (vector 0 ) e-8))))))))))))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "ImpClause" eta-0))))))) -(define TTImp-TTImp-case--11747-10226 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "AltType" eta-0))))))) -(define TTImp-TTImp-case--11669-10148 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5))))))))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "BindMode" eta-0))))))) -(define TTImp-TTImp-case--11554-10055 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "IFieldUpdate" eta-0))))))) -(define TTImp-TTImp-case--9960-9213 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 1 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 2 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 3 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 4 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 5 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 7 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 8 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 9 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 10 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 11 e-5 e-6)))))))))))))) ((equal? sc0 11) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__AltType arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 12 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 12) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 13 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 13) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 14 e-5 e-6)))))))))))))) ((equal? sc0 14) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__BindMode arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 15 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 15) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 16 e-5 e-6)))))))))))))) ((equal? sc0 16) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__UseSide arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 17 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 17) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 18 e-5 (vector 5 ) e-6)))))))))))))) ((equal? sc0 18) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__LazyReason arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 19 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 19) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 20 e-5 e-6)))))))))))))) ((equal? sc0 20) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 21 e-5 e-6)))))))))))))) ((equal? sc0 21) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 22 e-5 e-6)))))))))))))) ((equal? sc0 22) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 23 e-5 e-6)))))))))))))) ((equal? sc0 23) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 24 e-5 e-6)))))))))))))) ((equal? sc0 24) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 25 e-5 e-6)))))))))))))) ((equal? sc0 25) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 26 e-5 e-6)))))))))))))) ((equal? sc0 26) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 27 e-5 e-6)))))))))))))) ((equal? sc0 27) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 28 e-5))))))))) ((equal? sc0 28) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 29 e-5 e-6)))))))))))))) ((equal? sc0 29) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Bool arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 31 e-5 e-6)))))))))))))) ((equal? sc0 30) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 32 e-5 e-6 e-7)))))))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "RawImp" eta-0))))))) -(define TTImp-TTImp-case--9065-7893 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-3)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 0 ) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImp-TTImp-n--9065-7520-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-5 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (TTImp-TTImp-n--9065-7521-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-4 e-6 (vector 0 arg-4 arg-3)))))))))))))))))))) -(define TTImp-TTImp-case--9100-7745 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (((arg-9 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-11 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((TTImp-TTImp-n--9065-7520-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-12 e-5) eta-0)))))))) (else (lambda (eta-0) (let ((act-24 (((arg-9 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-11 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImp-TTImp-n--9065-7520-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-12 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 arg-10 (TT-Core-forgetDef 'erased 'erased arg-8)) e-6)))))))))))))))))) -(define TTImp-TTImp-case--9100-7638 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (((arg-8 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-10 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImp-TTImp-n--9065-7520-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-11 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 arg-9 (vector 2 )) e-6)))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (((arg-8 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-10 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((TTImp-TTImp-n--9065-7520-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-5) eta-0))))))))))))) -(define TTImp-TTImp-case--9099-7543 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (vector 1 arg-7)) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TTImp-TTImp-n--9065-7519-updateNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7) (lambda (nsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 arg-6 nsC-39))))))))) -(define TTImp-TTImp-case--8813-7337 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-4 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 arg-2 e-5))))))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-1)))))))) -(define TTImp-TTImp-n--7619-6179-wknName (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 (vector 0 e-6 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-0 arg-1 eta-0)) e-10) (lambda (fc) (lambda (nt) (TT-Core-weaken_Weaken__Term arg-0 arg-1 ((e-11 fc) nt)))))))))))))))))) -(define TTImp-TTImp-n--9065-7519-updateNs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (vector 1 e-2))(else (TTImp-TTImp-case--9099-7543 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 e-2 arg-6 (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (vector 1 arg-6) e-1)))))))) (else (vector 0 )))))) -(define TTImp-TTImp-n--9569-8090-toRF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (vector 5 e-0)))(else arg-11))))) -(define TTImp-TTImp-n--9061-7488-setAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-n--9061-7488-setAs arg-0 arg-1 arg-2 arg-3 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-0 e-5 e-2)))))))))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-n--9061-7488-setAs arg-0 arg-1 arg-2 (vector 1 e-5 arg-3) e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc1 1))) (vector 1 (vector 9 e-3 e-7 e-5 e-6))))))))))))) ((10) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-n--9061-7488-setAs arg-0 arg-1 arg-2 arg-3 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 10 e-7 e-5 e-9)))))))))))) ((0) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 e-10 e-11))) (else (let ((e-2 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 0 ) e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((TTImp-TTImp-n--9065-7520-findImps arg-0 arg-1 arg-2 e-11 e-10 arg-3 arg-3 e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (TTImp-TTImp-n--9065-7521-impAs arg-0 arg-1 arg-2 e-11 e-10 arg-3 e-10 e-7 (vector 0 e-10 e-11))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-4))))))) -(define TTImp-TTImp-n--9065-7521-impAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) arg-8) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((2) (TTImp-TTImp-n--9065-7521-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 (vector 1 e-11)) (vector 16 arg-6 e-11))))(else (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (TTImp-TTImp-n--9065-7521-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 e-6) (vector 17 arg-6 (vector 0 ) e-6 (vector 31 arg-6 0))))) ((3) (TTImp-TTImp-n--9065-7521-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 e-6) (vector 17 arg-6 (vector 0 ) e-6 (vector 31 arg-6 0)))))(else (TTImp-TTImp-n--9065-7521-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 arg-8)))))))))(else (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (TTImp-TTImp-n--9065-7521-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 e-6) (vector 17 arg-6 (vector 0 ) e-6 (vector 31 arg-6 0))))) ((3) (TTImp-TTImp-n--9065-7521-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 e-6) (vector 17 arg-6 (vector 0 ) e-6 (vector 31 arg-6 0)))))(else (TTImp-TTImp-n--9065-7521-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 arg-8))))))))))(else (TTImp-TTImp-n--9065-7521-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 arg-8))))))))))) -(define TTImp-TTImp-n--9563-7959-getName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 2))) e-1)))) -(define TTImp-TTImp-n--9563-7960-getFieldName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 4))) e-3)))) -(define TTImp-TTImp-n--9569-8091-fnsUN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9563-7960-getFieldName arg-0 arg-1 eta-0)) arg-6))) -(define TTImp-TTImp-n--9569-8092-fnsRF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9569-8090-toRF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-0)) (TTImp-TTImp-n--9569-8091-fnsUN arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10)))) -(define TTImp-TTImp-n--9569-8089-fldnsC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (Prelude-maybe 'erased 'erased (lambda () arg-10) (lambda () (lambda (f) (vector 1 f arg-10))) arg-9))) -(define TTImp-TTImp-n--9065-7520-findImps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 (((e-4 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) ((TTImp-TTImp-n--9065-7520-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5) eta-0)))))))) ((2) (TTImp-TTImp-case--9100-7638 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6 e-8 e-4 e-2 e-1 arg-6 (TTImp-TTImp-n--9065-7519-updateNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 arg-6)))(else (TTImp-TTImp-case--9100-7745 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6 e-8 e-7 e-4 e-2 e-1 arg-6 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Name-Core-C-61C-61_Eq__Name arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Name-Core-C-47C-61_Eq__Name arg-432 arg-433)))) arg-430 arg-431)))) (vector 1 e-2) arg-6)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define TTImp-TTImp-n--9563-7961-expandNS (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3)(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (vector 0 arg-2 (vector 1 e-0)))) ((5) (let ((e-1 (vector-ref sc0 1))) (vector 0 arg-2 (vector 5 e-1)))) ((2) (vector 0 arg-2 arg-3)) ((4) (vector 0 arg-2 arg-3))(else arg-3)))))))) -(define TTImp-TTImp-n--9563-7962-defName (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 5))) (vector 1 (TTImp-TTImp-n--9563-7961-expandNS arg-0 arg-1 arg-2 (TTImp-TTImp-n--9563-7959-getName arg-0 arg-1 e-4)) (vector 0 )))) ((1) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((0) (let ((e-19 (vector-ref sc1 2))) (let ((e-22 (vector-ref sc1 5))) (vector 1 (TTImp-TTImp-n--9563-7961-expandNS arg-0 arg-1 arg-2 e-19) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9563-7961-expandNS arg-0 arg-1 arg-2 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9563-7959-getName arg-0 arg-1 eta-0)) e-22)))))) ((1) (let ((e-24 (vector-ref sc1 2))) (vector 1 (TTImp-TTImp-n--9563-7961-expandNS arg-0 arg-1 arg-2 e-24) (vector 0 ))))(else (vector 0 )))))) ((3) (let ((e-10 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--9563-7962-defName arg-0 arg-1 arg-2 eta-0))) e-10))) ((5) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--9563-7962-defName arg-0 arg-1 (List-Prelude-C-43C-43 'erased e-12 arg-2) eta-0))) e-13)))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((sc1 e-17)) (case (vector-ref sc1 0) ((0) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (vector 1 (TTImp-TTImp-n--9563-7961-expandNS arg-0 arg-1 arg-2 e-29) (TTImp-TTImp-n--9569-8093-all arg-0 arg-1 e-14 e-16 e-26 e-28 e-30 e-29 e-27 e-15 arg-2))))))))(else (vector 0 )))))))))(else (vector 0 )))))) -(define TTImp-TTImp-n--9569-8093-all (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (vector 1 (TTImp-TTImp-n--9563-7961-expandNS arg-0 arg-1 arg-10 arg-8) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9563-7961-expandNS arg-0 arg-1 (TTImp-TTImp-n--9569-8089-fldnsC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) eta-0)) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-n--9569-8092-fnsRF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (TTImp-TTImp-n--9569-8091-fnsUN arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10)))))) -(define TTImp-TTImp-weaken_Weaken__NestedNames (lambda (arg-0 arg-1 arg-2) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--7619-6179-wknName arg-0 arg-1 arg-2 eta-0)) arg-2))) +(define TTImp-TTImp-case--12834-11567 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Visibility arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__FnOpt arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__ImpTy arg-0 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Visibility arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__ImpData arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2125 eta-2))))) arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Visibility arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__ImpRecord arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 4 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 5 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 6 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-5 e-6)))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "ImpDecl" eta-0))))))) +(define TTImp-TTImp-case--12605-11137 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Bool arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Bool arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-5))))))))) ((equal? sc0 5) (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc0 6) (lambda (eta-0) (vector 1 (vector 7 (vector 0 ))))) ((equal? sc0 7) (lambda (eta-0) (vector 1 (vector 7 (vector 1 ))))) ((equal? sc0 8) (lambda (eta-0) (vector 1 (vector 7 (vector 2 ))))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 8 )))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-5))))))))) ((equal? sc0 11) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "FnOpt" eta-0))))))) +(define TTImp-TTImp-case--12207-10725 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__DataOpt arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpTy arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-5 e-6 e-7)))))))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "ImpData" eta-0))))))) +(define TTImp-TTImp-case--12103-10575 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5))))))))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc0 4) (lambda (eta-0) (vector 1 (vector 4 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "DataOpt" eta-0))))))) +(define TTImp-TTImp-case--11910-10435 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-5 e-6)))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 e-5 e-6 e-7 (vector 0 ) e-8))))))))))))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "ImpClause" eta-0))))))) +(define TTImp-TTImp-case--11775-10234 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "AltType" eta-0))))))) +(define TTImp-TTImp-case--11697-10156 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5))))))))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "BindMode" eta-0))))))) +(define TTImp-TTImp-case--11582-10063 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "IFieldUpdate" eta-0))))))) +(define TTImp-TTImp-case--9988-9221 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 1 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 2 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 3 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 4 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 5 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 7 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 8 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 9 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 10 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 11 e-5 e-6)))))))))))))) ((equal? sc0 11) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__AltType arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 12 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 12) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 13 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 13) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 14 e-5 e-6)))))))))))))) ((equal? sc0 14) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__BindMode arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 15 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 15) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 16 e-5 e-6)))))))))))))) ((equal? sc0 16) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__UseSide arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 17 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 17) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 18 e-5 (vector 5 ) e-6)))))))))))))) ((equal? sc0 18) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__LazyReason arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 19 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 19) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 20 e-5 e-6)))))))))))))) ((equal? sc0 20) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 21 e-5 e-6)))))))))))))) ((equal? sc0 21) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 22 e-5 e-6)))))))))))))) ((equal? sc0 22) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 23 e-5 e-6)))))))))))))) ((equal? sc0 23) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 24 e-5 e-6)))))))))))))) ((equal? sc0 24) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 25 e-5 e-6)))))))))))))) ((equal? sc0 25) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 26 e-5 e-6)))))))))))))) ((equal? sc0 26) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 27 e-5 e-6)))))))))))))) ((equal? sc0 27) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 28 e-5))))))))) ((equal? sc0 28) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 29 e-5 e-6)))))))))))))) ((equal? sc0 29) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Bool arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 31 e-5 e-6)))))))))))))) ((equal? sc0 30) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 32 e-5 e-6 e-7)))))))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "RawImp" eta-0))))))) +(define TTImp-TTImp-case--9093-7901 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-3)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 0 ) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImp-TTImp-n--9093-7528-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-5 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (TTImp-TTImp-n--9093-7529-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-4 e-6 (vector 0 arg-4 arg-3)))))))))))))))))))) +(define TTImp-TTImp-case--9128-7753 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (((arg-9 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-11 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((TTImp-TTImp-n--9093-7528-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-12 e-5) eta-0)))))))) (else (lambda (eta-0) (let ((act-24 (((arg-9 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-11 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImp-TTImp-n--9093-7528-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-12 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 arg-10 (TT-Core-forgetDef 'erased 'erased arg-8)) e-6)))))))))))))))))) +(define TTImp-TTImp-case--9128-7646 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (((arg-8 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-10 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImp-TTImp-n--9093-7528-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-11 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 arg-9 (vector 2 )) e-6)))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (((arg-8 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-10 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((TTImp-TTImp-n--9093-7528-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-5) eta-0))))))))))))) +(define TTImp-TTImp-case--9127-7551 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (vector 1 arg-7)) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TTImp-TTImp-n--9093-7527-updateNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7) (lambda (nsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 arg-6 nsC-39))))))))) +(define TTImp-TTImp-case--8841-7345 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-4 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 arg-2 e-5))))))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-1)))))))) +(define TTImp-TTImp-n--7647-6187-wknName (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 (vector 0 e-6 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-0 arg-1 eta-0)) e-10) (lambda (fc) (lambda (nt) (TT-Core-weaken_Weaken__Term arg-0 arg-1 ((e-11 fc) nt)))))))))))))))))) +(define TTImp-TTImp-n--9093-7527-updateNs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (vector 1 e-2))(else (TTImp-TTImp-case--9127-7551 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 e-2 arg-6 (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (vector 1 arg-6) e-1)))))))) (else (vector 0 )))))) +(define TTImp-TTImp-n--9597-8098-toRF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (vector 5 e-0)))(else arg-11))))) +(define TTImp-TTImp-n--9089-7496-setAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-n--9089-7496-setAs arg-0 arg-1 arg-2 arg-3 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-0 e-5 e-2)))))))))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-n--9089-7496-setAs arg-0 arg-1 arg-2 (vector 1 e-5 arg-3) e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc1 1))) (vector 1 (vector 9 e-3 e-7 e-5 e-6))))))))))))) ((10) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-n--9089-7496-setAs arg-0 arg-1 arg-2 arg-3 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 10 e-7 e-5 e-9)))))))))))) ((0) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 e-10 e-11))) (else (let ((e-2 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 0 ) e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((TTImp-TTImp-n--9093-7528-findImps arg-0 arg-1 arg-2 e-11 e-10 arg-3 arg-3 e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (TTImp-TTImp-n--9093-7529-impAs arg-0 arg-1 arg-2 e-11 e-10 arg-3 e-10 e-7 (vector 0 e-10 e-11))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-4))))))) +(define TTImp-TTImp-n--9093-7529-impAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) arg-8) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((2) (TTImp-TTImp-n--9093-7529-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 (vector 1 e-11)) (vector 16 arg-6 e-11))))(else (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (TTImp-TTImp-n--9093-7529-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 e-6) (vector 17 arg-6 (vector 0 ) e-6 (vector 31 arg-6 0))))) ((3) (TTImp-TTImp-n--9093-7529-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 e-6) (vector 17 arg-6 (vector 0 ) e-6 (vector 31 arg-6 0)))))(else (TTImp-TTImp-n--9093-7529-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 arg-8)))))))))(else (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (TTImp-TTImp-n--9093-7529-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 e-6) (vector 17 arg-6 (vector 0 ) e-6 (vector 31 arg-6 0))))) ((3) (TTImp-TTImp-n--9093-7529-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 e-6) (vector 17 arg-6 (vector 0 ) e-6 (vector 31 arg-6 0)))))(else (TTImp-TTImp-n--9093-7529-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 arg-8))))))))))(else (TTImp-TTImp-n--9093-7529-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 arg-8))))))))))) +(define TTImp-TTImp-n--9591-7967-getName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 2))) e-1)))) +(define TTImp-TTImp-n--9591-7968-getFieldName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 4))) e-3)))) +(define TTImp-TTImp-n--9597-8099-fnsUN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9591-7968-getFieldName arg-0 arg-1 eta-0)) arg-6))) +(define TTImp-TTImp-n--9597-8100-fnsRF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9597-8098-toRF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-0)) (TTImp-TTImp-n--9597-8099-fnsUN arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10)))) +(define TTImp-TTImp-n--9597-8097-fldnsC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (Prelude-maybe 'erased 'erased (lambda () arg-10) (lambda () (lambda (f) (vector 1 f arg-10))) arg-9))) +(define TTImp-TTImp-n--9093-7528-findImps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 (((e-4 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) ((TTImp-TTImp-n--9093-7528-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5) eta-0)))))))) ((2) (TTImp-TTImp-case--9128-7646 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6 e-8 e-4 e-2 e-1 arg-6 (TTImp-TTImp-n--9093-7527-updateNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 arg-6)))(else (TTImp-TTImp-case--9128-7753 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6 e-8 e-7 e-4 e-2 e-1 arg-6 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Name-Core-C-61C-61_Eq__Name arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Name-Core-C-47C-61_Eq__Name arg-440 arg-441)))) arg-438 arg-439)))) (vector 1 e-2) arg-6)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define TTImp-TTImp-n--9591-7969-expandNS (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3)(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (vector 0 arg-2 (vector 1 e-0)))) ((5) (let ((e-1 (vector-ref sc0 1))) (vector 0 arg-2 (vector 5 e-1)))) ((2) (vector 0 arg-2 arg-3)) ((4) (vector 0 arg-2 arg-3))(else arg-3)))))))) +(define TTImp-TTImp-n--9591-7970-defName (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 5))) (vector 1 (TTImp-TTImp-n--9591-7969-expandNS arg-0 arg-1 arg-2 (TTImp-TTImp-n--9591-7967-getName arg-0 arg-1 e-4)) (vector 0 )))) ((1) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((0) (let ((e-19 (vector-ref sc1 2))) (let ((e-22 (vector-ref sc1 5))) (vector 1 (TTImp-TTImp-n--9591-7969-expandNS arg-0 arg-1 arg-2 e-19) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9591-7969-expandNS arg-0 arg-1 arg-2 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9591-7967-getName arg-0 arg-1 eta-0)) e-22)))))) ((1) (let ((e-24 (vector-ref sc1 2))) (vector 1 (TTImp-TTImp-n--9591-7969-expandNS arg-0 arg-1 arg-2 e-24) (vector 0 ))))(else (vector 0 )))))) ((3) (let ((e-10 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--9591-7970-defName arg-0 arg-1 arg-2 eta-0))) e-10))) ((5) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--9591-7970-defName arg-0 arg-1 (List-Prelude-C-43C-43 'erased e-12 arg-2) eta-0))) e-13)))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((sc1 e-17)) (case (vector-ref sc1 0) ((0) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (vector 1 (TTImp-TTImp-n--9591-7969-expandNS arg-0 arg-1 arg-2 e-29) (TTImp-TTImp-n--9597-8101-all arg-0 arg-1 e-14 e-16 e-26 e-28 e-30 e-29 e-27 e-15 arg-2))))))))(else (vector 0 )))))))))(else (vector 0 )))))) +(define TTImp-TTImp-n--9597-8101-all (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (vector 1 (TTImp-TTImp-n--9591-7969-expandNS arg-0 arg-1 arg-10 arg-8) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9591-7969-expandNS arg-0 arg-1 (TTImp-TTImp-n--9597-8097-fldnsC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) eta-0)) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-n--9597-8100-fnsRF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (TTImp-TTImp-n--9597-8099-fnsUN arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10)))))) +(define TTImp-TTImp-weaken_Weaken__NestedNames (lambda (arg-0 arg-1 arg-2) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--7647-6187-wknName arg-0 arg-1 arg-2 eta-0)) arg-2))) (define TTImp-TTImp-weakenNs_Weaken__NestedNames (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TTImp-TTImp-weaken_Weaken__NestedNames e-2 (List-Prelude-C-43C-43 'erased e-3 arg-0) (TTImp-TTImp-weakenNs_Weaken__NestedNames arg-0 e-3 arg-2))))))))) -(define TTImp-TTImp-toBuf_TTC__RawImp (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Name arg-0 e-1) eta-0))))))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (vector 0 e-8))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 1))) (vector 0 e-9))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-1)))) arg-0 e-4) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((act-28 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-5) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((act-29 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-6) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (vector 0 e-13))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-7) eta-0))))))))))))))))))))))))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-9) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-1)))) arg-0 e-10) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-11) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-12) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-13) eta-0))))))))))))))))))))))))))))))))) ((3) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-14) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-15) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__Name arg-0 e-16) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-17) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-18) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-19) eta-0))))))))))))))))))))))))))))))))) ((4) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (let ((e-23 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-20) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-21) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-22) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2106 eta-1)))) arg-0 e-23 eta-0))))))))))))))))))))))) ((5) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-24) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 eta-1)))) arg-0 e-25 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-26) eta-0)))))))))))))))))) ((6) (let ((e-31 (vector-ref sc0 5))) (TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-31))) ((7) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-32) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-2106 eta-1)))) arg-0 e-33 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-34) eta-0)))))))))))))))))) ((8) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-35) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-36) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-37) eta-0)))))))))))))))))) ((9) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (let ((e-41 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-38) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-39) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-40) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-41) eta-0))))))))))))))))))))))) ((10) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-42) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-43) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-44) eta-0)))))))))))))))))) ((11) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 10 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-45) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Nat arg-0 e-46) eta-0))))))))))))) ((12) (let ((e-47 (vector-ref sc0 1))) (let ((e-48 (vector-ref sc0 2))) (let ((e-49 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 11 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-47) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImp-TTImp-toBuf_TTC__AltType arg-0 e-48) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-1)))) arg-0 e-49 eta-0)))))))))))))))))) ((13) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 12 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-50) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-51) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-52) eta-0)))))))))))))))))) ((14) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 13 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-53) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-54) eta-0))))))))))))) ((15) (let ((e-55 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 2))) (let ((e-57 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-55) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImp-TTImp-toBuf_TTC__BindMode arg-0 e-56) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-57) eta-0)))))))))))))))))) ((16) (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 15 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-58) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__String arg-0 e-59) eta-0))))))))))))) ((17) (let ((e-60 (vector-ref sc0 1))) (let ((e-61 (vector-ref sc0 2))) (let ((e-62 (vector-ref sc0 3))) (let ((e-63 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 16 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-60) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__UseSide arg-0 e-61) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__Name arg-0 e-62) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-63) eta-0))))))))))))))))))))))) ((18) (let ((e-64 (vector-ref sc0 1))) (let ((e-66 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 17 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-64) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-66) eta-0))))))))))))) ((19) (let ((e-67 (vector-ref sc0 1))) (let ((e-68 (vector-ref sc0 2))) (let ((e-69 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 18 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-67) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__LazyReason arg-0 e-68) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-69) eta-0)))))))))))))))))) ((20) (let ((e-70 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 19 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-70) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-71) eta-0))))))))))))) ((21) (let ((e-72 (vector-ref sc0 1))) (let ((e-73 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 20 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-72) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-73) eta-0))))))))))))) ((22) (let ((e-74 (vector-ref sc0 1))) (let ((e-75 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 21 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-74) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-75) eta-0))))))))))))) ((23) (let ((e-76 (vector-ref sc0 1))) (let ((e-77 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 22 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-76) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Name arg-0 e-77) eta-0))))))))))))) ((24) (let ((e-78 (vector-ref sc0 1))) (let ((e-79 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 23 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-78) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 eta-1)))) arg-0 e-79 eta-0))))))))))))) ((25) (let ((e-80 (vector-ref sc0 1))) (let ((e-81 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 24 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-80) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-81) eta-0))))))))))))) ((26) (let ((e-82 (vector-ref sc0 1))) (let ((e-83 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 25 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-82) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-83) eta-0))))))))))))) ((27) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 26 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-84) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-0 e-85) eta-0))))))))))))) ((28) (let ((e-86 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 27 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__FC arg-0 e-86) eta-0)))))))) ((29) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 28 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-87) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__String arg-0 e-88) eta-0))))))))))))) ((30) (let ((e-91 (vector-ref sc0 3))) (TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-91))) ((31) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 29 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-92) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Bool arg-0 e-93) eta-0))))))))))))) (else (let ((e-95 (vector-ref sc0 2))) (let ((e-96 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 30 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-95 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-96) eta-0))))))))))))))))) +(define TTImp-TTImp-toBuf_TTC__RawImp (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Name arg-0 e-1) eta-0))))))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (vector 0 e-8))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 1))) (vector 0 e-9))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 eta-1)))) arg-0 e-4) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((act-28 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-0 e-5) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((act-29 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-6) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (vector 0 e-13))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-7) eta-0))))))))))))))))))))))))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-9) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 eta-1)))) arg-0 e-10) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-0 e-11) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-12) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-13) eta-0))))))))))))))))))))))))))))))))) ((3) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-14) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-15) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__Name arg-0 e-16) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-17) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-18) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-19) eta-0))))))))))))))))))))))))))))))))) ((4) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (let ((e-23 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-20) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-21) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-22) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2124 eta-1)))) arg-0 e-23 eta-0))))))))))))))))))))))) ((5) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-24) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2124 eta-1)))) arg-0 e-25 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-26) eta-0)))))))))))))))))) ((6) (let ((e-31 (vector-ref sc0 5))) (TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-31))) ((7) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-32) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-2124 eta-1)))) arg-0 e-33 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-34) eta-0)))))))))))))))))) ((8) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-35) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-36) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-37) eta-0)))))))))))))))))) ((9) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (let ((e-41 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-38) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-39) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-0 e-40) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-41) eta-0))))))))))))))))))))))) ((10) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-42) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-43) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-44) eta-0)))))))))))))))))) ((11) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 10 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-45) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Nat arg-0 e-46) eta-0))))))))))))) ((12) (let ((e-47 (vector-ref sc0 1))) (let ((e-48 (vector-ref sc0 2))) (let ((e-49 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 11 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-47) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImp-TTImp-toBuf_TTC__AltType arg-0 e-48) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 eta-1)))) arg-0 e-49 eta-0)))))))))))))))))) ((13) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 12 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-50) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-51) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-52) eta-0)))))))))))))))))) ((14) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 13 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-53) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-54) eta-0))))))))))))) ((15) (let ((e-55 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 2))) (let ((e-57 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-55) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImp-TTImp-toBuf_TTC__BindMode arg-0 e-56) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-57) eta-0)))))))))))))))))) ((16) (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 15 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-58) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__String arg-0 e-59) eta-0))))))))))))) ((17) (let ((e-60 (vector-ref sc0 1))) (let ((e-61 (vector-ref sc0 2))) (let ((e-62 (vector-ref sc0 3))) (let ((e-63 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 16 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-60) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__UseSide arg-0 e-61) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__Name arg-0 e-62) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-63) eta-0))))))))))))))))))))))) ((18) (let ((e-64 (vector-ref sc0 1))) (let ((e-66 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 17 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-64) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-66) eta-0))))))))))))) ((19) (let ((e-67 (vector-ref sc0 1))) (let ((e-68 (vector-ref sc0 2))) (let ((e-69 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 18 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-67) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__LazyReason arg-0 e-68) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-69) eta-0)))))))))))))))))) ((20) (let ((e-70 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 19 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-70) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-71) eta-0))))))))))))) ((21) (let ((e-72 (vector-ref sc0 1))) (let ((e-73 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 20 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-72) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-73) eta-0))))))))))))) ((22) (let ((e-74 (vector-ref sc0 1))) (let ((e-75 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 21 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-74) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-75) eta-0))))))))))))) ((23) (let ((e-76 (vector-ref sc0 1))) (let ((e-77 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 22 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-76) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Name arg-0 e-77) eta-0))))))))))))) ((24) (let ((e-78 (vector-ref sc0 1))) (let ((e-79 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 23 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-78) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2124 eta-1)))) arg-0 e-79 eta-0))))))))))))) ((25) (let ((e-80 (vector-ref sc0 1))) (let ((e-81 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 24 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-80) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-81) eta-0))))))))))))) ((26) (let ((e-82 (vector-ref sc0 1))) (let ((e-83 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 25 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-82) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-83) eta-0))))))))))))) ((27) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 26 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-84) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-0 e-85) eta-0))))))))))))) ((28) (let ((e-86 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 27 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__FC arg-0 e-86) eta-0)))))))) ((29) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 28 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-87) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__String arg-0 e-88) eta-0))))))))))))) ((30) (let ((e-91 (vector-ref sc0 3))) (TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-91))) ((31) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 29 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-92) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Bool arg-0 e-93) eta-0))))))))))))) (else (let ((e-95 (vector-ref sc0 2))) (let ((e-96 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 30 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-0 e-95 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-96) eta-0))))))))))))))))) (define TTImp-TTImp-toBuf_TTC__ImpTy (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Name arg-0 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-2) eta-0)))))))))))))))) -(define TTImp-TTImp-toBuf_TTC__ImpRecord (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Name arg-0 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__RigCount arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-1)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2111) (lambda (arg-2112) (TTImp-TTImp-toBuf_TTC__RawImp arg-2111 arg-2112))) (lambda (arg-2111) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2111 eta-1)))) arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-2)))) arg-2109 eta-1)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-1))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-2)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__RigCount arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-2)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-2))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-4)))) arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-3))))) arg-2107 eta-2))))) arg-2106 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__RigCount arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-2)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-2))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-4)))) arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-3))))) arg-2107 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__RigCount arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__RigCount arg-2108 eta-3)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-4)))) arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-3))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-4)))) arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2110) (lambda (eta-5) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-5)))) arg-2109 eta-4)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-4))))) arg-2108 eta-3))))) arg-2107 eta-2))))) arg-2106 eta-1)))) arg-0 e-2 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__Name arg-0 e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__IField arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__IField arg-2106 eta-1)))) arg-0 e-4 eta-0)))))))))))))))))))))))))) -(define TTImp-TTImp-toBuf_TTC__ImpDecl (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__Visibility arg-0 e-2) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((act-28 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__FnOpt arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-2106 eta-1)))) arg-0 e-3 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else ((TTImp-TTImp-toBuf_TTC__ImpTy arg-0 e-4) eta-0)))))))))))))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__Visibility arg-0 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__ImpData arg-0 e-7) eta-0)))))))))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__Name arg-0 e-9) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2106 eta-1)))) arg-0 e-10 eta-0)))))))))))))))))) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-11) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2107 eta-2))))) arg-2106 eta-1)))) arg-0 e-12 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 eta-1)))) arg-0 e-13 eta-0)))))))))))))))))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-14) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) arg-0 e-15) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__Visibility arg-0 e-16) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__ImpRecord arg-0 e-17) eta-0))))))))))))))))))))))) ((5) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-18) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) arg-0 e-19 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 eta-1)))) arg-0 e-20 eta-0)))))))))))))))))) ((6) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-21) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__Name arg-0 e-22) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-23) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-24) eta-0))))))))))))))))))))))) ((7) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-25) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-26) eta-0))))))))))))) ((8) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't write Pragma") eta-0))) (else (let ((e-28 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Nat arg-0 e-28) eta-0)))))))))))) -(define TTImp-TTImp-toBuf_TTC__ImpData (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__Name arg-0 e-1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((act-27 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-2) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((act-28 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__DataOpt arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-2106 eta-1)))) arg-0 e-3 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpTy arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-2106 eta-1)))) arg-0 e-4 eta-0)))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__Name arg-0 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-7) eta-0)))))))))))))))))))))) -(define TTImp-TTImp-toBuf_TTC__ImpClause (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-2) eta-0)))))))))))))))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-4) eta-0))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2106 eta-1)))) arg-0 e-9 eta-0))))))))))))))))))))))))))) -(define TTImp-TTImp-toBuf_TTC__IFieldUpdate (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) arg-0 e-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-1) eta-0))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) arg-0 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-3) eta-0))))))))))))))))) -(define TTImp-TTImp-toBuf_TTC__IField (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-1)))) arg-0 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__Name arg-0 e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-4) eta-0)))))))))))))))))))))))))) -(define TTImp-TTImp-toBuf_TTC__FnOpt (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 11 eta-0))) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Bool arg-0 e-0) eta-0)))))))) ((3) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Bool arg-0 e-1) eta-0)))))))) ((4) (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0))) ((5) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-1)))) arg-0 e-2 eta-0)))))))) ((6) (lambda (eta-0) (Binary-Utils-tag arg-0 5 eta-0))) ((7) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 6 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 7 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 8 eta-0))))))) ((8) (lambda (eta-0) (Binary-Utils-tag arg-0 9 eta-0))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 10 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-4 eta-0)))))))))))) -(define TTImp-TTImp-toBuf_TTC__DataOpt (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-0 eta-0)))))))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) ((2) (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))) ((3) (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 4 eta-0))))))) +(define TTImp-TTImp-toBuf_TTC__ImpRecord (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Name arg-0 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__RigCount arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2125 eta-1)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2129) (lambda (arg-2130) (TTImp-TTImp-toBuf_TTC__RawImp arg-2129 arg-2130))) (lambda (arg-2129) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2129 eta-1)))) arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTImp-TTImp-toBuf_TTC__RawImp arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-2)))) arg-2127 eta-1)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-1))))) arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTImp-TTImp-toBuf_TTC__RawImp arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-2)))) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3)))) arg-2126 eta-2)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__RigCount arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2125 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTImp-TTImp-toBuf_TTC__RawImp arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-2)))) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3)))) arg-2126 eta-2)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2126 eta-2))))) arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3)))) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-4)))) arg-2126 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2126 eta-3))))) arg-2125 eta-2))))) arg-2124 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__RigCount arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2125 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTImp-TTImp-toBuf_TTC__RawImp arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-2)))) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3)))) arg-2126 eta-2)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2126 eta-2))))) arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3)))) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-4)))) arg-2126 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2126 eta-3))))) arg-2125 eta-2))))) arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__RigCount arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__RigCount arg-2126 eta-3)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3)))) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-4)))) arg-2126 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2126 eta-3))))) arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-4)))) arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2128) (lambda (eta-5) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-5)))) arg-2127 eta-4)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-4))))) arg-2126 eta-3))))) arg-2125 eta-2))))) arg-2124 eta-1)))) arg-0 e-2 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__Name arg-0 e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__IField arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__IField arg-2124 eta-1)))) arg-0 e-4 eta-0)))))))))))))))))))))))))) +(define TTImp-TTImp-toBuf_TTC__ImpDecl (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__Visibility arg-0 e-2) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((act-28 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__FnOpt arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-2124 eta-1)))) arg-0 e-3 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else ((TTImp-TTImp-toBuf_TTC__ImpTy arg-0 e-4) eta-0)))))))))))))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__Visibility arg-0 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__ImpData arg-0 e-7) eta-0)))))))))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__Name arg-0 e-9) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2124 eta-1)))) arg-0 e-10 eta-0)))))))))))))))))) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-11) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2125 eta-2))))) arg-2124 eta-1)))) arg-0 e-12 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2124 eta-1)))) arg-0 e-13 eta-0)))))))))))))))))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-14) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-1)))) arg-0 e-15) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__Visibility arg-0 e-16) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__ImpRecord arg-0 e-17) eta-0))))))))))))))))))))))) ((5) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-18) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-1)))) arg-0 e-19 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2124 eta-1)))) arg-0 e-20 eta-0)))))))))))))))))) ((6) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-21) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__Name arg-0 e-22) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-23) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-24) eta-0))))))))))))))))))))))) ((7) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-25) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-26) eta-0))))))))))))) ((8) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't write Pragma") eta-0))) (else (let ((e-28 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Nat arg-0 e-28) eta-0)))))))))))) +(define TTImp-TTImp-toBuf_TTC__ImpData (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__Name arg-0 e-1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((act-27 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-2) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((act-28 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__DataOpt arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-2124 eta-1)))) arg-0 e-3 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpTy arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-2124 eta-1)))) arg-0 e-4 eta-0)))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__Name arg-0 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-7) eta-0)))))))))))))))))))))) +(define TTImp-TTImp-toBuf_TTC__ImpClause (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-2) eta-0)))))))))))))))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-4) eta-0))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2124 eta-1)))) arg-0 e-9 eta-0))))))))))))))))))))))))))) +(define TTImp-TTImp-toBuf_TTC__IFieldUpdate (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-1)))) arg-0 e-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-1) eta-0))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-1)))) arg-0 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-3) eta-0))))))))))))))))) +(define TTImp-TTImp-toBuf_TTC__IField (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 eta-1)))) arg-0 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__Name arg-0 e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-4) eta-0)))))))))))))))))))))))))) +(define TTImp-TTImp-toBuf_TTC__FnOpt (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 11 eta-0))) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Bool arg-0 e-0) eta-0)))))))) ((3) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Bool arg-0 e-1) eta-0)))))))) ((4) (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0))) ((5) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 eta-1)))) arg-0 e-2 eta-0)))))))) ((6) (lambda (eta-0) (Binary-Utils-tag arg-0 5 eta-0))) ((7) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 6 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 7 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 8 eta-0))))))) ((8) (lambda (eta-0) (Binary-Utils-tag arg-0 9 eta-0))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 10 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-0 e-4 eta-0)))))))))))) +(define TTImp-TTImp-toBuf_TTC__DataOpt (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-0 e-0 eta-0)))))))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) ((2) (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))) ((3) (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 4 eta-0))))))) (define TTImp-TTImp-toBuf_TTC__BindMode (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__RigCount arg-0 e-0) eta-0)))))))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))))))) (define TTImp-TTImp-toBuf_TTC__AltType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) (else (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-0) eta-0)))))))))))) (define TTImp-TTImp-show_Show__RawImp (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (Name-Core-show_Show__Name e-1))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (Strings-Prelude-C-43C-43 "(%pi " (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-4) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 6 ) e-5) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-6) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-7) ")")))))))))))))))) ((2) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (Strings-Prelude-C-43C-43 "(%lam " (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-9) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-10) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 6 ) e-11) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-12) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-13) ")")))))))))))))))) ((3) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (Strings-Prelude-C-43C-43 "(%let " (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-15) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-16) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-17) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-18) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-19) ")"))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (let ((e-23 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "(%case (" (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-21) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-22) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-23) ")")))))))))) ((5) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(%local (" (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpDecl x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpDecl d x)))) e-25) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-26) ")"))))))) ((6) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((e-30 (vector-ref sc0 4))) (let ((e-31 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 "(%caselocal (" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-28) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-29) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-30) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-31) ")"))))))))))))) ((7) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(%record " (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (TTImp-TTImp-show_Show__IFieldUpdate arg-1)) e-33)) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-34) ")"))))))) ((8) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-36) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-37) ")"))))))) ((9) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (let ((e-41 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-39) (Strings-Prelude-C-43C-43 " [" (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-40) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-41) "])")))))))))) ((10) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-43) (Strings-Prelude-C-43C-43 " | " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-44) ")"))))))) ((11) "%search") ((12) (let ((e-49 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(|" (Strings-Prelude-C-43C-43 (Name-Core-showSep "," (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (TTImp-TTImp-show_Show__RawImp arg-1)) e-49)) "|)")))) ((13) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(%rewrite (" (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-51) (Strings-Prelude-C-43C-43 ") (" (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-52) "))"))))))) ((14) (let ((e-54 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(%coerced " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-54) ")")))) ((15) (let ((e-57 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(%bindhere " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-57) ")")))) ((16) (let ((e-59 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "$" e-59))) ((17) (let ((e-62 (vector-ref sc0 3))) (let ((e-63 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-62) (Strings-Prelude-C-43C-43 "@(" (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-63) ")")))))) ((18) (let ((e-66 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 ".(" (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-66) ")")))) ((19) (let ((e-69 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(%delayed " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-69) ")")))) ((20) (let ((e-71 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(%delay " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-71) ")")))) ((21) (let ((e-73 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(%force " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-73) ")")))) ((22) (let ((e-75 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(%quote " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-75) ")")))) ((23) (let ((e-77 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(%quotename " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-77) ")")))) ((24) (let ((e-79 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(%quotedecl " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpDecl x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpDecl d x)))) e-79) ")")))) ((25) (let ((e-81 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(%unquote " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-81) ")")))) ((26) (let ((e-83 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(%runelab " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-83) ")")))) ((27) (let ((e-85 (vector-ref sc0 2))) (TT-Core-show_Show__Constant e-85))) ((29) (let ((e-87 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "?" e-87))) ((30) (let ((e-89 (vector-ref sc0 2))) (let ((e-90 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(%logging " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-89) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-90) ")"))))))) ((28) "%type") ((31) (let ((e-93 (vector-ref sc0 2))) (let ((sc1 e-93)) (cond ((equal? sc1 0) "_") (else "?"))))) (else (let ((e-95 (vector-ref sc0 2))) (let ((e-96 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(%with " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-95) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-96) ")"))))))))))) @@ -1921,58 +1939,58 @@ (define TTImp-TTImp-showPrec_Show__ImpClause (lambda (arg-0 arg-1) (TTImp-TTImp-show_Show__ImpClause arg-1))) (define TTImp-TTImp-showPrec_Show__IFieldUpdate (lambda (arg-0 arg-1) (TTImp-TTImp-show_Show__IFieldUpdate arg-1))) (define TTImp-TTImp-showPrec_Show__FnOpt (lambda (arg-0 arg-1) (TTImp-TTImp-show_Show__FnOpt arg-1))) -(define TTImp-TTImp-fromBuf_TTC__RawImp (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-6 e-7))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__RigCount arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 1 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))))))))))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__RigCount arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 2 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))))))))))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__RigCount arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 3 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))))))))))))))))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 4 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 5) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 5 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 6) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 7 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 7) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 8 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 8) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 9 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 10 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 10) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 11 e-6 e-7))))))))))))) ((equal? sc1 11) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__AltType arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 12 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 12) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 13 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 13) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 14 e-6 e-7))))))))))))) ((equal? sc1 14) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__BindMode arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 15 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 15) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 16 e-6 e-7))))))))))))) ((equal? sc1 16) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__UseSide arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 17 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 17) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 18 e-6 (vector 5 ) e-7))))))))))))) ((equal? sc1 18) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__LazyReason arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 19 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 19) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 20 e-6 e-7))))))))))))) ((equal? sc1 20) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 21 e-6 e-7))))))))))))) ((equal? sc1 21) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 22 e-6 e-7))))))))))))) ((equal? sc1 22) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 23 e-6 e-7))))))))))))) ((equal? sc1 23) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 24 e-6 e-7))))))))))))) ((equal? sc1 24) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 25 e-6 e-7))))))))))))) ((equal? sc1 25) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 26 e-6 e-7))))))))))))) ((equal? sc1 26) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 27 e-6 e-7))))))))))))) ((equal? sc1 27) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 28 e-6)))))))) ((equal? sc1 28) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 29 e-6 e-7))))))))))))) ((equal? sc1 29) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Bool arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 31 e-6 e-7))))))))))))) ((equal? sc1 30) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 32 e-6 e-7 e-8))))))))))))))))))(else (Binary-Utils-corrupt 'erased "RawImp" ext-0))))))))))) +(define TTImp-TTImp-fromBuf_TTC__RawImp (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-6 e-7))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__RigCount arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 1 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))))))))))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__RigCount arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 2 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))))))))))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__RigCount arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 3 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))))))))))))))))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 4 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 5) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 5 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 6) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 7 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 7) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 8 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 8) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 9 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 10 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 10) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 11 e-6 e-7))))))))))))) ((equal? sc1 11) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__AltType arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 12 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 12) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 13 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 13) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 14 e-6 e-7))))))))))))) ((equal? sc1 14) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__BindMode arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 15 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 15) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 16 e-6 e-7))))))))))))) ((equal? sc1 16) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__UseSide arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 17 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 17) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 18 e-6 (vector 5 ) e-7))))))))))))) ((equal? sc1 18) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__LazyReason arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 19 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 19) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 20 e-6 e-7))))))))))))) ((equal? sc1 20) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 21 e-6 e-7))))))))))))) ((equal? sc1 21) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 22 e-6 e-7))))))))))))) ((equal? sc1 22) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 23 e-6 e-7))))))))))))) ((equal? sc1 23) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 24 e-6 e-7))))))))))))) ((equal? sc1 24) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 25 e-6 e-7))))))))))))) ((equal? sc1 25) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 26 e-6 e-7))))))))))))) ((equal? sc1 26) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 27 e-6 e-7))))))))))))) ((equal? sc1 27) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 28 e-6)))))))) ((equal? sc1 28) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 29 e-6 e-7))))))))))))) ((equal? sc1 29) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Bool arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 31 e-6 e-7))))))))))))) ((equal? sc1 30) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 32 e-6 e-7 e-8))))))))))))))))))(else (Binary-Utils-corrupt 'erased "RawImp" ext-0))))))))))) (define TTImp-TTImp-fromBuf_TTC__ImpTy (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 0 e-5 e-6 e-7))))))))))))))))))) -(define TTImp-TTImp-fromBuf_TTC__ImpRecord (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__RigCount arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2111) (lambda (arg-2112) (TTImp-TTImp-toBuf_TTC__RawImp arg-2111 arg-2112))) (lambda (arg-2111) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2111 eta-0)))) arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-1)))) arg-2109 eta-0)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-0))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-1)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2)))) arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-1))))) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__RigCount arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-1)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2)))) arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__RigCount arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-1)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2)))) arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__RigCount arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3)))) arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2110) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-4)))) arg-2109 eta-3)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__IField arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IField arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) -(define TTImp-TTImp-fromBuf_TTC__ImpDecl (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__RigCount arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__Visibility arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__FnOpt arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTImp-TTImp-fromBuf_TTC__ImpTy arg-0 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Visibility arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__ImpData arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 2 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2107 eta-1))))) arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 3 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__Visibility arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__ImpRecord arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 4 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 5) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 5 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 6) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 6 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 7) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 7 e-6 e-7))))))))))))) ((equal? sc1 8) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 9 e-6))))))))(else (Binary-Utils-corrupt 'erased "ImpDecl" ext-0))))))))))) -(define TTImp-TTImp-fromBuf_TTC__ImpData (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__DataOpt arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpTy arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 e-6 e-7 e-8))))))))))))))))))(else (Binary-Utils-corrupt 'erased "ImpData" ext-0))))))))))) -(define TTImp-TTImp-fromBuf_TTC__ImpClause (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 e-6 e-7))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 1 e-6 e-7 e-8 (vector 0 ) e-9)))))))))))))))))))))))(else (Binary-Utils-corrupt 'erased "ImpClause" ext-0))))))))))) -(define TTImp-TTImp-fromBuf_TTC__IFieldUpdate (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-6 e-7))))))))))))) ((equal? sc1 1) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-6 e-7)))))))))))))(else (Binary-Utils-corrupt 'erased "IFieldUpdate" ext-0))))))))))) -(define TTImp-TTImp-fromBuf_TTC__IField (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) -(define TTImp-TTImp-fromBuf_TTC__FnOpt (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (let ((act-25 (Binary-Utils-fromBuf_TTC__Bool arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-6)))))))) ((equal? sc1 2) (let ((act-25 (Binary-Utils-fromBuf_TTC__Bool arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-6)))))))) ((equal? sc1 3) (vector 1 (vector 4 ))) ((equal? sc1 4) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-6)))))))) ((equal? sc1 5) (vector 1 (vector 6 ))) ((equal? sc1 6) (vector 1 (vector 7 (vector 0 )))) ((equal? sc1 7) (vector 1 (vector 7 (vector 1 )))) ((equal? sc1 8) (vector 1 (vector 7 (vector 2 )))) ((equal? sc1 9) (vector 1 (vector 8 ))) ((equal? sc1 10) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 9 e-6)))))))) ((equal? sc1 11) (vector 1 (vector 1 )))(else (Binary-Utils-corrupt 'erased "FnOpt" ext-0))))))))))) -(define TTImp-TTImp-fromBuf_TTC__DataOpt (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-6)))))))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (vector 1 (vector 2 ))) ((equal? sc1 3) (vector 1 (vector 3 ))) ((equal? sc1 4) (vector 1 (vector 4 )))(else (Binary-Utils-corrupt 'erased "DataOpt" ext-0))))))))))) +(define TTImp-TTImp-fromBuf_TTC__ImpRecord (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__RigCount arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RigCount arg-2125 eta-0)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2129) (lambda (arg-2130) (TTImp-TTImp-toBuf_TTC__RawImp arg-2129 arg-2130))) (lambda (arg-2129) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2129 eta-0)))) arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTImp-TTImp-toBuf_TTC__RawImp arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-1)))) arg-2127 eta-0)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-0))))) arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTImp-TTImp-toBuf_TTC__RawImp arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-1)))) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-2)))) arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2126 eta-1))))) arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__RigCount arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTImp-TTImp-toBuf_TTC__RawImp arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-1)))) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-2)))) arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2126 eta-1))))) arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-2)))) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3)))) arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__RigCount arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTImp-TTImp-toBuf_TTC__RawImp arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-1)))) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-2)))) arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2126 eta-1))))) arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-2)))) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3)))) arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__RigCount arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-2)))) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3)))) arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2126 eta-2))))) arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3)))) arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2128) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-4)))) arg-2127 eta-3)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3))))) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__IField arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IField arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) +(define TTImp-TTImp-fromBuf_TTC__ImpDecl (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__RigCount arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__Visibility arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__FnOpt arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTImp-TTImp-fromBuf_TTC__ImpTy arg-0 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Visibility arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__ImpData arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 2 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2125 eta-1))))) arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 3 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__Visibility arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__ImpRecord arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 4 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 5) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 5 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 6) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 6 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 7) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 7 e-6 e-7))))))))))))) ((equal? sc1 8) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 9 e-6))))))))(else (Binary-Utils-corrupt 'erased "ImpDecl" ext-0))))))))))) +(define TTImp-TTImp-fromBuf_TTC__ImpData (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__DataOpt arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpTy arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 e-6 e-7 e-8))))))))))))))))))(else (Binary-Utils-corrupt 'erased "ImpData" ext-0))))))))))) +(define TTImp-TTImp-fromBuf_TTC__ImpClause (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 e-6 e-7))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 1 e-6 e-7 e-8 (vector 0 ) e-9)))))))))))))))))))))))(else (Binary-Utils-corrupt 'erased "ImpClause" ext-0))))))))))) +(define TTImp-TTImp-fromBuf_TTC__IFieldUpdate (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-6 e-7))))))))))))) ((equal? sc1 1) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-6 e-7)))))))))))))(else (Binary-Utils-corrupt 'erased "IFieldUpdate" ext-0))))))))))) +(define TTImp-TTImp-fromBuf_TTC__IField (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) +(define TTImp-TTImp-fromBuf_TTC__FnOpt (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (let ((act-25 (Binary-Utils-fromBuf_TTC__Bool arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-6)))))))) ((equal? sc1 2) (let ((act-25 (Binary-Utils-fromBuf_TTC__Bool arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-6)))))))) ((equal? sc1 3) (vector 1 (vector 4 ))) ((equal? sc1 4) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-6)))))))) ((equal? sc1 5) (vector 1 (vector 6 ))) ((equal? sc1 6) (vector 1 (vector 7 (vector 0 )))) ((equal? sc1 7) (vector 1 (vector 7 (vector 1 )))) ((equal? sc1 8) (vector 1 (vector 7 (vector 2 )))) ((equal? sc1 9) (vector 1 (vector 8 ))) ((equal? sc1 10) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 9 e-6)))))))) ((equal? sc1 11) (vector 1 (vector 1 )))(else (Binary-Utils-corrupt 'erased "FnOpt" ext-0))))))))))) +(define TTImp-TTImp-fromBuf_TTC__DataOpt (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-6)))))))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (vector 1 (vector 2 ))) ((equal? sc1 3) (vector 1 (vector 3 ))) ((equal? sc1 4) (vector 1 (vector 4 )))(else (Binary-Utils-corrupt 'erased "DataOpt" ext-0))))))))))) (define TTImp-TTImp-fromBuf_TTC__BindMode (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-6)))))))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (vector 1 (vector 2 )))(else (Binary-Utils-corrupt 'erased "BindMode" ext-0))))))))))) (define TTImp-TTImp-fromBuf_TTC__AltType (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-6))))))))(else (Binary-Utils-corrupt 'erased "AltType" ext-0))))))))))) -(define TTImp-TTImp-__Impl_Weaken_NestedNames (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (TTImp-TTImp-weaken_Weaken__NestedNames n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (TTImp-TTImp-weakenNs_Weaken__NestedNames vars ns arg-3271))))))) -(define TTImp-TTImp-__Impl_TTC_RawImp (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-0)))))) -(define TTImp-TTImp-__Impl_TTC_ImpTy (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpTy arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-2106 eta-0)))))) -(define TTImp-TTImp-__Impl_TTC_ImpRecord (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpRecord arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpRecord arg-2106 eta-0)))))) -(define TTImp-TTImp-__Impl_TTC_ImpDecl (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 eta-0)))))) -(define TTImp-TTImp-__Impl_TTC_ImpData (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpData arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpData arg-2106 eta-0)))))) -(define TTImp-TTImp-__Impl_TTC_ImpClause (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2106 eta-0)))))) -(define TTImp-TTImp-__Impl_TTC_IFieldUpdate (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-2106 eta-0)))))) -(define TTImp-TTImp-__Impl_TTC_IField (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__IField arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IField arg-2106 eta-0)))))) -(define TTImp-TTImp-__Impl_TTC_FnOpt (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__FnOpt arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-2106 eta-0)))))) -(define TTImp-TTImp-__Impl_TTC_DataOpt (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__DataOpt arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-2106 eta-0)))))) -(define TTImp-TTImp-__Impl_TTC_BindMode (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__BindMode arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__BindMode arg-2106 eta-0)))))) -(define TTImp-TTImp-__Impl_TTC_AltType (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__AltType arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__AltType arg-2106 eta-0)))))) +(define TTImp-TTImp-__Impl_Weaken_NestedNames (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3275) (TTImp-TTImp-weaken_Weaken__NestedNames n vars arg-3275)))) (lambda (vars) (lambda (ns) (lambda (arg-3279) (TTImp-TTImp-weakenNs_Weaken__NestedNames vars ns arg-3279))))))) +(define TTImp-TTImp-__Impl_TTC_RawImp (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 eta-0)))))) +(define TTImp-TTImp-__Impl_TTC_ImpTy (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpTy arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-2124 eta-0)))))) +(define TTImp-TTImp-__Impl_TTC_ImpRecord (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpRecord arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpRecord arg-2124 eta-0)))))) +(define TTImp-TTImp-__Impl_TTC_ImpDecl (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2124 eta-0)))))) +(define TTImp-TTImp-__Impl_TTC_ImpData (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpData arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpData arg-2124 eta-0)))))) +(define TTImp-TTImp-__Impl_TTC_ImpClause (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2124 eta-0)))))) +(define TTImp-TTImp-__Impl_TTC_IFieldUpdate (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-2124 eta-0)))))) +(define TTImp-TTImp-__Impl_TTC_IField (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__IField arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IField arg-2124 eta-0)))))) +(define TTImp-TTImp-__Impl_TTC_FnOpt (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__FnOpt arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-2124 eta-0)))))) +(define TTImp-TTImp-__Impl_TTC_DataOpt (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__DataOpt arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-2124 eta-0)))))) +(define TTImp-TTImp-__Impl_TTC_BindMode (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__BindMode arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__BindMode arg-2124 eta-0)))))) +(define TTImp-TTImp-__Impl_TTC_AltType (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__AltType arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__AltType arg-2124 eta-0)))))) (define TTImp-TTImp-__Impl_Show_RawImp (lambda () (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))))) (define TTImp-TTImp-__Impl_Show_ImpTy (lambda () (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpTy x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpTy d x)))))) (define TTImp-TTImp-__Impl_Show_ImpDecl (lambda () (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpDecl x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpDecl d x)))))) (define TTImp-TTImp-__Impl_Show_ImpClause (lambda () (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))))) (define TTImp-TTImp-__Impl_Show_IFieldUpdate (lambda () (vector 0 (lambda (x) (TTImp-TTImp-show_Show__IFieldUpdate x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__IFieldUpdate d x)))))) (define TTImp-TTImp-__Impl_Show_FnOpt (lambda () (vector 0 (lambda (x) (TTImp-TTImp-show_Show__FnOpt x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__FnOpt d x)))))) -(define TTImp-TTImp-__Impl_Eq_WithFlag (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (TTImp-TTImp-C-61C-61_Eq__WithFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TTImp-TTImp-C-47C-61_Eq__WithFlag arg-430 arg-431)))))) -(define TTImp-TTImp-__Impl_Eq_DataOpt (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-430 arg-431)))))) +(define TTImp-TTImp-__Impl_Eq_WithFlag (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (TTImp-TTImp-C-61C-61_Eq__WithFlag arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TTImp-TTImp-C-47C-61_Eq__WithFlag arg-438 arg-439)))))) +(define TTImp-TTImp-__Impl_Eq_DataOpt (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-438 arg-439)))))) (define TTImp-TTImp-C-61C-61_Eq__WithFlag (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (let ((sc1 arg-1)) 0)))) -(define TTImp-TTImp-C-61C-61_Eq__DataOpt (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-0 e-1)))(else 1))))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0)(else 1)))) ((3) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) 0)(else 1)))) ((4) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) 0)(else 1))))(else 1))))) +(define TTImp-TTImp-C-61C-61_Eq__DataOpt (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-0 e-1)))(else 1))))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0)(else 1)))) ((3) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) 0)(else 1)))) ((4) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) 0)(else 1))))(else 1))))) (define TTImp-TTImp-C-47C-61_Eq__WithFlag (lambda (arg-0 arg-1) (Prelude-not (TTImp-TTImp-C-61C-61_Eq__WithFlag arg-0 arg-1)))) (define TTImp-TTImp-C-47C-61_Eq__DataOpt (lambda (arg-0 arg-1) (Prelude-not (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-0 arg-1)))) (define NestedNames-TTImp-TTImp-names (lambda (arg-0 arg-1) arg-1)) -(define TTImp-TTImp-lhsInCurrentNS (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-2 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-0 e-5 e-2)))))))))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-2 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc1 1))) (vector 1 (vector 9 e-3 e-7 e-5 e-6))))))))))))) ((10) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-2 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 10 e-7 e-5 e-9)))))))))))) ((0) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-3)))(else (TTImp-TTImp-case--8813-7337 'erased e-11 e-10 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-11 arg-2))))))))(else (lambda (eta-0) (vector 1 arg-3))))))) -(define TTImp-TTImp-implicitsAs (lambda (arg-0 arg-1 arg-2) (TTImp-TTImp-n--9061-7488-setAs arg-2 arg-1 arg-0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (List-Prelude-C-43C-43 'erased arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (TTImp-TTImp-findIBinds arg-2)))) arg-2))) +(define TTImp-TTImp-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--8841-7345 'erased e-11 e-10 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-11 arg-2))))))))(else (lambda (eta-0) (vector 1 arg-3))))))) +(define TTImp-TTImp-implicitsAs (lambda (arg-0 arg-1 arg-2) (TTImp-TTImp-n--9089-7496-setAs arg-2 arg-1 arg-0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (List-Prelude-C-43C-43 'erased arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (TTImp-TTImp-findIBinds arg-2)))) arg-2))) (define TTImp-TTImp-getFn (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((8) (let ((e-1 (vector-ref sc0 2))) (TTImp-TTImp-getFn e-1))) ((10) (let ((e-4 (vector-ref sc0 2))) (TTImp-TTImp-getFn e-4))) ((9) (let ((e-7 (vector-ref sc0 2))) (TTImp-TTImp-getFn e-7))) ((17) (let ((e-13 (vector-ref sc0 4))) (TTImp-TTImp-getFn e-13))) ((18) (let ((e-16 (vector-ref sc0 3))) (TTImp-TTImp-getFn e-16)))(else arg-0))))) (define TTImp-TTImp-getFC (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) e-0)) ((1) (let ((e-2 (vector-ref sc0 1))) e-2)) ((2) (let ((e-8 (vector-ref sc0 1))) e-8)) ((3) (let ((e-14 (vector-ref sc0 1))) e-14)) ((4) (let ((e-20 (vector-ref sc0 1))) e-20)) ((5) (let ((e-24 (vector-ref sc0 1))) e-24)) ((6) (let ((e-27 (vector-ref sc0 1))) e-27)) ((7) (let ((e-32 (vector-ref sc0 1))) e-32)) ((8) (let ((e-35 (vector-ref sc0 1))) e-35)) ((9) (let ((e-38 (vector-ref sc0 1))) e-38)) ((10) (let ((e-42 (vector-ref sc0 1))) e-42)) ((11) (let ((e-45 (vector-ref sc0 1))) e-45)) ((12) (let ((e-47 (vector-ref sc0 1))) e-47)) ((13) (let ((e-50 (vector-ref sc0 1))) e-50)) ((14) (let ((e-53 (vector-ref sc0 1))) e-53)) ((27) (let ((e-55 (vector-ref sc0 1))) e-55)) ((29) (let ((e-57 (vector-ref sc0 1))) e-57)) ((30) (let ((e-59 (vector-ref sc0 1))) e-59)) ((28) (let ((e-62 (vector-ref sc0 1))) e-62)) ((16) (let ((e-63 (vector-ref sc0 1))) e-63)) ((15) (let ((e-65 (vector-ref sc0 1))) e-65)) ((18) (let ((e-68 (vector-ref sc0 1))) e-68)) ((19) (let ((e-71 (vector-ref sc0 1))) e-71)) ((20) (let ((e-74 (vector-ref sc0 1))) e-74)) ((21) (let ((e-76 (vector-ref sc0 1))) e-76)) ((22) (let ((e-78 (vector-ref sc0 1))) e-78)) ((23) (let ((e-80 (vector-ref sc0 1))) e-80)) ((24) (let ((e-82 (vector-ref sc0 1))) e-82)) ((25) (let ((e-84 (vector-ref sc0 1))) e-84)) ((26) (let ((e-86 (vector-ref sc0 1))) e-86)) ((17) (let ((e-88 (vector-ref sc0 1))) e-88)) ((31) (let ((e-92 (vector-ref sc0 1))) e-92)) (else (let ((e-94 (vector-ref sc0 1))) e-94)))))) -(define TTImp-TTImp-findImplicits (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (let ((e-48 (vector-ref sc1 1))) (let ((sc2 e-48)) (case (vector-ref sc2 0) ((1) (let ((e-49 (vector-ref sc2 1))) (vector 1 e-49 (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-4) (TTImp-TTImp-findImplicits e-5)))))(else (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-4) (TTImp-TTImp-findImplicits e-5)))))))(else (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-4) (TTImp-TTImp-findImplicits e-5))))))))) ((2) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-10) (TTImp-TTImp-findImplicits e-11))))) ((8) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-13) (TTImp-TTImp-findImplicits e-14))))) ((9) (let ((e-16 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-16) (TTImp-TTImp-findImplicits e-18))))) ((10) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-20) (TTImp-TTImp-findImplicits e-21))))) ((17) (let ((e-25 (vector-ref sc0 4))) (TTImp-TTImp-findImplicits e-25))) ((18) (let ((e-28 (vector-ref sc0 3))) (TTImp-TTImp-findImplicits e-28))) ((12) (let ((e-31 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-findImplicits eta-0))) e-31))) ((19) (let ((e-34 (vector-ref sc0 3))) (TTImp-TTImp-findImplicits e-34))) ((20) (let ((e-36 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-36))) ((21) (let ((e-38 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-38))) ((22) (let ((e-40 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-40))) ((25) (let ((e-42 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-42))) ((26) (let ((e-44 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-44))) ((16) (let ((e-46 (vector-ref sc0 2))) (vector 1 e-46 (vector 0 ))))(else (vector 0 )))))) -(define TTImp-TTImp-findIBinds (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findIBinds e-4) (TTImp-TTImp-findIBinds e-5))))) ((2) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findIBinds e-10) (TTImp-TTImp-findIBinds e-11))))) ((8) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findIBinds e-13) (TTImp-TTImp-findIBinds e-14))))) ((9) (let ((e-16 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findIBinds e-16) (TTImp-TTImp-findIBinds e-18))))) ((10) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findIBinds e-20) (TTImp-TTImp-findIBinds e-21))))) ((17) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (let ((sc1 e-24)) (case (vector-ref sc1 0) ((1) (let ((e-50 (vector-ref sc1 1))) (vector 1 e-50 (TTImp-TTImp-findIBinds e-25))))(else (TTImp-TTImp-findIBinds e-25))))))) ((18) (let ((e-28 (vector-ref sc0 3))) (TTImp-TTImp-findIBinds e-28))) ((12) (let ((e-31 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-findIBinds eta-0))) e-31))) ((19) (let ((e-34 (vector-ref sc0 3))) (TTImp-TTImp-findIBinds e-34))) ((20) (let ((e-36 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-36))) ((21) (let ((e-38 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-38))) ((22) (let ((e-40 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-40))) ((25) (let ((e-42 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-42))) ((26) (let ((e-44 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-44))) ((15) (let ((e-47 (vector-ref sc0 3))) (TTImp-TTImp-findIBinds e-47))) ((16) (let ((e-49 (vector-ref sc0 2))) (vector 1 e-49 (vector 0 ))))(else (vector 0 )))))) -(define TTImp-TTImp-definedInBlock (lambda (arg-0 arg-1) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--9563-7962-defName arg-1 arg-0 arg-0 eta-0))) arg-1))) +(define TTImp-TTImp-findImplicits (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (let ((e-48 (vector-ref sc1 1))) (let ((sc2 e-48)) (case (vector-ref sc2 0) ((1) (let ((e-49 (vector-ref sc2 1))) (vector 1 e-49 (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-4) (TTImp-TTImp-findImplicits e-5)))))(else (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-4) (TTImp-TTImp-findImplicits e-5)))))))(else (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-4) (TTImp-TTImp-findImplicits e-5))))))))) ((2) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-10) (TTImp-TTImp-findImplicits e-11))))) ((8) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-13) (TTImp-TTImp-findImplicits e-14))))) ((9) (let ((e-16 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-16) (TTImp-TTImp-findImplicits e-18))))) ((10) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-20) (TTImp-TTImp-findImplicits e-21))))) ((17) (let ((e-25 (vector-ref sc0 4))) (TTImp-TTImp-findImplicits e-25))) ((18) (let ((e-28 (vector-ref sc0 3))) (TTImp-TTImp-findImplicits e-28))) ((12) (let ((e-31 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-findImplicits eta-0))) e-31))) ((19) (let ((e-34 (vector-ref sc0 3))) (TTImp-TTImp-findImplicits e-34))) ((20) (let ((e-36 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-36))) ((21) (let ((e-38 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-38))) ((22) (let ((e-40 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-40))) ((25) (let ((e-42 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-42))) ((26) (let ((e-44 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-44))) ((16) (let ((e-46 (vector-ref sc0 2))) (vector 1 e-46 (vector 0 ))))(else (vector 0 )))))) +(define TTImp-TTImp-findIBinds (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findIBinds e-4) (TTImp-TTImp-findIBinds e-5))))) ((2) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findIBinds e-10) (TTImp-TTImp-findIBinds e-11))))) ((8) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findIBinds e-13) (TTImp-TTImp-findIBinds e-14))))) ((9) (let ((e-16 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findIBinds e-16) (TTImp-TTImp-findIBinds e-18))))) ((10) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findIBinds e-20) (TTImp-TTImp-findIBinds e-21))))) ((17) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (let ((sc1 e-24)) (case (vector-ref sc1 0) ((1) (let ((e-50 (vector-ref sc1 1))) (vector 1 e-50 (TTImp-TTImp-findIBinds e-25))))(else (TTImp-TTImp-findIBinds e-25))))))) ((18) (let ((e-28 (vector-ref sc0 3))) (TTImp-TTImp-findIBinds e-28))) ((12) (let ((e-31 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-findIBinds eta-0))) e-31))) ((19) (let ((e-34 (vector-ref sc0 3))) (TTImp-TTImp-findIBinds e-34))) ((20) (let ((e-36 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-36))) ((21) (let ((e-38 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-38))) ((22) (let ((e-40 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-40))) ((25) (let ((e-42 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-42))) ((26) (let ((e-44 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-44))) ((15) (let ((e-47 (vector-ref sc0 3))) (TTImp-TTImp-findIBinds e-47))) ((16) (let ((e-49 (vector-ref sc0 2))) (vector 1 e-49 (vector 0 ))))(else (vector 0 )))))) +(define TTImp-TTImp-definedInBlock (lambda (arg-0 arg-1) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--9591-7970-defName arg-1 arg-0 arg-0 eta-0))) arg-1))) (define TTImp-TTImp-apply (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-0) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TTImp-TTImp-apply (vector 8 (TTImp-TTImp-getFC arg-0) arg-0 e-2) e-3)))))))) -(define Value-Core-case--4990-3154 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (vector 0 e-0 e-1 e-2 e-3 e-4 0 e-6 e-7))))))))))) +(define Value-Core-case--5032-3162 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (vector 0 e-0 e-1 e-2 e-3 e-4 0 e-6 e-7))))))))))) (define Value-Core-withHoles (lambda () (vector 0 0 0 1 (IntMap-Data-empty 'erased) 1 1 (vector 0 ) (vector 0 )))) (define Value-Core-withArgHoles (lambda () (vector 0 1 0 1 (IntMap-Data-empty 'erased) 1 1 (vector 0 ) (vector 0 )))) (define Value-Core-withAll (lambda () (vector 0 1 1 0 (IntMap-Data-empty 'erased) 0 1 (vector 0 ) (vector 0 )))) (define EvalOpts-Value-Core-usedMetas (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))) -(define Value-Core-tcOnly (lambda () (Value-Core-case--4990-3154 (Value-Core-withArgHoles)))) +(define Value-Core-tcOnly (lambda () (Value-Core-case--5032-3162 (Value-Core-withArgHoles)))) (define EvalOpts-Value-Core-tcInline (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5)))) (define EvalOpts-Value-Core-removeAs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) (define EvalOpts-Value-Core-reduceLimit (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-7 (vector-ref sc0 8))) e-7)))) @@ -1982,75 +2000,75 @@ (define EvalOpts-Value-Core-evalAll (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4)))) (define Value-Core-defaultOpts (lambda () (vector 0 1 1 0 (IntMap-Data-empty 'erased) 1 1 (vector 0 ) (vector 0 )))) (define EvalOpts-Value-Core-argHolesOnly (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) -(define IntMap-Data-case--3933-2550 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 1 (+ 1 arg-1) e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 arg-1 e-5))))))) -(define IntMap-Data-case--3933-2513 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 1 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 0 )))))))) -(define IntMap-Data-case--3845-2428 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 1 arg-1 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (+ 1 arg-1) e-5))))))) -(define IntMap-Data-case--3594-2284 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-6 arg-5 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (IntMap-Data-merge3 'erased 'erased arg-6 arg-5 arg-4 arg-3 e-5)))))))) -(define IntMap-Data-case--3594-2210 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-6 arg-5 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (IntMap-Data-merge2 'erased 'erased arg-6 arg-5 e-5 arg-3 arg-2)))))))) -(define IntMap-Data-case--3481-2186 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (IntMap-Data-case--3594-2210 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (IntMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-4))) (else (IntMap-Data-case--3594-2284 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (IntMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-2))))))) -(define IntMap-Data-case--3481-2112 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 e-2 arg-5 arg-4 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (IntMap-Data-merge1 'erased 'erased e-5 arg-5 arg-4 arg-3 arg-2)))))))) -(define IntMap-Data-case--2740-2088 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (IntMap-Data-case--3481-2112 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (IntMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-6))) (else (IntMap-Data-case--3481-2186 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Prelude-C-60C-61_Ord__Int arg-7 arg-3))))))) -(define IntMap-Data-case--3368-2034 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 2 e-2 e-3 e-4 arg-3 arg-6)))))) (else (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (vector 0 (IntMap-Data-branch4 'erased 'erased e-7 e-8 e-9 e-10 e-11 arg-3 arg-6)))))))))))) -(define IntMap-Data-case--3226-1992 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (vector 1 (vector 2 e-2 e-3 e-4 arg-3 e-5)))))) (else (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-11 (vector-ref sc1 5))) (vector 0 (IntMap-Data-branch4 'erased 'erased e-7 e-8 e-9 e-10 e-11 arg-3 e-5)))))))))))))))) -(define IntMap-Data-case--3251-1934 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 2 arg-6 arg-3 e-2 e-3 e-4)))))) (else (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (vector 0 (IntMap-Data-branch4 'erased 'erased arg-6 arg-3 e-7 e-8 e-9 e-10 e-11)))))))))))) -(define IntMap-Data-case--3226-1892 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (vector 1 (vector 2 e-5 arg-3 e-2 e-3 e-4)))))) (else (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-11 (vector-ref sc1 5))) (vector 0 (IntMap-Data-branch4 'erased 'erased e-5 arg-3 e-7 e-8 e-9 e-10 e-11)))))))))))))))) -(define IntMap-Data-case--2740-1872 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (IntMap-Data-case--3226-1892 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (IntMap-Data-treeDelete 'erased (+ 1 arg-1) arg-5 arg-4))) (else (IntMap-Data-case--3226-1992 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (IntMap-Data-treeDelete 'erased (+ 1 arg-1) arg-5 arg-2))))))) -(define IntMap-Data-case--3054-1810 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-5 arg-4 arg-3 arg-2 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 0 (vector 1 arg-5 arg-4 arg-3))))))))) -(define IntMap-Data-case--3054-1742 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-5 arg-4 e-2 arg-2 arg-1)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 0 (vector 1 arg-5 arg-4 arg-1))))))))) -(define IntMap-Data-case--2951-1720 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (IntMap-Data-case--3054-1742 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (IntMap-Data-treeDelete 'erased 0 arg-6 arg-3))) (else (IntMap-Data-case--3054-1810 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (IntMap-Data-treeDelete 'erased 0 arg-6 arg-1))))))) -(define IntMap-Data-case--2951-1652 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 e-2 arg-4 arg-3 arg-2 arg-1)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 0 (vector 1 arg-3 arg-2 arg-1))))))))) -(define IntMap-Data-case--2740-1630 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (IntMap-Data-case--2951-1652 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (IntMap-Data-treeDelete 'erased 0 arg-6 arg-5))) (else (IntMap-Data-case--2951-1720 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (Prelude-C-60C-61_Ord__Int arg-6 arg-2))))))) -(define IntMap-Data-case--2812-1580 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 arg-3 arg-2 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 1 arg-3)))))))) -(define IntMap-Data-case--2812-1526 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 e-2 arg-2 arg-1)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 1 arg-1)))))))) -(define IntMap-Data-case--2740-1508 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (IntMap-Data-case--2812-1526 'erased arg-1 arg-2 arg-3 arg-4 (IntMap-Data-treeDelete 'erased 0 arg-4 arg-3))) (else (IntMap-Data-case--2812-1580 'erased arg-1 arg-2 arg-3 arg-4 (IntMap-Data-treeDelete 'erased 0 arg-4 arg-1))))))) -(define IntMap-Data-case--2740-1460 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 ))) (else (vector 0 (vector 0 arg-2 arg-1))))))) -(define IntMap-Data-case--2660-1391 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 1 e-8 e-12 e-13)))))))))))))) -(define IntMap-Data-case--2401-1294 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-6 arg-5 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 arg-4) (vector 0 arg-3 (vector 1 e-8 e-12 e-13)))))))))))))))) -(define IntMap-Data-case--2401-1183 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-6 arg-5 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 e-8) (vector 0 e-12 (vector 1 e-13 arg-3 arg-2)))))))))))))))) -(define IntMap-Data-case--2238-1152 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (IntMap-Data-case--2401-1183 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (IntMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-4))) (else (IntMap-Data-case--2401-1294 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (IntMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-2))))))) -(define IntMap-Data-case--2238-1042 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 e-2 arg-5 arg-4 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 e-8 e-12 e-13) (vector 0 arg-5 (vector 1 arg-4 arg-3 arg-2)))))))))))))))) -(define IntMap-Data-case--1883-1011 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (IntMap-Data-case--2238-1042 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (IntMap-Data-treeInsertC-39 'erased 'erased arg-8 arg-2 arg-7))) (else (IntMap-Data-case--2238-1152 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (Prelude-C-60C-61_Ord__Int arg-8 arg-4))))))) -(define IntMap-Data-case--2012-933 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 arg-4 arg-3 e-8 e-12 e-13)))))))))))))) -(define IntMap-Data-case--2012-844 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 e-8 e-12 e-13 arg-3 arg-2)))))))))))))) -(define IntMap-Data-case--1883-817 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (IntMap-Data-case--2012-844 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (IntMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-5))) (else (IntMap-Data-case--2012-933 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (IntMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-3))))))) -(define IntMap-Data-case--1883-715 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 1 (vector 0 (vector 0 arg-4 arg-1) (vector 0 arg-4 (vector 0 arg-3 arg-2))))) ((equal? sc0 1) (vector 0 (vector 0 arg-4 arg-1))) (else (vector 1 (vector 0 (vector 0 arg-3 arg-2) (vector 0 arg-3 (vector 0 arg-4 arg-1))))))))) -(define IntMap-Data-case--1776-654 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (IntMap-Data-treeLookup 'erased 'erased arg-7 arg-4)) (else (IntMap-Data-treeLookup 'erased 'erased arg-7 arg-2)))))) -(define IntMap-Data-case--1653-607 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (IntMap-Data-treeLookup 'erased 'erased arg-7 arg-6)) (else (IntMap-Data-case--1776-654 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased (Prelude-C-60C-61_Ord__Int arg-7 arg-3))))))) -(define IntMap-Data-case--1653-559 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (IntMap-Data-treeLookup 'erased 'erased arg-5 arg-4)) (else (IntMap-Data-treeLookup 'erased 'erased arg-5 arg-2)))))) -(define IntMap-Data-case--1653-516 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 0 )))))) -(define IntMap-Data-n--3767-2340-treeToListC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (vector 1 (vector 0 e-1 e-2) arg-3)))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (IntMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased arg-3 e-7) e-5)))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 5))) (IntMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased arg-3 e-14) e-12) e-10))))))))) -(define IntMap-Data-treeToList (lambda (arg-0 arg-1 ext-0) (IntMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased (vector 0 ) ext-0))) -(define IntMap-Data-treeLookup (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (IntMap-Data-case--1653-516 'erased e-2 e-1 arg-2 'erased (Prelude-C-61C-61_Eq__Int arg-2 e-1))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (IntMap-Data-case--1653-559 'erased 'erased e-7 e-6 e-5 arg-2 'erased (Prelude-C-60C-61_Ord__Int arg-2 e-6)))))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (IntMap-Data-case--1653-607 'erased 'erased e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Prelude-C-60C-61_Ord__Int arg-2 e-11)))))))))))) -(define IntMap-Data-treeInsertC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (IntMap-Data-case--1883-715 'erased arg-3 e-2 e-1 arg-2 'erased (Prelude-compare_Ord__Int arg-2 e-1))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (IntMap-Data-case--1883-817 'erased 'erased arg-3 e-7 e-6 e-5 arg-2 'erased (Prelude-C-60C-61_Ord__Int arg-2 e-6)))))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (IntMap-Data-case--1883-1011 'erased 'erased arg-3 e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Prelude-C-60C-61_Ord__Int arg-2 e-11)))))))))))) -(define IntMap-Data-treeInsert (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (IntMap-Data-case--2660-1391 'erased 'erased arg-3 arg-4 arg-2 (IntMap-Data-treeInsertC-39 'erased 'erased arg-2 arg-3 arg-4)))) -(define IntMap-Data-treeDelete (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((n 0)) (IntMap-Data-case--2740-1460 'erased e-3 e-2 arg-2 n (Prelude-C-61C-61_Eq__Int arg-2 e-2)))))))(else (let ((e-0 (- arg-1 1))) (let ((sc0 e-0)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (IntMap-Data-case--2740-1508 'erased e-9 e-8 e-7 arg-2 (Prelude-C-60C-61_Ord__Int arg-2 e-8)))))) (else (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((e-16 (vector-ref sc1 5))) (IntMap-Data-case--2740-1630 'erased e-16 e-15 e-14 e-13 e-12 arg-2 (Prelude-C-60C-61_Ord__Int arg-2 e-13)))))))))))(else (let ((e-4 (- e-0 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (IntMap-Data-case--2740-1872 'erased e-4 e-21 e-20 e-19 arg-2 (Prelude-C-60C-61_Ord__Int arg-2 e-20)))))) (else (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (let ((e-27 (vector-ref sc0 4))) (let ((e-28 (vector-ref sc0 5))) (IntMap-Data-case--2740-2088 'erased e-4 e-28 e-27 e-26 e-25 e-24 arg-2 (Prelude-C-60C-61_Ord__Int arg-2 e-25)))))))))))))))))))) +(define IntMap-Data-case--3935-2558 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 1 (+ 1 arg-1) e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 arg-1 e-5))))))) +(define IntMap-Data-case--3935-2521 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 1 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 0 )))))))) +(define IntMap-Data-case--3847-2436 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 1 arg-1 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (+ 1 arg-1) e-5))))))) +(define IntMap-Data-case--3596-2292 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-6 arg-5 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (IntMap-Data-merge3 'erased 'erased arg-6 arg-5 arg-4 arg-3 e-5)))))))) +(define IntMap-Data-case--3596-2218 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-6 arg-5 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (IntMap-Data-merge2 'erased 'erased arg-6 arg-5 e-5 arg-3 arg-2)))))))) +(define IntMap-Data-case--3483-2194 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (IntMap-Data-case--3596-2218 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (IntMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-4))) (else (IntMap-Data-case--3596-2292 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (IntMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-2))))))) +(define IntMap-Data-case--3483-2120 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 e-2 arg-5 arg-4 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (IntMap-Data-merge1 'erased 'erased e-5 arg-5 arg-4 arg-3 arg-2)))))))) +(define IntMap-Data-case--2742-2096 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (IntMap-Data-case--3483-2120 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (IntMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-6))) (else (IntMap-Data-case--3483-2194 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Prelude-C-60C-61_Ord__Int arg-7 arg-3))))))) +(define IntMap-Data-case--3370-2042 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 2 e-2 e-3 e-4 arg-3 arg-6)))))) (else (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (vector 0 (IntMap-Data-branch4 'erased 'erased e-7 e-8 e-9 e-10 e-11 arg-3 arg-6)))))))))))) +(define IntMap-Data-case--3228-2000 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (vector 1 (vector 2 e-2 e-3 e-4 arg-3 e-5)))))) (else (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-11 (vector-ref sc1 5))) (vector 0 (IntMap-Data-branch4 'erased 'erased e-7 e-8 e-9 e-10 e-11 arg-3 e-5)))))))))))))))) +(define IntMap-Data-case--3253-1942 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 2 arg-6 arg-3 e-2 e-3 e-4)))))) (else (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (vector 0 (IntMap-Data-branch4 'erased 'erased arg-6 arg-3 e-7 e-8 e-9 e-10 e-11)))))))))))) +(define IntMap-Data-case--3228-1900 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (vector 1 (vector 2 e-5 arg-3 e-2 e-3 e-4)))))) (else (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-11 (vector-ref sc1 5))) (vector 0 (IntMap-Data-branch4 'erased 'erased e-5 arg-3 e-7 e-8 e-9 e-10 e-11)))))))))))))))) +(define IntMap-Data-case--2742-1880 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (IntMap-Data-case--3228-1900 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (IntMap-Data-treeDelete 'erased (+ 1 arg-1) arg-5 arg-4))) (else (IntMap-Data-case--3228-2000 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (IntMap-Data-treeDelete 'erased (+ 1 arg-1) arg-5 arg-2))))))) +(define IntMap-Data-case--3056-1818 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-5 arg-4 arg-3 arg-2 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 0 (vector 1 arg-5 arg-4 arg-3))))))))) +(define IntMap-Data-case--3056-1750 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-5 arg-4 e-2 arg-2 arg-1)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 0 (vector 1 arg-5 arg-4 arg-1))))))))) +(define IntMap-Data-case--2953-1728 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (IntMap-Data-case--3056-1750 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (IntMap-Data-treeDelete 'erased 0 arg-6 arg-3))) (else (IntMap-Data-case--3056-1818 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (IntMap-Data-treeDelete 'erased 0 arg-6 arg-1))))))) +(define IntMap-Data-case--2953-1660 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 e-2 arg-4 arg-3 arg-2 arg-1)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 0 (vector 1 arg-3 arg-2 arg-1))))))))) +(define IntMap-Data-case--2742-1638 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (IntMap-Data-case--2953-1660 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (IntMap-Data-treeDelete 'erased 0 arg-6 arg-5))) (else (IntMap-Data-case--2953-1728 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (Prelude-C-60C-61_Ord__Int arg-6 arg-2))))))) +(define IntMap-Data-case--2814-1588 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 arg-3 arg-2 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 1 arg-3)))))))) +(define IntMap-Data-case--2814-1534 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 e-2 arg-2 arg-1)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 1 arg-1)))))))) +(define IntMap-Data-case--2742-1516 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (IntMap-Data-case--2814-1534 'erased arg-1 arg-2 arg-3 arg-4 (IntMap-Data-treeDelete 'erased 0 arg-4 arg-3))) (else (IntMap-Data-case--2814-1588 'erased arg-1 arg-2 arg-3 arg-4 (IntMap-Data-treeDelete 'erased 0 arg-4 arg-1))))))) +(define IntMap-Data-case--2742-1468 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 ))) (else (vector 0 (vector 0 arg-2 arg-1))))))) +(define IntMap-Data-case--2662-1399 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 1 e-8 e-12 e-13)))))))))))))) +(define IntMap-Data-case--2403-1302 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-6 arg-5 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 arg-4) (vector 0 arg-3 (vector 1 e-8 e-12 e-13)))))))))))))))) +(define IntMap-Data-case--2403-1191 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-6 arg-5 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 e-8) (vector 0 e-12 (vector 1 e-13 arg-3 arg-2)))))))))))))))) +(define IntMap-Data-case--2240-1160 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (IntMap-Data-case--2403-1191 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (IntMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-4))) (else (IntMap-Data-case--2403-1302 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (IntMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-2))))))) +(define IntMap-Data-case--2240-1050 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 e-2 arg-5 arg-4 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 e-8 e-12 e-13) (vector 0 arg-5 (vector 1 arg-4 arg-3 arg-2)))))))))))))))) +(define IntMap-Data-case--1885-1019 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (IntMap-Data-case--2240-1050 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (IntMap-Data-treeInsertC-39 'erased 'erased arg-8 arg-2 arg-7))) (else (IntMap-Data-case--2240-1160 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (Prelude-C-60C-61_Ord__Int arg-8 arg-4))))))) +(define IntMap-Data-case--2014-941 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 arg-4 arg-3 e-8 e-12 e-13)))))))))))))) +(define IntMap-Data-case--2014-852 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 e-8 e-12 e-13 arg-3 arg-2)))))))))))))) +(define IntMap-Data-case--1885-825 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (IntMap-Data-case--2014-852 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (IntMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-5))) (else (IntMap-Data-case--2014-941 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (IntMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-3))))))) +(define IntMap-Data-case--1885-723 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 1 (vector 0 (vector 0 arg-4 arg-1) (vector 0 arg-4 (vector 0 arg-3 arg-2))))) ((equal? sc0 1) (vector 0 (vector 0 arg-4 arg-1))) (else (vector 1 (vector 0 (vector 0 arg-3 arg-2) (vector 0 arg-3 (vector 0 arg-4 arg-1))))))))) +(define IntMap-Data-case--1778-662 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (IntMap-Data-treeLookup 'erased 'erased arg-7 arg-4)) (else (IntMap-Data-treeLookup 'erased 'erased arg-7 arg-2)))))) +(define IntMap-Data-case--1655-615 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (IntMap-Data-treeLookup 'erased 'erased arg-7 arg-6)) (else (IntMap-Data-case--1778-662 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased (Prelude-C-60C-61_Ord__Int arg-7 arg-3))))))) +(define IntMap-Data-case--1655-567 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (IntMap-Data-treeLookup 'erased 'erased arg-5 arg-4)) (else (IntMap-Data-treeLookup 'erased 'erased arg-5 arg-2)))))) +(define IntMap-Data-case--1655-524 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 0 )))))) +(define IntMap-Data-n--3769-2348-treeToListC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (vector 1 (vector 0 e-1 e-2) arg-3)))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (IntMap-Data-n--3769-2348-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3769-2348-treeToListC-39 'erased 'erased 'erased arg-3 e-7) e-5)))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 5))) (IntMap-Data-n--3769-2348-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3769-2348-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3769-2348-treeToListC-39 'erased 'erased 'erased arg-3 e-14) e-12) e-10))))))))) +(define IntMap-Data-treeToList (lambda (arg-0 arg-1 ext-0) (IntMap-Data-n--3769-2348-treeToListC-39 'erased 'erased 'erased (vector 0 ) ext-0))) +(define IntMap-Data-treeLookup (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (IntMap-Data-case--1655-524 'erased e-2 e-1 arg-2 'erased (Prelude-C-61C-61_Eq__Int arg-2 e-1))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (IntMap-Data-case--1655-567 'erased 'erased e-7 e-6 e-5 arg-2 'erased (Prelude-C-60C-61_Ord__Int arg-2 e-6)))))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (IntMap-Data-case--1655-615 'erased 'erased e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Prelude-C-60C-61_Ord__Int arg-2 e-11)))))))))))) +(define IntMap-Data-treeInsertC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (IntMap-Data-case--1885-723 'erased arg-3 e-2 e-1 arg-2 'erased (Prelude-compare_Ord__Int arg-2 e-1))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (IntMap-Data-case--1885-825 'erased 'erased arg-3 e-7 e-6 e-5 arg-2 'erased (Prelude-C-60C-61_Ord__Int arg-2 e-6)))))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (IntMap-Data-case--1885-1019 'erased 'erased arg-3 e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Prelude-C-60C-61_Ord__Int arg-2 e-11)))))))))))) +(define IntMap-Data-treeInsert (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (IntMap-Data-case--2662-1399 'erased 'erased arg-3 arg-4 arg-2 (IntMap-Data-treeInsertC-39 'erased 'erased arg-2 arg-3 arg-4)))) +(define IntMap-Data-treeDelete (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((n 0)) (IntMap-Data-case--2742-1468 'erased e-3 e-2 arg-2 n (Prelude-C-61C-61_Eq__Int arg-2 e-2)))))))(else (let ((e-0 (- arg-1 1))) (let ((sc0 e-0)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (IntMap-Data-case--2742-1516 'erased e-9 e-8 e-7 arg-2 (Prelude-C-60C-61_Ord__Int arg-2 e-8)))))) (else (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((e-16 (vector-ref sc1 5))) (IntMap-Data-case--2742-1638 'erased e-16 e-15 e-14 e-13 e-12 arg-2 (Prelude-C-60C-61_Ord__Int arg-2 e-13)))))))))))(else (let ((e-4 (- e-0 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (IntMap-Data-case--2742-1880 'erased e-4 e-21 e-20 e-19 arg-2 (Prelude-C-60C-61_Ord__Int arg-2 e-20)))))) (else (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (let ((e-27 (vector-ref sc0 4))) (let ((e-28 (vector-ref sc0 5))) (IntMap-Data-case--2742-2096 'erased e-4 e-28 e-27 e-26 e-25 e-24 arg-2 (Prelude-C-60C-61_Ord__Int arg-2 e-25)))))))))))))))))))) (define IntMap-Data-toList (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (IntMap-Data-treeToList 'erased 'erased e-3))))))) (define IntMap-Data-merge3 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((e-16 (vector-ref sc1 3))) (IntMap-Data-branch5 'erased 'erased e-2 e-3 e-4 arg-3 e-14 e-15 e-16 arg-5 arg-6))))) (else (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (let ((e-22 (vector-ref sc1 4))) (let ((e-23 (vector-ref sc1 5))) (IntMap-Data-branch6 'erased 'erased e-2 e-3 e-4 arg-3 e-19 e-20 e-21 e-22 e-23 arg-5 arg-6))))))))))))) (else (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (IntMap-Data-branch6 'erased 'erased e-7 e-8 e-9 e-10 e-11 arg-3 e-26 e-27 e-28 arg-5 arg-6))))) (else (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (let ((e-35 (vector-ref sc1 5))) (IntMap-Data-branch7 'erased 'erased e-7 e-8 e-9 e-10 e-11 arg-3 e-31 e-32 e-33 e-34 e-35 arg-5 arg-6))))))))))))))))))) (define IntMap-Data-merge2 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((e-16 (vector-ref sc1 3))) (IntMap-Data-branch5 'erased 'erased e-2 e-3 e-4 arg-3 arg-4 arg-5 e-14 e-15 e-16))))) (else (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (let ((e-22 (vector-ref sc1 4))) (let ((e-23 (vector-ref sc1 5))) (IntMap-Data-branch6 'erased 'erased e-2 e-3 e-4 arg-3 arg-4 arg-5 e-19 e-20 e-21 e-22 e-23))))))))))))) (else (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (IntMap-Data-branch6 'erased 'erased e-7 e-8 e-9 e-10 e-11 arg-3 arg-4 arg-5 e-26 e-27 e-28))))) (else (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (let ((e-35 (vector-ref sc1 5))) (IntMap-Data-branch7 'erased 'erased e-7 e-8 e-9 e-10 e-11 arg-3 arg-4 arg-5 e-31 e-32 e-33 e-34 e-35))))))))))))))))))) (define IntMap-Data-merge1 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((e-16 (vector-ref sc1 3))) (IntMap-Data-branch5 'erased 'erased arg-2 arg-3 e-2 e-3 e-4 arg-5 e-14 e-15 e-16))))) (else (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (let ((e-22 (vector-ref sc1 4))) (let ((e-23 (vector-ref sc1 5))) (IntMap-Data-branch6 'erased 'erased arg-2 arg-3 e-2 e-3 e-4 arg-5 e-19 e-20 e-21 e-22 e-23))))))))))))) (else (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (IntMap-Data-branch6 'erased 'erased arg-2 arg-3 e-7 e-8 e-9 e-10 e-11 arg-5 e-26 e-27 e-28))))) (else (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (let ((e-35 (vector-ref sc1 5))) (IntMap-Data-branch7 'erased 'erased arg-2 arg-3 e-7 e-8 e-9 e-10 e-11 arg-5 e-31 e-32 e-33 e-34 e-35))))))))))))))))))) (define IntMap-Data-lookup (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (IntMap-Data-treeLookup 'erased 'erased arg-1 e-3))))))) (define IntMap-Data-keys (lambda (arg-0 ext-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (IntMap-Data-toList 'erased ext-0)))) -(define IntMap-Data-insert (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 0 (vector 0 arg-1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (IntMap-Data-case--3845-2428 'erased e-2 arg-2 e-3 arg-1 (IntMap-Data-treeInsert 'erased 'erased arg-1 arg-2 e-3))))))))) +(define IntMap-Data-insert (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 0 (vector 0 arg-1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (IntMap-Data-case--3847-2436 'erased e-2 arg-2 e-3 arg-1 (IntMap-Data-treeInsert 'erased 'erased arg-1 arg-2 e-3))))))))) (define IntMap-Data-empty (lambda (arg-0) (vector 0 ))) -(define IntMap-Data-delete (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (IntMap-Data-case--3933-2513 'erased e-3 arg-1 (IntMap-Data-treeDelete 'erased 0 arg-1 e-3)))(else (let ((e-4 (- e-2 1))) (IntMap-Data-case--3933-2550 'erased e-4 e-3 arg-1 (IntMap-Data-treeDelete 'erased (+ 1 e-4) arg-1 e-3))))))))))))) +(define IntMap-Data-delete (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (IntMap-Data-case--3935-2521 'erased e-3 arg-1 (IntMap-Data-treeDelete 'erased 0 arg-1 e-3)))(else (let ((e-4 (- e-2 1))) (IntMap-Data-case--3935-2558 'erased e-4 e-3 arg-1 (IntMap-Data-treeDelete 'erased (+ 1 e-4) arg-1 e-3))))))))))))) (define IntMap-Data-branch7 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (vector 2 (vector 2 arg-2 arg-3 arg-4 arg-5 arg-6) arg-7 (vector 1 arg-8 arg-9 arg-10) arg-11 (vector 1 arg-12 arg-13 arg-14)))) (define IntMap-Data-branch6 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (vector 2 (vector 1 arg-2 arg-3 arg-4) arg-5 (vector 1 arg-6 arg-7 arg-8) arg-9 (vector 1 arg-10 arg-11 arg-12)))) (define IntMap-Data-branch5 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (vector 1 (vector 1 arg-2 arg-3 arg-4) arg-5 (vector 2 arg-6 arg-7 arg-8 arg-9 arg-10)))) (define IntMap-Data-branch4 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 1 (vector 1 arg-2 arg-3 arg-4) arg-5 (vector 1 arg-6 arg-7 arg-8)))) -(define Env-Core-case--3787-7167 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 0 (vector 1 arg-0 arg-4) (vector 2 arg-5))) (else (vector 0 arg-4 (vector 1 arg-5))))))) -(define Env-Core-case--3723-7146 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Env-Core-case--3787-7167 arg-0 arg-1 arg-2 arg-3 e-2 e-3 (Env-Core-isUsed 'erased 0 arg-3))))))) -(define Env-Core-case--3723-7105 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 1 arg-0 (vector 0 )) (vector 2 (vector 0 )))) (else (vector 0 (vector 0 ) (vector 1 (vector 0 )))))))) -(define Env-Core-case--3632-7030 (lambda (arg-0 arg-1 arg-2 arg-3) (vector 1 (+ 1 arg-3)))) -(define Env-Core-case--3431-6852 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) arg-6) (else (Env-Core-findUsedInBinder arg-0 arg-7 (vector 1 arg-2 arg-6) (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (TT-Core-weaken_Weaken__Term n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (TT-Core-weakenNs_Weaken__Term vars ns arg-3271))))) arg-0 arg-2 'erased arg-7))))))) -(define Env-Core-case--2900-6319 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (+ 1 e-2) e-3))))))) -(define Env-Core-case--2879-6294 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Env-Core-defined arg-1 arg-4 arg-2) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (+ 1 e-2) e-3)))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (vector 1 (vector 0 0 (TT-Core-multiplicity 'erased arg-3)))))))))) -(define Env-Core-n--3431-6907-findUsedArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) arg-8) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Env-Core-n--3431-6907-findUsedArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Env-Core-findUsed arg-0 arg-7 arg-8 e-2) e-3)))))))) -(define Env-Core-n--3431-6841-eqNat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (Prelude-C-61C-61_Eq__Integer arg-8 arg-9))) -(define Env-Core-n--3431-6922-dropS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (Env-Core-n--3431-6922-dropS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3))(else (let ((e-4 (- e-2 1))) (vector 1 e-4 (Env-Core-n--3431-6922-dropS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3))))))))))))) +(define Env-Core-case--3793-7175 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 0 (vector 1 arg-0 arg-4) (vector 2 arg-5))) (else (vector 0 arg-4 (vector 1 arg-5))))))) +(define Env-Core-case--3729-7154 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Env-Core-case--3793-7175 arg-0 arg-1 arg-2 arg-3 e-2 e-3 (Env-Core-isUsed 'erased 0 arg-3))))))) +(define Env-Core-case--3729-7113 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 1 arg-0 (vector 0 )) (vector 2 (vector 0 )))) (else (vector 0 (vector 0 ) (vector 1 (vector 0 )))))))) +(define Env-Core-case--3638-7038 (lambda (arg-0 arg-1 arg-2 arg-3) (vector 1 (+ 1 arg-3)))) +(define Env-Core-case--3437-6860 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) arg-6) (else (Env-Core-findUsedInBinder arg-0 arg-7 (vector 1 arg-2 arg-6) (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3275) (TT-Core-weaken_Weaken__Term n vars arg-3275)))) (lambda (vars) (lambda (ns) (lambda (arg-3279) (TT-Core-weakenNs_Weaken__Term vars ns arg-3279))))) arg-0 arg-2 'erased arg-7))))))) +(define Env-Core-case--2906-6327 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (+ 1 e-2) e-3))))))) +(define Env-Core-case--2885-6302 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Env-Core-defined arg-1 arg-4 arg-2) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (+ 1 e-2) e-3)))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (vector 1 (vector 0 0 (TT-Core-multiplicity 'erased arg-3)))))))))) +(define Env-Core-n--3437-6915-findUsedArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) arg-8) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Env-Core-n--3437-6915-findUsedArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Env-Core-findUsed arg-0 arg-7 arg-8 e-2) e-3)))))))) +(define Env-Core-n--3437-6849-eqNat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (Prelude-C-61C-61_Eq__Integer arg-8 arg-9))) +(define Env-Core-n--3437-6930-dropS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (Env-Core-n--3437-6930-dropS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3))(else (let ((e-4 (- e-2 1))) (vector 1 e-4 (Env-Core-n--3437-6930-dropS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3))))))))))))) (define Env-Core-toVar (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-1)) (cond ((equal? sc1 0) (vector 1 0))(else (let ((e-3 (- arg-1 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Env-Core-toVar e-2 e-3) (lambda (_-0) (vector 1 (+ 1 _-0))))))))))(else (vector 0 )))))) (define Env-Core-shrinkEnv (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 arg-2))(else (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (Env-Core-shrinkEnv 'erased 'erased e-4 e-8))) (else (let ((e-12 (vector-ref sc1 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Env-Core-shrinkEnv 'erased 'erased e-4 e-12) (lambda (envC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkBinder 'erased 'erased e-3 e-12) (lambda (bC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 bC-39 envC-39)))))))))))))))))) (define Env-Core-revOnto (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (vector 0 )))))) -(define Env-Core-mkShrinkSub (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Env-Core-case--3723-7105 arg-0 arg-2 (Env-Core-isUsed 'erased 0 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Env-Core-case--3723-7146 arg-0 e-2 e-3 arg-2 (Env-Core-mkShrinkSub e-2 e-3 (TT-Core-dropFirst 'erased 'erased arg-2)))))))))) +(define Env-Core-mkShrinkSub (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Env-Core-case--3729-7113 arg-0 arg-2 (Env-Core-isUsed 'erased 0 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Env-Core-case--3729-7154 arg-0 e-2 e-3 arg-2 (Env-Core-mkShrinkSub e-2 e-3 (TT-Core-dropFirst 'erased 'erased arg-2)))))))))) (define Env-Core-mkShrink (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Env-Core-mkShrinkSub e-2 e-3 arg-1)))))))) (define Env-Core-mkEnv (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 10 arg-0 1)) (Env-Core-mkEnv arg-0 e-3)))))))) (define Env-Core-letToLam (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 3))) (vector 1 (vector 0 e-7 (vector 1 ) e-9) (Env-Core-letToLam 'erased e-5)))))(else (vector 1 e-4 (Env-Core-letToLam 'erased e-5)))))))))))) @@ -2060,37 +2078,37 @@ (define Env-Core-getBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Env-Core-getBinderUnder 'erased 'erased arg-2 arg-3 arg-4 (vector 0 ) 'erased arg-6))) (define Env-Core-findUsedLocs (lambda (arg-0 arg-1 arg-2) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Env-Core-toVar arg-0 eta-0)) (Env-Core-findUsed arg-0 arg-1 (vector 0 ) arg-2)))) (define Env-Core-findUsedInBinder (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Env-Core-findUsed arg-0 arg-1 (Env-Core-findUsed arg-0 arg-1 arg-2 e-2) e-3)))) ((4) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (Env-Core-findUsed arg-0 arg-1 (Env-Core-findUsed arg-0 arg-1 arg-2 e-6) e-7))))(else (Env-Core-findUsed arg-0 arg-1 arg-2 (TT-Core-binderType 'erased arg-3))))))) -(define Env-Core-findUsed (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Env-Core-case--3431-6852 arg-0 'erased e-4 'erased e-3 e-2 arg-2 arg-1 (List-Data-elemBy 'erased (lambda (eta-0) (lambda (eta-1) (Env-Core-n--3431-6841-eqNat arg-0 'erased e-4 'erased e-3 e-2 arg-2 arg-1 eta-0 eta-1))) e-4 arg-2)))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (Env-Core-n--3431-6907-findUsedArgs arg-0 e-7 e-8 e-9 e-10 arg-2 arg-1 arg-1 arg-2 e-10)))))) ((3) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (Env-Core-n--3431-6922-dropS arg-0 e-13 e-15 e-14 e-12 arg-2 arg-1 (Env-Core-findUsed (vector 1 e-13 arg-0) (vector 1 e-14 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (+ 1 eta-0)) (Env-Core-findUsedInBinder arg-0 arg-1 arg-2 e-14)) e-15))))))) ((4) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (Env-Core-findUsed arg-0 arg-1 (Env-Core-findUsed arg-0 arg-1 arg-2 e-18) e-19)))) ((5) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (Env-Core-findUsed arg-0 arg-1 (Env-Core-findUsed arg-0 arg-1 arg-2 e-23) e-24)))) ((6) (let ((e-28 (vector-ref sc0 3))) (Env-Core-findUsed arg-0 arg-1 arg-2 e-28))) ((7) (let ((e-32 (vector-ref sc0 3))) (let ((e-33 (vector-ref sc0 4))) (Env-Core-findUsed arg-0 arg-1 (Env-Core-findUsed arg-0 arg-1 arg-2 e-32) e-33)))) ((8) (let ((e-37 (vector-ref sc0 3))) (Env-Core-findUsed arg-0 arg-1 arg-2 e-37)))(else arg-2))))) +(define Env-Core-findUsed (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Env-Core-case--3437-6860 arg-0 'erased e-4 'erased e-3 e-2 arg-2 arg-1 (List-Data-elemBy 'erased (lambda (eta-0) (lambda (eta-1) (Env-Core-n--3437-6849-eqNat arg-0 'erased e-4 'erased e-3 e-2 arg-2 arg-1 eta-0 eta-1))) e-4 arg-2)))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (Env-Core-n--3437-6915-findUsedArgs arg-0 e-7 e-8 e-9 e-10 arg-2 arg-1 arg-1 arg-2 e-10)))))) ((3) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (Env-Core-n--3437-6930-dropS arg-0 e-13 e-15 e-14 e-12 arg-2 arg-1 (Env-Core-findUsed (vector 1 e-13 arg-0) (vector 1 e-14 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (+ 1 eta-0)) (Env-Core-findUsedInBinder arg-0 arg-1 arg-2 e-14)) e-15))))))) ((4) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (Env-Core-findUsed arg-0 arg-1 (Env-Core-findUsed arg-0 arg-1 arg-2 e-18) e-19)))) ((5) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (Env-Core-findUsed arg-0 arg-1 (Env-Core-findUsed arg-0 arg-1 arg-2 e-23) e-24)))) ((6) (let ((e-28 (vector-ref sc0 3))) (Env-Core-findUsed arg-0 arg-1 arg-2 e-28))) ((7) (let ((e-32 (vector-ref sc0 3))) (let ((e-33 (vector-ref sc0 4))) (Env-Core-findUsed arg-0 arg-1 (Env-Core-findUsed arg-0 arg-1 arg-2 e-32) e-33)))) ((8) (let ((e-37 (vector-ref sc0 3))) (Env-Core-findUsed arg-0 arg-1 arg-2 e-37)))(else arg-2))))) (define Env-Core-findSubEnv (lambda (arg-0 arg-1 arg-2) (Env-Core-mkShrink arg-0 (Env-Core-findUsedLocs arg-0 arg-1 arg-2)))) -(define Env-Core-defined (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Env-Core-case--2879-6294 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--2885-6302 e-2 e-3 e-9 e-8 arg-1 (Name-Core-nameEq arg-1 e-2)))))))))))) (define Env-Core-bindEnv (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Env-Core-bindEnv e-3 arg-1 e-9 (vector 3 arg-1 e-2 e-8 arg-3)))))))))))) (define Env-Core-allVarsNoLet (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-1)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (Prelude-map_Functor__List 'erased 'erased (lambda (arg-2) (TT-Core-weaken_Weaken__Var e-2 e-3 arg-2)) (Env-Core-allVars e-3 e-9)))(else (vector 1 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-2) (TT-Core-weaken_Weaken__Var e-2 e-3 arg-2)) (Env-Core-allVars e-3 e-9)))))))))))))))) (define Env-Core-allVars (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-1)) (let ((e-9 (vector-ref sc1 2))) (vector 1 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-2) (TT-Core-weaken_Weaken__Var e-2 e-3 arg-2)) (Env-Core-allVars e-3 e-9)))))))))))) (define Env-Core-abstractFullEnvType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((2) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (let ((e-13 (vector-ref sc2 3))) (Env-Core-abstractFullEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 2 e-11 e-12 e-13) arg-3))))))(else (Env-Core-abstractFullEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 2 (TT-Core-multiplicity 'erased e-8) (vector 1 ) (TT-Core-binderType 'erased e-8)) arg-3))))))))))))))) (define Env-Core-abstractEnvType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (let ((e-13 (vector-ref sc2 3))) (Env-Core-abstractEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 1 e-11 e-12 e-13) arg-3)))))) ((2) (let ((e-15 (vector-ref sc2 1))) (let ((e-16 (vector-ref sc2 2))) (let ((e-17 (vector-ref sc2 3))) (Env-Core-abstractEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 2 e-15 e-16 e-17) arg-3))))))(else (Env-Core-abstractEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 2 (TT-Core-multiplicity 'erased e-8) (vector 1 ) (TT-Core-binderType 'erased e-8)) arg-3))))))))))))))) -(define Core-Core-case--7680-4711 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((e-1 (arg-1))) (let ((sc0 e-1)) (cond ((equal? sc0 0) (arg-2)) (else (Core-Core-cond 'erased arg-3 arg-4))))))) -(define Core-Core-case--7535-4589 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Core-Core-filterM 'erased arg-3 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 arg-1 e-5))))))))) (else (Core-Core-filterM 'erased arg-3 arg-2)))))) -(define Core-Core-case--7476-4530 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Core-Core-allM 'erased arg-3 arg-2)) (else (lambda (eta-0) (vector 1 1))))))) -(define Core-Core-case--7417-4472 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased arg-3 arg-2)))))) -(define Core-Core-case--6981-4008 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) arg-5)) -(define Core-Core-case--6953-3994 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((pC-39 (vector 0 e-2))) (Core-Core-case--6981-4008 'erased arg-1 arg-2 e-2 pC-39 (arg-2 e-2))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-5)))))))) -(define Core-Core-case--6780-3805 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (arg-3 e-5))))))) -(define Core-Core-case--6650-3670 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 (arg-2 e-2))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-5)))))))) -(define Core-Core-case--5370-2429 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-2)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-2)))))))) -(define Core-Core-case--5136-2404 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "Oh yes it is (Internal error!)") ((1) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Missing cases:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-3) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-3)) e-0))))) (else (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Calls non covering function" (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-3)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1))))))))))))) -(define Core-Core-case--5136-2306 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) " is not a valid impossible pattern because it typechecks"))) (else (let ((e-5 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Not a valid impossible pattern:\u000a\u0009" (Core-Core-show_Show__Error e-5)))))))) -(define Core-Core-case--5074-2155 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) "older") (else "newer"))))) -(define Core-Core-n--5136-2481-showRig (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) "linear" "irrelevant" (lambda (eta-0) "unrestricted") ext-0))) -(define Core-Core-n--5136-2482-showRel (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) "relevant" "irrelevant" (lambda (eta-0) "non-linear") ext-0))) -(define Core-Core-n--5136-3046-showMod (lambda (arg-0 arg-1) (Name-Core-showSep "." (List-Data-reverse 'erased arg-1)))) +(define Core-Core-case--7703-4719 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((e-1 (arg-1))) (let ((sc0 e-1)) (cond ((equal? sc0 0) (arg-2)) (else (Core-Core-cond 'erased arg-3 arg-4))))))) +(define Core-Core-case--7558-4597 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Core-Core-filterM 'erased arg-3 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 arg-1 e-5))))))))) (else (Core-Core-filterM 'erased arg-3 arg-2)))))) +(define Core-Core-case--7499-4538 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Core-Core-allM 'erased arg-3 arg-2)) (else (lambda (eta-0) (vector 1 1))))))) +(define Core-Core-case--7440-4480 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased arg-3 arg-2)))))) +(define Core-Core-case--7004-4016 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) arg-5)) +(define Core-Core-case--6976-4002 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((pC-39 (vector 0 e-2))) (Core-Core-case--7004-4016 'erased arg-1 arg-2 e-2 pC-39 (arg-2 e-2))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-5)))))))) +(define Core-Core-case--6803-3813 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (arg-3 e-5))))))) +(define Core-Core-case--6673-3678 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 (arg-2 e-2))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-5)))))))) +(define Core-Core-case--5393-2437 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-2)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-2)))))))) +(define Core-Core-case--5159-2412 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "Oh yes it is (Internal error!)") ((1) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Missing cases:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-3) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-3)) e-0))))) (else (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Calls non covering function" (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-3)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1))))))))))))) +(define Core-Core-case--5159-2314 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) " is not a valid impossible pattern because it typechecks"))) (else (let ((e-5 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Not a valid impossible pattern:\u000a\u0009" (Core-Core-show_Show__Error e-5)))))))) +(define Core-Core-case--5097-2163 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) "older") (else "newer"))))) +(define Core-Core-n--5159-2489-showRig (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) "linear" "irrelevant" (lambda (eta-0) "unrestricted") ext-0))) +(define Core-Core-n--5159-2490-showRel (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) "relevant" "irrelevant" (lambda (eta-0) "non-linear") ext-0))) +(define Core-Core-n--5159-3054-showMod (lambda (arg-0 arg-1) (Name-Core-showSep "." (List-Data-reverse 'erased arg-1)))) (define Core-Core-throw_Catchable__Core_Error (lambda (arg-0 ext-1 ext-0) (Core-Core-coreFail 'erased ext-1 ext-0))) -(define Core-Core-show_Show__TTCErrorMsg (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((age (Core-Core-case--5074-2155 e-2 e-1 e-0 (Prelude-C-60_Ord__Int e-1 e-2)))) (Strings-Prelude-C-43C-43 "TTC data is in an " (Strings-Prelude-C-43C-43 age (Strings-Prelude-C-43C-43 " format, file: " (Strings-Prelude-C-43C-43 e-0 (Strings-Prelude-C-43C-43 ", expected version: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-2) (Strings-Prelude-C-43C-43 ", actual version: " (Prelude-show_Show__Int e-1))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "End of buffer when reading " e-3))) (else (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Corrupt TTC data for " e-4))))))) -(define Core-Core-show_Show__Error (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Core-Core-show_Show__Error e-0))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-2) (Strings-Prelude-C-43C-43 ":Type mismatch: " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-1 e-4) (Strings-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-1 e-5)))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-7) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-6 e-9) (Strings-Prelude-C-43C-43 " and " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-6 e-10) " are not equal")))))))))) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 4))) (let ((e-15 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-12) (Strings-Prelude-C-43C-43 ":Pattern variable " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-14) (Strings-Prelude-C-43C-43 " unifies with " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-11 e-15)))))))))) ((4) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-17) (Strings-Prelude-C-43C-43 ":Cycle detected in metavariable solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-19) (Strings-Prelude-C-43C-43 " = " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-16 e-20)))))))))) ((5) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 4))) (let ((e-25 (vector-ref sc0 5))) (let ((e-26 (vector-ref sc0 6))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-22) (Strings-Prelude-C-43C-43 ":When unifying: " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-21 e-24) (Strings-Prelude-C-43C-43 " and " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-21 e-25) (Strings-Prelude-C-43C-43 "\u000a\u0009" (Core-Core-show_Show__Error e-26))))))))))))) ((6) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-28) (Strings-Prelude-C-43C-43 ":" (let ((sc1 e-30)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-27 e-2) " is not a valid impossible pattern because it typechecks"))) (else (let ((e-5 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 "Not a valid impossible pattern:\u000a\u0009" (Core-Core-show_Show__Error e-5)))))))))))) ((7) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-31) (Strings-Prelude-C-43C-43 ":Undefined name " (Name-Core-show_Show__Name e-32)))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (let ((sc1 e-35)) (case (vector-ref sc1 0) ((1) (let ((e-196 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-33) (Strings-Prelude-C-43C-43 ":Name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-34) (Strings-Prelude-C-43C-43 " is inaccessible since " (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-196)) " is not explicitly imported")))))))(else (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-33) (Strings-Prelude-C-43C-43 ":Name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-34) " is private")))))))))) ((9) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-36) (Strings-Prelude-C-43C-43 ":Return type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-37) " must be Type")))))) ((10) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-38) (Strings-Prelude-C-43C-43 ":Return type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-39) (Strings-Prelude-C-43C-43 " must be in " (Name-Core-show_Show__Name e-40))))))))) ((11) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-41) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-42) (Strings-Prelude-C-43C-43 " is not covering:\u000a\u0009" (let ((sc1 e-43)) (case (vector-ref sc1 0) ((0) "Oh yes it is (Internal error!)") ((1) (let ((e-0 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 "Missing cases:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1)) e-0))))) (else (let ((e-1 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 "Calls non covering function" (let ((sc2 e-1)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-3)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1))))))))))))))))))) ((12) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-44) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-45) " is not total")))))) ((13) (let ((e-47 (vector-ref sc0 1))) (let ((e-48 (vector-ref sc0 2))) (let ((e-49 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-47) (Strings-Prelude-C-43C-43 ":There are " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-48) (Strings-Prelude-C-43C-43 " uses of linear name " (Name-Core-show_Show__Name e-49))))))))) ((14) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (let ((e-53 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-50) (Strings-Prelude-C-43C-43 ":Trying to use " (Strings-Prelude-C-43C-43 (Core-Core-n--5136-2481-showRig e-53 e-52 e-51 e-50 e-52) (Strings-Prelude-C-43C-43 " name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-51) (Strings-Prelude-C-43C-43 " in " (Strings-Prelude-C-43C-43 (Core-Core-n--5136-2482-showRel e-53 e-52 e-51 e-50 e-53) " context")))))))))))) ((15) (let ((e-54 (vector-ref sc0 1))) (let ((e-55 (vector-ref sc0 2))) (let ((e-57 (vector-ref sc0 4))) (let ((e-58 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-55) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-54 e-57) (Strings-Prelude-C-43C-43 " borrows argument " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-54 e-58) " so must be fully applied")))))))))) ((16) (let ((e-59 (vector-ref sc0 1))) (let ((e-60 (vector-ref sc0 2))) (let ((e-62 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-60) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-59 e-62) " borrows, so must return a concrete type"))))))) ((17) (let ((e-63 (vector-ref sc0 1))) (let ((e-64 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-63) (Strings-Prelude-C-43C-43 ":Ambiguous name " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-64)))))) ((18) (let ((e-65 (vector-ref sc0 1))) (let ((e-66 (vector-ref sc0 2))) (let ((e-68 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-66) (Strings-Prelude-C-43C-43 ":Ambiguous elaboration " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-65 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-65 d x)))) e-68))))))) ((19) (let ((e-69 (vector-ref sc0 1))) (let ((e-70 (vector-ref sc0 2))) (let ((e-73 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-70) (Strings-Prelude-C-43C-43 ":Ambiguous search " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-69 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-69 d x)))) e-73))))))) ((20) (let ((e-74 (vector-ref sc0 1))) (let ((e-75 (vector-ref sc0 2))) (let ((e-76 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-74) (Strings-Prelude-C-43C-43 ":Ambiguity too deep in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-75) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-76))))))))) ((21) (let ((e-77 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "No successful elaboration: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Core-Core-show_Show__Error x-0)) (lambda (d) (lambda (x-0) (Core-Core-showPrec_Show__Error d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Core-Core-show_Show__Error x-0)) (lambda (d-0) (lambda (x-0) (Core-Core-showPrec_Show__Error d-0 x-0))))) d x)))) e-77)))) ((22) (let ((e-79 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-79) ":Can't infer type of record to update"))) ((23) (let ((e-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (let ((e-83 (vector-ref sc0 3))) (let ((sc1 e-83)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-81) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 e-82 " is not part of a record type")))) (else (let ((e-199 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-81) (Strings-Prelude-C-43C-43 ":Record type " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-199) (Strings-Prelude-C-43C-43 " has no field " e-82)))))))))))) ((24) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-84) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-85) " is not a record type")))))) ((25) (let ((e-86 (vector-ref sc0 1))) (let ((e-87 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-86) (Strings-Prelude-C-43C-43 ":Field update " (Strings-Prelude-C-43C-43 (Name-Core-showSep "->" e-87) " not compatible with other updates")))))) ((26) (let ((e-88 (vector-ref sc0 1))) (let ((e-89 (vector-ref sc0 2))) (let ((e-91 (vector-ref sc0 4))) (let ((e-92 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-89) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) d x)))) e-91) (Strings-Prelude-C-43C-43 " are not valid implicit arguments in " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-88 e-92)))))))))) ((27) (let ((e-93 (vector-ref sc0 1))) (let ((e-94 (vector-ref sc0 2))) (let ((e-96 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-94) (Strings-Prelude-C-43C-43 ":Need to bind implicits " (Strings-Prelude-C-43C-43 (Name-Core-showSep "," (Prelude-map_Functor__List 'erased 'erased (lambda (x) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased x)) (Strings-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-93 (Builtin-snd 'erased 'erased x))))) e-96)) "\u000a(The front end should probably have done this for you. Please report!)"))))))) ((28) (let ((e-97 (vector-ref sc0 1))) (let ((e-98 (vector-ref sc0 2))) (let ((e-100 (vector-ref sc0 4))) (let ((e-101 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-98) (Strings-Prelude-C-43C-43 ":Can't bind name " (Strings-Prelude-C-43C-43 (Name-Core-nameRoot e-100) (Strings-Prelude-C-43C-43 " with type " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-97 e-101)))))))))) ((29) (let ((e-102 (vector-ref sc0 1))) (let ((e-103 (vector-ref sc0 2))) (let ((e-105 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-103) (Strings-Prelude-C-43C-43 ":Can't solve goal " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-102 e-105))))))) ((30) (let ((e-106 (vector-ref sc0 1))) (let ((e-107 (vector-ref sc0 2))) (let ((e-108 (vector-ref sc0 3))) (let ((e-111 (vector-ref sc0 6))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-107) (Strings-Prelude-C-43C-43 ":Can't solve goal " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-106 e-111) (Strings-Prelude-C-43C-43 " since argument " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-108) " can't be inferred")))))))))) ((31) (let ((e-112 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Unsolved holes " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0))))) d x)))) e-112)))) ((32) (let ((e-113 (vector-ref sc0 1))) (let ((e-114 (vector-ref sc0 2))) (let ((e-116 (vector-ref sc0 4))) (let ((e-117 (vector-ref sc0 5))) (let ((e-118 (vector-ref sc0 6))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-114) (Strings-Prelude-C-43C-43 ":Can't infer type for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-116) (Strings-Prelude-C-43C-43 " (got " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-113 e-118) (Strings-Prelude-C-43C-43 " with hole " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-117) ")"))))))))))))) ((33) (let ((e-120 (vector-ref sc0 2))) (let ((e-122 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-120) (Strings-Prelude-C-43C-43 ":Named hole " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-122) " is solved by unification")))))) ((34) (let ((e-124 (vector-ref sc0 1))) (let ((e-125 (vector-ref sc0 2))) (let ((e-126 (vector-ref sc0 3))) (let ((e-127 (vector-ref sc0 4))) (let ((e-128 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-124) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-125) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-126) (Strings-Prelude-C-43C-43 " cannot refer to " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-127) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-128))))))))))))))) ((35) (let ((e-129 (vector-ref sc0 1))) (let ((e-130 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-129) (Strings-Prelude-C-43C-43 ":Non linear pattern variable " (Name-Core-show_Show__Name e-130)))))) ((36) (let ((e-131 (vector-ref sc0 1))) (let ((e-132 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-131) (Strings-Prelude-C-43C-43 ":Pattern not allowed here: " (Name-Core-show_Show__Name e-132)))))) ((37) (let ((e-133 (vector-ref sc0 1))) (let ((e-134 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-133) (Strings-Prelude-C-43C-43 ":No type declaration for " (Name-Core-show_Show__Name e-134)))))) ((38) (let ((e-135 (vector-ref sc0 1))) (let ((e-136 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-135) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-136) " is already defined")))))) ((39) (let ((e-137 (vector-ref sc0 1))) (let ((e-138 (vector-ref sc0 2))) (let ((e-140 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-138) (Strings-Prelude-C-43C-43 ":Not a function type: " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-137 e-140))))))) ((40) (let ((e-141 (vector-ref sc0 1))) (let ((e-142 (vector-ref sc0 2))) (let ((e-144 (vector-ref sc0 4))) (let ((e-145 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-142) (Strings-Prelude-C-43C-43 ":Rewriting by " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-141 e-144) (Strings-Prelude-C-43C-43 " did not change type " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-141 e-145)))))))))) ((41) (let ((e-146 (vector-ref sc0 1))) (let ((e-147 (vector-ref sc0 2))) (let ((e-149 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-147) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-146 e-149) " is not a rewrite rule type"))))))) ((42) (let ((e-150 (vector-ref sc0 1))) (let ((e-151 (vector-ref sc0 2))) (let ((e-152 (vector-ref sc0 3))) (let ((sc1 e-152)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-150) (Strings-Prelude-C-43C-43 ":Patterns for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-151) " have different numbers of arguments")))) ((1) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-150) (Strings-Prelude-C-43C-43 ":Patterns for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-151) " require matching on different types")))) ((4) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-150) (Strings-Prelude-C-43C-43 ":Can't infer type to match in " (Name-Core-show_Show__Name e-151)))) ((2) (let ((e-200 (vector-ref sc1 1))) (let ((sc2 e-200)) (let ((e-204 (vector-ref sc2 1))) (let ((e-205 (vector-ref sc2 2))) (let ((sc3 e-205)) (let ((e-209 (vector-ref sc3 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-150) (Strings-Prelude-C-43C-43 ":Attempt to match on erased argument " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-204 e-209) (Strings-Prelude-C-43C-43 " in " (Name-Core-show_Show__Name e-151)))))))))))) (else (let ((e-201 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-150) (Strings-Prelude-C-43C-43 ":Constructor " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-201) " is not fully applied"))))))))))) ((43) (let ((e-153 (vector-ref sc0 1))) (let ((e-154 (vector-ref sc0 2))) (let ((e-156 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-154) (Strings-Prelude-C-43C-43 ":Can't match on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-153 e-156) " as it is has a polymorphic type"))))))) ((44) (let ((e-157 (vector-ref sc0 1))) (let ((e-158 (vector-ref sc0 2))) (let ((e-160 (vector-ref sc0 4))) (let ((e-161 (vector-ref sc0 5))) (let ((e-162 (vector-ref sc0 6))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-158) (Strings-Prelude-C-43C-43 ":Can't match on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-157 e-161) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Core-Core-show_Show__DotReason e-160) (Strings-Prelude-C-43C-43 ")" (Strings-Prelude-C-43C-43 " - it elaborates to " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-157 e-162)))))))))))))) ((45) (let ((e-163 (vector-ref sc0 1))) (let ((e-164 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-163) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 e-164 " can't be bound here")))))) ((46) (let ((e-165 (vector-ref sc0 1))) (let ((e-166 (vector-ref sc0 2))) (let ((e-168 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-166) (Strings-Prelude-C-43C-43 ":Bad elaborator script " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-165 e-168))))))) ((47) (let ((e-169 (vector-ref sc0 1))) (let ((e-170 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-169) (Strings-Prelude-C-43C-43 ":" e-170))))) ((48) (let ((e-171 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Error in TTC file: " (Core-Core-show_Show__TTCErrorMsg e-171)))) ((49) (let ((e-172 (vector-ref sc0 1))) (let ((e-173 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "File error (" (Strings-Prelude-C-43C-43 e-172 (Strings-Prelude-C-43C-43 "): " (File-System-show_Show__FileError e-173))))))) ((50) (let ((e-175 (vector-ref sc0 1))) (let ((e-177 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "Parse error (" (Strings-Prelude-C-43C-43 (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased e-175 e-177) ")"))))) ((51) (let ((e-178 (vector-ref sc0 1))) (let ((e-179 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-178) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-179)) " not found")))))) ((52) (let ((e-180 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Module imports form a cycle: " (Name-Core-showSep " -> " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Core-Core-n--5136-3046-showMod e-180 eta-0)) e-180))))) ((53) "Internal error when resolving implicit laziness") ((54) (let ((e-181 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "INTERNAL ERROR: " e-181))) ((55) (let ((e-182 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Error: " e-182))) ((56) (let ((e-183 (vector-ref sc0 1))) (let ((e-184 (vector-ref sc0 2))) (let ((e-185 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-183) (Strings-Prelude-C-43C-43 ":When elaborating type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-184) (Strings-Prelude-C-43C-43 ":\u000a" (Core-Core-show_Show__Error e-185))))))))) ((57) (let ((e-186 (vector-ref sc0 1))) (let ((e-187 (vector-ref sc0 2))) (let ((e-188 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-186) (Strings-Prelude-C-43C-43 ":When elaborating type of constructor " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-187) (Strings-Prelude-C-43C-43 ":\u000a" (Core-Core-show_Show__Error e-188))))))))) ((58) (let ((e-189 (vector-ref sc0 1))) (let ((e-190 (vector-ref sc0 2))) (let ((e-191 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-189) (Strings-Prelude-C-43C-43 ":When elaborating left hand side of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-190) (Strings-Prelude-C-43C-43 ":\u000a" (Core-Core-show_Show__Error e-191))))))))) (else (let ((e-192 (vector-ref sc0 1))) (let ((e-193 (vector-ref sc0 2))) (let ((e-194 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-192) (Strings-Prelude-C-43C-43 ":When elaborating right hand side of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-193) (Strings-Prelude-C-43C-43 ":\u000a" (Core-Core-show_Show__Error e-194))))))))))))) +(define Core-Core-show_Show__TTCErrorMsg (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((age (Core-Core-case--5097-2163 e-2 e-1 e-0 (Prelude-C-60_Ord__Int e-1 e-2)))) (Strings-Prelude-C-43C-43 "TTC data is in an " (Strings-Prelude-C-43C-43 age (Strings-Prelude-C-43C-43 " format, file: " (Strings-Prelude-C-43C-43 e-0 (Strings-Prelude-C-43C-43 ", expected version: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-2) (Strings-Prelude-C-43C-43 ", actual version: " (Prelude-show_Show__Int e-1))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "End of buffer when reading " e-3))) (else (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Corrupt TTC data for " e-4))))))) +(define Core-Core-show_Show__Error (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Core-Core-show_Show__Error e-0))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-2) (Strings-Prelude-C-43C-43 ":Type mismatch: " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-1 e-4) (Strings-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-1 e-5)))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-7) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-6 e-9) (Strings-Prelude-C-43C-43 " and " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-6 e-10) " are not equal")))))))))) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 4))) (let ((e-15 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-12) (Strings-Prelude-C-43C-43 ":Pattern variable " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-14) (Strings-Prelude-C-43C-43 " unifies with " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-11 e-15)))))))))) ((4) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-17) (Strings-Prelude-C-43C-43 ":Cycle detected in metavariable solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-19) (Strings-Prelude-C-43C-43 " = " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-16 e-20)))))))))) ((5) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 4))) (let ((e-25 (vector-ref sc0 5))) (let ((e-26 (vector-ref sc0 6))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-22) (Strings-Prelude-C-43C-43 ":When unifying: " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-21 e-24) (Strings-Prelude-C-43C-43 " and " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-21 e-25) (Strings-Prelude-C-43C-43 "\u000a\u0009" (Core-Core-show_Show__Error e-26))))))))))))) ((6) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-28) (Strings-Prelude-C-43C-43 ":" (let ((sc1 e-30)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-27 e-2) " is not a valid impossible pattern because it typechecks"))) (else (let ((e-5 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 "Not a valid impossible pattern:\u000a\u0009" (Core-Core-show_Show__Error e-5)))))))))))) ((7) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-31) (Strings-Prelude-C-43C-43 ":Undefined name " (Name-Core-show_Show__Name e-32)))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (let ((sc1 e-35)) (case (vector-ref sc1 0) ((1) (let ((e-196 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-33) (Strings-Prelude-C-43C-43 ":Name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-34) (Strings-Prelude-C-43C-43 " is inaccessible since " (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-196)) " is not explicitly imported")))))))(else (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-33) (Strings-Prelude-C-43C-43 ":Name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-34) " is private")))))))))) ((9) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-36) (Strings-Prelude-C-43C-43 ":Return type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-37) " must be Type")))))) ((10) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-38) (Strings-Prelude-C-43C-43 ":Return type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-39) (Strings-Prelude-C-43C-43 " must be in " (Name-Core-show_Show__Name e-40))))))))) ((11) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-41) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-42) (Strings-Prelude-C-43C-43 " is not covering:\u000a\u0009" (let ((sc1 e-43)) (case (vector-ref sc1 0) ((0) "Oh yes it is (Internal error!)") ((1) (let ((e-0 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 "Missing cases:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1)) e-0))))) (else (let ((e-1 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 "Calls non covering function" (let ((sc2 e-1)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-3)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1))))))))))))))))))) ((12) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-44) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-45) " is not total")))))) ((13) (let ((e-47 (vector-ref sc0 1))) (let ((e-48 (vector-ref sc0 2))) (let ((e-49 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-47) (Strings-Prelude-C-43C-43 ":There are " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-48) (Strings-Prelude-C-43C-43 " uses of linear name " (Name-Core-show_Show__Name e-49))))))))) ((14) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (let ((e-53 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-50) (Strings-Prelude-C-43C-43 ":Trying to use " (Strings-Prelude-C-43C-43 (Core-Core-n--5159-2489-showRig e-53 e-52 e-51 e-50 e-52) (Strings-Prelude-C-43C-43 " name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-51) (Strings-Prelude-C-43C-43 " in " (Strings-Prelude-C-43C-43 (Core-Core-n--5159-2490-showRel e-53 e-52 e-51 e-50 e-53) " context")))))))))))) ((15) (let ((e-54 (vector-ref sc0 1))) (let ((e-55 (vector-ref sc0 2))) (let ((e-57 (vector-ref sc0 4))) (let ((e-58 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-55) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-54 e-57) (Strings-Prelude-C-43C-43 " borrows argument " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-54 e-58) " so must be fully applied")))))))))) ((16) (let ((e-59 (vector-ref sc0 1))) (let ((e-60 (vector-ref sc0 2))) (let ((e-62 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-60) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-59 e-62) " borrows, so must return a concrete type"))))))) ((17) (let ((e-63 (vector-ref sc0 1))) (let ((e-64 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-63) (Strings-Prelude-C-43C-43 ":Ambiguous name " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-64)))))) ((18) (let ((e-65 (vector-ref sc0 1))) (let ((e-66 (vector-ref sc0 2))) (let ((e-68 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-66) (Strings-Prelude-C-43C-43 ":Ambiguous elaboration " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-65 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-65 d x)))) e-68))))))) ((19) (let ((e-69 (vector-ref sc0 1))) (let ((e-70 (vector-ref sc0 2))) (let ((e-73 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-70) (Strings-Prelude-C-43C-43 ":Ambiguous search " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-69 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-69 d x)))) e-73))))))) ((20) (let ((e-74 (vector-ref sc0 1))) (let ((e-75 (vector-ref sc0 2))) (let ((e-76 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-74) (Strings-Prelude-C-43C-43 ":Ambiguity too deep in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-75) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-76))))))))) ((21) (let ((e-77 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "No successful elaboration: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Core-Core-show_Show__Error x-0)) (lambda (d) (lambda (x-0) (Core-Core-showPrec_Show__Error d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Core-Core-show_Show__Error x-0)) (lambda (d-0) (lambda (x-0) (Core-Core-showPrec_Show__Error d-0 x-0))))) d x)))) e-77)))) ((22) (let ((e-79 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-79) ":Can't infer type of record to update"))) ((23) (let ((e-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (let ((e-83 (vector-ref sc0 3))) (let ((sc1 e-83)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-81) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 e-82 " is not part of a record type")))) (else (let ((e-199 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-81) (Strings-Prelude-C-43C-43 ":Record type " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-199) (Strings-Prelude-C-43C-43 " has no field " e-82)))))))))))) ((24) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-84) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-85) " is not a record type")))))) ((25) (let ((e-86 (vector-ref sc0 1))) (let ((e-87 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-86) (Strings-Prelude-C-43C-43 ":Field update " (Strings-Prelude-C-43C-43 (Name-Core-showSep "->" e-87) " not compatible with other updates")))))) ((26) (let ((e-88 (vector-ref sc0 1))) (let ((e-89 (vector-ref sc0 2))) (let ((e-91 (vector-ref sc0 4))) (let ((e-92 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-89) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) d x)))) e-91) (Strings-Prelude-C-43C-43 " are not valid implicit arguments in " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-88 e-92)))))))))) ((27) (let ((e-93 (vector-ref sc0 1))) (let ((e-94 (vector-ref sc0 2))) (let ((e-96 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-94) (Strings-Prelude-C-43C-43 ":Need to bind implicits " (Strings-Prelude-C-43C-43 (Name-Core-showSep "," (Prelude-map_Functor__List 'erased 'erased (lambda (x) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased x)) (Strings-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-93 (Builtin-snd 'erased 'erased x))))) e-96)) "\u000a(The front end should probably have done this for you. Please report!)"))))))) ((28) (let ((e-97 (vector-ref sc0 1))) (let ((e-98 (vector-ref sc0 2))) (let ((e-100 (vector-ref sc0 4))) (let ((e-101 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-98) (Strings-Prelude-C-43C-43 ":Can't bind name " (Strings-Prelude-C-43C-43 (Name-Core-nameRoot e-100) (Strings-Prelude-C-43C-43 " with type " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-97 e-101)))))))))) ((29) (let ((e-102 (vector-ref sc0 1))) (let ((e-103 (vector-ref sc0 2))) (let ((e-105 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-103) (Strings-Prelude-C-43C-43 ":Can't solve goal " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-102 e-105))))))) ((30) (let ((e-106 (vector-ref sc0 1))) (let ((e-107 (vector-ref sc0 2))) (let ((e-108 (vector-ref sc0 3))) (let ((e-111 (vector-ref sc0 6))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-107) (Strings-Prelude-C-43C-43 ":Can't solve goal " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-106 e-111) (Strings-Prelude-C-43C-43 " since argument " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-108) " can't be inferred")))))))))) ((31) (let ((e-112 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Unsolved holes " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0))))) d x)))) e-112)))) ((32) (let ((e-113 (vector-ref sc0 1))) (let ((e-114 (vector-ref sc0 2))) (let ((e-116 (vector-ref sc0 4))) (let ((e-117 (vector-ref sc0 5))) (let ((e-118 (vector-ref sc0 6))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-114) (Strings-Prelude-C-43C-43 ":Can't infer type for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-116) (Strings-Prelude-C-43C-43 " (got " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-113 e-118) (Strings-Prelude-C-43C-43 " with hole " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-117) ")"))))))))))))) ((33) (let ((e-120 (vector-ref sc0 2))) (let ((e-122 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-120) (Strings-Prelude-C-43C-43 ":Named hole " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-122) " is solved by unification")))))) ((34) (let ((e-124 (vector-ref sc0 1))) (let ((e-125 (vector-ref sc0 2))) (let ((e-126 (vector-ref sc0 3))) (let ((e-127 (vector-ref sc0 4))) (let ((e-128 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-124) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-125) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-126) (Strings-Prelude-C-43C-43 " cannot refer to " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-127) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-128))))))))))))))) ((35) (let ((e-129 (vector-ref sc0 1))) (let ((e-130 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-129) (Strings-Prelude-C-43C-43 ":Non linear pattern variable " (Name-Core-show_Show__Name e-130)))))) ((36) (let ((e-131 (vector-ref sc0 1))) (let ((e-132 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-131) (Strings-Prelude-C-43C-43 ":Pattern not allowed here: " (Name-Core-show_Show__Name e-132)))))) ((37) (let ((e-133 (vector-ref sc0 1))) (let ((e-134 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-133) (Strings-Prelude-C-43C-43 ":No type declaration for " (Name-Core-show_Show__Name e-134)))))) ((38) (let ((e-135 (vector-ref sc0 1))) (let ((e-136 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-135) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-136) " is already defined")))))) ((39) (let ((e-137 (vector-ref sc0 1))) (let ((e-138 (vector-ref sc0 2))) (let ((e-140 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-138) (Strings-Prelude-C-43C-43 ":Not a function type: " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-137 e-140))))))) ((40) (let ((e-141 (vector-ref sc0 1))) (let ((e-142 (vector-ref sc0 2))) (let ((e-144 (vector-ref sc0 4))) (let ((e-145 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-142) (Strings-Prelude-C-43C-43 ":Rewriting by " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-141 e-144) (Strings-Prelude-C-43C-43 " did not change type " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-141 e-145)))))))))) ((41) (let ((e-146 (vector-ref sc0 1))) (let ((e-147 (vector-ref sc0 2))) (let ((e-149 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-147) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-146 e-149) " is not a rewrite rule type"))))))) ((42) (let ((e-150 (vector-ref sc0 1))) (let ((e-151 (vector-ref sc0 2))) (let ((e-152 (vector-ref sc0 3))) (let ((sc1 e-152)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-150) (Strings-Prelude-C-43C-43 ":Patterns for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-151) " have different numbers of arguments")))) ((1) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-150) (Strings-Prelude-C-43C-43 ":Patterns for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-151) " require matching on different types")))) ((4) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-150) (Strings-Prelude-C-43C-43 ":Can't infer type to match in " (Name-Core-show_Show__Name e-151)))) ((2) (let ((e-200 (vector-ref sc1 1))) (let ((sc2 e-200)) (let ((e-204 (vector-ref sc2 1))) (let ((e-205 (vector-ref sc2 2))) (let ((sc3 e-205)) (let ((e-209 (vector-ref sc3 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-150) (Strings-Prelude-C-43C-43 ":Attempt to match on erased argument " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-204 e-209) (Strings-Prelude-C-43C-43 " in " (Name-Core-show_Show__Name e-151)))))))))))) (else (let ((e-201 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-150) (Strings-Prelude-C-43C-43 ":Constructor " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-201) " is not fully applied"))))))))))) ((43) (let ((e-153 (vector-ref sc0 1))) (let ((e-154 (vector-ref sc0 2))) (let ((e-156 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-154) (Strings-Prelude-C-43C-43 ":Can't match on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-153 e-156) " as it is has a polymorphic type"))))))) ((44) (let ((e-157 (vector-ref sc0 1))) (let ((e-158 (vector-ref sc0 2))) (let ((e-160 (vector-ref sc0 4))) (let ((e-161 (vector-ref sc0 5))) (let ((e-162 (vector-ref sc0 6))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-158) (Strings-Prelude-C-43C-43 ":Can't match on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-157 e-161) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Core-Core-show_Show__DotReason e-160) (Strings-Prelude-C-43C-43 ")" (Strings-Prelude-C-43C-43 " - it elaborates to " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-157 e-162)))))))))))))) ((45) (let ((e-163 (vector-ref sc0 1))) (let ((e-164 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-163) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 e-164 " can't be bound here")))))) ((46) (let ((e-165 (vector-ref sc0 1))) (let ((e-166 (vector-ref sc0 2))) (let ((e-168 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-166) (Strings-Prelude-C-43C-43 ":Bad elaborator script " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-165 e-168))))))) ((47) (let ((e-169 (vector-ref sc0 1))) (let ((e-170 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-169) (Strings-Prelude-C-43C-43 ":" e-170))))) ((48) (let ((e-171 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Error in TTC file: " (Core-Core-show_Show__TTCErrorMsg e-171)))) ((49) (let ((e-172 (vector-ref sc0 1))) (let ((e-173 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "File error (" (Strings-Prelude-C-43C-43 e-172 (Strings-Prelude-C-43C-43 "): " (File-System-show_Show__FileError e-173))))))) ((50) (let ((e-175 (vector-ref sc0 1))) (let ((e-177 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "Parse error (" (Strings-Prelude-C-43C-43 (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased e-175 e-177) ")"))))) ((51) (let ((e-178 (vector-ref sc0 1))) (let ((e-179 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-178) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-179)) " not found")))))) ((52) (let ((e-180 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Module imports form a cycle: " (Name-Core-showSep " -> " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Core-Core-n--5159-3054-showMod e-180 eta-0)) e-180))))) ((53) "Internal error when resolving implicit laziness") ((54) (let ((e-181 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "INTERNAL ERROR: " e-181))) ((55) (let ((e-182 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Error: " e-182))) ((56) (let ((e-183 (vector-ref sc0 1))) (let ((e-184 (vector-ref sc0 2))) (let ((e-185 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-183) (Strings-Prelude-C-43C-43 ":When elaborating type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-184) (Strings-Prelude-C-43C-43 ":\u000a" (Core-Core-show_Show__Error e-185))))))))) ((57) (let ((e-186 (vector-ref sc0 1))) (let ((e-187 (vector-ref sc0 2))) (let ((e-188 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-186) (Strings-Prelude-C-43C-43 ":When elaborating type of constructor " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-187) (Strings-Prelude-C-43C-43 ":\u000a" (Core-Core-show_Show__Error e-188))))))))) ((58) (let ((e-189 (vector-ref sc0 1))) (let ((e-190 (vector-ref sc0 2))) (let ((e-191 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-189) (Strings-Prelude-C-43C-43 ":When elaborating left hand side of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-190) (Strings-Prelude-C-43C-43 ":\u000a" (Core-Core-show_Show__Error e-191))))))))) (else (let ((e-192 (vector-ref sc0 1))) (let ((e-193 (vector-ref sc0 2))) (let ((e-194 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-192) (Strings-Prelude-C-43C-43 ":When elaborating right hand side of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-193) (Strings-Prelude-C-43C-43 ":\u000a" (Core-Core-show_Show__Error e-194))))))))))))) (define Core-Core-show_Show__DotReason (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "Non linear pattern variable") ((1) "Variable applied to arguments") ((2) "Not a constructor application or primitive") ((3) "Erased argument") ((4) "User dotted") (else "Unknown reason"))))) (define Core-Core-showPrec_Show__Error (lambda (arg-0 arg-1) (Core-Core-show_Show__Error arg-1))) -(define Core-Core-catch_Catchable__Core_Error (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((pC-39 (vector 0 e-2))) ((Core-Core-case--6981-4008 'erased arg-1 arg-2 e-2 pC-39 (arg-2 e-2)) ext-0)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5)))))))) +(define Core-Core-catch_Catchable__Core_Error (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((pC-39 (vector 0 e-2))) ((Core-Core-case--7004-4016 'erased arg-1 arg-2 e-2 pC-39 (arg-2 e-2)) ext-0)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5)))))))) (define Core-Core-__Impl_Show_Error (lambda () (vector 0 (lambda (x) (Core-Core-show_Show__Error x)) (lambda (d) (lambda (x) (Core-Core-showPrec_Show__Error d x)))))) -(define Core-Core-__Impl_Catchable_Core_Error (lambda () (vector 0 (lambda (a) (lambda (arg-3908) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-3908 eta-0)))) (lambda (a) (lambda (arg-3909) (lambda (arg-3910) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased arg-3909 arg-3910 eta-0)))))))) +(define Core-Core-__Impl_Catchable_Core_Error (lambda () (vector 0 (lambda (a) (lambda (arg-3916) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-3916 eta-0)))) (lambda (a) (lambda (arg-3917) (lambda (arg-3918) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased arg-3917 arg-3918 eta-0)))))))) (define Core-Core-wrapError (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (arg-2 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (arg-1 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5)))))))) (define Core-Core-when (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (arg-1)) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define Core-Core-traverse_ (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((arg-2 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else ((Core-Core-traverse_ 'erased 'erased arg-2 e-3) eta-0))))))))))))) @@ -2104,7 +2122,7 @@ (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-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-3) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5)))))))) +(define Core-Core-newRef (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 ((IORef-Data-newIORef 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-3) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5)))))))) (define Core-Core-map (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-0) (let ((sc0 eta-0)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (arg-2 e-5))))))) arg-3 ext-0))) (define Core-Core-getWarningLoc (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (vector 1 e-1))))) (define Core-Core-getErrorLoc (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Core-Core-getErrorLoc e-0))) ((1) (let ((e-2 (vector-ref sc0 2))) (vector 1 e-2))) ((2) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-7))) ((3) (let ((e-12 (vector-ref sc0 2))) (vector 1 e-12))) ((4) (let ((e-17 (vector-ref sc0 2))) (vector 1 e-17))) ((5) (let ((e-22 (vector-ref sc0 2))) (vector 1 e-22))) ((6) (let ((e-28 (vector-ref sc0 2))) (vector 1 e-28))) ((7) (let ((e-31 (vector-ref sc0 1))) (vector 1 e-31))) ((8) (let ((e-33 (vector-ref sc0 1))) (vector 1 e-33))) ((9) (let ((e-36 (vector-ref sc0 1))) (vector 1 e-36))) ((10) (let ((e-38 (vector-ref sc0 1))) (vector 1 e-38))) ((11) (let ((e-41 (vector-ref sc0 1))) (vector 1 e-41))) ((12) (let ((e-44 (vector-ref sc0 1))) (vector 1 e-44))) ((13) (let ((e-47 (vector-ref sc0 1))) (vector 1 e-47))) ((14) (let ((e-50 (vector-ref sc0 1))) (vector 1 e-50))) ((15) (let ((e-55 (vector-ref sc0 2))) (vector 1 e-55))) ((16) (let ((e-60 (vector-ref sc0 2))) (vector 1 e-60))) ((17) (let ((e-63 (vector-ref sc0 1))) (vector 1 e-63))) ((18) (let ((e-66 (vector-ref sc0 2))) (vector 1 e-66))) ((19) (let ((e-70 (vector-ref sc0 2))) (vector 1 e-70))) ((20) (let ((e-74 (vector-ref sc0 1))) (vector 1 e-74))) ((21) (let ((e-77 (vector-ref sc0 1))) (let ((sc1 e-77)) (case (vector-ref sc1 0) ((1) (let ((e-196 (vector-ref sc1 1))) (let ((sc2 e-196)) (let ((e-202 (vector-ref sc2 2))) (Core-Core-getErrorLoc e-202))))) (else (vector 0 )))))) ((22) (let ((e-79 (vector-ref sc0 2))) (vector 1 e-79))) ((23) (let ((e-81 (vector-ref sc0 1))) (vector 1 e-81))) ((24) (let ((e-84 (vector-ref sc0 1))) (vector 1 e-84))) ((25) (let ((e-86 (vector-ref sc0 1))) (vector 1 e-86))) ((26) (let ((e-89 (vector-ref sc0 2))) (vector 1 e-89))) ((27) (let ((e-94 (vector-ref sc0 2))) (vector 1 e-94))) ((28) (let ((e-98 (vector-ref sc0 2))) (vector 1 e-98))) ((29) (let ((e-103 (vector-ref sc0 2))) (vector 1 e-103))) ((30) (let ((e-107 (vector-ref sc0 2))) (vector 1 e-107))) ((31) (let ((e-112 (vector-ref sc0 1))) (let ((sc1 e-112)) (case (vector-ref sc1 0) ((1) (let ((e-204 (vector-ref sc1 1))) (let ((sc2 e-204)) (let ((e-209 (vector-ref sc2 1))) (vector 1 e-209))))) (else (vector 0 )))))) ((32) (let ((e-114 (vector-ref sc0 2))) (vector 1 e-114))) ((33) (let ((e-120 (vector-ref sc0 2))) (vector 1 e-120))) ((34) (let ((e-124 (vector-ref sc0 1))) (vector 1 e-124))) ((35) (let ((e-129 (vector-ref sc0 1))) (vector 1 e-129))) ((36) (let ((e-131 (vector-ref sc0 1))) (vector 1 e-131))) ((37) (let ((e-133 (vector-ref sc0 1))) (vector 1 e-133))) ((38) (let ((e-135 (vector-ref sc0 1))) (vector 1 e-135))) ((39) (let ((e-138 (vector-ref sc0 2))) (vector 1 e-138))) ((40) (let ((e-142 (vector-ref sc0 2))) (vector 1 e-142))) ((41) (let ((e-147 (vector-ref sc0 2))) (vector 1 e-147))) ((42) (let ((e-150 (vector-ref sc0 1))) (vector 1 e-150))) ((43) (let ((e-154 (vector-ref sc0 2))) (vector 1 e-154))) ((44) (let ((e-158 (vector-ref sc0 2))) (vector 1 e-158))) ((45) (let ((e-163 (vector-ref sc0 1))) (vector 1 e-163))) ((46) (let ((e-166 (vector-ref sc0 2))) (vector 1 e-166))) ((47) (let ((e-169 (vector-ref sc0 1))) (vector 1 e-169))) ((48) (vector 0 )) ((49) (vector 0 )) ((50) (let ((e-176 (vector-ref sc0 2))) (vector 1 e-176))) ((51) (let ((e-178 (vector-ref sc0 1))) (vector 1 e-178))) ((52) (vector 0 )) ((53) (vector 0 )) ((54) (vector 0 )) ((55) (vector 0 )) ((56) (let ((e-185 (vector-ref sc0 3))) (Core-Core-getErrorLoc e-185))) ((57) (let ((e-188 (vector-ref sc0 3))) (Core-Core-getErrorLoc e-188))) ((58) (let ((e-191 (vector-ref sc0 3))) (Core-Core-getErrorLoc e-191))) (else (let ((e-194 (vector-ref sc0 3))) (Core-Core-getErrorLoc e-194))))))) @@ -2126,219 +2144,233 @@ (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--25060-19943 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Clock-System-clockTime (vector 3 )) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((nano 1000000000)) (let ((t (+ (* (Clock-System-seconds 'erased e-5) nano) (Clock-System-nanoseconds 'erased e-5)))) (let ((act-25 (arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 ((Clock-System-clockTime (vector 3 )) eta-0))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((tC-39 (+ (* (Clock-System-seconds 'erased e-7) nano) (Clock-System-nanoseconds 'erased e-7)))) (let ((time (Prelude-C-45_Neg__Integer tC-39 t))) (let ((act-27 (let ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "TIMING " (Strings-Prelude-C-43C-43 (arg-2) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Integer (Prelude-div_Integral__Integer time nano)) (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 (Context-Core-n--25060-19914-addZeros 'erased arg-1 arg-2 arg-3 arg-4 (Prelude-unpack (Prelude-show_Show__Integer (Prelude-div_Integral__Integer (Prelude-mod_Integral__Integer time nano) 1000000)))) "s"))))))) eta-0))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 e-6)))))))))))))))))))))))))) (else arg-1))))) -(define Context-Core-case--24899-19767 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-1) (Strings-Prelude-C-43C-43 ": " e-5)))) eta-0))) (vector 1 act-25))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Context-Core-case--24851-19724 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-1) (Strings-Prelude-C-43C-43 ": " (arg-0))))) eta-0))) (vector 1 act-24)))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Context-Core-case--24773-19657 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-4 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-3) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-2) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5))))))) eta-0))) (vector 1 act-25))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Context-Core-case--24713-19627 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 (vector 1 arg-0 e-25))))))))))))))))))))))))))))))) -(define Context-Core-case--24651-19576 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 arg-0 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--24565-19504 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-28)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-42 (vector-ref sc2 8))) (let ((e-43 (vector-ref sc2 9))) (let ((e-44 (vector-ref sc2 10))) (let ((e-45 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-35 e-36 e-37 e-38 e-39 e-40 arg-0 e-42 e-43 e-44 e-45) e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--24492-19432 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-28)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (let ((e-43 (vector-ref sc2 9))) (let ((e-44 (vector-ref sc2 10))) (let ((e-45 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-35 e-36 e-37 e-38 e-39 arg-0 e-41 e-42 e-43 e-44 e-45) e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--24419-19360 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-28)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (let ((e-43 (vector-ref sc2 9))) (let ((e-44 (vector-ref sc2 10))) (let ((e-45 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-35 e-36 e-37 e-38 arg-0 e-40 e-41 e-42 e-43 e-44 e-45) e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--24326-19223 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-getFullName arg-1 (let ((sc2 e-2)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Name-Core-C-61C-61_Eq__Name e-5 e-6))))))))))))))))))) -(define Context-Core-case--24210-19106 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-getFullName arg-1 (let ((sc2 e-2)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Name-Core-C-61C-61_Eq__Name e-5 e-6))))))))))))))))))) -(define Context-Core-case--24138-19079 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 (NameMap-Data-insert 'erased arg-5 arg-0 e-14) e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--24084-19021 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromChar arg-0 e-4) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--24030-18970 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromString arg-0 e-4) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--23976-18919 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromInteger arg-0 e-4) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--23898-18860 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setRewrite arg-6 arg-5 e-4) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--23808-18787 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setPair arg-6 arg-7 arg-8 e-4) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--23659-18646 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-35 e-36 e-37 e-38 e-39 arg-0) e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--23590-18578 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-35 e-36 e-37 arg-0 e-39 e-40) e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--23522-18511 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-35 e-36 arg-0 e-38 e-39 e-40) e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--23454-18444 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-40 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-35 e-36 e-37 e-38 arg-0 e-40) e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--23386-18377 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-35 (vector-ref sc2 1))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-35 arg-0 e-37 e-38 e-39 e-40) e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--23318-18310 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 arg-0 e-36 e-37 e-38 e-39 e-40) e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--23231-18189 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 9 e-10))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0))))))) -(define Context-Core-case--23174-18162 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setExtension arg-0 e-4) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--23104-18110 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 e-37 e-38 arg-0 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--23081-18038 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0))))))) -(define Context-Core-case--22984-18000 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 arg-4 e-36 e-37 e-38 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--22954-17937 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (set-box! arg-1 (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-35)) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (vector 0 e-0 e-26 e-2 e-3 (vector 0 (vector 0 e-1 e-36 e-37 e-38 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-24))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0))))))) -(define Context-Core-case--22884-17899 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 arg-0 e-37 e-38 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--22814-17830 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 e-37 arg-0 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--22744-17761 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 arg-0 e-38 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--22664-17682 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 e-37 e-38 e-39 e-40 (List-Prelude-C-43C-43 'erased e-41 (vector 1 arg-0 (vector 0 ))) e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--22584-17603 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 e-37 e-38 e-39 e-40 e-41 (List-Prelude-C-43C-43 'erased e-42 (vector 1 arg-0 (vector 0 )))) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--22504-17524 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 e-37 e-38 e-39 (List-Prelude-C-43C-43 'erased e-40 (vector 1 arg-0 (vector 0 ))) e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--22418-17444 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-28)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (let ((e-43 (vector-ref sc2 9))) (let ((e-44 (vector-ref sc2 10))) (let ((e-45 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-35 e-36 e-37 arg-0 e-39 e-40 e-41 e-42 e-43 e-44 e-45) e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--22356-17373 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 arg-0 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--22296-17286 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)))))) (else (lambda (eta-0) (vector 1 (vector 9 arg-0)))))))) -(define Context-Core-case--22237-17263 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-0)) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((e-35 (vector-ref sc1 10))) (vector 0 (vector 0 (let ((sc2 (let ((sc3 arg-1)) (let ((e-61 (vector-ref sc3 1))) e-61)))) (let ((e-44 (vector-ref sc2 2))) e-44)) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34 e-35) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--22047-17085 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-0)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-35 (vector-ref sc1 10))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 e-33 arg-0 e-35) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--21964-17006 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-0)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((e-35 (vector-ref sc1 10))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 (vector 1 arg-0 e-33) e-34 e-35) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--21805-16843 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-0) e-2) e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--21669-16766 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-9)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 arg-15 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) -(define Context-Core-case--21400-16689 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-n--21400-16475-addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 0 arg-4 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-8 (let ((sc2 arg-9)) (let ((e-1 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-27 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-26 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (vector 0 e-5 e-1 e-28 e-27 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 e-2)))))))))))))))) -(define Context-Core-case--21452-16556 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (Context-Core-n--21400-16475-addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (b+ arg-15 1 63) arg-13 arg-18)) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-12 arg-11) eta-0))))))) -(define Context-Core-case--21415-16509 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-11 arg-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) ((Context-Core-n--21400-16475-addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (b+ arg-15 1 63) arg-13 e-3) eta-0)) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-12 arg-11) eta-0)))))))))))))) -(define Context-Core-case--21179-16290 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 1 (Context-Core-updateParams 'erased arg-3 arg-7))) (else arg-3))))) -(define Context-Core-case--21107-16265 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (Context-Core-case--21179-16290 arg-0 arg-1 arg-2 arg-3 e-5 e-6 e-7 e-3 (Name-Core-C-61C-61_Eq__Name e-7 arg-2))))))(else arg-3))))))(else arg-3))))) -(define Context-Core-case--20998-16121 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-12 arg-11 arg-9))) (else (vector 0 )))))) -(define Context-Core-case--20854-15987 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (vector 0 )) (else arg-12))))) -(define Context-Core-case--20773-15945 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--20722-15858 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 arg-3)) (else (vector 0 )))))) -(define Context-Core-case--20629-15823 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 (vector 1 (vector 0 arg-4 arg-1) e-19) e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--20613-15762 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Unknown code generator " arg-2)) eta-0))) (vector 1 act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (set-box! arg-0 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-26 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-26 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 (vector 1 (vector 0 e-2 arg-1) e-19) e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24))))))))) -(define Context-Core-case--20540-15722 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 arg-0 e-17) e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--20461-15648 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 arg-0 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) -(define Context-Core-case--20408-15598 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 arg-0 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) -(define Context-Core-case--20355-15546 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 0 ) (vector 0 ) e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))) -(define Context-Core-case--20134-15453 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-6 arg-9) e-12) (vector 1 (vector 0 arg-7 arg-8) e-13) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--20134-15362 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-6 (vector 0 )) e-12) (vector 1 (vector 0 arg-7 arg-8) e-13) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--20082-15306 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (set-box! arg-2 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-6 (vector 0 )) e-12) (vector 1 (vector 0 arg-7 arg-8) e-13) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (set-box! arg-2 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-26 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-26 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-6 e-2) e-12) (vector 1 (vector 0 arg-7 arg-8) e-13) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24))))))))) -(define Context-Core-case--20067-15258 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toResolvedNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Transform arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Transform arg-5888 arg-5889)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Transform arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Transform arg-5888 arg-5889)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((Context-Core-case--20082-15306 arg-0 arg-1 arg-2 arg-3 e-1 e-5 e-6 e-7 e-8 (NameMap-Data-lookup 'erased e-5 (let ((sc5 arg-3)) (let ((e-12 (vector-ref sc5 13))) e-12)))) eta-0)))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "LHS of a transformation must be a function application") eta-0))))))) -(define Context-Core-case--20014-15239 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 arg-0 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) -(define Context-Core-case--19881-15122 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (NameMap-Data-insert 'erased arg-3 (vector 0 ) e-9) e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--19799-15046 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (NameMap-Data-insert 'erased arg-4 arg-0 e-8) e-9 e-10 (vector 1 (vector 0 arg-4 arg-0) e-11) e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--19595-14949 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (NameMap-Data-insert 'erased arg-6 (vector 1 (vector 0 arg-7 arg-0) arg-8) e-7) e-8 e-9 (vector 1 (vector 0 arg-6 (vector 0 arg-7 arg-0)) e-10) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--19595-14868 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (NameMap-Data-insert 'erased arg-6 (vector 1 (vector 0 arg-7 arg-0) arg-8) e-7) e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--19505-14814 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (set-box! arg-5 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (NameMap-Data-insert 'erased arg-7 (vector 1 (vector 0 arg-8 arg-1) arg-9) e-7) e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24)))) (else (lambda (eta-0) (let ((act-24 (set-box! arg-5 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (NameMap-Data-insert 'erased arg-7 (vector 1 (vector 0 arg-8 arg-1) arg-9) e-7) e-8 e-9 (vector 1 (vector 0 arg-7 (vector 0 arg-8 arg-1)) e-10) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24)))))))) -(define Context-Core-case--19505-14769 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) e-1)) (else (vector 0 )))))) -(define Context-Core-case--19380-14665 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-10)) (let ((e-0 (vector-ref sc0 1))) (vector 0 e-0 arg-0))))) -(define Context-Core-case--19359-14636 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((flC-39 (let ((sc1 e-4)) (let ((e-9 (vector-ref sc1 1))) (vector 0 e-9 arg-0))))) (lambda (eta-0) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-3 flC-39 e-5 e-6 e-7))) eta-0))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc0 arg-5)) (let ((e-1 (vector-ref sc0 2))) e-1))) " is not a type constructor [setDetermining]")) eta-0))))))) -(define Context-Core-case--19339-14621 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Context-Core-case--19359-14636 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))))))) -(define Context-Core-case--19214-14532 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-10)) (let ((e-1 (vector-ref sc0 2))) (vector 0 arg-0 e-1))))) -(define Context-Core-case--19193-14503 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((flC-39 (let ((sc1 e-4)) (let ((e-8 (vector-ref sc1 2))) (vector 0 arg-0 e-8))))) (lambda (eta-0) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-3 flC-39 e-5 e-6 e-7))) eta-0))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc0 arg-5)) (let ((e-1 (vector-ref sc0 2))) e-1))) " is not a type constructor [setDetermining]")) eta-0))))))) -(define Context-Core-case--19173-14488 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Context-Core-case--19193-14503 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))))))) -(define Context-Core-case--19075-14404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (lambda (eta-0) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-3 e-4 e-5 e-6 arg-0))) eta-0))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc0 arg-5)) (let ((e-1 (vector-ref sc0 2))) e-1))) " is not a type constructor [setDetermining]")) eta-0))))))) -(define Context-Core-case--19055-14389 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Context-Core-case--19075-14404 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))))))) -(define Context-Core-case--18949-14296 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (lambda (eta-0) (let ((act-24 ((Context-Core-n--18783-14132-getPos arg-0 arg-1 arg-2 arg-3 'erased 0 arg-0 (let ((sc1 arg-5)) (let ((e-26 (vector-ref sc1 3))) e-26))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc1 1))) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-8 e-4 e-5 e-6 e-7))) eta-0)))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc0 arg-5)) (let ((e-1 (vector-ref sc0 2))) e-1))) " is not a type constructor [setDetermining]")) eta-0))))))) -(define Context-Core-case--18783-14281 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Context-Core-case--18949-14296 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))))))) -(define Context-Core-case--18789-14156 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-n--18783-14132-getPos arg-0 arg-1 arg-2 arg-3 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-12) (List-Data-filter 'erased (lambda (arg-14) (Name-Core-C-47C-61_Eq__Name arg-14 arg-9)) arg-11) arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 arg-12 e-5))))))))) (else (Context-Core-n--18783-14132-getPos arg-0 arg-1 arg-2 arg-3 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-12) arg-11 arg-10)))))) -(define Context-Core-case--18723-14116 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 (List-Data-filter 'erased (lambda (arg-3) (Name-Core-C-47C-61_Eq__Name arg-3 arg-0)) e-1) e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--18663-14059 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 (vector 1 arg-0 e-1) e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--18565-13950 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (lambda (eta-0) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-3 e-4 arg-0 e-6 e-7))) eta-0))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc0 arg-5)) (let ((e-1 (vector-ref sc0 2))) e-1))) " is not a type constructor [setMutWith]")) eta-0))))))) -(define Context-Core-case--18545-13935 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Context-Core-case--18565-13950 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))))))) -(define Context-Core-case--18209-13708 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((defns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Context-Core-n--18183-13575-isDefault arg-0 arg-1 arg-2 arg-3 eta-0)) (NameMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-8 (vector-ref sc1 9))) e-8))))))) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 1 (vector 0 1 defns) (vector 0 ))))))) (else (let ((opens (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (NameMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-9 (vector-ref sc1 10))) e-9)))))) (let ((autos (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (Context-Core-n--18183-13575-isDefault arg-0 arg-1 arg-2 arg-3 eta-0))) (NameMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-8 (vector-ref sc1 9))) e-8))))))) (let ((tyhs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Context-Core-n--18183-13576-direct arg-0 arg-1 arg-2 arg-3 eta-0)) arg-15)))) (let ((chasers (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (Context-Core-n--18183-13576-direct arg-0 arg-1 arg-2 arg-3 eta-0))) arg-15)))) (lambda (eta-0) (vector 1 (vector 0 arg-12 (List-Data-filter 'erased (lambda (eta-1) (List-Data-isCons 'erased (Builtin-snd 'erased 'erased eta-1))) (vector 1 (vector 0 1 opens) (vector 1 (vector 0 1 autos) (vector 1 (vector 0 (Prelude-not (let ((sc1 arg-11)) (let ((e-0 (vector-ref sc1 1))) e-0))) tyhs) (vector 1 (vector 0 0 chasers) (vector 0 )))))))))))))))))) -(define Context-Core-case--18209-13639 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) e-1)) (else (vector 0 )))))) -(define Context-Core-case--18183-13601 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 4))) (let ((e-6 (vector-ref sc1 5))) (let ((e-7 (vector-ref sc1 6))) (let ((e-8 (vector-ref sc1 7))) (let ((e-9 (vector-ref sc1 8))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc2 1))) (let ((hs (let ((_-0 (vector 1 (vector 6 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9)))) (Context-Core-case--18209-13639 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 e-4 e-7 e-8 e-9 e-6 e-5 _-0 e-10 (NameMap-Data-lookup 'erased e-10 (let ((sc3 arg-4)) (let ((e-29 (vector-ref sc3 8))) e-29))))))) (let ((sc3 arg-1)) (cond ((equal? sc3 0) (let ((defns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Context-Core-n--18183-13575-isDefault arg-0 arg-1 arg-2 arg-3 eta-1)) (NameMap-Data-toList 'erased (let ((sc4 arg-4)) (let ((e-28 (vector-ref sc4 9))) e-28))))))) (vector 1 (vector 0 (vector 0 ) (vector 1 (vector 0 1 defns) (vector 0 )))))) (else (let ((opens (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (NameMap-Data-toList 'erased (let ((sc4 arg-4)) (let ((e-27 (vector-ref sc4 10))) e-27)))))) (let ((autos (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Prelude-not (Context-Core-n--18183-13575-isDefault arg-0 arg-1 arg-2 arg-3 eta-1))) (NameMap-Data-toList 'erased (let ((sc4 arg-4)) (let ((e-28 (vector-ref sc4 9))) e-28))))))) (let ((tyhs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Context-Core-n--18183-13576-direct arg-0 arg-1 arg-2 arg-3 eta-1)) hs)))) (let ((chasers (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Prelude-not (Context-Core-n--18183-13576-direct arg-0 arg-1 arg-2 arg-3 eta-1))) hs)))) (vector 1 (vector 0 e-5 (List-Data-filter 'erased (lambda (eta-1) (List-Data-isCons 'erased (Builtin-snd 'erased 'erased eta-1))) (vector 1 (vector 0 1 opens) (vector 1 (vector 0 1 autos) (vector 1 (vector 0 (Prelude-not (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) e-0))) tyhs) (vector 1 (vector 0 0 chasers) (vector 0 )))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-0) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-0) eta-0))))))) -(define Context-Core-case--18029-13459 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (Context-Core-setVisibility arg-2 arg-1 e-6 (vector 0 ) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0))))))) -(define Context-Core-case--17944-13412 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 arg-0 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))))) -(define Context-Core-case--17924-13366 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 arg-0 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))))))) -(define Context-Core-case--17820-13272 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (let ((sc1 e-1)) (let ((e-10 (vector-ref sc1 11))) e-10)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))))))) -(define Context-Core-case--17732-13223 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((sc1 e-10)) (let ((e-22 (vector-ref sc1 2))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 0 arg-0 e-22) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))))) -(define Context-Core-case--17712-13175 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((sc2 e-10)) (let ((e-22 (vector-ref sc2 2))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 0 arg-0 e-22) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))))))) -(define Context-Core-case--17624-13125 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((sc1 e-10)) (let ((e-21 (vector-ref sc1 1))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 0 e-21 arg-0) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))))) -(define Context-Core-case--17604-13077 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((sc2 e-10)) (let ((e-23 (vector-ref sc2 1))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 0 e-23 arg-0) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))))))) -(define Context-Core-case--17412-12933 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 arg-0)))))))))))))))))))))))) -(define Context-Core-case--17392-12887 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 arg-0)))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))))))) -(define Context-Core-case--17236-12784 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 arg-7 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))))) -(define Context-Core-case--17216-12730 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((flagsC-39 (List-Data-filter 'erased (lambda (arg-6) (Context-Core-C-47C-61_Eq__DefFlag arg-6 arg-0)) (let ((sc1 e-1)) (let ((e-11 (vector-ref sc1 12))) e-11))))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))))))) -(define Context-Core-case--17075-12651 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 arg-9 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))))) -(define Context-Core-case--17055-12585 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (let ((flagsC-39 (vector 1 arg-0 (List-Data-filter 'erased (lambda (arg-6) (Context-Core-C-47C-61_Eq__DefFlag arg-6 arg-0)) (let ((sc4 e-11)) (let ((e-21 (vector-ref sc4 12))) e-21)))))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 (vector 9 e-10) (let ((sc4 e-11)) (let ((e-0 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-25 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-5 (vector-ref sc4 6))) (let ((e-24 (vector-ref sc4 7))) (let ((e-23 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-22 (vector-ref sc4 11))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (vector 0 e-0 e-26 e-25 e-3 e-4 e-5 e-24 e-23 e-8 e-9 e-22 flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))) -(define Context-Core-case--16957-12535 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 arg-7 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))))) -(define Context-Core-case--16937-12479 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((flagsC-39 (vector 1 arg-0 (List-Data-filter 'erased (lambda (arg-6) (Context-Core-C-47C-61_Eq__DefFlag arg-6 arg-0)) (let ((sc1 e-1)) (let ((e-11 (vector-ref sc1 12))) e-11)))))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))))))) -(define Context-Core-case--16663-12211 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 e-6 (arg-3 e-7))))))))))) -(define Context-Core-case--16617-12160 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (arg-3 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Context-Core-case--16548-12132 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 (NameMap-Data-insert 'erased arg-3 (vector 0 ) e-5) e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 (NameMap-Data-insert 'erased arg-3 (vector 0 ) e-21) e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--16451-12015 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setCtxt arg-1 e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 e-2))))))))))) -(define Context-Core-case--16405-11975 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setCtxt arg-1 e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 e-2))))))))))) -(define Context-Core-case--16352-11949 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 arg-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) -(define Context-Core-case--16277-11882 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 arg-0 e-17 e-18 e-19 e-20)))))))))))))))))))))))) -(define Context-Core-case--16258-11838 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-2 (vector 9 arg-1) (let ((sc1 e-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 arg-0 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Context-Core-case--16181-11795 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 (vector 1 arg-0) e-20)))))))))))))))))))))))) -(define Context-Core-case--16162-11751 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-2 arg-1 (let ((sc1 e-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 (vector 1 arg-0) e-20)))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Context-Core-case--16085-11708 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 (vector 1 arg-0) e-19 e-20)))))))))))))))))))))))) -(define Context-Core-case--16066-11664 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-2 arg-1 (let ((sc1 e-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 (vector 1 arg-0) e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Context-Core-case--15991-11623 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 arg-0 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))))) -(define Context-Core-case--15972-11579 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-2 (vector 9 arg-1) (let ((sc1 e-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-21 arg-0 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Context-Core-case--15872-11534 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 arg-6 e-18 e-19 e-20)))))))))))))))))))))))) -(define Context-Core-case--15853-11467 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-2 arg-1 (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-1 e-21 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-2 e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (vector 1 (vector 0 ))))))))))))) -(define Context-Core-case--15834-11452 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Context-Core-case--15853-11467 arg-0 arg-1 arg-2 arg-3 e-1 _-0 (arg-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Context-Core-case--15713-11378 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 arg-5 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) -(define Context-Core-case--15694-11323 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-2 (let ((sc1 arg-3)) (let ((e-1 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((e-26 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-3 e-1 e-27 e-26 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 e-2))))))))))) -(define Context-Core-case--15540-11291 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 arg-5 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) -(define Context-Core-case--15540-11200 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((7) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Context-Core-clearUserHole arg-2 (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)) eta-0))))))) -(define Context-Core-case--15521-11167 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-2 (let ((sc1 arg-3)) (let ((e-1 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((e-26 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-3 e-1 e-27 e-26 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((_-0 (vector 0 e-2 e-3))) ((Context-Core-case--15540-11200 arg-0 arg-1 arg-2 arg-3 e-2 e-3 _-0 e-5 (let ((sc2 arg-0)) (let ((e-17 (vector-ref sc2 18))) e-17))) eta-0)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 e-2)))))))))))))))) -(define Context-Core-case--15433-11078 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) ((7) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))) -(define Context-Core-case--15424-11067 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Context-Core-case--15433-11078 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 0))))))) -(define Context-Core-case--15366-11048 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 (NameMap-Data-delete 'erased arg-0 e-22) e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--15310-10995 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 (NameMap-Data-insert 'erased arg-0 (vector 0 ) e-22) e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--15259-10945 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 5381 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) -(define Context-Core-case--15188-10887 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 (let ((sc1 arg-1)) (let ((e-26 (vector-ref sc1 2))) ((e-26 (let ((sc2 arg-4)) (let ((e-38 (vector-ref sc2 16))) e-38))) arg-2))) e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) -(define Context-Core-case--15115-10830 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Context-Core-n--15115-10765-resetElab arg-0 (let ((sc1 arg-1)) (let ((e-47 (vector-ref sc1 5))) e-47))) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 (let ((sc1 arg-1)) (let ((e-27 (vector-ref sc1 25))) e-27)) e-25)))))))))))))))))))))))))))) -(define Context-Core-case--15118-10780 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 (Options-Core-defaultElab) e-4 e-5 e-6 e-7 e-8)))))))))))) -(define Context-Core-case--15014-10705 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-0)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34 0) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--11945-7897 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 12))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (vector 0 e-0 e-1 arg-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 arg-4 e-11 arg-5 arg-6 e-14 e-15 e-16 arg-3 e-18 e-19 arg-7))))))))))))))))))) -(define Context-Core-case--11944-7801 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 12))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (vector 0 e-0 e-1 arg-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 arg-4 e-11 arg-5 arg-6 e-14 e-15 e-16 arg-3 e-18 e-19 arg-7))))))))))))))))))) -(define Context-Core-case--11810-7618 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (vector 0 arg-2 e-1))))) -(define Context-Core-case--11809-7599 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (vector 0 arg-2 e-1))))) -(define Context-Core-case--10793-6732 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 9 e-1) arg-3 arg-1 arg-6))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-3 arg-1 arg-6)))))))) -(define Context-Core-case--10792-6628 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)) arg-3 arg-1 arg-6))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-3 arg-1 arg-6)))))))) -(define Context-Core-case--10167-6267 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 2 arg-4 arg-3 e-1 arg-6))))) (else (lambda (eta-0) (vector 1 (vector 2 arg-4 arg-3 arg-2 arg-6)))))))) -(define Context-Core-case--10167-6217 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 arg-3 arg-2 (vector 9 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-3 arg-2 arg-1)))))))) -(define Context-Core-case--10166-6008 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 arg-3 arg-2 (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Missing name! " (Prelude-show_Show__Int arg-1))) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 1 arg-3 arg-2 (vector 9 arg-1))))))))))))) -(define Context-Core-case--10091-5956 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 9 e-1))))) (else (lambda (eta-0) (vector 1 arg-0))))))) -(define Context-Core-case--10090-5932 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)))))) (else (lambda (eta-0) (vector 1 (vector 9 arg-0)))))))) -(define Context-Core-case--10011-5852 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 3))) (vector 1 e-3)))(else (vector 0 )))))) -(define Context-Core-case--9908-5806 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 arg-1 e-6 e-7 e-8 e-9))))))))))))) -(define Context-Core-case--9908-5778 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 0 (IntMap-Data-empty 'erased) e-7 e-8 e-9)))))))))))) -(define Context-Core-case--9878-5735 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-0)))(else (let ((e-0 (- arg-1 1))) (let ((sc0 e-0)) (cond ((equal? sc0 0) (let ((a (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Context-Core-n--9878-5707-commitStaged arg-0 (IntMap-Data-toList 'erased (let ((sc2 arg-0)) (let ((e-6 (vector-ref sc2 7))) e-6))) e-5) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (let ((sc3 arg-0)) (let ((e-12 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (vector 0 e-12 e-1 e-2 e-3 e-4 0 (IntMap-Data-empty 'erased) e-7 e-8 e-9)))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (let ((sc0 arg-0)) (let ((e-10 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-10 e-1 e-2 e-3 e-4 e-0 e-6 e-7 e-8 e-9)))))))))))))))))))))) -(define Context-Core-case--9861-5705 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (+ 1 e-5) e-6 e-7 e-8 e-9)))))))))))))) -(define Context-Core-case--9767-5630 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-4 (vector 0 arg-5 e-1)))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Context-Core-case--9742-5609 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 e-3) arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 e-2 (vector 0 e-3 e-1))))))(else (vector 1 (vector 0 )))))))))))))))) -(define Context-Core-case--9678-5585 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-1) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 e-3) arg-0) eta-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-2 (vector 0 e-3 e-4))))))(else (vector 1 (vector 0 ))))))))))))))) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Context-Core-n--9582-5437-getMatches arg-0 arg-1 e-5) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Context-Core-case--9678-5541 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-1 (vector 0 e-5 e-6)) (vector 0 ))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Context-Core-case--9582-5526 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExactI arg-1 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (vector 1 (vector 1 (vector 0 arg-1 (vector 0 e-7 e-6)) (vector 0 )))))))) (else (vector 1 (vector 0 )))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (Context-Core-case--9678-5585 arg-0 arg-1 e-2 (StringMap-Data-lookup 'erased e-2 (let ((sc1 arg-0)) (let ((e-3 (vector-ref sc1 4))) e-3)))))))))) -(define Context-Core-case--9586-5495 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-n--9582-5437-getMatches arg-0 arg-1 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 arg-2 e-5))))))))) (else (Context-Core-n--9582-5437-getMatches arg-0 arg-1 arg-3)))))) -(define Context-Core-case--9470-5417 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Context-Core-lookupContextEntry (vector 9 e-1) arg-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Context-Core-case--9477-5382 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-0 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Context-Core-case--9470-5338 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-0 e-1)))))) (else (let ((a (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((IOArray-Data-readArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a-0) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a-0) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8341) arg-8341))) e-5 arg-0) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 arg-0 e-1))))) (else (vector 1 (vector 0 )))))))))))))))))))))) -(define Context-Core-case--9256-5308 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 e-6))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Context-Core-case--9345-5241 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 e-6))))))))))) -(define Context-Core-case--9263-5223 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-decode arg-1 arg-0 0 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--9345-5241 arg-0 arg-1 arg-2 arg-3 e-1 _-0 e-5 (Context-Core-returnDef (let ((sc2 arg-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0 e-5)) eta-0)))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Context-Core-case--9263-5160 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 e-6))))))))))) -(define Context-Core-case--9256-5145 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-decode arg-1 arg-0 0 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Context-Core-case--9263-5160 arg-0 arg-1 e-1 e-5 (Context-Core-returnDef (let ((sc2 arg-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0 e-5)) eta-0))))))))) (else (let ((a (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((IOArray-Data-readArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a-0) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a-0) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8341) arg-8341))) e-5 arg-0) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 ((Context-Core-decode arg-1 arg-0 0 e-1) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--9345-5241 arg-0 arg-1 a e-5 e-1 _-0 e-7 (Context-Core-returnDef (let ((sc5 arg-1)) (let ((e-9 (vector-ref sc5 10))) e-9)) arg-0 e-7)) eta-0))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))) -(define Context-Core-case--9148-5121 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Context-Core-lookupCtxtExactI (vector 9 e-1) arg-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Context-Core-case--9155-5087 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-decode arg-1 arg-0 0 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Context-Core-returnDef (let ((sc2 arg-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0 e-5)))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Context-Core-case--9148-5044 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-decode arg-1 arg-0 0 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Context-Core-returnDef (let ((sc2 arg-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0 e-5)))))))))) (else (let ((a (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((IOArray-Data-readArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a-0) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a-0) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8341) arg-8341))) e-5 arg-0) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 ((Context-Core-decode arg-1 arg-0 0 e-1) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (Context-Core-returnDef (let ((sc5 arg-1)) (let ((e-9 (vector-ref sc5 10))) e-9)) arg-0 e-7))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))) -(define Context-Core-case--9078-4992 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-1 arg-0))) (else (vector 0 )))))) -(define Context-Core-case--9066-4976 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (Context-Core-case--9078-4992 arg-0 arg-1 e-1 e-2 e-3 e-4 e-0 (let ((sc1 e-0)) (let ((e-5 (vector-ref sc1 2))) e-5)))))))))(else (vector 0 )))))) -(define Context-Core-case--9012-4949 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (IntMap-Data-insert 'erased arg-3 arg-1 e-6) e-7 e-8 e-9)))))))))))))) -(define Context-Core-case--8942-4919 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (let ((sc1 e-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-11 e-10 e-4 e-5 (IntMap-Data-insert 'erased e-2 arg-1 e-6) e-7 e-8 e-9)))))))))))))))))))) -(define Context-Core-case--8942-4867 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((a (let ((sc1 e-3)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a-0) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a-0) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8341) arg-8341))) e-5 e-2 arg-1) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-2 e-3)))))))))))))))))) -(define Context-Core-case--8931-4851 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition arg-2 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((a (let ((sc3 e-3)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((act-25 (let ((act-25 (unbox a))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a-0) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a-0) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a-0) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8341) arg-8341))) e-6 e-2 arg-1) eta-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-2 e-3)))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition arg-2 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-2 (let ((sc3 e-3)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-12 (vector-ref sc3 3))) (let ((e-11 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-10 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (vector 0 e-0 e-1 e-12 e-11 e-4 e-10 (IntMap-Data-insert 'erased e-2 arg-1 e-6) e-7 e-8 e-9)))))))))))))))))))))))))))) -(define Context-Core-case--8877-4826 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (IntMap-Data-insert 'erased arg-3 (vector 1 arg-1) e-6) e-7 e-8 e-9)))))))))))))) -(define Context-Core-case--8807-4796 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (let ((sc1 e-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-11 e-10 e-4 e-5 (IntMap-Data-insert 'erased e-2 (vector 1 arg-1) e-6) e-7 e-8 e-9)))))))))))))))))))) -(define Context-Core-case--8807-4744 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((a (let ((sc1 e-3)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a-0) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a-0) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8341) arg-8341))) e-5 e-2 (vector 1 arg-1)) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-2 e-3)))))))))))))))))) -(define Context-Core-case--8796-4728 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition arg-2 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((a (let ((sc3 e-3)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((act-25 (let ((act-25 (unbox a))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a-0) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a-0) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a-0) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8341) arg-8341))) e-6 e-2 (vector 1 arg-1)) eta-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-2 e-3)))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition arg-2 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-2 (let ((sc3 e-3)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-12 (vector-ref sc3 3))) (let ((e-11 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-10 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (vector 0 e-0 e-1 e-12 e-11 e-4 e-10 (IntMap-Data-insert 'erased e-2 (vector 1 arg-1) e-6) e-7 e-8 e-9)))))))))))))))))))))))))))) -(define Context-Core-case--8751-4691 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 e-1 arg-0))))) (else (Context-Core-newEntry arg-1 arg-0)))))) -(define Context-Core-case--8666-4658 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 (b+ arg-2 1 63) (NameMap-Data-insert 'erased arg-1 arg-2 e-2) (Context-Core-addPossible arg-1 arg-2 e-3) e-4 e-5 e-6 e-7 e-8 e-9))))))))))))) -(define Context-Core-case--8596-4554 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (StringMap-Data-insert 'erased arg-3 (vector 1 (vector 0 arg-2 arg-1) (vector 0 )) arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (StringMap-Data-insert 'erased arg-3 (vector 1 (vector 0 arg-2 arg-1) e-2) arg-0))))))) -(define Context-Core-case--8590-4532 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-0) (else (let ((e-2 (vector-ref sc0 1))) (Context-Core-case--8596-4554 arg-0 arg-1 arg-2 e-2 (StringMap-Data-lookup 'erased e-2 arg-0)))))))) -(define Context-Core-case--5756-2041 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) " [impl]") (else ""))))) -(define Context-Core-n--22123-17104-visible (lambda (arg-0 arg-1 arg-2) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-2 arg-0))) -(define Context-Core-n--20834-15968-toNothing (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((tm (vector 1 (vector 0 e-4 e-5 e-6)))) (Context-Core-case--20854-15987 'erased arg-1 'erased 'erased arg-4 arg-5 arg-6 'erased e-4 e-5 e-6 'erased tm (Prelude-C-61C-61_Eq__Nat arg-1 e-6)))))))(else arg-7)))))(else arg-7))))) -(define Context-Core-n--21107-16209-shrink (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (TT-Core-shrinkTerm 'erased 'erased e-2 (vector 1 (vector 0 ))))))))) -(define Context-Core-n--25540-20350-showTimeLog (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStr 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 e-2 ": ")) eta-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((nano 1000000000)) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (Prelude-show_Show__Integer (Prelude-div_Integral__Integer e-7 nano)) (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 (Context-Core-n--25540-20349-addZeros arg-0 (Prelude-unpack (Prelude-show_Show__Integer (Prelude-div_Integral__Integer (Prelude-mod_Integral__Integer e-7 nano) 1000000)))) "s")))) eta-0))) (vector 1 act-25))))))))))))))) -(define Context-Core-n--11155-7101-resolvedNamesPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-5 e-6) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-10) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-11) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 e-2 (vector 0 e-5 (vector 0 e-8 e-9))))))))))))))))))))))))))))))) -(define Context-Core-n--15115-10765-resetElab (lambda (arg-0 ext-0) (let ((sc0 ext-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 (Options-Core-defaultElab) e-4 e-5 e-6 e-7 e-8)))))))))))) -(define Context-Core-n--20963-16096-mergeArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (Context-Core-case--20998-16121 'erased arg-1 arg-2 'erased e-10 e-11 e-12 'erased 'erased e-6 'erased e-5 e-4 (Prelude-C-61C-61_Eq__Nat e-6 e-12))))))(else (vector 0 ))))))))(else (vector 0 ))))))(else (vector 0 )))))) -(define Context-Core-n--9582-5436-matches (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (List-Data-isPrefixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-0 e-6))(else 0)))))(else 0))))))(else 0)))))(else 0))))) -(define Context-Core-n--21265-16349-justPos (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (vector 1 arg-2 (Context-Core-n--21265-16349-justPos 'erased arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2) e-3))) (else (Context-Core-n--21265-16349-justPos 'erased arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2) e-3))))))))))) -(define Context-Core-n--15421-11056-isHole (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-2 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--15433-11078 arg-0 arg-2 arg-1 e-1 _-0 (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17))) ext-0)))) (else (vector 1 0))))))))))) -(define Context-Core-n--18183-13575-isDefault (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Builtin-snd 'erased 'erased ext-0))) -(define Context-Core-n--11472-7296-insertAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-3))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-2 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((Context-Core-n--11472-7296-insertAll 'erased arg-1 arg-2 (NameMap-Data-insert 'erased e-5 e-7 arg-3) e-3) eta-0))))))))))))))))) -(define Context-Core-n--11471-7264-insertAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-3))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-2 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((Context-Core-n--11471-7264-insertAll 'erased arg-1 arg-2 (NameMap-Data-insert 'erased e-5 e-7 arg-3) e-3) eta-0))))))))))))))))) -(define Context-Core-n--18783-14132-getPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (Context-Core-case--18789-14156 arg-0 arg-1 arg-2 arg-3 'erased e-2 e-7 e-8 e-9 e-3 e-5 arg-6 arg-5 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-3 arg-6))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 "Unknown determining arguments: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) arg-6)))) eta-0)))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 "Unknown determining arguments: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) arg-6)))) eta-0)))))))))) -(define Context-Core-n--9582-5437-getMatches (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Context-Core-n--9582-5437-getMatches arg-0 arg-1 e-3)) (else (let ((e-6 (vector-ref sc1 1))) (Context-Core-case--9586-5495 arg-0 arg-1 e-6 e-3 (Context-Core-n--9582-5436-matches arg-0 arg-1 'erased arg-1 e-6))))))))))))) -(define Context-Core-n--20718-15845-getDir (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Context-Core-case--20722-15858 arg-0 arg-1 e-2 e-3 (Options-Core-C-61C-61_Eq__CG arg-0 e-2))))))) -(define Context-Core-n--11154-6960-fullNamesPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-5 e-6) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-10) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-11) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 e-2 (vector 0 e-5 (vector 0 e-8 e-9))))))))))))))))))))))))))))))) -(define Context-Core-n--18183-13576-direct (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Builtin-snd 'erased 'erased ext-0))) -(define Context-Core-n--20963-16071-couldBeParam (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 0 e-2 e-3 e-4))))))(else (vector 0 )))))) -(define Context-Core-n--21400-16474-conVisibility (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (vector 0 ))(else arg-9))))) -(define Context-Core-n--9878-5707-commitStaged (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-2 e-6 e-7) eta-0))) ((Context-Core-n--9878-5707-commitStaged arg-0 e-3 arg-2) eta-0))))))))))))) -(define Context-Core-n--22123-17103-allParents (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 1 e-2 e-3) (Context-Core-n--22123-17103-allParents arg-0 arg-1 e-3))))))))) -(define Context-Core-n--21400-16473-allDet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (vector 0 ))(else (let ((e-0 (- arg-9 1))) (Prelude-rangeFromTo_Range__Nat 0 e-0))))))) -(define Context-Core-n--25540-20349-addZeros (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) "000") ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "00" (Prelude-cast_Cast__Char_String e-2))) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "0" (Strings-Prelude-C-43C-43 (Prelude-cast_Cast__Char_String e-2) (Prelude-cast_Cast__Char_String e-6))))(else (Prelude-pack arg-1)))))))(else (Prelude-pack arg-1)))))))(else (Prelude-pack arg-1)))))) -(define Context-Core-n--25060-19914-addZeros (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) "000") ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "00" (Prelude-cast_Cast__Char_String e-2))) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "0" (Strings-Prelude-C-43C-43 (Prelude-cast_Cast__Char_String e-2) (Prelude-cast_Cast__Char_String e-6))))(else (Prelude-pack arg-5)))))))(else (Prelude-pack arg-5)))))))(else (Prelude-pack arg-5)))))) -(define Context-Core-n--21400-16475-addDataConstructors (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-11))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((condef (Context-Core-newDef e-4 e-5 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-7 e-7 (Context-Core-n--21400-16474-conVisibility arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-6) (vector 5 arg-9 e-6 (vector 0 ))))) (lambda (eta-0) (let ((act-24 ((Context-Core-addCtxt e-5 condef arg-11) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (let ((e-9 (vector-ref sc3 2))) (let ((act-25 ((Context-Core-lookupCtxtExact e-5 arg-11) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((0) ((Context-Core-n--21400-16475-addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (b+ arg-9 1 63) e-3 e-9) eta-0)) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 e-4 e-5) eta-0)))))))))))))))))))))))))))))) +(define Context-Core-case--25887-20682 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Clock-System-clockTime (vector 3 )) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((nano 1000000000)) (let ((t (+ (* (Clock-System-seconds 'erased e-5) nano) (Clock-System-nanoseconds 'erased e-5)))) (let ((act-25 (arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 ((Clock-System-clockTime (vector 3 )) eta-0))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((tC-39 (+ (* (Clock-System-seconds 'erased e-7) nano) (Clock-System-nanoseconds 'erased e-7)))) (let ((time (Prelude-C-45_Neg__Integer tC-39 t))) (let ((act-27 (let ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-27 (arg-3672 eta-1))) ((arg-3673 act-27) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "TIMING " (Strings-Prelude-C-43C-43 (arg-2) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Integer (Prelude-div_Integral__Integer time nano)) (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 (Context-Core-n--25887-20653-addZeros 'erased arg-1 arg-2 arg-3 arg-4 (Prelude-unpack (Prelude-show_Show__Integer (Prelude-div_Integral__Integer (Prelude-mod_Integral__Integer time nano) 1000000)))) "s"))))))) eta-0))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 e-6)))))))))))))))))))))))))) (else arg-1))))) +(define Context-Core-case--25726-20506 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-1) (Strings-Prelude-C-43C-43 ": " e-5)))) eta-0))) (vector 1 act-25))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Context-Core-case--25678-20463 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-1) (Strings-Prelude-C-43C-43 ": " (arg-0))))) eta-0))) (vector 1 act-24)))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Context-Core-case--25600-20396 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-4 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-3) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-2) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5))))))) eta-0))) (vector 1 act-25))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Context-Core-case--25540-20366 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 (vector 1 arg-0 e-25))))))))))))))))))))))))))))))) +(define Context-Core-case--25478-20315 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 arg-0 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--25392-20243 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-28)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-42 (vector-ref sc2 8))) (let ((e-43 (vector-ref sc2 9))) (let ((e-44 (vector-ref sc2 10))) (let ((e-45 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-35 e-36 e-37 e-38 e-39 e-40 arg-0 e-42 e-43 e-44 e-45) e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--25319-20171 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-28)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (let ((e-43 (vector-ref sc2 9))) (let ((e-44 (vector-ref sc2 10))) (let ((e-45 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-35 e-36 e-37 e-38 e-39 arg-0 e-41 e-42 e-43 e-44 e-45) e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--25246-20099 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-28)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (let ((e-43 (vector-ref sc2 9))) (let ((e-44 (vector-ref sc2 10))) (let ((e-45 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-35 e-36 e-37 e-38 arg-0 e-40 e-41 e-42 e-43 e-44 e-45) e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--25153-19962 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-getFullName arg-1 (let ((sc2 e-2)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Name-Core-C-61C-61_Eq__Name e-5 e-6))))))))))))))))))) +(define Context-Core-case--25037-19845 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-getFullName arg-1 (let ((sc2 e-2)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Name-Core-C-61C-61_Eq__Name e-5 e-6))))))))))))))))))) +(define Context-Core-case--24965-19818 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 (NameMap-Data-insert 'erased arg-5 arg-0 e-14) e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--24911-19760 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromChar arg-0 e-4) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--24857-19709 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromString arg-0 e-4) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--24803-19658 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromInteger arg-0 e-4) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--24725-19599 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setRewrite arg-6 arg-5 e-4) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--24635-19526 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setPair arg-6 arg-7 arg-8 e-4) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--24486-19385 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-35 e-36 e-37 e-38 e-39 arg-0) e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--24417-19317 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-35 e-36 e-37 arg-0 e-39 e-40) e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--24349-19250 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-35 e-36 arg-0 e-38 e-39 e-40) e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--24281-19183 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-40 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-35 e-36 e-37 e-38 arg-0 e-40) e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--24213-19116 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-35 (vector-ref sc2 1))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-35 arg-0 e-37 e-38 e-39 e-40) e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--24145-19049 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 arg-0 e-36 e-37 e-38 e-39 e-40) e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--24058-18928 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 9 e-10))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0))))))) +(define Context-Core-case--24001-18901 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setExtension arg-0 e-4) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--23931-18849 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 e-37 e-38 arg-0 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--23908-18777 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0))))))) +(define Context-Core-case--23811-18739 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 arg-4 e-36 e-37 e-38 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--23781-18676 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (set-box! arg-1 (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-35)) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (vector 0 e-0 e-26 e-2 e-3 (vector 0 (vector 0 e-1 e-36 e-37 e-38 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-24))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0))))))) +(define Context-Core-case--23711-18638 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 arg-0 e-37 e-38 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--23641-18569 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 e-37 arg-0 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--23571-18500 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 arg-0 e-38 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--23491-18421 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 e-37 e-38 e-39 e-40 (List-Prelude-C-43C-43 'erased e-41 (vector 1 arg-0 (vector 0 ))) e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--23411-18342 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 e-37 e-38 e-39 e-40 e-41 (List-Prelude-C-43C-43 'erased e-42 (vector 1 arg-0 (vector 0 )))) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--23331-18263 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 e-37 e-38 e-39 (List-Prelude-C-43C-43 'erased e-40 (vector 1 arg-0 (vector 0 ))) e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--23245-18183 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-28)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (let ((e-43 (vector-ref sc2 9))) (let ((e-44 (vector-ref sc2 10))) (let ((e-45 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-35 e-36 e-37 arg-0 e-39 e-40 e-41 e-42 e-43 e-44 e-45) e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--23183-18112 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 arg-0 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--23123-18025 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)))))) (else (lambda (eta-0) (vector 1 (vector 9 arg-0)))))))) +(define Context-Core-case--23063-18002 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-0)) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((e-35 (vector-ref sc1 10))) (let ((e-36 (vector-ref sc1 11))) (vector 0 (vector 0 (let ((sc2 (let ((sc3 arg-1)) (let ((e-62 (vector-ref sc3 1))) e-62)))) (let ((e-46 (vector-ref sc2 2))) e-46)) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34 e-35 e-36) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--22871-17822 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-0)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-35 (vector-ref sc1 10))) (let ((e-36 (vector-ref sc1 11))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 e-33 arg-0 e-35 e-36) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--22787-17742 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-0)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((e-35 (vector-ref sc1 10))) (let ((e-36 (vector-ref sc1 11))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 (vector 1 arg-0 e-33) e-34 e-35 e-36) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--22628-17578 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-0) e-2) e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--22492-17501 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-9)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 arg-15 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) +(define Context-Core-case--22223-17424 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-n--22223-17210-addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 0 arg-4 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-8 (let ((sc2 arg-9)) (let ((e-1 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-27 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-26 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (vector 0 e-5 e-1 e-28 e-27 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 e-2)))))))))))))))) +(define Context-Core-case--22275-17291 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (Context-Core-n--22223-17210-addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (b+ arg-15 1 63) arg-13 arg-18)) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-12 arg-11) eta-0))))))) +(define Context-Core-case--22238-17244 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-11 arg-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) ((Context-Core-n--22223-17210-addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (b+ arg-15 1 63) arg-13 e-3) eta-0)) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-12 arg-11) eta-0)))))))))))))) +(define Context-Core-case--22002-17025 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 1 (Context-Core-updateParams 'erased arg-3 arg-7))) (else arg-3))))) +(define Context-Core-case--21930-17000 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (Context-Core-case--22002-17025 arg-0 arg-1 arg-2 arg-3 e-5 e-6 e-7 e-3 (Name-Core-C-61C-61_Eq__Name e-7 arg-2))))))(else arg-3))))))(else arg-3))))) +(define Context-Core-case--21821-16856 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-12 arg-11 arg-9))) (else (vector 0 )))))) +(define Context-Core-case--21677-16722 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (vector 0 )) (else arg-12))))) +(define Context-Core-case--21596-16680 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--21545-16593 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 arg-3)) (else (vector 0 )))))) +(define Context-Core-case--21452-16558 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 (vector 1 (vector 0 arg-4 arg-1) e-19) e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--21436-16497 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Unknown code generator " arg-2)) eta-0))) (vector 1 act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (set-box! arg-0 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-26 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-26 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 (vector 1 (vector 0 e-2 arg-1) e-19) e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24))))))))) +(define Context-Core-case--21363-16457 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 arg-0 e-17) e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--21284-16383 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 arg-0 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) +(define Context-Core-case--21231-16333 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 arg-0 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) +(define Context-Core-case--21178-16281 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 0 ) (vector 0 ) e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))) +(define Context-Core-case--20957-16188 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-6 arg-9) e-12) (vector 1 (vector 0 arg-7 arg-8) e-13) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--20957-16097 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-6 (vector 0 )) e-12) (vector 1 (vector 0 arg-7 arg-8) e-13) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--20905-16041 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (set-box! arg-2 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-6 (vector 0 )) e-12) (vector 1 (vector 0 arg-7 arg-8) e-13) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (set-box! arg-2 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-26 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-26 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-6 e-2) e-12) (vector 1 (vector 0 arg-7 arg-8) e-13) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24))))))))) +(define Context-Core-case--20890-15993 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toResolvedNames 'erased arg-2 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-2 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Transform arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Transform arg-6292 arg-6293)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Transform arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Transform arg-6292 arg-6293)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((Context-Core-case--20905-16041 arg-0 arg-1 arg-2 arg-3 e-1 e-5 e-6 e-7 e-8 (NameMap-Data-lookup 'erased e-5 (let ((sc5 arg-3)) (let ((e-12 (vector-ref sc5 13))) e-12)))) eta-0)))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "LHS of a transformation must be a function application") eta-0))))))) +(define Context-Core-case--20837-15974 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 arg-0 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) +(define Context-Core-case--20704-15857 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (NameMap-Data-insert 'erased arg-3 (vector 0 ) e-9) e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--20622-15781 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (NameMap-Data-insert 'erased arg-4 arg-0 e-8) e-9 e-10 (vector 1 (vector 0 arg-4 arg-0) e-11) e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--20418-15684 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (NameMap-Data-insert 'erased arg-6 (vector 1 (vector 0 arg-7 arg-0) arg-8) e-7) e-8 e-9 (vector 1 (vector 0 arg-6 (vector 0 arg-7 arg-0)) e-10) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--20418-15603 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (NameMap-Data-insert 'erased arg-6 (vector 1 (vector 0 arg-7 arg-0) arg-8) e-7) e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--20328-15549 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (set-box! arg-5 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (NameMap-Data-insert 'erased arg-7 (vector 1 (vector 0 arg-8 arg-1) arg-9) e-7) e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24)))) (else (lambda (eta-0) (let ((act-24 (set-box! arg-5 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (NameMap-Data-insert 'erased arg-7 (vector 1 (vector 0 arg-8 arg-1) arg-9) e-7) e-8 e-9 (vector 1 (vector 0 arg-7 (vector 0 arg-8 arg-1)) e-10) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24)))))))) +(define Context-Core-case--20328-15504 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) e-1)) (else (vector 0 )))))) +(define Context-Core-case--20203-15400 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-10)) (let ((e-0 (vector-ref sc0 1))) (vector 0 e-0 arg-0))))) +(define Context-Core-case--20182-15371 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((flC-39 (let ((sc1 e-4)) (let ((e-9 (vector-ref sc1 1))) (vector 0 e-9 arg-0))))) (lambda (eta-0) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-3 flC-39 e-5 e-6 e-7))) eta-0))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc0 arg-5)) (let ((e-1 (vector-ref sc0 2))) e-1))) " is not a type constructor [setDetermining]")) eta-0))))))) +(define Context-Core-case--20162-15356 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Context-Core-case--20182-15371 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))))))) +(define Context-Core-case--20037-15267 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-10)) (let ((e-1 (vector-ref sc0 2))) (vector 0 arg-0 e-1))))) +(define Context-Core-case--20016-15238 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((flC-39 (let ((sc1 e-4)) (let ((e-8 (vector-ref sc1 2))) (vector 0 arg-0 e-8))))) (lambda (eta-0) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-3 flC-39 e-5 e-6 e-7))) eta-0))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc0 arg-5)) (let ((e-1 (vector-ref sc0 2))) e-1))) " is not a type constructor [setDetermining]")) eta-0))))))) +(define Context-Core-case--19996-15223 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Context-Core-case--20016-15238 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))))))) +(define Context-Core-case--19898-15139 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (lambda (eta-0) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-3 e-4 e-5 e-6 arg-0))) eta-0))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc0 arg-5)) (let ((e-1 (vector-ref sc0 2))) e-1))) " is not a type constructor [setDetermining]")) eta-0))))))) +(define Context-Core-case--19878-15124 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Context-Core-case--19898-15139 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))))))) +(define Context-Core-case--19772-15031 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (lambda (eta-0) (let ((act-24 ((Context-Core-n--19606-14867-getPos arg-0 arg-1 arg-2 arg-3 'erased 0 arg-0 (let ((sc1 arg-5)) (let ((e-26 (vector-ref sc1 3))) e-26))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc1 1))) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-8 e-4 e-5 e-6 e-7))) eta-0)))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc0 arg-5)) (let ((e-1 (vector-ref sc0 2))) e-1))) " is not a type constructor [setDetermining]")) eta-0))))))) +(define Context-Core-case--19606-15016 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Context-Core-case--19772-15031 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))))))) +(define Context-Core-case--19612-14891 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-n--19606-14867-getPos arg-0 arg-1 arg-2 arg-3 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-12) (List-Data-filter 'erased (lambda (arg-14) (Name-Core-C-47C-61_Eq__Name arg-14 arg-9)) arg-11) arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 arg-12 e-5))))))))) (else (Context-Core-n--19606-14867-getPos arg-0 arg-1 arg-2 arg-3 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-12) arg-11 arg-10)))))) +(define Context-Core-case--19546-14851 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 (List-Data-filter 'erased (lambda (arg-3) (Name-Core-C-47C-61_Eq__Name arg-3 arg-0)) e-1) e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--19486-14794 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 (vector 1 arg-0 e-1) e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--19388-14685 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (lambda (eta-0) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-3 e-4 arg-0 e-6 e-7))) eta-0))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc0 arg-5)) (let ((e-1 (vector-ref sc0 2))) e-1))) " is not a type constructor [setMutWith]")) eta-0))))))) +(define Context-Core-case--19368-14670 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Context-Core-case--19388-14685 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))))))) +(define Context-Core-case--19032-14443 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((defns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Context-Core-n--19006-14310-isDefault arg-0 arg-1 arg-2 arg-3 eta-0)) (NameMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-8 (vector-ref sc1 9))) e-8))))))) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 1 (vector 0 1 defns) (vector 0 ))))))) (else (let ((opens (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (NameMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-9 (vector-ref sc1 10))) e-9)))))) (let ((autos (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (Context-Core-n--19006-14310-isDefault arg-0 arg-1 arg-2 arg-3 eta-0))) (NameMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-8 (vector-ref sc1 9))) e-8))))))) (let ((tyhs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Context-Core-n--19006-14311-direct arg-0 arg-1 arg-2 arg-3 eta-0)) arg-15)))) (let ((chasers (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (Context-Core-n--19006-14311-direct arg-0 arg-1 arg-2 arg-3 eta-0))) arg-15)))) (lambda (eta-0) (vector 1 (vector 0 arg-12 (List-Data-filter 'erased (lambda (eta-1) (List-Data-isCons 'erased (Builtin-snd 'erased 'erased eta-1))) (vector 1 (vector 0 1 opens) (vector 1 (vector 0 1 autos) (vector 1 (vector 0 (Prelude-not (let ((sc1 arg-11)) (let ((e-0 (vector-ref sc1 1))) e-0))) tyhs) (vector 1 (vector 0 0 chasers) (vector 0 )))))))))))))))))) +(define Context-Core-case--19032-14374 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) e-1)) (else (vector 0 )))))) +(define Context-Core-case--19006-14336 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 4))) (let ((e-6 (vector-ref sc1 5))) (let ((e-7 (vector-ref sc1 6))) (let ((e-8 (vector-ref sc1 7))) (let ((e-9 (vector-ref sc1 8))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc2 1))) (let ((hs (let ((_-0 (vector 1 (vector 6 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9)))) (Context-Core-case--19032-14374 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 e-4 e-7 e-8 e-9 e-6 e-5 _-0 e-10 (NameMap-Data-lookup 'erased e-10 (let ((sc3 arg-4)) (let ((e-29 (vector-ref sc3 8))) e-29))))))) (let ((sc3 arg-1)) (cond ((equal? sc3 0) (let ((defns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Context-Core-n--19006-14310-isDefault arg-0 arg-1 arg-2 arg-3 eta-1)) (NameMap-Data-toList 'erased (let ((sc4 arg-4)) (let ((e-28 (vector-ref sc4 9))) e-28))))))) (vector 1 (vector 0 (vector 0 ) (vector 1 (vector 0 1 defns) (vector 0 )))))) (else (let ((opens (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (NameMap-Data-toList 'erased (let ((sc4 arg-4)) (let ((e-27 (vector-ref sc4 10))) e-27)))))) (let ((autos (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Prelude-not (Context-Core-n--19006-14310-isDefault arg-0 arg-1 arg-2 arg-3 eta-1))) (NameMap-Data-toList 'erased (let ((sc4 arg-4)) (let ((e-28 (vector-ref sc4 9))) e-28))))))) (let ((tyhs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Context-Core-n--19006-14311-direct arg-0 arg-1 arg-2 arg-3 eta-1)) hs)))) (let ((chasers (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Prelude-not (Context-Core-n--19006-14311-direct arg-0 arg-1 arg-2 arg-3 eta-1))) hs)))) (vector 1 (vector 0 e-5 (List-Data-filter 'erased (lambda (eta-1) (List-Data-isCons 'erased (Builtin-snd 'erased 'erased eta-1))) (vector 1 (vector 0 1 opens) (vector 1 (vector 0 1 autos) (vector 1 (vector 0 (Prelude-not (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) e-0))) tyhs) (vector 1 (vector 0 0 chasers) (vector 0 )))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-0) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-0) eta-0))))))) +(define Context-Core-case--18819-14201 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 (Context-Core-hideName arg-5 e-0) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--18800-14147 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (set-box! arg-2 (let ((sc3 arg-3)) (let ((e-0 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (let ((e-28 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-5 (vector-ref sc3 6))) (let ((e-27 (vector-ref sc3 7))) (let ((e-26 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (let ((e-21 (vector-ref sc3 22))) (let ((e-22 (vector-ref sc3 23))) (let ((e-23 (vector-ref sc3 24))) (let ((e-24 (vector-ref sc3 25))) (let ((e-25 (vector-ref sc3 26))) (vector 0 (Context-Core-hideName e-6 e-0) e-29 e-28 e-3 e-4 e-5 e-27 e-26 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0))))))) +(define Context-Core-case--18591-13960 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (let ((sc1 e-1)) (let ((e-10 (vector-ref sc1 11))) e-10)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))))))) +(define Context-Core-case--18503-13911 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((sc1 e-10)) (let ((e-22 (vector-ref sc1 2))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 0 arg-0 e-22) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))))) +(define Context-Core-case--18483-13863 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((sc2 e-10)) (let ((e-22 (vector-ref sc2 2))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 0 arg-0 e-22) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))))))) +(define Context-Core-case--18395-13813 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((sc1 e-10)) (let ((e-21 (vector-ref sc1 1))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 0 e-21 arg-0) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))))) +(define Context-Core-case--18375-13765 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((sc2 e-10)) (let ((e-23 (vector-ref sc2 1))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 0 e-23 arg-0) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))))))) +(define Context-Core-case--18183-13621 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 arg-0)))))))))))))))))))))))) +(define Context-Core-case--18163-13575 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 arg-0)))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))))))) +(define Context-Core-case--18007-13472 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 arg-7 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))))) +(define Context-Core-case--17987-13418 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((flagsC-39 (List-Data-filter 'erased (lambda (arg-6) (Context-Core-C-47C-61_Eq__DefFlag arg-6 arg-0)) (let ((sc1 e-1)) (let ((e-11 (vector-ref sc1 12))) e-11))))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))))))) +(define Context-Core-case--17846-13339 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 arg-9 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))))) +(define Context-Core-case--17826-13273 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (let ((flagsC-39 (vector 1 arg-0 (List-Data-filter 'erased (lambda (arg-6) (Context-Core-C-47C-61_Eq__DefFlag arg-6 arg-0)) (let ((sc4 e-11)) (let ((e-21 (vector-ref sc4 12))) e-21)))))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 (vector 9 e-10) (let ((sc4 e-11)) (let ((e-0 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-25 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-5 (vector-ref sc4 6))) (let ((e-24 (vector-ref sc4 7))) (let ((e-23 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-22 (vector-ref sc4 11))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (vector 0 e-0 e-26 e-25 e-3 e-4 e-5 e-24 e-23 e-8 e-9 e-22 flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))) +(define Context-Core-case--17728-13223 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 arg-7 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))))) +(define Context-Core-case--17708-13167 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((flagsC-39 (vector 1 arg-0 (List-Data-filter 'erased (lambda (arg-6) (Context-Core-C-47C-61_Eq__DefFlag arg-6 arg-0)) (let ((sc1 e-1)) (let ((e-11 (vector-ref sc1 12))) e-11)))))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))))))) +(define Context-Core-case--17434-12899 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 e-6 (arg-3 e-7))))))))))) +(define Context-Core-case--17388-12848 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (arg-3 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Context-Core-case--17319-12820 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 (NameMap-Data-insert 'erased arg-3 (vector 0 ) e-5) e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 (NameMap-Data-insert 'erased arg-3 (vector 0 ) e-21) e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--17222-12703 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setCtxt arg-1 e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 e-2))))))))))) +(define Context-Core-case--17176-12663 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setCtxt arg-1 e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 e-2))))))))))) +(define Context-Core-case--17123-12637 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 arg-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) +(define Context-Core-case--17048-12570 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 arg-0 e-17 e-18 e-19 e-20)))))))))))))))))))))))) +(define Context-Core-case--17029-12526 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-2 (vector 9 arg-1) (let ((sc1 e-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 arg-0 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Context-Core-case--16952-12483 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 (vector 1 arg-0) e-20)))))))))))))))))))))))) +(define Context-Core-case--16933-12439 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-2 arg-1 (let ((sc1 e-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 (vector 1 arg-0) e-20)))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Context-Core-case--16856-12396 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 (vector 1 arg-0) e-19 e-20)))))))))))))))))))))))) +(define Context-Core-case--16837-12352 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-2 arg-1 (let ((sc1 e-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 (vector 1 arg-0) e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Context-Core-case--16762-12311 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 arg-0 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))))) +(define Context-Core-case--16743-12267 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-2 (vector 9 arg-1) (let ((sc1 e-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-21 arg-0 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Context-Core-case--16643-12222 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 arg-6 e-18 e-19 e-20)))))))))))))))))))))))) +(define Context-Core-case--16624-12155 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-2 arg-1 (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-1 e-21 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-2 e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (vector 1 (vector 0 ))))))))))))) +(define Context-Core-case--16605-12140 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Context-Core-case--16624-12155 arg-0 arg-1 arg-2 arg-3 e-1 _-0 (arg-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Context-Core-case--16482-12056 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 arg-5 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) +(define Context-Core-case--16463-12007 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-newAlias arg-1 arg-0 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (set-box! arg-2 (let ((sc2 arg-3)) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-26 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (vector 0 e-5 e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-25)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Context-Core-case--16384-11975 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 arg-5 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) +(define Context-Core-case--16365-11920 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-2 (let ((sc1 arg-3)) (let ((e-1 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((e-26 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-3 e-1 e-27 e-26 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 e-2))))))))))) +(define Context-Core-case--16211-11888 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 arg-5 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) +(define Context-Core-case--16211-11797 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((7) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Context-Core-clearUserHole arg-2 (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)) eta-0))))))) +(define Context-Core-case--16192-11764 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-2 (let ((sc1 arg-3)) (let ((e-1 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((e-26 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-3 e-1 e-27 e-26 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((_-0 (vector 0 e-2 e-3))) ((Context-Core-case--16211-11797 arg-0 arg-1 arg-2 arg-3 e-2 e-3 _-0 e-5 (let ((sc2 arg-0)) (let ((e-17 (vector-ref sc2 18))) e-17))) eta-0)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 e-2)))))))))))))))) +(define Context-Core-case--16104-11675 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) ((7) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))) +(define Context-Core-case--16095-11664 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Context-Core-case--16104-11675 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 0))))))) +(define Context-Core-case--16037-11645 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 (NameMap-Data-delete 'erased arg-0 e-22) e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--15981-11592 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 (NameMap-Data-insert 'erased arg-0 (vector 0 ) e-22) e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--15930-11542 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 5381 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) +(define Context-Core-case--15859-11484 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 (let ((sc1 arg-1)) (let ((e-26 (vector-ref sc1 2))) ((e-26 (let ((sc2 arg-4)) (let ((e-38 (vector-ref sc2 16))) e-38))) arg-2))) e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) +(define Context-Core-case--15803-11398 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Context-Core-n--15732-11324-findAlias arg-0 arg-1 e-1))) (else (lambda (eta-0) (vector 1 arg-0))))))) +(define Context-Core-case--15732-11384 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Context-Core-case--15803-11398 arg-0 arg-1 arg-2 e-1 (StringMap-Data-lookup 'erased e-1 (let ((sc1 (let ((sc2 arg-2)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-3 (vector-ref sc1 4))) e-3)))))) (else (lambda (eta-0) (vector 1 arg-0))))))) +(define Context-Core-case--15736-11339 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-4))) (else (Context-Core-n--15732-11324-findAlias arg-0 arg-1 arg-5)))))) +(define Context-Core-case--15571-11235 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Context-Core-n--15571-11170-resetElab arg-0 (let ((sc1 arg-1)) (let ((e-47 (vector-ref sc1 5))) e-47))) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 (let ((sc1 arg-1)) (let ((e-27 (vector-ref sc1 25))) e-27)) e-25)))))))))))))))))))))))))))) +(define Context-Core-case--15574-11185 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 (Options-Core-defaultElab) e-4 e-5 e-6 e-7 e-8)))))))))))) +(define Context-Core-case--15469-11110 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-0)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((e-36 (vector-ref sc1 11))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34 0 e-36) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--12400-8301 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 12))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (vector 0 e-0 e-1 arg-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 arg-4 e-11 arg-5 arg-6 e-14 e-15 e-16 arg-3 e-18 e-19 arg-7))))))))))))))))))) +(define Context-Core-case--12399-8205 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 12))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (vector 0 e-0 e-1 arg-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 arg-4 e-11 arg-5 arg-6 e-14 e-15 e-16 arg-3 e-18 e-19 arg-7))))))))))))))))))) +(define Context-Core-case--12265-8022 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (vector 0 arg-2 e-1))))) +(define Context-Core-case--12264-8003 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (vector 0 arg-2 e-1))))) +(define Context-Core-case--11248-7136 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 9 e-1) arg-3 arg-1 arg-6))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-3 arg-1 arg-6)))))))) +(define Context-Core-case--11247-7032 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)) arg-3 arg-1 arg-6))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-3 arg-1 arg-6)))))))) +(define Context-Core-case--10622-6671 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 2 arg-4 arg-3 e-1 arg-6))))) (else (lambda (eta-0) (vector 1 (vector 2 arg-4 arg-3 arg-2 arg-6)))))))) +(define Context-Core-case--10622-6621 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 arg-3 arg-2 (vector 9 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-3 arg-2 arg-1)))))))) +(define Context-Core-case--10621-6412 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 arg-3 arg-2 (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Missing name! " (Prelude-show_Show__Int arg-1))) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 1 arg-3 arg-2 (vector 9 arg-1))))))))))))) +(define Context-Core-case--10546-6360 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 9 e-1))))) (else (lambda (eta-0) (vector 1 arg-0))))))) +(define Context-Core-case--10545-6336 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)))))) (else (lambda (eta-0) (vector 1 (vector 9 arg-0)))))))) +(define Context-Core-case--10466-6256 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 3))) (vector 1 e-3)))(else (vector 0 )))))) +(define Context-Core-case--10361-6210 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 arg-1 e-6 e-7 e-8 e-9 e-10)))))))))))))) +(define Context-Core-case--10361-6181 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 0 (IntMap-Data-empty 'erased) e-7 e-8 e-9 e-10))))))))))))) +(define Context-Core-case--10331-6137 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-0)))(else (let ((e-0 (- arg-1 1))) (let ((sc0 e-0)) (cond ((equal? sc0 0) (let ((a (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Context-Core-n--10331-6109-commitStaged arg-0 (IntMap-Data-toList 'erased (let ((sc2 arg-0)) (let ((e-6 (vector-ref sc2 7))) e-6))) e-5) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (let ((sc3 arg-0)) (let ((e-13 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-13 e-1 e-2 e-3 e-4 0 (IntMap-Data-empty 'erased) e-7 e-8 e-9 e-10))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (let ((sc0 arg-0)) (let ((e-11 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-11 e-1 e-2 e-3 e-4 e-0 e-6 e-7 e-8 e-9 e-10))))))))))))))))))))))) +(define Context-Core-case--10313-6107 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 (+ 1 e-5) e-6 e-7 e-8 e-9 e-10))))))))))))))) +(define Context-Core-case--10290-6084 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (NameMap-Data-insert 'erased arg-1 (vector 0 ) e-10)))))))))))))))) +(define Context-Core-case--10199-6045 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Context-Core-n--9837-5668-lookupPossibles arg-0 arg-1 (vector 0 ) e-1))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Context-Core-case--10199-6001 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-1 (vector 0 e-5 e-6)) (vector 0 ))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Context-Core-case--9837-5986 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExactI arg-1 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (vector 1 (vector 1 (vector 0 arg-1 (vector 0 e-7 e-6)) (vector 0 )))))))) (else (vector 1 (vector 0 )))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (Context-Core-case--10199-6045 arg-0 arg-1 e-2 (StringMap-Data-lookup 'erased e-2 (let ((sc1 arg-0)) (let ((e-3 (vector-ref sc1 4))) e-3)))))))))) +(define Context-Core-case--10071-5902 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (Context-Core-n--9837-5668-lookupPossibles arg-0 arg-1 (vector 1 (vector 0 arg-3 (vector 0 arg-2 arg-7)) arg-6) arg-5)) (else (Context-Core-n--9837-5668-lookupPossibles arg-0 arg-1 arg-6 arg-5)))))) +(define Context-Core-case--10041-5873 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Context-Core-case--10071-5902 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 (Prelude-C-38C-38 (Context-Core-n--9837-5666-matches arg-0 arg-1 arg-1 arg-4) (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Context-Core-n--9837-5667-resn arg-0 arg-1 eta-0)) arg-6))))))))) (else (Context-Core-n--9837-5668-lookupPossibles arg-0 arg-1 arg-6 arg-5)))))) +(define Context-Core-case--9842-5848 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 arg-2) arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--10071-5902 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 (Prelude-C-38C-38 (Context-Core-n--9837-5666-matches arg-0 arg-1 arg-1 arg-4) (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Context-Core-n--9837-5667-resn arg-0 arg-1 eta-1)) arg-6)))))) eta-0)))) (else ((Context-Core-n--9837-5668-lookupPossibles arg-0 arg-1 arg-6 arg-5) eta-0)))))))))))(else (Context-Core-n--9837-5668-lookupPossibles arg-0 arg-1 arg-6 arg-5)))))) +(define Context-Core-case--9920-5768 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (Context-Core-n--9837-5668-lookupPossibles arg-0 arg-1 (vector 1 (vector 0 arg-3 (vector 0 arg-2 arg-6)) arg-5) arg-4)) (else (Context-Core-n--9837-5668-lookupPossibles arg-0 arg-1 arg-5 arg-4)))))) +(define Context-Core-case--9893-5741 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Context-Core-case--9920-5768 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 _-0 (Prelude-C-38C-38 (Context-Core-n--9837-5666-matches arg-0 arg-1 arg-1 arg-3) (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Context-Core-n--9837-5667-resn arg-0 arg-1 eta-0)) arg-5))))))))) (else (Context-Core-n--9837-5668-lookupPossibles arg-0 arg-1 arg-5 arg-4)))))) +(define Context-Core-case--9842-5718 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 arg-2) arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--9920-5768 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 _-0 (Prelude-C-38C-38 (Context-Core-n--9837-5666-matches arg-0 arg-1 arg-1 arg-3) (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Context-Core-n--9837-5667-resn arg-0 arg-1 eta-1)) arg-5)))))) eta-0)))) (else ((Context-Core-n--9837-5668-lookupPossibles arg-0 arg-1 arg-5 arg-4) eta-0)))))))))))(else (Context-Core-n--9837-5668-lookupPossibles arg-0 arg-1 arg-5 arg-4)))))) +(define Context-Core-case--9725-5647 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Context-Core-lookupContextEntry (vector 9 e-1) arg-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Context-Core-case--9732-5612 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-0 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Context-Core-case--9725-5568 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-0 e-1)))))) (else (let ((a (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((IOArray-Data-readArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a-0) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a-0) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8350) arg-8350))) e-5 arg-0) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 arg-0 e-1))))) (else (vector 1 (vector 0 )))))))))))))))))))))) +(define Context-Core-case--9511-5538 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 e-6))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Context-Core-case--9600-5471 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 e-6))))))))))) +(define Context-Core-case--9518-5453 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-decode arg-1 arg-0 0 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--9600-5471 arg-0 arg-1 arg-2 arg-3 e-1 _-0 e-5 (Context-Core-returnDef (let ((sc2 arg-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0 e-5)) eta-0)))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Context-Core-case--9518-5390 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 e-6))))))))))) +(define Context-Core-case--9511-5375 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-decode arg-1 arg-0 0 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Context-Core-case--9518-5390 arg-0 arg-1 e-1 e-5 (Context-Core-returnDef (let ((sc2 arg-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0 e-5)) eta-0))))))))) (else (let ((a (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((IOArray-Data-readArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a-0) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a-0) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8350) arg-8350))) e-5 arg-0) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 ((Context-Core-decode arg-1 arg-0 0 e-1) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--9600-5471 arg-0 arg-1 a e-5 e-1 _-0 e-7 (Context-Core-returnDef (let ((sc5 arg-1)) (let ((e-9 (vector-ref sc5 10))) e-9)) arg-0 e-7)) eta-0))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))) +(define Context-Core-case--9403-5351 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Context-Core-lookupCtxtExactI (vector 9 e-1) arg-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Context-Core-case--9410-5317 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-decode arg-1 arg-0 0 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Context-Core-returnDef (let ((sc2 arg-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0 e-5)))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Context-Core-case--9403-5274 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-decode arg-1 arg-0 0 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Context-Core-returnDef (let ((sc2 arg-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0 e-5)))))))))) (else (let ((a (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((IOArray-Data-readArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a-0) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a-0) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8350) arg-8350))) e-5 arg-0) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 ((Context-Core-decode arg-1 arg-0 0 e-1) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (Context-Core-returnDef (let ((sc5 arg-1)) (let ((e-9 (vector-ref sc5 10))) e-9)) arg-0 e-7))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))) +(define Context-Core-case--9333-5222 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-1 arg-0))) (else (vector 0 )))))) +(define Context-Core-case--9321-5206 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (Context-Core-case--9333-5222 arg-0 arg-1 e-1 e-2 e-3 e-4 e-0 (let ((sc1 e-0)) (let ((e-5 (vector-ref sc1 2))) e-5)))))))))(else (vector 0 )))))) +(define Context-Core-case--9266-5179 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (IntMap-Data-insert 'erased arg-3 arg-1 e-6) e-7 e-8 e-9 e-10))))))))))))))) +(define Context-Core-case--9196-5148 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (let ((sc1 e-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((e-11 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (vector 0 e-0 e-1 e-12 e-11 e-4 e-5 (IntMap-Data-insert 'erased e-2 arg-1 e-6) e-7 e-8 e-9 e-10))))))))))))))))))))) +(define Context-Core-case--9196-5096 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((a (let ((sc1 e-3)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a-0) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a-0) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8350) arg-8350))) e-5 e-2 arg-1) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-2 e-3)))))))))))))))))) +(define Context-Core-case--9185-5080 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition arg-2 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((a (let ((sc3 e-3)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((act-25 (let ((act-25 (unbox a))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a-0) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a-0) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-26 (arg-3672 eta-1))) ((arg-3673 act-26) eta-1))))))) (lambda (a-0) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8350) arg-8350))) e-6 e-2 arg-1) eta-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-2 e-3)))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition arg-2 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-2 (let ((sc3 e-3)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-13 e-12 e-4 e-11 (IntMap-Data-insert 'erased e-2 arg-1 e-6) e-7 e-8 e-9 e-10))))))))))))))))))))))))))))) +(define Context-Core-case--9130-5055 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (IntMap-Data-insert 'erased arg-3 (vector 1 arg-1) e-6) e-7 e-8 e-9 e-10))))))))))))))) +(define Context-Core-case--9060-5024 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (let ((sc1 e-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((e-11 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (vector 0 e-0 e-1 e-12 e-11 e-4 e-5 (IntMap-Data-insert 'erased e-2 (vector 1 arg-1) e-6) e-7 e-8 e-9 e-10))))))))))))))))))))) +(define Context-Core-case--9060-4972 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((a (let ((sc1 e-3)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a-0) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a-0) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8350) arg-8350))) e-5 e-2 (vector 1 arg-1)) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-2 e-3)))))))))))))))))) +(define Context-Core-case--9049-4956 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition arg-2 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((a (let ((sc3 e-3)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((act-25 (let ((act-25 (unbox a))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a-0) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a-0) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-26 (arg-3672 eta-1))) ((arg-3673 act-26) eta-1))))))) (lambda (a-0) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8350) arg-8350))) e-6 e-2 (vector 1 arg-1)) eta-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-2 e-3)))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition arg-2 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-2 (let ((sc3 e-3)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-13 e-12 e-4 e-11 (IntMap-Data-insert 'erased e-2 (vector 1 arg-1) e-6) e-7 e-8 e-9 e-10))))))))))))))))))))))))))))) +(define Context-Core-case--8993-4928 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 (Context-Core-addAlias arg-2 arg-1 arg-3 e-3) e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))) +(define Context-Core-case--8983-4901 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 e-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((e-11 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (vector 0 e-0 e-1 e-12 (Context-Core-addAlias arg-2 arg-1 e-2 e-11) e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))) +(define Context-Core-case--8946-4870 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 e-1 arg-0))))) (else (Context-Core-newEntry arg-1 arg-0)))))) +(define Context-Core-case--8860-4837 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 (b+ arg-2 1 63) (NameMap-Data-insert 'erased arg-1 arg-2 e-2) (Context-Core-addPossible arg-1 arg-2 e-3) e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) +(define Context-Core-case--8788-4736 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (StringMap-Data-insert 'erased arg-4 (vector 1 (vector 1 arg-3 arg-2 arg-1) (vector 0 )) arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (StringMap-Data-insert 'erased arg-4 (vector 1 (vector 1 arg-3 arg-2 arg-1) e-2) arg-0))))))) +(define Context-Core-case--8781-4710 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-0) (else (let ((e-2 (vector-ref sc0 1))) (Context-Core-case--8788-4736 arg-0 arg-1 arg-2 arg-3 e-2 (StringMap-Data-lookup 'erased e-2 arg-0)))))))) +(define Context-Core-case--8719-4671 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (StringMap-Data-insert 'erased arg-3 (vector 1 (vector 0 arg-2 arg-1) (vector 0 )) arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (StringMap-Data-insert 'erased arg-3 (vector 1 (vector 0 arg-2 arg-1) e-2) arg-0))))))) +(define Context-Core-case--8713-4649 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-0) (else (let ((e-2 (vector-ref sc0 1))) (Context-Core-case--8719-4671 arg-0 arg-1 arg-2 e-2 (StringMap-Data-lookup 'erased e-2 arg-0)))))))) +(define Context-Core-case--5782-2063 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) " [impl]") (else ""))))) +(define Context-Core-n--22948-17841-visible (lambda (arg-0 arg-1 arg-2) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-2 arg-0))) +(define Context-Core-n--21657-16703-toNothing (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((tm (vector 1 (vector 0 e-4 e-5 e-6)))) (Context-Core-case--21677-16722 'erased arg-1 'erased 'erased arg-4 arg-5 arg-6 'erased e-4 e-5 e-6 'erased tm (Prelude-C-61C-61_Eq__Nat arg-1 e-6)))))))(else arg-7)))))(else arg-7))))) +(define Context-Core-n--21930-16944-shrink (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (TT-Core-shrinkTerm 'erased 'erased e-2 (vector 1 (vector 0 ))))))))) +(define Context-Core-n--26367-21089-showTimeLog (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStr 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 e-2 ": ")) eta-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((nano 1000000000)) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 (Prelude-show_Show__Integer (Prelude-div_Integral__Integer e-7 nano)) (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 (Context-Core-n--26367-21088-addZeros arg-0 (Prelude-unpack (Prelude-show_Show__Integer (Prelude-div_Integral__Integer (Prelude-mod_Integral__Integer e-7 nano) 1000000)))) "s")))) eta-0))) (vector 1 act-25))))))))))))))) +(define Context-Core-n--11610-7505-resolvedNamesPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-5 e-6) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-10) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-11) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 e-2 (vector 0 e-5 (vector 0 e-8 e-9))))))))))))))))))))))))))))))) +(define Context-Core-n--9837-5667-resn (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) e-6)))))) +(define Context-Core-n--15571-11170-resetElab (lambda (arg-0 ext-0) (let ((sc0 ext-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 (Options-Core-defaultElab) e-4 e-5 e-6 e-7 e-8)))))))))))) +(define Context-Core-n--21786-16831-mergeArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (Context-Core-case--21821-16856 'erased arg-1 arg-2 'erased e-10 e-11 e-12 'erased 'erased e-6 'erased e-5 e-4 (Prelude-C-61C-61_Eq__Nat e-6 e-12))))))(else (vector 0 ))))))))(else (vector 0 ))))))(else (vector 0 )))))) +(define Context-Core-n--9837-5666-matches (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (List-Data-isPrefixOf 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) e-0 e-2)))(else 0)))))(else 0))))) +(define Context-Core-n--9837-5668-lookupPossibles (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (List-Data-reverse 'erased arg-2)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Context-Core-case--9842-5718 arg-0 arg-1 e-5 e-4 e-3 arg-2 (NameMap-Data-lookup 'erased e-4 (let ((sc2 arg-0)) (let ((e-10 (vector-ref sc2 11))) e-10))))))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (Context-Core-case--9842-5848 arg-0 arg-1 e-8 e-7 e-6 e-3 arg-2 (NameMap-Data-lookup 'erased e-7 (let ((sc2 arg-0)) (let ((e-10 (vector-ref sc2 11))) e-10))))))))))))))))) +(define Context-Core-n--22088-17084-justPos (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (vector 1 arg-2 (Context-Core-n--22088-17084-justPos 'erased arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2) e-3))) (else (Context-Core-n--22088-17084-justPos 'erased arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2) e-3))))))))))) +(define Context-Core-n--16092-11653-isHole (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-2 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--16104-11675 arg-0 arg-2 arg-1 e-1 _-0 (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17))) ext-0)))) (else (vector 1 0))))))))))) +(define Context-Core-n--19006-14310-isDefault (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Builtin-snd 'erased 'erased ext-0))) +(define Context-Core-n--11927-7700-insertAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-3))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-2 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((Context-Core-n--11927-7700-insertAll 'erased arg-1 arg-2 (NameMap-Data-insert 'erased e-5 e-7 arg-3) e-3) eta-0))))))))))))))))) +(define Context-Core-n--11926-7668-insertAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-3))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-2 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((Context-Core-n--11926-7668-insertAll 'erased arg-1 arg-2 (NameMap-Data-insert 'erased e-5 e-7 arg-3) e-3) eta-0))))))))))))))))) +(define Context-Core-n--19606-14867-getPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (Context-Core-case--19612-14891 arg-0 arg-1 arg-2 arg-3 'erased e-2 e-7 e-8 e-9 e-3 e-5 arg-6 arg-5 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-3 arg-6))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 "Unknown determining arguments: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) arg-6)))) eta-0)))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 "Unknown determining arguments: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) arg-6)))) eta-0)))))))))) +(define Context-Core-n--21541-16580-getDir (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Context-Core-case--21545-16593 arg-0 arg-1 e-2 e-3 (Options-Core-C-61C-61_Eq__CG arg-0 e-2))))))) +(define Context-Core-n--11609-7364-fullNamesPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-5 e-6) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-10) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-11) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 e-2 (vector 0 e-5 (vector 0 e-8 e-9))))))))))))))))))))))))))))))) +(define Context-Core-n--15732-11324-findAlias (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (Context-Core-case--15736-11339 arg-0 arg-1 e-6 e-5 e-4 e-3 (Name-Core-C-61C-61_Eq__Name e-5 arg-0))))))(else (Context-Core-n--15732-11324-findAlias arg-0 arg-1 e-3))))))))))) +(define Context-Core-n--19006-14311-direct (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Builtin-snd 'erased 'erased ext-0))) +(define Context-Core-n--21786-16806-couldBeParam (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 0 e-2 e-3 e-4))))))(else (vector 0 )))))) +(define Context-Core-n--22223-17209-conVisibility (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (vector 0 ))(else arg-9))))) +(define Context-Core-n--10331-6109-commitStaged (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-2 e-6 e-7) eta-0))) ((Context-Core-n--10331-6109-commitStaged arg-0 e-3 arg-2) eta-0))))))))))))) +(define Context-Core-n--22948-17840-allParents (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 1 e-2 e-3) (Context-Core-n--22948-17840-allParents arg-0 arg-1 e-3))))))))) +(define Context-Core-n--22223-17208-allDet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (vector 0 ))(else (let ((e-0 (- arg-9 1))) (Prelude-rangeFromTo_Range__Nat 0 e-0))))))) +(define Context-Core-n--26367-21088-addZeros (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) "000") ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "00" (Prelude-cast_Cast__Char_String e-2))) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "0" (Strings-Prelude-C-43C-43 (Prelude-cast_Cast__Char_String e-2) (Prelude-cast_Cast__Char_String e-6))))(else (Prelude-pack arg-1)))))))(else (Prelude-pack arg-1)))))))(else (Prelude-pack arg-1)))))) +(define Context-Core-n--25887-20653-addZeros (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) "000") ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "00" (Prelude-cast_Cast__Char_String e-2))) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "0" (Strings-Prelude-C-43C-43 (Prelude-cast_Cast__Char_String e-2) (Prelude-cast_Cast__Char_String e-6))))(else (Prelude-pack arg-5)))))))(else (Prelude-pack arg-5)))))))(else (Prelude-pack arg-5)))))) +(define Context-Core-n--22223-17210-addDataConstructors (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-11))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((condef (Context-Core-newDef e-4 e-5 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-7 e-7 (Context-Core-n--22223-17209-conVisibility arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-6) (vector 5 arg-9 e-6 (vector 0 ))))) (lambda (eta-0) (let ((act-24 ((Context-Core-addCtxt e-5 condef arg-11) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (let ((e-9 (vector-ref sc3 2))) (let ((act-25 ((Context-Core-lookupCtxtExact e-5 arg-11) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((0) ((Context-Core-n--22223-17210-addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (b+ arg-9 1 63) e-3 e-9) eta-0)) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 e-4 e-5) eta-0)))))))))))))))))))))))))))))) (define GlobalDef-Context-Core-rf--totality (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-10 (vector-ref sc0 11))) e-10)))) (define Context-Core-show_Show__SizeChange (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "Smaller") ((1) "Same") (else "Unknown"))))) (define Context-Core-show_Show__SCCall (lambda (arg-0) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__Nat d x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-0) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-0 x-1))))) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-0) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__Nat d-1 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-1) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-1 x-1))))) d-0 x-0)))) d x)))) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))))) (define Context-Core-show_Show__DefFlag (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "inline") ((1) "invertible") ((2) "overloadable") ((3) "tcinline") ((4) (let ((e-0 (vector-ref sc0 1))) (TT-Core-show_Show__TotalReq e-0))) ((5) "blockedhint") ((6) "macro") ((7) "partialeval") (else "allguarded"))))) -(define Context-Core-show_Show__Def (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "undefined") ((1) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-1) (Strings-Prelude-C-43C-43 ";\u000aCompile time tree: " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-1 e-2) (Strings-Prelude-C-43C-43 "\u000aRun time tree: " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-1 e-3))))))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "DataCon " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-5) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-6) (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (n) (Strings-Prelude-C-43C-43 " (newtype by " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Bool x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Bool d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x))))) n) ")")))) e-7))))))))) ((6) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 6))) (let ((e-14 (vector-ref sc0 7))) (let ((e-15 (vector-ref sc0 8))) (Strings-Prelude-C-43C-43 "TyCon " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-8) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-9) (Strings-Prelude-C-43C-43 " params: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) e-10) (Strings-Prelude-C-43C-43 " constructors: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-14) (Strings-Prelude-C-43C-43 " mutual with: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-13) (Strings-Prelude-C-43C-43 " detaggable by: " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__Nat x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Nat d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__Nat x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Nat d-0 x-0)))) d x)))) e-15))))))))))))))))))) ((2) (let ((e-16 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "")))) ((3) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 ""))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "")))) ((7) (let ((e-22 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "Hole" (let ((sc1 e-22)) (cond ((equal? sc1 0) " [impl]") (else "")))))) ((8) (let ((e-25 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "Search in " (Name-Core-show_Show__Name e-25)))) ((9) (let ((e-26 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "Guess " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-26) (Strings-Prelude-C-43C-43 " when " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) e-28))))))) ((10) "Bound name") (else "Delayed"))))) +(define Context-Core-show_Show__Def (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "undefined") ((1) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-1) (Strings-Prelude-C-43C-43 ";\u000aCompile time tree: " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-1 e-2) (Strings-Prelude-C-43C-43 "\u000aRun time tree: " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-1 e-3))))))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "DataCon " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-5) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-6) (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (n) (Strings-Prelude-C-43C-43 " (newtype by " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Bool x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Bool d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x))))) n) ")")))) e-7))))))))) ((6) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 6))) (let ((e-14 (vector-ref sc0 7))) (let ((e-15 (vector-ref sc0 8))) (Strings-Prelude-C-43C-43 "TyCon " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-8) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-9) (Strings-Prelude-C-43C-43 " params: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) e-10) (Strings-Prelude-C-43C-43 " constructors: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-14) (Strings-Prelude-C-43C-43 " mutual with: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-13) (Strings-Prelude-C-43C-43 " detaggable by: " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__Nat x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Nat d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__Nat x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Nat d-0 x-0)))) d x)))) e-15))))))))))))))))))) ((2) (let ((e-16 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "")))) ((3) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 ""))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "")))) ((7) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "Hole" (Context-Core-case--5782-2063 e-21 e-22 (let ((sc1 e-22)) (let ((e-0 (vector-ref sc1 1))) e-0))))))) ((8) (let ((e-25 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "Search in " (Name-Core-show_Show__Name e-25)))) ((9) (let ((e-26 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "Guess " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-26) (Strings-Prelude-C-43C-43 " when " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) e-28))))))) ((10) "Bound name") (else "Delayed"))))) (define Context-Core-showPrec_Show__SizeChange (lambda (arg-0 arg-1) (Context-Core-show_Show__SizeChange arg-1))) (define Context-Core-showPrec_Show__SCCall (lambda (arg-0 arg-1) (Context-Core-show_Show__SCCall arg-1))) (define Context-Core-showPrec_Show__DefFlag (lambda (arg-0 arg-1) (Context-Core-show_Show__DefFlag arg-1))) @@ -2348,15 +2380,15 @@ (define Context-Core-resolved_HasNames__Terminating (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__PartialReason arg-0 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5))))))))))(else (lambda (eta-0) (vector 1 arg-1))))))) (define Context-Core-resolved_HasNames__SCCall (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-0 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-5 e-1))))))))))) (define Context-Core-resolved_HasNames__PartialReason (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-1)) e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5)))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-1)) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5)))))))))))))) -(define Context-Core-resolved_HasNames__Name (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 9 e-0)))))(else (Context-Core-case--10091-5956 arg-1 arg-0 (Context-Core-getNameID arg-1 arg-0))))))) -(define Context-Core-resolved_HasNames__GlobalDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-resolved_HasNames__Def arg-0 (let ((sc1 arg-1)) (let ((e-17 (vector-ref sc1 18))) e-17))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Context-Core-resolved_HasNames__Totality arg-0 (let ((sc2 arg-1)) (let ((e-10 (vector-ref sc2 11))) e-10))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5888 arg-5889)))) arg-0 (let ((sc3 arg-1)) (let ((e-12 (vector-ref sc3 13))) e-12))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5888 arg-5889)))) arg-0 (let ((sc4 arg-1)) (let ((e-13 (vector-ref sc4 14))) e-13))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-resolved_HasNames__SCCall arg-0 eta-0 eta-1))) (let ((sc5 arg-1)) (let ((e-20 (vector-ref sc5 21))) e-20))) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (let ((sc6 arg-1)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-3 (vector-ref sc6 4))) (let ((e-4 (vector-ref sc6 5))) (let ((e-26 (vector-ref sc6 6))) (let ((e-25 (vector-ref sc6 7))) (let ((e-24 (vector-ref sc6 8))) (let ((e-23 (vector-ref sc6 9))) (let ((e-22 (vector-ref sc6 10))) (let ((e-11 (vector-ref sc6 12))) (let ((e-14 (vector-ref sc6 15))) (let ((e-15 (vector-ref sc6 16))) (let ((e-16 (vector-ref sc6 17))) (let ((e-18 (vector-ref sc6 19))) (let ((e-19 (vector-ref sc6 20))) (vector 0 e-0 e-1 e-5 e-3 e-4 e-26 e-25 e-24 e-23 e-22 e-7 e-11 e-8 e-9 e-14 e-15 e-16 e-6 e-18 e-19 e-10)))))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-resolved_HasNames__Def (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-n--11155-7101-resolvedNamesPat e-4 e-1 e-3 e-2 e-0 arg-0 eta-1)) e-4) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-0 e-1 e-5 e-6 e-7)))))))))))))))))))))))) ((6) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (let ((e-10 (vector-ref sc0 6))) (let ((e-11 (vector-ref sc0 7))) (let ((e-12 (vector-ref sc0 8))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-1)) e-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-1)) e-11) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc2 1))) (vector 1 (vector 6 e-5 e-6 e-7 e-8 e-9 e-13 e-14 e-12)))))))))))))))))))))) ((8) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-0 e-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-13 e-14 e-5)))))))))))) ((9) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 e-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-5 e-17 e-18))))))))))))(else (lambda (eta-0) (vector 1 arg-1))))))) +(define Context-Core-resolved_HasNames__Name (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 9 e-0)))))(else (Context-Core-case--10546-6360 arg-1 arg-0 (Context-Core-getNameID arg-1 arg-0))))))) +(define Context-Core-resolved_HasNames__GlobalDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-resolved_HasNames__Def arg-0 (let ((sc1 arg-1)) (let ((e-17 (vector-ref sc1 18))) e-17))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Context-Core-resolved_HasNames__Totality arg-0 (let ((sc2 arg-1)) (let ((e-10 (vector-ref sc2 11))) e-10))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-6292 arg-6293)))) arg-0 (let ((sc3 arg-1)) (let ((e-12 (vector-ref sc3 13))) e-12))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-6292 arg-6293)))) arg-0 (let ((sc4 arg-1)) (let ((e-13 (vector-ref sc4 14))) e-13))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-resolved_HasNames__SCCall arg-0 eta-0 eta-1))) (let ((sc5 arg-1)) (let ((e-20 (vector-ref sc5 21))) e-20))) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (let ((sc6 arg-1)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-3 (vector-ref sc6 4))) (let ((e-4 (vector-ref sc6 5))) (let ((e-26 (vector-ref sc6 6))) (let ((e-25 (vector-ref sc6 7))) (let ((e-24 (vector-ref sc6 8))) (let ((e-23 (vector-ref sc6 9))) (let ((e-22 (vector-ref sc6 10))) (let ((e-11 (vector-ref sc6 12))) (let ((e-14 (vector-ref sc6 15))) (let ((e-15 (vector-ref sc6 16))) (let ((e-16 (vector-ref sc6 17))) (let ((e-18 (vector-ref sc6 19))) (let ((e-19 (vector-ref sc6 20))) (vector 0 e-0 e-1 e-5 e-3 e-4 e-26 e-25 e-24 e-23 e-22 e-7 e-11 e-8 e-9 e-14 e-15 e-16 e-6 e-18 e-19 e-10)))))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-resolved_HasNames__Def (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-n--11610-7505-resolvedNamesPat e-4 e-1 e-3 e-2 e-0 arg-0 eta-1)) e-4) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-0 e-1 e-5 e-6 e-7)))))))))))))))))))))))) ((6) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (let ((e-10 (vector-ref sc0 6))) (let ((e-11 (vector-ref sc0 7))) (let ((e-12 (vector-ref sc0 8))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-1)) e-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-1)) e-11) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc2 1))) (vector 1 (vector 6 e-5 e-6 e-7 e-8 e-9 e-13 e-14 e-12)))))))))))))))))))))) ((8) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-0 e-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-13 e-14 e-5)))))))))))) ((9) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 e-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-5 e-17 e-18))))))))))))(else (lambda (eta-0) (vector 1 arg-1))))))) (define Context-Core-resolved_HasNames__Covering (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-2) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 arg-2)) e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5)))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-1)) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5)))))))))))))) -(define Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Context-Core-case--10167-6217 'erased e-3 e-2 e-1 arg-1 (Context-Core-getNameID e-3 arg-1)))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 arg-3)) e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) ((Context-Core-case--10167-6267 'erased e-8 e-7 e-6 e-5 arg-1 e-9 (Context-Core-getNameID e-6 arg-1)) eta-0)))))))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 arg-3)) e-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-10 e-11 e-5 e-6)))))))))))))))))) ((4) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-17) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-15 e-5 e-6))))))))))))))))) ((5) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-21) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-22) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-19 e-20 e-5 e-6)))))))))))))))))) ((6) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-26) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-24 e-25 e-5)))))))))))) ((7) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-30) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-31) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-28 e-29 e-5 e-6)))))))))))))))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-35) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-33 e-34 e-5))))))))))))(else (lambda (eta-0) (vector 1 arg-2))))))) -(define Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Context-Core-n--11472-7296-insertAll 'erased arg-2 arg-1 (NameMap-Data-empty 'erased) (NameMap-Data-toList 'erased arg-2)))) +(define Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Context-Core-case--10622-6621 'erased e-3 e-2 e-1 arg-1 (Context-Core-getNameID e-3 arg-1)))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 arg-3)) e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) ((Context-Core-case--10622-6671 'erased e-8 e-7 e-6 e-5 arg-1 e-9 (Context-Core-getNameID e-6 arg-1)) eta-0)))))))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 arg-3)) e-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-10 e-11 e-5 e-6)))))))))))))))))) ((4) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-17) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-15 e-5 e-6))))))))))))))))) ((5) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-21) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-22) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-19 e-20 e-5 e-6)))))))))))))))))) ((6) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-26) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-24 e-25 e-5)))))))))))) ((7) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-30) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-31) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-28 e-29 e-5 e-6)))))))))))))))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-35) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-33 e-34 e-5))))))))))))(else (lambda (eta-0) (vector 1 arg-2))))))) +(define Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Context-Core-n--11927-7700-insertAll 'erased arg-2 arg-1 (NameMap-Data-empty 'erased) (NameMap-Data-toList 'erased arg-2)))) (define Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 2))) (((e-3 arg-2) e-2) eta-0))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5)))))))))))))) (define Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-resolved_HasNames__C-40CaseAltC-32C-36varsC-41 'erased arg-1 arg-3)) e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-1 e-2 e-6 e-7))))))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-7 e-5)))))))))))(else (lambda (eta-0) (vector 1 arg-2))))))) -(define Context-Core-resolved_HasNames__C-40CaseAltC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) ((Context-Core-case--10793-6732 'erased e-3 e-4 e-2 e-1 arg-1 e-5 (Context-Core-getNameID e-1 arg-1)) eta-0)))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-6 e-7 e-5)))))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 e-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-10 e-5))))))))))) (else (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 e-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5)))))))))))))) +(define Context-Core-resolved_HasNames__C-40CaseAltC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) ((Context-Core-case--11248-7136 'erased e-3 e-4 e-2 e-1 arg-1 e-5 (Context-Core-getNameID e-1 arg-1)) eta-0)))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-6 e-7 e-5)))))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 e-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-10 e-5))))))))))) (else (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 e-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5)))))))))))))) (define Context-Core-resolved_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 arg-3)) e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-resolved_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-1 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 1 e-6 e-7)))))))))))))))))))) (define Context-Core-full_HasNames__Transform (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-0 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-0 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 e-4) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-0 e-5 e-6 e-7 e-8))))))))))))))))))))))))))))))) (define Context-Core-full_HasNames__Totality (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Terminating arg-0 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-full_HasNames__Covering arg-0 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))))))) @@ -2364,11 +2396,11 @@ (define Context-Core-full_HasNames__SCCall (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-0 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-5 e-1))))))))))) (define Context-Core-full_HasNames__PartialReason (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-1)) e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5)))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-1)) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5)))))))))))))) (define Context-Core-full_HasNames__Name (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 e-0) arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (let ((sc3 e-1)) (let ((e-22 (vector-ref sc3 2))) e-22))))) (else (vector 1 (vector 9 e-0)))))))))))))(else (lambda (eta-0) (vector 1 arg-1))))))) -(define Context-Core-full_HasNames__GlobalDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-full_HasNames__Def arg-0 (let ((sc1 arg-1)) (let ((e-17 (vector-ref sc1 18))) e-17))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Context-Core-full_HasNames__Totality arg-0 (let ((sc2 arg-1)) (let ((e-10 (vector-ref sc2 11))) e-10))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5888 arg-5889)))) arg-0 (let ((sc3 arg-1)) (let ((e-12 (vector-ref sc3 13))) e-12))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5888 arg-5889)))) arg-0 (let ((sc4 arg-1)) (let ((e-13 (vector-ref sc4 14))) e-13))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-full_HasNames__SCCall arg-0 eta-0 eta-1))) (let ((sc5 arg-1)) (let ((e-20 (vector-ref sc5 21))) e-20))) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (let ((sc6 arg-1)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-3 (vector-ref sc6 4))) (let ((e-4 (vector-ref sc6 5))) (let ((e-26 (vector-ref sc6 6))) (let ((e-25 (vector-ref sc6 7))) (let ((e-24 (vector-ref sc6 8))) (let ((e-23 (vector-ref sc6 9))) (let ((e-22 (vector-ref sc6 10))) (let ((e-11 (vector-ref sc6 12))) (let ((e-14 (vector-ref sc6 15))) (let ((e-15 (vector-ref sc6 16))) (let ((e-16 (vector-ref sc6 17))) (let ((e-18 (vector-ref sc6 19))) (let ((e-19 (vector-ref sc6 20))) (vector 0 e-0 e-1 e-5 e-3 e-4 e-26 e-25 e-24 e-23 e-22 e-7 e-11 e-8 e-9 e-14 e-15 e-16 e-6 e-18 e-19 e-10)))))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-full_HasNames__Def (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-n--11154-6960-fullNamesPat e-4 e-1 e-3 e-2 e-0 arg-0 eta-1)) e-4) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-0 e-1 e-5 e-6 e-7)))))))))))))))))))))))) ((6) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (let ((e-10 (vector-ref sc0 6))) (let ((e-11 (vector-ref sc0 7))) (let ((e-12 (vector-ref sc0 8))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-1)) e-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-1)) e-11) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc2 1))) (vector 1 (vector 6 e-5 e-6 e-7 e-8 e-9 e-13 e-14 e-12)))))))))))))))))))))) ((8) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-0 e-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-13 e-14 e-5)))))))))))) ((9) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 e-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-5 e-17 e-18))))))))))))(else (lambda (eta-0) (vector 1 arg-1))))))) +(define Context-Core-full_HasNames__GlobalDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-full_HasNames__Def arg-0 (let ((sc1 arg-1)) (let ((e-17 (vector-ref sc1 18))) e-17))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Context-Core-full_HasNames__Totality arg-0 (let ((sc2 arg-1)) (let ((e-10 (vector-ref sc2 11))) e-10))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-6292 arg-6293)))) arg-0 (let ((sc3 arg-1)) (let ((e-12 (vector-ref sc3 13))) e-12))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-6292 arg-6293)))) arg-0 (let ((sc4 arg-1)) (let ((e-13 (vector-ref sc4 14))) e-13))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-full_HasNames__SCCall arg-0 eta-0 eta-1))) (let ((sc5 arg-1)) (let ((e-20 (vector-ref sc5 21))) e-20))) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (let ((sc6 arg-1)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-3 (vector-ref sc6 4))) (let ((e-4 (vector-ref sc6 5))) (let ((e-26 (vector-ref sc6 6))) (let ((e-25 (vector-ref sc6 7))) (let ((e-24 (vector-ref sc6 8))) (let ((e-23 (vector-ref sc6 9))) (let ((e-22 (vector-ref sc6 10))) (let ((e-11 (vector-ref sc6 12))) (let ((e-14 (vector-ref sc6 15))) (let ((e-15 (vector-ref sc6 16))) (let ((e-16 (vector-ref sc6 17))) (let ((e-18 (vector-ref sc6 19))) (let ((e-19 (vector-ref sc6 20))) (vector 0 e-0 e-1 e-5 e-3 e-4 e-26 e-25 e-24 e-23 e-22 e-7 e-11 e-8 e-9 e-14 e-15 e-16 e-6 e-18 e-19 e-10)))))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-full_HasNames__Def (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-n--11609-7364-fullNamesPat e-4 e-1 e-3 e-2 e-0 arg-0 eta-1)) e-4) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-0 e-1 e-5 e-6 e-7)))))))))))))))))))))))) ((6) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (let ((e-10 (vector-ref sc0 6))) (let ((e-11 (vector-ref sc0 7))) (let ((e-12 (vector-ref sc0 8))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-1)) e-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-1)) e-11) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc2 1))) (vector 1 (vector 6 e-5 e-6 e-7 e-8 e-9 e-13 e-14 e-12)))))))))))))))))))))) ((8) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-0 e-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-13 e-14 e-5)))))))))))) ((9) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 e-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-5 e-17 e-18))))))))))))(else (lambda (eta-0) (vector 1 arg-1))))))) (define Context-Core-full_HasNames__Covering (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-2) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 arg-2)) e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5)))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-1)) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5)))))))))))))) -(define Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((9) (let ((e-36 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 e-36) arg-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (vector 1 (vector 1 e-1 e-2 (let ((sc4 e-4)) (let ((e-25 (vector-ref sc4 2))) e-25)))))) (else (let ((act-25 (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Missing name! " (Prelude-show_Show__Int e-36))) eta-0))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 1 e-1 e-2 (vector 9 e-36))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-2))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 arg-3)) e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) (vector 1 (vector 2 e-5 e-6 e-7 e-9))))))))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 arg-3)) e-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-10 e-11 e-5 e-6)))))))))))))))))) ((4) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-17) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-15 e-5 e-6))))))))))))))))) ((5) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-21) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-22) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-19 e-20 e-5 e-6)))))))))))))))))) ((6) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-26) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-24 e-25 e-5)))))))))))) ((7) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-30) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-31) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-28 e-29 e-5 e-6)))))))))))))))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-35) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-33 e-34 e-5))))))))))))(else (lambda (eta-0) (vector 1 arg-2))))))) -(define Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Context-Core-n--11471-7264-insertAll 'erased arg-2 arg-1 (NameMap-Data-empty 'erased) (NameMap-Data-toList 'erased arg-2)))) +(define Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((9) (let ((e-36 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 e-36) arg-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (vector 1 (vector 1 e-1 e-2 (let ((sc4 e-4)) (let ((e-25 (vector-ref sc4 2))) e-25)))))) (else (let ((act-25 (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Missing name! " (Prelude-show_Show__Int e-36))) eta-0))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 1 e-1 e-2 (vector 9 e-36))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-2))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 arg-3)) e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) (vector 1 (vector 2 e-5 e-6 e-7 e-9))))))))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 arg-3)) e-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-10 e-11 e-5 e-6)))))))))))))))))) ((4) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-17) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-15 e-5 e-6))))))))))))))))) ((5) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-21) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-22) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-19 e-20 e-5 e-6)))))))))))))))))) ((6) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-26) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-24 e-25 e-5)))))))))))) ((7) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-30) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-31) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-28 e-29 e-5 e-6)))))))))))))))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-35) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-33 e-34 e-5))))))))))))(else (lambda (eta-0) (vector 1 arg-2))))))) +(define Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Context-Core-n--11926-7668-insertAll 'erased arg-2 arg-1 (NameMap-Data-empty 'erased) (NameMap-Data-toList 'erased arg-2)))) (define Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (((e-1 arg-2) e-2) eta-0))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5)))))))))))))) (define Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-full_HasNames__C-40CaseAltC-32C-36varsC-41 'erased arg-1 arg-3)) e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-1 e-2 e-6 e-7))))))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-7 e-5)))))))))))(else (lambda (eta-0) (vector 1 arg-2))))))) (define Context-Core-full_HasNames__C-40CaseAltC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-1 arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 (let ((sc4 e-7)) (let ((e-27 (vector-ref sc4 2))) e-27)) e-2 e-3 e-5)))) (else (vector 1 (vector 0 e-1 e-2 e-3 e-5))))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-6 e-7 e-5)))))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 e-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-10 e-5))))))))))) (else (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 e-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5)))))))))))))) @@ -2377,38 +2409,38 @@ (define Context-Core-__Impl_Show_SCCall (lambda () (vector 0 (lambda (x) (Context-Core-show_Show__SCCall x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__SCCall d x)))))) (define Context-Core-__Impl_Show_DefFlag (lambda () (vector 0 (lambda (x) (Context-Core-show_Show__DefFlag x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__DefFlag d x)))))) (define Context-Core-__Impl_Show_Def (lambda () (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))))) -(define Context-Core-__Impl_HasNames_Transform (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Transform arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Transform arg-5888 arg-5889)))))) -(define Context-Core-__Impl_HasNames_Totality (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Totality arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Totality arg-5888 arg-5889)))))) -(define Context-Core-__Impl_HasNames_Terminating (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Terminating arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Terminating arg-5888 arg-5889)))))) -(define Context-Core-__Impl_HasNames_SCCall (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (lambda (eta-0) (Context-Core-full_HasNames__SCCall arg-5886 arg-5887 eta-0)))) (lambda (arg-5888) (lambda (arg-5889) (lambda (eta-0) (Context-Core-resolved_HasNames__SCCall arg-5888 arg-5889 eta-0))))))) -(define Context-Core-__Impl_HasNames_Name (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))))) -(define Context-Core-__Impl_HasNames_Def (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Def arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Def arg-5888 arg-5889)))))) -(define Context-Core-__Impl_HasNames_Covering (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Covering arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Covering arg-5888 arg-5889)))))) -(define Context-Core-__Impl_HasNames_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))))) -(define Context-Core-__Impl_HasNames_C-40NameMapC-32C-36aC-41 (lambda (arg-0) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5888 arg-5889)))))) -(define Context-Core-__Impl_HasNames_C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-5888 arg-5889)))))) -(define Context-Core-__Impl_HasNames_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5888 arg-5889)))))) -(define Context-Core-__Impl_HasNames_C-40CaseAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40CaseAltC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40CaseAltC-32C-36varsC-41 'erased arg-5888 arg-5889)))))) -(define Context-Core-__Impl_HasNames_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-5888 arg-5889)))))) -(define Context-Core-__Impl_Eq_SizeChange (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__SizeChange arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__SizeChange arg-430 arg-431)))))) -(define Context-Core-__Impl_Eq_SCCall (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__SCCall arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__SCCall arg-430 arg-431)))))) -(define Context-Core-__Impl_Eq_DefFlag (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__DefFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__DefFlag arg-430 arg-431)))))) +(define Context-Core-__Impl_HasNames_Transform (lambda () (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Transform arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Transform arg-6292 arg-6293)))))) +(define Context-Core-__Impl_HasNames_Totality (lambda () (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Totality arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Totality arg-6292 arg-6293)))))) +(define Context-Core-__Impl_HasNames_Terminating (lambda () (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Terminating arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Terminating arg-6292 arg-6293)))))) +(define Context-Core-__Impl_HasNames_SCCall (lambda () (vector 0 (lambda (arg-6290) (lambda (arg-6291) (lambda (eta-0) (Context-Core-full_HasNames__SCCall arg-6290 arg-6291 eta-0)))) (lambda (arg-6292) (lambda (arg-6293) (lambda (eta-0) (Context-Core-resolved_HasNames__SCCall arg-6292 arg-6293 eta-0))))))) +(define Context-Core-__Impl_HasNames_Name (lambda () (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))))) +(define Context-Core-__Impl_HasNames_Def (lambda () (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Def arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Def arg-6292 arg-6293)))))) +(define Context-Core-__Impl_HasNames_Covering (lambda () (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Covering arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Covering arg-6292 arg-6293)))))) +(define Context-Core-__Impl_HasNames_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))))) +(define Context-Core-__Impl_HasNames_C-40NameMapC-32C-36aC-41 (lambda (arg-0) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-6292 arg-6293)))))) +(define Context-Core-__Impl_HasNames_C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-6292 arg-6293)))))) +(define Context-Core-__Impl_HasNames_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-6292 arg-6293)))))) +(define Context-Core-__Impl_HasNames_C-40CaseAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40CaseAltC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40CaseAltC-32C-36varsC-41 'erased arg-6292 arg-6293)))))) +(define Context-Core-__Impl_HasNames_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-6292 arg-6293)))))) +(define Context-Core-__Impl_Eq_SizeChange (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Context-Core-C-61C-61_Eq__SizeChange arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Context-Core-C-47C-61_Eq__SizeChange arg-438 arg-439)))))) +(define Context-Core-__Impl_Eq_SCCall (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Context-Core-C-61C-61_Eq__SCCall arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Context-Core-C-47C-61_Eq__SCCall arg-438 arg-439)))))) +(define Context-Core-__Impl_Eq_DefFlag (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Context-Core-C-61C-61_Eq__DefFlag arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Context-Core-C-47C-61_Eq__DefFlag arg-438 arg-439)))))) (define Context-Core-C-61C-61_Eq__SizeChange (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0)(else 1))))(else 1))))) -(define Context-Core-C-61C-61_Eq__SCCall (lambda (arg-0 arg-1) (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Nat arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Nat arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Context-Core-C-61C-61_Eq__SizeChange arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Context-Core-C-47C-61_Eq__SizeChange arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Nat arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Nat arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Context-Core-C-61C-61_Eq__SizeChange arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Context-Core-C-47C-61_Eq__SizeChange arg-432 arg-433)))) arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Nat arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Nat arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Context-Core-C-61C-61_Eq__SizeChange arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Context-Core-C-47C-61_Eq__SizeChange arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Nat arg-434 arg-435)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__SizeChange arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Context-Core-C-47C-61_Eq__SizeChange arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) e-1))))))) -(define Context-Core-C-61C-61_Eq__DefFlag (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0)(else 1)))) ((3) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) 0)(else 1)))) ((4) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-2 (vector-ref sc1 1))) (TT-Core-C-61C-61_Eq__TotalReq e-0 e-2)))(else 1))))) ((5) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) 0)(else 1)))) ((6) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) 0)(else 1)))) ((7) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-3 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Name-Core-C-61C-61_Eq__Name arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Nat arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Name-Core-C-47C-61_Eq__Name arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Nat arg-432 arg-433)))) arg-430 arg-431)))) e-1 e-3)))(else 1))))) ((8) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) 0)(else 1))))(else 1))))) +(define Context-Core-C-61C-61_Eq__SCCall (lambda (arg-0 arg-1) (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__Nat arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Nat arg-440 arg-441)))) (vector 0 (lambda (arg-440) (lambda (arg-441) (Context-Core-C-61C-61_Eq__SizeChange arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Context-Core-C-47C-61_Eq__SizeChange arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__Nat arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Nat arg-440 arg-441)))) (vector 0 (lambda (arg-440) (lambda (arg-441) (Context-Core-C-61C-61_Eq__SizeChange arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Context-Core-C-47C-61_Eq__SizeChange arg-440 arg-441)))) arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__Nat arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Nat arg-440 arg-441)))) (vector 0 (lambda (arg-440) (lambda (arg-441) (Context-Core-C-61C-61_Eq__SizeChange arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Context-Core-C-47C-61_Eq__SizeChange arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__Nat arg-442 arg-443)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Context-Core-C-61C-61_Eq__SizeChange arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Context-Core-C-47C-61_Eq__SizeChange arg-442 arg-443)))) arg-440 arg-441)))) arg-438 arg-439)))) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) e-1))))))) +(define Context-Core-C-61C-61_Eq__DefFlag (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0)(else 1)))) ((3) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) 0)(else 1)))) ((4) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-2 (vector-ref sc1 1))) (TT-Core-C-61C-61_Eq__TotalReq e-0 e-2)))(else 1))))) ((5) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) 0)(else 1)))) ((6) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) 0)(else 1)))) ((7) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-3 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Name-Core-C-61C-61_Eq__Name arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Nat arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Name-Core-C-47C-61_Eq__Name arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Nat arg-440 arg-441)))) arg-438 arg-439)))) e-1 e-3)))(else 1))))) ((8) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) 0)(else 1))))(else 1))))) (define Context-Core-C-47C-61_Eq__SizeChange (lambda (arg-0 arg-1) (Prelude-not (Context-Core-C-61C-61_Eq__SizeChange arg-0 arg-1)))) (define Context-Core-C-47C-61_Eq__SCCall (lambda (arg-0 arg-1) (Prelude-not (Context-Core-C-61C-61_Eq__SCCall arg-0 arg-1)))) (define Context-Core-C-47C-61_Eq__DefFlag (lambda (arg-0 arg-1) (Prelude-not (Context-Core-C-61C-61_Eq__DefFlag arg-0 arg-1)))) (define Defs-Context-Core-warnings (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-25 (vector-ref sc0 26))) e-25)))) (define Context-Context-Core-visibleNS (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-7 (vector-ref sc0 8))) e-7)))) (define Context-Core-visibleInAny (lambda (arg-0 arg-1 arg-2) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (ns) (Context-Core-visibleIn ns arg-1 arg-2))) arg-0))) -(define Context-Core-visibleIn (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-0 arg-0))(else 0)))))(else 0))))) +(define Context-Core-visibleIn (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) e-0 arg-0))(else 0)))))(else 0))))) (define GlobalDef-Context-Core-visibility (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-9 (vector-ref sc0 10))) e-9)))) (define GlobalDef-Context-Core-vars (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-8 (vector-ref sc0 9))) e-8)))) (define Defs-Context-Core-userHoles (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-22 (vector-ref sc0 23))) e-22)))) (define Context-Core-updateTy (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 9 arg-1) (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (Context-Core-addDef arg-0 (vector 9 arg-1) (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (let ((e-21 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (vector 0 e-0 e-23 arg-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) (else (vector 1 (vector 0 ))))))))))))))))) -(define Context-Core-updateParams (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Context-Core-dropReps 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Context-Core-n--20963-16071-couldBeParam 'erased arg-2 eta-0)) arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (Context-Core-dropReps 'erased (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-n--20963-16096-mergeArg 'erased e-2 arg-2 eta-0 eta-1))) e-2 arg-2)))))))) -(define Context-Core-updateDef (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--15853-11467 arg-2 arg-1 arg-0 e-5 e-1 _-0 (arg-2 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)))) ext-0)))) (else (vector 1 (vector 0 ))))))))))))))))) +(define Context-Core-updateParams (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Context-Core-dropReps 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Context-Core-n--21786-16806-couldBeParam 'erased arg-2 eta-0)) arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (Context-Core-dropReps 'erased (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-n--21786-16831-mergeArg 'erased e-2 arg-2 eta-0 eta-1))) e-2 arg-2)))))))) +(define Context-Core-updateDef (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--16624-12155 arg-2 arg-1 arg-0 e-5 e-1 _-0 (arg-2 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)))) ext-0)))) (else (vector 1 (vector 0 ))))))))))))))))) (define Context-Core-unsetFlag (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((flagsC-39 (List-Data-filter 'erased (lambda (arg-4) (Context-Core-C-47C-61_Eq__DefFlag arg-4 arg-3)) (let ((sc3 e-1)) (let ((e-11 (vector-ref sc3 12))) e-11))))) (let ((act-26 (Context-Core-addDef arg-0 arg-2 (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (let ((e-21 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (vector 0 e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) (define TypeFlags-Context-Core-uniqueAuto (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (define Defs-Context-Core-typeHints (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-7 (vector-ref sc0 8))) e-7)))) @@ -2418,7 +2450,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--21265-16349-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--22088-17084-justPos 'erased e-2 0 e-2))))))) (define Defs-Context-Core-toIR (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-21 (vector-ref sc0 22))) e-21)))) (define Context-Core-toFullNames (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) (((e-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) arg-3) ext-0)))))))))) (define Defs-Context-Core-toCompileCase (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-20 (vector-ref sc0 21))) e-20)))) @@ -2427,11 +2459,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 (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--25540-20350-showTimeLog arg-0 eta-0)) (StringMap-Data-toList 'erased (let ((sc1 e-5)) (let ((e-24 (vector-ref sc1 25))) e-24)))) ext-0)))))))) -(define Context-Core-setWorkingDir (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 ((Directory-System-changeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1) ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 ((Directory-System-currentDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341)))) ext-0))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-27 (set-box! arg-0 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-28 (vector-ref sc4 6))) (let ((e-27 (vector-ref sc4 7))) (let ((e-26 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (let ((e-21 (vector-ref sc4 22))) (let ((e-22 (vector-ref sc4 23))) (let ((e-23 (vector-ref sc4 24))) (let ((e-24 (vector-ref sc4 25))) (let ((e-25 (vector-ref sc4 26))) (let ((sc5 e-4)) (let ((e-38 (vector-ref sc5 1))) (let ((e-37 (vector-ref sc5 2))) (let ((e-36 (vector-ref sc5 3))) (let ((e-35 (vector-ref sc5 4))) (let ((e-30 (vector-ref sc5 5))) (let ((e-31 (vector-ref sc5 6))) (let ((e-32 (vector-ref sc5 7))) (let ((e-33 (vector-ref sc5 8))) (let ((e-34 (vector-ref sc5 9))) (let ((sc6 e-38)) (let ((e-45 (vector-ref sc6 2))) (let ((e-44 (vector-ref sc6 3))) (let ((e-43 (vector-ref sc6 4))) (let ((e-39 (vector-ref sc6 5))) (let ((e-40 (vector-ref sc6 6))) (let ((e-41 (vector-ref sc6 7))) (let ((e-42 (vector-ref sc6 8))) (vector 0 e-0 e-29 e-2 e-3 (vector 0 (vector 0 e-1 e-45 e-44 e-43 e-39 e-40 e-41 e-42) e-37 e-36 e-35 e-30 e-31 e-32 e-33 e-34) e-28 e-27 e-26 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-27)))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0)))))))))))))))))))) -(define Context-Core-setVisible (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-0)) (let ((e-36 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((e-35 (vector-ref sc2 10))) (vector 0 (vector 0 e-36 e-27 e-28 e-29 e-30 e-31 e-32 (vector 1 arg-1 e-33) e-34 e-35) e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define Context-Core-setVisibility (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (Context-Core-addDef arg-0 arg-2 (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (let ((e-21 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (vector 0 e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 arg-3 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) -(define Context-Core-setUniqueSearch (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--19193-14503 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) +(define Context-Core-showTimeRecord (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Context-Core-n--26367-21089-showTimeLog arg-0 eta-0)) (StringMap-Data-toList 'erased (let ((sc1 e-5)) (let ((e-24 (vector-ref sc1 25))) e-24)))) ext-0)))))))) +(define Context-Core-setWorkingDir (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 ((Directory-System-changeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-1) ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 ((Directory-System-currentDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-26 (arg-3672 eta-0))) ((arg-3673 act-26) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350)))) ext-0))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-27 (set-box! arg-0 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-28 (vector-ref sc4 6))) (let ((e-27 (vector-ref sc4 7))) (let ((e-26 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (let ((e-21 (vector-ref sc4 22))) (let ((e-22 (vector-ref sc4 23))) (let ((e-23 (vector-ref sc4 24))) (let ((e-24 (vector-ref sc4 25))) (let ((e-25 (vector-ref sc4 26))) (let ((sc5 e-4)) (let ((e-38 (vector-ref sc5 1))) (let ((e-37 (vector-ref sc5 2))) (let ((e-36 (vector-ref sc5 3))) (let ((e-35 (vector-ref sc5 4))) (let ((e-30 (vector-ref sc5 5))) (let ((e-31 (vector-ref sc5 6))) (let ((e-32 (vector-ref sc5 7))) (let ((e-33 (vector-ref sc5 8))) (let ((e-34 (vector-ref sc5 9))) (let ((sc6 e-38)) (let ((e-45 (vector-ref sc6 2))) (let ((e-44 (vector-ref sc6 3))) (let ((e-43 (vector-ref sc6 4))) (let ((e-39 (vector-ref sc6 5))) (let ((e-40 (vector-ref sc6 6))) (let ((e-41 (vector-ref sc6 7))) (let ((e-42 (vector-ref sc6 8))) (vector 0 e-0 e-29 e-2 e-3 (vector 0 (vector 0 e-1 e-45 e-44 e-43 e-39 e-40 e-41 e-42) e-37 e-36 e-35 e-30 e-31 e-32 e-33 e-34) e-28 e-27 e-26 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-27)))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0)))))))))))))))))))) +(define Context-Core-setVisible (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-0)) (let ((e-37 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((e-35 (vector-ref sc2 10))) (let ((e-36 (vector-ref sc2 11))) (vector 0 (vector 0 e-37 e-27 e-28 e-29 e-30 e-31 e-32 (vector 1 arg-1 e-33) e-34 e-35 e-36) e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) +(define Context-Core-setUniqueSearch (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--20016-15238 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) (define Context-Core-setUndottedRecordProjections (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-29)) (let ((e-41 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-40 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 e-28 (vector 0 e-41 e-36 e-37 e-38 arg-1 e-40) e-30 e-31 e-32 e-33 e-34) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Context-Core-setUnboundImplicits (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-29)) (let ((e-41 (vector-ref sc3 1))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 e-28 (vector 0 e-41 arg-1 e-37 e-38 e-39 e-40) e-30 e-31 e-32 e-33 e-34) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Context-Core-setTerminating (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (Context-Core-addDef arg-0 arg-2 (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (let ((e-21 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (let ((sc4 e-10)) (let ((e-24 (vector-ref sc4 2))) (vector 0 e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 (vector 0 arg-3 e-24) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) @@ -2448,7 +2479,7 @@ (define Context-Core-setNamedCompiled (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (Context-Core-addDef arg-0 arg-1 (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (let ((e-21 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-20 (vector-ref sc3 21))) (vector 0 e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 (vector 1 arg-2) e-20)))))))))))))))))))))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) (else (vector 1 (vector 0 ))))))))))))))))) (define Context-Core-setNameFlag (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtName arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((0) (let ((flagsC-39 (vector 1 arg-3 (List-Data-filter 'erased (lambda (arg-4) (Context-Core-C-47C-61_Eq__DefFlag arg-4 arg-3)) (let ((sc6 e-11)) (let ((e-21 (vector-ref sc6 12))) e-21)))))) (let ((act-26 (Context-Core-addDef arg-0 (vector 9 e-10) (let ((sc6 e-11)) (let ((e-0 (vector-ref sc6 1))) (let ((e-28 (vector-ref sc6 2))) (let ((e-27 (vector-ref sc6 3))) (let ((e-3 (vector-ref sc6 4))) (let ((e-4 (vector-ref sc6 5))) (let ((e-26 (vector-ref sc6 6))) (let ((e-25 (vector-ref sc6 7))) (let ((e-24 (vector-ref sc6 8))) (let ((e-23 (vector-ref sc6 9))) (let ((e-9 (vector-ref sc6 10))) (let ((e-22 (vector-ref sc6 11))) (let ((e-12 (vector-ref sc6 13))) (let ((e-13 (vector-ref sc6 14))) (let ((e-14 (vector-ref sc6 15))) (let ((e-15 (vector-ref sc6 16))) (let ((e-16 (vector-ref sc6 17))) (let ((e-17 (vector-ref sc6 18))) (let ((e-18 (vector-ref sc6 19))) (let ((e-19 (vector-ref sc6 20))) (let ((e-20 (vector-ref sc6 21))) (vector 0 e-0 e-28 e-27 e-3 e-4 e-26 e-25 e-24 e-23 e-9 e-22 flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) ext-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (vector 1 (vector 0 ))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0)))))))))))))))) (define Context-Core-setNS (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 arg-1 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define Context-Core-setMutWith (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--18565-13950 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) +(define Context-Core-setMutWith (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--19388-14685 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) (define Context-Core-setLogTimings (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-28)) (let ((e-46 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (let ((e-43 (vector-ref sc3 9))) (let ((e-44 (vector-ref sc3 10))) (let ((e-45 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 (vector 0 e-46 e-36 e-37 e-38 e-39 arg-1 e-41 e-42 e-43 e-44 e-45) e-29 e-30 e-31 e-32 e-33 e-34) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Context-Core-setLogLevel (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-28)) (let ((e-46 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (let ((e-43 (vector-ref sc3 9))) (let ((e-44 (vector-ref sc3 10))) (let ((e-45 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 (vector 0 e-46 e-36 e-37 e-38 arg-1 e-40 e-41 e-42 e-43 e-44 e-45) e-29 e-30 e-31 e-32 e-33 e-34) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Context-Core-setLinearCheck (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 9 arg-1) (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (Context-Core-addDef arg-0 (vector 9 arg-1) (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (let ((e-21 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (vector 0 e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 arg-2 e-17 e-18 e-19 e-20)))))))))))))))))))))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) (else (vector 1 (vector 0 ))))))))))))))))) @@ -2456,10 +2487,10 @@ (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--19359-14636 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) +(define Context-Core-setExternal (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--20182-15371 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) (define Context-Core-setExtension (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setExtension arg-1 e-4) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define Context-Core-setDetermining (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--18949-14296 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) -(define Context-Core-setDetags (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--19075-14404 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) +(define Context-Core-setDetermining (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--19772-15031 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) +(define Context-Core-setDetags (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--19898-15139 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) (define Context-Core-setDefaultTotalityOption (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-29)) (let ((e-41 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 e-28 (vector 0 e-41 e-36 arg-1 e-38 e-39 e-40) e-30 e-31 e-32 e-33 e-34) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Context-Core-setDebugElabCheck (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-28)) (let ((e-46 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-42 (vector-ref sc3 8))) (let ((e-43 (vector-ref sc3 9))) (let ((e-44 (vector-ref sc3 10))) (let ((e-45 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 (vector 0 e-46 e-36 e-37 e-38 e-39 e-40 arg-1 e-42 e-43 e-44 e-45) e-29 e-30 e-31 e-32 e-33 e-34) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Context-Core-setCtxt (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 arg-1 e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-25))))))))) @@ -2469,34 +2500,36 @@ (define Context-Core-setBuildDir (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-35)) (let ((e-43 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-43 e-36 arg-1 e-38 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Context-Core-setAutoImplicitLimit (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-29)) (let ((e-41 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 e-28 (vector 0 e-41 e-36 e-37 e-38 e-39 arg-1) e-30 e-31 e-32 e-33 e-34) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Context-Core-setAmbigLimit (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-29)) (let ((e-41 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 e-28 (vector 0 e-41 e-36 e-37 arg-1 e-39 e-40) e-30 e-31 e-32 e-33 e-34) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define Context-Core-setAllPublic (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-0)) (let ((e-36 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-35 (vector-ref sc2 10))) (vector 0 (vector 0 e-36 e-27 e-28 e-29 e-30 e-31 e-32 e-33 arg-1 e-35) e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) +(define Context-Core-setAllPublic (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-0)) (let ((e-37 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-35 (vector-ref sc2 10))) (let ((e-36 (vector-ref sc2 11))) (vector 0 (vector 0 e-37 e-27 e-28 e-29 e-30 e-31 e-32 e-33 arg-1 e-35 e-36) e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Defs-Context-Core-saveTypeHints (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-10 (vector-ref sc0 11))) e-10)))) (define Defs-Context-Core-saveTransforms (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-13 (vector-ref sc0 14))) e-13)))) (define Defs-Context-Core-saveAutoHints (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-11 (vector-ref sc0 12))) e-11)))) (define GlobalDef-Context-Core-safeErase (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4)))) -(define Context-Core-returnDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (cond ((equal? sc0 1) (vector 1 (vector 0 arg-1 arg-2))) (else (Context-Core-case--9066-4976 arg-2 arg-1 (let ((sc1 arg-2)) (let ((e-17 (vector-ref sc1 18))) e-17)))))))) +(define Context-Core-returnDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (cond ((equal? sc0 1) (vector 1 (vector 0 arg-1 arg-2))) (else (Context-Core-case--9321-5206 arg-2 arg-1 (let ((sc1 arg-2)) (let ((e-17 (vector-ref sc1 18))) e-17)))))))) (define Context-Context-Core-resolvedAs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) (define Context-Core-resolved (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-2) (lambda (arg-3) ((e-2 arg-2) arg-3))))))) (define Context-Core-resolveName (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-0))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-getPosition arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-26 (Context-Core-setCtxt arg-0 e-3 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 e-2)))))))))))))))))))))))) -(define Context-Core-resetFirstEntry (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-0)) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((e-35 (vector-ref sc2 10))) (vector 0 (vector 0 (let ((sc3 (let ((sc4 e-5)) (let ((e-62 (vector-ref sc4 1))) e-62)))) (let ((e-45 (vector-ref sc3 2))) e-45)) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34 e-35) e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) +(define Context-Core-resetFirstEntry (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-0)) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((e-35 (vector-ref sc2 10))) (let ((e-36 (vector-ref sc2 11))) (vector 0 (vector 0 (let ((sc3 (let ((sc4 e-5)) (let ((e-63 (vector-ref sc4 1))) e-63)))) (let ((e-47 (vector-ref sc3 2))) e-47)) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34 e-35 e-36) e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define GlobalDef-Context-Core-refersToRuntimeM (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-13 (vector-ref sc0 14))) e-13)))) (define Context-Core-refersToRuntime (lambda (arg-0) (Prelude-maybe 'erased 'erased (lambda () (NameMap-Data-empty 'erased)) (lambda () (lambda (eta-0) eta-0)) (let ((sc0 arg-0)) (let ((e-13 (vector-ref sc0 14))) e-13))))) (define GlobalDef-Context-Core-refersToM (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-12 (vector-ref sc0 13))) e-12)))) (define Context-Core-refersTo (lambda (arg-0) (Prelude-maybe 'erased 'erased (lambda () (NameMap-Data-empty 'erased)) (lambda () (lambda (eta-0) eta-0)) (let ((sc0 arg-0)) (let ((e-12 (vector-ref sc0 13))) e-12))))) (define Context-Core-reducibleInAny (lambda (arg-0 arg-1 arg-2) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (ns) (Context-Core-reducibleIn ns arg-1 arg-2))) arg-0))) -(define Context-Core-reducibleIn (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-0 arg-0)) ((0) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-0 arg-0))(else 0)))) ((5) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-0 arg-0)) ((0) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-0 arg-0))(else 0))))(else 0))))))(else 0))))) +(define Context-Core-reducibleIn (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) e-0 arg-0)) ((0) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) e-0 arg-0))(else 0)))) ((5) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) e-0 arg-0)) ((0) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) e-0 arg-0))(else 0))))(else 0))))))(else 0))))) (define Context-Core-recordWarning (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 (vector 1 arg-1 e-25)))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define Context-Core-prettyName (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((0) (let ((e-10 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) (vector 9 e-10) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-prettyName arg-0 e-5) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Context-Core-prettyName arg-0 e-1) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "," e-7)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (Name-Core-show_Show__Name arg-1))))))))) ((7) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) (vector 9 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-prettyName arg-0 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "case block in " e-6))))))))))))))) ((8) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) (vector 9 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-prettyName arg-0 e-6) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "with block in " e-7))))))))))))))) ((0) (let ((e-7 (vector-ref sc0 2))) (Context-Core-prettyName arg-0 e-7)))(else (lambda (eta-0) (vector 1 (Name-Core-show_Show__Name arg-1)))))))) +(define Context-Core-prettyName (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((0) (let ((e-10 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) (vector 9 e-10) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-prettyName arg-0 e-5) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Context-Core-prettyName arg-0 e-1) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "," e-7)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (Name-Core-show_Show__Name arg-1))))))))) ((7) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) (vector 9 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-prettyName arg-0 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "case block in " e-6))))))))))))))) ((8) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) (vector 9 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-prettyName arg-0 e-6) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "with block in " e-7))))))))))))))) ((0) (let ((e-7 (vector-ref sc0 2))) (Context-Core-prettyName arg-0 e-7)))(else (lambda (eta-0) (vector 1 (Name-Core-show_Show__Name arg-1)))))))) +(define HoleFlags-Context-Core-precisetype (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (define Context-Context-Core-possibles (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))) (define Defs-Context-Core-peFailures (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-23 (vector-ref sc0 24))) e-23)))) -(define Context-Core-paramPos (lambda (arg-0 arg-1) (Context-Core-combinePos 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Context-Core-getConPs (vector 0 ) (vector 0 ) arg-0 eta-0)) arg-1)))) +(define Context-Core-paramPos (lambda (arg-0 arg-1) (Context-Core-combinePos 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Context-Core-getConPs (vector 0 ) (vector 0 ) arg-0 eta-0)) arg-1)))) (define Defs-Context-Core-options (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4)))) (define Defs-Context-Core-openHints (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-9 (vector-ref sc0 10))) e-9)))) (define GlobalDef-Context-Core-noCycles (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-15 (vector-ref sc0 16))) e-15)))) (define Defs-Context-Core-nextTag (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-6 (vector-ref sc0 7))) e-6)))) (define Context-Context-Core-nextEntry (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) -(define Context-Core-newEntry (lambda (arg-0 arg-1) (let ((idx (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (let ((a (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((sc1 (Prelude-C-62C-61_Ord__Int idx (IOArray-Data-max 'erased e-5)))) (cond ((equal? sc1 0) (let ((act-25 (let ((act-25 ((IOArray-Data-newArrayCopy 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a-0) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a-0) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8341) arg-8341))) (b+ (IOArray-Data-max 'erased e-5) (Context-Core-Grow) 63) e-5) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (set-box! a e-6))) (vector 1 act-26)))))))) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 idx (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-11 (vector-ref sc2 6))) (let ((e-10 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-0 (b+ idx 1 63) (NameMap-Data-insert 'erased arg-0 idx e-2) (Context-Core-addPossible arg-0 idx e-3) e-4 e-11 e-10 e-7 e-8 e-9))))))))))))))))))))))))))) +(define Context-Core-newEntry (lambda (arg-0 arg-1) (let ((idx (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (let ((a (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((sc1 (Prelude-C-62C-61_Ord__Int idx (IOArray-Data-max 'erased e-5)))) (cond ((equal? sc1 0) (let ((act-25 (let ((act-25 ((IOArray-Data-newArrayCopy 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a-0) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a-0) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8350) arg-8350))) (b+ (IOArray-Data-max 'erased e-5) (Context-Core-Grow) 63) e-5) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (set-box! a e-6))) (vector 1 act-26)))))))) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 idx (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-12 (vector-ref sc2 6))) (let ((e-11 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (vector 0 e-0 (b+ idx 1 63) (NameMap-Data-insert 'erased arg-0 idx e-2) (Context-Core-addPossible arg-0 idx e-3) e-4 e-12 e-11 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))) (define Context-Core-newDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 0 arg-0 arg-1 arg-4 (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) arg-2 arg-3 arg-5 (TT-Core-unchecked) (vector 0 ) (vector 0 ) (vector 0 ) 1 1 1 arg-6 (vector 0 ) (vector 0 ) (vector 0 )))) +(define Context-Core-newAlias (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Context-Core-getPosition arg-1 arg-2) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 1 (let ((sc2 e-3)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-13 (vector-ref sc2 3))) (let ((e-12 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-11 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-13 (Context-Core-addAlias arg-0 arg-1 e-2 e-12) e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))) (define Defs-Context-Core-nestedNS (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))) (define Defs-Context-Core-namedirectives (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-14 (vector-ref sc0 15))) e-14)))) (define GlobalDef-Context-Core-namedcompexpr (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-19 (vector-ref sc0 20))) e-19)))) @@ -2510,49 +2543,53 @@ (define Context-Core-lookupDefTyExact (lambda (ext-2 ext-1 ext-0) (Context-Core-lookupExactBy 'erased (lambda (g) (vector 0 (let ((sc0 g)) (let ((e-17 (vector-ref sc0 18))) e-17)) (let ((sc0 g)) (let ((e-2 (vector-ref sc0 3))) e-2)))) ext-2 ext-1 ext-0))) (define Context-Core-lookupDefName (lambda (ext-2 ext-1 ext-0) (Context-Core-lookupNameBy 'erased (lambda (eta-0) (let ((sc0 eta-0)) (let ((e-17 (vector-ref sc0 18))) e-17))) ext-2 ext-1 ext-0))) (define Context-Core-lookupDefExact (lambda (ext-2 ext-1 ext-0) (Context-Core-lookupExactBy 'erased (lambda (eta-0) (let ((sc0 eta-0)) (let ((e-17 (vector-ref sc0 18))) e-17))) ext-2 ext-1 ext-0))) -(define Context-Core-lookupCtxtName (lambda (arg-0 arg-1) (Context-Core-case--9582-5526 arg-1 arg-0 (Name-Core-userNameRoot arg-0)))) -(define Context-Core-lookupCtxtExactI (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (Context-Core-case--9148-5044 e-0 arg-1 (IntMap-Data-lookup 'erased e-0 (let ((sc1 arg-1)) (let ((e-6 (vector-ref sc1 7))) e-6))))))(else (Context-Core-case--9148-5121 arg-1 arg-0 (NameMap-Data-lookup 'erased arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))))))))) -(define Context-Core-lookupCtxtExact (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (Context-Core-case--9256-5145 e-0 arg-1 (IntMap-Data-lookup 'erased e-0 (let ((sc1 arg-1)) (let ((e-6 (vector-ref sc1 7))) e-6))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExactI arg-0 arg-1) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-6 (vector-ref sc2 2))) (vector 1 (vector 1 e-6)))))) (else (vector 1 (vector 0 )))))))))))))))) -(define Context-Core-lookupContextEntry (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (Context-Core-case--9470-5338 e-0 arg-1 (IntMap-Data-lookup 'erased e-0 (let ((sc1 arg-1)) (let ((e-6 (vector-ref sc1 7))) e-6))))))(else (Context-Core-case--9470-5417 arg-1 arg-0 (NameMap-Data-lookup 'erased arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))))))))) -(define Context-Core-logTimeWhen (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Clock-System-clockTime (vector 3 )) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((nano 1000000000)) (let ((t (+ (* (Clock-System-seconds 'erased e-5) nano) (Clock-System-nanoseconds 'erased e-5)))) (let ((act-25 (arg-4 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 ((Clock-System-clockTime (vector 3 )) eta-0))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((tC-39 (+ (* (Clock-System-seconds 'erased e-7) nano) (Clock-System-nanoseconds 'erased e-7)))) (let ((time (Prelude-C-45_Neg__Integer tC-39 t))) (let ((act-27 (let ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "TIMING " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Integer (Prelude-div_Integral__Integer time nano)) (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 (Context-Core-n--25060-19914-addZeros 'erased arg-4 arg-3 arg-2 arg-1 (Prelude-unpack (Prelude-show_Show__Integer (Prelude-div_Integral__Integer (Prelude-mod_Integral__Integer time nano) 1000000)))) "s"))))))) eta-0))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 e-6)))))))))))))))))))))))))) (else arg-4))))) +(define Context-Core-lookupCtxtName (lambda (arg-0 arg-1) (Context-Core-case--9837-5986 arg-1 arg-0 (Name-Core-userNameRoot arg-0)))) +(define Context-Core-lookupCtxtExactI (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (Context-Core-case--9403-5274 e-0 arg-1 (IntMap-Data-lookup 'erased e-0 (let ((sc1 arg-1)) (let ((e-6 (vector-ref sc1 7))) e-6))))))(else (Context-Core-case--9403-5351 arg-1 arg-0 (NameMap-Data-lookup 'erased arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))))))))) +(define Context-Core-lookupCtxtExact (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (Context-Core-case--9511-5375 e-0 arg-1 (IntMap-Data-lookup 'erased e-0 (let ((sc1 arg-1)) (let ((e-6 (vector-ref sc1 7))) e-6))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExactI arg-0 arg-1) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-6 (vector-ref sc2 2))) (vector 1 (vector 1 e-6)))))) (else (vector 1 (vector 0 )))))))))))))))) +(define Context-Core-lookupContextEntry (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (Context-Core-case--9725-5568 e-0 arg-1 (IntMap-Data-lookup 'erased e-0 (let ((sc1 arg-1)) (let ((e-6 (vector-ref sc1 7))) e-6))))))(else (Context-Core-case--9725-5647 arg-1 arg-0 (NameMap-Data-lookup 'erased arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))))))))) +(define Context-Core-logTimeWhen (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Clock-System-clockTime (vector 3 )) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((nano 1000000000)) (let ((t (+ (* (Clock-System-seconds 'erased e-5) nano) (Clock-System-nanoseconds 'erased e-5)))) (let ((act-25 (arg-4 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 ((Clock-System-clockTime (vector 3 )) eta-0))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((tC-39 (+ (* (Clock-System-seconds 'erased e-7) nano) (Clock-System-nanoseconds 'erased e-7)))) (let ((time (Prelude-C-45_Neg__Integer tC-39 t))) (let ((act-27 (let ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-27 (arg-3672 eta-1))) ((arg-3673 act-27) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "TIMING " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Integer (Prelude-div_Integral__Integer time nano)) (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 (Context-Core-n--25887-20653-addZeros 'erased arg-4 arg-3 arg-2 arg-1 (Prelude-unpack (Prelude-show_Show__Integer (Prelude-div_Integral__Integer (Prelude-mod_Integral__Integer time nano) 1000000)))) "s"))))))) eta-0))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 e-6)))))))))))))))))))))))))) (else arg-4))))) (define Context-Core-logTime (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-logTimeWhen 'erased arg-1 (let ((sc1 e-5)) (let ((e-11 (vector-ref sc1 6))) e-11)) arg-2 arg-3) ext-0)))))))) -(define Context-Core-logTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--24773-19657 arg-0 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0)))))))) -(define Context-Core-logC (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-getSession arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--24899-19767 arg-2 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-1)) ext-0)))))))) -(define Context-Core-log (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-getSession arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--24851-19724 arg-2 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-1)) ext-0)))))))) +(define Context-Core-logTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--25600-20396 arg-0 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0)))))))) +(define Context-Core-logC (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-getSession arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--25726-20506 arg-2 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-1)) ext-0)))))))) +(define Context-Core-log (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-getSession arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--25678-20463 arg-2 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-1)) ext-0)))))))) (define GlobalDef-Context-Core-location (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (define GlobalDef-Context-Core-linearChecked (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-16 (vector-ref sc0 17))) e-16)))) (define Context-Core-lazyActive (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-29)) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 e-28 (vector 0 arg-1 e-36 e-37 e-38 e-39 e-40) e-30 e-31 e-32 e-33 e-34) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define Context-Core-isVisible (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Context-Core-n--22123-17104-visible arg-1 arg-0 eta-0))) (List-Prelude-C-43C-43 'erased (Context-Core-n--22123-17103-allParents arg-1 arg-0 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) (List-Prelude-C-43C-43 'erased (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 4))) e-3)) (let ((sc1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-7 (vector-ref sc1 8))) e-7))))))))))))) +(define Context-Core-isVisible (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Context-Core-n--22948-17841-visible arg-1 arg-0 eta-0))) (List-Prelude-C-43C-43 'erased (Context-Core-n--22948-17840-allParents arg-1 arg-0 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) (List-Prelude-C-43C-43 'erased (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 4))) e-3)) (let ((sc1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-7 (vector-ref sc1 8))) e-7))))))))))))) (define Context-Core-isUndottedRecordProjections (lambda (arg-0 ext-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-0) (let ((sc0 eta-0)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-3 (vector-ref sc2 4))) e-3)))) (let ((e-4 (vector-ref sc1 5))) e-4)))))))) (lambda (eta-0) (let ((act-24 (unbox arg-0))) (vector 1 act-24))) ext-0))) (define Context-Core-isUnboundImplicits (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-3 (vector-ref sc2 4))) e-3)))) (let ((e-1 (vector-ref sc1 2))) e-1)))))))))) -(define Context-Core-isPairType (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--24210-19106 arg-1 arg-0 e-5 (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-4 (vector-ref sc1 5))) e-4))) ext-0)))))))) +(define Context-Core-isPairType (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--25037-19845 arg-1 arg-0 e-5 (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-4 (vector-ref sc1 5))) e-4))) ext-0)))))))) (define Context-Core-isLazyActive (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-3 (vector-ref sc2 4))) e-3)))) (let ((e-0 (vector-ref sc1 1))) e-0)))))))))) (define Context-Core-isExtension (lambda (arg-0 arg-1) (Options-Core-isExtension arg-0 (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 5))) e-4))))) -(define Context-Core-isEqualTy (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--24326-19223 arg-1 arg-0 e-5 (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-9 (vector-ref sc1 6))) e-9))) ext-0)))))))) +(define Context-Core-isEqualTy (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--25153-19962 arg-1 arg-0 e-5 (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-9 (vector-ref sc1 6))) e-9))) ext-0)))))))) (define Context-Core-isAllPublic (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-8 (vector-ref sc1 9))) e-8)))))))))) (define GlobalDef-Context-Core-invertible (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-14 (vector-ref sc0 15))) e-14)))) (define Context-Context-Core-inlineOnly (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-9 (vector-ref sc0 10))) e-9)))) (define Context-Core-initSize (lambda () 10000)) (define Context-Core-initHash (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 5381 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Context-Core-initDefs (lambda (ext-0) (let ((act-24 (Context-Core-initCtxt ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 0 e-5 (vector 0 ) (vector 1 "Main" (vector 0 )) (vector 0 ) (Options-Core-defaults) (NameMap-Data-empty 'erased) 100 (NameMap-Data-empty 'erased) (NameMap-Data-empty 'erased) (NameMap-Data-empty 'erased) (vector 0 ) (vector 0 ) (NameMap-Data-empty 'erased) (vector 0 ) (NameMap-Data-empty 'erased) 5381 (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (NameMap-Data-empty 'erased) (NameMap-Data-empty 'erased) (NameMap-Data-empty 'erased) (StringMap-Data-empty 'erased) (vector 0 )))))))))) -(define Context-Core-initCtxtS (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 ((IOArray-Data-newArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Arr" ) e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 0 0 (NameMap-Data-empty 'erased) (StringMap-Data-empty 'erased) e-6 0 (IntMap-Data-empty 'erased) (vector 1 (vector 1 "_PE" (vector 0 )) (vector 0 )) 1 1)))))))))))))) +(define Context-Core-initCtxtS (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 ((IOArray-Data-newArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-0) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Arr" ) e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 0 0 (NameMap-Data-empty 'erased) (StringMap-Data-empty 'erased) e-6 0 (IntMap-Data-empty 'erased) (vector 1 (vector 1 "_PE" (vector 0 )) (vector 0 )) 1 1 (NameMap-Data-empty 'erased))))))))))))))) (define Context-Core-initCtxt (lambda (ext-0) (Context-Core-initCtxtS (Context-Core-initSize) ext-0))) (define GlobalDef-Context-Core-inferrable (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-6 (vector-ref sc0 7))) e-6)))) (define Context-Core-inCurrentNS (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 1 e-0))))))))))) ((7) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 3))) e-27)) arg-1))))))))) ((8) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)) arg-1))))))))) ((6) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc1 1))) (vector 1 (vector 0 (let ((sc2 e-7)) (let ((e-2 (vector-ref sc2 3))) e-2)) arg-1))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)) arg-1))))))))) ((4) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)) arg-1))))))))) ((5) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)) arg-1)))))))))(else (lambda (eta-0) (vector 1 arg-1))))))) (define Defs-Context-Core-imported (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-17 (vector-ref sc0 18))) e-17)))) (define Defs-Context-Core-importHashes (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-16 (vector-ref sc0 17))) e-16)))) +(define HoleFlags-Context-Core-implbind (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (define Defs-Context-Core-ifaceHash (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-15 (vector-ref sc0 16))) e-15)))) +(define Context-Core-holeInit (lambda (arg-0) (vector 0 arg-0 1))) (define PMDefInfo-Context-Core-holeInfo (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (define SearchData-Context-Core-hintGroups (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) -(define Context-Core-hide (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtName arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (Context-Core-setVisibility arg-0 arg-1 e-8 (vector 0 ) ext-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0)))))))))))))))) -(define Context-Core-getWorkingDir (lambda (ext-0) (let ((act-24 (let ((act-24 ((Directory-System-currentDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341)))) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (vector 1 e-1))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0))))))))))) -(define Context-Core-getUserHoles (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((hs (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Name-Core-compare_Ord__Name arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Name-Core-C-60_Ord__Name arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Name-Core-C-62_Ord__Name arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Name-Core-C-60C-61_Ord__Name arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Name-Core-C-62C-61_Ord__Name arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Name-Core-max_Ord__Name arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Name-Core-min_Ord__Name arg-787 arg-788)))) (NameMap-Data-keys 'erased (let ((sc1 e-5)) (let ((e-22 (vector-ref sc1 23))) e-22)))))) ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-n--15421-11056-isHole arg-0 e-5 eta-0 eta-1))) hs) ext-0))))))))) +(define Context-Core-hideName (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (NameMap-Data-insert 'erased arg-0 (vector 0 ) e-10)))))))))))))))) +(define Context-Core-hide (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtName arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (let ((act-26 (set-box! arg-0 (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (let ((e-30 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-29 (vector-ref sc5 6))) (let ((e-28 (vector-ref sc5 7))) (let ((e-27 (vector-ref sc5 8))) (let ((e-26 (vector-ref sc5 9))) (let ((e-9 (vector-ref sc5 10))) (let ((e-10 (vector-ref sc5 11))) (let ((e-11 (vector-ref sc5 12))) (let ((e-12 (vector-ref sc5 13))) (let ((e-13 (vector-ref sc5 14))) (let ((e-14 (vector-ref sc5 15))) (let ((e-15 (vector-ref sc5 16))) (let ((e-16 (vector-ref sc5 17))) (let ((e-17 (vector-ref sc5 18))) (let ((e-18 (vector-ref sc5 19))) (let ((e-19 (vector-ref sc5 20))) (let ((e-20 (vector-ref sc5 21))) (let ((e-21 (vector-ref sc5 22))) (let ((e-22 (vector-ref sc5 23))) (let ((e-23 (vector-ref sc5 24))) (let ((e-24 (vector-ref sc5 25))) (let ((e-25 (vector-ref sc5 26))) (vector 0 (Context-Core-hideName e-8 e-0) e-31 e-30 e-3 e-4 e-29 e-28 e-27 e-26 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-26)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0)))))))))))))))) +(define Context-Context-Core-hidden (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-10 (vector-ref sc0 11))) e-10)))) +(define Context-Core-getWorkingDir (lambda (ext-0) (let ((act-24 (let ((act-24 ((Directory-System-currentDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350)))) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (vector 1 e-1))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0))))))))))) +(define Context-Core-getUserHoles (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((hs (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Name-Core-compare_Ord__Name arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Name-Core-C-60_Ord__Name arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Name-Core-C-62_Ord__Name arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Name-Core-C-60C-61_Ord__Name arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Name-Core-C-62C-61_Ord__Name arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Name-Core-max_Ord__Name arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Name-Core-min_Ord__Name arg-795 arg-796)))) ((NameMap-Data-keys 'erased) (let ((sc1 e-5)) (let ((e-22 (vector-ref sc1 23))) e-22)))))) ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-n--16092-11653-isHole arg-0 e-5 eta-0 eta-1))) hs) ext-0))))))))) (define Context-Core-getTotality (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (let ((sc3 e-1)) (let ((e-10 (vector-ref sc3 11))) e-10))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) (define Context-Core-getSession (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-2 (vector-ref sc1 3))) e-2)))))))))) -(define Context-Core-getSearchData (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-lookupDefExact arg-3 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((6) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((e-4 (vector-ref sc3 3))) (let ((e-11 (vector-ref sc3 4))) (let ((e-10 (vector-ref sc3 5))) (let ((e-7 (vector-ref sc3 6))) (let ((e-8 (vector-ref sc3 7))) (let ((e-9 (vector-ref sc3 8))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-3 ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc4 1))) (let ((hs (let ((_-0 (vector 1 (vector 6 e-2 e-3 e-4 e-11 e-10 e-7 e-8 e-9)))) (Context-Core-case--18209-13639 arg-3 arg-2 arg-1 arg-0 e-5 e-2 e-3 e-4 e-7 e-8 e-9 e-10 e-11 _-0 e-12 (NameMap-Data-lookup 'erased e-12 (let ((sc5 e-5)) (let ((e-31 (vector-ref sc5 8))) e-31))))))) (let ((sc5 arg-2)) (cond ((equal? sc5 0) (let ((defns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Context-Core-n--18183-13575-isDefault arg-3 arg-2 arg-1 arg-0 eta-0)) (NameMap-Data-toList 'erased (let ((sc6 e-5)) (let ((e-30 (vector-ref sc6 9))) e-30))))))) (vector 1 (vector 0 (vector 0 ) (vector 1 (vector 0 1 defns) (vector 0 )))))) (else (let ((opens (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (NameMap-Data-toList 'erased (let ((sc6 e-5)) (let ((e-29 (vector-ref sc6 10))) e-29)))))) (let ((autos (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (Context-Core-n--18183-13575-isDefault arg-3 arg-2 arg-1 arg-0 eta-0))) (NameMap-Data-toList 'erased (let ((sc6 e-5)) (let ((e-30 (vector-ref sc6 9))) e-30))))))) (let ((tyhs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Context-Core-n--18183-13576-direct arg-3 arg-2 arg-1 arg-0 eta-0)) hs)))) (let ((chasers (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (Context-Core-n--18183-13576-direct arg-3 arg-2 arg-1 arg-0 eta-0))) hs)))) (vector 1 (vector 0 e-11 (List-Data-filter 'erased (lambda (eta-0) (List-Data-isCons 'erased (Builtin-snd 'erased 'erased eta-0))) (vector 1 (vector 0 1 opens) (vector 1 (vector 0 1 autos) (vector 1 (vector 0 (Prelude-not (let ((sc6 e-10)) (let ((e-0 (vector-ref sc6 1))) e-0))) tyhs) (vector 1 (vector 0 0 chasers) (vector 0 ))))))))))))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-3) ext-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-3) ext-0)))))))))))))))) +(define Context-Core-getSearchData (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-lookupDefExact arg-3 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((6) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((e-4 (vector-ref sc3 3))) (let ((e-11 (vector-ref sc3 4))) (let ((e-10 (vector-ref sc3 5))) (let ((e-7 (vector-ref sc3 6))) (let ((e-8 (vector-ref sc3 7))) (let ((e-9 (vector-ref sc3 8))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) arg-3 ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc4 1))) (let ((hs (let ((_-0 (vector 1 (vector 6 e-2 e-3 e-4 e-11 e-10 e-7 e-8 e-9)))) (Context-Core-case--19032-14374 arg-3 arg-2 arg-1 arg-0 e-5 e-2 e-3 e-4 e-7 e-8 e-9 e-10 e-11 _-0 e-12 (NameMap-Data-lookup 'erased e-12 (let ((sc5 e-5)) (let ((e-31 (vector-ref sc5 8))) e-31))))))) (let ((sc5 arg-2)) (cond ((equal? sc5 0) (let ((defns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Context-Core-n--19006-14310-isDefault arg-3 arg-2 arg-1 arg-0 eta-0)) (NameMap-Data-toList 'erased (let ((sc6 e-5)) (let ((e-30 (vector-ref sc6 9))) e-30))))))) (vector 1 (vector 0 (vector 0 ) (vector 1 (vector 0 1 defns) (vector 0 )))))) (else (let ((opens (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (NameMap-Data-toList 'erased (let ((sc6 e-5)) (let ((e-29 (vector-ref sc6 10))) e-29)))))) (let ((autos (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (Context-Core-n--19006-14310-isDefault arg-3 arg-2 arg-1 arg-0 eta-0))) (NameMap-Data-toList 'erased (let ((sc6 e-5)) (let ((e-30 (vector-ref sc6 9))) e-30))))))) (let ((tyhs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Context-Core-n--19006-14311-direct arg-3 arg-2 arg-1 arg-0 eta-0)) hs)))) (let ((chasers (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (Context-Core-n--19006-14311-direct arg-3 arg-2 arg-1 arg-0 eta-0))) hs)))) (vector 1 (vector 0 e-11 (List-Data-filter 'erased (lambda (eta-0) (List-Data-isCons 'erased (Builtin-snd 'erased 'erased eta-0))) (vector 1 (vector 0 1 opens) (vector 1 (vector 0 1 autos) (vector 1 (vector 0 (Prelude-not (let ((sc6 e-10)) (let ((e-0 (vector-ref sc6 1))) e-0))) tyhs) (vector 1 (vector 0 0 chasers) (vector 0 ))))))))))))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-3) ext-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-3) ext-0)))))))))))))))) (define Context-Core-getRewrite (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-0) (vector 1 (let ((sc1 eta-0)) (let ((e-1 (vector-ref sc1 2))) e-1))))) (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-9 (vector-ref sc1 6))) e-9))))))))))) -(define Context-Core-getPs (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((scPs (Context-Core-getPs (vector 1 e-2 arg-0) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-2) (TT-Core-weaken_Weaken__Term e-2 arg-0 eta-2)) eta-1)) eta-0)) arg-1) arg-2 e-4))) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Context-Core-n--21107-16209-shrink arg-0 e-1 e-6 e-7 e-8 e-2 e-4 arg-2 arg-1 eta-1)) eta-0)) scPs))))))(else (Context-Core-case--21107-16265 arg-0 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-3))))))))))(else (Context-Core-case--21107-16265 arg-0 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-3))))))) -(define Context-Core-getPosition (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 e-0 arg-1)))))(else (Context-Core-case--8751-4691 arg-1 arg-0 (NameMap-Data-lookup 'erased arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))))))))) +(define Context-Core-getPs (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((scPs (Context-Core-getPs (vector 1 e-2 arg-0) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-2) (TT-Core-weaken_Weaken__Term e-2 arg-0 eta-2)) eta-1)) eta-0)) arg-1) arg-2 e-4))) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Context-Core-n--21930-16944-shrink arg-0 e-1 e-6 e-7 e-8 e-2 e-4 arg-2 arg-1 eta-1)) eta-0)) scPs))))))(else (Context-Core-case--21930-17000 arg-0 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-3))))))))))(else (Context-Core-case--21930-17000 arg-0 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-3))))))) +(define Context-Core-getPosition (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 e-0 arg-1)))))(else (Context-Core-case--8946-4870 arg-1 arg-0 (NameMap-Data-lookup 'erased arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))))))))) (define Context-Core-getPPrint (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-1 (vector-ref sc1 2))) e-1)))))))))) (define Context-Core-getNextTypeTag (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 (b+ e-6 1 63) e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (let ((sc2 e-5)) (let ((e-26 (vector-ref sc2 7))) e-26)))))))))))))) (define Context-Core-getNextEntry (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-1 (vector-ref sc1 2))) e-1)))))))))) @@ -2560,9 +2597,9 @@ (define Context-Core-getNameID (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (NameMap-Data-lookup 'erased arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2)))))))) (define Context-Core-getNS (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))))) (define Context-Core-getFullName (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 9 e-0) (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 1))) e-27))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 (let ((sc4 e-1)) (let ((e-23 (vector-ref sc4 2))) e-23))))) (else (vector 1 (vector 9 e-0))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-1))))))) -(define Context-Core-getFnName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (Context-Core-case--10011-5852 e-0 e-1 e-2 e-4 e-3 (TT-Core-getFn 'erased e-3)))))))))) +(define Context-Core-getFnName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (Context-Core-case--10466-6256 e-0 e-1 e-2 e-4 e-3 (TT-Core-getFn 'erased e-3)))))))))) (define Context-Core-getDirs (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-0 (vector-ref sc1 1))) e-0)))))))))) -(define Context-Core-getDirectives (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Context-Core-n--20718-15845-getDir arg-1 arg-0 eta-0)) (let ((sc1 e-5)) (let ((e-19 (vector-ref sc1 20))) e-19))))))))))) +(define Context-Core-getDirectives (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Context-Core-n--21541-16580-getDir arg-1 arg-0 eta-0)) (let ((sc1 e-5)) (let ((e-19 (vector-ref sc1 20))) e-19))))))))))) (define Context-Core-getDefaultTotalityOption (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-3 (vector-ref sc2 4))) e-3)))) (let ((e-2 (vector-ref sc1 3))) e-2)))))))))) (define Context-Core-getContent (lambda (ext-0) (let ((sc0 ext-0)) (let ((e-4 (vector-ref sc0 5))) e-4)))) (define Context-Core-getConPs (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 3))) (let ((bacc (Context-Core-getPs arg-0 arg-1 arg-2 e-8))) (Context-Core-getConPs (vector 1 e-2 arg-0) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-2) (TT-Core-weaken_Weaken__Term e-2 arg-0 eta-2)) eta-1)) eta-0)) bacc) arg-2 e-4))))(else (Context-Core-toPos 'erased (Context-Core-getPs arg-0 arg-1 arg-2 arg-3)))))))))(else (Context-Core-toPos 'erased (Context-Core-getPs arg-0 arg-1 arg-2 arg-3))))))) @@ -2581,71 +2618,74 @@ (define TypeFlags-Context-Core-external (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (define Context-Core-extendNS (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-1) e-2) e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define GlobalDef-Context-Core-eraseArgs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))) -(define Context-Core-dropReps (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((e-10 (vector-ref sc2 3))) (vector 1 (vector 1 (vector 0 e-8 e-9 e-10)) (Context-Core-dropReps 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Context-Core-n--20834-15968-toNothing 'erased e-10 'erased 'erased e-9 e-8 e-3 eta-0)) e-3)))))))(else (vector 1 e-2 (Context-Core-dropReps 'erased e-3)))))))(else (vector 1 e-2 (Context-Core-dropReps 'erased e-3)))))))))))) +(define Context-Core-dropReps (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((e-10 (vector-ref sc2 3))) (vector 1 (vector 1 (vector 0 e-8 e-9 e-10)) (Context-Core-dropReps 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Context-Core-n--21657-16703-toNothing 'erased e-10 'erased 'erased e-9 e-8 e-3 eta-0)) e-3)))))))(else (vector 1 e-2 (Context-Core-dropReps 'erased e-3)))))))(else (vector 1 e-2 (Context-Core-dropReps 'erased e-3)))))))))))) (define Context-Core-dropMutData (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 (List-Data-filter 'erased (lambda (arg-2) (Name-Core-C-47C-61_Eq__Name arg-2 arg-1)) e-1) e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define SearchData-Context-Core-detArgs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (define GlobalDef-Context-Core-definition (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-17 (vector-ref sc0 18))) e-17)))) (define Context-Core-defaultPI (lambda () (vector 0 (vector 0 ) 1))) (define Context-Core-defaultFlags (lambda () (vector 0 1 1))) -(define Context-Core-decode (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__GlobalDef e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((a (Context-Core-getContent arg-0))) (let ((act-26 (let ((act-26 (unbox a))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-resolved_HasNames__GlobalDef arg-0 e-6 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((sc5 arg-2)) (cond ((equal? sc5 0) (let ((act-28 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a-0) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a-0) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-28 (arg-3664 eta-1))) ((arg-3665 act-28) eta-1))))))) (lambda (a-0) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8341) arg-8341))) e-7 arg-1 (vector 1 e-8)) eta-0))) (vector 1 act-28))) (else (vector 1 (vector 0 ))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 e-8))))))))))))))))))))))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))))))) +(define Context-Core-decode (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__GlobalDef e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((a (Context-Core-getContent arg-0))) (let ((act-26 (let ((act-26 (unbox a))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-resolved_HasNames__GlobalDef arg-0 e-6 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((sc5 arg-2)) (cond ((equal? sc5 0) (let ((act-28 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a-0) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a-0) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-28 (arg-3672 eta-1))) ((arg-3673 act-28) eta-1))))))) (lambda (a-0) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8350) arg-8350))) e-7 arg-1 (vector 1 e-8)) eta-0))) (vector 1 act-28))) (else (vector 1 (vector 0 ))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 e-8))))))))))))))))))))))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))))))) (define Defs-Context-Core-currentNS (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) (define Context-Context-Core-content (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4)))) (define GlobalDef-Context-Core-compexpr (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-18 (vector-ref sc0 19))) e-18)))) -(define Context-Core-commitCtxt (lambda (arg-0) (Context-Core-case--9878-5735 arg-0 (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5))))) +(define Context-Core-commitCtxt (lambda (arg-0) (Context-Core-case--10331-6137 arg-0 (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5))))) (define Context-Core-commit (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-commitCtxt (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (Context-Core-setCtxt arg-0 e-6 ext-0))))))))))))) (define Context-Core-combinePos (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-filter 'erased (lambda (x) ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Prelude-elem 'erased arg-1 x eta-0))) e-3)) e-2)))))))) (define Context-Core-clearUserHole (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 (NameMap-Data-delete 'erased arg-1 e-22) e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Context-Core-clearSavedHints (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 (vector 0 ) (vector 0 ) e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define Context-Core-clearDefs (lambda (arg-0 ext-0) (vector 1 (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-0)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34 0) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-clearCtxt (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-initDefs ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-0 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-27 (vector-ref sc2 6))) (let ((e-26 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-25 (vector-ref sc2 26))) (vector 0 e-0 e-1 e-2 e-3 (Context-Core-n--15115-10765-resetElab arg-0 (let ((sc3 e-5)) (let ((e-49 (vector-ref sc3 5))) e-49))) e-27 e-26 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 (let ((sc3 e-5)) (let ((e-29 (vector-ref sc3 25))) e-29)) e-25))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))))) +(define Context-Core-clearDefs (lambda (arg-0 ext-0) (vector 1 (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-0)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((e-36 (vector-ref sc1 11))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34 0 e-36) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-clearCtxt (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-initDefs ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-0 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-27 (vector-ref sc2 6))) (let ((e-26 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-25 (vector-ref sc2 26))) (vector 0 e-0 e-1 e-2 e-3 (Context-Core-n--15571-11170-resetElab arg-0 (let ((sc3 e-5)) (let ((e-49 (vector-ref sc3 5))) e-49))) e-27 e-26 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 (let ((sc3 e-5)) (let ((e-29 (vector-ref sc3 25))) e-29)) e-25))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))))) (define Context-Core-checkUnambig (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-lookupDefName arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (vector 1 (vector 9 e-10)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0)))))))))))))))) (define Defs-Context-Core-cgdirectives (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-19 (vector-ref sc0 20))) e-19)))) (define Context-Context-Core-branchDepth (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5)))) -(define Context-Core-branchCtxt (lambda (arg-0 ext-0) (vector 1 (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (+ 1 e-5) e-6 e-7 e-8 e-9))))))))))))))) +(define Context-Core-branchCtxt (lambda (arg-0 ext-0) (vector 1 (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 (+ 1 e-5) e-6 e-7 e-8 e-9 e-10)))))))))))))))) (define Context-Core-branch (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-branchCtxt (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-setCtxt arg-0 e-6 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 e-5))))))))))))))))) (define Defs-Context-Core-autoHints (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-8 (vector-ref sc0 9))) e-8)))) (define PMDefInfo-Context-Core-alwaysReduce (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (define Context-Context-Core-allPublic (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-8 (vector-ref sc0 9))) e-8)))) (define Defs-Context-Core-allImported (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-18 (vector-ref sc0 19))) e-18)))) +(define Context-Core-aliasName (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--15732-11384 arg-1 arg-0 e-5 (Name-Core-userNameRoot arg-1)) ext-0)))))))) (define Context-Core-addUserHole (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 (NameMap-Data-insert 'erased arg-1 (vector 0 ) e-22) e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define Context-Core-addTransform (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--20067-15258 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--20890-15993 arg-2 arg-1 arg-0 e-5 (Context-Core-getFnName arg-2)) ext-0)))))))) (define Context-Core-addToSave (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-full_HasNames__Name (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) arg-1) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-27 (vector-ref sc2 6))) (let ((e-26 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 (NameMap-Data-insert 'erased e-6 (vector 0 ) e-27) e-26 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 (NameMap-Data-insert 'erased e-6 (vector 0 ) e-21) e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))))) -(define Context-Core-addPossible (lambda (arg-0 arg-1 arg-2) (Context-Core-case--8590-4532 arg-2 arg-1 arg-0 (Name-Core-userNameRoot arg-0)))) -(define Context-Core-addOpenHint (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-1 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-27 (vector-ref sc2 6))) (let ((e-26 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-27 e-26 e-7 e-8 (NameMap-Data-insert 'erased e-6 (vector 0 ) e-9) e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))))) +(define Context-Core-addPossible (lambda (arg-0 arg-1 arg-2) (Context-Core-case--8713-4649 arg-2 arg-1 arg-0 (Name-Core-userNameRoot arg-0)))) +(define Context-Core-addOpenHint (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) arg-1 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-27 (vector-ref sc2 6))) (let ((e-26 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-27 e-26 e-7 e-8 (NameMap-Data-insert 'erased e-6 (vector 0 ) e-9) e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))))) (define Context-Core-addNameDirective (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-checkUnambig arg-0 arg-1 arg-2 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-27 (vector-ref sc2 6))) (let ((e-26 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-27 e-26 e-7 e-8 e-9 e-10 e-11 e-12 e-13 (NameMap-Data-insert 'erased e-6 arg-3 e-14) e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))))) (define Context-Core-addName (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-0))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-newEntry arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-26 (Context-Core-setCtxt arg-0 e-3 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 e-2)))))))))))))))))))))))) (define Context-Core-addMutData (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 (vector 1 arg-1 e-1) e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Context-Core-addLibDir (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-35)) (let ((e-43 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-43 e-36 e-37 e-38 e-39 e-40 (List-Prelude-C-43C-43 'erased e-41 (vector 1 arg-1 (vector 0 ))) e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Context-Core-addImported (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 arg-1 e-17) e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define Context-Core-addHintFor (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-2 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-3 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((hs (Context-Core-case--19505-14769 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 (NameMap-Data-lookup 'erased e-6 (let ((sc3 e-5)) (let ((e-26 (vector-ref sc3 8))) e-26)))))) (let ((sc3 arg-5)) (cond ((equal? sc3 0) (let ((act-27 (set-box! arg-0 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-28 (vector-ref sc4 6))) (let ((e-27 (vector-ref sc4 7))) (let ((e-26 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (let ((e-21 (vector-ref sc4 22))) (let ((e-22 (vector-ref sc4 23))) (let ((e-23 (vector-ref sc4 24))) (let ((e-24 (vector-ref sc4 25))) (let ((e-25 (vector-ref sc4 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-27 (NameMap-Data-insert 'erased e-6 (vector 1 (vector 0 e-7 arg-4) hs) e-26) e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-27))) (else (let ((act-27 (set-box! arg-0 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-28 (vector-ref sc4 6))) (let ((e-27 (vector-ref sc4 7))) (let ((e-26 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (let ((e-21 (vector-ref sc4 22))) (let ((e-22 (vector-ref sc4 23))) (let ((e-23 (vector-ref sc4 24))) (let ((e-24 (vector-ref sc4 25))) (let ((e-25 (vector-ref sc4 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-27 (NameMap-Data-insert 'erased e-6 (vector 1 (vector 0 e-7 arg-4) hs) e-26) e-8 e-9 (vector 1 (vector 0 e-6 (vector 0 e-7 arg-4)) e-10) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-27))))))))))))))))))))))) +(define Context-Core-addHintFor (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) arg-2 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) arg-3 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((hs (Context-Core-case--20328-15504 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 (NameMap-Data-lookup 'erased e-6 (let ((sc3 e-5)) (let ((e-26 (vector-ref sc3 8))) e-26)))))) (let ((sc3 arg-5)) (cond ((equal? sc3 0) (let ((act-27 (set-box! arg-0 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-28 (vector-ref sc4 6))) (let ((e-27 (vector-ref sc4 7))) (let ((e-26 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (let ((e-21 (vector-ref sc4 22))) (let ((e-22 (vector-ref sc4 23))) (let ((e-23 (vector-ref sc4 24))) (let ((e-24 (vector-ref sc4 25))) (let ((e-25 (vector-ref sc4 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-27 (NameMap-Data-insert 'erased e-6 (vector 1 (vector 0 e-7 arg-4) hs) e-26) e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-27))) (else (let ((act-27 (set-box! arg-0 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-28 (vector-ref sc4 6))) (let ((e-27 (vector-ref sc4 7))) (let ((e-26 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (let ((e-21 (vector-ref sc4 22))) (let ((e-22 (vector-ref sc4 23))) (let ((e-23 (vector-ref sc4 24))) (let ((e-24 (vector-ref sc4 25))) (let ((e-25 (vector-ref sc4 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-27 (NameMap-Data-insert 'erased e-6 (vector 1 (vector 0 e-7 arg-4) hs) e-26) e-8 e-9 (vector 1 (vector 0 e-6 (vector 0 e-7 arg-4)) e-10) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-27))))))))))))))))))))))) (define Context-Core-addHashWithNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-1 arg-3 arg-4 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Context-Core-addHash 'erased arg-1 arg-2 e-5 ext-0)))))))) (define Context-Core-addHash (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 (let ((sc2 arg-2)) (let ((e-27 (vector-ref sc2 2))) ((e-27 (let ((sc3 e-5)) (let ((e-39 (vector-ref sc3 16))) e-39))) arg-3))) e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define Context-Core-addGlobalHint (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-1 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-27 (vector-ref sc2 6))) (let ((e-26 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-27 e-26 e-7 (NameMap-Data-insert 'erased e-6 arg-2 e-8) e-9 e-10 (vector 1 (vector 0 e-6 arg-2) e-11) e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))))) +(define Context-Core-addGlobalHint (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) arg-1 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-27 (vector-ref sc2 6))) (let ((e-26 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-27 e-26 e-7 (NameMap-Data-insert 'erased e-6 arg-2 e-8) e-9 e-10 (vector 1 (vector 0 e-6 arg-2) e-11) e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))))) (define Context-Core-addExtraDir (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-35)) (let ((e-43 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-43 e-36 e-37 e-38 e-39 (List-Prelude-C-43C-43 'erased e-40 (vector 1 arg-1 (vector 0 ))) e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define Context-Core-addEntry (lambda (arg-0 arg-1 arg-2) (Context-Core-case--8931-4851 arg-2 arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat (let ((sc0 arg-2)) (let ((e-5 (vector-ref sc0 6))) e-5)) (Prelude-fromInteger_Num__Nat 0))))) -(define Context-Core-addDirective (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--20613-15762 arg-0 arg-2 arg-1 e-5 (Options-Core-getCG (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-1)) ext-0)))))))) -(define Context-Core-addDef (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-addCtxt arg-1 arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-26 (let ((act-26 (set-box! arg-0 (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 2))) (let ((e-29 (vector-ref sc3 3))) (let ((e-28 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-27 (vector-ref sc3 6))) (let ((e-26 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (let ((e-21 (vector-ref sc3 22))) (let ((e-22 (vector-ref sc3 23))) (let ((e-23 (vector-ref sc3 24))) (let ((e-24 (vector-ref sc3 25))) (let ((e-25 (vector-ref sc3 26))) (vector 0 e-3 e-1 e-29 e-28 e-4 e-27 e-26 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((_-0 (vector 0 e-2 e-3))) ((Context-Core-case--15540-11200 arg-2 arg-1 arg-0 e-5 e-2 e-3 _-0 e-7 (let ((sc4 arg-2)) (let ((e-17 (vector-ref sc4 18))) e-17))) ext-0)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 e-2))))))))))))))))))))))))) +(define Context-Core-addEntry (lambda (arg-0 arg-1 arg-2) (Context-Core-case--9185-5080 arg-2 arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat (let ((sc0 arg-2)) (let ((e-5 (vector-ref sc0 6))) e-5)) (Prelude-fromInteger_Num__Nat 0))))) +(define Context-Core-addDirective (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--21436-16497 arg-0 arg-2 arg-1 e-5 (Options-Core-getCG (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-1)) ext-0)))))))) +(define Context-Core-addDef (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-addCtxt arg-1 arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-26 (let ((act-26 (set-box! arg-0 (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 2))) (let ((e-29 (vector-ref sc3 3))) (let ((e-28 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-27 (vector-ref sc3 6))) (let ((e-26 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (let ((e-21 (vector-ref sc3 22))) (let ((e-22 (vector-ref sc3 23))) (let ((e-23 (vector-ref sc3 24))) (let ((e-24 (vector-ref sc3 25))) (let ((e-25 (vector-ref sc3 26))) (vector 0 e-3 e-1 e-29 e-28 e-4 e-27 e-26 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((_-0 (vector 0 e-2 e-3))) ((Context-Core-case--16211-11797 arg-2 arg-1 arg-0 e-5 e-2 e-3 _-0 e-7 (let ((sc4 arg-2)) (let ((e-17 (vector-ref sc4 18))) e-17))) ext-0)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 e-2))))))))))))))))))))))))) (define Context-Core-addDataDir (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-35)) (let ((e-43 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-43 e-36 e-37 e-38 e-39 e-40 e-41 (List-Prelude-C-43C-43 'erased e-42 (vector 1 arg-1 (vector 0 )))) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define Context-Core-addData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-getNextTypeTag arg-0 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((tydef (Context-Core-newDef e-2 e-3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-1 e-5 arg-2 (vector 6 e-7 e-4 (Context-Core-paramPos (vector 9 arg-3) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc4 eta-1)) (let ((e-8 (vector-ref sc4 4))) e-8))) e-1)) (Context-Core-n--21400-16473-allDet e-5 e-4 e-3 e-2 e-1 arg-3 arg-2 arg-1 arg-0 e-4) (Context-Core-defaultFlags) (vector 0 ) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc4 eta-1)) (let ((e-10 (vector-ref sc4 2))) e-10))) e-1) (vector 0 ))))) (let ((act-26 ((Context-Core-addCtxt e-3 tydef (let ((sc4 e-6)) (let ((e-33 (vector-ref sc4 1))) e-33))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Context-Core-n--21400-16475-addDataConstructors e-5 e-4 e-3 e-2 e-1 arg-3 arg-2 arg-1 arg-0 0 e-1 e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-28 (let ((act-28 (set-box! arg-0 (let ((sc7 e-6)) (let ((e-36 (vector-ref sc7 2))) (let ((e-35 (vector-ref sc7 3))) (let ((e-34 (vector-ref sc7 4))) (let ((e-33 (vector-ref sc7 5))) (let ((e-32 (vector-ref sc7 6))) (let ((e-31 (vector-ref sc7 7))) (let ((e-30 (vector-ref sc7 8))) (let ((e-29 (vector-ref sc7 9))) (let ((e-28 (vector-ref sc7 10))) (let ((e-27 (vector-ref sc7 11))) (let ((e-26 (vector-ref sc7 12))) (let ((e-12 (vector-ref sc7 13))) (let ((e-13 (vector-ref sc7 14))) (let ((e-14 (vector-ref sc7 15))) (let ((e-15 (vector-ref sc7 16))) (let ((e-16 (vector-ref sc7 17))) (let ((e-17 (vector-ref sc7 18))) (let ((e-18 (vector-ref sc7 19))) (let ((e-19 (vector-ref sc7 20))) (let ((e-20 (vector-ref sc7 21))) (let ((e-21 (vector-ref sc7 22))) (let ((e-22 (vector-ref sc7 23))) (let ((e-23 (vector-ref sc7 24))) (let ((e-24 (vector-ref sc7 25))) (let ((e-25 (vector-ref sc7 26))) (vector 0 e-11 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-28)))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (vector 1 e-10)))))))))))))))))))))))))))))))))))))))) -(define Context-Core-addCtxt (lambda (arg-0 arg-1 arg-2) (Context-Core-case--8796-4728 arg-2 arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat (let ((sc0 arg-2)) (let ((e-5 (vector-ref sc0 6))) e-5)) (Prelude-fromInteger_Num__Nat 0))))) +(define Context-Core-addData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-getNextTypeTag arg-0 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((tydef (Context-Core-newDef e-2 e-3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-1 e-5 arg-2 (vector 6 e-7 e-4 (Context-Core-paramPos (vector 9 arg-3) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc4 eta-1)) (let ((e-8 (vector-ref sc4 4))) e-8))) e-1)) (Context-Core-n--22223-17208-allDet e-5 e-4 e-3 e-2 e-1 arg-3 arg-2 arg-1 arg-0 e-4) (Context-Core-defaultFlags) (vector 0 ) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc4 eta-1)) (let ((e-10 (vector-ref sc4 2))) e-10))) e-1) (vector 0 ))))) (let ((act-26 ((Context-Core-addCtxt e-3 tydef (let ((sc4 e-6)) (let ((e-33 (vector-ref sc4 1))) e-33))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Context-Core-n--22223-17210-addDataConstructors e-5 e-4 e-3 e-2 e-1 arg-3 arg-2 arg-1 arg-0 0 e-1 e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-28 (let ((act-28 (set-box! arg-0 (let ((sc7 e-6)) (let ((e-36 (vector-ref sc7 2))) (let ((e-35 (vector-ref sc7 3))) (let ((e-34 (vector-ref sc7 4))) (let ((e-33 (vector-ref sc7 5))) (let ((e-32 (vector-ref sc7 6))) (let ((e-31 (vector-ref sc7 7))) (let ((e-30 (vector-ref sc7 8))) (let ((e-29 (vector-ref sc7 9))) (let ((e-28 (vector-ref sc7 10))) (let ((e-27 (vector-ref sc7 11))) (let ((e-26 (vector-ref sc7 12))) (let ((e-12 (vector-ref sc7 13))) (let ((e-13 (vector-ref sc7 14))) (let ((e-14 (vector-ref sc7 15))) (let ((e-15 (vector-ref sc7 16))) (let ((e-16 (vector-ref sc7 17))) (let ((e-17 (vector-ref sc7 18))) (let ((e-18 (vector-ref sc7 19))) (let ((e-19 (vector-ref sc7 20))) (let ((e-20 (vector-ref sc7 21))) (let ((e-21 (vector-ref sc7 22))) (let ((e-22 (vector-ref sc7 23))) (let ((e-23 (vector-ref sc7 24))) (let ((e-24 (vector-ref sc7 25))) (let ((e-25 (vector-ref sc7 26))) (vector 0 e-11 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-28)))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (vector 1 e-10)))))))))))))))))))))))))))))))))))))))) +(define Context-Core-addCtxt (lambda (arg-0 arg-1 arg-2) (Context-Core-case--9049-4956 arg-2 arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat (let ((sc0 arg-2)) (let ((e-5 (vector-ref sc0 6))) e-5)) (Prelude-fromInteger_Num__Nat 0))))) (define Context-Core-addContextEntry (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-addEntry arg-1 (vector 0 arg-2) (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-26 (let ((act-26 (set-box! arg-0 (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 2))) (let ((e-29 (vector-ref sc3 3))) (let ((e-28 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-27 (vector-ref sc3 6))) (let ((e-26 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (let ((e-21 (vector-ref sc3 22))) (let ((e-22 (vector-ref sc3 23))) (let ((e-23 (vector-ref sc3 24))) (let ((e-24 (vector-ref sc3 25))) (let ((e-25 (vector-ref sc3 26))) (vector 0 e-3 e-1 e-29 e-28 e-4 e-27 e-26 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 e-2)))))))))))))))))))) +(define Context-Core-addContextAlias (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((act-26 (Context-Core-newAlias arg-1 arg-2 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (set-box! arg-0 (let ((sc4 e-5)) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-28 (vector-ref sc4 6))) (let ((e-27 (vector-ref sc4 7))) (let ((e-26 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (let ((e-21 (vector-ref sc4 22))) (let ((e-22 (vector-ref sc4 23))) (let ((e-23 (vector-ref sc4 24))) (let ((e-24 (vector-ref sc4 25))) (let ((e-25 (vector-ref sc4 26))) (vector 0 e-7 e-1 e-2 e-3 e-4 e-28 e-27 e-26 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-27))))))))(else (vector 1 (vector 0 ))))))))))))))))) (define Context-Core-addBuiltin (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-addDef arg-1 arg-2 (vector 0 (FC-Core-emptyFC) arg-2 arg-3 (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 ) (vector 2 ) arg-4 (vector 1 (vector 0 ) (vector 0 )) (vector 0 ) (vector 0 ) 1 1 0 (vector 4 arg-0 arg-5) (vector 0 ) (vector 0 ) (vector 0 )) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) +(define Context-Core-addAlias (lambda (arg-0 arg-1 arg-2 arg-3) (Context-Core-case--8781-4710 arg-3 arg-2 arg-1 arg-0 (Name-Core-userNameRoot arg-0)))) (define Context-Core-Grow (lambda () (Context-Core-initSize))) -(define Directory-System-case--1957-2323 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Directory-System-returnError 'erased 'erased arg-1)) (else (Directory-System-ok 'erased 'erased arg-1 (Prelude-prim__getString arg-3))))))) -(define Directory-System-case--1882-2240 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Directory-System-returnError 'erased 'erased arg-1)) (else (Directory-System-ok 'erased 'erased arg-1 arg-3)))))) -(define Directory-System-case--1823-2179 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 ))))) (else (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 1 (Prelude-prim__getString arg-2)))))))))) -(define Directory-System-case--1737-2089 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Directory-System-ok 'erased 'erased arg-1 (vector 0 ))) (else (Directory-System-returnError 'erased 'erased arg-1)))))) -(define Directory-System-case--1564-1910 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 1 )))))) ((equal? sc0 1) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 2 )))))) ((equal? sc0 2) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 3 )))))) ((equal? sc0 3) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 4 )))))) ((equal? sc0 4) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 5 ))))))(else (let ((sc0 (let ((sc1 (let ((sc2 arg-2)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (vector 0 (vector 0 (Prelude-C-45_Neg__Int arg-3 5))))))))))) +(define Directory-System-case--1959-2331 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Directory-System-returnError 'erased 'erased arg-1)) (else (Directory-System-ok 'erased 'erased arg-1 (Prelude-prim__getString arg-3))))))) +(define Directory-System-case--1884-2248 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Directory-System-returnError 'erased 'erased arg-1)) (else (Directory-System-ok 'erased 'erased arg-1 arg-3)))))) +(define Directory-System-case--1825-2187 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 ))))) (else (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 1 (Prelude-prim__getString arg-2)))))))))) +(define Directory-System-case--1739-2097 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Directory-System-ok 'erased 'erased arg-1 (vector 0 ))) (else (Directory-System-returnError 'erased 'erased arg-1)))))) +(define Directory-System-case--1566-1918 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 1 )))))) ((equal? sc0 1) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 2 )))))) ((equal? sc0 2) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 3 )))))) ((equal? sc0 3) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 4 )))))) ((equal? sc0 4) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 5 ))))))(else (let ((sc0 (let ((sc1 (let ((sc2 arg-2)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (vector 0 (vector 0 (Prelude-C-45_Neg__Int arg-3 5))))))))))) (define Directory-System-returnError (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-2)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (Directory-System-prim_fileErrno eta-0)))))) (lambda (err) (let ((sc1 err)) (cond ((equal? sc1 0) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 1 )))))) ((equal? sc1 1) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 2 )))))) ((equal? sc1 2) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 3 )))))) ((equal? sc1 3) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 4 )))))) ((equal? sc1 4) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 5 ))))))(else (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (vector 0 (vector 0 (Prelude-C-45_Neg__Int err 5))))))))))))))) -(define Directory-System-openDir (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (Directory-System-prim_openDir arg-2 eta-0)))))) (lambda (res) (Directory-System-case--1882-2240 'erased arg-1 arg-2 res (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr res) 0)))))))) +(define Directory-System-openDir (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (Directory-System-prim_openDir arg-2 eta-0)))))) (lambda (res) (Directory-System-case--1884-2248 'erased arg-1 arg-2 res (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr res) 0)))))))) (define Directory-System-ok (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 (let ((sc2 arg-2)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (vector 1 arg-3)))))) -(define Directory-System-dirEntry (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (Directory-System-prim_dirEntry arg-2 eta-0)))))) (lambda (res) (Directory-System-case--1957-2323 'erased arg-1 arg-2 res (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased res)) 0)))))))) -(define Directory-System-currentDir (lambda (arg-0 arg-1) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (Directory-System-prim_currentDir eta-0)))))) (lambda (res) (Directory-System-case--1823-2179 'erased arg-1 res (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased res)) 0)))))))) -(define Directory-System-createDir (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (Directory-System-prim_createDir arg-2 eta-0)))))) (lambda (res) (Directory-System-case--1737-2089 'erased arg-1 arg-2 res (Prelude-C-61C-61_Eq__Int res 0)))))))) +(define Directory-System-dirEntry (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (Directory-System-prim_dirEntry arg-2 eta-0)))))) (lambda (res) (Directory-System-case--1959-2331 'erased arg-1 arg-2 res (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased res)) 0)))))))) +(define Directory-System-currentDir (lambda (arg-0 arg-1) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (Directory-System-prim_currentDir eta-0)))))) (lambda (res) (Directory-System-case--1825-2187 'erased arg-1 res (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased res)) 0)))))))) +(define Directory-System-createDir (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (Directory-System-prim_createDir arg-2 eta-0)))))) (lambda (res) (Directory-System-case--1739-2097 'erased arg-1 arg-2 res (Prelude-C-61C-61_Eq__Int res 0)))))))) (define Directory-System-closeDir (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (Directory-System-prim_closeDir arg-2 eta-0))))))) (define Directory-System-changeDir (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (Directory-System-prim_changeDir arg-2 eta-0)))))) (lambda (ok) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (Prelude-C-61C-61_Eq__Int ok 0)))))))))) -(define Clock-System-with--1792-640 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Clock-System-fetchOSClock arg-0) eta-0))) (Clock-System-fromOSClock arg-0 act-24 eta-0)))) (else (lambda (eta-0) (let ((act-24 ((Clock-System-fetchOSClock arg-0) eta-0))) (let ((act-25 (Prelude-map_Functor__IO 'erased 'erased (lambda (arg-2) (Prelude-C-61C-61_Eq__Int arg-2 1)) (lambda (eta-1) (Clock-System-osClockValid act-24 eta-1)) eta-0))) (let ((sc1 act-25)) (cond ((equal? sc1 0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (vector 1 eta-1)) (lambda (eta-1) (Clock-System-fromOSClock arg-0 act-24 eta-1)) eta-0)) (else (vector 0 )))))))))))) -(define Clock-System-case--1794-677 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (vector 1 eta-1)) (lambda (eta-1) (Clock-System-fromOSClock arg-0 arg-1 eta-1)) eta-0))) (else (lambda (eta-0) (vector 0 ))))))) +(define Clock-System-with--1794-648 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Clock-System-fetchOSClock arg-0) eta-0))) (Clock-System-fromOSClock arg-0 act-24 eta-0)))) (else (lambda (eta-0) (let ((act-24 ((Clock-System-fetchOSClock arg-0) eta-0))) (let ((act-25 (Prelude-map_Functor__IO 'erased 'erased (lambda (arg-2) (Prelude-C-61C-61_Eq__Int arg-2 1)) (lambda (eta-1) (Clock-System-osClockValid act-24 eta-1)) eta-0))) (let ((sc1 act-25)) (cond ((equal? sc1 0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (vector 1 eta-1)) (lambda (eta-1) (Clock-System-fromOSClock arg-0 act-24 eta-1)) eta-0)) (else (vector 0 )))))))))))) +(define Clock-System-case--1796-685 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (vector 1 eta-1)) (lambda (eta-1) (Clock-System-fromOSClock arg-0 arg-1 eta-1)) eta-0))) (else (lambda (eta-0) (vector 0 ))))))) (define Clock-System-seconds (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (define Clock-System-prim_clockTimeMonotonic (lambda (ext-0) (apply blodwen-clock-time-monotonic (blodwen-read-args (vector 0 ))))) (define Clock-System-osClockValid (lambda (arg-0 ext-0) (apply blodwen-is-time? (blodwen-read-args (vector 1 (vector "System.Clock.OSClock" ) arg-0 (vector 0 )))))) @@ -2653,49 +2693,49 @@ (define Clock-System-isClockMandatory (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((5) (vector 1 )) ((6) (vector 1 ))(else (vector 0 )))))) (define Clock-System-fromOSClock (lambda (arg-0 arg-1 ext-0) (let ((act-24 (apply blodwen-clock-second (blodwen-read-args (vector 1 (vector "System.Clock.OSClock" ) arg-1 (vector 0 )))))) (let ((act-25 (apply blodwen-clock-nanosecond (blodwen-read-args (vector 1 (vector "System.Clock.OSClock" ) arg-1 (vector 0 )))))) (vector 0 arg-0 act-24 act-25))))) (define Clock-System-fetchOSClock (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (apply blodwen-clock-time-utc (blodwen-read-args (vector 0 ))))) ((1) (lambda (eta-0) (Clock-System-prim_clockTimeMonotonic eta-0))) ((3) (lambda (eta-0) (apply blodwen-clock-time-process (blodwen-read-args (vector 0 ))))) ((4) (lambda (eta-0) (apply blodwen-clock-time-thread (blodwen-read-args (vector 0 ))))) ((5) (lambda (eta-0) (apply blodwen-clock-time-gccpu (blodwen-read-args (vector 0 ))))) ((6) (lambda (eta-0) (apply blodwen-clock-time-gcreal (blodwen-read-args (vector 0 ))))) (else (lambda (eta-0) (Clock-System-prim_clockTimeMonotonic eta-0))))))) -(define Clock-System-clockTime (lambda (arg-0) (Clock-System-with--1792-640 arg-0 (Clock-System-isClockMandatory arg-0)))) -(define StringMap-Data-case--4236-2826 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((vC-39 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) eta-0)) (lambda () arg-3) (StringMap-Data-lookup 'erased e-2 arg-2)) e-3))) (Prelude-pure_Applicative__List 'erased (vector 0 e-2 vC-39)))))))) -(define StringMap-Data-case--3870-2462 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 1 arg-1 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (+ 1 arg-1) e-5))))))) -(define StringMap-Data-case--2660-1391 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 1 e-8 e-12 e-13)))))))))))))) -(define StringMap-Data-case--2401-1294 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-6 arg-5 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 arg-4) (vector 0 arg-3 (vector 1 e-8 e-12 e-13)))))))))))))))) -(define StringMap-Data-case--2401-1183 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-6 arg-5 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 e-8) (vector 0 e-12 (vector 1 e-13 arg-3 arg-2)))))))))))))))) -(define StringMap-Data-case--2238-1152 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (StringMap-Data-case--2401-1183 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (StringMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-4))) (else (StringMap-Data-case--2401-1294 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (StringMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-2))))))) -(define StringMap-Data-case--2238-1042 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 e-2 arg-5 arg-4 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 e-8 e-12 e-13) (vector 0 arg-5 (vector 1 arg-4 arg-3 arg-2)))))))))))))))) -(define StringMap-Data-case--1883-1011 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (StringMap-Data-case--2238-1042 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (StringMap-Data-treeInsertC-39 'erased 'erased arg-8 arg-2 arg-7))) (else (StringMap-Data-case--2238-1152 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (Prelude-C-60C-61_Ord__String arg-8 arg-4))))))) -(define StringMap-Data-case--2012-933 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 arg-4 arg-3 e-8 e-12 e-13)))))))))))))) -(define StringMap-Data-case--2012-844 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 e-8 e-12 e-13 arg-3 arg-2)))))))))))))) -(define StringMap-Data-case--1883-817 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (StringMap-Data-case--2012-844 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (StringMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-5))) (else (StringMap-Data-case--2012-933 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (StringMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-3))))))) -(define StringMap-Data-case--1883-715 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 1 (vector 0 (vector 0 arg-4 arg-1) (vector 0 arg-4 (vector 0 arg-3 arg-2))))) ((equal? sc0 1) (vector 0 (vector 0 arg-4 arg-1))) (else (vector 1 (vector 0 (vector 0 arg-3 arg-2) (vector 0 arg-3 (vector 0 arg-4 arg-1))))))))) -(define StringMap-Data-case--1776-654 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (StringMap-Data-treeLookup 'erased 'erased arg-7 arg-4)) (else (StringMap-Data-treeLookup 'erased 'erased arg-7 arg-2)))))) -(define StringMap-Data-case--1653-607 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (StringMap-Data-treeLookup 'erased 'erased arg-7 arg-6)) (else (StringMap-Data-case--1776-654 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased (Prelude-C-60C-61_Ord__String arg-7 arg-3))))))) -(define StringMap-Data-case--1653-559 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (StringMap-Data-treeLookup 'erased 'erased arg-5 arg-4)) (else (StringMap-Data-treeLookup 'erased 'erased arg-5 arg-2)))))) -(define StringMap-Data-case--1653-516 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 0 )))))) -(define StringMap-Data-n--3767-2340-treeToListC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (arg-3 (vector 0 e-1 e-2))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (StringMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased (lambda (arg-5) (vector 1 arg-5 (StringMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased arg-3 e-7))) e-5)))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 5))) (StringMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased (lambda (arg-5) (vector 1 arg-5 (StringMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased (lambda (arg-6) (vector 1 arg-6 (StringMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased arg-3 e-14))) e-12))) e-10))))))))) -(define StringMap-Data-n--4227-2814-inserted (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-C-62C-62C-61_Monad__List 'erased 'erased (StringMap-Data-toList 'erased arg-1) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((vC-39 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) eta-0)) (lambda () arg-3) (StringMap-Data-lookup 'erased e-2 arg-2)) e-3))) (Prelude-pure_Applicative__List 'erased (vector 0 e-2 vC-39)))))))))) -(define StringMap-Data-treeToList (lambda (arg-0 arg-1 ext-0) (StringMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased (lambda (arg-2) (vector 1 arg-2 (vector 0 ))) ext-0))) -(define StringMap-Data-treeLookup (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (StringMap-Data-case--1653-516 'erased e-2 e-1 arg-2 'erased (Prelude-C-61C-61_Eq__String arg-2 e-1))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (StringMap-Data-case--1653-559 'erased 'erased e-7 e-6 e-5 arg-2 'erased (Prelude-C-60C-61_Ord__String arg-2 e-6)))))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (StringMap-Data-case--1653-607 'erased 'erased e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Prelude-C-60C-61_Ord__String arg-2 e-11)))))))))))) -(define StringMap-Data-treeInsertC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (StringMap-Data-case--1883-715 'erased arg-3 e-2 e-1 arg-2 'erased (Prelude-compare_Ord__String arg-2 e-1))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (StringMap-Data-case--1883-817 'erased 'erased arg-3 e-7 e-6 e-5 arg-2 'erased (Prelude-C-60C-61_Ord__String arg-2 e-6)))))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (StringMap-Data-case--1883-1011 'erased 'erased arg-3 e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Prelude-C-60C-61_Ord__String arg-2 e-11)))))))))))) -(define StringMap-Data-treeInsert (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (StringMap-Data-case--2660-1391 'erased 'erased arg-3 arg-4 arg-2 (StringMap-Data-treeInsertC-39 'erased 'erased arg-2 arg-3 arg-4)))) +(define Clock-System-clockTime (lambda (arg-0) (Clock-System-with--1794-648 arg-0 (Clock-System-isClockMandatory arg-0)))) +(define StringMap-Data-case--4238-2834 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((vC-39 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) eta-0)) (lambda () arg-3) (StringMap-Data-lookup 'erased e-2 arg-2)) e-3))) (Prelude-pure_Applicative__List 'erased (vector 0 e-2 vC-39)))))))) +(define StringMap-Data-case--3872-2470 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 1 arg-1 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (+ 1 arg-1) e-5))))))) +(define StringMap-Data-case--2662-1399 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 1 e-8 e-12 e-13)))))))))))))) +(define StringMap-Data-case--2403-1302 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-6 arg-5 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 arg-4) (vector 0 arg-3 (vector 1 e-8 e-12 e-13)))))))))))))))) +(define StringMap-Data-case--2403-1191 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-6 arg-5 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 e-8) (vector 0 e-12 (vector 1 e-13 arg-3 arg-2)))))))))))))))) +(define StringMap-Data-case--2240-1160 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (StringMap-Data-case--2403-1191 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (StringMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-4))) (else (StringMap-Data-case--2403-1302 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (StringMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-2))))))) +(define StringMap-Data-case--2240-1050 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 e-2 arg-5 arg-4 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 e-8 e-12 e-13) (vector 0 arg-5 (vector 1 arg-4 arg-3 arg-2)))))))))))))))) +(define StringMap-Data-case--1885-1019 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (StringMap-Data-case--2240-1050 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (StringMap-Data-treeInsertC-39 'erased 'erased arg-8 arg-2 arg-7))) (else (StringMap-Data-case--2240-1160 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (Prelude-C-60C-61_Ord__String arg-8 arg-4))))))) +(define StringMap-Data-case--2014-941 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 arg-4 arg-3 e-8 e-12 e-13)))))))))))))) +(define StringMap-Data-case--2014-852 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 e-8 e-12 e-13 arg-3 arg-2)))))))))))))) +(define StringMap-Data-case--1885-825 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (StringMap-Data-case--2014-852 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (StringMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-5))) (else (StringMap-Data-case--2014-941 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (StringMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-3))))))) +(define StringMap-Data-case--1885-723 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 1 (vector 0 (vector 0 arg-4 arg-1) (vector 0 arg-4 (vector 0 arg-3 arg-2))))) ((equal? sc0 1) (vector 0 (vector 0 arg-4 arg-1))) (else (vector 1 (vector 0 (vector 0 arg-3 arg-2) (vector 0 arg-3 (vector 0 arg-4 arg-1))))))))) +(define StringMap-Data-case--1778-662 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (StringMap-Data-treeLookup 'erased 'erased arg-7 arg-4)) (else (StringMap-Data-treeLookup 'erased 'erased arg-7 arg-2)))))) +(define StringMap-Data-case--1655-615 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (StringMap-Data-treeLookup 'erased 'erased arg-7 arg-6)) (else (StringMap-Data-case--1778-662 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased (Prelude-C-60C-61_Ord__String arg-7 arg-3))))))) +(define StringMap-Data-case--1655-567 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (StringMap-Data-treeLookup 'erased 'erased arg-5 arg-4)) (else (StringMap-Data-treeLookup 'erased 'erased arg-5 arg-2)))))) +(define StringMap-Data-case--1655-524 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 0 )))))) +(define StringMap-Data-n--3769-2348-treeToListC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (arg-3 (vector 0 e-1 e-2))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (StringMap-Data-n--3769-2348-treeToListC-39 'erased 'erased 'erased (lambda (arg-5) (vector 1 arg-5 (StringMap-Data-n--3769-2348-treeToListC-39 'erased 'erased 'erased arg-3 e-7))) e-5)))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 5))) (StringMap-Data-n--3769-2348-treeToListC-39 'erased 'erased 'erased (lambda (arg-5) (vector 1 arg-5 (StringMap-Data-n--3769-2348-treeToListC-39 'erased 'erased 'erased (lambda (arg-6) (vector 1 arg-6 (StringMap-Data-n--3769-2348-treeToListC-39 'erased 'erased 'erased arg-3 e-14))) e-12))) e-10))))))))) +(define StringMap-Data-n--4229-2822-inserted (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-C-62C-62C-61_Monad__List 'erased 'erased (StringMap-Data-toList 'erased arg-1) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((vC-39 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) eta-0)) (lambda () arg-3) (StringMap-Data-lookup 'erased e-2 arg-2)) e-3))) (Prelude-pure_Applicative__List 'erased (vector 0 e-2 vC-39)))))))))) +(define StringMap-Data-treeToList (lambda (arg-0 arg-1 ext-0) (StringMap-Data-n--3769-2348-treeToListC-39 'erased 'erased 'erased (lambda (arg-2) (vector 1 arg-2 (vector 0 ))) ext-0))) +(define StringMap-Data-treeLookup (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (StringMap-Data-case--1655-524 'erased e-2 e-1 arg-2 'erased (Prelude-C-61C-61_Eq__String arg-2 e-1))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (StringMap-Data-case--1655-567 'erased 'erased e-7 e-6 e-5 arg-2 'erased (Prelude-C-60C-61_Ord__String arg-2 e-6)))))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (StringMap-Data-case--1655-615 'erased 'erased e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Prelude-C-60C-61_Ord__String arg-2 e-11)))))))))))) +(define StringMap-Data-treeInsertC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (StringMap-Data-case--1885-723 'erased arg-3 e-2 e-1 arg-2 'erased (Prelude-compare_Ord__String arg-2 e-1))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (StringMap-Data-case--1885-825 'erased 'erased arg-3 e-7 e-6 e-5 arg-2 'erased (Prelude-C-60C-61_Ord__String arg-2 e-6)))))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (StringMap-Data-case--1885-1019 'erased 'erased arg-3 e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Prelude-C-60C-61_Ord__String arg-2 e-11)))))))))))) +(define StringMap-Data-treeInsert (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (StringMap-Data-case--2662-1399 'erased 'erased arg-3 arg-4 arg-2 (StringMap-Data-treeInsertC-39 'erased 'erased arg-2 arg-3 arg-4)))) (define StringMap-Data-toList (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (StringMap-Data-treeToList 'erased 'erased e-3))))))) (define StringMap-Data-singleton (lambda (arg-0 arg-1 arg-2) (vector 1 0 (vector 0 arg-1 arg-2)))) -(define StringMap-Data-mergeWith (lambda (arg-0 arg-1 arg-2 arg-3) (StringMap-Data-insertFrom 'erased (StringMap-Data-n--4227-2814-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--4229-2822-inserted 'erased arg-3 arg-2 arg-1) arg-2))) (define StringMap-Data-mergeLeft (lambda (arg-0 arg-1 arg-2) (StringMap-Data-mergeWith 'erased (lambda (eta-0) (lambda (eta-1) eta-0)) arg-1 arg-2))) (define StringMap-Data-lookup (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (StringMap-Data-treeLookup 'erased 'erased arg-1 e-3))))))) (define StringMap-Data-insertFrom (lambda (arg-0 ext-0 ext-1) (Basics-Prelude-flip 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Prelude-foldl_Foldable__List 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Basics-Prelude-flip 'erased 'erased 'erased (lambda (eta-4) (Basics-Prelude-uncurry 'erased 'erased 'erased (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (StringMap-Data-insert 'erased eta-5 eta-6 eta-7)))) eta-4)) eta-2 eta-3))) eta-0 eta-1))) ext-0 ext-1))) -(define StringMap-Data-insert (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 0 (vector 0 arg-1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (StringMap-Data-case--3870-2462 'erased e-2 arg-2 e-3 arg-1 (StringMap-Data-treeInsert 'erased 'erased arg-1 arg-2 e-3))))))))) +(define StringMap-Data-insert (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 0 (vector 0 arg-1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (StringMap-Data-case--3872-2470 'erased e-2 arg-2 e-3 arg-1 (StringMap-Data-treeInsert 'erased 'erased arg-1 arg-2 e-3))))))))) (define StringMap-Data-fromList (lambda (arg-0 arg-1) (Prelude-foldl_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Basics-Prelude-flip 'erased 'erased 'erased (lambda (eta-2) (Basics-Prelude-uncurry 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (StringMap-Data-insert 'erased eta-3 eta-4 eta-5)))) eta-2)) eta-0 eta-1))) (StringMap-Data-empty 'erased) arg-1))) (define StringMap-Data-empty (lambda (arg-0) (vector 0 ))) -(define IOArray-Data-case--2076-6517 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (List-Data-reverse 'erased arg-4))))) (else (let ((sc1 (let ((sc2 arg-2)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (IOArray-Data-readArray 'erased 'erased arg-2 arg-3 arg-6)) (lambda (el) (IOArray-Data-n--2066-6507-iter 'erased 'erased arg-2 arg-3 (b+ arg-6 1 63) arg-5 (vector 1 el arg-4))))))))))) -(define IOArray-Data-case--1894-6434 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (IOArray-Data-max 'erased arg-3)) (else arg-4))))) -(define IOArray-Data-case--1905-6348 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 ))))) (else (let ((sc1 (let ((sc2 arg-2)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (let ((sc2 arg-2)) (let ((e-4 (vector-ref sc2 2))) ((e-4 'erased) (lambda (eta-0) (vector-ref arg-7 arg-5)))))) (lambda (el) (let ((sc2 (let ((sc3 arg-2)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-5 (vector-ref sc2 2))) ((((e-5 'erased) 'erased) (let ((sc3 arg-2)) (let ((e-7 (vector-ref sc3 2))) ((e-7 'erased) (lambda (eta-0) (vector-set! arg-6 arg-5 el)))))) (lambda (_-6413) (IOArray-Data-n--1894-6336-copyFrom 'erased 'erased arg-2 arg-3 arg-4 arg-7 arg-6 (Prelude-C-45_Neg__Int arg-5 1))))))))))))))) -(define IOArray-Data-case--1829-6287 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 ))))) (else (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (lambda (eta-0) (vector-ref (let ((sc2 arg-4)) (let ((e-3 (vector-ref sc2 2))) e-3)) arg-3)))))))))) -(define IOArray-Data-case--1752-6214 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 ))))) (else (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (lambda (eta-0) (vector-set! (let ((sc2 arg-5)) (let ((e-3 (vector-ref sc2 2))) e-3)) arg-4 (vector 1 arg-3))))))))))) -(define IOArray-Data-n--2066-6507-iter (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (IOArray-Data-case--2076-6517 'erased 'erased arg-2 arg-3 arg-6 arg-5 arg-4 (Prelude-C-62C-61_Ord__Int arg-4 arg-5)))) -(define IOArray-Data-n--1894-6336-copyFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (IOArray-Data-case--1905-6348 'erased 'erased arg-2 arg-3 arg-4 arg-7 arg-6 arg-5 (Prelude-C-60_Ord__Int arg-7 0)))) -(define IOArray-Data-writeArray (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (IOArray-Data-case--1752-6214 'erased 'erased arg-2 arg-5 arg-4 arg-3 (Prelude-C-124C-124 (Prelude-C-60_Ord__Int arg-4 0) (lambda () (Prelude-C-62C-61_Ord__Int arg-4 (IOArray-Data-max 'erased arg-3))))))) -(define IOArray-Data-toList (lambda (arg-0 arg-1 arg-2 arg-3) (IOArray-Data-n--2066-6507-iter 'erased 'erased arg-2 arg-3 0 (IOArray-Data-max 'erased arg-3) (vector 0 )))) -(define IOArray-Data-readArray (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (IOArray-Data-case--1829-6287 'erased 'erased arg-2 arg-4 arg-3 (Prelude-C-124C-124 (Prelude-C-60_Ord__Int arg-4 0) (lambda () (Prelude-C-62C-61_Ord__Int arg-4 (IOArray-Data-max 'erased arg-3))))))) -(define IOArray-Data-newArrayCopy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((newsizeC-39 (IOArray-Data-case--1894-6434 'erased 'erased arg-2 arg-4 arg-3 (Prelude-C-60_Ord__Int arg-3 (IOArray-Data-max 'erased arg-4))))) (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (IOArray-Data-newArray 'erased 'erased arg-2 newsizeC-39)) (lambda (arrC-39) (let ((sc1 (let ((sc2 arg-2)) (let ((e-5 (vector-ref sc2 1))) e-5)))) (let ((e-5 (vector-ref sc1 2))) ((((e-5 'erased) 'erased) (IOArray-Data-n--1894-6336-copyFrom 'erased 'erased arg-2 arg-4 arg-3 (let ((sc2 arg-4)) (let ((e-7 (vector-ref sc2 2))) e-7)) (let ((sc2 arrC-39)) (let ((e-7 (vector-ref sc2 2))) e-7)) (Prelude-C-45_Neg__Int (IOArray-Data-max 'erased arg-4) 1))) (lambda (_-6483) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-8 (vector-ref sc4 1))) e-8)))) (let ((e-9 (vector-ref sc3 1))) e-9)))) (let ((e-8 (vector-ref sc2 2))) ((e-8 'erased) arrC-39)))))))))))))) +(define IOArray-Data-case--2078-6525 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (List-Data-reverse 'erased arg-4))))) (else (let ((sc1 (let ((sc2 arg-2)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (IOArray-Data-readArray 'erased 'erased arg-2 arg-3 arg-6)) (lambda (el) (IOArray-Data-n--2068-6515-iter 'erased 'erased arg-2 arg-3 (b+ arg-6 1 63) arg-5 (vector 1 el arg-4))))))))))) +(define IOArray-Data-case--1896-6442 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (IOArray-Data-max 'erased arg-3)) (else arg-4))))) +(define IOArray-Data-case--1907-6356 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 ))))) (else (let ((sc1 (let ((sc2 arg-2)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (let ((sc2 arg-2)) (let ((e-4 (vector-ref sc2 2))) ((e-4 'erased) (lambda (eta-0) (vector-ref arg-7 arg-5)))))) (lambda (el) (let ((sc2 (let ((sc3 arg-2)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-5 (vector-ref sc2 2))) ((((e-5 'erased) 'erased) (let ((sc3 arg-2)) (let ((e-7 (vector-ref sc3 2))) ((e-7 'erased) (lambda (eta-0) (vector-set! arg-6 arg-5 el)))))) (lambda (_-6421) (IOArray-Data-n--1896-6344-copyFrom 'erased 'erased arg-2 arg-3 arg-4 arg-7 arg-6 (Prelude-C-45_Neg__Int arg-5 1))))))))))))))) +(define IOArray-Data-case--1831-6295 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 ))))) (else (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (lambda (eta-0) (vector-ref (let ((sc2 arg-4)) (let ((e-3 (vector-ref sc2 2))) e-3)) arg-3)))))))))) +(define IOArray-Data-case--1754-6222 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 ))))) (else (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (lambda (eta-0) (vector-set! (let ((sc2 arg-5)) (let ((e-3 (vector-ref sc2 2))) e-3)) arg-4 (vector 1 arg-3))))))))))) +(define IOArray-Data-n--2068-6515-iter (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (IOArray-Data-case--2078-6525 'erased 'erased arg-2 arg-3 arg-6 arg-5 arg-4 (Prelude-C-62C-61_Ord__Int arg-4 arg-5)))) +(define IOArray-Data-n--1896-6344-copyFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (IOArray-Data-case--1907-6356 'erased 'erased arg-2 arg-3 arg-4 arg-7 arg-6 arg-5 (Prelude-C-60_Ord__Int arg-7 0)))) +(define IOArray-Data-writeArray (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (IOArray-Data-case--1754-6222 'erased 'erased arg-2 arg-5 arg-4 arg-3 (Prelude-C-124C-124 (Prelude-C-60_Ord__Int arg-4 0) (lambda () (Prelude-C-62C-61_Ord__Int arg-4 (IOArray-Data-max 'erased arg-3))))))) +(define IOArray-Data-toList (lambda (arg-0 arg-1 arg-2 arg-3) (IOArray-Data-n--2068-6515-iter 'erased 'erased arg-2 arg-3 0 (IOArray-Data-max 'erased arg-3) (vector 0 )))) +(define IOArray-Data-readArray (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (IOArray-Data-case--1831-6295 'erased 'erased arg-2 arg-4 arg-3 (Prelude-C-124C-124 (Prelude-C-60_Ord__Int arg-4 0) (lambda () (Prelude-C-62C-61_Ord__Int arg-4 (IOArray-Data-max 'erased arg-3))))))) +(define IOArray-Data-newArrayCopy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((newsizeC-39 (IOArray-Data-case--1896-6442 'erased 'erased arg-2 arg-4 arg-3 (Prelude-C-60_Ord__Int arg-3 (IOArray-Data-max 'erased arg-4))))) (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (IOArray-Data-newArray 'erased 'erased arg-2 newsizeC-39)) (lambda (arrC-39) (let ((sc1 (let ((sc2 arg-2)) (let ((e-5 (vector-ref sc2 1))) e-5)))) (let ((e-5 (vector-ref sc1 2))) ((((e-5 'erased) 'erased) (IOArray-Data-n--1896-6344-copyFrom 'erased 'erased arg-2 arg-4 arg-3 (let ((sc2 arg-4)) (let ((e-7 (vector-ref sc2 2))) e-7)) (let ((sc2 arrC-39)) (let ((e-7 (vector-ref sc2 2))) e-7)) (Prelude-C-45_Neg__Int (IOArray-Data-max 'erased arg-4) 1))) (lambda (_-6491) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-8 (vector-ref sc4 1))) e-8)))) (let ((e-9 (vector-ref sc3 1))) e-9)))) (let ((e-8 (vector-ref sc2 2))) ((e-8 'erased) arrC-39)))))))))))))) (define IOArray-Data-newArray (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-2)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (make-vector arg-3 (vector 0 ))))))) (lambda (bind-0) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (vector 0 arg-3 bind-0)))))))))) (define IOArray-IOArray-Data-maxSize (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (define IOArray-Data-max (lambda (arg-0 ext-0) (let ((sc0 ext-0)) (let ((e-1 (vector-ref sc0 1))) e-1)))) @@ -2703,138 +2743,138 @@ (define Prims-IOArray-Data-prim__newArray (lambda (arg-0 arg-1 arg-2 arg-3) (make-vector arg-1 arg-2))) (define Prims-IOArray-Data-prim__arraySet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector-set! arg-1 arg-2 arg-3))) (define Prims-IOArray-Data-prim__arrayGet (lambda (arg-0 arg-1 arg-2 arg-3) (vector-ref arg-1 arg-2))) -(define Binary-Utils-case--5420-3916 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Prelude-negate_Neg__Integer (Binary-Utils-fromLimbs e-5)))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Binary-Utils-fromLimbs e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Integer" eta-0))))))) -(define Binary-Utils-case--5418-3867 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) arg-1 (Binary-Utils-toLimbs (Prelude-negate_Neg__Integer arg-0)) eta-0))))))) (else (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) arg-1 (Binary-Utils-toLimbs arg-0) eta-0))))))))))) -(define Binary-Utils-case--5355-3804 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 1 (Prelude-negate_Neg__Int 1) (vector 0 ))) (else (vector 1 (blodwen-and arg-0 4294967295) (Binary-Utils-toLimbs (blodwen-shr arg-0 32)))))))) -(define Binary-Utils-case--5346-3786 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 )) (else (Binary-Utils-case--5355-3804 arg-0 (Prelude-C-61C-61_Eq__Integer arg-0 (Prelude-negate_Neg__Integer 1)))))))) -(define Binary-Utils-case--4879-3367 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 arg-2) eta-0))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Maybe" eta-0))))))) -(define Binary-Utils-case--4566-3082 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-getDouble (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1)) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (Binary-Utils-incLoc 8 arg-1)))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 e-5)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 "Double")) eta-0))))))) -(define Binary-Utils-case--4564-3015 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-setDouble (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-0 eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (set-box! arg-1 (Binary-Utils-appended 8 arg-2)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary 8 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Buffer-Data-setDouble (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)) arg-0 eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (set-box! arg-1 (Binary-Utils-appended 8 e-5)))) (vector 1 act-26))))))))))))))))) -(define Binary-Utils-case--4476-2928 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 1))) ((equal? sc0 1) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Bool" eta-0))))))) -(define Binary-Utils-case--4393-2838 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-copyData (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-4 (vector-ref sc1 2))) e-4)) arg-1 e-1 0 eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (set-box! arg-0 (Binary-Utils-incLoc arg-1 arg-2)))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 e-1 0 arg-1 arg-1))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't create buffer") eta-0))))))) -(define Binary-Utils-case--4284-2821 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-newBuffer arg-1 eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (Buffer-Data-copyData (let ((sc3 arg-2)) (let ((e-0 (vector-ref sc3 1))) e-0)) (let ((sc3 arg-2)) (let ((e-4 (vector-ref sc3 2))) e-4)) arg-1 e-1 0 eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (set-box! arg-0 (Binary-Utils-incLoc arg-1 arg-2)))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 0 e-1 0 arg-1 arg-1)))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't create buffer") eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 "Binary")) eta-0))))))) -(define Binary-Utils-case--4282-2746 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-copyData (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) 0 arg-2 (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-4)) (let ((e-1 (vector-ref sc1 2))) e-1)) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (set-box! arg-1 (Binary-Utils-appended arg-2 arg-4)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary arg-2 arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Buffer-Data-copyData (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) e-0)) 0 arg-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (set-box! arg-1 (Binary-Utils-appended arg-2 e-5)))) (vector 1 act-26))))))))))))))))) -(define Binary-Utils-case--4128-2661 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-getString (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-1 eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (Binary-Utils-incLoc arg-1 arg-2)))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 e-5)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 (Strings-Prelude-C-43C-43 "String length " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-1) (Strings-Prelude-C-43C-43 " at " (Prelude-show_Show__Int (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)))))))) eta-0))))))) -(define Binary-Utils-case--4126-2593 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-setString (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-4)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-0 eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (set-box! arg-1 (Binary-Utils-appended arg-2 arg-4)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary arg-2 arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Buffer-Data-setString (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)) arg-0 eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (set-box! arg-1 (Binary-Utils-appended arg-2 e-5)))) (vector 1 act-26))))))))))))))))) -(define Binary-Utils-case--3976-2503 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-getInt (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1)) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (Binary-Utils-incLoc 8 arg-1)))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 e-5)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 (Strings-Prelude-C-43C-43 "Int " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))) (vector 0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1)) (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 3))) e-2))))))) eta-0))))))) -(define Binary-Utils-case--3974-2436 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-setInt (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-0 eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (set-box! arg-1 (Binary-Utils-appended 8 arg-2)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary 8 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Buffer-Data-setInt (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)) arg-0 eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (set-box! arg-1 (Binary-Utils-appended 8 e-5)))) (vector 1 act-26))))))))))))))))) -(define Binary-Utils-case--3918-2371 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-getByte (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1)) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (Binary-Utils-incLoc 1 arg-1)))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 e-5)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 "Byte")) eta-0))))))) -(define Binary-Utils-case--3847-2303 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-setByte (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-0 eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (set-box! arg-1 (Binary-Utils-appended 1 arg-2)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary 1 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Buffer-Data-setByte (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)) arg-0 eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (set-box! arg-1 (Binary-Utils-appended 1 e-5)))) (vector 1 act-26))))))))))))))))) -(define Binary-Utils-case--3728-2239 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 e-1 arg-2 arg-6 arg-0))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer expansion failed") eta-0))))))) -(define Binary-Utils-case--3728-2201 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (b+ arg-5 arg-4 63)) (else arg-5))))) -(define Binary-Utils-case--3698-2166 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) (Binary-Utils-newBinary e-1 arg-0) eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer creation failed") eta-0))))))) -(define Binary-Utils-case--3674-2142 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) (Binary-Utils-newBinary e-1 (Binary-Utils-blockSize)) eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer creation failed") eta-0))))))) -(define Binary-Utils-case--3596-2066 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Buffer-Data-rawSize e-2 eta-0))) (vector 1 (vector 0 e-2 0 act-24 act-24)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5)))))))) -(define Binary-Utils-case--3500-1978 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (vector 0 e-0 (b+ e-1 arg-1 63) e-2 e-3)))))))) -(define Binary-Utils-n--5210-3666-writeAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) (((e-1 arg-4) e-3) eta-0))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-n--5210-3666-writeAll 'erased arg-1 arg-2 arg-3 arg-4 'erased e-4) eta-0))))))))))))) -(define Binary-Utils-n--5212-3694-readElems (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Vect-Data-reverse 'erased 'erased arg-5))))(else (let ((e-0 (- arg-6 1))) (lambda (eta-0) (let ((act-24 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 arg-2) eta-0))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-n--5212-3694-readElems 'erased arg-1 arg-2 arg-3 'erased (vector 1 e-5 arg-5) e-0) eta-0))))))))))))) -(define Binary-Utils-n--5125-3610-readElems (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (List-Data-reverse 'erased arg-3))))(else (let ((e-0 (- arg-4 1))) (lambda (eta-0) (let ((act-24 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 arg-2) eta-0))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-n--5125-3610-readElems 'erased arg-1 arg-2 (vector 1 e-5 arg-3) e-0) eta-0))))))))))))) -(define Binary-Utils-n--5123-3573-length_aux (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-5) (else (let ((e-3 (vector-ref sc0 2))) (Binary-Utils-n--5123-3573-length_aux 'erased arg-1 arg-2 arg-3 e-3 (b+ 1 arg-5 63)))))))) -(define Binary-Utils-n--5123-3574-TailRec_length (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Binary-Utils-n--5123-3573-length_aux 'erased arg-1 arg-2 arg-3 arg-4 0))) -(define Binary-Utils-toBuf_TTC__String (lambda (arg-0 arg-1) (let ((req (Buffer-Data-stringByteLength arg-1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-toBuf_TTC__Int arg-0 req eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Binary-Utils-case--4126-2593 arg-1 arg-0 req e-5 e-6 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-6) req)) eta-0))))))))))))))) +(define Binary-Utils-case--5503-3980 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Prelude-negate_Neg__Integer (Binary-Utils-fromLimbs e-5)))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Binary-Utils-fromLimbs e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Integer" eta-0))))))) +(define Binary-Utils-case--5501-3933 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-1)))) arg-1 (Binary-Utils-toLimbs (Prelude-negate_Neg__Integer arg-0)) eta-0))))))) (else (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-1)))) arg-1 (Binary-Utils-toLimbs arg-0) eta-0))))))))))) +(define Binary-Utils-case--5441-3873 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 1 (Prelude-negate_Neg__Int 1) (vector 0 ))) (else (vector 1 (blodwen-and arg-0 4294967295) (Binary-Utils-toLimbs (blodwen-shr arg-0 32)))))))) +(define Binary-Utils-case--5432-3855 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 )) (else (Binary-Utils-case--5441-3873 arg-0 (Prelude-C-61C-61_Eq__Integer arg-0 (Prelude-negate_Neg__Integer 1)))))))) +(define Binary-Utils-case--4965-3436 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 arg-2) eta-0))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Maybe" eta-0))))))) +(define Binary-Utils-case--4643-3148 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-getDouble 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (Binary-Utils-incLoc 8 arg-1)))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 e-5)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 "Double")) eta-0))))))) +(define Binary-Utils-case--4641-3075 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-setDouble 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-0) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (set-box! arg-1 (Binary-Utils-appended 8 arg-2)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary 8 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Buffer-Data-setDouble 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)) arg-0) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (set-box! arg-1 (Binary-Utils-appended 8 e-5)))) (vector 1 act-26))))))))))))))))) +(define Binary-Utils-case--4553-2988 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 1))) ((equal? sc0 1) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Bool" eta-0))))))) +(define Binary-Utils-case--4466-2897 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-copyData 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-4 (vector-ref sc1 2))) e-4)) arg-1 e-1 0) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (set-box! arg-0 (Binary-Utils-incLoc arg-1 arg-2)))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 e-1 0 arg-1 arg-1))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't create buffer") eta-0))))))) +(define Binary-Utils-case--4355-2877 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-newBuffer 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-1) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((Buffer-Data-copyData 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (let ((sc3 arg-2)) (let ((e-0 (vector-ref sc3 1))) e-0)) (let ((sc3 arg-2)) (let ((e-4 (vector-ref sc3 2))) e-4)) arg-1 e-1 0) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (set-box! arg-0 (Binary-Utils-incLoc arg-1 arg-2)))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 0 e-1 0 arg-1 arg-1)))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't create buffer") eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 "Binary")) eta-0))))))) +(define Binary-Utils-case--4353-2800 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-copyData 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) 0 arg-2 (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-4)) (let ((e-1 (vector-ref sc1 2))) e-1))) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (set-box! arg-1 (Binary-Utils-appended arg-2 arg-4)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary arg-2 arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Buffer-Data-copyData 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) e-0)) 0 arg-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1))) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (set-box! arg-1 (Binary-Utils-appended arg-2 e-5)))) (vector 1 act-26))))))))))))))))) +(define Binary-Utils-case--4190-2712 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-getString 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-1) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (Binary-Utils-incLoc arg-1 arg-2)))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 e-5)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 (Strings-Prelude-C-43C-43 "String length " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-1) (Strings-Prelude-C-43C-43 " at " (Prelude-show_Show__Int (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)))))))) eta-0))))))) +(define Binary-Utils-case--4188-2638 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-setString 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-4)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-0) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (set-box! arg-1 (Binary-Utils-appended arg-2 arg-4)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary arg-2 arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Buffer-Data-setString 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)) arg-0) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (set-box! arg-1 (Binary-Utils-appended arg-2 e-5)))) (vector 1 act-26))))))))))))))))) +(define Binary-Utils-case--4029-2545 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-getInt 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (Binary-Utils-incLoc 8 arg-1)))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 e-5)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 (Strings-Prelude-C-43C-43 "Int " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))) (vector 0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1)) (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 3))) e-2))))))) eta-0))))))) +(define Binary-Utils-case--4027-2472 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-setInt 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-0) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (set-box! arg-1 (Binary-Utils-appended 8 arg-2)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary 8 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Buffer-Data-setInt 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)) arg-0) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (set-box! arg-1 (Binary-Utils-appended 8 e-5)))) (vector 1 act-26))))))))))))))))) +(define Binary-Utils-case--3968-2404 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-getByte 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (Binary-Utils-incLoc 1 arg-1)))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 e-5)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 "Byte")) eta-0))))))) +(define Binary-Utils-case--3891-2330 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-setByte 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-0) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (set-box! arg-1 (Binary-Utils-appended 1 arg-2)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary 1 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Buffer-Data-setByte 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)) arg-0) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (set-box! arg-1 (Binary-Utils-appended 1 e-5)))) (vector 1 act-26))))))))))))))))) +(define Binary-Utils-case--3769-2266 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 e-1 arg-2 arg-6 arg-0))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer expansion failed") eta-0))))))) +(define Binary-Utils-case--3769-2225 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (b+ arg-5 arg-4 63)) (else arg-5))))) +(define Binary-Utils-case--3736-2190 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) (Binary-Utils-newBinary e-1 arg-0) eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer creation failed") eta-0))))))) +(define Binary-Utils-case--3709-2163 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) (Binary-Utils-newBinary e-1 (Binary-Utils-blockSize)) eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer creation failed") eta-0))))))) +(define Binary-Utils-case--3628-2084 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Buffer-Data-rawSize 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-2) eta-0))) (vector 1 (vector 0 e-2 0 act-24 act-24)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5)))))))) +(define Binary-Utils-case--3524-1986 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (vector 0 e-0 (b+ e-1 arg-1 63) e-2 e-3)))))))) +(define Binary-Utils-n--5296-3735-writeAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) (((e-1 arg-4) e-3) eta-0))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-n--5296-3735-writeAll 'erased arg-1 arg-2 arg-3 arg-4 'erased e-4) eta-0))))))))))))) +(define Binary-Utils-n--5298-3763-readElems (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Vect-Data-reverse 'erased 'erased arg-5))))(else (let ((e-0 (- arg-6 1))) (lambda (eta-0) (let ((act-24 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 arg-2) eta-0))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-n--5298-3763-readElems 'erased arg-1 arg-2 arg-3 'erased (vector 1 e-5 arg-5) e-0) eta-0))))))))))))) +(define Binary-Utils-n--5211-3679-readElems (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (List-Data-reverse 'erased arg-3))))(else (let ((e-0 (- arg-4 1))) (lambda (eta-0) (let ((act-24 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 arg-2) eta-0))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-n--5211-3679-readElems 'erased arg-1 arg-2 (vector 1 e-5 arg-3) e-0) eta-0))))))))))))) +(define Binary-Utils-n--5209-3642-length_aux (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-5) (else (let ((e-3 (vector-ref sc0 2))) (Binary-Utils-n--5209-3642-length_aux 'erased arg-1 arg-2 arg-3 e-3 (b+ 1 arg-5 63)))))))) +(define Binary-Utils-n--5209-3643-TailRec_length (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Binary-Utils-n--5209-3642-length_aux 'erased arg-1 arg-2 arg-3 arg-4 0))) +(define Binary-Utils-toBuf_TTC__String (lambda (arg-0 arg-1) (let ((req (Buffer-Data-stringByteLength arg-1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-toBuf_TTC__Int arg-0 req eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Binary-Utils-case--4188-2638 arg-1 arg-0 req e-5 e-6 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-6) req)) eta-0))))))))))))))) (define Binary-Utils-toBuf_TTC__Nat (lambda (arg-0 arg-1) (Binary-Utils-toBuf_TTC__Integer arg-0 (Prelude-cast_Cast__Nat_Integer arg-1)))) -(define Binary-Utils-toBuf_TTC__Integer (lambda (arg-0 arg-1) (Binary-Utils-case--5418-3867 arg-1 arg-0 (Prelude-C-60_Ord__Integer arg-1 0)))) -(define Binary-Utils-toBuf_TTC__Int (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-case--3974-2436 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-5) 8)) ext-0)))))))) -(define Binary-Utils-toBuf_TTC__Double (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-case--4564-3015 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-5) 8)) ext-0)))))))) +(define Binary-Utils-toBuf_TTC__Integer (lambda (arg-0 arg-1) (Binary-Utils-case--5501-3933 arg-1 arg-0 (Prelude-C-60_Ord__Integer arg-1 0)))) +(define Binary-Utils-toBuf_TTC__Int (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-case--4027-2472 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-5) 8)) ext-0)))))))) +(define Binary-Utils-toBuf_TTC__Double (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-case--4641-3075 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-5) 8)) ext-0)))))))) (define Binary-Utils-toBuf_TTC__Char (lambda (arg-0 arg-1 ext-0) (Binary-Utils-toBuf_TTC__Int arg-0 (Prelude-cast_Cast__Char_Int arg-1) ext-0))) (define Binary-Utils-toBuf_TTC__Bool (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 1) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))))))) -(define Binary-Utils-toBuf_TTC__Binary (lambda (arg-0 arg-1) (let ((len (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 4))) e-3)))) (lambda (eta-0) (let ((act-24 (Binary-Utils-toBuf_TTC__Int arg-0 len eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Binary-Utils-case--4282-2746 arg-1 arg-0 len e-5 e-6 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-6) len)) eta-0))))))))))))))) +(define Binary-Utils-toBuf_TTC__Binary (lambda (arg-0 arg-1) (let ((len (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 4))) e-3)))) (lambda (eta-0) (let ((act-24 (Binary-Utils-toBuf_TTC__Int arg-0 len eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Binary-Utils-case--4353-2800 arg-1 arg-0 len e-5 e-6 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-6) len)) eta-0))))))))))))))) (define Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (lambda (eta-0) (vector 1 (vector 0 )))))) (define Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 (Builtin-fst 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc1 1))) (((e-1 arg-3) e-2) eta-0))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((sc2 (Builtin-snd 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc2 1))) (((e-1 arg-3) e-3) eta-0))))))))))))) (define Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-2 0 eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-2 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) (((e-1 arg-2) e-2) eta-0)))))))))))))) -(define Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Binary-Utils-toBuf_TTC__Int arg-2 (Binary-Utils-n--5123-3574-TailRec_length 'erased arg-1 arg-3 arg-2 arg-3) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (lambda (arg-4) ((e-1 arg-2) arg-4)))) arg-3) ext-0))))))) -(define Binary-Utils-toBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Binary-Utils-n--5210-3666-writeAll 'erased arg-1 arg-2 arg-4 arg-3 'erased arg-4))) +(define Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Binary-Utils-toBuf_TTC__Int arg-2 (Binary-Utils-n--5209-3643-TailRec_length 'erased arg-1 arg-3 arg-2 arg-3) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (lambda (arg-4) ((e-1 arg-2) arg-4)))) arg-3) ext-0))))))) +(define Binary-Utils-toBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Binary-Utils-n--5296-3735-writeAll 'erased arg-1 arg-2 arg-4 arg-3 'erased arg-4))) (define Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 (Builtin-fst 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc1 1))) (((e-1 arg-3) e-2) eta-0))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((sc2 ((Builtin-snd 'erased 'erased arg-2) e-2))) (let ((e-1 (vector-ref sc2 1))) (((e-1 arg-3) e-3) eta-0))))))))))))) -(define Binary-Utils-fromBuf_TTC__String (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Binary-Utils-case--4128-2661 arg-0 e-5 e-6 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-6) e-5)) ext-0))))))))))))) +(define Binary-Utils-fromBuf_TTC__String (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Binary-Utils-case--4190-2712 arg-0 e-5 e-6 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-6) e-5)) ext-0))))))))))))) (define Binary-Utils-fromBuf_TTC__Nat (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Integer arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Prelude-fromInteger_Num__Nat e-5))))))))) -(define Binary-Utils-fromBuf_TTC__Integer (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Prelude-negate_Neg__Integer (Binary-Utils-fromLimbs e-6))))))))) ((equal? sc1 1) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Binary-Utils-fromLimbs e-6))))))))(else (Binary-Utils-corrupt 'erased "Integer" ext-0))))))))))) -(define Binary-Utils-fromBuf_TTC__Int (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-case--3976-2503 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-5) 8)) ext-0)))))))) -(define Binary-Utils-fromBuf_TTC__Double (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-case--4566-3082 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-5) 8)) ext-0)))))))) +(define Binary-Utils-fromBuf_TTC__Integer (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Prelude-negate_Neg__Integer (Binary-Utils-fromLimbs e-6))))))))) ((equal? sc1 1) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Binary-Utils-fromLimbs e-6))))))))(else (Binary-Utils-corrupt 'erased "Integer" ext-0))))))))))) +(define Binary-Utils-fromBuf_TTC__Int (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-case--4029-2545 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-5) 8)) ext-0)))))))) +(define Binary-Utils-fromBuf_TTC__Double (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-case--4643-3148 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-5) 8)) ext-0)))))))) (define Binary-Utils-fromBuf_TTC__Char (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Prelude-cast_Cast__Int_Char e-5))))))))) (define Binary-Utils-fromBuf_TTC__Bool (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 1)) ((equal? sc1 1) (vector 1 0))(else (Binary-Utils-corrupt 'erased "Bool" ext-0))))))))))) -(define Binary-Utils-fromBuf_TTC__Binary (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Binary-Utils-case--4284-2821 arg-0 e-5 e-6 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-6) e-5)) ext-0))))))))))))) +(define Binary-Utils-fromBuf_TTC__Binary (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Binary-Utils-case--4355-2877 arg-0 e-5 e-6 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-6) e-5)) ext-0))))))))))))) (define Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 (lambda (arg-0 ext-0) (vector 1 (vector 0 )))) (define Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((sc0 (Builtin-fst 'erased 'erased arg-2))) (let ((e-2 (vector-ref sc0 2))) ((e-2 arg-3) ext-0))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((sc1 (Builtin-snd 'erased 'erased arg-2))) (let ((e-2 (vector-ref sc1 2))) ((e-2 arg-3) ext-0))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))) (define Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Binary-Utils-getTag arg-2 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (let ((act-25 (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 2))) ((e-2 arg-2) ext-0))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-6))))))))(else (Binary-Utils-corrupt 'erased "Maybe" ext-0))))))))))) -(define Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-2 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-n--5125-3610-readElems 'erased arg-1 arg-2 (vector 0 ) (Prelude-cast_Cast__Int_Integer e-5)) ext-0)))))))) -(define Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Binary-Utils-n--5212-3694-readElems 'erased arg-2 arg-3 arg-1 'erased (vector 0 ) arg-1))) +(define Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-2 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-n--5211-3679-readElems 'erased arg-1 arg-2 (vector 0 ) (Prelude-cast_Cast__Int_Integer e-5)) ext-0)))))))) +(define Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Binary-Utils-n--5298-3763-readElems 'erased arg-2 arg-3 arg-1 'erased (vector 0 ) arg-1))) (define Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((sc0 (Builtin-fst 'erased 'erased arg-2))) (let ((e-2 (vector-ref sc0 2))) ((e-2 arg-3) ext-0))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((sc1 ((Builtin-snd 'erased 'erased arg-2) e-5))) (let ((e-2 (vector-ref sc1 2))) ((e-2 arg-3) ext-0))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))) -(define Binary-Utils-__Impl_TTC_String (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0)))))) -(define Binary-Utils-__Impl_TTC_Nat (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-0)))))) -(define Binary-Utils-__Impl_TTC_Integer (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Integer arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Integer arg-2106 eta-0)))))) -(define Binary-Utils-__Impl_TTC_Int (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-0)))))) -(define Binary-Utils-__Impl_TTC_Double (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Double arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Double arg-2106 eta-0)))))) -(define Binary-Utils-__Impl_TTC_Char (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Char arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Char arg-2106 eta-0)))))) -(define Binary-Utils-__Impl_TTC_Bool (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2106 eta-0)))))) -(define Binary-Utils-__Impl_TTC_Binary (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Binary arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Binary arg-2106 eta-0)))))) -(define Binary-Utils-__Impl_TTC_C-40C-124UnitC-44MkUnitC-124C-41 (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2106 eta-0)))))) -(define Binary-Utils-__Impl_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-2106 eta-0)))))) -(define Binary-Utils-__Impl_TTC_C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-2106 eta-0)))))) -(define Binary-Utils-__Impl_TTC_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased arg-1 arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased arg-1 arg-2106 eta-0)))))) -(define Binary-Utils-__Impl_TTC_C-40C-40VectC-32C-36nC-41C-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased arg-1 arg-2 arg-2103 arg-2105))) (lambda (arg-2106) (Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased arg-1 arg-2 arg-2106))))) -(define Binary-Utils-__Impl_TTC_C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased arg-2 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased arg-2 arg-2106 eta-0)))))) -(define Binary-Utils-writeToFile (lambda (arg-0 arg-1 ext-0) (Buffer-Data-writeBufferToFile arg-0 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 4))) e-3)) ext-0))) +(define Binary-Utils-__Impl_TTC_String (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-0)))))) +(define Binary-Utils-__Impl_TTC_Nat (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-0)))))) +(define Binary-Utils-__Impl_TTC_Integer (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Integer arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Integer arg-2124 eta-0)))))) +(define Binary-Utils-__Impl_TTC_Int (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-0)))))) +(define Binary-Utils-__Impl_TTC_Double (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Double arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Double arg-2124 eta-0)))))) +(define Binary-Utils-__Impl_TTC_Char (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Char arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Char arg-2124 eta-0)))))) +(define Binary-Utils-__Impl_TTC_Bool (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2124 eta-0)))))) +(define Binary-Utils-__Impl_TTC_Binary (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Binary arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Binary arg-2124 eta-0)))))) +(define Binary-Utils-__Impl_TTC_C-40C-124UnitC-44MkUnitC-124C-41 (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2124 eta-0)))))) +(define Binary-Utils-__Impl_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-2124 eta-0)))))) +(define Binary-Utils-__Impl_TTC_C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-2124 eta-0)))))) +(define Binary-Utils-__Impl_TTC_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased arg-1 arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased arg-1 arg-2124 eta-0)))))) +(define Binary-Utils-__Impl_TTC_C-40C-40VectC-32C-36nC-41C-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased arg-1 arg-2 arg-2121 arg-2123))) (lambda (arg-2124) (Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased arg-1 arg-2 arg-2124))))) +(define Binary-Utils-__Impl_TTC_C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased arg-2 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased arg-2 arg-2124 eta-0)))))) +(define Binary-Utils-writeToFile (lambda (arg-0 arg-1) (Buffer-Data-writeBufferToFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-0 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 4))) e-3))))) (define Binary-Binary-Utils-used (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))) (define Binary-Utils-toRead (lambda (arg-0) (Prelude-C-45_Neg__Int (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))) -(define Binary-Utils-toLimbs (lambda (arg-0) (Binary-Utils-case--5346-3786 arg-0 (Prelude-C-61C-61_Eq__Integer arg-0 0)))) +(define Binary-Utils-toLimbs (lambda (arg-0) (Binary-Utils-case--5432-3855 arg-0 (Prelude-C-61C-61_Eq__Integer arg-0 0)))) (define Binary-Utils-toBuf (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (lambda (arg-3) ((e-1 arg-2) arg-3))))))) -(define Binary-Utils-tag (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-case--3847-2303 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-5) 1)) ext-0)))))))) +(define Binary-Utils-tag (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-case--3891-2330 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-5) 1)) ext-0)))))))) (define Binary-Binary-Utils-size (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) -(define Binary-Utils-readFromFile (lambda (arg-0 ext-0) (let ((act-24 (Buffer-Data-createBufferFromFile arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (Buffer-Data-rawSize e-2 ext-0))) (vector 1 (vector 0 e-2 0 act-25 act-25))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 e-5)))))))) +(define Binary-Utils-readFromFile (lambda (arg-0 ext-0) (let ((act-24 ((Buffer-Data-createBufferFromFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 ((Buffer-Data-rawSize 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-2) ext-0))) (vector 1 (vector 0 e-2 0 act-25 act-25))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 e-5)))))))) (define Binary-Utils-newBinary (lambda (arg-0 arg-1) (vector 0 arg-0 0 arg-1 0))) (define Binary-Binary-Utils-loc (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) -(define Binary-Utils-initBinaryS (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (Buffer-Data-newBuffer arg-0 ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) (Binary-Utils-newBinary e-1 arg-0) ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer creation failed") ext-0))))))))))) -(define Binary-Utils-initBinary (lambda (ext-0) (let ((act-24 (let ((act-24 (Buffer-Data-newBuffer (Binary-Utils-blockSize) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) (Binary-Utils-newBinary e-1 (Binary-Utils-blockSize)) ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer creation failed") ext-0))))))))))) +(define Binary-Utils-initBinaryS (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 ((Buffer-Data-newBuffer 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-0) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) (Binary-Utils-newBinary e-1 arg-0) ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer creation failed") ext-0))))))))))) +(define Binary-Utils-initBinary (lambda (ext-0) (let ((act-24 (let ((act-24 ((Buffer-Data-newBuffer 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Binary-Utils-blockSize)) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) (Binary-Utils-newBinary e-1 (Binary-Utils-blockSize)) ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer creation failed") ext-0))))))))))) (define Binary-Utils-incLoc (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (vector 0 e-0 (b+ e-1 arg-0 63) e-2 e-3)))))))) -(define Binary-Utils-getTag (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-case--3918-2371 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-5) 1)) ext-0)))))))) +(define Binary-Utils-getTag (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-case--3968-2404 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-5) 1)) ext-0)))))))) (define Binary-Utils-fromLimbs (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (+ (Prelude-cast_Cast__Int_Integer e-2) (blodwen-shl (Binary-Utils-fromLimbs e-3) 32))))))))) (define Binary-Utils-fromBuf (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-2) (e-2 arg-2)))))) -(define Binary-Utils-extendBinary (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((newsize (b* e-2 2 63))) (let ((sC-39 (Binary-Utils-case--3728-2201 e-3 e-2 e-1 e-0 arg-0 newsize (Prelude-C-60_Ord__Int (Prelude-C-45_Neg__Int newsize e-1) arg-0)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-resizeBuffer e-0 sC-39 eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (vector 1 (vector 0 e-4 e-1 sC-39 e-3)))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer expansion failed") eta-0))))))))))))))))))) +(define Binary-Utils-extendBinary (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((newsize (b* e-2 2 63))) (let ((sC-39 (Binary-Utils-case--3769-2225 e-3 e-2 e-1 e-0 arg-0 newsize (Prelude-C-60_Ord__Int (Prelude-C-45_Neg__Int newsize e-1) arg-0)))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-resizeBuffer 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-0 sC-39) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (vector 1 (vector 0 e-4 e-1 sC-39 e-3)))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer expansion failed") eta-0))))))))))))))))))) (define Binary-Utils-corrupt (lambda (arg-0 arg-1 ext-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 2 arg-1)) ext-0))) (define Binary-Binary-Utils-buf (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (define Binary-Utils-blockSize (lambda () 655360)) (define Binary-Utils-avail (lambda (arg-0) (Prelude-C-45_Neg__Int (Prelude-C-45_Neg__Int (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))) 1))) (define Binary-Utils-appended (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (vector 0 e-0 (b+ e-1 arg-0 63) e-2 (b+ e-3 arg-0 63))))))))) -(define Buffer-Data-case--2283-2534 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) arg-0) (else arg-4))))) -(define Buffer-Data-case--2272-2514 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Buffer-Data-rawSize arg-1 eta-0))) (let ((len (let ((_-0 (vector 1 e-1))) (Buffer-Data-case--2283-2534 arg-0 arg-1 e-1 _-0 act-24 (Prelude-C-60_Ord__Int arg-0 act-24))))) (let ((act-25 (Buffer-Data-copyData arg-1 0 len e-1 0 eta-0))) (let ((act-26 (Buffer-Data-freeBuffer arg-1 eta-0))) (vector 1 e-1)))))))) (else (lambda (eta-0) (vector 0 ))))))) -(define Buffer-Data-case--2129-2400 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1) eta-0))) (vector 1 arg-5)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5)))))))) -(define Buffer-Data-case--2106-2374 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Buffer-Data-readBufferData arg-1 e-1 0 arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1) eta-0))) (vector 1 e-1))) (else (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))))))))) (else (lambda (eta-0) (vector 0 (vector 1 )))))))) -(define Buffer-Data-case--2086-2354 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Buffer-Data-newBuffer e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((act-25 (Buffer-Data-readBufferData arg-1 e-1 0 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((1) (let ((act-26 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1) eta-0))) (vector 1 e-1))) (else (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5)))))))) (else (vector 0 (vector 1 ))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5)))))))) -(define Buffer-Data-case--2073-2335 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((File-System-fileSize 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((act-25 (Buffer-Data-newBuffer e-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (Buffer-Data-readBufferData e-2 e-1 0 e-3 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((1) (let ((act-27 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-0))) (vector 1 e-1))) (else (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5)))))))) (else (vector 0 (vector 1 )))))))) (else (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5)))))))) -(define Buffer-Data-case--1974-2255 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-3) eta-0))) (vector 1 e-2))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5)))))))) -(define Buffer-Data-case--1959-2232 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Buffer-Data-writeBufferData e-2 arg-1 0 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-0))) (vector 1 e-3)))) (else (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5)))))))) -(define Buffer-Data-case--1897-2180 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 0 (vector 2 )))))))) -(define Buffer-Data-case--1835-2124 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 0 (vector 1 )))))))) -(define Buffer-Data-writeBufferToFile (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((File-System-openFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0 (vector 1 )) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (Buffer-Data-writeBufferData e-2 arg-1 0 arg-2 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((act-26 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) ext-0))) (vector 1 e-3)))) (else (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5)))))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 e-5)))))))) -(define Buffer-Data-writeBufferData (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Buffer-Data-prim__writeBufferData arg-0 arg-1 arg-2 arg-3 ext-0))) ((Buffer-Data-case--1897-2180 arg-0 arg-3 arg-2 arg-1 act-24 (Prelude-C-62C-61_Ord__Int act-24 0)) ext-0)))) -(define Buffer-Data-setString (lambda (arg-0 arg-1 arg-2 ext-0) (Buffer-Data-prim__setString arg-0 arg-1 arg-2 ext-0))) -(define Buffer-Data-setInt (lambda (arg-0 arg-1 arg-2 ext-0) (Buffer-Data-prim__setInt arg-0 arg-1 arg-2 ext-0))) -(define Buffer-Data-setDouble (lambda (arg-0 arg-1 arg-2 ext-0) (Buffer-Data-prim__setDouble arg-0 arg-1 arg-2 ext-0))) -(define Buffer-Data-setByte (lambda (arg-0 arg-1 arg-2 ext-0) (Buffer-Data-prim__setByte arg-0 arg-1 arg-2 ext-0))) -(define Buffer-Data-resizeBuffer (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Buffer-Data-newBuffer arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-25 (Buffer-Data-rawSize arg-0 ext-0))) (let ((len (let ((_-0 (vector 1 e-1))) (Buffer-Data-case--2283-2534 arg-1 arg-0 e-1 _-0 act-25 (Prelude-C-60_Ord__Int arg-1 act-25))))) (let ((act-26 (Buffer-Data-copyData arg-0 0 len e-1 0 ext-0))) (let ((act-27 (Buffer-Data-freeBuffer arg-0 ext-0))) (vector 1 e-1))))))) (else (vector 0 ))))))) -(define Buffer-Data-readBufferData (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Buffer-Data-prim__readBufferData arg-0 arg-1 arg-2 arg-3 ext-0))) ((Buffer-Data-case--1835-2124 arg-0 arg-3 arg-2 arg-1 act-24 (Prelude-C-62C-61_Ord__Int act-24 0)) ext-0)))) -(define Buffer-Data-rawSize (lambda (arg-0 ext-0) (Buffer-Data-prim__bufferSize arg-0))) -(define Buffer-Data-newBuffer (lambda (arg-0 ext-0) (let ((act-24 (Buffer-Data-prim__newBuffer arg-0 ext-0))) (vector 1 act-24)))) -(define Buffer-Data-getString (lambda (arg-0 arg-1 arg-2 ext-0) (Buffer-Data-prim__getString arg-0 arg-1 arg-2 ext-0))) -(define Buffer-Data-getInt (lambda (arg-0 arg-1 ext-0) (Buffer-Data-prim__getInt arg-0 arg-1 ext-0))) -(define Buffer-Data-getDouble (lambda (arg-0 arg-1 ext-0) (Buffer-Data-prim__getDouble arg-0 arg-1 ext-0))) -(define Buffer-Data-getByte (lambda (arg-0 arg-1 ext-0) (Buffer-Data-prim__getByte arg-0 arg-1 ext-0))) -(define Buffer-Data-freeBuffer (lambda (arg-0 ext-0) (vector 0 ))) -(define Buffer-Data-createBufferFromFile (lambda (arg-0 ext-0) (let ((act-24 ((File-System-openFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0 (vector 0 )) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 ((File-System-fileSize 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((act-26 (Buffer-Data-newBuffer e-3 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-27 (Buffer-Data-readBufferData e-2 e-1 0 e-3 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((1) (let ((act-28 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-28 (arg-3664 eta-0))) ((arg-3665 act-28) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) ext-0))) (vector 1 e-1))) (else (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5)))))))) (else (vector 0 (vector 1 )))))))) (else (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5)))))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 e-5)))))))) -(define Buffer-Data-copyData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (Buffer-Data-prim__copyData arg-0 arg-1 arg-2 arg-3 arg-4 ext-0))) -(define Options-Core-case--5543-1882 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 arg-0 e-8)))))))))))))) -(define Options-Core-case--5512-1852 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 arg-0 e-7) e-8))))))))))))) -(define Options-Core-case--5489-1831 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((sc1 e-6)) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 e-9 e-10 (vector 1 arg-0)) e-7 e-8)))))))))))))))) -(define Options-Core-case--5466-1807 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((sc1 e-6)) (let ((e-9 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 3))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 e-9 (vector 1 arg-0) e-11) e-7 e-8)))))))))))))))) -(define Options-Core-case--5443-1783 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((sc1 e-6)) (let ((e-10 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 (vector 1 arg-0) e-10 e-11) e-7 e-8)))))))))))))))) -(define Options-Core-case--5419-1758 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 (vector 0 arg-1 arg-0)) e-6 e-7 e-8)))))))))))) -(define Options-Core-case--5391-1735 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 (vector 0 arg-2 arg-1 arg-0)) e-5 e-6 e-7 e-8)))))))))))) -(define Options-Core-case--5370-1713 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 ) (vector 0 ) (vector 0 (vector 0 ) (vector 0 ) (vector 0 )) (vector 0 ) e-8))))))))) +(define Buffer-Data-case--2604-2924 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) arg-2) (else arg-6))))) +(define Buffer-Data-case--2584-2897 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 arg-1)) (let ((e-3 (vector-ref sc2 1))) e-3)))) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (Buffer-Data-rawSize 'erased arg-1 arg-3)) (lambda (oldsize) (let ((len (let ((_-0 (vector 1 e-1))) (Buffer-Data-case--2604-2924 'erased arg-1 arg-2 arg-3 e-1 _-0 oldsize (Prelude-C-60_Ord__Int arg-2 oldsize))))) (let ((sc2 (let ((sc3 arg-1)) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-6 (vector-ref sc2 2))) ((((e-6 'erased) 'erased) (Buffer-Data-copyData 'erased arg-1 arg-3 0 len e-1 0)) (lambda (_-2967) (let ((sc3 (let ((sc4 arg-1)) (let ((e-9 (vector-ref sc4 1))) e-9)))) (let ((e-9 (vector-ref sc3 2))) ((((e-9 'erased) 'erased) (Buffer-Data-freeBuffer 'erased arg-1 arg-3)) (lambda (_-2976) (let ((sc4 (let ((sc5 (let ((sc6 arg-1)) (let ((e-12 (vector-ref sc6 1))) e-12)))) (let ((e-13 (vector-ref sc5 1))) e-13)))) (let ((e-12 (vector-ref sc4 2))) ((e-12 'erased) (vector 1 e-1))))))))))))))))))) (else (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 ))))))))) +(define Buffer-Data-case--2388-2725 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (File-System-closeFile 'erased arg-1 arg-3)) (lambda (_-2755) (let ((sc2 (let ((sc3 (let ((sc4 arg-1)) (let ((e-6 (vector-ref sc4 1))) e-6)))) (let ((e-7 (vector-ref sc3 1))) e-7)))) (let ((e-6 (vector-ref sc2 2))) ((e-6 'erased) (vector 1 arg-7))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 e-5)))))))))) +(define Buffer-Data-case--2355-2691 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 arg-1)) (let ((e-3 (vector-ref sc2 1))) e-3)))) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (Buffer-Data-readBufferData 'erased arg-1 arg-3 e-1 0 arg-5)) (lambda (_-0) (let ((sc2 _-0)) (case (vector-ref sc2 0) ((1) (let ((sc3 (let ((sc4 arg-1)) (let ((e-7 (vector-ref sc4 1))) e-7)))) (let ((e-7 (vector-ref sc3 2))) ((((e-7 'erased) 'erased) (File-System-closeFile 'erased arg-1 arg-3)) (lambda (_-2755) (let ((sc4 (let ((sc5 (let ((sc6 arg-1)) (let ((e-10 (vector-ref sc6 1))) e-10)))) (let ((e-11 (vector-ref sc5 1))) e-11)))) (let ((e-10 (vector-ref sc4 2))) ((e-10 'erased) (vector 1 e-1))))))))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 (let ((sc4 (let ((sc5 arg-1)) (let ((e-7 (vector-ref sc5 1))) e-7)))) (let ((e-8 (vector-ref sc4 1))) e-8)))) (let ((e-7 (vector-ref sc3 2))) ((e-7 'erased) (vector 0 e-5)))))))))))))) (else (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 1 )))))))))) +(define Buffer-Data-case--2327-2662 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (Buffer-Data-newBuffer 'erased arg-1 e-2)) (lambda (_-0) (let ((sc2 _-0)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 (let ((sc4 arg-1)) (let ((e-7 (vector-ref sc4 1))) e-7)))) (let ((e-7 (vector-ref sc3 2))) ((((e-7 'erased) 'erased) (Buffer-Data-readBufferData 'erased arg-1 arg-3 e-5 0 e-2)) (lambda (_-1) (let ((sc4 _-1)) (case (vector-ref sc4 0) ((1) (let ((sc5 (let ((sc6 arg-1)) (let ((e-11 (vector-ref sc6 1))) e-11)))) (let ((e-11 (vector-ref sc5 2))) ((((e-11 'erased) 'erased) (File-System-closeFile 'erased arg-1 arg-3)) (lambda (_-2755) (let ((sc6 (let ((sc7 (let ((sc8 arg-1)) (let ((e-14 (vector-ref sc8 1))) e-14)))) (let ((e-15 (vector-ref sc7 1))) e-15)))) (let ((e-14 (vector-ref sc6 2))) ((e-14 'erased) (vector 1 e-5))))))))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 (let ((sc6 (let ((sc7 arg-1)) (let ((e-11 (vector-ref sc7 1))) e-11)))) (let ((e-12 (vector-ref sc6 1))) e-12)))) (let ((e-11 (vector-ref sc5 2))) ((e-11 'erased) (vector 0 e-9)))))))))))))) (else (let ((sc3 (let ((sc4 (let ((sc5 arg-1)) (let ((e-6 (vector-ref sc5 1))) e-6)))) (let ((e-7 (vector-ref sc4 1))) e-7)))) (let ((e-6 (vector-ref sc3 2))) ((e-6 'erased) (vector 0 (vector 1 )))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 e-5)))))))))) +(define Buffer-Data-case--2307-2636 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (File-System-fileSize 'erased arg-1 e-2)) (lambda (_-0) (let ((sc2 _-0)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 (let ((sc4 arg-1)) (let ((e-7 (vector-ref sc4 1))) e-7)))) (let ((e-7 (vector-ref sc3 2))) ((((e-7 'erased) 'erased) (Buffer-Data-newBuffer 'erased arg-1 e-5)) (lambda (_-1) (let ((sc4 _-1)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((sc5 (let ((sc6 arg-1)) (let ((e-11 (vector-ref sc6 1))) e-11)))) (let ((e-11 (vector-ref sc5 2))) ((((e-11 'erased) 'erased) (Buffer-Data-readBufferData 'erased arg-1 e-2 e-9 0 e-5)) (lambda (_-2) (let ((sc6 _-2)) (case (vector-ref sc6 0) ((1) (let ((sc7 (let ((sc8 arg-1)) (let ((e-15 (vector-ref sc8 1))) e-15)))) (let ((e-15 (vector-ref sc7 2))) ((((e-15 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-2)) (lambda (_-2755) (let ((sc8 (let ((sc9 (let ((sc10 arg-1)) (let ((e-18 (vector-ref sc10 1))) e-18)))) (let ((e-19 (vector-ref sc9 1))) e-19)))) (let ((e-18 (vector-ref sc8 2))) ((e-18 'erased) (vector 1 e-9))))))))) (else (let ((e-13 (vector-ref sc6 1))) (let ((sc7 (let ((sc8 (let ((sc9 arg-1)) (let ((e-15 (vector-ref sc9 1))) e-15)))) (let ((e-16 (vector-ref sc8 1))) e-16)))) (let ((e-15 (vector-ref sc7 2))) ((e-15 'erased) (vector 0 e-13)))))))))))))) (else (let ((sc5 (let ((sc6 (let ((sc7 arg-1)) (let ((e-10 (vector-ref sc7 1))) e-10)))) (let ((e-11 (vector-ref sc6 1))) e-11)))) (let ((e-10 (vector-ref sc5 2))) ((e-10 'erased) (vector 0 (vector 1 )))))))))))))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 (let ((sc4 (let ((sc5 arg-1)) (let ((e-7 (vector-ref sc5 1))) e-7)))) (let ((e-8 (vector-ref sc4 1))) e-8)))) (let ((e-7 (vector-ref sc3 2))) ((e-7 'erased) (vector 0 e-5)))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 e-5)))))))))) +(define Buffer-Data-case--2171-2518 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (File-System-closeFile 'erased arg-1 arg-5)) (lambda (_-2544) (let ((sc2 (let ((sc3 (let ((sc4 arg-1)) (let ((e-6 (vector-ref sc4 1))) e-6)))) (let ((e-7 (vector-ref sc3 1))) e-7)))) (let ((e-6 (vector-ref sc2 2))) ((e-6 'erased) (vector 1 e-2)))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 e-5)))))))))) +(define Buffer-Data-case--2149-2487 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (Buffer-Data-writeBufferData 'erased arg-1 e-2 arg-3 0 arg-2)) (lambda (_-0) (let ((sc2 _-0)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 (let ((sc4 arg-1)) (let ((e-7 (vector-ref sc4 1))) e-7)))) (let ((e-7 (vector-ref sc3 2))) ((((e-7 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-2)) (lambda (_-2544) (let ((sc4 (let ((sc5 (let ((sc6 arg-1)) (let ((e-10 (vector-ref sc6 1))) e-10)))) (let ((e-11 (vector-ref sc5 1))) e-11)))) (let ((e-10 (vector-ref sc4 2))) ((e-10 'erased) (vector 1 e-5)))))))))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 (let ((sc4 (let ((sc5 arg-1)) (let ((e-7 (vector-ref sc5 1))) e-7)))) (let ((e-8 (vector-ref sc4 1))) e-8)))) (let ((e-7 (vector-ref sc3 2))) ((e-7 'erased) (vector 0 e-5)))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 e-5)))))))))) +(define Buffer-Data-case--2062-2408 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 1 (vector 0 )))))) (else (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 2 )))))))))) +(define Buffer-Data-case--1975-2325 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 1 (vector 0 )))))) (else (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 1 )))))))))) +(define Buffer-Data-writeBufferToFile (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (File-System-openFile 'erased arg-1 arg-2 (vector 1 ))) (lambda (_-0) (let ((sc1 _-0)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 (let ((sc3 arg-1)) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-6 (vector-ref sc2 2))) ((((e-6 'erased) 'erased) (Buffer-Data-writeBufferData 'erased arg-1 e-4 arg-3 0 arg-4)) (lambda (_-1) (let ((sc3 _-1)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 (let ((sc5 arg-1)) (let ((e-10 (vector-ref sc5 1))) e-10)))) (let ((e-10 (vector-ref sc4 2))) ((((e-10 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-4)) (lambda (_-2544) (let ((sc5 (let ((sc6 (let ((sc7 arg-1)) (let ((e-13 (vector-ref sc7 1))) e-13)))) (let ((e-14 (vector-ref sc6 1))) e-14)))) (let ((e-13 (vector-ref sc5 2))) ((e-13 'erased) (vector 1 e-8)))))))))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 (let ((sc5 (let ((sc6 arg-1)) (let ((e-10 (vector-ref sc6 1))) e-10)))) (let ((e-11 (vector-ref sc5 1))) e-11)))) (let ((e-10 (vector-ref sc4 2))) ((e-10 'erased) (vector 0 e-8)))))))))))))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 (let ((sc3 (let ((sc4 arg-1)) (let ((e-6 (vector-ref sc4 1))) e-6)))) (let ((e-7 (vector-ref sc3 1))) e-7)))) (let ((e-6 (vector-ref sc2 2))) ((e-6 'erased) (vector 0 e-5)))))))))))))) +(define Buffer-Data-writeBufferData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (Buffer-Data-prim__writeBufferData arg-2 arg-3 arg-4 arg-5 eta-0)))))) (lambda (written) (Buffer-Data-case--2062-2408 'erased arg-1 arg-2 arg-5 arg-4 arg-3 written (Prelude-C-62C-61_Ord__Int written 0)))))))) +(define Buffer-Data-setString (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (Buffer-Data-prim__setString arg-2 arg-3 arg-4 eta-0))))))) +(define Buffer-Data-setInt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (Buffer-Data-prim__setInt arg-2 arg-3 arg-4 eta-0))))))) +(define Buffer-Data-setDouble (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (Buffer-Data-prim__setDouble arg-2 arg-3 arg-4 eta-0))))))) +(define Buffer-Data-setByte (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (Buffer-Data-prim__setByte arg-2 arg-3 arg-4 eta-0))))))) +(define Buffer-Data-resizeBuffer (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (Buffer-Data-newBuffer 'erased arg-1 arg-3)) (lambda (_-0) (let ((sc1 _-0)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 (let ((sc3 arg-1)) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-6 (vector-ref sc2 2))) ((((e-6 'erased) 'erased) (Buffer-Data-rawSize 'erased arg-1 arg-2)) (lambda (oldsize) (let ((len (let ((_-1 (vector 1 e-4))) (Buffer-Data-case--2604-2924 'erased arg-1 arg-3 arg-2 e-4 _-1 oldsize (Prelude-C-60_Ord__Int arg-3 oldsize))))) (let ((sc3 (let ((sc4 arg-1)) (let ((e-9 (vector-ref sc4 1))) e-9)))) (let ((e-9 (vector-ref sc3 2))) ((((e-9 'erased) 'erased) (Buffer-Data-copyData 'erased arg-1 arg-2 0 len e-4 0)) (lambda (_-2967) (let ((sc4 (let ((sc5 arg-1)) (let ((e-12 (vector-ref sc5 1))) e-12)))) (let ((e-12 (vector-ref sc4 2))) ((((e-12 'erased) 'erased) (Buffer-Data-freeBuffer 'erased arg-1 arg-2)) (lambda (_-2976) (let ((sc5 (let ((sc6 (let ((sc7 arg-1)) (let ((e-15 (vector-ref sc7 1))) e-15)))) (let ((e-16 (vector-ref sc6 1))) e-16)))) (let ((e-15 (vector-ref sc5 2))) ((e-15 'erased) (vector 1 e-4))))))))))))))))))) (else (let ((sc2 (let ((sc3 (let ((sc4 arg-1)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 ))))))))))))) +(define Buffer-Data-readBufferData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (Buffer-Data-prim__readBufferData arg-2 arg-3 arg-4 arg-5 eta-0)))))) (lambda (read) (Buffer-Data-case--1975-2325 'erased arg-1 arg-2 arg-5 arg-4 arg-3 read (Prelude-C-62C-61_Ord__Int read 0)))))))) +(define Buffer-Data-rawSize (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (Buffer-Data-prim__bufferSize arg-2)))))) +(define Buffer-Data-newBuffer (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (Buffer-Data-prim__newBuffer arg-2 eta-0)))))) (lambda (buf) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (vector 1 buf)))))))))) +(define Buffer-Data-getString (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (Buffer-Data-prim__getString arg-2 arg-3 arg-4 eta-0))))))) +(define Buffer-Data-getInt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (Buffer-Data-prim__getInt arg-2 arg-3 eta-0))))))) +(define Buffer-Data-getDouble (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (Buffer-Data-prim__getDouble arg-2 arg-3 eta-0))))))) +(define Buffer-Data-getByte (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (Buffer-Data-prim__getByte arg-2 arg-3 eta-0))))))) +(define Buffer-Data-freeBuffer (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (vector 0 )))))) +(define Buffer-Data-createBufferFromFile (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (File-System-openFile 'erased arg-1 arg-2 (vector 0 ))) (lambda (_-0) (let ((sc1 _-0)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 (let ((sc3 arg-1)) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-6 (vector-ref sc2 2))) ((((e-6 'erased) 'erased) (File-System-fileSize 'erased arg-1 e-4)) (lambda (_-1) (let ((sc3 _-1)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 (let ((sc5 arg-1)) (let ((e-10 (vector-ref sc5 1))) e-10)))) (let ((e-10 (vector-ref sc4 2))) ((((e-10 'erased) 'erased) (Buffer-Data-newBuffer 'erased arg-1 e-8)) (lambda (_-2) (let ((sc5 _-2)) (case (vector-ref sc5 0) ((1) (let ((e-12 (vector-ref sc5 1))) (let ((sc6 (let ((sc7 arg-1)) (let ((e-14 (vector-ref sc7 1))) e-14)))) (let ((e-14 (vector-ref sc6 2))) ((((e-14 'erased) 'erased) (Buffer-Data-readBufferData 'erased arg-1 e-4 e-12 0 e-8)) (lambda (_-3) (let ((sc7 _-3)) (case (vector-ref sc7 0) ((1) (let ((sc8 (let ((sc9 arg-1)) (let ((e-18 (vector-ref sc9 1))) e-18)))) (let ((e-18 (vector-ref sc8 2))) ((((e-18 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-4)) (lambda (_-2755) (let ((sc9 (let ((sc10 (let ((sc11 arg-1)) (let ((e-21 (vector-ref sc11 1))) e-21)))) (let ((e-22 (vector-ref sc10 1))) e-22)))) (let ((e-21 (vector-ref sc9 2))) ((e-21 'erased) (vector 1 e-12))))))))) (else (let ((e-16 (vector-ref sc7 1))) (let ((sc8 (let ((sc9 (let ((sc10 arg-1)) (let ((e-18 (vector-ref sc10 1))) e-18)))) (let ((e-19 (vector-ref sc9 1))) e-19)))) (let ((e-18 (vector-ref sc8 2))) ((e-18 'erased) (vector 0 e-16)))))))))))))) (else (let ((sc6 (let ((sc7 (let ((sc8 arg-1)) (let ((e-13 (vector-ref sc8 1))) e-13)))) (let ((e-14 (vector-ref sc7 1))) e-14)))) (let ((e-13 (vector-ref sc6 2))) ((e-13 'erased) (vector 0 (vector 1 )))))))))))))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 (let ((sc5 (let ((sc6 arg-1)) (let ((e-10 (vector-ref sc6 1))) e-10)))) (let ((e-11 (vector-ref sc5 1))) e-11)))) (let ((e-10 (vector-ref sc4 2))) ((e-10 'erased) (vector 0 e-8)))))))))))))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 (let ((sc3 (let ((sc4 arg-1)) (let ((e-6 (vector-ref sc4 1))) e-6)))) (let ((e-7 (vector-ref sc3 1))) e-7)))) (let ((e-6 (vector-ref sc2 2))) ((e-6 'erased) (vector 0 e-5)))))))))))))) +(define Buffer-Data-copyData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (Buffer-Data-prim__copyData arg-2 arg-3 arg-4 arg-5 arg-6 eta-0))))))) +(define Options-Core-case--5545-1890 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 arg-0 e-8)))))))))))))) +(define Options-Core-case--5514-1860 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 arg-0 e-7) e-8))))))))))))) +(define Options-Core-case--5491-1839 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((sc1 e-6)) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 e-9 e-10 (vector 1 arg-0)) e-7 e-8)))))))))))))))) +(define Options-Core-case--5468-1815 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((sc1 e-6)) (let ((e-9 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 3))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 e-9 (vector 1 arg-0) e-11) e-7 e-8)))))))))))))))) +(define Options-Core-case--5445-1791 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((sc1 e-6)) (let ((e-10 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 (vector 1 arg-0) e-10 e-11) e-7 e-8)))))))))))))))) +(define Options-Core-case--5421-1766 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 (vector 0 arg-1 arg-0)) e-6 e-7 e-8)))))))))))) +(define Options-Core-case--5393-1743 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 (vector 0 arg-2 arg-1 arg-0)) e-5 e-6 e-7 e-8)))))))))))) +(define Options-Core-case--5372-1721 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 ) (vector 0 ) (vector 0 (vector 0 ) (vector 0 ) (vector 0 )) (vector 0 ) e-8))))))))) (define Options-Core-show_Show__CG (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "chez") ((1) "racket") ((2) "gambit") (else (let ((e-0 (vector-ref sc0 1))) e-0)))))) (define Options-Core-showPrec_Show__CG (lambda (arg-0 arg-1) (Options-Core-show_Show__CG arg-1))) (define Options-Core-__Impl_Show_CG (lambda () (vector 0 (lambda (x) (Options-Core-show_Show__CG x)) (lambda (d) (lambda (x) (Options-Core-showPrec_Show__CG d x)))))) -(define Options-Core-__Impl_Eq_LangExt (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Options-Core-C-61C-61_Eq__LangExt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Options-Core-C-47C-61_Eq__LangExt arg-430 arg-431)))))) -(define Options-Core-__Impl_Eq_CG (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Options-Core-C-61C-61_Eq__CG arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Options-Core-C-47C-61_Eq__CG arg-430 arg-431)))))) +(define Options-Core-__Impl_Eq_LangExt (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Options-Core-C-61C-61_Eq__LangExt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Options-Core-C-47C-61_Eq__LangExt arg-438 arg-439)))))) +(define Options-Core-__Impl_Eq_CG (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Options-Core-C-61C-61_Eq__CG arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Options-Core-C-47C-61_Eq__CG arg-438 arg-439)))))) (define Options-Core-C-61C-61_Eq__LangExt (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1))))(else 1))))) (define Options-Core-C-61C-61_Eq__CG (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0)(else 1)))) ((3) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__String e-0 e-1)))(else 1)))))(else 1))))) (define Options-Core-C-47C-61_Eq__LangExt (lambda (arg-0 arg-1) (Prelude-not (Options-Core-C-61C-61_Eq__LangExt arg-0 arg-1)))) @@ -2870,8 +2910,8 @@ (define Session-Options-Core-logLevel (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4)))) (define Dirs-Options-Core-lib_dirs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-6 (vector-ref sc0 7))) e-6)))) (define ElabDirectives-Options-Core-lazyActive (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) -(define Options-Core-isExtension (lambda (arg-0 arg-1) (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Options-Core-C-61C-61_Eq__LangExt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Options-Core-C-47C-61_Eq__LangExt arg-430 arg-431)))) arg-0 (let ((sc0 arg-1)) (let ((e-7 (vector-ref sc0 8))) e-7))))) -(define Options-Core-getCG (lambda (arg-0 arg-1) (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (Strings-Data-toLower arg-1) (Options-Core-availableCGs arg-0)))) +(define Options-Core-isExtension (lambda (arg-0 arg-1) (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Options-Core-C-61C-61_Eq__LangExt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Options-Core-C-47C-61_Eq__LangExt arg-438 arg-439)))) arg-0 (let ((sc0 arg-1)) (let ((e-7 (vector-ref sc0 8))) e-7))))) +(define Options-Core-getCG (lambda (arg-0 arg-1) (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (Strings-Data-toLower arg-1) (Options-Core-availableCGs arg-0)))) (define PPrinter-Options-Core-fullNamespace (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) (define PairNames-Options-Core-fstName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (define PrimNames-Options-Core-fromStringName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) @@ -2903,93 +2943,93 @@ (define ElabDirectives-Options-Core-ambigLimit (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))) (define Options-Options-Core-additionalCGs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-8 (vector-ref sc0 9))) e-8)))) (define Options-Core-addCG (lambda (arg-0 ext-0) (let ((sc0 ext-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 arg-0 e-8)))))))))))))) -(define Path-Utils-case--4118-3329 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (Path-Utils-show_Show__Path (Path-Utils-setFileNameC-39 (Strings-Prelude-C-43C-43 e-2 arg-4) arg-2)))))) -(define Path-Utils-case--4075-3312 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Path-Utils-case--4118-3329 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 (Path-Utils-splitFileName e-1)))) (else arg-1))))) -(define Path-Utils-case--4075-3290 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) "") (else (Strings-Prelude-C-43C-43 "." arg-3)))))) -(define Path-Utils-case--3931-3196 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (vector 1 (vector 0 ))) (else (vector 0 )))))) -(define Path-Utils-case--3917-3151 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Path-Utils-case--3931-3196 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 e-2 e-1 e-0 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__Volume arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__Volume arg-430 arg-431)))) arg-5 e-0) (lambda () (Prelude-C-61C-61_Eq__Bool arg-4 e-1)))) (lambda (_-3170) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Path-Utils-n--3856-3091-stripBody arg-0 arg-1 arg-3 e-2) (lambda (body) (Prelude-pure_Applicative__Maybe 'erased (Path-Utils-show_Show__Path (vector 0 (vector 0 ) 1 body e-3)))))))))))))) -(define Path-Utils-case--3856-3141 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (Path-Utils-case--3917-3151 arg-0 arg-1 e-3 e-2 e-1 e-0 (Path-Utils-parse arg-0))))))))) -(define Path-Utils-case--3859-3111 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Path-Utils-n--3856-3091-stripBody arg-0 arg-1 arg-3 arg-5)) (else (vector 0 )))))) -(define Path-Utils-case--3794-3045 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (Path-Utils-show_Show__Path e-2) (Path-Utils-show_Show__Path e-3)))))))) -(define Path-Utils-case--3705-2961 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (vector 0 arg-0 "")) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (cond ((equal? sc2 #\.) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (vector 0 arg-0 ""))(else (vector 0 (Prelude-pack (List-Data-reverse 'erased e-7)) (Prelude-pack (List-Data-reverse 'erased e-2)))))))(else (vector 0 (Prelude-pack (List-Data-reverse 'erased e-7)) (Prelude-pack (List-Data-reverse 'erased e-2)))))))))))))))) -(define Path-Utils-case--3684-2934 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Path-Utils-appendC-39 (Maybe-Data-fromMaybe 'erased (lambda () (Path-Utils-emptyPath)) (Path-Utils-parentC-39 arg-0)) (Path-Utils-parse arg-1))) (else (Path-Utils-appendC-39 arg-0 (Path-Utils-parse arg-1))))))) -(define Path-Utils-case--3598-2890 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 (List-Data-init 'erased (vector 1 arg-1 arg-2) (vector 0 )) 1)))))) -(define Path-Utils-case--3594-2850 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((parentPath (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-0 e-1 (List-Data-init 'erased (vector 1 e-2 e-3) (vector 0 )) 1)))))) (let ((lastPath (vector 0 (vector 0 ) 1 (vector 1 (List-Data-last 'erased (vector 1 e-2 e-3) (vector 0 )) (vector 0 )) (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 4))) e-4))))) (vector 1 (vector 0 parentPath lastPath))))))))))) -(define Path-Utils-case--3559-2841 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 (List-Prelude-C-43C-43 'erased (let ((sc1 arg-1)) (let ((e-5 (vector-ref sc1 3))) e-5)) (let ((sc1 arg-0)) (let ((e-5 (vector-ref sc1 3))) e-5))) (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 4))) e-4)))))))) -(define Path-Utils-case--3559-2826 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (vector 0 (let ((sc1 arg-1)) (let ((e-7 (vector-ref sc1 1))) e-7)) e-1 e-2 e-3))))))) -(define Path-Utils-case--3545-2813 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-0)) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (vector 0 (let ((sc2 arg-1)) (let ((e-7 (vector-ref sc2 1))) e-7)) e-1 e-2 e-3)))))) (else (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-0 e-1 (List-Prelude-C-43C-43 'erased (let ((sc2 arg-1)) (let ((e-5 (vector-ref sc2 3))) e-5)) (let ((sc2 arg-0)) (let ((e-5 (vector-ref sc2 3))) e-5))) (let ((sc2 arg-0)) (let ((e-4 (vector-ref sc2 4))) e-4))))))))))) -(define Path-Utils-case--3540-2800 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-0) (else (Path-Utils-case--3545-2813 arg-0 arg-1 (let ((sc1 arg-0)) (let ((e-1 (vector-ref sc1 2))) e-1)))))))) -(define Path-Utils-case--3508-2773 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) 0) (else (let ((sc2 arg-0)) (let ((e-4 (vector-ref sc2 2))) e-4))))))) (else 1))))) -(define Path-Utils-case--3505-2766 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Path-Utils-case--3508-2773 arg-0 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)))) (else (let ((sc1 arg-0)) (let ((e-1 (vector-ref sc1 2))) e-1))))))) -(define Path-Utils-case--3478-2746 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) e-5))(else (Path-Utils-emptyPath))))))(else (Path-Utils-emptyPath)))))) -(define Path-Utils-case--3352-2712 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (List-Data-delete 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__Body arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__Body arg-430 arg-431)))) (vector 0 ) e-3))))))))) -(define Path-Utils-case--3352-2676 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (Prelude-C-47C-61_Eq__String (Strings-Data-ltrim e-0) "")))(else 0))))) -(define Path-Utils-case--3320-2610 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "..") (vector 0 (vector 1 ))) ((equal? sc0 ".") (vector 0 (vector 0 )))(else (vector 0 (vector 2 arg-0))))))) -(define Path-Utils-case--3213-2534 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 0 e-1))) (else (vector 4 1 "Expect Disk")))))) -(define Path-Utils-case--2984-2243 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc3 eta-0)) (let ((e-5 (vector-ref sc3 5))) e-5))) e-2))))))))) -(define Path-Utils-case--2796-2102 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) arg-1) (else ""))))) -(define Path-Utils-case--2796-2082 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) arg-1) (else ""))))) -(define Path-Utils-case--2539-1857 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) #\;) (else #\:))))) -(define Path-Utils-case--2534-1852 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) #\\) (else #\/))))) -(define Path-Utils-n--3856-3091-stripBody (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 arg-3))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Path-Utils-case--3859-3111 arg-0 arg-1 e-1 e-2 e-4 e-5 (Path-Utils-C-61C-61_Eq__Body e-1 e-4)))))))))))))))) -(define Path-Utils-n--3666-2915-findNormal (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((2) (let ((e-3 (vector-ref sc1 1))) (vector 1 e-3))) ((0) (Path-Utils-n--3666-2915-findNormal arg-0 e-2))(else (vector 0 )))))))(else (vector 0 )))))) +(define Path-Utils-case--4120-3338 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (Path-Utils-show_Show__Path (Path-Utils-setFileNameC-39 (Strings-Prelude-C-43C-43 e-2 arg-4) arg-2)))))) +(define Path-Utils-case--4077-3321 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Path-Utils-case--4120-3338 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 (Path-Utils-splitFileName e-1)))) (else arg-1))))) +(define Path-Utils-case--4077-3299 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) "") (else (Strings-Prelude-C-43C-43 "." arg-3)))))) +(define Path-Utils-case--3933-3205 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (vector 1 (vector 0 ))) (else (vector 0 )))))) +(define Path-Utils-case--3919-3160 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Path-Utils-case--3933-3205 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 e-2 e-1 e-0 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__Volume arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__Volume arg-438 arg-439)))) arg-5 e-0) (lambda () (Prelude-C-61C-61_Eq__Bool arg-4 e-1)))) (lambda (_-3179) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Path-Utils-n--3858-3100-stripBody arg-0 arg-1 arg-3 e-2) (lambda (body) (Prelude-pure_Applicative__Maybe 'erased (Path-Utils-show_Show__Path (vector 0 (vector 0 ) 1 body e-3)))))))))))))) +(define Path-Utils-case--3858-3150 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (Path-Utils-case--3919-3160 arg-0 arg-1 e-3 e-2 e-1 e-0 (Path-Utils-parse arg-0))))))))) +(define Path-Utils-case--3861-3120 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Path-Utils-n--3858-3100-stripBody arg-0 arg-1 arg-3 arg-5)) (else (vector 0 )))))) +(define Path-Utils-case--3796-3054 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (Path-Utils-show_Show__Path e-2) (Path-Utils-show_Show__Path e-3)))))))) +(define Path-Utils-case--3707-2970 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (vector 0 arg-0 "")) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (cond ((equal? sc2 #\.) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (vector 0 arg-0 ""))(else (vector 0 (Prelude-pack (List-Data-reverse 'erased e-7)) (Prelude-pack (List-Data-reverse 'erased e-2)))))))(else (vector 0 (Prelude-pack (List-Data-reverse 'erased e-7)) (Prelude-pack (List-Data-reverse 'erased e-2)))))))))))))))) +(define Path-Utils-case--3686-2943 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Path-Utils-appendC-39 (Maybe-Data-fromMaybe 'erased (lambda () (Path-Utils-emptyPath)) (Path-Utils-parentC-39 arg-0)) (Path-Utils-parse arg-1))) (else (Path-Utils-appendC-39 arg-0 (Path-Utils-parse arg-1))))))) +(define Path-Utils-case--3600-2899 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 (List-Data-init 'erased (vector 1 arg-1 arg-2) (vector 0 )) 1)))))) +(define Path-Utils-case--3596-2859 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((parentPath (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-0 e-1 (List-Data-init 'erased (vector 1 e-2 e-3) (vector 0 )) 1)))))) (let ((lastPath (vector 0 (vector 0 ) 1 (vector 1 (List-Data-last 'erased (vector 1 e-2 e-3) (vector 0 )) (vector 0 )) (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 4))) e-4))))) (vector 1 (vector 0 parentPath lastPath))))))))))) +(define Path-Utils-case--3561-2850 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 (List-Prelude-C-43C-43 'erased (let ((sc1 arg-1)) (let ((e-5 (vector-ref sc1 3))) e-5)) (let ((sc1 arg-0)) (let ((e-5 (vector-ref sc1 3))) e-5))) (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 4))) e-4)))))))) +(define Path-Utils-case--3561-2835 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (vector 0 (let ((sc1 arg-1)) (let ((e-7 (vector-ref sc1 1))) e-7)) e-1 e-2 e-3))))))) +(define Path-Utils-case--3547-2822 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-0)) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (vector 0 (let ((sc2 arg-1)) (let ((e-7 (vector-ref sc2 1))) e-7)) e-1 e-2 e-3)))))) (else (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-0 e-1 (List-Prelude-C-43C-43 'erased (let ((sc2 arg-1)) (let ((e-5 (vector-ref sc2 3))) e-5)) (let ((sc2 arg-0)) (let ((e-5 (vector-ref sc2 3))) e-5))) (let ((sc2 arg-0)) (let ((e-4 (vector-ref sc2 4))) e-4))))))))))) +(define Path-Utils-case--3542-2809 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-0) (else (Path-Utils-case--3547-2822 arg-0 arg-1 (let ((sc1 arg-0)) (let ((e-1 (vector-ref sc1 2))) e-1)))))))) +(define Path-Utils-case--3510-2782 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) 0) (else (let ((sc2 arg-0)) (let ((e-4 (vector-ref sc2 2))) e-4))))))) (else 1))))) +(define Path-Utils-case--3507-2775 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Path-Utils-case--3510-2782 arg-0 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)))) (else (let ((sc1 arg-0)) (let ((e-1 (vector-ref sc1 2))) e-1))))))) +(define Path-Utils-case--3480-2755 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) e-5))(else (Path-Utils-emptyPath))))))(else (Path-Utils-emptyPath)))))) +(define Path-Utils-case--3354-2721 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (List-Data-delete 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__Body arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__Body arg-438 arg-439)))) (vector 0 ) e-3))))))))) +(define Path-Utils-case--3354-2685 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (Prelude-C-47C-61_Eq__String (Strings-Data-ltrim e-0) "")))(else 0))))) +(define Path-Utils-case--3322-2619 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "..") (vector 0 (vector 1 ))) ((equal? sc0 ".") (vector 0 (vector 0 )))(else (vector 0 (vector 2 arg-0))))))) +(define Path-Utils-case--3215-2543 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 0 e-1))) (else (vector 4 1 "Expect Disk")))))) +(define Path-Utils-case--2986-2252 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc3 eta-0)) (let ((e-5 (vector-ref sc3 5))) e-5))) e-2))))))))) +(define Path-Utils-case--2798-2111 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) arg-1) (else ""))))) +(define Path-Utils-case--2798-2091 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) arg-1) (else ""))))) +(define Path-Utils-case--2541-1866 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) #\;) (else #\:))))) +(define Path-Utils-case--2536-1861 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) #\\) (else #\/))))) +(define Path-Utils-n--3858-3100-stripBody (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 arg-3))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Path-Utils-case--3861-3120 arg-0 arg-1 e-1 e-2 e-4 e-5 (Path-Utils-C-61C-61_Eq__Body e-1 e-4)))))))))))))))) +(define Path-Utils-n--3668-2924-findNormal (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((2) (let ((e-3 (vector-ref sc1 1))) (vector 1 e-3))) ((0) (Path-Utils-n--3668-2924-findNormal arg-0 e-2))(else (vector 0 )))))))(else (vector 0 )))))) (define Path-Path-Utils-rf--volume (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (define Path-Path-Utils-rf--hasTrailSep (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))) (define Path-Path-Utils-rf--hasRoot (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (define Path-Path-Utils-rf--body (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) (define Path-Utils-tokValue_TokenKind__PathTokenKind (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) arg-1) (else (vector 0 )))))) (define Path-Utils-show_Show__Volume (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "\\\\" (Strings-Prelude-C-43C-43 e-0 (Strings-Prelude-C-43C-43 "\\" e-1)))))) (else (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 (Strings-Data-singleton e-2) ":"))))))) -(define Path-Utils-show_Show__Path (lambda (arg-0) (let ((sep (Strings-Data-singleton (Path-Utils-dirSeparator)))) (let ((volStr (Maybe-Data-fromMaybe 'erased (lambda () "") (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Path-Utils-show_Show__Volume eta-0)) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))))) (let ((rootStr (Path-Utils-case--2796-2082 arg-0 sep volStr (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))) (let ((bodyStr (Extra-String-Data-join 'erased sep (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Path-Utils-show_Show__Body eta-0)) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))))) (let ((trailStr (Path-Utils-case--2796-2102 arg-0 sep volStr rootStr bodyStr (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))) (Strings-Prelude-C-43C-43 volStr (Strings-Prelude-C-43C-43 rootStr (Strings-Prelude-C-43C-43 bodyStr trailStr)))))))))) +(define Path-Utils-show_Show__Path (lambda (arg-0) (let ((sep (Strings-Data-singleton (Path-Utils-dirSeparator)))) (let ((volStr (Maybe-Data-fromMaybe 'erased (lambda () "") (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Path-Utils-show_Show__Volume eta-0)) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))))) (let ((rootStr (Path-Utils-case--2798-2091 arg-0 sep volStr (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))) (let ((bodyStr (Extra-String-Data-join 'erased sep (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Path-Utils-show_Show__Body eta-0)) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))))) (let ((trailStr (Path-Utils-case--2798-2111 arg-0 sep volStr rootStr bodyStr (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))) (Strings-Prelude-C-43C-43 volStr (Strings-Prelude-C-43C-43 rootStr (Strings-Prelude-C-43C-43 bodyStr trailStr)))))))))) (define Path-Utils-show_Show__Body (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) ".") ((1) "..") (else (let ((e-0 (vector-ref sc0 1))) e-0)))))) (define Path-Utils-showPrec_Show__Path (lambda (arg-0 arg-1) (Path-Utils-show_Show__Path arg-1))) -(define Path-Utils-__Impl_TokenKind_PathTokenKind (lambda () (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247)))))) +(define Path-Utils-__Impl_TokenKind_PathTokenKind (lambda () (vector 0 (lambda (arg-254) (Path-Utils-TokType_TokenKind__PathTokenKind arg-254)) (lambda (kind) (lambda (arg-255) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-255)))))) (define Path-Utils-__Impl_Show_Path (lambda () (vector 0 (lambda (x) (Path-Utils-show_Show__Path x)) (lambda (d) (lambda (x) (Path-Utils-showPrec_Show__Path d x)))))) -(define Path-Utils-__Impl_Eq_Volume (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__Volume arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__Volume arg-430 arg-431)))))) -(define Path-Utils-__Impl_Eq_PathTokenKind (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))))) -(define Path-Utils-__Impl_Eq_Body (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__Body arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__Body arg-430 arg-431)))))) +(define Path-Utils-__Impl_Eq_Volume (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__Volume arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__Volume arg-438 arg-439)))))) +(define Path-Utils-__Impl_Eq_PathTokenKind (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-438 arg-439)))))) +(define Path-Utils-__Impl_Eq_Body (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__Body arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__Body arg-438 arg-439)))))) (define Path-Utils-TokType_TokenKind__PathTokenKind (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector "String" )) (else (vector "Builtin.Unit" )))))) (define Path-Utils-C-61C-61_Eq__Volume (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__String e-0 e-3) (lambda () (Prelude-C-61C-61_Eq__String e-3 e-4))))))(else 1))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__Char e-2 e-5)))(else 1)))))(else 1))))) (define Path-Utils-C-61C-61_Eq__PathTokenKind (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__Char e-0 e-1)))(else 1)))))(else 1))))) -(define Path-Utils-C-61C-61_Eq__Path (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__Volume arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__Volume arg-430 arg-431)))) e-0 e-4) (lambda () (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Bool e-1 e-5) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__Body arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__Body arg-430 arg-431)))) e-2 e-6))))))))))))))) +(define Path-Utils-C-61C-61_Eq__Path (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__Volume arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__Volume arg-438 arg-439)))) e-0 e-4) (lambda () (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Bool e-1 e-5) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__Body arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__Body arg-438 arg-439)))) e-2 e-6))))))))))))))) (define Path-Utils-C-61C-61_Eq__Body (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-1 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__String e-0 e-1)))(else 1)))))(else 1))))) (define Path-Utils-C-47C-61_Eq__Volume (lambda (arg-0 arg-1) (Prelude-not (Path-Utils-C-61C-61_Eq__Volume arg-0 arg-1)))) (define Path-Utils-C-47C-61_Eq__PathTokenKind (lambda (arg-0 arg-1) (Prelude-not (Path-Utils-C-61C-61_Eq__PathTokenKind arg-0 arg-1)))) (define Path-Utils-C-47C-61_Eq__Body (lambda (arg-0 arg-1) (Prelude-not (Path-Utils-C-61C-61_Eq__Body arg-0 arg-1)))) -(define Path-Utils-verbatimUnc (lambda () (vector 7 0 (Path-Utils-verbatim) (lambda () (lambda (_-2430) (vector 7 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 0 )) (lambda () (lambda (server) (vector 7 0 (Path-Utils-bodySeparator) (lambda () (lambda (_-2458) (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 0 )) (lambda () (lambda (share) (vector 0 (vector 0 server share)))))))))))))))) -(define Path-Utils-verbatimDisk (lambda () (vector 7 0 (Path-Utils-verbatim) (lambda () (lambda (_-2557) (vector 7 1 (Path-Utils-disk) (lambda () (lambda (d) (vector 0 d))))))))) -(define Path-Utils-verbatim (lambda () (vector 7 0 (Parser-Text-count 'erased 'erased (Quantity-Text-exactly (+ 1 (+ 1 0))) (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 1 #\\))) (lambda () (lambda (_-2298) (vector 7 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 1 #\?)) (lambda () (lambda (_-2328) (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 1 #\\)) (lambda () (lambda (_-2346) (vector 0 (vector 0 ))))))))))))) -(define Path-Utils-unc (lambda () (vector 7 0 (Parser-Text-count 'erased 'erased (Quantity-Text-exactly (+ 1 (+ 1 0))) (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 1 #\\))) (lambda () (lambda (_-2362) (vector 7 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 0 )) (lambda () (lambda (server) (vector 7 0 (Path-Utils-bodySeparator) (lambda () (lambda (_-2402) (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 0 )) (lambda () (lambda (share) (vector 0 (vector 0 server share)))))))))))))))) -(define Path-Utils-stripPrefix (lambda (arg-0 arg-1) (Path-Utils-case--3856-3141 arg-1 arg-0 (Path-Utils-parse arg-0)))) -(define Path-Utils-splitParentC-39 (lambda (arg-0) (Path-Utils-case--3594-2850 arg-0 (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))) +(define Path-Utils-verbatimUnc (lambda () (vector 7 0 (Path-Utils-verbatim) (lambda () (lambda (_-2439) (vector 7 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-438 arg-439)))) (vector 0 (lambda (arg-254) (Path-Utils-TokType_TokenKind__PathTokenKind arg-254)) (lambda (kind) (lambda (arg-255) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-255))))) (vector 0 )) (lambda () (lambda (server) (vector 7 0 (Path-Utils-bodySeparator) (lambda () (lambda (_-2467) (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-438 arg-439)))) (vector 0 (lambda (arg-254) (Path-Utils-TokType_TokenKind__PathTokenKind arg-254)) (lambda (kind) (lambda (arg-255) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-255))))) (vector 0 )) (lambda () (lambda (share) (vector 0 (vector 0 server share)))))))))))))))) +(define Path-Utils-verbatimDisk (lambda () (vector 7 0 (Path-Utils-verbatim) (lambda () (lambda (_-2566) (vector 7 1 (Path-Utils-disk) (lambda () (lambda (d) (vector 0 d))))))))) +(define Path-Utils-verbatim (lambda () (vector 7 0 (Parser-Text-count 'erased 'erased (Quantity-Text-exactly (+ 1 (+ 1 0))) (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-438 arg-439)))) (vector 0 (lambda (arg-254) (Path-Utils-TokType_TokenKind__PathTokenKind arg-254)) (lambda (kind) (lambda (arg-255) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-255))))) (vector 1 #\\))) (lambda () (lambda (_-2307) (vector 7 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-438 arg-439)))) (vector 0 (lambda (arg-254) (Path-Utils-TokType_TokenKind__PathTokenKind arg-254)) (lambda (kind) (lambda (arg-255) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-255))))) (vector 1 #\?)) (lambda () (lambda (_-2337) (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-438 arg-439)))) (vector 0 (lambda (arg-254) (Path-Utils-TokType_TokenKind__PathTokenKind arg-254)) (lambda (kind) (lambda (arg-255) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-255))))) (vector 1 #\\)) (lambda () (lambda (_-2355) (vector 0 (vector 0 ))))))))))))) +(define Path-Utils-unc (lambda () (vector 7 0 (Parser-Text-count 'erased 'erased (Quantity-Text-exactly (+ 1 (+ 1 0))) (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-438 arg-439)))) (vector 0 (lambda (arg-254) (Path-Utils-TokType_TokenKind__PathTokenKind arg-254)) (lambda (kind) (lambda (arg-255) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-255))))) (vector 1 #\\))) (lambda () (lambda (_-2371) (vector 7 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-438 arg-439)))) (vector 0 (lambda (arg-254) (Path-Utils-TokType_TokenKind__PathTokenKind arg-254)) (lambda (kind) (lambda (arg-255) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-255))))) (vector 0 )) (lambda () (lambda (server) (vector 7 0 (Path-Utils-bodySeparator) (lambda () (lambda (_-2411) (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-438 arg-439)))) (vector 0 (lambda (arg-254) (Path-Utils-TokType_TokenKind__PathTokenKind arg-254)) (lambda (kind) (lambda (arg-255) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-255))))) (vector 0 )) (lambda () (lambda (share) (vector 0 (vector 0 server share)))))))))))))))) +(define Path-Utils-stripPrefix (lambda (arg-0 arg-1) (Path-Utils-case--3858-3150 arg-1 arg-0 (Path-Utils-parse arg-0)))) +(define Path-Utils-splitParentC-39 (lambda (arg-0) (Path-Utils-case--3596-2859 arg-0 (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))) (define Path-Utils-splitParent (lambda (arg-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Path-Utils-splitParentC-39 (Path-Utils-parse arg-0)) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (Path-Utils-show_Show__Path e-2) (Path-Utils-show_Show__Path e-3)))))))))) -(define Path-Utils-splitFileName (lambda (arg-0) (Path-Utils-case--3705-2961 arg-0 (List-Data-break 'erased (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 #\.)) (List-Data-reverse 'erased (Prelude-unpack arg-0)))))) -(define Path-Utils-setFileNameC-39 (lambda (arg-0 arg-1) (Path-Utils-case--3684-2934 arg-1 arg-0 (Maybe-Data-isJust 'erased (Path-Utils-fileNameC-39 arg-1))))) +(define Path-Utils-splitFileName (lambda (arg-0) (Path-Utils-case--3707-2970 arg-0 (List-Data-break 'erased (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 #\.)) (List-Data-reverse 'erased (Prelude-unpack arg-0)))))) +(define Path-Utils-setFileNameC-39 (lambda (arg-0 arg-1) (Path-Utils-case--3686-2943 arg-1 arg-0 (Maybe-Data-isJust 'erased (Path-Utils-fileNameC-39 arg-1))))) (define Path-Utils-pathTokenMap (lambda () (Lexer-Text-toTokenMap 'erased (vector 1 (vector 0 (Lexer-Text-is #\/) (vector 1 #\/)) (vector 1 (vector 0 (Lexer-Text-is #\\) (vector 1 #\\)) (vector 1 (vector 0 (Lexer-Text-is #\:) (vector 1 #\:)) (vector 1 (vector 0 (Lexer-Text-is #\?) (vector 1 #\?)) (vector 1 (vector 0 (Lexer-Text-some (Lexer-Text-non (Lexer-Text-oneOf "/\\:?"))) (vector 0 )) (vector 0 ))))))))) -(define Path-Utils-pathSeparator (lambda () (Path-Utils-case--2539-1857 (Info-System-isWindows)))) +(define Path-Utils-pathSeparator (lambda () (Path-Utils-case--2541-1866 (Info-System-isWindows)))) (define Path-Utils-parseVolume (lambda () (vector 9 0 0 (Path-Utils-verbatimUnc) (lambda () (vector 9 0 0 (Path-Utils-verbatimDisk) (lambda () (vector 9 0 0 (Path-Utils-unc) (lambda () (Path-Utils-disk))))))))) -(define Path-Utils-parsePath (lambda () (vector 8 1 1 (Parser-Text-optional 'erased 'erased 0 (Path-Utils-parseVolume)) (lambda (vol) (vector 8 1 1 (Parser-Text-optional 'erased 'erased 0 (Parser-Text-some 'erased 'erased (Path-Utils-bodySeparator))) (lambda (root) (vector 8 1 1 (Parser-Text-sepBy 'erased 'erased 'erased 0 (Parser-Text-some 'erased 'erased (Path-Utils-bodySeparator)) (Path-Utils-parseBody)) (lambda (body) (vector 8 1 1 (Parser-Text-optional 'erased 'erased 0 (Parser-Text-some 'erased 'erased (Path-Utils-bodySeparator))) (lambda (trailSep) (let ((body-0 (List-Data-filter 'erased (lambda (lcase-0) (let ((sc0 lcase-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (Prelude-C-47C-61_Eq__String (Strings-Data-ltrim e-0) "")))(else 0)))) body))) (let ((body-1 (let ((sc0 body-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (List-Data-delete 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__Body arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__Body arg-430 arg-431)))) (vector 0 ) e-3))))))))) (vector 0 (vector 0 vol (Maybe-Data-isJust 'erased root) body-1 (Maybe-Data-isJust 'erased trailSep))))))))))))))) -(define Path-Utils-parseBody (lambda () (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 0 )) (lambda () (lambda (text) (let ((sc0 text)) (cond ((equal? sc0 "..") (vector 0 (vector 1 ))) ((equal? sc0 ".") (vector 0 (vector 0 )))(else (vector 0 (vector 2 text)))))))))) -(define Path-Utils-parse (lambda (arg-0) (Path-Utils-case--3478-2746 arg-0 (Core-Parser-Text-parse 'erased 'erased 1 (Path-Utils-parsePath) (Path-Utils-lexPath arg-0))))) +(define Path-Utils-parsePath (lambda () (vector 8 1 1 (Parser-Text-optional 'erased 'erased 0 (Path-Utils-parseVolume)) (lambda (vol) (vector 8 1 1 (Parser-Text-optional 'erased 'erased 0 (Parser-Text-some 'erased 'erased (Path-Utils-bodySeparator))) (lambda (root) (vector 8 1 1 (Parser-Text-sepBy 'erased 'erased 'erased 0 (Parser-Text-some 'erased 'erased (Path-Utils-bodySeparator)) (Path-Utils-parseBody)) (lambda (body) (vector 8 1 1 (Parser-Text-optional 'erased 'erased 0 (Parser-Text-some 'erased 'erased (Path-Utils-bodySeparator))) (lambda (trailSep) (let ((body-0 (List-Data-filter 'erased (lambda (lcase-0) (let ((sc0 lcase-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (Prelude-C-47C-61_Eq__String (Strings-Data-ltrim e-0) "")))(else 0)))) body))) (let ((body-1 (let ((sc0 body-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (List-Data-delete 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__Body arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__Body arg-438 arg-439)))) (vector 0 ) e-3))))))))) (vector 0 (vector 0 vol (Maybe-Data-isJust 'erased root) body-1 (Maybe-Data-isJust 'erased trailSep))))))))))))))) +(define Path-Utils-parseBody (lambda () (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-438 arg-439)))) (vector 0 (lambda (arg-254) (Path-Utils-TokType_TokenKind__PathTokenKind arg-254)) (lambda (kind) (lambda (arg-255) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-255))))) (vector 0 )) (lambda () (lambda (text) (let ((sc0 text)) (cond ((equal? sc0 "..") (vector 0 (vector 1 ))) ((equal? sc0 ".") (vector 0 (vector 0 )))(else (vector 0 (vector 2 text)))))))))) +(define Path-Utils-parse (lambda (arg-0) (Path-Utils-case--3480-2755 arg-0 (Core-Parser-Text-parse 'erased 'erased 1 (Path-Utils-parsePath) (Path-Utils-lexPath arg-0))))) (define Path-Utils-parentC-39 (lambda (arg-0) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (Path-Utils-splitParentC-39 arg-0)))) (define Path-Utils-parent (lambda (arg-0) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Path-Utils-show_Show__Path eta-0)) (Path-Utils-parentC-39 (Path-Utils-parse arg-0))))) -(define Path-Utils-lexPath (lambda (arg-0) (Path-Utils-case--2984-2243 arg-0 (Core-Lexer-Text-lex 'erased (Path-Utils-pathTokenMap) arg-0)))) +(define Path-Utils-lexPath (lambda (arg-0) (Path-Utils-case--2986-2252 arg-0 (Core-Lexer-Text-lex 'erased (Path-Utils-pathTokenMap) arg-0)))) (define Path-Utils-joinPath (lambda (arg-0) (Prelude-foldl_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Path-Utils-C-60C-47C-62 eta-0 eta-1))) "" arg-0))) -(define Path-Utils-isAbsoluteC-39 (lambda (arg-0) (Path-Utils-case--3505-2766 arg-0 (Info-System-isWindows)))) +(define Path-Utils-isAbsoluteC-39 (lambda (arg-0) (Path-Utils-case--3507-2775 arg-0 (Info-System-isWindows)))) (define Path-Utils-isAbsolute (lambda (arg-0) (Path-Utils-isAbsoluteC-39 (Path-Utils-parse arg-0)))) (define Path-Path-Utils-hasRoot (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) -(define Path-Utils-fileNameC-39 (lambda (arg-0) (Path-Utils-n--3666-2915-findNormal arg-0 (List-Data-reverse 'erased (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))))) +(define Path-Utils-fileNameC-39 (lambda (arg-0) (Path-Utils-n--3668-2924-findNormal arg-0 (List-Data-reverse 'erased (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))))) (define Path-Utils-fileName (lambda (arg-0) (Path-Utils-fileNameC-39 (Path-Utils-parse arg-0)))) (define Path-Utils-extension (lambda (arg-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Path-Utils-fileName arg-0) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (Builtin-snd 'erased 'erased (Path-Utils-splitFileName bind-0))))))) (define Path-Utils-emptyPath (lambda () (vector 0 (vector 0 ) 1 (vector 0 ) 1))) -(define Path-Utils-disk (lambda () (vector 7 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 0 )) (lambda () (lambda (text) (vector 8 1 0 (Path-Utils-case--3213-2534 text (Prelude-unpack text)) (lambda (disk) (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 1 #\:)) (lambda () (lambda (_-2523) (vector 0 (vector 1 (Prelude-toUpper disk))))))))))))) -(define Path-Utils-dirSeparator (lambda () (Path-Utils-case--2534-1852 (Info-System-isWindows)))) -(define Path-Utils-bodySeparator (lambda () (vector 9 0 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 1 #\\)) (lambda () (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 1 #\/)))))) -(define Path-Utils-appendC-39 (lambda (arg-0 arg-1) (Path-Utils-case--3540-2800 arg-1 arg-0 (Prelude-C-124C-124 (Path-Utils-isAbsoluteC-39 arg-1) (lambda () (Maybe-Data-isJust 'erased (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)))))))) +(define Path-Utils-disk (lambda () (vector 7 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-438 arg-439)))) (vector 0 (lambda (arg-254) (Path-Utils-TokType_TokenKind__PathTokenKind arg-254)) (lambda (kind) (lambda (arg-255) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-255))))) (vector 0 )) (lambda () (lambda (text) (vector 8 1 0 (Path-Utils-case--3215-2543 text (Prelude-unpack text)) (lambda (disk) (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-438 arg-439)))) (vector 0 (lambda (arg-254) (Path-Utils-TokType_TokenKind__PathTokenKind arg-254)) (lambda (kind) (lambda (arg-255) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-255))))) (vector 1 #\:)) (lambda () (lambda (_-2532) (vector 0 (vector 1 (Prelude-toUpper disk))))))))))))) +(define Path-Utils-dirSeparator (lambda () (Path-Utils-case--2536-1861 (Info-System-isWindows)))) +(define Path-Utils-bodySeparator (lambda () (vector 9 0 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-438 arg-439)))) (vector 0 (lambda (arg-254) (Path-Utils-TokType_TokenKind__PathTokenKind arg-254)) (lambda (kind) (lambda (arg-255) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-255))))) (vector 1 #\\)) (lambda () (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-438 arg-439)))) (vector 0 (lambda (arg-254) (Path-Utils-TokType_TokenKind__PathTokenKind arg-254)) (lambda (kind) (lambda (arg-255) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-255))))) (vector 1 #\/)))))) +(define Path-Utils-appendC-39 (lambda (arg-0 arg-1) (Path-Utils-case--3542-2809 arg-1 arg-0 (Prelude-C-124C-124 (Path-Utils-isAbsoluteC-39 arg-1) (lambda () (Maybe-Data-isJust 'erased (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)))))))) (define Path-Utils-PathToken (lambda () (vector "Text.Token.Token" (vector "Utils.Path.PathTokenKind" )))) (define Path-Utils-C-60C-47C-62 (lambda (arg-0 arg-1) (Path-Utils-show_Show__Path (Path-Utils-appendC-39 (Path-Utils-parse arg-0) (Path-Utils-parse arg-1))))) -(define Path-Utils-C-60C-46C-62 (lambda (arg-0 arg-1) (let ((pC-39 (Path-Utils-parse arg-0))) (let ((ext (Prelude-pack (List-Data-dropWhile 'erased (lambda (arg-2) (Prelude-C-61C-61_Eq__Char arg-2 #\.)) (Prelude-unpack arg-1))))) (let ((ext-0 (Path-Utils-case--4075-3290 arg-1 arg-0 pC-39 ext (Prelude-C-61C-61_Eq__String (Strings-Data-ltrim ext) "")))) (Path-Utils-case--4075-3312 arg-1 arg-0 pC-39 ext ext-0 (Path-Utils-fileNameC-39 pC-39))))))) -(define Hash-Core-case--3238-7602 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) arg-5) (else (Hash-Core-n--3226-7590-hashChars arg-0 arg-1 (b+ (b* arg-5 33 63) (Prelude-cast_Cast__Char_Int (Strings-Data-strIndex arg-2 arg-4)) 63) (b+ arg-4 1 63) arg-3 arg-2)))))) -(define Hash-Core-n--3226-7590-hashChars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Hash-Core-case--3238-7602 arg-0 arg-1 arg-5 arg-4 arg-3 arg-2 (Prelude-C-61C-61_Eq__Int arg-3 arg-4)))) +(define Path-Utils-C-60C-46C-62 (lambda (arg-0 arg-1) (let ((pC-39 (Path-Utils-parse arg-0))) (let ((ext (Prelude-pack (List-Data-dropWhile 'erased (lambda (arg-2) (Prelude-C-61C-61_Eq__Char arg-2 #\.)) (Prelude-unpack arg-1))))) (let ((ext-0 (Path-Utils-case--4077-3299 arg-1 arg-0 pC-39 ext (Prelude-C-61C-61_Eq__String (Strings-Data-ltrim ext) "")))) (Path-Utils-case--4077-3321 arg-1 arg-0 pC-39 ext ext-0 (Path-Utils-fileNameC-39 pC-39))))))) +(define Hash-Core-case--3244-7610 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) arg-5) (else (Hash-Core-n--3232-7598-hashChars arg-0 arg-1 (b+ (b* arg-5 33 63) (Prelude-cast_Cast__Char_Int (Strings-Data-strIndex arg-2 arg-4)) 63) (b+ arg-4 1 63) arg-3 arg-2)))))) +(define Hash-Core-n--3232-7598-hashChars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Hash-Core-case--3244-7610 arg-0 arg-1 arg-5 arg-4 arg-3 arg-2 (Prelude-C-61C-61_Eq__Int arg-3 arg-4)))) (define Hash-Core-hash_Hashable__String (lambda (ext-0) (Hash-Core-hashWithSalt_Hashable__String 5381 ext-0))) (define Hash-Core-hash_Hashable__Nat (lambda (ext-0) (Prelude-cast_Cast__Nat_Int ext-0))) (define Hash-Core-hash_Hashable__Name (lambda (ext-0) (Hash-Core-hashWithSalt_Hashable__Name 5381 ext-0))) @@ -2999,33 +3039,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--3226-7590-hashChars arg-1 arg-0 arg-0 0 (Prelude-cast_Cast__Nat_Int (Prelude-length arg-1)) arg-1))) -(define Hash-Core-hashWithSalt_Hashable__RigCount (lambda (arg-0 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (Hash-Core-hashWithSalt_Hashable__Integer arg-0 0) (Hash-Core-hashWithSalt_Hashable__Integer arg-0 1) (lambda (eta-0) (Hash-Core-hashWithSalt_Hashable__Integer arg-0 2)) ext-0))) +(define Hash-Core-hashWithSalt_Hashable__String (lambda (arg-0 arg-1) (Hash-Core-n--3232-7598-hashChars arg-1 arg-0 arg-0 0 (Prelude-cast_Cast__Nat_Int (Prelude-length arg-1)) arg-1))) +(define Hash-Core-hashWithSalt_Hashable__RigCount (lambda (arg-0 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (Hash-Core-hashWithSalt_Hashable__Integer arg-0 0) (Hash-Core-hashWithSalt_Hashable__Integer arg-0 1) (lambda (eta-0) (Hash-Core-hashWithSalt_Hashable__Integer arg-0 2)) ext-0))) (define Hash-Core-hashWithSalt_Hashable__Nat (lambda (arg-0 arg-1) (b+ (b* arg-0 33 63) (Hash-Core-hash_Hashable__Nat arg-1) 63))) -(define Hash-Core-hashWithSalt_Hashable__Name (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (Hash-Core-hashWithSalt_Hashable__String arg-0 e-0))) ((4) (let ((e-3 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__Name arg-0 e-3))) ((0) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__String arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__String arg-7328 arg-7329)))) arg-0 e-4) e-5)))) ((9) (let ((e-6 (vector-ref sc0 1))) (Hash-Core-hashWithSalt_Hashable__Int arg-0 e-6)))(else (Hash-Core-hashWithSalt_Hashable__String arg-0 (Name-Core-show_Show__Name arg-1))))))) +(define Hash-Core-hashWithSalt_Hashable__Name (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (Hash-Core-hashWithSalt_Hashable__String arg-0 e-0))) ((4) (let ((e-3 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__Name arg-0 e-3))) ((0) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__String arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__String arg-7336 arg-7337)))) arg-0 e-4) e-5)))) ((9) (let ((e-6 (vector-ref sc0 1))) (Hash-Core-hashWithSalt_Hashable__Int arg-0 e-6)))(else (Hash-Core-hashWithSalt_Hashable__String arg-0 (Name-Core-show_Show__Name arg-1))))))) (define Hash-Core-hashWithSalt_Hashable__Integer (lambda (arg-0 arg-1) (b+ (b* arg-0 33 63) (Hash-Core-hash_Hashable__Integer arg-1) 63))) (define Hash-Core-hashWithSalt_Hashable__Int (lambda (arg-0 arg-1) (b+ (b* arg-0 33 63) (Hash-Core-hash_Hashable__Int arg-1) 63))) -(define Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__Nat (Hash-Core-hashWithSalt_Hashable__Integer arg-1 0) e-4))) ((1) (let ((e-9 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hashWithSalt_Hashable__Integer arg-1 1) e-9))) ((2) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (Hash-Core-hashWithSalt_Hashable__Int (Hash-Core-hashWithSalt_Hashable__Integer arg-1 2) e-13) e-14)))) ((3) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__C-40BinderC-32C-36tyC-41 'erased (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (Hash-Core-hashWithSalt_Hashable__Integer arg-1 3) e-18) e-19)))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 4) e-22) e-23)))) ((5) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 5) e-27) e-28)))) ((6) (let ((e-32 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 6) e-32))) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 7) e-36) e-37)))) ((8) (let ((e-41 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 8) e-41))) ((9) (let ((e-44 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__String (Hash-Core-hashWithSalt_Hashable__Integer arg-1 9) (TT-Core-show_Show__Constant e-44)))) ((10) (Hash-Core-hashWithSalt_Hashable__Integer arg-1 10)) (else (Hash-Core-hashWithSalt_Hashable__Integer arg-1 11)))))) +(define Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__Nat (Hash-Core-hashWithSalt_Hashable__Integer arg-1 0) e-4))) ((1) (let ((e-9 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hashWithSalt_Hashable__Integer arg-1 1) e-9))) ((2) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (Hash-Core-hashWithSalt_Hashable__Int (Hash-Core-hashWithSalt_Hashable__Integer arg-1 2) e-13) e-14)))) ((3) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__C-40BinderC-32C-36tyC-41 'erased (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (Hash-Core-hashWithSalt_Hashable__Integer arg-1 3) e-18) e-19)))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 4) e-22) e-23)))) ((5) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 5) e-27) e-28)))) ((6) (let ((e-32 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 6) e-32))) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 7) e-36) e-37)))) ((8) (let ((e-41 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 8) e-41))) ((9) (let ((e-44 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__String (Hash-Core-hashWithSalt_Hashable__Integer arg-1 9) (TT-Core-show_Show__Constant e-44)))) ((10) (Hash-Core-hashWithSalt_Hashable__Integer arg-1 10)) (else (Hash-Core-hashWithSalt_Hashable__Integer arg-1 11)))))) (define Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (Hash-Core-hashWithSalt_Hashable__Integer arg-2 0)) ((1) (Hash-Core-hashWithSalt_Hashable__Integer arg-2 1)) ((2) (Hash-Core-hashWithSalt_Hashable__Integer arg-2 2)) (else (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 (Hash-Core-hashWithSalt_Hashable__Integer arg-2 3)) e-4))))))))) (define Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (Prelude-abs_Abs__Int arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased arg-1 (b+ (b* arg-2 33 63) (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (e-1 e-2))) 63) e-3)))))))) (define Hash-Core-hashWithSalt_Hashable__C-40BinderC-32C-36tyC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 (Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 (Hash-Core-hashWithSalt_Hashable__RigCount (Hash-Core-hashWithSalt_Hashable__Integer arg-2 0) e-1) e-2)) e-3))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 (let ((sc2 arg-1)) (let ((e-3 (vector-ref sc2 2))) ((e-3 (Hash-Core-hashWithSalt_Hashable__RigCount (Hash-Core-hashWithSalt_Hashable__Integer arg-2 1) e-5)) e-6)))) e-7))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 (Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 (Hash-Core-hashWithSalt_Hashable__RigCount (Hash-Core-hashWithSalt_Hashable__Integer arg-2 2) e-9) e-10)) e-11))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 (Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 (Hash-Core-hashWithSalt_Hashable__RigCount (Hash-Core-hashWithSalt_Hashable__Integer arg-2 3) e-13) e-14)) e-15))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 (let ((sc2 arg-1)) (let ((e-3 (vector-ref sc2 2))) ((e-3 (Hash-Core-hashWithSalt_Hashable__RigCount (Hash-Core-hashWithSalt_Hashable__Integer arg-2 4) e-17)) e-18)))) e-19))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 (Hash-Core-hashWithSalt_Hashable__RigCount (Hash-Core-hashWithSalt_Hashable__Integer arg-2 5) e-21)) e-22)))))))))) -(define Hash-Core-__Impl_Hashable_String (lambda () (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__String arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__String arg-7328 arg-7329)))))) -(define Hash-Core-__Impl_Hashable_Nat (lambda () (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Nat arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Nat arg-7328 arg-7329)))))) -(define Hash-Core-__Impl_Hashable_Name (lambda () (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))))) -(define Hash-Core-__Impl_Hashable_Integer (lambda () (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Integer arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Integer arg-7328 arg-7329)))))) -(define Hash-Core-__Impl_Hashable_Int (lambda () (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Int arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Int arg-7328 arg-7329)))))) -(define Hash-Core-__Impl_Hashable_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))))) -(define Hash-Core-__Impl_Hashable_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-7328 arg-7329)))))) -(define Hash-Core-__Impl_Hashable_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased arg-1 arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased arg-1 arg-7328 arg-7329)))))) -(define Hash-Core-__Impl_Hashable_C-40BinderC-32C-36tyC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40BinderC-32C-36tyC-41 'erased arg-1 arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40BinderC-32C-36tyC-41 'erased arg-1 arg-7328 arg-7329)))))) +(define Hash-Core-__Impl_Hashable_String (lambda () (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__String arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__String arg-7336 arg-7337)))))) +(define Hash-Core-__Impl_Hashable_Nat (lambda () (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__Nat arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Nat arg-7336 arg-7337)))))) +(define Hash-Core-__Impl_Hashable_Name (lambda () (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__Name arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Name arg-7336 arg-7337)))))) +(define Hash-Core-__Impl_Hashable_Integer (lambda () (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__Integer arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Integer arg-7336 arg-7337)))))) +(define Hash-Core-__Impl_Hashable_Int (lambda () (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__Int arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Int arg-7336 arg-7337)))))) +(define Hash-Core-__Impl_Hashable_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))))) +(define Hash-Core-__Impl_Hashable_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-7336 arg-7337)))))) +(define Hash-Core-__Impl_Hashable_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased arg-1 arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased arg-1 arg-7336 arg-7337)))))) +(define Hash-Core-__Impl_Hashable_C-40BinderC-32C-36tyC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__C-40BinderC-32C-36tyC-41 'erased arg-1 arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40BinderC-32C-36tyC-41 'erased arg-1 arg-7336 arg-7337)))))) (define Hash-Core-hashWithSalt (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-2) (lambda (arg-3) ((e-2 arg-2) arg-3))))))) (define Hash-Core-hash (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (e-1 arg-2)))))) -(define CaseTree-Core-case--3925-7911 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 0 arg-1 (vector 0 ) e-1)))(else (vector 1 arg-1 (vector 0 ) arg-0)))))) -(define CaseTree-Core-case--3799-7837 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 3 arg-1 arg-0)) (else (vector 2 arg-1 (vector 1 (TT-Core-show_Show__Constant arg-0)) 0 (vector 0 ))))))) -(define CaseTree-Core-case--3464-7474 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 0 arg-0 (List-Prelude-C-43C-43 'erased arg-2 (List-Prelude-C-43C-43 'erased arg-7 arg-1)) arg-8 (TT-Core-insertNames arg-2 arg-1 arg-7 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseTree-Core-insertCaseAltNames arg-2 arg-1 arg-7 eta-0)) arg-3)))) -(define CaseTree-Core-n--3684-7664-getSet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-5 (vector-ref sc0 5))) (CaseTree-Core-n--3684-7663-getAltSets 'erased arg-1 arg-2 arg-3 'erased arg-5 e-5))) ((1) (let ((e-8 (vector-ref sc0 2))) (((arg-3 'erased) arg-5) e-8))) ((2) arg-5) (else arg-5))))) -(define CaseTree-Core-n--3684-7663-getAltSets (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) arg-5) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseTree-Core-n--3684-7663-getAltSets 'erased arg-1 arg-2 arg-3 'erased (CaseTree-Core-n--3684-7662-getAltSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-2) e-3)))))))) -(define CaseTree-Core-n--3684-7662-getAltSet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 4))) (CaseTree-Core-n--3684-7664-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-4))) ((1) (let ((e-8 (vector-ref sc0 3))) (CaseTree-Core-n--3684-7664-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-8))) ((2) (let ((e-11 (vector-ref sc0 2))) (CaseTree-Core-n--3684-7664-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-11))) (else (let ((e-13 (vector-ref sc0 1))) (CaseTree-Core-n--3684-7664-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-13))))))) +(define CaseTree-Core-case--3931-7980 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 0 arg-1 (vector 0 ) e-1)))(else (vector 1 arg-1 (vector 0 ) arg-0)))))) +(define CaseTree-Core-case--3805-7906 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 3 arg-1 arg-0)) (else (vector 2 arg-1 (vector 1 (TT-Core-show_Show__Constant arg-0)) 0 (vector 0 ))))))) +(define CaseTree-Core-case--3470-7543 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 0 arg-0 (List-Prelude-C-43C-43 'erased arg-2 (List-Prelude-C-43C-43 'erased arg-7 arg-1)) arg-8 (TT-Core-insertNames arg-2 arg-1 arg-7 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseTree-Core-insertCaseAltNames arg-2 arg-1 arg-7 eta-0)) arg-3)))) +(define CaseTree-Core-n--3690-7733-getSet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-5 (vector-ref sc0 5))) (CaseTree-Core-n--3690-7732-getAltSets 'erased arg-1 arg-2 arg-3 'erased arg-5 e-5))) ((1) (let ((e-8 (vector-ref sc0 2))) (((arg-3 'erased) arg-5) e-8))) ((2) arg-5) (else arg-5))))) +(define CaseTree-Core-n--3690-7732-getAltSets (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) arg-5) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseTree-Core-n--3690-7732-getAltSets 'erased arg-1 arg-2 arg-3 'erased (CaseTree-Core-n--3690-7731-getAltSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-2) e-3)))))))) +(define CaseTree-Core-n--3690-7731-getAltSet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 4))) (CaseTree-Core-n--3690-7733-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-4))) ((1) (let ((e-8 (vector-ref sc0 3))) (CaseTree-Core-n--3690-7733-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-8))) ((2) (let ((e-11 (vector-ref sc0 2))) (CaseTree-Core-n--3690-7733-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-11))) (else (let ((e-13 (vector-ref sc0 1))) (CaseTree-Core-n--3690-7733-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-13))))))) (define CaseTree-Core-weaken_Weaken__CaseTree (lambda (arg-0 arg-1 ext-0) (CaseTree-Core-weakenNs_Weaken__CaseTree arg-1 (vector 1 arg-0 (vector 0 )) ext-0))) (define CaseTree-Core-weakenNs_Weaken__CaseTree (lambda (arg-0 arg-1 arg-2) (CaseTree-Core-insertCaseNames (vector 0 ) arg-0 arg-1 arg-2))) (define CaseTree-Core-show_Show__Pat (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-1) (Strings-Prelude-C-43C-43 "@(" (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat e-2) ")")))))) ((1) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-7 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-4) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-5) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CaseTree-Core-show_Show__Pat x)) (lambda (d) (lambda (x) (CaseTree-Core-showPrec_Show__Pat d x)))) e-7))))))))) ((2) (let ((e-9 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CaseTree-Core-show_Show__Pat x)) (lambda (d) (lambda (x) (CaseTree-Core-showPrec_Show__Pat d x)))) e-11))))))) ((3) (let ((e-13 (vector-ref sc0 2))) (TT-Core-show_Show__Constant e-13))) ((4) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat e-16) (Strings-Prelude-C-43C-43 " -> " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat e-17) ")"))))))) ((5) (let ((e-21 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "(Delay " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat e-21) ")")))) ((6) (let ((e-23 (vector-ref sc0 2))) (Name-Core-show_Show__Name e-23))) (else (let ((e-25 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 ".(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-25) ")")))))))) @@ -3034,25 +3074,25 @@ (define CaseTree-Core-showPrec_Show__Pat (lambda (arg-0 arg-1) (CaseTree-Core-show_Show__Pat arg-1))) (define CaseTree-Core-showPrec_Show__C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-2))) (define CaseTree-Core-showPrec_Show__C-40CaseAltC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (CaseTree-Core-show_Show__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2))) -(define CaseTree-Core-__Impl_Weaken_CaseTree (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (CaseTree-Core-weaken_Weaken__CaseTree n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (CaseTree-Core-weakenNs_Weaken__CaseTree vars ns arg-3271))))))) +(define CaseTree-Core-__Impl_Weaken_CaseTree (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3275) (CaseTree-Core-weaken_Weaken__CaseTree n vars arg-3275)))) (lambda (vars) (lambda (ns) (lambda (arg-3279) (CaseTree-Core-weakenNs_Weaken__CaseTree vars ns arg-3279))))))) (define CaseTree-Core-__Impl_Show_Pat (lambda () (vector 0 (lambda (x) (CaseTree-Core-show_Show__Pat x)) (lambda (d) (lambda (x) (CaseTree-Core-showPrec_Show__Pat d x)))))) (define CaseTree-Core-__Impl_Show_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (x) (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (CaseTree-Core-showPrec_Show__C-40CaseTreeC-32C-36varsC-41 arg-0 d x)))))) (define CaseTree-Core-__Impl_Show_C-40CaseAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (x) (CaseTree-Core-show_Show__C-40CaseAltC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (CaseTree-Core-showPrec_Show__C-40CaseAltC-32C-36varsC-41 arg-0 d x)))))) -(define CaseTree-Core-mkTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 3))) (CaseTree-Core-mkTerm arg-0 e-2))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (TT-Core-apply 'erased e-3 (vector 1 e-3 (vector 2 e-5 e-6) e-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseTree-Core-mkTerm arg-0 eta-0)) e-7)))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (TT-Core-apply 'erased e-8 (vector 1 e-8 (vector 3 0 e-10) e-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseTree-Core-mkTerm arg-0 eta-0)) e-11))))))) ((3) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (vector 9 e-12 e-13)))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (vector 3 e-14 e-15 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (CaseTree-Core-mkTerm arg-0 e-16)) (CaseTree-Core-mkTerm (vector 1 e-15 arg-0) e-17))))))) ((5) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((e-21 (vector-ref sc0 4))) (vector 7 e-18 e-19 (CaseTree-Core-mkTerm arg-0 e-20) (CaseTree-Core-mkTerm arg-0 e-21))))))) ((6) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (CaseTree-Core-case--3925-7911 e-23 e-22 arg-0 (TT-Core-isVar e-23 arg-0))))) (else (let ((e-25 (vector-ref sc0 2))) (TT-Core-embed 'erased 'erased e-25))))))) -(define CaseTree-Core-mkPatC-39 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 6 e-1 e-3)) ((2) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (vector 1 e-1 e-3 e-28 e-29 arg-0)))) ((3) (let ((e-31 (vector-ref sc1 2))) (vector 2 e-1 e-3 e-31 arg-0)))(else (vector 7 (TT-Core-getLoc 'erased arg-1) arg-1)))))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((2) (let ((e-35 (vector-ref sc1 3))) (let ((tC-39 (SubstEnv-TT-Core-subst (vector 0 ) e-6 (vector 10 e-5 1) e-8))) (vector 4 e-5 e-6 (CaseTree-Core-mkPatC-39 (vector 0 ) e-35 e-35) (CaseTree-Core-mkPatC-39 (vector 0 ) tC-39 tC-39)))))(else (vector 7 (TT-Core-getLoc 'erased arg-1) arg-1))))))))) ((4) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((parg (CaseTree-Core-mkPatC-39 (vector 0 ) e-12 e-12))) (CaseTree-Core-mkPatC-39 (vector 1 parg arg-0) arg-1 e-11))))) ((5) (let ((e-14 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((sc1 e-16)) (case (vector-ref sc1 0) ((1) (let ((e-38 (vector-ref sc1 2))) (let ((e-39 (vector-ref sc1 3))) (let ((sc2 e-38)) (case (vector-ref sc2 0) ((0) (vector 0 e-14 e-39 (CaseTree-Core-mkPatC-39 (vector 0 ) e-17 e-17)))(else (CaseTree-Core-mkPatC-39 (vector 0 ) arg-1 e-17)))))))(else (CaseTree-Core-mkPatC-39 (vector 0 ) arg-1 e-17)))))))) ((7) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (vector 5 e-19 e-20 (CaseTree-Core-mkPatC-39 (vector 0 ) arg-1 e-21) (CaseTree-Core-mkPatC-39 (vector 0 ) arg-1 e-22))))))) ((9) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (CaseTree-Core-case--3799-7837 e-25 e-24 arg-1 arg-0 (Prelude-C-61C-61_Eq__Int (TT-Core-constTag e-25) 0))))) ((11) (let ((e-27 (vector-ref sc0 1))) (vector 2 e-27 (vector 1 "Type") 0 (vector 0 ))))(else (vector 7 (TT-Core-getLoc 'erased arg-1) arg-1)))))) -(define CaseTree-Core-insertCaseNames (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (CaseTree-Core-case--3464-7474 e-0 arg-1 arg-0 e-5 e-4 e-2 'erased arg-2 (TT-Core-insertNVarNames 'erased 'erased arg-0 arg-2 e-2 'erased))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (vector 1 e-7 (TT-Core-insertNames arg-0 arg-1 arg-2 e-8))))) ((2) (let ((e-10 (vector-ref sc0 1))) (vector 2 e-10))) (else (vector 3 )))))) +(define CaseTree-Core-mkTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 3))) (CaseTree-Core-mkTerm arg-0 e-2))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (TT-Core-apply 'erased e-3 (vector 1 e-3 (vector 2 e-5 e-6) e-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseTree-Core-mkTerm arg-0 eta-0)) e-7)))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (TT-Core-apply 'erased e-8 (vector 1 e-8 (vector 3 0 e-10) e-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseTree-Core-mkTerm arg-0 eta-0)) e-11))))))) ((3) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (vector 9 e-12 e-13)))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (vector 3 e-14 e-15 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (CaseTree-Core-mkTerm arg-0 e-16)) (CaseTree-Core-mkTerm (vector 1 e-15 arg-0) e-17))))))) ((5) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((e-21 (vector-ref sc0 4))) (vector 7 e-18 e-19 (CaseTree-Core-mkTerm arg-0 e-20) (CaseTree-Core-mkTerm arg-0 e-21))))))) ((6) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (CaseTree-Core-case--3931-7980 e-23 e-22 arg-0 (TT-Core-isVar e-23 arg-0))))) (else (let ((e-25 (vector-ref sc0 2))) (TT-Core-embed 'erased 'erased e-25))))))) +(define CaseTree-Core-mkPatC-39 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 6 e-1 e-3)) ((2) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (vector 1 e-1 e-3 e-28 e-29 arg-0)))) ((3) (let ((e-31 (vector-ref sc1 2))) (vector 2 e-1 e-3 e-31 arg-0)))(else (vector 7 (TT-Core-getLoc 'erased arg-1) arg-1)))))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((2) (let ((e-35 (vector-ref sc1 3))) (let ((tC-39 (SubstEnv-TT-Core-subst (vector 0 ) e-6 (vector 10 e-5 1) e-8))) (vector 4 e-5 e-6 (CaseTree-Core-mkPatC-39 (vector 0 ) e-35 e-35) (CaseTree-Core-mkPatC-39 (vector 0 ) tC-39 tC-39)))))(else (vector 7 (TT-Core-getLoc 'erased arg-1) arg-1))))))))) ((4) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((parg (CaseTree-Core-mkPatC-39 (vector 0 ) e-12 e-12))) (CaseTree-Core-mkPatC-39 (vector 1 parg arg-0) arg-1 e-11))))) ((5) (let ((e-14 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((sc1 e-16)) (case (vector-ref sc1 0) ((1) (let ((e-38 (vector-ref sc1 2))) (let ((e-39 (vector-ref sc1 3))) (let ((sc2 e-38)) (case (vector-ref sc2 0) ((0) (vector 0 e-14 e-39 (CaseTree-Core-mkPatC-39 (vector 0 ) e-17 e-17)))(else (CaseTree-Core-mkPatC-39 (vector 0 ) arg-1 e-17)))))))(else (CaseTree-Core-mkPatC-39 (vector 0 ) arg-1 e-17)))))))) ((7) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (vector 5 e-19 e-20 (CaseTree-Core-mkPatC-39 (vector 0 ) arg-1 e-21) (CaseTree-Core-mkPatC-39 (vector 0 ) arg-1 e-22))))))) ((9) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (CaseTree-Core-case--3805-7906 e-25 e-24 arg-1 arg-0 (Prelude-C-61C-61_Eq__Int (TT-Core-constTag e-25) 0))))) ((11) (let ((e-27 (vector-ref sc0 1))) (vector 2 e-27 (vector 1 "Type") 0 (vector 0 ))))(else (vector 7 (TT-Core-getLoc 'erased arg-1) arg-1)))))) +(define CaseTree-Core-insertCaseNames (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (CaseTree-Core-case--3470-7543 e-0 arg-1 arg-0 e-5 e-4 e-2 'erased arg-2 (TT-Core-insertNVarNames 'erased 'erased arg-0 arg-2 e-2 'erased))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (vector 1 e-7 (TT-Core-insertNames arg-0 arg-1 arg-2 e-8))))) ((2) (let ((e-10 (vector-ref sc0 1))) (vector 2 e-10))) (else (vector 3 )))))) (define CaseTree-Core-insertCaseAltNames (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (vector 0 e-1 e-2 e-3 (CaseTree-Core-insertCaseNames (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 arg-2 e-4))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (vector 1 e-6 e-7 (CaseTree-Core-insertCaseNames (vector 1 e-6 (vector 1 e-7 arg-0)) arg-1 arg-2 e-8)))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (vector 2 e-10 (CaseTree-Core-insertCaseNames arg-0 arg-1 arg-2 e-11))))) (else (let ((e-13 (vector-ref sc0 1))) (vector 3 (CaseTree-Core-insertCaseNames arg-0 arg-1 arg-2 e-13)))))))) -(define CaseTree-Core-getNames (lambda (arg-0 arg-1 arg-2 arg-3) (CaseTree-Core-n--3684-7664-getSet 'erased arg-3 arg-2 arg-1 'erased arg-2 arg-3))) -(define CaseTree-Core-getMetas (lambda (arg-0 ext-0) (CaseTree-Core-getNames 'erased (lambda (vs-7756) (lambda (eta-0) (lambda (eta-1) (TT-Core-addMetas 'erased eta-0 eta-1)))) (NameMap-Data-empty 'erased) ext-0))) +(define CaseTree-Core-getNames (lambda (arg-0 arg-1 arg-2 arg-3) (CaseTree-Core-n--3690-7733-getSet 'erased arg-3 arg-2 arg-1 'erased arg-2 arg-3))) +(define CaseTree-Core-getMetas (lambda (arg-0 ext-0) (CaseTree-Core-getNames 'erased (lambda (vs-7825) (lambda (eta-0) (lambda (eta-1) (TT-Core-addMetas 'erased eta-0 eta-1)))) (NameMap-Data-empty 'erased) ext-0))) (define CaseTree-Core-argToPat (lambda (arg-0) (CaseTree-Core-mkPatC-39 (vector 0 ) arg-0 arg-0))) -(define CaseTree-Core-addRefs (lambda (arg-0 arg-1 arg-2 ext-0) (CaseTree-Core-getNames 'erased (lambda (vs-7746) (lambda (eta-0) (lambda (eta-1) (TT-Core-addRefs 'erased 1 arg-1 eta-0 eta-1)))) arg-2 ext-0))) -(define CompileExpr-Core-case--6024-2814 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 0 arg-8 arg-6))) -(define CompileExpr-Core-case--5875-2679 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (vector 1 (vector 0 arg-12 arg-5)))) -(define CompileExpr-Core-case--5843-2627 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (CompileExpr-Core-case--5875-2679 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased 'erased 'erased 'erased (TT-Core-weakenNVar 'erased 'erased (List-Prelude-C-43C-43 'erased arg-7 arg-6) 0 'erased))) (else (CompileExpr-Core-resolveRef 'erased 'erased arg-7 (List-Prelude-C-43C-43 'erased arg-6 (vector 1 arg-3 (vector 0 ))) arg-1 arg-5 arg-4)))))) -(define CompileExpr-Core-case--4929-1760 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 13 arg-5)) (else (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2 arg-5))))))) -(define CompileExpr-Core-case--4553-1426 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 arg-7 arg-5))) -(define CompileExpr-Core-case--3968-858 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (CompileExpr-Core-uniqueName 'erased (CompileExpr-Core-tryNext arg-2) arg-1)) (else arg-2))))) -(define CompileExpr-Core-case--3906-813 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) 0) (else (CompileExpr-Core-elem 'erased arg-4 arg-2)))))) +(define CaseTree-Core-addRefs (lambda (arg-0 arg-1 arg-2 ext-0) (CaseTree-Core-getNames 'erased (lambda (vs-7815) (lambda (eta-0) (lambda (eta-1) (TT-Core-addRefs 'erased 1 arg-1 eta-0 eta-1)))) arg-2 ext-0))) +(define CompileExpr-Core-case--6047-2822 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 0 arg-8 arg-6))) +(define CompileExpr-Core-case--5898-2687 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (vector 1 (vector 0 arg-12 arg-5)))) +(define CompileExpr-Core-case--5866-2635 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (CompileExpr-Core-case--5898-2687 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased 'erased 'erased 'erased (TT-Core-weakenNVar 'erased 'erased (List-Prelude-C-43C-43 'erased arg-7 arg-6) 0 'erased))) (else (CompileExpr-Core-resolveRef 'erased 'erased arg-7 (List-Prelude-C-43C-43 'erased arg-6 (vector 1 arg-3 (vector 0 ))) arg-1 arg-5 arg-4)))))) +(define CompileExpr-Core-case--4952-1768 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 13 arg-5)) (else (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2 arg-5))))))) +(define CompileExpr-Core-case--4576-1434 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 arg-7 arg-5))) +(define CompileExpr-Core-case--3991-866 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (CompileExpr-Core-uniqueName 'erased (CompileExpr-Core-tryNext arg-2) arg-1)) (else arg-2))))) +(define CompileExpr-Core-case--3929-821 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) 0) (else (CompileExpr-Core-elem 'erased arg-4 arg-2)))))) (define CompileExpr-Core-weaken_Weaken__CExp (lambda (arg-0 arg-1 ext-0) (CompileExpr-Core-weakenNs_Weaken__CExp arg-1 (vector 1 arg-0 (vector 0 )) ext-0))) (define CompileExpr-Core-weakenNs_Weaken__CExp (lambda (arg-0 arg-1 arg-2) (CompileExpr-Core-insertNames (vector 0 ) arg-0 arg-1 arg-2))) (define CompileExpr-Core-show_Show__NamedDef (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-0) (Strings-Prelude-C-43C-43 ": " (CompileExpr-Core-show_Show__NamedCExp e-1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "Constructor tag " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) e-2) (Strings-Prelude-C-43C-43 " arity " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-3) (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (n) (Strings-Prelude-C-43C-43 " (newtype by " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat n) ")")))) e-4))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "Foreign call " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) e-5) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__CFType x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__CFType d x)))) e-6) (Strings-Prelude-C-43C-43 " -> " (CompileExpr-Core-show_Show__CFType e-7)))))))))) (else (let ((e-8 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Error: " (CompileExpr-Core-show_Show__NamedCExp e-8)))))))) @@ -3067,13 +3107,13 @@ (define CompileExpr-Core-showPrec_Show__NamedCExp (lambda (arg-0 arg-1) (CompileExpr-Core-show_Show__NamedCExp arg-1))) (define CompileExpr-Core-showPrec_Show__CFType (lambda (arg-0 arg-1) (CompileExpr-Core-show_Show__CFType arg-1))) (define CompileExpr-Core-showPrec_Show__C-40CExpC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (CompileExpr-Core-show_Show__C-40CExpC-32C-36varsC-41 arg-0 arg-2))) -(define CompileExpr-Core-__Impl_Weaken_CExp (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (CompileExpr-Core-weaken_Weaken__CExp n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (CompileExpr-Core-weakenNs_Weaken__CExp vars ns arg-3271))))))) +(define CompileExpr-Core-__Impl_Weaken_CExp (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3275) (CompileExpr-Core-weaken_Weaken__CExp n vars arg-3275)))) (lambda (vars) (lambda (ns) (lambda (arg-3279) (CompileExpr-Core-weakenNs_Weaken__CExp vars ns arg-3279))))))) (define CompileExpr-Core-__Impl_Show_NamedConstAlt (lambda () (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedConstAlt x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedConstAlt d x)))))) (define CompileExpr-Core-__Impl_Show_NamedConAlt (lambda () (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedConAlt x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedConAlt d x)))))) (define CompileExpr-Core-__Impl_Show_NamedCExp (lambda () (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))))) (define CompileExpr-Core-__Impl_Show_CFType (lambda () (vector 0 (lambda (x) (CompileExpr-Core-show_Show__CFType x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__CFType d x)))))) (define CompileExpr-Core-__Impl_Show_C-40CExpC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (x) (CompileExpr-Core-show_Show__C-40CExpC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__C-40CExpC-32C-36varsC-41 arg-0 d x)))))) -(define CompileExpr-Core-uniqueName (lambda (arg-0 arg-1 arg-2) (CompileExpr-Core-case--3968-858 'erased arg-2 arg-1 (CompileExpr-Core-elem 'erased arg-1 arg-2)))) +(define CompileExpr-Core-uniqueName (lambda (arg-0 arg-1 arg-2) (CompileExpr-Core-case--3991-866 'erased arg-2 arg-1 (CompileExpr-Core-elem 'erased arg-1 arg-2)))) (define CompileExpr-Core-tryNext (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (vector 2 e-0 0))) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (vector 2 e-1 (b+ 1 e-2 63)))))(else (vector 2 (Name-Core-nameRoot arg-0) 0)))))) (define CompileExpr-Core-substs (lambda (arg-0 arg-1 arg-2 arg-3) (CompileExpr-Core-substEnv (vector 0 ) arg-0 arg-1 arg-2 arg-3))) (define CompileExpr-Core-substEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Core-find 'erased arg-0 arg-1 arg-2 e-2 e-3 'erased arg-3)))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-6 e-7)))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((scC-39 (CompileExpr-Core-substEnv (vector 1 e-10 arg-0) arg-1 arg-2 arg-3 e-11))) (vector 2 e-9 e-10 scC-39)))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((e-16 (vector-ref sc0 4))) (let ((e-17 (vector-ref sc0 5))) (let ((scC-39 (CompileExpr-Core-substEnv (vector 1 e-14 arg-0) arg-1 arg-2 arg-3 e-17))) (vector 3 e-13 e-14 e-15 (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 e-16) scC-39)))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (vector 4 e-19 (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 e-20) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 eta-0)) e-21)))))) ((5) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (vector 5 e-23 e-24 e-25 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 eta-0)) e-26))))))) ((6) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (vector 6 e-28 e-29 e-30 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 eta-0)) e-31))))))) ((7) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (vector 7 e-33 e-34 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 eta-0)) e-35)))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (vector 8 e-37 (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 e-38))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 9 e-40 (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 e-41))))) ((10) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (let ((e-45 (vector-ref sc0 3))) (let ((e-46 (vector-ref sc0 4))) (vector 10 e-43 (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 e-44) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-substConAlt arg-0 arg-1 arg-2 arg-3 eta-0)) e-45) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 eta-0)) e-46))))))) ((11) (let ((e-48 (vector-ref sc0 1))) (let ((e-49 (vector-ref sc0 2))) (let ((e-50 (vector-ref sc0 3))) (let ((e-51 (vector-ref sc0 4))) (vector 11 e-48 (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 e-49) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-substConstAlt arg-0 arg-1 arg-2 arg-3 eta-0)) e-50) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 eta-0)) e-51))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (vector 12 e-53 e-54)))) ((13) (let ((e-56 (vector-ref sc0 1))) (vector 13 e-56))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (vector 14 e-58 e-59)))))))) @@ -3081,15 +3121,15 @@ (define CompileExpr-Core-substConAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (vector 0 e-1 e-2 e-3 (CompileExpr-Core-substEnv (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 arg-2 arg-3 e-4))))))))) (define CompileExpr-Core-shrinkConstAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (vector 0 e-1 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-2))))))) (define CompileExpr-Core-shrinkConAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (vector 0 e-1 e-2 e-3 (CompileExpr-Core-shrinkCExp 'erased 'erased (TT-Core-subExtend 'erased 'erased e-3 arg-2) e-4))))))))) -(define CompileExpr-Core-shrinkCExp (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Core-case--4929-1760 'erased 'erased 'erased e-2 'erased e-3 arg-2 (TT-Core-subElem 'erased 'erased 'erased e-2 'erased arg-2))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-6 e-7)))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((scC-39 (CompileExpr-Core-shrinkCExp 'erased 'erased (vector 2 arg-2) e-11))) (vector 2 e-9 e-10 scC-39)))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((e-16 (vector-ref sc0 4))) (let ((e-17 (vector-ref sc0 5))) (let ((scC-39 (CompileExpr-Core-shrinkCExp 'erased 'erased (vector 2 arg-2) e-17))) (vector 3 e-13 e-14 e-15 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-16) scC-39)))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (vector 4 e-19 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-20) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 eta-0)) e-21)))))) ((5) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (vector 5 e-23 e-24 e-25 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 eta-0)) e-26))))))) ((6) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (vector 6 e-28 e-29 e-30 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 eta-0)) e-31))))))) ((7) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (vector 7 e-33 e-34 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 eta-0)) e-35)))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (vector 8 e-37 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-38))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 9 e-40 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-41))))) ((10) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (let ((e-45 (vector-ref sc0 3))) (let ((e-46 (vector-ref sc0 4))) (vector 10 e-43 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-44) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkConAlt 'erased 'erased arg-2 eta-0)) e-45) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 eta-0)) e-46))))))) ((11) (let ((e-48 (vector-ref sc0 1))) (let ((e-49 (vector-ref sc0 2))) (let ((e-50 (vector-ref sc0 3))) (let ((e-51 (vector-ref sc0 4))) (vector 11 e-48 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-49) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkConstAlt 'erased 'erased arg-2 eta-0)) e-50) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 eta-0)) e-51))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (vector 12 e-53 e-54)))) ((13) (let ((e-56 (vector-ref sc0 1))) (vector 13 e-56))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (vector 14 e-58 e-59)))))))) -(define CompileExpr-Core-resolveRef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (CompileExpr-Core-case--5843-2627 'erased e-3 e-2 e-1 arg-6 arg-5 arg-3 arg-2 'erased 'erased (Name-Core-C-61C-61_Eq__Name arg-6 e-2)))))))))) +(define CompileExpr-Core-shrinkCExp (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Core-case--4952-1768 'erased 'erased 'erased e-2 'erased e-3 arg-2 (TT-Core-subElem 'erased 'erased 'erased e-2 'erased arg-2))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-6 e-7)))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((scC-39 (CompileExpr-Core-shrinkCExp 'erased 'erased (vector 2 arg-2) e-11))) (vector 2 e-9 e-10 scC-39)))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((e-16 (vector-ref sc0 4))) (let ((e-17 (vector-ref sc0 5))) (let ((scC-39 (CompileExpr-Core-shrinkCExp 'erased 'erased (vector 2 arg-2) e-17))) (vector 3 e-13 e-14 e-15 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-16) scC-39)))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (vector 4 e-19 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-20) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 eta-0)) e-21)))))) ((5) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (vector 5 e-23 e-24 e-25 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 eta-0)) e-26))))))) ((6) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (vector 6 e-28 e-29 e-30 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 eta-0)) e-31))))))) ((7) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (vector 7 e-33 e-34 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 eta-0)) e-35)))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (vector 8 e-37 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-38))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 9 e-40 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-41))))) ((10) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (let ((e-45 (vector-ref sc0 3))) (let ((e-46 (vector-ref sc0 4))) (vector 10 e-43 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-44) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkConAlt 'erased 'erased arg-2 eta-0)) e-45) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 eta-0)) e-46))))))) ((11) (let ((e-48 (vector-ref sc0 1))) (let ((e-49 (vector-ref sc0 2))) (let ((e-50 (vector-ref sc0 3))) (let ((e-51 (vector-ref sc0 4))) (vector 11 e-48 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-49) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkConstAlt 'erased 'erased arg-2 eta-0)) e-50) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 eta-0)) e-51))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (vector 12 e-53 e-54)))) ((13) (let ((e-56 (vector-ref sc0 1))) (vector 13 e-56))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (vector 14 e-58 e-59)))))))) +(define CompileExpr-Core-resolveRef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (CompileExpr-Core-case--5866-2635 'erased e-3 e-2 e-1 arg-6 arg-5 arg-3 arg-2 'erased 'erased (Name-Core-C-61C-61_Eq__Name arg-6 e-2)))))))))) (define CompileExpr-Core-refsToLocals (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) arg-3)(else (CompileExpr-Core-mkLocals (vector 0 ) arg-0 arg-1 arg-2 arg-3)))))(else (CompileExpr-Core-mkLocals (vector 0 ) arg-0 arg-1 arg-2 arg-3)))))) (define CompileExpr-Core-mkLocalsConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (vector 0 e-1 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-2))))))) (define CompileExpr-Core-mkLocalsConAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((scC-39 e-4)) (vector 0 e-1 e-2 e-3 (CompileExpr-Core-mkLocals (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 arg-2 arg-3 scC-39)))))))))) -(define CompileExpr-Core-mkLocals (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Core-case--6024-2814 arg-0 arg-1 arg-2 e-2 'erased 'erased e-3 arg-3 (TT-Core-addVars 'erased 'erased arg-0 arg-1 e-2 arg-3 'erased))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (Prelude-maybe 'erased 'erased (lambda () (vector 1 e-6 e-7)) (lambda () (lambda (eta-0) eta-0)) (CompileExpr-Core-resolveRef 'erased 'erased arg-0 (vector 0 ) arg-3 e-6 e-7))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((scC-39 (CompileExpr-Core-mkLocals (vector 1 e-10 arg-0) arg-1 arg-2 arg-3 e-11))) (vector 2 e-9 e-10 scC-39)))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((e-16 (vector-ref sc0 4))) (let ((e-17 (vector-ref sc0 5))) (let ((scC-39 (CompileExpr-Core-mkLocals (vector 1 e-14 arg-0) arg-1 arg-2 arg-3 e-17))) (vector 3 e-13 e-14 e-15 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-16) scC-39)))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (vector 4 e-19 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-20) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 eta-0)) e-21)))))) ((5) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (vector 5 e-23 e-24 e-25 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 eta-0)) e-26))))))) ((6) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (vector 6 e-28 e-29 e-30 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 eta-0)) e-31))))))) ((7) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (vector 7 e-33 e-34 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 eta-0)) e-35)))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (vector 8 e-37 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-38))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 9 e-40 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-41))))) ((10) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (let ((e-45 (vector-ref sc0 3))) (let ((e-46 (vector-ref sc0 4))) (vector 10 e-43 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-44) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocalsConAlt arg-0 arg-1 arg-2 arg-3 eta-0)) e-45) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 eta-0)) e-46))))))) ((11) (let ((e-48 (vector-ref sc0 1))) (let ((e-49 (vector-ref sc0 2))) (let ((e-50 (vector-ref sc0 3))) (let ((e-51 (vector-ref sc0 4))) (vector 11 e-48 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-49) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocalsConstAlt arg-0 arg-1 arg-2 arg-3 eta-0)) e-50) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 eta-0)) e-51))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (vector 12 e-53 e-54)))) ((13) (let ((e-56 (vector-ref sc0 1))) (vector 13 e-56))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (vector 14 e-58 e-59)))))))) +(define CompileExpr-Core-mkLocals (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Core-case--6047-2822 arg-0 arg-1 arg-2 e-2 'erased 'erased e-3 arg-3 (TT-Core-addVars 'erased 'erased arg-0 arg-1 e-2 arg-3 'erased))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (Prelude-maybe 'erased 'erased (lambda () (vector 1 e-6 e-7)) (lambda () (lambda (eta-0) (Basics-Prelude-id 'erased eta-0))) (CompileExpr-Core-resolveRef 'erased 'erased arg-0 (vector 0 ) arg-3 e-6 e-7))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((scC-39 (CompileExpr-Core-mkLocals (vector 1 e-10 arg-0) arg-1 arg-2 arg-3 e-11))) (vector 2 e-9 e-10 scC-39)))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((e-16 (vector-ref sc0 4))) (let ((e-17 (vector-ref sc0 5))) (let ((scC-39 (CompileExpr-Core-mkLocals (vector 1 e-14 arg-0) arg-1 arg-2 arg-3 e-17))) (vector 3 e-13 e-14 e-15 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-16) scC-39)))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (vector 4 e-19 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-20) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 eta-0)) e-21)))))) ((5) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (vector 5 e-23 e-24 e-25 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 eta-0)) e-26))))))) ((6) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (vector 6 e-28 e-29 e-30 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 eta-0)) e-31))))))) ((7) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (vector 7 e-33 e-34 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 eta-0)) e-35)))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (vector 8 e-37 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-38))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 9 e-40 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-41))))) ((10) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (let ((e-45 (vector-ref sc0 3))) (let ((e-46 (vector-ref sc0 4))) (vector 10 e-43 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-44) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocalsConAlt arg-0 arg-1 arg-2 arg-3 eta-0)) e-45) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 eta-0)) e-46))))))) ((11) (let ((e-48 (vector-ref sc0 1))) (let ((e-49 (vector-ref sc0 2))) (let ((e-50 (vector-ref sc0 3))) (let ((e-51 (vector-ref sc0 4))) (vector 11 e-48 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-49) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocalsConstAlt arg-0 arg-1 arg-2 arg-3 eta-0)) e-50) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 eta-0)) e-51))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (vector 12 e-53 e-54)))) ((13) (let ((e-56 (vector-ref sc0 1))) (vector 13 e-56))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (vector 14 e-58 e-59)))))))) (define CompileExpr-Core-insertNamesConstAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (vector 0 e-1 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-2))))))) (define CompileExpr-Core-insertNamesConAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((scC-39 e-4)) (vector 0 e-1 e-2 e-3 (CompileExpr-Core-insertNames (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 arg-2 scC-39)))))))))) -(define CompileExpr-Core-insertNames (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Core-case--4553-1426 arg-0 arg-1 'erased e-2 'erased e-3 arg-2 (TT-Core-insertNVarNames 'erased 'erased arg-0 arg-2 e-2 'erased))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-6 e-7)))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((scC-39 (CompileExpr-Core-insertNames (vector 1 e-10 arg-0) arg-1 arg-2 e-11))) (vector 2 e-9 e-10 scC-39)))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((e-16 (vector-ref sc0 4))) (let ((e-17 (vector-ref sc0 5))) (let ((scC-39 (CompileExpr-Core-insertNames (vector 1 e-14 arg-0) arg-1 arg-2 e-17))) (vector 3 e-13 e-14 e-15 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-16) scC-39)))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (vector 4 e-19 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-20) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-21)))))) ((5) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (vector 5 e-23 e-24 e-25 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-26))))))) ((6) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (vector 6 e-28 e-29 e-30 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-31))))))) ((7) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (vector 7 e-33 e-34 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-35)))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (vector 8 e-37 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-38))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 9 e-40 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-41))))) ((10) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (let ((e-45 (vector-ref sc0 3))) (let ((e-46 (vector-ref sc0 4))) (vector 10 e-43 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-44) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNamesConAlt arg-0 arg-1 arg-2 eta-0)) e-45) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-46))))))) ((11) (let ((e-48 (vector-ref sc0 1))) (let ((e-49 (vector-ref sc0 2))) (let ((e-50 (vector-ref sc0 3))) (let ((e-51 (vector-ref sc0 4))) (vector 11 e-48 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-49) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNamesConstAlt arg-0 arg-1 arg-2 eta-0)) e-50) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-51))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (vector 12 e-53 e-54)))) ((13) (let ((e-56 (vector-ref sc0 1))) (vector 13 e-56))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (vector 14 e-58 e-59)))))))) +(define CompileExpr-Core-insertNames (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Core-case--4576-1434 arg-0 arg-1 'erased e-2 'erased e-3 arg-2 (TT-Core-insertNVarNames 'erased 'erased arg-0 arg-2 e-2 'erased))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-6 e-7)))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((scC-39 (CompileExpr-Core-insertNames (vector 1 e-10 arg-0) arg-1 arg-2 e-11))) (vector 2 e-9 e-10 scC-39)))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((e-16 (vector-ref sc0 4))) (let ((e-17 (vector-ref sc0 5))) (let ((scC-39 (CompileExpr-Core-insertNames (vector 1 e-14 arg-0) arg-1 arg-2 e-17))) (vector 3 e-13 e-14 e-15 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-16) scC-39)))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (vector 4 e-19 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-20) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-21)))))) ((5) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (vector 5 e-23 e-24 e-25 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-26))))))) ((6) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (vector 6 e-28 e-29 e-30 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-31))))))) ((7) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (vector 7 e-33 e-34 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-35)))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (vector 8 e-37 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-38))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 9 e-40 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-41))))) ((10) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (let ((e-45 (vector-ref sc0 3))) (let ((e-46 (vector-ref sc0 4))) (vector 10 e-43 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-44) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNamesConAlt arg-0 arg-1 arg-2 eta-0)) e-45) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-46))))))) ((11) (let ((e-48 (vector-ref sc0 1))) (let ((e-49 (vector-ref sc0 2))) (let ((e-50 (vector-ref sc0 3))) (let ((e-51 (vector-ref sc0 4))) (vector 11 e-48 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-49) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNamesConstAlt arg-0 arg-1 arg-2 eta-0)) e-50) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-51))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (vector 12 e-53 e-54)))) ((13) (let ((e-56 (vector-ref sc0 1))) (vector 13 e-56))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (vector 14 e-58 e-59)))))))) (define CompileExpr-Core-getLocName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (let ((e-3 (vector-ref sc1 1))) e-3)))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-3)) (let ((e-8 (vector-ref sc0 2))) (CompileExpr-Core-getLocName 'erased 'erased e-0 e-8 'erased))))))))) (define NamedCExp-CompileExpr-Core-getFC (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) e-0)) ((1) (let ((e-2 (vector-ref sc0 1))) e-2)) ((2) (let ((e-4 (vector-ref sc0 1))) e-4)) ((3) (let ((e-7 (vector-ref sc0 1))) e-7)) ((4) (let ((e-11 (vector-ref sc0 1))) e-11)) ((5) (let ((e-14 (vector-ref sc0 1))) e-14)) ((6) (let ((e-19 (vector-ref sc0 1))) e-19)) ((7) (let ((e-22 (vector-ref sc0 1))) e-22)) ((8) (let ((e-25 (vector-ref sc0 1))) e-25)) ((9) (let ((e-27 (vector-ref sc0 1))) e-27)) ((10) (let ((e-29 (vector-ref sc0 1))) e-29)) ((11) (let ((e-33 (vector-ref sc0 1))) e-33)) ((12) (let ((e-37 (vector-ref sc0 1))) e-37)) ((13) (let ((e-39 (vector-ref sc0 1))) e-39)) (else (let ((e-40 (vector-ref sc0 1))) e-40)))))) (define CompileExpr-Core-getFC (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 2))) e-3)) ((1) (let ((e-6 (vector-ref sc0 1))) e-6)) ((2) (let ((e-9 (vector-ref sc0 1))) e-9)) ((3) (let ((e-13 (vector-ref sc0 1))) e-13)) ((4) (let ((e-19 (vector-ref sc0 1))) e-19)) ((5) (let ((e-23 (vector-ref sc0 1))) e-23)) ((6) (let ((e-29 (vector-ref sc0 2))) e-29)) ((7) (let ((e-33 (vector-ref sc0 1))) e-33)) ((8) (let ((e-37 (vector-ref sc0 1))) e-37)) ((9) (let ((e-40 (vector-ref sc0 1))) e-40)) ((10) (let ((e-43 (vector-ref sc0 1))) e-43)) ((11) (let ((e-48 (vector-ref sc0 1))) e-48)) ((12) (let ((e-53 (vector-ref sc0 1))) e-53)) ((13) (let ((e-56 (vector-ref sc0 1))) e-56)) (else (let ((e-58 (vector-ref sc0 1))) e-58)))))) @@ -3101,263 +3141,263 @@ (define CompileExpr-Core-findDrop (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 arg-3 arg-4)) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (cond ((equal? sc1 0) (let ((sc2 arg-6)) (let ((e-8 (vector-ref sc2 1))) e-8)))(else (let ((e-4 (- arg-3 1))) (let ((sc1 arg-6)) (let ((e-14 (vector-ref sc1 2))) (CompileExpr-Core-findDrop 'erased 'erased e-3 e-4 arg-4 'erased e-14))))))))))))) (define CompileExpr-Core-find (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (CompileExpr-Core-findDrop 'erased 'erased arg-2 arg-4 arg-5 'erased arg-7)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) (vector 0 0 arg-5))(else (let ((e-4 (- arg-4 1))) (CompileExpr-Core-weaken_Weaken__CExp e-2 (List-Prelude-C-43C-43 'erased e-3 arg-3) (CompileExpr-Core-find 'erased e-3 arg-2 arg-3 e-4 arg-5 'erased arg-7))))))))))))) (define CompileExpr-Core-embed (lambda (arg-0 arg-1 arg-2) (Builtin-believe_me 'erased 'erased arg-2))) -(define CompileExpr-Core-elem (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Core-case--3906-813 'erased 'erased e-3 e-2 arg-1 (Name-Core-C-61C-61_Eq__Name arg-1 e-2))))))))) +(define CompileExpr-Core-elem (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Core-case--3929-821 'erased 'erased e-3 e-2 arg-1 (Name-Core-C-61C-61_Eq__Name arg-1 e-2))))))))) (define CompileExpr-Core-conArgs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 e-6 (CompileExpr-Core-conArgs 'erased e-3 e-7))))))))))) (define CompileExpr-Core-addLocs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((rec (CompileExpr-Core-addLocs 'erased e-3 arg-2))) (vector 1 (CompileExpr-Core-uniqueName 'erased e-2 rec) rec))))))))) -(define TTC-Core-case--14322-15092 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (TTC-Core-fromBuf_TTC__Visibility arg-0 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (TTC-Core-fromBuf_TTC__Totality arg-0 eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__DefFlag arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__DefFlag arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 (Binary-Utils-fromBuf_TTC__Bool arg-0 eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 (Binary-Utils-fromBuf_TTC__Bool arg-0 eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-35 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (TTC-Core-toBuf_TTC__SCCall arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SCCall arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc12 1))) (vector 1 (vector 0 arg-4 arg-6 e-5 e-6 e-7 e-8 e-9 arg-5 e-10 e-11 e-12 e-13 arg-8 arg-3 e-14 e-15 0 arg-9 arg-1 (vector 0 ) e-16)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-6 (vector 10 arg-4 1) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) arg-5 (vector 0 ) (vector 2 ) (TT-Core-unchecked) (vector 0 ) arg-8 arg-3 1 1 0 arg-9 arg-1 (vector 0 ) (vector 0 ))))))))) -(define TTC-Core-case--14190-14719 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "SizeChange" eta-0))))))) -(define TTC-Core-case--14034-14602 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 4) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 5) (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__TotalReq arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 4 e-5))))))))) ((equal? sc0 7) (lambda (eta-0) (vector 1 (vector 5 )))) ((equal? sc0 8) (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 7 (vector 0 ))))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 8 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "DefFlag" eta-0))))))) -(define TTC-Core-case--13966-14497 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "TotalReq" eta-0))))))) -(define TTC-Core-case--13318-14160 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__PMDefInfo arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 e-6 arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) arg-2104 arg-2106 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) arg-2106 eta-1)))) (lambda (y) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107 arg-2108))) (lambda (arg-2107) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-1)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-1))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2104 arg-2107))) (lambda (arg-2107) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3))))) arg-2107 eta-2))))) arg-2106 eta-1)))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-3)))) arg-2103 arg-2105 eta-2)))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-3)))) arg-2107 eta-2)))) (lambda (y) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2104 arg-2107))) (lambda (arg-2107) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3))))) arg-2107 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2103 arg-2105))) (lambda (arg-2108) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2108))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-4)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-4))))) arg-2108 eta-3))))) arg-2107 eta-2)))))) arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 e-5 e-6 e-7 (vector 2 "") e-8)))))))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-5 e-6)))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2106 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-2))))) arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 5 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTC-Core-fromBuf_TTC__TypeFlags arg-0 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-2)))) arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (vector 1 (vector 6 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12)))))))))))))))))))))))))))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Bool arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-5 e-6)))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 8 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 9 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 10 )))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 11 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Def" eta-0))))))) -(define TTC-Core-case--13164-13698 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "HoleInfo" eta-0))))))) -(define TTC-Core-case--12906-13449 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CG" eta-0))))))) -(define TTC-Core-case--12678-13296 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 e-5 arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CFType arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__CFType arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 0 ) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CDef" eta-0))))))) -(define TTC-Core-case--12361-13010 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc0 4) (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc0 5) (lambda (eta-0) (vector 1 (vector 5 )))) ((equal? sc0 6) (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc0 7) (lambda (eta-0) (vector 1 (vector 9 )))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__CFType arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__CFType arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 10 e-5 e-6)))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__CFType arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 11 e-5))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__CFType arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2106 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CFType arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__CFType arg-2107 eta-2))))) arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 12 e-5 e-6)))))))))))))) ((equal? sc0 11) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CFType arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 13 e-5 e-6)))))))))))))) ((equal? sc0 12) (lambda (eta-0) (vector 1 (vector 7 )))) ((equal? sc0 13) (lambda (eta-0) (vector 1 (vector 8 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CFType" eta-0))))))) -(define TTC-Core-case--11710-12192 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-3)))) (else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CExp" eta-0))))))) -(define TTC-Core-case--11197-12168 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((bind-0 0)) ((TTC-Core-case--11710-12192 arg-0 arg-1 bind-0 e-5 e-6 (TTC-Core-getName e-6 arg-0)) eta-0)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-6)))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-6 arg-0) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Bool arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-6 arg-0) arg-1 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 3 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 4 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 5 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((TTC-Core-fromBuf_TTC__C-40PrimFnC-32C-36nC-41 e-6 arg-1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased e-6 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 6 e-6 e-5 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 7 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 8 e-5 e-6)))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 9 e-5 e-6)))))))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 10 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 11) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 11 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 12) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 12 e-5 e-6)))))))))))))) ((equal? sc0 13) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 13 e-5))))))))) ((equal? sc0 14) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 14 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CExp" eta-0))))))) -(define TTC-Core-case--10285-11605 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-0)))(else (let ((e-0 (- arg-1 1))) (let ((sc0 e-0)) (cond ((equal? sc0 0) (lambda (eta-0) (TTC-Core-n--10285-11078-fromBuf1 arg-0 arg-1 eta-0)))(else (let ((e-1 (- e-0 1))) (let ((sc0 e-1)) (cond ((equal? sc0 0) (lambda (eta-0) (TTC-Core-n--10285-11079-fromBuf2 arg-0 arg-1 eta-0)))(else (let ((e-2 (- e-1 1))) (let ((sc0 e-2)) (cond ((equal? sc0 0) (lambda (eta-0) (TTC-Core-n--10285-11080-fromBuf3 arg-0 arg-1 eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-0))))))))))))))))))) -(define TTC-Core-case--10657-11577 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 18) (lambda (eta-0) (vector 1 (vector 23 )))) ((equal? sc0 100) (lambda (eta-0) (vector 1 (vector 36 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn 3" eta-0))))))) -(define TTC-Core-case--10656-11283 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 4 e-5))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 11 e-5))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 12 e-5))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 13 e-5))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 14 e-5))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 15 e-5))))))))) ((equal? sc0 14) (lambda (eta-0) (vector 1 (vector 19 )))) ((equal? sc0 15) (lambda (eta-0) (vector 1 (vector 20 )))) ((equal? sc0 16) (lambda (eta-0) (vector 1 (vector 21 )))) ((equal? sc0 35) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-5))))))))) ((equal? sc0 36) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 7 e-5))))))))) ((equal? sc0 37) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-5))))))))) ((equal? sc0 38) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-5))))))))) ((equal? sc0 39) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 10 e-5))))))))) ((equal? sc0 101) (lambda (eta-0) (vector 1 (vector 37 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn 2" eta-0))))))) -(define TTC-Core-case--10655-11091 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-5))))))))) ((equal? sc0 11) (lambda (eta-0) (vector 1 (vector 16 )))) ((equal? sc0 12) (lambda (eta-0) (vector 1 (vector 17 )))) ((equal? sc0 13) (lambda (eta-0) (vector 1 (vector 18 )))) ((equal? sc0 17) (lambda (eta-0) (vector 1 (vector 22 )))) ((equal? sc0 19) (lambda (eta-0) (vector 1 (vector 24 )))) ((equal? sc0 20) (lambda (eta-0) (vector 1 (vector 25 )))) ((equal? sc0 22) (lambda (eta-0) (vector 1 (vector 26 )))) ((equal? sc0 23) (lambda (eta-0) (vector 1 (vector 27 )))) ((equal? sc0 24) (lambda (eta-0) (vector 1 (vector 28 )))) ((equal? sc0 25) (lambda (eta-0) (vector 1 (vector 29 )))) ((equal? sc0 26) (lambda (eta-0) (vector 1 (vector 30 )))) ((equal? sc0 27) (lambda (eta-0) (vector 1 (vector 31 )))) ((equal? sc0 32) (lambda (eta-0) (vector 1 (vector 32 )))) ((equal? sc0 33) (lambda (eta-0) (vector 1 (vector 33 )))) ((equal? sc0 34) (lambda (eta-0) (vector 1 (vector 34 )))) ((equal? sc0 99) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 35 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn 1" eta-0))))))) -(define TTC-Core-case--10134-10585 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Covering" eta-0))))))) -(define TTC-Core-case--10052-10491 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__PartialReason arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Terminating" eta-0))))))) -(define TTC-Core-case--9949-10400 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PartialReason" eta-0))))))) -(define TTC-Core-case--9881-10313 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Visibility" eta-0))))))) -(define TTC-Core-case--9548-10075 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Int arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (List-Prelude-C-43C-43 'erased e-7 arg-0) arg-1 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (vector 1 e-5 (vector 1 e-6 arg-0)) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-5 e-6)))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CaseAlt" eta-0))))))) -(define TTC-Core-case--9352-9838 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 arg-0 e-6 (vector 10 (FC-Core-emptyFC) 1) e-7))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 0 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 3 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CaseTree" eta-0))))))) -(define TTC-Core-case--8496-9194 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 (FC-Core-emptyFC) arg-4 arg-5)))) (else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Term" eta-0))))))) -(define TTC-Core-case--8125-8853 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Binary-Utils-corrupt 'erased "Term" eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) (TTC-Core-getName e-6 arg-1)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 (FC-Core-emptyFC) e-5 e-6)))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__NameType arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (FC-Core-emptyFC) e-5 e-6)))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 (FC-Core-emptyFC) e-5 0 e-6)))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-1 arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 1 e-5 arg-1) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 (FC-Core-emptyFC) e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 (FC-Core-emptyFC) e-5 e-6)))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__UseSide arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 5 (FC-Core-emptyFC) e-6 e-5 e-7))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__LazyReason arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 6 (FC-Core-emptyFC) e-5 e-6)))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__LazyReason arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 7 (FC-Core-emptyFC) e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__LazyReason arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 8 (FC-Core-emptyFC) e-5 e-6)))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 (FC-Core-emptyFC) e-5))))))))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 10 (FC-Core-emptyFC) 1)))) ((equal? sc0 11) (lambda (eta-0) (vector 1 (vector 11 (FC-Core-emptyFC)))))(else (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((idx (Prelude-fromInteger_Num__Nat (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 12))))) (let ((bind-0 arg-2)) ((TTC-Core-case--8496-9194 arg-0 arg-1 arg-2 bind-0 e-5 idx (TTC-Core-getName idx arg-1)) eta-0)))))))))))))) -(define TTC-Core-case--8123-8510 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-6 (b+ 12 (Prelude-cast_Cast__Nat_Int arg-1) 63) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2106 eta-1)))) arg-6 arg-4) eta-0))))))) (else (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-6 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2106 eta-1)))) arg-6 arg-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Nat arg-6 arg-1) eta-0))))))))))))))) -(define TTC-Core-case--8070-8458 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "UseSide" eta-0))))))) -(define TTC-Core-case--7690-8233 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-6 (vector 10 (FC-Core-emptyFC) 1))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-5 e-6 (vector 10 (FC-Core-emptyFC) 1))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-5 (vector 10 (FC-Core-emptyFC) 1))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Binder" eta-0))))))) -(define TTC-Core-case--7517-7935 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-5 e-6)))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "NameType" eta-0))))))) -(define TTC-Core-case--7449-7831 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "LazyReason" eta-0))))))) -(define TTC-Core-case--7059-7591 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Integer arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 4 e-5))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Integer arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-5))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-5))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Char arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 7 e-5))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Double arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-5))))))))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 9 )))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 10 )))) ((equal? sc0 11) (lambda (eta-0) (vector 1 (vector 11 )))) ((equal? sc0 12) (lambda (eta-0) (vector 1 (vector 12 )))) ((equal? sc0 13) (lambda (eta-0) (vector 1 (vector 13 )))) ((equal? sc0 14) (lambda (eta-0) (vector 1 (vector 14 )))) ((equal? sc0 15) (lambda (eta-0) (vector 1 (vector 15 )))) ((equal? sc0 16) (lambda (eta-0) (vector 1 (vector 16 )))) ((equal? sc0 17) (lambda (eta-0) (vector 1 (vector 17 )))) ((equal? sc0 18) (lambda (eta-0) (vector 1 (vector 18 )))) ((equal? sc0 19) (lambda (eta-0) (vector 1 (vector 19 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Constant" eta-0))))))) -(define TTC-Core-case--6910-7332 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 arg-2) eta-0))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PiInfo" eta-0))))))) -(define TTC-Core-case--6829-7212 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "RigCount" eta-0))))))) -(define TTC-Core-case--6451-6990 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-5 e-6)))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-5 e-6)))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-5 e-6)))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-5))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1))))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 6 e-5 e-6)))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-5 e-6)))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 8 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Name" eta-0))))))) -(define TTC-Core-case--6325-6722 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1))))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1))))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "FC" eta-0))))))) -(define TTC-Core-n--10285-11080-fromBuf3 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 18) (vector 1 (vector 23 ))) ((equal? sc1 100) (vector 1 (vector 36 )))(else (Binary-Utils-corrupt 'erased "PrimFn 3" ext-0))))))))))) -(define TTC-Core-n--10285-11079-fromBuf2 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-6)))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-6)))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-6)))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-6)))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-6)))))))) ((equal? sc1 6) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 11 e-6)))))))) ((equal? sc1 7) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 12 e-6)))))))) ((equal? sc1 8) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 13 e-6)))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 14 e-6)))))))) ((equal? sc1 10) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 15 e-6)))))))) ((equal? sc1 14) (vector 1 (vector 19 ))) ((equal? sc1 15) (vector 1 (vector 20 ))) ((equal? sc1 16) (vector 1 (vector 21 ))) ((equal? sc1 35) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 6 e-6)))))))) ((equal? sc1 36) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-6)))))))) ((equal? sc1 37) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 8 e-6)))))))) ((equal? sc1 38) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 9 e-6)))))))) ((equal? sc1 39) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 10 e-6)))))))) ((equal? sc1 101) (vector 1 (vector 37 )))(else (Binary-Utils-corrupt 'erased "PrimFn 2" ext-0))))))))))) -(define TTC-Core-n--10285-11078-fromBuf1 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 5) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-6)))))))) ((equal? sc1 11) (vector 1 (vector 16 ))) ((equal? sc1 12) (vector 1 (vector 17 ))) ((equal? sc1 13) (vector 1 (vector 18 ))) ((equal? sc1 17) (vector 1 (vector 22 ))) ((equal? sc1 19) (vector 1 (vector 24 ))) ((equal? sc1 20) (vector 1 (vector 25 ))) ((equal? sc1 22) (vector 1 (vector 26 ))) ((equal? sc1 23) (vector 1 (vector 27 ))) ((equal? sc1 24) (vector 1 (vector 28 ))) ((equal? sc1 25) (vector 1 (vector 29 ))) ((equal? sc1 26) (vector 1 (vector 30 ))) ((equal? sc1 27) (vector 1 (vector 31 ))) ((equal? sc1 32) (vector 1 (vector 32 ))) ((equal? sc1 33) (vector 1 (vector 33 ))) ((equal? sc1 34) (vector 1 (vector 34 ))) ((equal? sc1 99) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 35 e-6 e-7)))))))))))))(else (Binary-Utils-corrupt 'erased "PrimFn 1" ext-0))))))))))) -(define TTC-Core-n--14320-14827-cwName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((7) 0) ((8) 0)(else 1))))) +(define TTC-Core-case--14377-15100 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (TTC-Core-fromBuf_TTC__Visibility arg-0 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (TTC-Core-fromBuf_TTC__Totality arg-0 eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__DefFlag arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__DefFlag arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 (Binary-Utils-fromBuf_TTC__Bool arg-0 eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 (Binary-Utils-fromBuf_TTC__Bool arg-0 eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-35 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (TTC-Core-toBuf_TTC__SCCall arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SCCall arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc12 1))) (vector 1 (vector 0 arg-4 arg-6 e-5 e-6 e-7 e-8 e-9 arg-5 e-10 e-11 e-12 e-13 arg-8 arg-3 e-14 e-15 0 arg-9 arg-1 (vector 0 ) e-16)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-6 (vector 10 arg-4 1) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) arg-5 (vector 0 ) (vector 2 ) (TT-Core-unchecked) (vector 0 ) arg-8 arg-3 1 1 0 arg-9 arg-1 (vector 0 ) (vector 0 ))))))))) +(define TTC-Core-case--14245-14727 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "SizeChange" eta-0))))))) +(define TTC-Core-case--14089-14610 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 4) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 5) (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__TotalReq arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 4 e-5))))))))) ((equal? sc0 7) (lambda (eta-0) (vector 1 (vector 5 )))) ((equal? sc0 8) (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 7 (vector 0 ))))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 8 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "DefFlag" eta-0))))))) +(define TTC-Core-case--14021-14505 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "TotalReq" eta-0))))))) +(define TTC-Core-case--13373-14168 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__PMDefInfo arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 e-6 arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__Name arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-2)))) arg-2122 arg-2124 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-2)))) arg-2124 eta-1)))) (lambda (y) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2125 arg-2126))) (lambda (arg-2125) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2125))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 eta-1)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 eta-1))))) arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2122 arg-2125))) (lambda (arg-2125) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2125))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2))))) arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-3))))) arg-2125 eta-2))))) arg-2124 eta-1)))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-3)))) arg-2121 arg-2123 eta-2)))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2126 eta-3)))) arg-2125 eta-2)))) (lambda (y) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2122 arg-2125))) (lambda (arg-2125) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2125))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2))))) arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-3))))) arg-2125 eta-2))))) arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2121 arg-2123))) (lambda (arg-2126) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2126))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-3))))) arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 eta-4)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 eta-4))))) arg-2126 eta-3))))) arg-2125 eta-2)))))) arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 e-5 e-6 e-7 (vector 2 "") e-8)))))))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-5 e-6)))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2124 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-2))))) arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 5 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTC-Core-fromBuf_TTC__TypeFlags arg-0 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-2)))) arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-2)))) arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (vector 1 (vector 6 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12)))))))))))))))))))))))))))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Bool arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-5 (Context-Core-holeInit e-6))))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 8 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 9 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 10 )))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 11 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Def" eta-0))))))) +(define TTC-Core-case--13219-13706 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "HoleInfo" eta-0))))))) +(define TTC-Core-case--12961-13457 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CG" eta-0))))))) +(define TTC-Core-case--12733-13304 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 e-5 arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CFType arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__CFType arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 0 ) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CDef" eta-0))))))) +(define TTC-Core-case--12416-13018 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc0 4) (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc0 5) (lambda (eta-0) (vector 1 (vector 5 )))) ((equal? sc0 6) (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc0 7) (lambda (eta-0) (vector 1 (vector 9 )))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__CFType arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__CFType arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 10 e-5 e-6)))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__CFType arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 11 e-5))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__CFType arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2124 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CFType arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__CFType arg-2125 eta-2))))) arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 12 e-5 e-6)))))))))))))) ((equal? sc0 11) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CFType arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 13 e-5 e-6)))))))))))))) ((equal? sc0 12) (lambda (eta-0) (vector 1 (vector 7 )))) ((equal? sc0 13) (lambda (eta-0) (vector 1 (vector 8 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CFType" eta-0))))))) +(define TTC-Core-case--11765-12200 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-3)))) (else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CExp" eta-0))))))) +(define TTC-Core-case--11252-12176 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((bind-0 0)) ((TTC-Core-case--11765-12200 arg-0 arg-1 bind-0 e-5 e-6 (TTC-Core-getName e-6 arg-0)) eta-0)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-6)))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-6 arg-0) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Bool arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-6 arg-0) arg-1 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 3 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 eta-1)))) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 4 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-1)))) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 eta-1)))) arg-1 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 5 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((TTC-Core-fromBuf_TTC__C-40PrimFnC-32C-36nC-41 e-6 arg-1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased e-6 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 eta-1)))) arg-1) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 6 e-6 e-5 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 eta-1)))) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 7 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 8 e-5 e-6)))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 9 e-5 e-6)))))))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2124 eta-1)))) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 eta-1)))) arg-1 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 10 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 11) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2124 eta-1)))) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 eta-1)))) arg-1 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 11 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 12) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 12 e-5 e-6)))))))))))))) ((equal? sc0 13) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 13 e-5))))))))) ((equal? sc0 14) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 14 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CExp" eta-0))))))) +(define TTC-Core-case--10340-11613 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-0)))(else (let ((e-0 (- arg-1 1))) (let ((sc0 e-0)) (cond ((equal? sc0 0) (lambda (eta-0) (TTC-Core-n--10340-11086-fromBuf1 arg-0 arg-1 eta-0)))(else (let ((e-1 (- e-0 1))) (let ((sc0 e-1)) (cond ((equal? sc0 0) (lambda (eta-0) (TTC-Core-n--10340-11087-fromBuf2 arg-0 arg-1 eta-0)))(else (let ((e-2 (- e-1 1))) (let ((sc0 e-2)) (cond ((equal? sc0 0) (lambda (eta-0) (TTC-Core-n--10340-11088-fromBuf3 arg-0 arg-1 eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-0))))))))))))))))))) +(define TTC-Core-case--10712-11585 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 18) (lambda (eta-0) (vector 1 (vector 23 )))) ((equal? sc0 100) (lambda (eta-0) (vector 1 (vector 36 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn 3" eta-0))))))) +(define TTC-Core-case--10711-11291 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 4 e-5))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 11 e-5))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 12 e-5))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 13 e-5))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 14 e-5))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 15 e-5))))))))) ((equal? sc0 14) (lambda (eta-0) (vector 1 (vector 19 )))) ((equal? sc0 15) (lambda (eta-0) (vector 1 (vector 20 )))) ((equal? sc0 16) (lambda (eta-0) (vector 1 (vector 21 )))) ((equal? sc0 35) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-5))))))))) ((equal? sc0 36) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 7 e-5))))))))) ((equal? sc0 37) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-5))))))))) ((equal? sc0 38) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-5))))))))) ((equal? sc0 39) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 10 e-5))))))))) ((equal? sc0 101) (lambda (eta-0) (vector 1 (vector 37 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn 2" eta-0))))))) +(define TTC-Core-case--10710-11099 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-5))))))))) ((equal? sc0 11) (lambda (eta-0) (vector 1 (vector 16 )))) ((equal? sc0 12) (lambda (eta-0) (vector 1 (vector 17 )))) ((equal? sc0 13) (lambda (eta-0) (vector 1 (vector 18 )))) ((equal? sc0 17) (lambda (eta-0) (vector 1 (vector 22 )))) ((equal? sc0 19) (lambda (eta-0) (vector 1 (vector 24 )))) ((equal? sc0 20) (lambda (eta-0) (vector 1 (vector 25 )))) ((equal? sc0 22) (lambda (eta-0) (vector 1 (vector 26 )))) ((equal? sc0 23) (lambda (eta-0) (vector 1 (vector 27 )))) ((equal? sc0 24) (lambda (eta-0) (vector 1 (vector 28 )))) ((equal? sc0 25) (lambda (eta-0) (vector 1 (vector 29 )))) ((equal? sc0 26) (lambda (eta-0) (vector 1 (vector 30 )))) ((equal? sc0 27) (lambda (eta-0) (vector 1 (vector 31 )))) ((equal? sc0 32) (lambda (eta-0) (vector 1 (vector 32 )))) ((equal? sc0 33) (lambda (eta-0) (vector 1 (vector 33 )))) ((equal? sc0 34) (lambda (eta-0) (vector 1 (vector 34 )))) ((equal? sc0 99) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 35 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn 1" eta-0))))))) +(define TTC-Core-case--10189-10593 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Covering" eta-0))))))) +(define TTC-Core-case--10107-10499 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__PartialReason arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Terminating" eta-0))))))) +(define TTC-Core-case--10004-10408 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PartialReason" eta-0))))))) +(define TTC-Core-case--9936-10321 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Visibility" eta-0))))))) +(define TTC-Core-case--9603-10083 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Int arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (List-Prelude-C-43C-43 'erased e-7 arg-0) arg-1 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (vector 1 e-5 (vector 1 e-6 arg-0)) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-5 e-6)))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CaseAlt" eta-0))))))) +(define TTC-Core-case--9407-9846 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2124 eta-1)))) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 arg-0 e-6 (vector 10 (FC-Core-emptyFC) 1) e-7))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 0 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 3 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CaseTree" eta-0))))))) +(define TTC-Core-case--8551-9202 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 (FC-Core-emptyFC) arg-4 arg-5)))) (else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Term" eta-0))))))) +(define TTC-Core-case--8180-8861 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Binary-Utils-corrupt 'erased "Term" eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) (TTC-Core-getName e-6 arg-1)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 (FC-Core-emptyFC) e-5 e-6)))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__NameType arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (FC-Core-emptyFC) e-5 e-6)))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 (FC-Core-emptyFC) e-5 0 e-6)))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-1 arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 1 e-5 arg-1) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 (FC-Core-emptyFC) e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 (FC-Core-emptyFC) e-5 e-6)))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__UseSide arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 5 (FC-Core-emptyFC) e-6 e-5 e-7))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__LazyReason arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 6 (FC-Core-emptyFC) e-5 e-6)))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__LazyReason arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 7 (FC-Core-emptyFC) e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__LazyReason arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 8 (FC-Core-emptyFC) e-5 e-6)))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 (FC-Core-emptyFC) e-5))))))))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 10 (FC-Core-emptyFC) 1)))) ((equal? sc0 11) (lambda (eta-0) (vector 1 (vector 11 (FC-Core-emptyFC)))))(else (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((idx (Prelude-fromInteger_Num__Nat (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 12))))) (let ((bind-0 arg-2)) ((TTC-Core-case--8551-9202 arg-0 arg-1 arg-2 bind-0 e-5 idx (TTC-Core-getName idx arg-1)) eta-0)))))))))))))) +(define TTC-Core-case--8178-8518 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-6 (b+ 12 (Prelude-cast_Cast__Nat_Int arg-1) 63) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2124 eta-1)))) arg-6 arg-4) eta-0))))))) (else (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-6 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2124 eta-1)))) arg-6 arg-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Nat arg-6 arg-1) eta-0))))))))))))))) +(define TTC-Core-case--8125-8466 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "UseSide" eta-0))))))) +(define TTC-Core-case--7745-8241 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2124 eta-1)))) arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-6 (vector 10 (FC-Core-emptyFC) 1))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2124 eta-1)))) arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2124 eta-1)))) arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-5 e-6 (vector 10 (FC-Core-emptyFC) 1))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-5 (vector 10 (FC-Core-emptyFC) 1))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Binder" eta-0))))))) +(define TTC-Core-case--7572-7943 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-5 e-6)))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "NameType" eta-0))))))) +(define TTC-Core-case--7504-7839 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "LazyReason" eta-0))))))) +(define TTC-Core-case--7114-7599 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Integer arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 4 e-5))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Integer arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-5))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-5))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Char arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 7 e-5))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Double arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-5))))))))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 9 )))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 10 )))) ((equal? sc0 11) (lambda (eta-0) (vector 1 (vector 11 )))) ((equal? sc0 12) (lambda (eta-0) (vector 1 (vector 12 )))) ((equal? sc0 13) (lambda (eta-0) (vector 1 (vector 13 )))) ((equal? sc0 14) (lambda (eta-0) (vector 1 (vector 14 )))) ((equal? sc0 15) (lambda (eta-0) (vector 1 (vector 15 )))) ((equal? sc0 16) (lambda (eta-0) (vector 1 (vector 16 )))) ((equal? sc0 17) (lambda (eta-0) (vector 1 (vector 17 )))) ((equal? sc0 18) (lambda (eta-0) (vector 1 (vector 18 )))) ((equal? sc0 19) (lambda (eta-0) (vector 1 (vector 19 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Constant" eta-0))))))) +(define TTC-Core-case--6965-7340 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 arg-2) eta-0))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PiInfo" eta-0))))))) +(define TTC-Core-case--6884-7220 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "RigCount" eta-0))))))) +(define TTC-Core-case--6506-6998 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-5 e-6)))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-5 e-6)))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-5 e-6)))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-5))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-1))))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 6 e-5 e-6)))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-5 e-6)))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 8 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Name" eta-0))))))) +(define TTC-Core-case--6380-6730 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-1))))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-1))))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "FC" eta-0))))))) +(define TTC-Core-n--10340-11088-fromBuf3 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 18) (vector 1 (vector 23 ))) ((equal? sc1 100) (vector 1 (vector 36 )))(else (Binary-Utils-corrupt 'erased "PrimFn 3" ext-0))))))))))) +(define TTC-Core-n--10340-11087-fromBuf2 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-6)))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-6)))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-6)))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-6)))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-6)))))))) ((equal? sc1 6) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 11 e-6)))))))) ((equal? sc1 7) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 12 e-6)))))))) ((equal? sc1 8) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 13 e-6)))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 14 e-6)))))))) ((equal? sc1 10) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 15 e-6)))))))) ((equal? sc1 14) (vector 1 (vector 19 ))) ((equal? sc1 15) (vector 1 (vector 20 ))) ((equal? sc1 16) (vector 1 (vector 21 ))) ((equal? sc1 35) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 6 e-6)))))))) ((equal? sc1 36) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-6)))))))) ((equal? sc1 37) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 8 e-6)))))))) ((equal? sc1 38) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 9 e-6)))))))) ((equal? sc1 39) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 10 e-6)))))))) ((equal? sc1 101) (vector 1 (vector 37 )))(else (Binary-Utils-corrupt 'erased "PrimFn 2" ext-0))))))))))) +(define TTC-Core-n--10340-11086-fromBuf1 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 5) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-6)))))))) ((equal? sc1 11) (vector 1 (vector 16 ))) ((equal? sc1 12) (vector 1 (vector 17 ))) ((equal? sc1 13) (vector 1 (vector 18 ))) ((equal? sc1 17) (vector 1 (vector 22 ))) ((equal? sc1 19) (vector 1 (vector 24 ))) ((equal? sc1 20) (vector 1 (vector 25 ))) ((equal? sc1 22) (vector 1 (vector 26 ))) ((equal? sc1 23) (vector 1 (vector 27 ))) ((equal? sc1 24) (vector 1 (vector 28 ))) ((equal? sc1 25) (vector 1 (vector 29 ))) ((equal? sc1 26) (vector 1 (vector 30 ))) ((equal? sc1 27) (vector 1 (vector 31 ))) ((equal? sc1 32) (vector 1 (vector 32 ))) ((equal? sc1 33) (vector 1 (vector 33 ))) ((equal? sc1 34) (vector 1 (vector 34 ))) ((equal? sc1 99) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 35 e-6 e-7)))))))))))))(else (Binary-Utils-corrupt 'erased "PrimFn 1" ext-0))))))))))) +(define TTC-Core-n--14375-14835-cwName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((7) 0) ((8) 0)(else 1))))) (define TTC-Core-toBuf_TTC__Visibility (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))))))) (define TTC-Core-toBuf_TTC__UseSide (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))))))) (define TTC-Core-toBuf_TTC__TypeFlags (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Binary-Utils-toBuf_TTC__Bool arg-0 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Bool arg-0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0))))))) -(define TTC-Core-toBuf_TTC__Transform (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Name arg-0 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 e-0 arg-0 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 e-0 arg-0 e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 e-0 arg-0 e-4) eta-0)))))))))))))))))))))))))) +(define TTC-Core-toBuf_TTC__Transform (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-0 e-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Name arg-0 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 e-0 arg-0 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 e-0 arg-0 e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 e-0 arg-0 e-4) eta-0)))))))))))))))))))))))))) (define TTC-Core-toBuf_TTC__Totality (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__Terminating arg-0 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Covering arg-0 e-1) eta-0))))))))))) (define TTC-Core-toBuf_TTC__TotalReq (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))))))) (define TTC-Core-toBuf_TTC__Terminating (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) (else (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__PartialReason arg-0 e-0) eta-0)))))))))))) (define TTC-Core-toBuf_TTC__SizeChange (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))))))) -(define TTC-Core-toBuf_TTC__SCCall (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((TTC-Core-toBuf_TTC__Name arg-0 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__SizeChange arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SizeChange arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__SizeChange arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-2107 eta-1))))) arg-2106 eta-0)))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__SizeChange arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__SizeChange arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__SizeChange arg-2108 eta-2))))) arg-2107 eta-1)))) arg-2106 eta-0)))) arg-0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1)) ext-0))))))) -(define TTC-Core-toBuf_TTC__RigCount (lambda (arg-0 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0)) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0)) (lambda (eta-0) (lambda (eta-1) (Binary-Utils-tag arg-0 2 eta-1))) ext-0))) +(define TTC-Core-toBuf_TTC__SCCall (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((TTC-Core-toBuf_TTC__Name arg-0 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-0)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__SizeChange arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SizeChange arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__SizeChange arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-2125 eta-1))))) arg-2124 eta-0)))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__SizeChange arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__SizeChange arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__SizeChange arg-2126 eta-2))))) arg-2125 eta-1)))) arg-2124 eta-0)))) arg-0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1)) ext-0))))))) +(define TTC-Core-toBuf_TTC__RigCount (lambda (arg-0 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0)) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0)) (lambda (eta-0) (lambda (eta-1) (Binary-Utils-tag arg-0 2 eta-1))) ext-0))) (define TTC-Core-toBuf_TTC__RewriteNames (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((TTC-Core-toBuf_TTC__Name arg-0 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Name arg-0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0))))))) -(define TTC-Core-toBuf_TTC__PrimNames (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) arg-0 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) arg-0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) arg-0 (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 3))) e-2))) ext-0))))))))))) -(define TTC-Core-toBuf_TTC__PartialReason (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-0 eta-0)))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-1 eta-0)))))))))))) +(define TTC-Core-toBuf_TTC__PrimNames (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) arg-0 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) arg-0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) arg-0 (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 3))) e-2))) ext-0))))))))))) +(define TTC-Core-toBuf_TTC__PartialReason (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-0 e-0 eta-0)))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-0 e-1 eta-0)))))))))))) (define TTC-Core-toBuf_TTC__PairNames (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((TTC-Core-toBuf_TTC__Name arg-0 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Name arg-0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Name arg-0 (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 3))) e-2))) ext-0))))))))))) (define TTC-Core-toBuf_TTC__PMDefInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((TTC-Core-toBuf_TTC__HoleInfo arg-0 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Bool arg-0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0))))))) (define TTC-Core-toBuf_TTC__NameType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__Int arg-0 e-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Nat arg-0 e-1) eta-0))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__Int arg-0 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((Binary-Utils-toBuf_TTC__Nat arg-0 e-3) eta-0))))))))))))))))) -(define TTC-Core-toBuf_TTC__Name (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) arg-0 e-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Name arg-0 e-1) eta-0))))))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else ((Binary-Utils-toBuf_TTC__String arg-0 e-2) eta-0)))))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__String arg-0 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__Int arg-0 e-4 eta-0))))))))))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Name arg-0 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__Int arg-0 e-6 eta-0))))))))))))) ((4) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__String arg-0 e-7) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Name arg-0 e-8) eta-0))))))))))))) ((5) (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__String arg-0 e-9) eta-0)))))))) ((6) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1))))) arg-0 e-10) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Name arg-0 e-11) eta-0))))))))))))) ((7) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__Int arg-0 e-12 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__Int arg-0 e-13 eta-0))))))))))))) ((8) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__Int arg-0 e-14 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__Int arg-0 e-15 eta-0))))))))))))) (else (let ((e-16 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't write resolved name " (Prelude-show_Show__Int e-16))) eta-0)))))))) +(define TTC-Core-toBuf_TTC__Name (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-1)))) arg-0 e-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Name arg-0 e-1) eta-0))))))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else ((Binary-Utils-toBuf_TTC__String arg-0 e-2) eta-0)))))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__String arg-0 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__Int arg-0 e-4 eta-0))))))))))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Name arg-0 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__Int arg-0 e-6 eta-0))))))))))))) ((4) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__String arg-0 e-7) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Name arg-0 e-8) eta-0))))))))))))) ((5) (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__String arg-0 e-9) eta-0)))))))) ((6) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-1))))) arg-0 e-10) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Name arg-0 e-11) eta-0))))))))))))) ((7) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__Int arg-0 e-12 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__Int arg-0 e-13 eta-0))))))))))))) ((8) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__Int arg-0 e-14 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__Int arg-0 e-15 eta-0))))))))))))) (else (let ((e-16 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't write resolved name " (Prelude-show_Show__Int e-16))) eta-0)))))))) (define TTC-Core-toBuf_TTC__LazyReason (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))))))) (define TTC-Core-toBuf_TTC__HoleInfo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) (else (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Nat arg-0 e-0) eta-0)))))))))))) -(define TTC-Core-toBuf_TTC__GlobalDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CDef arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CDef arg-2106 eta-0)))) arg-0 (let ((sc0 arg-1)) (let ((e-18 (vector-ref sc0 19))) e-18))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Bool arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-2))))) arg-2106 eta-1)))) arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2108 eta-2))))) arg-2107 eta-1)))) arg-2106 eta-0)))) arg-0 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (NameMap-Data-toList 'erased eta-0)) (let ((sc1 arg-1)) (let ((e-13 (vector-ref sc1 14))) e-13)))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__FC arg-0 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__RigCount arg-0 (let ((sc3 arg-1)) (let ((e-21 (vector-ref sc3 8))) e-21))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 ((TTC-Core-toBuf_TTC__Name arg-0 (let ((sc4 arg-1)) (let ((e-1 (vector-ref sc4 2))) e-1))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Bool arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-2))))) arg-2106 eta-1)))) arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2108 eta-2))))) arg-2107 eta-1)))) arg-2106 eta-0)))) arg-0 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (NameMap-Data-toList 'erased eta-0)) (let ((sc5 arg-1)) (let ((e-12 (vector-ref sc5 13))) e-12)))) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 ((TTC-Core-toBuf_TTC__Def arg-0 (let ((sc6 arg-1)) (let ((e-17 (vector-ref sc6 18))) e-17))) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((sc7 (Prelude-C-124C-124 (Name-Core-isUserName (let ((sc8 arg-1)) (let ((e-1 (vector-ref sc8 2))) e-1))) (lambda () (TTC-Core-n--14320-14827-cwName arg-1 arg-0 (let ((sc8 arg-1)) (let ((e-1 (vector-ref sc8 2))) e-1))))))) (cond ((equal? sc7 0) (let ((act-31 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-0 (let ((sc8 arg-1)) (let ((e-2 (vector-ref sc8 3))) e-2))) ext-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-32 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-0)))) arg-0 (let ((sc9 arg-1)) (let ((e-3 (vector-ref sc9 4))) e-3)) ext-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((act-33 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-0)))) arg-0 (let ((sc10 arg-1)) (let ((e-4 (vector-ref sc10 5))) e-4)) ext-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-34 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-0)))) arg-0 (let ((sc11 arg-1)) (let ((e-30 (vector-ref sc11 6))) e-30)) ext-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((act-35 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-0)))) arg-0 (let ((sc12 arg-1)) (let ((e-30 (vector-ref sc12 7))) e-30)) ext-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((act-36 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) arg-0 (let ((sc13 arg-1)) (let ((e-29 (vector-ref sc13 9))) e-29)) ext-0))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((act-37 ((TTC-Core-toBuf_TTC__Visibility arg-0 (let ((sc14 arg-1)) (let ((e-29 (vector-ref sc14 10))) e-29))) ext-0))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((act-38 ((TTC-Core-toBuf_TTC__Totality arg-0 (let ((sc15 arg-1)) (let ((e-29 (vector-ref sc15 11))) e-29))) ext-0))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((act-39 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__DefFlag arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__DefFlag arg-2106 eta-0)))) arg-0 (let ((sc16 arg-1)) (let ((e-29 (vector-ref sc16 12))) e-29)) ext-0))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((act-40 ((Binary-Utils-toBuf_TTC__Bool arg-0 (let ((sc17 arg-1)) (let ((e-27 (vector-ref sc17 15))) e-27))) ext-0))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((act-41 ((Binary-Utils-toBuf_TTC__Bool arg-0 (let ((sc18 arg-1)) (let ((e-27 (vector-ref sc18 16))) e-27))) ext-0))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__SCCall arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SCCall arg-2106 eta-0)))) arg-0 (let ((sc19 arg-1)) (let ((e-23 (vector-ref sc19 21))) e-23)) ext-0)))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))) -(define TTC-Core-toBuf_TTC__FC (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__String arg-0 e-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 ((Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1))))) arg-0 e-1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else ((Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1))))) arg-0 e-2) eta-0)))))))))))))))))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))))))) +(define TTC-Core-toBuf_TTC__GlobalDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CDef arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CDef arg-2124 eta-0)))) arg-0 (let ((sc0 arg-1)) (let ((e-18 (vector-ref sc0 19))) e-18))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__Name arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Bool arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1))))) arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-2))))) arg-2124 eta-1)))) arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2126 eta-2))))) arg-2125 eta-1)))) arg-2124 eta-0)))) arg-0 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (NameMap-Data-toList 'erased eta-0)) (let ((sc1 arg-1)) (let ((e-13 (vector-ref sc1 14))) e-13)))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__FC arg-0 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__RigCount arg-0 (let ((sc3 arg-1)) (let ((e-21 (vector-ref sc3 8))) e-21))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 ((TTC-Core-toBuf_TTC__Name arg-0 (let ((sc4 arg-1)) (let ((e-1 (vector-ref sc4 2))) e-1))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__Name arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Bool arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1))))) arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-2))))) arg-2124 eta-1)))) arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2126 eta-2))))) arg-2125 eta-1)))) arg-2124 eta-0)))) arg-0 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (NameMap-Data-toList 'erased eta-0)) (let ((sc5 arg-1)) (let ((e-12 (vector-ref sc5 13))) e-12)))) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 ((TTC-Core-toBuf_TTC__Def arg-0 (let ((sc6 arg-1)) (let ((e-17 (vector-ref sc6 18))) e-17))) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((sc7 (Prelude-C-124C-124 (Name-Core-isUserName (let ((sc8 arg-1)) (let ((e-1 (vector-ref sc8 2))) e-1))) (lambda () (TTC-Core-n--14375-14835-cwName arg-1 arg-0 (let ((sc8 arg-1)) (let ((e-1 (vector-ref sc8 2))) e-1))))))) (cond ((equal? sc7 0) (let ((act-31 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-0 (let ((sc8 arg-1)) (let ((e-2 (vector-ref sc8 3))) e-2))) ext-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-32 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-0)))) arg-0 (let ((sc9 arg-1)) (let ((e-3 (vector-ref sc9 4))) e-3)) ext-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((act-33 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-0)))) arg-0 (let ((sc10 arg-1)) (let ((e-4 (vector-ref sc10 5))) e-4)) ext-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-34 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-0)))) arg-0 (let ((sc11 arg-1)) (let ((e-30 (vector-ref sc11 6))) e-30)) ext-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((act-35 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-0)))) arg-0 (let ((sc12 arg-1)) (let ((e-30 (vector-ref sc12 7))) e-30)) ext-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((act-36 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) arg-0 (let ((sc13 arg-1)) (let ((e-29 (vector-ref sc13 9))) e-29)) ext-0))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((act-37 ((TTC-Core-toBuf_TTC__Visibility arg-0 (let ((sc14 arg-1)) (let ((e-29 (vector-ref sc14 10))) e-29))) ext-0))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((act-38 ((TTC-Core-toBuf_TTC__Totality arg-0 (let ((sc15 arg-1)) (let ((e-29 (vector-ref sc15 11))) e-29))) ext-0))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((act-39 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__DefFlag arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__DefFlag arg-2124 eta-0)))) arg-0 (let ((sc16 arg-1)) (let ((e-29 (vector-ref sc16 12))) e-29)) ext-0))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((act-40 ((Binary-Utils-toBuf_TTC__Bool arg-0 (let ((sc17 arg-1)) (let ((e-27 (vector-ref sc17 15))) e-27))) ext-0))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((act-41 ((Binary-Utils-toBuf_TTC__Bool arg-0 (let ((sc18 arg-1)) (let ((e-27 (vector-ref sc18 16))) e-27))) ext-0))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (TTC-Core-toBuf_TTC__SCCall arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SCCall arg-2124 eta-0)))) arg-0 (let ((sc19 arg-1)) (let ((e-23 (vector-ref sc19 21))) e-23)) ext-0)))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))) +(define TTC-Core-toBuf_TTC__FC (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__String arg-0 e-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 ((Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-1))))) arg-0 e-1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else ((Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-1))))) arg-0 e-2) eta-0)))))))))))))))))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))))))) (define TTC-Core-toBuf_TTC__DefFlag (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0))) ((2) (lambda (eta-0) (Binary-Utils-tag arg-0 4 eta-0))) ((3) (lambda (eta-0) (Binary-Utils-tag arg-0 5 eta-0))) ((4) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__TotalReq arg-0 e-0) eta-0)))))))) ((5) (lambda (eta-0) (Binary-Utils-tag arg-0 7 eta-0))) ((6) (lambda (eta-0) (Binary-Utils-tag arg-0 8 eta-0))) ((7) (lambda (eta-0) (Binary-Utils-tag arg-0 9 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 10 eta-0))))))) -(define TTC-Core-toBuf_TTC__Def (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 (TTC-Core-toBuf_TTC__PMDefInfo arg-0 e-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 e-1 arg-0 e-2) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) arg-2104 arg-2106 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) arg-2106 eta-1)))) (lambda (y) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107 arg-2108))) (lambda (arg-2107) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-1)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-1))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2104 arg-2107))) (lambda (arg-2107) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3))))) arg-2107 eta-2))))) arg-2106 eta-1)))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-3)))) arg-2103 arg-2105 eta-2)))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-3)))) arg-2107 eta-2)))) (lambda (y) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2104 arg-2107))) (lambda (arg-2107) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3))))) arg-2107 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2103 arg-2105))) (lambda (arg-2108) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2108))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-4)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-4))))) arg-2108 eta-3))))) arg-2107 eta-2)))))) arg-2106 eta-1)))) arg-0 e-4 eta-0))))))))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Nat arg-0 e-5) eta-0)))))))) ((3) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-6) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) arg-0 e-7 eta-0))))))))))))) ((4) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Trying to serialise a Builtin") eta-0))) ((5) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__Int arg-0 e-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-11) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2106 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-2))))) arg-2106 eta-1)))) arg-0 e-12) eta-0)))))))))))))))))) ((6) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((e-16 (vector-ref sc0 4))) (let ((e-17 (vector-ref sc0 5))) (let ((e-18 (vector-ref sc0 6))) (let ((e-19 (vector-ref sc0 7))) (let ((e-20 (vector-ref sc0 8))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__Int arg-0 e-13 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-14) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) arg-0 e-15 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) arg-0 e-16 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 (TTC-Core-toBuf_TTC__TypeFlags arg-0 e-17 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-30 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-18 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-31 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-19 eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-2)))) arg-2106 eta-1)))) arg-0 e-20) eta-0))))))))))))))))))))))))))))))))))))))))))) ((7) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-21) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Bool arg-0 e-22) eta-0))))))))))))) ((8) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-23) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-24) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Name arg-0 e-25) eta-0)))))))))))))))))) ((9) (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-0 e-26) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-27) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) arg-0 e-28 eta-0)))))))))))))))))) ((10) (lambda (eta-0) (Binary-Utils-tag arg-0 9 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 10 eta-0))))))) -(define TTC-Core-toBuf_TTC__Covering (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2106 eta-1)))) arg-0 e-0 eta-0)))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-1 eta-0)))))))))))) +(define TTC-Core-toBuf_TTC__Def (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 (TTC-Core-toBuf_TTC__PMDefInfo arg-0 e-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-0 e-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 e-1 arg-0 e-2) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__Name arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-2)))) arg-2122 arg-2124 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-2)))) arg-2124 eta-1)))) (lambda (y) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2125 arg-2126))) (lambda (arg-2125) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2125))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 eta-1)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 eta-1))))) arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2122 arg-2125))) (lambda (arg-2125) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2125))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2))))) arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-3))))) arg-2125 eta-2))))) arg-2124 eta-1)))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-3)))) arg-2121 arg-2123 eta-2)))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2126 eta-3)))) arg-2125 eta-2)))) (lambda (y) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2122 arg-2125))) (lambda (arg-2125) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2125))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2))))) arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-3))))) arg-2125 eta-2))))) arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2121 arg-2123))) (lambda (arg-2126) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2126))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-3))))) arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 eta-4)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 eta-4))))) arg-2126 eta-3))))) arg-2125 eta-2)))))) arg-2124 eta-1)))) arg-0 e-4 eta-0))))))))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Nat arg-0 e-5) eta-0)))))))) ((3) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-6) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-1)))) arg-0 e-7 eta-0))))))))))))) ((4) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Trying to serialise a Builtin") eta-0))) ((5) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__Int arg-0 e-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-11) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2124 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-2))))) arg-2124 eta-1)))) arg-0 e-12) eta-0)))))))))))))))))) ((6) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((e-16 (vector-ref sc0 4))) (let ((e-17 (vector-ref sc0 5))) (let ((e-18 (vector-ref sc0 6))) (let ((e-19 (vector-ref sc0 7))) (let ((e-20 (vector-ref sc0 8))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__Int arg-0 e-13 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-14) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-1)))) arg-0 e-15 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-1)))) arg-0 e-16 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 (TTC-Core-toBuf_TTC__TypeFlags arg-0 e-17 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-30 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-0 e-18 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-31 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-0 e-19 eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-2)))) arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-2)))) arg-2124 eta-1)))) arg-0 e-20) eta-0))))))))))))))))))))))))))))))))))))))))))) ((7) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-21) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Bool arg-0 (let ((sc3 e-22)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))))))))))))) ((8) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-23) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-24) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Name arg-0 e-25) eta-0)))))))))))))))))) ((9) (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-0 e-26) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-27) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-1)))) arg-0 e-28 eta-0)))))))))))))))))) ((10) (lambda (eta-0) (Binary-Utils-tag arg-0 9 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 10 eta-0))))))) +(define TTC-Core-toBuf_TTC__Covering (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2124 eta-1)))) arg-0 e-0 eta-0)))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-0 e-1 eta-0)))))))))))) (define TTC-Core-toBuf_TTC__Constant (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__Int arg-0 e-0 eta-0)))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Integer arg-0 e-1) eta-0)))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (Binary-Utils-toBuf_TTC__Int arg-0 e-2 eta-0)))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__Int arg-0 e-3 eta-0)))))))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__Int arg-0 e-4 eta-0)))))))) ((5) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Integer arg-0 e-5) eta-0)))))))) ((6) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__String arg-0 e-6) eta-0)))))))) ((7) (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__Char arg-0 e-7 eta-0)))))))) ((8) (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__Double arg-0 e-8 eta-0)))))))) ((9) (lambda (eta-0) (Binary-Utils-tag arg-0 9 eta-0))) ((10) (lambda (eta-0) (Binary-Utils-tag arg-0 10 eta-0))) ((11) (lambda (eta-0) (Binary-Utils-tag arg-0 11 eta-0))) ((12) (lambda (eta-0) (Binary-Utils-tag arg-0 12 eta-0))) ((13) (lambda (eta-0) (Binary-Utils-tag arg-0 13 eta-0))) ((14) (lambda (eta-0) (Binary-Utils-tag arg-0 14 eta-0))) ((15) (lambda (eta-0) (Binary-Utils-tag arg-0 15 eta-0))) ((16) (lambda (eta-0) (Binary-Utils-tag arg-0 16 eta-0))) ((17) (lambda (eta-0) (Binary-Utils-tag arg-0 17 eta-0))) ((18) (lambda (eta-0) (Binary-Utils-tag arg-0 18 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 19 eta-0))))))) (define TTC-Core-toBuf_TTC__CG (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))) ((2) (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0))) (else (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__String arg-0 e-0) eta-0)))))))))))) -(define TTC-Core-toBuf_TTC__CFType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) ((2) (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))) ((3) (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0))) ((4) (lambda (eta-0) (Binary-Utils-tag arg-0 4 eta-0))) ((5) (lambda (eta-0) (Binary-Utils-tag arg-0 5 eta-0))) ((6) (lambda (eta-0) (Binary-Utils-tag arg-0 6 eta-0))) ((9) (lambda (eta-0) (Binary-Utils-tag arg-0 7 eta-0))) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__CFType arg-0 e-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__CFType arg-0 e-1) eta-0))))))))))))) ((11) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else ((TTC-Core-toBuf_TTC__CFType arg-0 e-2) eta-0)))))))) ((12) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 10 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__String arg-0 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__CFType arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2106 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CFType arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__CFType arg-2107 eta-2))))) arg-2106 eta-1)))) arg-0 e-4 eta-0))))))))))))) ((13) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 11 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Name arg-0 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CFType arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2106 eta-1)))) arg-0 e-6 eta-0))))))))))))) ((7) (lambda (eta-0) (Binary-Utils-tag arg-0 12 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 13 eta-0))))))) -(define TTC-Core-toBuf_TTC__CDef (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 e-0 arg-0 e-1) eta-0))))))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) arg-0 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) arg-0 e-4) eta-0)))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) arg-0 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CFType arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2106 eta-1)))) arg-0 e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__CFType arg-0 e-7) eta-0)))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 0 ) arg-0 e-8) eta-0)))))))))))) -(define TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (TTC-Core-case--8123-8510 arg-0 e-4 'erased 'erased e-3 e-2 arg-1 (Prelude-C-60_Ord__Nat e-4 (Prelude-fromInteger_Num__Nat 244))))))) ((1) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__NameType arg-1 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Name arg-1 e-9) eta-0))))))))))))) ((2) (let ((e-12 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Name arg-1 e-12) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-14 eta-0))))))))))))) ((3) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Name arg-1 e-17) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-1 e-18) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 1 e-17 arg-0) arg-1 e-19) eta-0)))))))))))))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-22) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-23) eta-0))))))))))))) ((5) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-27) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__UseSide arg-1 e-26) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-28) eta-0)))))))))))))))))) ((6) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__LazyReason arg-1 e-31) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-32) eta-0))))))))))))) ((7) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__LazyReason arg-1 e-35) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-36) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-37) eta-0)))))))))))))))))) ((8) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__LazyReason arg-1 e-40) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-41) eta-0))))))))))))) ((9) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-44) eta-0)))))))) ((10) (lambda (eta-0) (Binary-Utils-tag arg-1 10 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-1 11 eta-0))))))) +(define TTC-Core-toBuf_TTC__CFType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) ((2) (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))) ((3) (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0))) ((4) (lambda (eta-0) (Binary-Utils-tag arg-0 4 eta-0))) ((5) (lambda (eta-0) (Binary-Utils-tag arg-0 5 eta-0))) ((6) (lambda (eta-0) (Binary-Utils-tag arg-0 6 eta-0))) ((9) (lambda (eta-0) (Binary-Utils-tag arg-0 7 eta-0))) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__CFType arg-0 e-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__CFType arg-0 e-1) eta-0))))))))))))) ((11) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else ((TTC-Core-toBuf_TTC__CFType arg-0 e-2) eta-0)))))))) ((12) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 10 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__String arg-0 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__CFType arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2124 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CFType arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__CFType arg-2125 eta-2))))) arg-2124 eta-1)))) arg-0 e-4 eta-0))))))))))))) ((13) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 11 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Name arg-0 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CFType arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2124 eta-1)))) arg-0 e-6 eta-0))))))))))))) ((7) (lambda (eta-0) (Binary-Utils-tag arg-0 12 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 13 eta-0))))))) +(define TTC-Core-toBuf_TTC__CDef (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-0 e-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 e-0 arg-0 e-1) eta-0))))))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-1)))) arg-0 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-1)))) arg-0 e-4) eta-0)))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-1)))) arg-0 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CFType arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2124 eta-1)))) arg-0 e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__CFType arg-0 e-7) eta-0)))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 0 ) arg-0 e-8) eta-0)))))))))))) +(define TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (TTC-Core-case--8178-8518 arg-0 e-4 'erased 'erased e-3 e-2 arg-1 (Prelude-C-60_Ord__Nat e-4 (Prelude-fromInteger_Num__Nat 244))))))) ((1) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__NameType arg-1 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Name arg-1 e-9) eta-0))))))))))))) ((2) (let ((e-12 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Name arg-1 e-12) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2124 eta-1)))) arg-1 e-14 eta-0))))))))))))) ((3) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Name arg-1 e-17) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-1 e-18) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 1 e-17 arg-0) arg-1 e-19) eta-0)))))))))))))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-22) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-23) eta-0))))))))))))) ((5) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-27) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__UseSide arg-1 e-26) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-28) eta-0)))))))))))))))))) ((6) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__LazyReason arg-1 e-31) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-32) eta-0))))))))))))) ((7) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__LazyReason arg-1 e-35) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-36) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-37) eta-0)))))))))))))))))) ((8) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__LazyReason arg-1 e-40) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-41) eta-0))))))))))))) ((9) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-44) eta-0)))))))) ((10) (lambda (eta-0) (Binary-Utils-tag arg-1 10 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-1 11 eta-0))))))) (define TTC-Core-toBuf_TTC__C-40PrimFnC-32C-36nC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (blodwen-error-quit "Nat case not covered"))(else (let ((e-0 (- arg-0 1))) (let ((sc0 e-0)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((5) (let ((e-18 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 5 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-18) eta-0)))))))) ((16) (lambda (eta-0) (Binary-Utils-tag arg-1 11 eta-0))) ((17) (lambda (eta-0) (Binary-Utils-tag arg-1 12 eta-0))) ((18) (lambda (eta-0) (Binary-Utils-tag arg-1 13 eta-0))) ((22) (lambda (eta-0) (Binary-Utils-tag arg-1 17 eta-0))) ((24) (lambda (eta-0) (Binary-Utils-tag arg-1 19 eta-0))) ((25) (lambda (eta-0) (Binary-Utils-tag arg-1 20 eta-0))) ((26) (lambda (eta-0) (Binary-Utils-tag arg-1 22 eta-0))) ((27) (lambda (eta-0) (Binary-Utils-tag arg-1 23 eta-0))) ((28) (lambda (eta-0) (Binary-Utils-tag arg-1 24 eta-0))) ((29) (lambda (eta-0) (Binary-Utils-tag arg-1 25 eta-0))) ((30) (lambda (eta-0) (Binary-Utils-tag arg-1 26 eta-0))) ((31) (lambda (eta-0) (Binary-Utils-tag arg-1 27 eta-0))) ((32) (lambda (eta-0) (Binary-Utils-tag arg-1 32 eta-0))) ((33) (lambda (eta-0) (Binary-Utils-tag arg-1 33 eta-0))) ((34) (lambda (eta-0) (Binary-Utils-tag arg-1 34 eta-0))) (else (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 99 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Constant arg-1 e-19) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-20) eta-0))))))))))))))))(else (let ((e-1 (- e-0 1))) (let ((sc0 e-1)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-3) eta-0)))))))) ((1) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 1 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-4) eta-0)))))))) ((2) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 2 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-5) eta-0)))))))) ((3) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-6) eta-0)))))))) ((4) (let ((e-7 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 4 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-7) eta-0)))))))) ((6) (let ((e-8 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 35 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-8) eta-0)))))))) ((7) (let ((e-9 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 36 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-9) eta-0)))))))) ((8) (let ((e-10 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 37 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-10) eta-0)))))))) ((9) (let ((e-11 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 38 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-11) eta-0)))))))) ((10) (let ((e-12 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 39 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-12) eta-0)))))))) ((11) (let ((e-13 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 6 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-13) eta-0)))))))) ((12) (let ((e-14 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 7 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-14) eta-0)))))))) ((13) (let ((e-15 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 8 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-15) eta-0)))))))) ((14) (let ((e-16 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 9 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-16) eta-0)))))))) ((15) (let ((e-17 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 10 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-17) eta-0)))))))) ((19) (lambda (eta-0) (Binary-Utils-tag arg-1 14 eta-0))) ((20) (lambda (eta-0) (Binary-Utils-tag arg-1 15 eta-0))) ((21) (lambda (eta-0) (Binary-Utils-tag arg-1 16 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-1 101 eta-0))))))(else (let ((e-2 (- e-1 1))) (let ((sc0 e-2)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((23) (lambda (eta-0) (Binary-Utils-tag arg-1 18 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-1 100 eta-0))))))(else (blodwen-error-quit "Nat case not covered")))))))))))))))))) (define TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-2 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-2 1 eta-0))) ((2) (lambda (eta-0) (Binary-Utils-tag arg-2 2 eta-0))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-2 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) (((e-1 arg-2) e-4) eta-0)))))))))))))) -(define TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Name arg-1 e-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-1 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-5 eta-0)))))))))))))))))) ((1) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-8) eta-0)))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__String arg-1 e-10) eta-0)))))))) (else (lambda (eta-0) (Binary-Utils-tag arg-1 3 eta-0))))))) -(define TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Name arg-1 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__Int arg-1 e-2 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-1 e-3 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 e-4) eta-0))))))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Name arg-1 e-6) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__Name arg-1 e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (vector 1 e-6 (vector 1 e-7 arg-0)) arg-1 e-8) eta-0)))))))))))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Constant arg-1 e-10) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 e-11) eta-0))))))))))))) (else (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 e-13) eta-0)))))))))))) -(define TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((Binary-Utils-toBuf_TTC__Nat arg-1 e-2) eta-0))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-6) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Name arg-1 e-7) eta-0))))))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__Name arg-1 e-10) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-10 arg-0) arg-1 e-11) eta-0)))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((e-16 (vector-ref sc0 4))) (let ((e-17 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__Name arg-1 e-14) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((Binary-Utils-toBuf_TTC__Bool arg-1 e-15) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-16) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-14 arg-0) arg-1 e-17) eta-0)))))))))))))))))))))))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-19) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-20) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-21 eta-0)))))))))))))))))) ((5) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-23) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__Name arg-1 e-24) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) arg-1 e-25) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-26 eta-0))))))))))))))))))))))) ((6) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-29) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-1 e-28) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__C-40PrimFnC-32C-36nC-41 e-28 arg-1 e-30) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased e-28 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-31) eta-0))))))))))))))))))))))) ((7) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-33) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__Name arg-1 e-34) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-35 eta-0)))))))))))))))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-37) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-38) eta-0))))))))))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-40) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-41) eta-0))))))))))))) ((10) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (let ((e-45 (vector-ref sc0 3))) (let ((e-46 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 10 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-43) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-44) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-45 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-46) eta-0))))))))))))))))))))))) ((11) (let ((e-48 (vector-ref sc0 1))) (let ((e-49 (vector-ref sc0 2))) (let ((e-50 (vector-ref sc0 3))) (let ((e-51 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 11 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-48) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-49) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-50 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-51) eta-0))))))))))))))))))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 12 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-53) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-54) eta-0))))))))))))) ((13) (let ((e-56 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 13 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__FC arg-1 e-56) eta-0)))))))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-58) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__String arg-1 e-59) eta-0))))))))))))))))) +(define TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Name arg-1 e-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-1 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2124 eta-1)))) arg-1 e-5 eta-0)))))))))))))))))) ((1) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-8) eta-0)))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__String arg-1 e-10) eta-0)))))))) (else (lambda (eta-0) (Binary-Utils-tag arg-1 3 eta-0))))))) +(define TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Name arg-1 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__Int arg-1 e-2 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-1 e-3 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 e-4) eta-0))))))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Name arg-1 e-6) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__Name arg-1 e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (vector 1 e-6 (vector 1 e-7 arg-0)) arg-1 e-8) eta-0)))))))))))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Constant arg-1 e-10) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 e-11) eta-0))))))))))))) (else (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 e-13) eta-0)))))))))))) +(define TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((Binary-Utils-toBuf_TTC__Nat arg-1 e-2) eta-0))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-6) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Name arg-1 e-7) eta-0))))))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__Name arg-1 e-10) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-10 arg-0) arg-1 e-11) eta-0)))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((e-16 (vector-ref sc0 4))) (let ((e-17 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__Name arg-1 e-14) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((Binary-Utils-toBuf_TTC__Bool arg-1 e-15) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-16) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-14 arg-0) arg-1 e-17) eta-0)))))))))))))))))))))))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-19) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-20) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 eta-1)))) arg-1 e-21 eta-0)))))))))))))))))) ((5) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-23) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__Name arg-1 e-24) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-1)))) arg-1 e-25) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 eta-1)))) arg-1 e-26 eta-0))))))))))))))))))))))) ((6) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-29) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-1 e-28) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__C-40PrimFnC-32C-36nC-41 e-28 arg-1 e-30) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased e-28 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 eta-1)))) arg-1 e-31) eta-0))))))))))))))))))))))) ((7) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-33) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__Name arg-1 e-34) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 eta-1)))) arg-1 e-35 eta-0)))))))))))))))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-37) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-38) eta-0))))))))))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-40) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-41) eta-0))))))))))))) ((10) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (let ((e-45 (vector-ref sc0 3))) (let ((e-46 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 10 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-43) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-44) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2124 eta-1)))) arg-1 e-45 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 eta-1)))) arg-1 e-46) eta-0))))))))))))))))))))))) ((11) (let ((e-48 (vector-ref sc0 1))) (let ((e-49 (vector-ref sc0 2))) (let ((e-50 (vector-ref sc0 3))) (let ((e-51 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 11 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-48) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-49) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2124 eta-1)))) arg-1 e-50 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 eta-1)))) arg-1 e-51) eta-0))))))))))))))))))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 12 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-53) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-54) eta-0))))))))))))) ((13) (let ((e-56 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 13 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__FC arg-1 e-56) eta-0)))))))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-58) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__String arg-1 e-59) eta-0))))))))))))))))) (define TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__Constant arg-1 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-2) eta-0))))))))))) -(define TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__Name arg-1 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) arg-1 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-1 e-3 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 e-4) eta-0))))))))))))))))))))) -(define TTC-Core-toBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-3) eta-0)))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-6) eta-0))))))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-10) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-11) eta-0)))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-14) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-15) eta-0)))))))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-17) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-18) eta-0))))))))))))) (else (let ((e-21 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__RigCount arg-1 e-21) eta-0)))))))))))) +(define TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__Name arg-1 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-1)))) arg-1 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-1 e-3 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 e-4) eta-0))))))))))))))))))))) +(define TTC-Core-toBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2124 eta-1)))) arg-1 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-3) eta-0)))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-6) eta-0))))))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2124 eta-1)))) arg-1 e-10) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-11) eta-0)))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2124 eta-1)))) arg-1 e-14) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-15) eta-0)))))))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-17) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-18) eta-0))))))))))))) (else (let ((e-21 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__RigCount arg-1 e-21) eta-0)))))))))))) (define TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 e-3 arg-1 e-8) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 e-3 arg-1 e-9) eta-0))))))))))))))) (define TTC-Core-fromBuf_TTC__Visibility (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (vector 1 (vector 2 )))(else (Binary-Utils-corrupt 'erased "Visibility" ext-0))))))))))) (define TTC-Core-fromBuf_TTC__UseSide (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (vector 1 (vector 1 )))(else (Binary-Utils-corrupt 'erased "UseSide" ext-0))))))))))) (define TTC-Core-fromBuf_TTC__TypeFlags (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Bool arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Bool arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))) -(define TTC-Core-fromBuf_TTC__Transform (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 e-5 arg-0) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 e-5 arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 e-5 arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) +(define TTC-Core-fromBuf_TTC__Transform (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 e-5 arg-0) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 e-5 arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 e-5 arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) (define TTC-Core-fromBuf_TTC__Totality (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Terminating arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Covering arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))) (define TTC-Core-fromBuf_TTC__TotalReq (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (vector 1 (vector 2 )))(else (Binary-Utils-corrupt 'erased "TotalReq" ext-0))))))))))) (define TTC-Core-fromBuf_TTC__Terminating (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (let ((act-25 (TTC-Core-fromBuf_TTC__PartialReason arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-6))))))))(else (Binary-Utils-corrupt 'erased "Terminating" ext-0))))))))))) (define TTC-Core-fromBuf_TTC__SizeChange (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (vector 1 (vector 2 )))(else (Binary-Utils-corrupt 'erased "SizeChange" ext-0))))))))))) -(define TTC-Core-fromBuf_TTC__SCCall (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__SizeChange arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SizeChange arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__SizeChange arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-2107 eta-1))))) arg-2106 eta-0)))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__SizeChange arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__SizeChange arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__SizeChange arg-2108 eta-2))))) arg-2107 eta-1)))) arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))) -(define TTC-Core-fromBuf_TTC__RigCount (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc1 1) (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc1 2) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))(else (Binary-Utils-corrupt 'erased "RigCount" ext-0))))))))))) +(define TTC-Core-fromBuf_TTC__SCCall (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-0)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__SizeChange arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SizeChange arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__SizeChange arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-2125 eta-1))))) arg-2124 eta-0)))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__SizeChange arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__SizeChange arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__SizeChange arg-2126 eta-2))))) arg-2125 eta-1)))) arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))) +(define TTC-Core-fromBuf_TTC__RigCount (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc1 1) (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc1 2) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))(else (Binary-Utils-corrupt 'erased "RigCount" ext-0))))))))))) (define TTC-Core-fromBuf_TTC__RewriteNames (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))) -(define TTC-Core-fromBuf_TTC__PrimNames (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 0 e-5 e-6 e-7))))))))))))))))))) -(define TTC-Core-fromBuf_TTC__PartialReason (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-6)))))))) ((equal? sc1 2) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-6))))))))(else (Binary-Utils-corrupt 'erased "PartialReason" ext-0))))))))))) +(define TTC-Core-fromBuf_TTC__PrimNames (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 0 e-5 e-6 e-7))))))))))))))))))) +(define TTC-Core-fromBuf_TTC__PartialReason (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-6)))))))) ((equal? sc1 2) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-6))))))))(else (Binary-Utils-corrupt 'erased "PartialReason" ext-0))))))))))) (define TTC-Core-fromBuf_TTC__PairNames (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 0 e-5 e-6 e-7))))))))))))))))))) (define TTC-Core-fromBuf_TTC__PMDefInfo (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-fromBuf_TTC__HoleInfo arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Bool arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))) (define TTC-Core-fromBuf_TTC__NameType (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (let ((act-25 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 e-6 e-7))))))))))))) ((equal? sc1 3) (let ((act-25 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-6 e-7)))))))))))))(else (Binary-Utils-corrupt 'erased "NameType" ext-0))))))))))) -(define TTC-Core-fromBuf_TTC__Name (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-6 e-7))))))))))))) ((equal? sc1 1) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-6)))))))) ((equal? sc1 2) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 e-6 e-7))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-6 e-7))))))))))))) ((equal? sc1 4) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 4 e-6 e-7))))))))))))) ((equal? sc1 5) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-6)))))))) ((equal? sc1 6) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-0)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-0))))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 6 e-6 e-7))))))))))))) ((equal? sc1 7) (let ((act-25 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 7 e-6 e-7))))))))))))) ((equal? sc1 8) (let ((act-25 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 8 e-6 e-7)))))))))))))(else (Binary-Utils-corrupt 'erased "Name" ext-0))))))))))) +(define TTC-Core-fromBuf_TTC__Name (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-6 e-7))))))))))))) ((equal? sc1 1) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-6)))))))) ((equal? sc1 2) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 e-6 e-7))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-6 e-7))))))))))))) ((equal? sc1 4) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 4 e-6 e-7))))))))))))) ((equal? sc1 5) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-6)))))))) ((equal? sc1 6) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-0)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-0))))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 6 e-6 e-7))))))))))))) ((equal? sc1 7) (let ((act-25 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 7 e-6 e-7))))))))))))) ((equal? sc1 8) (let ((act-25 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 8 e-6 e-7)))))))))))))(else (Binary-Utils-corrupt 'erased "Name" ext-0))))))))))) (define TTC-Core-fromBuf_TTC__LazyReason (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (vector 1 (vector 2 )))(else (Binary-Utils-corrupt 'erased "LazyReason" ext-0))))))))))) (define TTC-Core-fromBuf_TTC__HoleInfo (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-6))))))))(else (Binary-Utils-corrupt 'erased "HoleInfo" ext-0))))))))))) -(define TTC-Core-fromBuf_TTC__GlobalDef (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CDef arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CDef arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Bool arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-2))))) arg-2106 eta-1)))) arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2108 eta-2))))) arg-2107 eta-1)))) arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((refsR (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (NameMap-Data-fromList 'erased eta-0)) e-6))) (let ((act-26 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__RigCount arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Bool arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-2))))) arg-2106 eta-1)))) arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2108 eta-2))))) arg-2107 eta-1)))) arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((refs (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (NameMap-Data-fromList 'erased eta-0)) e-10))) (let ((act-30 (TTC-Core-fromBuf_TTC__Def arg-0 ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) ((TTC-Core-case--14322-15092 arg-0 e-5 e-6 refsR e-7 e-8 e-9 e-10 refs e-11 (Name-Core-isUserName e-9)) ext-0)))))))))))))))))))))))))))))))))))))))) -(define TTC-Core-fromBuf_TTC__FC (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-0)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-0))))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-0)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-0))))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 1) (vector 1 (vector 1 )))(else (Binary-Utils-corrupt 'erased "FC" ext-0))))))))))) +(define TTC-Core-fromBuf_TTC__GlobalDef (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CDef arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CDef arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__Name arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Bool arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1))))) arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-2))))) arg-2124 eta-1)))) arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2126 eta-2))))) arg-2125 eta-1)))) arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((refsR (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (NameMap-Data-fromList 'erased eta-0)) e-6))) (let ((act-26 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__RigCount arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__Name arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Bool arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1))))) arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-2))))) arg-2124 eta-1)))) arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2126 eta-2))))) arg-2125 eta-1)))) arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((refs (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (NameMap-Data-fromList 'erased eta-0)) e-10))) (let ((act-30 (TTC-Core-fromBuf_TTC__Def arg-0 ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) ((TTC-Core-case--14377-15100 arg-0 e-5 e-6 refsR e-7 e-8 e-9 e-10 refs e-11 (Name-Core-isUserName e-9)) ext-0)))))))))))))))))))))))))))))))))))))))) +(define TTC-Core-fromBuf_TTC__FC (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-0)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-0))))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-0)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-0))))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 1) (vector 1 (vector 1 )))(else (Binary-Utils-corrupt 'erased "FC" ext-0))))))))))) (define TTC-Core-fromBuf_TTC__DefFlag (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 2) (vector 1 (vector 0 ))) ((equal? sc1 3) (vector 1 (vector 1 ))) ((equal? sc1 4) (vector 1 (vector 2 ))) ((equal? sc1 5) (vector 1 (vector 3 ))) ((equal? sc1 6) (let ((act-25 (TTC-Core-fromBuf_TTC__TotalReq arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-6)))))))) ((equal? sc1 7) (vector 1 (vector 5 ))) ((equal? sc1 8) (vector 1 (vector 6 ))) ((equal? sc1 9) (vector 1 (vector 7 (vector 0 )))) ((equal? sc1 10) (vector 1 (vector 8 )))(else (Binary-Utils-corrupt 'erased "DefFlag" ext-0))))))))))) -(define TTC-Core-fromBuf_TTC__Def (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__PMDefInfo arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 e-7 arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) arg-2106 eta-0)))) (lambda (y) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107 arg-2108))) (lambda (arg-2107) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-0)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-0))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-1))))) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2104 arg-2107))) (lambda (arg-2107) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0)))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) arg-2107 eta-1)))) (lambda (y) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2104 arg-2107))) (lambda (arg-2107) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2103 arg-2105))) (lambda (arg-2108) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2108))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-3)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2107 eta-1)))))) arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 1 e-6 e-7 e-8 (vector 2 "") e-9))))))))))))))))))))))) ((equal? sc1 2) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-6)))))))) ((equal? sc1 3) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-6 e-7))))))))))))) ((equal? sc1 4) (let ((act-25 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1))))) arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 5 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 5) (let ((act-25 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTC-Core-fromBuf_TTC__TypeFlags arg-0 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1)))) arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (vector 1 (vector 6 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13))))))))))))))))))))))))))))))))))))))))))) ((equal? sc1 6) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Bool arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 7 e-6 e-7))))))))))))) ((equal? sc1 7) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 8 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 8) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 9 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 9) (vector 1 (vector 10 ))) ((equal? sc1 10) (vector 1 (vector 11 )))(else (Binary-Utils-corrupt 'erased "Def" ext-0))))))))))) -(define TTC-Core-fromBuf_TTC__Covering (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-6)))))))) ((equal? sc1 2) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-6))))))))(else (Binary-Utils-corrupt 'erased "Covering" ext-0))))))))))) +(define TTC-Core-fromBuf_TTC__Def (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__PMDefInfo arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 e-7 arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__Name arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) arg-2122 arg-2124 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) arg-2124 eta-0)))) (lambda (y) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2125 arg-2126))) (lambda (arg-2125) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2125))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 eta-0)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 eta-0))))) arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-1))))) arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2122 arg-2125))) (lambda (arg-2125) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2125))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-1))))) arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 eta-0)))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-2)))) arg-2121 arg-2123 eta-1)))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2126 eta-2)))) arg-2125 eta-1)))) (lambda (y) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2122 arg-2125))) (lambda (arg-2125) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2125))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-1))))) arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2121 arg-2123))) (lambda (arg-2126) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2126))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2))))) arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 eta-3)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 eta-3))))) arg-2126 eta-2))))) arg-2125 eta-1)))))) arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 1 e-6 e-7 e-8 (vector 2 "") e-9))))))))))))))))))))))) ((equal? sc1 2) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-6)))))))) ((equal? sc1 3) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-6 e-7))))))))))))) ((equal? sc1 4) (let ((act-25 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-1))))) arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 5 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 5) (let ((act-25 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTC-Core-fromBuf_TTC__TypeFlags arg-0 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-1)))) arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-1)))) arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (vector 1 (vector 6 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13))))))))))))))))))))))))))))))))))))))))))) ((equal? sc1 6) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Bool arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 7 e-6 (Context-Core-holeInit e-7)))))))))))))) ((equal? sc1 7) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 8 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 8) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 9 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 9) (vector 1 (vector 10 ))) ((equal? sc1 10) (vector 1 (vector 11 )))(else (Binary-Utils-corrupt 'erased "Def" ext-0))))))))))) +(define TTC-Core-fromBuf_TTC__Covering (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-6)))))))) ((equal? sc1 2) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-6))))))))(else (Binary-Utils-corrupt 'erased "Covering" ext-0))))))))))) (define TTC-Core-fromBuf_TTC__Constant (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-6)))))))) ((equal? sc1 1) (let ((act-25 (Binary-Utils-fromBuf_TTC__Integer arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-6)))))))) ((equal? sc1 2) (let ((act-25 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-6)))))))) ((equal? sc1 3) (let ((act-25 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-6)))))))) ((equal? sc1 4) (let ((act-25 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-6)))))))) ((equal? sc1 5) (let ((act-25 (Binary-Utils-fromBuf_TTC__Integer arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-6)))))))) ((equal? sc1 6) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 6 e-6)))))))) ((equal? sc1 7) (let ((act-25 (Binary-Utils-fromBuf_TTC__Char arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-6)))))))) ((equal? sc1 8) (let ((act-25 (Binary-Utils-fromBuf_TTC__Double arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 8 e-6)))))))) ((equal? sc1 9) (vector 1 (vector 9 ))) ((equal? sc1 10) (vector 1 (vector 10 ))) ((equal? sc1 11) (vector 1 (vector 11 ))) ((equal? sc1 12) (vector 1 (vector 12 ))) ((equal? sc1 13) (vector 1 (vector 13 ))) ((equal? sc1 14) (vector 1 (vector 14 ))) ((equal? sc1 15) (vector 1 (vector 15 ))) ((equal? sc1 16) (vector 1 (vector 16 ))) ((equal? sc1 17) (vector 1 (vector 17 ))) ((equal? sc1 18) (vector 1 (vector 18 ))) ((equal? sc1 19) (vector 1 (vector 19 )))(else (Binary-Utils-corrupt 'erased "Constant" ext-0))))))))))) (define TTC-Core-fromBuf_TTC__CG (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 2) (vector 1 (vector 1 ))) ((equal? sc1 3) (vector 1 (vector 2 ))) ((equal? sc1 4) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-6))))))))(else (Binary-Utils-corrupt 'erased "CG" ext-0))))))))))) -(define TTC-Core-fromBuf_TTC__CFType (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (vector 1 (vector 2 ))) ((equal? sc1 3) (vector 1 (vector 3 ))) ((equal? sc1 4) (vector 1 (vector 4 ))) ((equal? sc1 5) (vector 1 (vector 5 ))) ((equal? sc1 6) (vector 1 (vector 6 ))) ((equal? sc1 7) (vector 1 (vector 9 ))) ((equal? sc1 8) (let ((act-25 (TTC-Core-fromBuf_TTC__CFType arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__CFType arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 10 e-6 e-7))))))))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-fromBuf_TTC__CFType arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 11 e-6)))))))) ((equal? sc1 10) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__CFType arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CFType arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2107 eta-1))))) arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 12 e-6 e-7))))))))))))) ((equal? sc1 11) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CFType arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 13 e-6 e-7))))))))))))) ((equal? sc1 12) (vector 1 (vector 7 ))) ((equal? sc1 13) (vector 1 (vector 8 )))(else (Binary-Utils-corrupt 'erased "CFType" ext-0))))))))))) -(define TTC-Core-fromBuf_TTC__CDef (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 e-6 arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-6 e-7))))))))))))) ((equal? sc1 1) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 2) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CFType arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__CFType arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 2 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 0 ) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-6))))))))(else (Binary-Utils-corrupt 'erased "CDef" ext-0))))))))))) -(define TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-getTag arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2106 eta-0)))) arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Binary-Utils-corrupt 'erased "Term" eta-0))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) (TTC-Core-getName e-7 arg-0)) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 0 (FC-Core-emptyFC) e-6 e-7))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__NameType arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 (FC-Core-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 eta-0)))) arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 (FC-Core-emptyFC) e-6 0 e-7))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 1 e-6 arg-0) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 3 (FC-Core-emptyFC) e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 4 (FC-Core-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 5) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__UseSide arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 5 (FC-Core-emptyFC) e-7 e-6 e-8)))))))))))))))))) ((equal? sc1 6) (let ((act-25 (TTC-Core-fromBuf_TTC__LazyReason arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 6 (FC-Core-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 7) (let ((act-25 (TTC-Core-fromBuf_TTC__LazyReason arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 7 (FC-Core-emptyFC) e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 8) (let ((act-25 (TTC-Core-fromBuf_TTC__LazyReason arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 8 (FC-Core-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 9 (FC-Core-emptyFC) e-6)))))))) ((equal? sc1 10) (vector 1 (vector 10 (FC-Core-emptyFC) 1))) ((equal? sc1 11) (vector 1 (vector 11 (FC-Core-emptyFC))))(else (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2106 eta-0)))) arg-1 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((idx (Prelude-fromInteger_Num__Nat (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int e-5 12))))) (let ((bind-0 e-5)) ((TTC-Core-case--8496-9194 arg-1 arg-0 e-5 bind-0 e-6 idx (TTC-Core-getName idx arg-0)) ext-0)))))))))))))))))) -(define TTC-Core-fromBuf_TTC__C-40PrimFnC-32C-36nC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-0)))(else (let ((e-0 (- arg-0 1))) (let ((sc0 e-0)) (cond ((equal? sc0 0) (lambda (eta-0) (TTC-Core-n--10285-11078-fromBuf1 arg-1 arg-0 eta-0)))(else (let ((e-1 (- e-0 1))) (let ((sc0 e-1)) (cond ((equal? sc0 0) (lambda (eta-0) (TTC-Core-n--10285-11079-fromBuf2 arg-1 arg-0 eta-0)))(else (let ((e-2 (- e-1 1))) (let ((sc0 e-2)) (cond ((equal? sc0 0) (lambda (eta-0) (TTC-Core-n--10285-11080-fromBuf3 arg-1 arg-0 eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-0))))))))))))))))))) +(define TTC-Core-fromBuf_TTC__CFType (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (vector 1 (vector 2 ))) ((equal? sc1 3) (vector 1 (vector 3 ))) ((equal? sc1 4) (vector 1 (vector 4 ))) ((equal? sc1 5) (vector 1 (vector 5 ))) ((equal? sc1 6) (vector 1 (vector 6 ))) ((equal? sc1 7) (vector 1 (vector 9 ))) ((equal? sc1 8) (let ((act-25 (TTC-Core-fromBuf_TTC__CFType arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__CFType arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 10 e-6 e-7))))))))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-fromBuf_TTC__CFType arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 11 e-6)))))))) ((equal? sc1 10) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__CFType arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CFType arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2125 eta-1))))) arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 12 e-6 e-7))))))))))))) ((equal? sc1 11) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CFType arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 13 e-6 e-7))))))))))))) ((equal? sc1 12) (vector 1 (vector 7 ))) ((equal? sc1 13) (vector 1 (vector 8 )))(else (Binary-Utils-corrupt 'erased "CFType" ext-0))))))))))) +(define TTC-Core-fromBuf_TTC__CDef (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 e-6 arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-6 e-7))))))))))))) ((equal? sc1 1) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 2) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CFType arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__CFType arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 2 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 0 ) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-6))))))))(else (Binary-Utils-corrupt 'erased "CDef" ext-0))))))))))) +(define TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-getTag arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2124 eta-0)))) arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Binary-Utils-corrupt 'erased "Term" eta-0))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) (TTC-Core-getName e-7 arg-0)) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 0 (FC-Core-emptyFC) e-6 e-7))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__NameType arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 (FC-Core-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2124 eta-0)))) arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 (FC-Core-emptyFC) e-6 0 e-7))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 1 e-6 arg-0) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 3 (FC-Core-emptyFC) e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 4 (FC-Core-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 5) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__UseSide arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 5 (FC-Core-emptyFC) e-7 e-6 e-8)))))))))))))))))) ((equal? sc1 6) (let ((act-25 (TTC-Core-fromBuf_TTC__LazyReason arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 6 (FC-Core-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 7) (let ((act-25 (TTC-Core-fromBuf_TTC__LazyReason arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 7 (FC-Core-emptyFC) e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 8) (let ((act-25 (TTC-Core-fromBuf_TTC__LazyReason arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 8 (FC-Core-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 9 (FC-Core-emptyFC) e-6)))))))) ((equal? sc1 10) (vector 1 (vector 10 (FC-Core-emptyFC) 1))) ((equal? sc1 11) (vector 1 (vector 11 (FC-Core-emptyFC))))(else (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2124 eta-0)))) arg-1 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((idx (Prelude-fromInteger_Num__Nat (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int e-5 12))))) (let ((bind-0 e-5)) ((TTC-Core-case--8551-9202 arg-1 arg-0 e-5 bind-0 e-6 idx (TTC-Core-getName idx arg-0)) ext-0)))))))))))))))))) +(define TTC-Core-fromBuf_TTC__C-40PrimFnC-32C-36nC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-0)))(else (let ((e-0 (- arg-0 1))) (let ((sc0 e-0)) (cond ((equal? sc0 0) (lambda (eta-0) (TTC-Core-n--10340-11086-fromBuf1 arg-1 arg-0 eta-0)))(else (let ((e-1 (- e-0 1))) (let ((sc0 e-1)) (cond ((equal? sc0 0) (lambda (eta-0) (TTC-Core-n--10340-11087-fromBuf2 arg-1 arg-0 eta-0)))(else (let ((e-2 (- e-1 1))) (let ((sc0 e-2)) (cond ((equal? sc0 0) (lambda (eta-0) (TTC-Core-n--10340-11088-fromBuf3 arg-1 arg-0 eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-0))))))))))))))))))) (define TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Binary-Utils-getTag arg-2 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (vector 1 (vector 2 ))) ((equal? sc1 3) (let ((act-25 (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 2))) ((e-2 arg-2) ext-0))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-6))))))))(else (Binary-Utils-corrupt 'erased "PiInfo" ext-0))))))))))) -(define TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-getTag arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2106 eta-0)))) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-6 arg-0 e-7 (vector 10 (FC-Core-emptyFC) 1) e-8)))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 0 e-6)))))))) ((equal? sc1 2) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-6)))))))) ((equal? sc1 3) (vector 1 (vector 3 )))(else (Binary-Utils-corrupt 'erased "CaseTree" ext-0))))))))))) -(define TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-getTag arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Int arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (List-Prelude-C-43C-43 'erased e-8 arg-0) arg-1 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (vector 1 e-6 (vector 1 e-7 arg-0)) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 e-6 e-7))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-6))))))))(else (Binary-Utils-corrupt 'erased "CaseAlt" ext-0))))))))))) -(define TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-getTag arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((bind-0 0)) ((TTC-Core-case--11710-12192 arg-0 arg-1 bind-0 e-6 e-7 (TTC-Core-getName e-7 arg-0)) ext-0))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-6 e-7))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-7 arg-0) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 2 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__Bool arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-7 arg-0) arg-1 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 3 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-0)))) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 4 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 5) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-0)))) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-0)))) arg-1 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 5 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 6) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((TTC-Core-fromBuf_TTC__C-40PrimFnC-32C-36nC-41 e-7 arg-1) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased e-7 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-0)))) arg-1) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 6 e-7 e-6 e-8 e-9))))))))))))))))))))))) ((equal? sc1 7) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-0)))) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 7 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 8) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 8 e-6 e-7))))))))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 9 e-6 e-7))))))))))))) ((equal? sc1 10) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2106 eta-0)))) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-0)))) arg-1 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 10 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 11) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2106 eta-0)))) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-0)))) arg-1 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 11 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 12) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Constant arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 12 e-6 e-7))))))))))))) ((equal? sc1 13) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 13 e-6)))))))) ((equal? sc1 14) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__String arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 14 e-6 e-7)))))))))))))(else (Binary-Utils-corrupt 'erased "CExp" ext-0))))))))))) +(define TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-getTag arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2124 eta-0)))) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-6 arg-0 e-7 (vector 10 (FC-Core-emptyFC) 1) e-8)))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 0 e-6)))))))) ((equal? sc1 2) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-6)))))))) ((equal? sc1 3) (vector 1 (vector 3 )))(else (Binary-Utils-corrupt 'erased "CaseTree" ext-0))))))))))) +(define TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-getTag arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Int arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (List-Prelude-C-43C-43 'erased e-8 arg-0) arg-1 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (vector 1 e-6 (vector 1 e-7 arg-0)) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 e-6 e-7))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-6))))))))(else (Binary-Utils-corrupt 'erased "CaseAlt" ext-0))))))))))) +(define TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-getTag arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((bind-0 0)) ((TTC-Core-case--11765-12200 arg-0 arg-1 bind-0 e-6 e-7 (TTC-Core-getName e-7 arg-0)) ext-0))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-6 e-7))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-7 arg-0) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 2 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__Bool arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-7 arg-0) arg-1 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 3 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 eta-0)))) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 4 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 5) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-0)))) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 eta-0)))) arg-1 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 5 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 6) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((TTC-Core-fromBuf_TTC__C-40PrimFnC-32C-36nC-41 e-7 arg-1) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased e-7 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 eta-0)))) arg-1) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 6 e-7 e-6 e-8 e-9))))))))))))))))))))))) ((equal? sc1 7) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 eta-0)))) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 7 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 8) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 8 e-6 e-7))))))))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 9 e-6 e-7))))))))))))) ((equal? sc1 10) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2124 eta-0)))) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 eta-0)))) arg-1 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 10 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 11) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2124 eta-0)))) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 eta-0)))) arg-1 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 11 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 12) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Constant arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 12 e-6 e-7))))))))))))) ((equal? sc1 13) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 13 e-6)))))))) ((equal? sc1 14) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__String arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 14 e-6 e-7)))))))))))))(else (Binary-Utils-corrupt 'erased "CExp" ext-0))))))))))) (define TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))) -(define TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-0)))) arg-1 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) arg-1 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (List-Prelude-C-43C-43 'erased e-7 arg-0) arg-1 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8)))))))))))))))))))))))) -(define TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-getTag arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 eta-0)))) arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-6 e-7 (vector 10 (FC-Core-emptyFC) 1)))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 eta-0)))) arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 2 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 eta-0)))) arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 3 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 4 e-6 e-7 (vector 10 (FC-Core-emptyFC) 1)))))))))))))) ((equal? sc1 5) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-6 (vector 10 (FC-Core-emptyFC) 1)))))))))(else (Binary-Utils-corrupt 'erased "Binder" ext-0))))))))))) +(define TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-0)))) arg-1 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) arg-1 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (List-Prelude-C-43C-43 'erased e-7 arg-0) arg-1 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8)))))))))))))))))))))))) +(define TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-getTag arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2124 eta-0)))) arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-6 e-7 (vector 10 (FC-Core-emptyFC) 1)))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2124 eta-0)))) arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 2 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2124 eta-0)))) arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 3 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 4 e-6 e-7 (vector 10 (FC-Core-emptyFC) 1)))))))))))))) ((equal? sc1 5) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-6 (vector 10 (FC-Core-emptyFC) 1)))))))))(else (Binary-Utils-corrupt 'erased "Binder" ext-0))))))))))) (define TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 e-3 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 e-3 arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-6))))))))))))))))))) -(define TTC-Core-__Impl_TTC_Visibility (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Visibility arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Visibility arg-2106 eta-0)))))) -(define TTC-Core-__Impl_TTC_UseSide (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__UseSide arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__UseSide arg-2106 eta-0)))))) -(define TTC-Core-__Impl_TTC_TypeFlags (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__TypeFlags arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__TypeFlags arg-2106 eta-0)))))) -(define TTC-Core-__Impl_TTC_Transform (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Transform arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Transform arg-2106 eta-0)))))) -(define TTC-Core-__Impl_TTC_TotalReq (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__TotalReq arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__TotalReq arg-2106 eta-0)))))) -(define TTC-Core-__Impl_TTC_SizeChange (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__SizeChange arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SizeChange arg-2106 eta-0)))))) -(define TTC-Core-__Impl_TTC_SCCall (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__SCCall arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SCCall arg-2106 eta-0)))))) -(define TTC-Core-__Impl_TTC_RigCount (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__RigCount arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RigCount arg-2106 eta-0)))))) -(define TTC-Core-__Impl_TTC_RewriteNames (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__RewriteNames arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RewriteNames arg-2106 eta-0)))))) -(define TTC-Core-__Impl_TTC_PrimNames (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__PrimNames arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PrimNames arg-2106 eta-0)))))) -(define TTC-Core-__Impl_TTC_PartialReason (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__PartialReason arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PartialReason arg-2106 eta-0)))))) -(define TTC-Core-__Impl_TTC_PairNames (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__PairNames arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PairNames arg-2106 eta-0)))))) -(define TTC-Core-__Impl_TTC_PMDefInfo (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__PMDefInfo arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PMDefInfo arg-2106 eta-0)))))) -(define TTC-Core-__Impl_TTC_NameType (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__NameType arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__NameType arg-2106 eta-0)))))) -(define TTC-Core-__Impl_TTC_Name (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))))) -(define TTC-Core-__Impl_TTC_LazyReason (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__LazyReason arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__LazyReason arg-2106 eta-0)))))) -(define TTC-Core-__Impl_TTC_GlobalDef (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__GlobalDef arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__GlobalDef arg-2106 eta-0)))))) -(define TTC-Core-__Impl_TTC_FC (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__FC arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2106 eta-0)))))) -(define TTC-Core-__Impl_TTC_DefFlag (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__DefFlag arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__DefFlag arg-2106 eta-0)))))) -(define TTC-Core-__Impl_TTC_Constant (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Constant arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Constant arg-2106 eta-0)))))) -(define TTC-Core-__Impl_TTC_CG (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CG arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CG arg-2106 eta-0)))))) -(define TTC-Core-__Impl_TTC_CFType (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CFType arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-2106 eta-0)))))) -(define TTC-Core-__Impl_TTC_CDef (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CDef arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CDef arg-2106 eta-0)))))) -(define TTC-Core-__Impl_TTC_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 eta-0)))))) -(define TTC-Core-__Impl_TTC_C-40PrimFnC-32C-36nC-41 (lambda (arg-0) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40PrimFnC-32C-36nC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (TTC-Core-fromBuf_TTC__C-40PrimFnC-32C-36nC-41 arg-0 arg-2106))))) -(define TTC-Core-__Impl_TTC_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-2106 eta-0)))))) -(define TTC-Core-__Impl_TTC_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-2106 eta-0)))))) -(define TTC-Core-__Impl_TTC_C-40CaseAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2106 eta-0)))))) -(define TTC-Core-__Impl_TTC_C-40CExpC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-0)))))) -(define TTC-Core-__Impl_TTC_C-40CConstAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2106 eta-0)))))) -(define TTC-Core-__Impl_TTC_C-40CConAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2106 eta-0)))))) -(define TTC-Core-__Impl_TTC_C-40BinderC-32C-40TermC-32C-36varsC-41C-41 (lambda (arg-0) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-2106 eta-0)))))) -(define TTC-Core-__Impl_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-0 arg-2106))))) +(define TTC-Core-__Impl_TTC_Visibility (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Visibility arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Visibility arg-2124 eta-0)))))) +(define TTC-Core-__Impl_TTC_UseSide (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__UseSide arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__UseSide arg-2124 eta-0)))))) +(define TTC-Core-__Impl_TTC_TypeFlags (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (TTC-Core-toBuf_TTC__TypeFlags arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__TypeFlags arg-2124 eta-0)))))) +(define TTC-Core-__Impl_TTC_Transform (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Transform arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Transform arg-2124 eta-0)))))) +(define TTC-Core-__Impl_TTC_TotalReq (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__TotalReq arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__TotalReq arg-2124 eta-0)))))) +(define TTC-Core-__Impl_TTC_SizeChange (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__SizeChange arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SizeChange arg-2124 eta-0)))))) +(define TTC-Core-__Impl_TTC_SCCall (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (TTC-Core-toBuf_TTC__SCCall arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SCCall arg-2124 eta-0)))))) +(define TTC-Core-__Impl_TTC_RigCount (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__RigCount arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RigCount arg-2124 eta-0)))))) +(define TTC-Core-__Impl_TTC_RewriteNames (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (TTC-Core-toBuf_TTC__RewriteNames arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RewriteNames arg-2124 eta-0)))))) +(define TTC-Core-__Impl_TTC_PrimNames (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (TTC-Core-toBuf_TTC__PrimNames arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PrimNames arg-2124 eta-0)))))) +(define TTC-Core-__Impl_TTC_PartialReason (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__PartialReason arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PartialReason arg-2124 eta-0)))))) +(define TTC-Core-__Impl_TTC_PairNames (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (TTC-Core-toBuf_TTC__PairNames arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PairNames arg-2124 eta-0)))))) +(define TTC-Core-__Impl_TTC_PMDefInfo (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (TTC-Core-toBuf_TTC__PMDefInfo arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PMDefInfo arg-2124 eta-0)))))) +(define TTC-Core-__Impl_TTC_NameType (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__NameType arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__NameType arg-2124 eta-0)))))) +(define TTC-Core-__Impl_TTC_Name (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))))) +(define TTC-Core-__Impl_TTC_LazyReason (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__LazyReason arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__LazyReason arg-2124 eta-0)))))) +(define TTC-Core-__Impl_TTC_GlobalDef (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (TTC-Core-toBuf_TTC__GlobalDef arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__GlobalDef arg-2124 eta-0)))))) +(define TTC-Core-__Impl_TTC_FC (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__FC arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2124 eta-0)))))) +(define TTC-Core-__Impl_TTC_DefFlag (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__DefFlag arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__DefFlag arg-2124 eta-0)))))) +(define TTC-Core-__Impl_TTC_Constant (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Constant arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Constant arg-2124 eta-0)))))) +(define TTC-Core-__Impl_TTC_CG (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CG arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CG arg-2124 eta-0)))))) +(define TTC-Core-__Impl_TTC_CFType (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CFType arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-2124 eta-0)))))) +(define TTC-Core-__Impl_TTC_CDef (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CDef arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CDef arg-2124 eta-0)))))) +(define TTC-Core-__Impl_TTC_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2124 eta-0)))))) +(define TTC-Core-__Impl_TTC_C-40PrimFnC-32C-36nC-41 (lambda (arg-0) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40PrimFnC-32C-36nC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (TTC-Core-fromBuf_TTC__C-40PrimFnC-32C-36nC-41 arg-0 arg-2124))))) +(define TTC-Core-__Impl_TTC_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-2124 eta-0)))))) +(define TTC-Core-__Impl_TTC_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-2124 eta-0)))))) +(define TTC-Core-__Impl_TTC_C-40CaseAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2124 eta-0)))))) +(define TTC-Core-__Impl_TTC_C-40CExpC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 eta-0)))))) +(define TTC-Core-__Impl_TTC_C-40CConstAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2124 eta-0)))))) +(define TTC-Core-__Impl_TTC_C-40CConAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2124 eta-0)))))) +(define TTC-Core-__Impl_TTC_C-40BinderC-32C-40TermC-32C-36varsC-41C-41 (lambda (arg-0) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-2124 eta-0)))))) +(define TTC-Core-__Impl_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-0 arg-2124))))) (define TTC-Core-getName (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (vector 1 e-3)))(else (let ((sc1 arg-1)) (vector 0 ))))))(else (let ((e-1 (- arg-0 1))) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-7 (vector-ref sc0 2))) (TTC-Core-getName e-1 e-7)))(else (let ((sc0 arg-1)) (vector 0 ))))))))))) -(define Normalise-Core-case--17369-13939 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-2))) (else (Normalise-Core-n--17369-13682-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-1)))))) -(define Normalise-Core-case--17223-13646 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Normalise-Core-n--17223-13546-dumpEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-0 arg-1)) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Normalise-Core-case--17121-13461 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-normaliseHoles arg-0 e-5 arg-2 e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-28 (arg-3664 eta-1))) ((arg-3665 act-28) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-4) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-8))))))) eta-0))) (vector 1 act-28)))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Normalise-Core-case--17024-13370 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-4) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7))))))) eta-0))) (vector 1 act-27)))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Normalise-Core-case--16927-13279 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles arg-0 e-5 arg-2 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-4) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7))))))) eta-0))) (vector 1 act-27))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Normalise-Core-case--16827-13185 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-2 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-4) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7))))))) eta-0))) (vector 1 act-27))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Normalise-Core-case--16421-12758 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (Normalise-Core-allConv arg-0 arg-11 arg-10 arg-9 arg-3 arg-6)) (else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--15582-12721 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-convGen_Convert__NF arg-0 arg-11 arg-10 arg-9 arg-4 arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) ((Normalise-Core-allConv arg-0 arg-11 arg-10 arg-9 arg-3 arg-6) eta-0)) (else (vector 1 1))))))))))) (else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--16273-12633 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 arg-10)))(else (lambda (eta-0) (Context-Core-clearDefs arg-10 eta-0))))))) -(define Normalise-Core-case--15582-12595 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (vector 1 arg-10))(else (Context-Core-clearDefs arg-10 eta-0)))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Normalise-Core-convGen_Convert__Closure arg-0 arg-11 e-5 arg-9 arg-5 arg-7 eta-0)))))))) (else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--15582-12529 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Normalise-Core-convGen_Convert__NF arg-0 arg-9 arg-8 arg-7 arg-3 arg-5)) (else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--15582-12432 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (Normalise-Core-allConv arg-0 arg-13 arg-12 arg-11 arg-5 arg-8)) (else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--15582-12350 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (Normalise-Core-allConv arg-0 arg-13 arg-12 arg-11 arg-5 arg-8)) (else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--15582-12287 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Normalise-Core-allConv arg-0 arg-9 arg-8 arg-7 arg-2 arg-5)) (else (Normalise-Core-chkConvCaseBlock arg-0 arg-4 arg-9 arg-8 arg-7 arg-3 arg-2 arg-6 arg-5)))))) -(define Normalise-Core-case--15582-12045 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (((arg-2 arg-10) arg-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (((arg-6 arg-10) arg-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-11 arg-10 arg-9 e-5 e-6) eta-0))))))))))))) (else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--12104-11909 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 1))) (else (Normalise-Core-convGen_Convert__NF arg-0 arg-5 arg-4 arg-3 (TT-Core-binderType 'erased arg-2) (TT-Core-binderType 'erased arg-1))))))) -(define Normalise-Core-case--12104-11849 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 1))) (else (Normalise-Core-convGen_Convert__NF arg-0 arg-9 arg-8 arg-7 arg-1 arg-4)))))) -(define Normalise-Core-case--12104-11785 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 1))) (else (Normalise-Core-convGen_Convert__NF arg-0 arg-9 arg-8 arg-7 arg-1 arg-4)))))) -(define Normalise-Core-case--12100-11703 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Normalise-Core-allConv arg-0 arg-9 arg-8 arg-7 arg-1 arg-4)) (else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--14355-10931 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37) (let ((sc0 arg-37)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convGen_Convert__Closure arg-0 arg-9 arg-8 arg-7 arg-36 e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (FC-Core-C-61C-61_Eq__FC (let ((sc2 arg-20)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 arg-22)) (let ((e-0 (vector-ref sc2 1))) e-0))))))))))) (else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--14242-10851 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36) (let ((sc0 arg-36)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-case--14355-10931 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 e-1 (Normalise-Core-n--12097-10282-getScrutinee arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-35 arg-5)))) (else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--14132-10773 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35) (let ((sc0 arg-35)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-case--14242-10851 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 e-1 (Normalise-Core-n--12097-10282-getScrutinee arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-34 arg-6)))) (else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--14031-10697 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34) (let ((sc0 arg-34)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-case--14132-10773 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 e-1 (Normalise-Core-n--12097-10281-findArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-33)))) (else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--13947-10625 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-29)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (Normalise-Core-case--14031-10697 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 e-0 e-1 e-3 e-4 e-2 (Normalise-Core-n--12097-10281-findArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-28))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--13875-10565 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (Normalise-Core-case--13947-10625 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-0 e-1 e-3 e-4 e-2 (let ((sc1 arg-22)) (let ((e-17 (vector-ref sc1 18))) e-17)))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--13804-10516 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Normalise-Core-case--13875-10565 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 e-1 _-0 (let ((sc1 arg-20)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--13739-10465 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-4 (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((_-1 (vector 1 e-2))) ((Normalise-Core-case--13875-10565 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-1 _-0 e-2 _-1 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0))))(else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--13679-10418 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-3 (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 1)) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-4 (let ((sc3 arg-8)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((_-1 (vector 1 e-1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) (let ((_-2 (vector 1 e-2))) ((Normalise-Core-case--13875-10565 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 _-0 e-1 _-1 e-2 _-2 (let ((sc5 e-1)) (let ((e-17 (vector-ref sc5 18))) e-17))) eta-0))))(else (vector 1 1))))))))))))(else (vector 1 1)))))))))))) (else (lambda (eta-0) (vector 1 0))))))) -(define Normalise-Core-case--13629-10373 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-chkSameDefs arg-0 arg-9 arg-8 arg-7 arg-3 arg-4 arg-6 arg-5 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((_-0 (vector 0 e-0 (vector 7 e-2 e-3)))) (let ((sc3 e-5)) (cond ((equal? sc3 1) (let ((act-25 ((Context-Core-lookupCtxtExact arg-3 (let ((sc4 arg-8)) (let ((e-30 (vector-ref sc4 1))) e-30))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc4 1))) (let ((_-1 1)) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((act-26 ((Context-Core-lookupCtxtExact arg-4 (let ((sc6 arg-8)) (let ((e-32 (vector-ref sc6 1))) e-32))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((_-2 (vector 1 e-4))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((1) (let ((e-8 (vector-ref sc7 1))) (let ((_-3 (vector 1 e-8))) ((Normalise-Core-case--13875-10565 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-0 e-2 e-3 _-0 _-1 e-4 _-2 e-8 _-3 (let ((sc8 e-4)) (let ((e-17 (vector-ref sc8 18))) e-17))) eta-0))))(else (vector 1 1))))))))))))(else (vector 1 1))))))))))) (else (vector 1 0))))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--12097-10334 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc2 arg-8)) (let ((e-29 (vector-ref sc2 1))) e-29)) arg-4) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((_-0 (vector 0 e-0 (vector 7 e-2 e-3)))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (case (vector-ref sc4 0) ((7) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((act-25 (Normalise-Core-chkSameDefs arg-0 arg-9 arg-8 arg-7 arg-3 arg-4 arg-6 arg-5 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-1 (vector 0 e-6 (vector 7 e-8 e-7)))) (let ((sc6 e-9)) (cond ((equal? sc6 1) (let ((act-26 ((Context-Core-lookupCtxtExact arg-3 (let ((sc7 arg-8)) (let ((e-35 (vector-ref sc7 1))) e-35))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((_-2 1)) (let ((sc8 e-10)) (case (vector-ref sc8 0) ((1) (let ((e-11 (vector-ref sc8 1))) (let ((act-27 ((Context-Core-lookupCtxtExact arg-4 (let ((sc9 arg-8)) (let ((e-37 (vector-ref sc9 1))) e-37))) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc9 1))) (let ((_-3 (vector 1 e-11))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((1) (let ((e-13 (vector-ref sc10 1))) (let ((_-4 (vector 1 e-13))) ((Normalise-Core-case--13875-10565 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-0 e-2 e-3 _-0 e-6 e-8 e-7 _-1 _-2 e-11 _-3 e-13 _-4 (let ((sc11 e-11)) (let ((e-17 (vector-ref sc11 18))) e-17))) eta-0))))(else (vector 1 1))))))))))))(else (vector 1 1))))))))))) (else (vector 1 0)))))))))))))(else (vector 1 1)))))))(else (vector 1 1))))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--13329-10131 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-n--12094-9819-convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 arg-16 e-1))) (else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--13288-10084 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getMatchingVars arg-10 e-3 arg-6 (vector 0 ) arg-12 e-4) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) ((Normalise-Core-n--12094-9819-convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 e-3 e-8) eta-0))) (else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--12094-10053 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact arg-3 (let ((sc2 arg-6)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 2))) (let ((e-11 (vector-ref sc4 3))) (let ((act-25 ((Normalise-Core-getMatchingVars e-3 e-12 arg-6 (vector 0 ) e-4 e-11) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-14 (vector-ref sc5 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc5 1))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((1) (let ((e-15 (vector-ref sc6 1))) ((Normalise-Core-n--12094-9819-convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-12 e-15) eta-0))) (else (vector 1 1))))))))))))(else (vector 1 1))))))(else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--13070-9910 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convGen_Convert__Closure arg-0 arg-7 arg-6 arg-5 arg-17 e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-n--12094-9819-convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-16) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Prelude-C-38C-38 e-5 (lambda () e-6)))))))))))))))) (else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--13016-9869 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-case--13070-9910 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased arg-12 'erased arg-14 'erased arg-16 e-1 (Normalise-Core-n--12094-9818-getArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-14 arg-1)))) (else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--12846-9708 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 arg-6)))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Normalise-Core-case--12091-9675 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__Term arg-1 arg-7 (Env-Core-mkEnv (TT-Core-getLoc 'erased arg-2) arg-1) e-1 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 (vector 1 arg-6))) (else (vector 1 (vector 0 ))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Normalise-Core-case--12088-9573 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-getMatchingVarAlts arg-0 arg-1 arg-7 e-1 arg-3 arg-5))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Normalise-Core-case--12085-9478 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (Normalise-Core-getMatchingVars arg-0 arg-1 arg-7 arg-6 arg-2 arg-4)) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Normalise-Core-case--12413-9341 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (Normalise-Core-n--12085-9088-dropP arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-2 arg-6 eta-1)) e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Normalise-Core-case--12373-9303 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getMatchingVars (List-Prelude-C-43C-43 'erased arg-2 arg-0) (List-Prelude-C-43C-43 'erased arg-6 arg-1) arg-11 e-1 arg-3 arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (vector 1 (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (Normalise-Core-n--12085-9088-dropP arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-2 arg-6 eta-1)) e-2))))) (else (vector 1 (vector 0 ))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Normalise-Core-case--12085-9274 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (Normalise-Core-case--12373-9303 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (Normalise-Core-n--12085-9086-extend arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-2 arg-6 arg-10))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Normalise-Core-case--11550-8573 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-6 arg-5 arg-8)))) -(define Normalise-Core-case--11568-8502 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (vector 1 arg-11)) (else (Normalise-Core-n--11550-8476-findIdx arg-0 arg-1 'erased arg-3 'erased arg-5 arg-6 arg-7 arg-12 arg-13)))))) -(define Normalise-Core-case--9985-7840 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((6) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-1 arg-8 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-9 arg-8 arg-7 arg-6 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-1 e-6 arg-10))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-9 arg-8 arg-7 arg-6 arg-3) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (TT-Core-apply 'erased arg-5 (vector 8 arg-5 arg-4 e-5) arg-10))))))))))))) -(define Normalise-Core-case--10895-7760 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (vector 0 0 0 e-2 e-3 e-4 e-5 e-6 e-7)))))))))) -(define Normalise-Core-case--9970-7317 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 arg-6 (vector 0 ) e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-6 (vector 0 ) (vector 2 arg-3 arg-2))))))))) -(define Normalise-Core-case--10211-7272 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 (+ 1 arg-13)))) -(define Normalise-Core-case--10230-7212 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (vector 1 (+ 1 arg-14)))) -(define Normalise-Core-case--10211-7135 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (vector 1 0)) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--9970-7119-findName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-12) (lambda (_-0) (vector 1 (+ 1 _-0))))))))) -(define Normalise-Core-case--9970-7077 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (vector 1 (vector 0 arg-8 arg-4 arg-11)))) -(define Normalise-Core-case--10052-7023 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (+ 1 arg-17))) -(define Normalise-Core-case--9470-6506 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1))))(else (lambda (eta-0) (vector 1 (arg-8)))))))) -(define Normalise-Core-case--9417-6420 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (arg-8)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-15 e-5 arg-14 arg-12 e-6 arg-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (let ((e-1 (vector-ref sc3 1))) (vector 1 e-1)))(else (vector 1 (arg-8)))))))))))))))))))) -(define Normalise-Core-case--6714-6382 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (Normalise-Core-case--9417-6420 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (Normalise-Core-argsFromStack arg-0 arg-1 'erased arg-3 arg-9))) (else (lambda (eta-0) (vector 1 (arg-8)))))))) -(define Normalise-Core-case--9274-6295 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (arg-3)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))))))) -(define Normalise-Core-case--6713-6262 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-n--6713-6226-evalAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-4) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((Normalise-Core-case--9274-6295 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4 e-6 (arg-6 e-6)) eta-0))))))))(else (lambda (eta-0) (vector 1 (arg-3)))))))))(else (lambda (eta-0) (vector 1 (arg-3))))))))(else (lambda (eta-0) (vector 1 (arg-3)))))))) -(define Normalise-Core-case--6712-6194 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (vector 1 arg-5 e-2) e-3))))))) -(define Normalise-Core-case--8927-6067 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 8))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 1 arg-11) e-7))))))))))) -(define Normalise-Core-case--6710-5948 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalWithOpts arg-3 arg-2 arg-0 arg-8 arg-10 arg-9 (TT-Core-embed 'erased 'erased arg-5) arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (lambda (eta-0) (vector 1 (vector 2 ))))(else (let ((e-3 (- e-2 1))) (let ((optsC-39 (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-7 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-9 e-8 e-4 e-5 (vector 1 e-3) e-7))))))))))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalWithOpts arg-3 arg-2 arg-0 optsC-39 arg-10 arg-9 (TT-Core-embed 'erased 'erased arg-5) arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5))))))))))))))))))) -(define Normalise-Core-case--6709-5814 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 e-1))))) ((1) (Normalise-Core-findAlt arg-0 arg-1 arg-2 arg-3 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5)) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) -(define Normalise-Core-case--6708-5715 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-10 arg-9 arg-8 arg-7 arg-6 arg-4)) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) -(define Normalise-Core-case--6708-5599 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-12 arg-11 arg-10 arg-9 arg-8 arg-6)) (else (lambda (eta-0) (vector 1 (vector 1 )))))))) -(define Normalise-Core-case--6708-5438 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-13 arg-12 arg-11 arg-10 arg-9 arg-7)) (else (lambda (eta-0) (vector 1 (vector 1 )))))))) -(define Normalise-Core-case--6708-5336 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (Normalise-Core-evalConAlt arg-0 arg-1 arg-9 arg-2 arg-17 arg-16 arg-15 arg-14 arg-13 arg-8 arg-4 arg-10)) (else (lambda (eta-0) (vector 1 (vector 1 )))))))) -(define Normalise-Core-case--6708-5242 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (Normalise-Core-evalConAlt arg-0 arg-1 arg-9 arg-2 arg-17 arg-16 arg-15 arg-14 arg-13 arg-8 arg-4 arg-10)) (else (lambda (eta-0) (vector 1 (vector 1 )))))))) -(define Normalise-Core-case--6707-5169 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-evalTree arg-0 arg-1 (List-Prelude-C-43C-43 'erased arg-4 arg-2) arg-3 arg-11 e-1 arg-9 arg-8 arg-7 arg-5))) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) -(define Normalise-Core-case--7717-4959 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-9 e-1 arg-8 arg-7 (let ((sc1 arg-10)) (let ((e-7 (vector-ref sc1 8))) e-7)) (let ((sc1 arg-10)) (let ((e-17 (vector-ref sc1 18))) e-17)) (let ((sc1 arg-10)) (let ((e-11 (vector-ref sc1 12))) e-11)) arg-4 arg-3))) (else (lambda (eta-0) (vector 1 (arg-3)))))))) -(define Normalise-Core-case--7673-4922 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-updateLimit arg-6 arg-5 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) ((Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-9 e-2 arg-8 arg-7 (let ((sc3 arg-10)) (let ((e-7 (vector-ref sc3 8))) e-7)) (let ((sc3 arg-10)) (let ((e-17 (vector-ref sc3 18))) e-17)) (let ((sc3 arg-10)) (let ((e-11 (vector-ref sc3 12))) e-11)) arg-4 arg-3) eta-0))) (else (vector 1 (arg-3))))))))))))) (else (lambda (eta-0) (vector 1 (arg-3)))))))) -(define Normalise-Core-case--7633-4889 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-useMeta (let ((sc1 arg-10)) (let ((e-15 (vector-ref sc1 16))) e-15)) arg-7 arg-5 arg-0 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-updateLimit arg-6 arg-5 e-1) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) ((Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-9 e-2 arg-8 arg-7 (let ((sc5 arg-10)) (let ((e-7 (vector-ref sc5 8))) e-7)) (let ((sc5 arg-10)) (let ((e-17 (vector-ref sc5 18))) e-17)) (let ((sc5 arg-10)) (let ((e-11 (vector-ref sc5 12))) e-11)) arg-4 arg-3) eta-0))) (else (vector 1 (arg-3)))))))))))) (else (vector 1 (arg-3)))))))))))) (else (lambda (eta-0) (vector 1 (arg-3)))))))) -(define Normalise-Core-case--6705-4860 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((redok (Prelude-C-124C-124 (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)) (lambda () (Context-Core-reducibleInAny (vector 1 (let ((sc1 arg-0)) (let ((e-2 (vector-ref sc1 3))) e-2)) (let ((sc1 arg-0)) (let ((e-3 (vector-ref sc1 4))) e-3))) (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)) (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9))))))) (let ((sc1 redok)) (cond ((equal? sc1 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-useMeta (let ((sc2 e-1)) (let ((e-15 (vector-ref sc2 16))) e-15)) arg-7 arg-5 arg-0 arg-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((act-25 ((Normalise-Core-updateLimit arg-6 arg-5 e-2) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) ((Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-9 e-3 arg-8 arg-7 (let ((sc6 e-1)) (let ((e-7 (vector-ref sc6 8))) e-7)) (let ((sc6 e-1)) (let ((e-17 (vector-ref sc6 18))) e-17)) (let ((sc6 e-1)) (let ((e-11 (vector-ref sc6 12))) e-11)) arg-4 arg-3) eta-0))) (else (vector 1 (arg-3)))))))))))) (else (vector 1 (arg-3)))))))))))) (else (lambda (eta-0) (vector 1 (arg-3))))))))) (else (lambda (eta-0) (vector 1 (arg-3)))))))) -(define Normalise-Core-case--7339-4645 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (Normalise-Core-eval arg-0 arg-1 arg-3 (vector 0 ) arg-10 (vector 0 ) e-2 arg-5)))(else (lambda (eta-0) (vector 1 (vector 1 arg-9 (vector 0 arg-8 arg-6) arg-5)))))))) -(define Normalise-Core-case--6702-4613 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (Normalise-Core-case--7339-4645 arg-0 arg-1 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-8 arg-9 arg-10 (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (TT-Core-weaken_Weaken__Term n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (TT-Core-weakenNs_Weaken__Term vars ns arg-3271))))) arg-3 arg-6 'erased arg-10))) (else (lambda (eta-0) (vector 1 (vector 1 arg-9 (vector 0 arg-8 arg-6) arg-5)))))))) -(define Normalise-Core-case--6700-4445 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((6) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 4))) (Normalise-Core-eval arg-0 arg-1 arg-2 (vector 1 (vector 1 "fvar") arg-3) arg-9 (vector 1 e-4 arg-8) (vector 0 e-1 (vector 0 ) 0) arg-7))))(else (lambda (eta-0) (vector 1 (vector 7 arg-6 arg-5 arg-10 arg-7)))))))) -(define Normalise-Core-case--6700-4332 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 arg-4 arg-8)) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 arg-5 arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 arg-4 arg-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 arg-7 arg-6 e-5 e-6)))))))))))))))))) -(define Normalise-Core-case--6700-4175 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (tm) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-13 arg-12 tm (vector 0 ))) arg-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 arg-10 arg-4 e-5 (lambda (defsC-39) (lambda (arg) (Normalise-Core-evalWithOpts arg-2 (vector 1 arg-4 arg-3) defsC-39 arg-1 arg-13 (vector 1 arg arg-12) arg-5 arg-11)))))))))))) (else (Normalise-Core-eval arg-0 arg-1 arg-2 (vector 1 arg-4 arg-3) arg-13 (vector 1 (vector 0 arg-3 arg-1 arg-12 arg-13 arg-6) arg-12) arg-5 arg-11)))))) -(define Normalise-Core-case--6628-3980 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (Normalise-Core-n--6537-3859-set arg-0 arg-1 arg-1 arg-2 e-7))))))))))))) -(define Normalise-Core-case--6614-3938 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (let ((e-3 (- e-2 1))) (lambda (eta-0) (vector 1 (vector 1 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-9 e-8 e-4 e-5 e-6 (Normalise-Core-n--6537-3859-set arg-0 arg-1 arg-1 e-3 e-7)))))))))))))))))))))))) -(define Normalise-Core-case--6537-3925 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Normalise-Core-case--6614-3938 arg-0 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-1 (let ((sc1 arg-0)) (let ((e-7 (vector-ref sc1 8))) e-7))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-0)))))))) -(define Normalise-Core-case--6541-3879 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-2 arg-5) arg-4)) (else (vector 1 (vector 0 arg-2 arg-3) (Normalise-Core-n--6537-3859-set arg-0 arg-1 arg-6 arg-5 arg-4))))))) -(define Normalise-Core-case--6424-3829 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-useMeta 0 arg-3 (vector 9 e-1) arg-1 arg-0))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-2) eta-0))))))) -(define Normalise-Core-case--6445-3800 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (vector 0 e-0 e-1 e-2 (IntMap-Data-insert 'erased arg-0 (vector 0 ) e-3) e-4 e-5 e-6 e-7)))))))))))) -(define Normalise-Core-case--6424-3774 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-2 (IntMap-Data-insert 'erased arg-0 (vector 0 ) e-3) e-4 e-5 e-6 e-7)))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Normalise-Core-n--12085-9085-weakenP (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (TT-Core-weaken_Weaken__Var arg-12 arg-14 e-2) (TT-Core-weaken_Weaken__Var arg-13 arg-15 e-3))))))) -(define Normalise-Core-n--11550-8646-weakenP (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (TT-Core-weaken_Weaken__Var arg-7 arg-0 e-2) (TT-Core-weaken_Weaken__Var arg-7 arg-1 e-3))))))) -(define Normalise-Core-n--11550-8644-tryUpdatePi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (Prelude-pure_Applicative__Maybe 'erased (vector 1 ))) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 ))) ((2) (Prelude-pure_Applicative__Maybe 'erased (vector 2 ))) (else (let ((e-4 (vector-ref sc0 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-4) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 3 bind-0)))))))))) -(define Normalise-Core-n--11550-8645-tryUpdateB (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11550-8644-tryUpdatePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 0 e-1 bind-0 bind-1)))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-6) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-7) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 1 e-5 bind-0 bind-1)))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11550-8644-tryUpdatePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-11) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 2 e-9 bind-0 bind-1))))))))))(else (vector 0 )))))) -(define Normalise-Core-n--9985-7738-toHolesOnly (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (vector 0 e-1 (let ((sc1 e-2)) (let ((e-11 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-9 (vector-ref sc1 5))) (let ((e-8 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (vector 0 0 0 e-11 e-10 e-9 e-8 e-6 e-7)))))))) e-3 e-4 e-5)))))))(else arg-11))))) -(define Normalise-Core-n--6711-6103-takeStk (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 1 (vector 0 (Vect-Data-reverse 'erased 'erased arg-8) arg-7)))(else (let ((e-0 (- arg-6 1))) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Normalise-Core-n--6711-6103-takeStk arg-0 arg-1 'erased arg-3 arg-4 'erased e-0 e-4 (vector 1 e-3 arg-8))))))))))))) -(define Normalise-Core-n--6537-3859-set (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Normalise-Core-case--6541-3879 arg-0 arg-1 e-6 e-7 e-3 arg-3 arg-2 (Name-Core-C-61C-61_Eq__Name e-6 arg-2)))))))))))) -(define Normalise-Core-n--17369-13682-repSub (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-n--17369-13682-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((xC-39 (vector 2 "tmp" arg-6))) (let ((act-25 (let ((act-25 (((e-4 arg-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 (vector 1 e-1 (vector 0 ) xC-39))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (Normalise-Core-replaceC-39 arg-0 (b+ arg-6 1 63) arg-5 arg-4 arg-3 arg-2 e-6 eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-1 e-2 e-5 (TT-Core-refsToLocals 'erased (vector 1 e-2 (vector 0 )) (vector 1 e-2 xC-39 (vector 0 )) e-6)))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-5 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 (vector 1 e-6 e-7 (vector 0 )) eta-0))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--17369-13681-repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-replaceC-39 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 1 e-6 e-7 (vector 0 )) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-6 e-9 e-5)))))))))))))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--17369-13681-repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs arg-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-4 (vector 2 e-10 e-11 e-12 e-13 (vector 0 )) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (TT-Core-apply 'erased e-10 e-7 e-5)))))))))))))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--17369-13681-repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs arg-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-4 (vector 3 e-16 e-17 e-18 e-19 (vector 0 )) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (TT-Core-apply 'erased e-16 e-7 e-5)))))))))))))))))))))))) ((4) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-n--17369-13682-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-24) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-n--17369-13682-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-25) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-22 e-23 e-5 e-6)))))))))))))))))) ((5) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-n--17369-13682-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-29) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-27 e-28 e-5)))))))))))) ((6) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-5 e-33) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Normalise-Core-replaceC-39 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-5 e-34) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Normalise-Core-replaceC-39 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-6 eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-31 e-32 e-5 e-6)))))))))))))))))) ((7) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (let ((e-39 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--17369-13681-repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-39) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-n--17369-13682-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-38) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-36 (vector 8 e-36 e-37 e-6) e-5))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-5 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 arg-7 eta-0)))))))))))) -(define Normalise-Core-n--17369-13681-repArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-5 arg-7) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Normalise-Core-replaceC-39 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 ext-0)))))))) -(define Normalise-Core-n--12097-10282-getScrutinee (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2)))(else (vector 0 )))))(else (let ((e-0 (- arg-12 1))) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-6 (vector-ref sc0 2))) (Normalise-Core-n--12097-10282-getScrutinee arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased e-0 e-6)))(else (vector 0 )))))))))) -(define Normalise-Core-n--12094-9818-getArgPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (let ((sc0 arg-8)) (cond ((equal? sc0 0) (let ((sc1 arg-9)) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased e-2))))(else (let ((e-0 (- arg-8 1))) (let ((sc0 arg-9)) (let ((e-6 (vector-ref sc0 2))) (Normalise-Core-n--12094-9818-getArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-0 e-6)))))))))))) -(define Normalise-Core-n--9970-7119-findName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Normalise-Core-case--10211-7135 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased e-5 e-4 e-3 e-1 (Prelude-C-61C-61_Eq__Int arg-2 e-5)))))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--9970-7119-findName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased e-3) (lambda (_-0) (vector 1 (+ 1 _-0))))))))))))))) -(define Normalise-Core-n--11550-8476-findIdx (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Normalise-Core-case--11568-8502 arg-0 arg-1 'erased arg-3 'erased arg-5 arg-6 arg-7 'erased e-6 'erased e-7 e-3 arg-9 (Prelude-C-61C-61_Eq__Nat e-6 arg-9)))))))))))) -(define Normalise-Core-n--12097-10281-findArgPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 3))) (vector 1 e-2)))(else (vector 0 )))))) -(define Normalise-Core-n--12085-9086-extend (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((0) (Prelude-pure_Applicative__Maybe 'erased arg-14))(else (vector 0 ))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--12085-9086-extend arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-3 e-7 arg-14) (lambda (rest) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (vector 0 0 0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Normalise-Core-n--12085-9085-weakenP arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2 e-6 (List-Prelude-C-43C-43 'erased e-3 arg-0) (List-Prelude-C-43C-43 'erased e-7 arg-1) eta-0)) rest))))))))(else (vector 0 )))))))(else (vector 0 )))))) -(define Normalise-Core-n--6713-6226-evalAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-2 arg-0 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-n--6713-6226-evalAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-6)))))))))))))))))))) -(define Normalise-Core-n--17223-13546-dumpEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-6)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (let ((e-13 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF e-3 arg-4 arg-3 (lambda () (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 ": let " (Name-Core-show_Show__Name e-2)))) e-9 e-12 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 (Normalise-Core-logTermNF e-3 arg-4 arg-3 (lambda () (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-11) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-2)))))) e-9 e-13 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else ((Normalise-Core-n--17223-13546-dumpEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-9) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF e-3 arg-4 arg-3 (lambda () (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega (TT-Core-multiplicity 'erased e-8)) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-3 d x)))) (TT-Core-piInfo 'erased e-8)) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-2)))))))) e-9 (TT-Core-binderType 'erased e-8) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((Normalise-Core-n--17223-13546-dumpEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-9) eta-0))))))))))))))))))) -(define Normalise-Core-n--12085-9087-dropV (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (vector 1 arg-14)) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-14)) (cond ((equal? sc1 0) (vector 0 ))(else (let ((e-8 (- arg-14 1))) (Normalise-Core-n--12085-9087-dropV arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 'erased e-3 e-8))))))))))) -(define Normalise-Core-n--12085-9088-dropP (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--12085-9087-dropV arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 'erased arg-12 e-2) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--12085-9087-dropV arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 'erased arg-13 e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 0 bind-0 bind-1))))))))))) -(define Normalise-Core-n--12094-9819-convertMatches (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Normalise-Core-case--13016-9869 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased e-6 'erased e-7 'erased e-3 (Normalise-Core-n--12094-9818-getArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-6 arg-2)))))))))))) -(define Normalise-Core-n--6708-5665-concrete (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((2) 0) ((3) 0) ((8) 0) ((0) 0) ((10) 0)(else 1))))) -(define Normalise-Core-n--6700-4129-closeArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 0 arg-2 arg-1 arg-9 arg-10 e-2) (Normalise-Core-n--6700-4129-closeArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3))))))))) -(define Normalise-Core-n--6701-4543-applyToStack (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-26 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (((e-4 arg-0) e-26) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) ((Normalise-Core-n--6701-4543-applyToStack arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 e-27) eta-0))))))))))(else (lambda (eta-0) (vector 1 arg-8))))))(else (lambda (eta-0) (vector 1 arg-8)))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((1) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (Normalise-Core-evalRef arg-0 arg-1 arg-2 arg-7 1 e-6 e-29 e-30 (List-Prelude-C-43C-43 'erased e-8 arg-9) (lambda () (vector 1 e-6 (vector 1 e-29 e-30) e-8)))))) ((0) (let ((e-33 (vector-ref sc1 1))) (let ((e-34 (vector-ref sc1 2))) (Normalise-Core-evalLocal arg-0 arg-1 'erased arg-2 (vector 0 ) arg-7 e-6 e-33 e-34 'erased (List-Prelude-C-43C-43 'erased e-8 arg-9) (vector 0 )))))(else (lambda (eta-0) (vector 1 arg-8))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (vector 1 (vector 2 e-10 e-11 e-12 e-13 (List-Prelude-C-43C-43 'erased e-14 arg-9)))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (vector 1 (vector 3 e-16 e-17 e-18 e-19 (List-Prelude-C-43C-43 'erased e-20 arg-9))))))))))(else (lambda (eta-0) (vector 1 arg-8))))))) -(define Normalise-Core-n--9970-6994-addLater (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) arg-13) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Normalise-Core-case--10052-7023 arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-2 e-3 'erased (Normalise-Core-n--9970-6994-addLater arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-3 'erased))))))))) +(define Normalise-Core-case--17428-13947 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-2))) (else (Normalise-Core-n--17428-13690-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-1)))))) +(define Normalise-Core-case--17282-13654 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Normalise-Core-n--17282-13554-dumpEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-0 arg-1)) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Normalise-Core-case--17180-13469 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-normaliseHoles arg-0 e-5 arg-2 e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-28 (arg-3672 eta-1))) ((arg-3673 act-28) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-4) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-8))))))) eta-0))) (vector 1 act-28)))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Normalise-Core-case--17083-13378 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-27 (arg-3672 eta-1))) ((arg-3673 act-27) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-4) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7))))))) eta-0))) (vector 1 act-27)))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Normalise-Core-case--16986-13287 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles arg-0 e-5 arg-2 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-27 (arg-3672 eta-1))) ((arg-3673 act-27) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-4) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7))))))) eta-0))) (vector 1 act-27))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Normalise-Core-case--16886-13193 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-2 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-27 (arg-3672 eta-1))) ((arg-3673 act-27) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-4) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7))))))) eta-0))) (vector 1 act-27))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Normalise-Core-case--16480-12766 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (Normalise-Core-allConv arg-0 arg-11 arg-10 arg-9 arg-3 arg-6)) (else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--15641-12729 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-convGen_Convert__NF arg-0 arg-11 arg-10 arg-9 arg-4 arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) ((Normalise-Core-allConv arg-0 arg-11 arg-10 arg-9 arg-3 arg-6) eta-0)) (else (vector 1 1))))))))))) (else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--16332-12641 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 arg-10)))(else (lambda (eta-0) (Context-Core-clearDefs arg-10 eta-0))))))) +(define Normalise-Core-case--15641-12603 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (vector 1 arg-10))(else (Context-Core-clearDefs arg-10 eta-0)))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Normalise-Core-convGen_Convert__Closure arg-0 arg-11 e-5 arg-9 arg-5 arg-7 eta-0)))))))) (else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--15641-12537 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Normalise-Core-convGen_Convert__NF arg-0 arg-9 arg-8 arg-7 arg-3 arg-5)) (else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--15641-12440 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (Normalise-Core-allConv arg-0 arg-13 arg-12 arg-11 arg-5 arg-8)) (else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--15641-12358 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (Normalise-Core-allConv arg-0 arg-13 arg-12 arg-11 arg-5 arg-8)) (else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--15641-12295 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Normalise-Core-allConv arg-0 arg-9 arg-8 arg-7 arg-2 arg-5)) (else (Normalise-Core-chkConvCaseBlock arg-0 arg-4 arg-9 arg-8 arg-7 arg-3 arg-2 arg-6 arg-5)))))) +(define Normalise-Core-case--15641-12053 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (((arg-2 arg-10) arg-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (((arg-6 arg-10) arg-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-11 arg-10 arg-9 e-5 e-6) eta-0))))))))))))) (else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--12163-11917 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 1))) (else (Normalise-Core-convGen_Convert__NF arg-0 arg-5 arg-4 arg-3 (TT-Core-binderType 'erased arg-2) (TT-Core-binderType 'erased arg-1))))))) +(define Normalise-Core-case--12163-11857 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 1))) (else (Normalise-Core-convGen_Convert__NF arg-0 arg-9 arg-8 arg-7 arg-1 arg-4)))))) +(define Normalise-Core-case--12163-11793 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 1))) (else (Normalise-Core-convGen_Convert__NF arg-0 arg-9 arg-8 arg-7 arg-1 arg-4)))))) +(define Normalise-Core-case--12159-11711 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Normalise-Core-allConv arg-0 arg-9 arg-8 arg-7 arg-1 arg-4)) (else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--14414-10939 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37) (let ((sc0 arg-37)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convGen_Convert__Closure arg-0 arg-9 arg-8 arg-7 arg-36 e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (FC-Core-C-61C-61_Eq__FC (let ((sc2 arg-20)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 arg-22)) (let ((e-0 (vector-ref sc2 1))) e-0))))))))))) (else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--14301-10859 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36) (let ((sc0 arg-36)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-case--14414-10939 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 e-1 (Normalise-Core-n--12156-10290-getScrutinee arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-35 arg-5)))) (else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--14191-10781 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35) (let ((sc0 arg-35)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-case--14301-10859 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 e-1 (Normalise-Core-n--12156-10290-getScrutinee arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-34 arg-6)))) (else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--14090-10705 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34) (let ((sc0 arg-34)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-case--14191-10781 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 e-1 (Normalise-Core-n--12156-10289-findArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-33)))) (else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--14006-10633 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-29)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (Normalise-Core-case--14090-10705 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 e-0 e-1 e-3 e-4 e-2 (Normalise-Core-n--12156-10289-findArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-28))))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--13934-10573 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (Normalise-Core-case--14006-10633 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-0 e-1 e-3 e-4 e-2 (let ((sc1 arg-22)) (let ((e-17 (vector-ref sc1 18))) e-17)))))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--13863-10524 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Normalise-Core-case--13934-10573 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 e-1 _-0 (let ((sc1 arg-20)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--13798-10473 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-4 (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((_-1 (vector 1 e-2))) ((Normalise-Core-case--13934-10573 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-1 _-0 e-2 _-1 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0))))(else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--13738-10426 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-3 (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 1)) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-4 (let ((sc3 arg-8)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((_-1 (vector 1 e-1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) (let ((_-2 (vector 1 e-2))) ((Normalise-Core-case--13934-10573 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 _-0 e-1 _-1 e-2 _-2 (let ((sc5 e-1)) (let ((e-17 (vector-ref sc5 18))) e-17))) eta-0))))(else (vector 1 1))))))))))))(else (vector 1 1)))))))))))) (else (lambda (eta-0) (vector 1 0))))))) +(define Normalise-Core-case--13688-10381 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-chkSameDefs arg-0 arg-9 arg-8 arg-7 arg-3 arg-4 arg-6 arg-5 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((_-0 (vector 0 e-0 (vector 7 e-2 e-3)))) (let ((sc3 e-5)) (cond ((equal? sc3 1) (let ((act-25 ((Context-Core-lookupCtxtExact arg-3 (let ((sc4 arg-8)) (let ((e-30 (vector-ref sc4 1))) e-30))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc4 1))) (let ((_-1 1)) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((act-26 ((Context-Core-lookupCtxtExact arg-4 (let ((sc6 arg-8)) (let ((e-32 (vector-ref sc6 1))) e-32))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((_-2 (vector 1 e-4))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((1) (let ((e-8 (vector-ref sc7 1))) (let ((_-3 (vector 1 e-8))) ((Normalise-Core-case--13934-10573 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-0 e-2 e-3 _-0 _-1 e-4 _-2 e-8 _-3 (let ((sc8 e-4)) (let ((e-17 (vector-ref sc8 18))) e-17))) eta-0))))(else (vector 1 1))))))))))))(else (vector 1 1))))))))))) (else (vector 1 0))))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--12156-10342 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc2 arg-8)) (let ((e-29 (vector-ref sc2 1))) e-29)) arg-4) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((_-0 (vector 0 e-0 (vector 7 e-2 e-3)))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (case (vector-ref sc4 0) ((7) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((act-25 (Normalise-Core-chkSameDefs arg-0 arg-9 arg-8 arg-7 arg-3 arg-4 arg-6 arg-5 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-1 (vector 0 e-6 (vector 7 e-8 e-7)))) (let ((sc6 e-9)) (cond ((equal? sc6 1) (let ((act-26 ((Context-Core-lookupCtxtExact arg-3 (let ((sc7 arg-8)) (let ((e-35 (vector-ref sc7 1))) e-35))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((_-2 1)) (let ((sc8 e-10)) (case (vector-ref sc8 0) ((1) (let ((e-11 (vector-ref sc8 1))) (let ((act-27 ((Context-Core-lookupCtxtExact arg-4 (let ((sc9 arg-8)) (let ((e-37 (vector-ref sc9 1))) e-37))) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc9 1))) (let ((_-3 (vector 1 e-11))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((1) (let ((e-13 (vector-ref sc10 1))) (let ((_-4 (vector 1 e-13))) ((Normalise-Core-case--13934-10573 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-0 e-2 e-3 _-0 e-6 e-8 e-7 _-1 _-2 e-11 _-3 e-13 _-4 (let ((sc11 e-11)) (let ((e-17 (vector-ref sc11 18))) e-17))) eta-0))))(else (vector 1 1))))))))))))(else (vector 1 1))))))))))) (else (vector 1 0)))))))))))))(else (vector 1 1)))))))(else (vector 1 1))))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--13388-10139 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-n--12153-9827-convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 arg-16 e-1))) (else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--13347-10092 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getMatchingVars arg-10 e-3 arg-6 (vector 0 ) arg-12 e-4) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) ((Normalise-Core-n--12153-9827-convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 e-3 e-8) eta-0))) (else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--12153-10061 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact arg-3 (let ((sc2 arg-6)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 2))) (let ((e-11 (vector-ref sc4 3))) (let ((act-25 ((Normalise-Core-getMatchingVars e-3 e-12 arg-6 (vector 0 ) e-4 e-11) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-14 (vector-ref sc5 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc5 1))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((1) (let ((e-15 (vector-ref sc6 1))) ((Normalise-Core-n--12153-9827-convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-12 e-15) eta-0))) (else (vector 1 1))))))))))))(else (vector 1 1))))))(else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--13129-9918 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convGen_Convert__Closure arg-0 arg-7 arg-6 arg-5 arg-17 e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-n--12153-9827-convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-16) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Prelude-C-38C-38 e-5 (lambda () e-6)))))))))))))))) (else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--13075-9877 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-case--13129-9918 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased arg-12 'erased arg-14 'erased arg-16 e-1 (Normalise-Core-n--12153-9826-getArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-14 arg-1)))) (else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--12905-9716 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 arg-6)))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Normalise-Core-case--12150-9683 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__Term arg-1 arg-7 (Env-Core-mkEnv (TT-Core-getLoc 'erased arg-2) arg-1) e-1 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 (vector 1 arg-6))) (else (vector 1 (vector 0 ))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Normalise-Core-case--12147-9581 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-getMatchingVarAlts arg-0 arg-1 arg-7 e-1 arg-3 arg-5))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Normalise-Core-case--12144-9486 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (Normalise-Core-getMatchingVars arg-0 arg-1 arg-7 arg-6 arg-2 arg-4)) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Normalise-Core-case--12472-9349 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (Normalise-Core-n--12144-9096-dropP arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-2 arg-6 eta-1)) e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Normalise-Core-case--12432-9311 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getMatchingVars (List-Prelude-C-43C-43 'erased arg-2 arg-0) (List-Prelude-C-43C-43 'erased arg-6 arg-1) arg-11 e-1 arg-3 arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (vector 1 (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (Normalise-Core-n--12144-9096-dropP arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-2 arg-6 eta-1)) e-2))))) (else (vector 1 (vector 0 ))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Normalise-Core-case--12144-9282 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (Normalise-Core-case--12432-9311 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (Normalise-Core-n--12144-9094-extend arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-2 arg-6 arg-10))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Normalise-Core-case--11609-8581 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-6 arg-5 arg-8)))) +(define Normalise-Core-case--11627-8510 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (vector 1 arg-11)) (else (Normalise-Core-n--11609-8484-findIdx arg-0 arg-1 'erased arg-3 'erased arg-5 arg-6 arg-7 arg-12 arg-13)))))) +(define Normalise-Core-case--10044-7848 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((6) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-1 arg-8 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-9 arg-8 arg-7 arg-6 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-1 e-6 arg-10))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-9 arg-8 arg-7 arg-6 arg-3) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (TT-Core-apply 'erased arg-5 (vector 8 arg-5 arg-4 e-5) arg-10))))))))))))) +(define Normalise-Core-case--10954-7768 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (vector 0 0 0 e-2 e-3 e-4 e-5 e-6 e-7)))))))))) +(define Normalise-Core-case--10029-7325 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 arg-6 (vector 0 ) e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-6 (vector 0 ) (vector 2 arg-3 arg-2))))))))) +(define Normalise-Core-case--10270-7280 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 (+ 1 arg-13)))) +(define Normalise-Core-case--10289-7220 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (vector 1 (+ 1 arg-14)))) +(define Normalise-Core-case--10270-7143 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (vector 1 0)) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--10029-7127-findName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-12) (lambda (_-0) (vector 1 (+ 1 _-0))))))))) +(define Normalise-Core-case--10029-7085 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (vector 1 (vector 0 arg-8 arg-4 arg-11)))) +(define Normalise-Core-case--10111-7031 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (+ 1 arg-17))) +(define Normalise-Core-case--9529-6514 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1))))(else (lambda (eta-0) (vector 1 (arg-8)))))))) +(define Normalise-Core-case--9476-6428 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (arg-8)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-15 e-5 arg-14 arg-12 e-6 arg-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (let ((e-1 (vector-ref sc3 1))) (vector 1 e-1)))(else (vector 1 (arg-8)))))))))))))))))))) +(define Normalise-Core-case--6773-6390 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (Normalise-Core-case--9476-6428 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (Normalise-Core-argsFromStack arg-0 arg-1 'erased arg-3 arg-9))) (else (lambda (eta-0) (vector 1 (arg-8)))))))) +(define Normalise-Core-case--9333-6303 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (arg-3)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))))))) +(define Normalise-Core-case--6772-6270 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-n--6772-6234-evalAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-4) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((Normalise-Core-case--9333-6303 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4 e-6 (arg-6 e-6)) eta-0))))))))(else (lambda (eta-0) (vector 1 (arg-3)))))))))(else (lambda (eta-0) (vector 1 (arg-3))))))))(else (lambda (eta-0) (vector 1 (arg-3)))))))) +(define Normalise-Core-case--6771-6202 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (vector 1 arg-5 e-2) e-3))))))) +(define Normalise-Core-case--8986-6075 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 8))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 1 arg-11) e-7))))))))))) +(define Normalise-Core-case--6769-5956 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalWithOpts arg-3 arg-2 arg-0 arg-8 arg-10 arg-9 (TT-Core-embed 'erased 'erased arg-5) arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (lambda (eta-0) (vector 1 (vector 2 ))))(else (let ((e-3 (- e-2 1))) (let ((optsC-39 (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-7 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-9 e-8 e-4 e-5 (vector 1 e-3) e-7))))))))))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalWithOpts arg-3 arg-2 arg-0 optsC-39 arg-10 arg-9 (TT-Core-embed 'erased 'erased arg-5) arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5))))))))))))))))))) +(define Normalise-Core-case--6768-5822 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 e-1))))) ((1) (Normalise-Core-findAlt arg-0 arg-1 arg-2 arg-3 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5)) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) +(define Normalise-Core-case--6767-5723 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-10 arg-9 arg-8 arg-7 arg-6 arg-4)) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) +(define Normalise-Core-case--6767-5607 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-12 arg-11 arg-10 arg-9 arg-8 arg-6)) (else (lambda (eta-0) (vector 1 (vector 1 )))))))) +(define Normalise-Core-case--6767-5446 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-13 arg-12 arg-11 arg-10 arg-9 arg-7)) (else (lambda (eta-0) (vector 1 (vector 1 )))))))) +(define Normalise-Core-case--6767-5344 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (Normalise-Core-evalConAlt arg-0 arg-1 arg-9 arg-2 arg-17 arg-16 arg-15 arg-14 arg-13 arg-8 arg-4 arg-10)) (else (lambda (eta-0) (vector 1 (vector 1 )))))))) +(define Normalise-Core-case--6767-5250 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (Normalise-Core-evalConAlt arg-0 arg-1 arg-9 arg-2 arg-17 arg-16 arg-15 arg-14 arg-13 arg-8 arg-4 arg-10)) (else (lambda (eta-0) (vector 1 (vector 1 )))))))) +(define Normalise-Core-case--6766-5177 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-evalTree arg-0 arg-1 (List-Prelude-C-43C-43 'erased arg-4 arg-2) arg-3 arg-11 e-1 arg-9 arg-8 arg-7 arg-5))) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) +(define Normalise-Core-case--7776-4967 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-9 e-1 arg-8 arg-7 (let ((sc1 arg-10)) (let ((e-7 (vector-ref sc1 8))) e-7)) (let ((sc1 arg-10)) (let ((e-17 (vector-ref sc1 18))) e-17)) (let ((sc1 arg-10)) (let ((e-11 (vector-ref sc1 12))) e-11)) arg-4 arg-3))) (else (lambda (eta-0) (vector 1 (arg-3)))))))) +(define Normalise-Core-case--7732-4930 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-updateLimit arg-6 arg-5 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) ((Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-9 e-2 arg-8 arg-7 (let ((sc3 arg-10)) (let ((e-7 (vector-ref sc3 8))) e-7)) (let ((sc3 arg-10)) (let ((e-17 (vector-ref sc3 18))) e-17)) (let ((sc3 arg-10)) (let ((e-11 (vector-ref sc3 12))) e-11)) arg-4 arg-3) eta-0))) (else (vector 1 (arg-3))))))))))))) (else (lambda (eta-0) (vector 1 (arg-3)))))))) +(define Normalise-Core-case--7692-4897 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-useMeta (let ((sc1 arg-10)) (let ((e-15 (vector-ref sc1 16))) e-15)) arg-7 arg-5 arg-0 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-updateLimit arg-6 arg-5 e-1) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) ((Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-9 e-2 arg-8 arg-7 (let ((sc5 arg-10)) (let ((e-7 (vector-ref sc5 8))) e-7)) (let ((sc5 arg-10)) (let ((e-17 (vector-ref sc5 18))) e-17)) (let ((sc5 arg-10)) (let ((e-11 (vector-ref sc5 12))) e-11)) arg-4 arg-3) eta-0))) (else (vector 1 (arg-3)))))))))))) (else (vector 1 (arg-3)))))))))))) (else (lambda (eta-0) (vector 1 (arg-3)))))))) +(define Normalise-Core-case--6764-4868 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((redok (Prelude-C-124C-124 (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)) (lambda () (Context-Core-reducibleInAny (vector 1 (let ((sc1 arg-0)) (let ((e-2 (vector-ref sc1 3))) e-2)) (let ((sc1 arg-0)) (let ((e-3 (vector-ref sc1 4))) e-3))) (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)) (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9))))))) (let ((sc1 redok)) (cond ((equal? sc1 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-useMeta (let ((sc2 e-1)) (let ((e-15 (vector-ref sc2 16))) e-15)) arg-7 arg-5 arg-0 arg-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((act-25 ((Normalise-Core-updateLimit arg-6 arg-5 e-2) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) ((Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-9 e-3 arg-8 arg-7 (let ((sc6 e-1)) (let ((e-7 (vector-ref sc6 8))) e-7)) (let ((sc6 e-1)) (let ((e-17 (vector-ref sc6 18))) e-17)) (let ((sc6 e-1)) (let ((e-11 (vector-ref sc6 12))) e-11)) arg-4 arg-3) eta-0))) (else (vector 1 (arg-3)))))))))))) (else (vector 1 (arg-3)))))))))))) (else (lambda (eta-0) (vector 1 (arg-3))))))))) (else (lambda (eta-0) (vector 1 (arg-3)))))))) +(define Normalise-Core-case--7398-4653 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (Normalise-Core-eval arg-0 arg-1 arg-3 (vector 0 ) arg-10 (vector 0 ) e-2 arg-5)))(else (lambda (eta-0) (vector 1 (vector 1 arg-9 (vector 0 arg-8 arg-6) arg-5)))))))) +(define Normalise-Core-case--6761-4621 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (Normalise-Core-case--7398-4653 arg-0 arg-1 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-8 arg-9 arg-10 (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3275) (TT-Core-weaken_Weaken__Term n vars arg-3275)))) (lambda (vars) (lambda (ns) (lambda (arg-3279) (TT-Core-weakenNs_Weaken__Term vars ns arg-3279))))) arg-3 arg-6 'erased arg-10))) (else (lambda (eta-0) (vector 1 (vector 1 arg-9 (vector 0 arg-8 arg-6) arg-5)))))))) +(define Normalise-Core-case--6759-4453 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((6) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 4))) (Normalise-Core-eval arg-0 arg-1 arg-2 (vector 1 (vector 1 "fvar") arg-3) arg-9 (vector 1 e-4 arg-8) (vector 0 e-1 (vector 0 ) 0) arg-7))))(else (lambda (eta-0) (vector 1 (vector 7 arg-6 arg-5 arg-10 arg-7)))))))) +(define Normalise-Core-case--6759-4340 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 arg-4 arg-8)) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 arg-5 arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 arg-4 arg-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 arg-7 arg-6 e-5 e-6)))))))))))))))))) +(define Normalise-Core-case--6759-4183 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (tm) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-13 arg-12 tm (vector 0 ))) arg-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 arg-10 arg-4 e-5 (lambda (defsC-39) (lambda (arg) (Normalise-Core-evalWithOpts arg-2 (vector 1 arg-4 arg-3) defsC-39 arg-1 arg-13 (vector 1 arg arg-12) arg-5 arg-11)))))))))))) (else (Normalise-Core-eval arg-0 arg-1 arg-2 (vector 1 arg-4 arg-3) arg-13 (vector 1 (vector 0 arg-3 arg-1 arg-12 arg-13 arg-6) arg-12) arg-5 arg-11)))))) +(define Normalise-Core-case--6687-3988 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (Normalise-Core-n--6596-3867-set arg-0 arg-1 arg-1 arg-2 e-7))))))))))))) +(define Normalise-Core-case--6673-3946 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (let ((e-3 (- e-2 1))) (lambda (eta-0) (vector 1 (vector 1 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-9 e-8 e-4 e-5 e-6 (Normalise-Core-n--6596-3867-set arg-0 arg-1 arg-1 e-3 e-7)))))))))))))))))))))))) +(define Normalise-Core-case--6596-3933 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Normalise-Core-case--6673-3946 arg-0 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) arg-1 (let ((sc1 arg-0)) (let ((e-7 (vector-ref sc1 8))) e-7))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-0)))))))) +(define Normalise-Core-case--6600-3887 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-2 arg-5) arg-4)) (else (vector 1 (vector 0 arg-2 arg-3) (Normalise-Core-n--6596-3867-set arg-0 arg-1 arg-6 arg-5 arg-4))))))) +(define Normalise-Core-case--6483-3837 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-useMeta 0 arg-3 (vector 9 e-1) arg-1 arg-0))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-2) eta-0))))))) +(define Normalise-Core-case--6504-3808 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (vector 0 e-0 e-1 e-2 (IntMap-Data-insert 'erased arg-0 (vector 0 ) e-3) e-4 e-5 e-6 e-7)))))))))))) +(define Normalise-Core-case--6483-3782 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-2 (IntMap-Data-insert 'erased arg-0 (vector 0 ) e-3) e-4 e-5 e-6 e-7)))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Normalise-Core-n--12144-9093-weakenP (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (TT-Core-weaken_Weaken__Var arg-12 arg-14 e-2) (TT-Core-weaken_Weaken__Var arg-13 arg-15 e-3))))))) +(define Normalise-Core-n--11609-8654-weakenP (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (TT-Core-weaken_Weaken__Var arg-7 arg-0 e-2) (TT-Core-weaken_Weaken__Var arg-7 arg-1 e-3))))))) +(define Normalise-Core-n--11609-8652-tryUpdatePi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (Prelude-pure_Applicative__Maybe 'erased (vector 1 ))) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 ))) ((2) (Prelude-pure_Applicative__Maybe 'erased (vector 2 ))) (else (let ((e-4 (vector-ref sc0 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-4) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 3 bind-0)))))))))) +(define Normalise-Core-n--11609-8653-tryUpdateB (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11609-8652-tryUpdatePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 0 e-1 bind-0 bind-1)))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-6) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-7) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 1 e-5 bind-0 bind-1)))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11609-8652-tryUpdatePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-11) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 2 e-9 bind-0 bind-1))))))))))(else (vector 0 )))))) +(define Normalise-Core-n--10044-7746-toHolesOnly (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (vector 0 e-1 (let ((sc1 e-2)) (let ((e-11 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-9 (vector-ref sc1 5))) (let ((e-8 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (vector 0 0 0 e-11 e-10 e-9 e-8 e-6 e-7)))))))) e-3 e-4 e-5)))))))(else arg-11))))) +(define Normalise-Core-n--6770-6111-takeStk (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 1 (vector 0 (Vect-Data-reverse 'erased 'erased arg-8) arg-7)))(else (let ((e-0 (- arg-6 1))) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Normalise-Core-n--6770-6111-takeStk arg-0 arg-1 'erased arg-3 arg-4 'erased e-0 e-4 (vector 1 e-3 arg-8))))))))))))) +(define Normalise-Core-n--6596-3867-set (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Normalise-Core-case--6600-3887 arg-0 arg-1 e-6 e-7 e-3 arg-3 arg-2 (Name-Core-C-61C-61_Eq__Name e-6 arg-2)))))))))))) +(define Normalise-Core-n--17428-13690-repSub (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-n--17428-13690-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((xC-39 (vector 2 "tmp" arg-6))) (let ((act-25 (let ((act-25 (((e-4 arg-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 (vector 1 e-1 (vector 0 ) xC-39))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (Normalise-Core-replaceC-39 arg-0 (b+ arg-6 1 63) arg-5 arg-4 arg-3 arg-2 e-6 eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-1 e-2 e-5 (TT-Core-refsToLocals 'erased (vector 1 e-2 (vector 0 )) (vector 1 e-2 xC-39 (vector 0 )) e-6)))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-5 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 (vector 1 e-6 e-7 (vector 0 )) eta-0))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--17428-13689-repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-replaceC-39 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 1 e-6 e-7 (vector 0 )) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-6 e-9 e-5)))))))))))))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--17428-13689-repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs arg-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-4 (vector 2 e-10 e-11 e-12 e-13 (vector 0 )) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (TT-Core-apply 'erased e-10 e-7 e-5)))))))))))))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--17428-13689-repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs arg-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-4 (vector 3 e-16 e-17 e-18 e-19 (vector 0 )) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (TT-Core-apply 'erased e-16 e-7 e-5)))))))))))))))))))))))) ((4) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-n--17428-13690-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-24) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-n--17428-13690-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-25) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-22 e-23 e-5 e-6)))))))))))))))))) ((5) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-n--17428-13690-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-29) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-27 e-28 e-5)))))))))))) ((6) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-5 e-33) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Normalise-Core-replaceC-39 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-5 e-34) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Normalise-Core-replaceC-39 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-6 eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-31 e-32 e-5 e-6)))))))))))))))))) ((7) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (let ((e-39 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--17428-13689-repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-39) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-n--17428-13690-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-38) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-36 (vector 8 e-36 e-37 e-6) e-5))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-5 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 arg-7 eta-0)))))))))))) +(define Normalise-Core-n--17428-13689-repArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-5 arg-7) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Normalise-Core-replaceC-39 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 ext-0)))))))) +(define Normalise-Core-n--12156-10290-getScrutinee (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2)))(else (vector 0 )))))(else (let ((e-0 (- arg-12 1))) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-6 (vector-ref sc0 2))) (Normalise-Core-n--12156-10290-getScrutinee arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased e-0 e-6)))(else (vector 0 )))))))))) +(define Normalise-Core-n--12153-9826-getArgPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (let ((sc0 arg-8)) (cond ((equal? sc0 0) (let ((sc1 arg-9)) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased e-2))))(else (let ((e-0 (- arg-8 1))) (let ((sc0 arg-9)) (let ((e-6 (vector-ref sc0 2))) (Normalise-Core-n--12153-9826-getArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-0 e-6)))))))))))) +(define Normalise-Core-n--10029-7127-findName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Normalise-Core-case--10270-7143 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased e-5 e-4 e-3 e-1 (Prelude-C-61C-61_Eq__Int arg-2 e-5)))))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--10029-7127-findName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased e-3) (lambda (_-0) (vector 1 (+ 1 _-0))))))))))))))) +(define Normalise-Core-n--11609-8484-findIdx (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Normalise-Core-case--11627-8510 arg-0 arg-1 'erased arg-3 'erased arg-5 arg-6 arg-7 'erased e-6 'erased e-7 e-3 arg-9 (Prelude-C-61C-61_Eq__Nat e-6 arg-9)))))))))))) +(define Normalise-Core-n--12156-10289-findArgPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 3))) (vector 1 e-2)))(else (vector 0 )))))) +(define Normalise-Core-n--12144-9094-extend (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((0) (Prelude-pure_Applicative__Maybe 'erased arg-14))(else (vector 0 ))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--12144-9094-extend arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-3 e-7 arg-14) (lambda (rest) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (vector 0 0 0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Normalise-Core-n--12144-9093-weakenP arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2 e-6 (List-Prelude-C-43C-43 'erased e-3 arg-0) (List-Prelude-C-43C-43 'erased e-7 arg-1) eta-0)) rest))))))))(else (vector 0 )))))))(else (vector 0 )))))) +(define Normalise-Core-n--6772-6234-evalAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-2 arg-0 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-n--6772-6234-evalAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-6)))))))))))))))))))) +(define Normalise-Core-n--17282-13554-dumpEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-6)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (let ((e-13 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF e-3 arg-4 arg-3 (lambda () (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 ": let " (Name-Core-show_Show__Name e-2)))) e-9 e-12 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 (Normalise-Core-logTermNF e-3 arg-4 arg-3 (lambda () (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-11) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-2)))))) e-9 e-13 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else ((Normalise-Core-n--17282-13554-dumpEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-9) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF e-3 arg-4 arg-3 (lambda () (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega (TT-Core-multiplicity 'erased e-8)) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-3 d x)))) (TT-Core-piInfo 'erased e-8)) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-2)))))))) e-9 (TT-Core-binderType 'erased e-8) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((Normalise-Core-n--17282-13554-dumpEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-9) eta-0))))))))))))))))))) +(define Normalise-Core-n--12144-9095-dropV (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (vector 1 arg-14)) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-14)) (cond ((equal? sc1 0) (vector 0 ))(else (let ((e-8 (- arg-14 1))) (Normalise-Core-n--12144-9095-dropV arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 'erased e-3 e-8))))))))))) +(define Normalise-Core-n--12144-9096-dropP (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--12144-9095-dropV arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 'erased arg-12 e-2) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--12144-9095-dropV arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 'erased arg-13 e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 0 bind-0 bind-1))))))))))) +(define Normalise-Core-n--12153-9827-convertMatches (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Normalise-Core-case--13075-9877 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased e-6 'erased e-7 'erased e-3 (Normalise-Core-n--12153-9826-getArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-6 arg-2)))))))))))) +(define Normalise-Core-n--6767-5673-concrete (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((2) 0) ((3) 0) ((8) 0) ((0) 0) ((10) 0)(else 1))))) +(define Normalise-Core-n--6759-4137-closeArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 0 arg-2 arg-1 arg-9 arg-10 e-2) (Normalise-Core-n--6759-4137-closeArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3))))))))) +(define Normalise-Core-n--6760-4551-applyToStack (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-26 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (((e-4 arg-0) e-26) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) ((Normalise-Core-n--6760-4551-applyToStack arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 e-27) eta-0))))))))))(else (lambda (eta-0) (vector 1 arg-8))))))(else (lambda (eta-0) (vector 1 arg-8)))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((1) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (Normalise-Core-evalRef arg-0 arg-1 arg-2 arg-7 1 e-6 e-29 e-30 (List-Prelude-C-43C-43 'erased e-8 arg-9) (lambda () (vector 1 e-6 (vector 1 e-29 e-30) e-8)))))) ((0) (let ((e-33 (vector-ref sc1 1))) (let ((e-34 (vector-ref sc1 2))) (Normalise-Core-evalLocal arg-0 arg-1 'erased arg-2 (vector 0 ) arg-7 e-6 e-33 e-34 'erased (List-Prelude-C-43C-43 'erased e-8 arg-9) (vector 0 )))))(else (lambda (eta-0) (vector 1 arg-8))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (vector 1 (vector 2 e-10 e-11 e-12 e-13 (List-Prelude-C-43C-43 'erased e-14 arg-9)))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (vector 1 (vector 3 e-16 e-17 e-18 e-19 (List-Prelude-C-43C-43 'erased e-20 arg-9))))))))))(else (lambda (eta-0) (vector 1 arg-8))))))) +(define Normalise-Core-n--10029-7002-addLater (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) arg-13) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Normalise-Core-case--10111-7031 arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-2 e-3 'erased (Normalise-Core-n--10029-7002-addLater arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-3 'erased))))))))) (define Normalise-Core-quote_Quote__Term (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Normalise.QVar" ) 0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Normalise-Core-quoteGen_Quote__Term arg-0 e-5 arg-1 arg-2 arg-3 ext-0)))))))) (define Normalise-Core-quote_Quote__NF (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Normalise.QVar" ) 0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Normalise-Core-quoteGen_Quote__NF arg-0 e-5 arg-1 arg-2 arg-3) ext-0)))))))) (define Normalise-Core-quote_Quote__Closure (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Normalise.QVar" ) 0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Normalise-Core-quoteGen_Quote__Closure arg-0 e-5 arg-1 arg-2 arg-3 ext-0)))))))) @@ -3368,27 +3408,27 @@ (define Normalise-Core-convert_Convert__NF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Normalise.QVar" ) 0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Normalise-Core-convGen_Convert__NF arg-0 e-5 arg-1 arg-2 arg-3 arg-4) ext-0)))))))) (define Normalise-Core-convert_Convert__Closure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Normalise.QVar" ) 0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Normalise-Core-convGen_Convert__Closure arg-0 e-5 arg-1 arg-2 arg-3 arg-4 ext-0)))))))) (define Normalise-Core-convGen_Convert__Term (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-2 arg-3 arg-4) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Normalise-Core-nf arg-0 arg-2 arg-3 arg-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-5 e-6) ext-0))))))))))))) -(define Normalise-Core-convGen_Convert__NF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-96 (vector-ref sc0 1))) (let ((e-97 (vector-ref sc0 2))) (let ((e-98 (vector-ref sc0 3))) (let ((e-99 (vector-ref sc0 4))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-107 (vector-ref sc1 3))) (let ((e-108 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (Normalise-Core-genName arg-1 "conv" eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((c (vector 0 (vector 0 ) (Value-Core-defaultOpts) (vector 0 ) arg-3 (vector 1 e-96 (vector 0 ) e-5)))) (let ((act-25 ((Normalise-Core-convBinders arg-0 arg-1 arg-2 arg-3 e-98 e-107) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (cond ((equal? sc4 0) (let ((act-26 (((e-99 arg-2) c) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 (((e-108 arg-2) c) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-7 e-8) eta-0)))))))))))) (else (vector 1 1)))))))))))))))))))(else (let ((sc1 e-98)) (case (vector-ref sc1 0) ((0) (let ((e-101 (vector-ref sc1 1))) (let ((e-102 (vector-ref sc1 2))) (let ((e-103 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-2 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (arg-6) (lambda (eta-1) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-6 eta-1))) e-102) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 e-103 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-5 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) ((Normalise-Core-nf arg-0 arg-2 arg-3 (vector 3 e-96 e-97 (vector 0 e-101 e-6 e-7) (vector 4 e-96 (TT-Core-weaken_Weaken__Term e-97 arg-0 e-8) (vector 0 e-96 (vector 0 ) 0)))) eta-0)))))))))))))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 arg-4 e-6) eta-0))))))))))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-87 (vector-ref sc1 1))) (let ((e-88 (vector-ref sc1 2))) (let ((e-89 (vector-ref sc1 3))) (let ((sc2 e-89)) (case (vector-ref sc2 0) ((0) (let ((e-92 (vector-ref sc2 1))) (let ((e-93 (vector-ref sc2 2))) (let ((e-94 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-2 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (arg-6) (lambda (eta-1) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-6 eta-1))) e-93) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 e-94 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-4 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) ((Normalise-Core-nf arg-0 arg-2 arg-3 (vector 3 e-87 e-88 (vector 0 e-92 e-6 e-7) (vector 4 e-87 (TT-Core-weaken_Weaken__Term e-88 arg-0 e-8) (vector 0 e-87 (vector 0 ) 0)))) eta-0)))))))))))))))))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-6 arg-5) eta-0))))))))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((e-10 (vector-ref sc2 3))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((1) (let ((e-50 (vector-ref sc3 2))) (let ((e-51 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 e-9 e-50) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((sc5 e-5)) (cond ((equal? sc5 0) ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-10 e-51) eta-0)) (else ((Normalise-Core-chkConvCaseBlock arg-0 e-8 arg-1 arg-2 arg-3 e-9 e-10 e-50 e-51) eta-0)))))))))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))) ((2) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((e-14 (vector-ref sc2 3))) (let ((e-15 (vector-ref sc2 4))) (let ((e-16 (vector-ref sc2 5))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((2) (let ((e-53 (vector-ref sc3 1))) (let ((e-54 (vector-ref sc3 2))) (let ((e-55 (vector-ref sc3 3))) (let ((e-56 (vector-ref sc3 4))) (let ((e-57 (vector-ref sc3 5))) (Normalise-Core-case--15582-12350 arg-0 e-53 e-56 e-12 e-15 e-16 e-14 e-13 e-57 e-55 e-54 arg-3 arg-2 arg-1 (Prelude-C-61C-61_Eq__Int e-14 e-55))))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((3) (let ((e-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((e-20 (vector-ref sc2 3))) (let ((e-21 (vector-ref sc2 4))) (let ((e-22 (vector-ref sc2 5))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((3) (let ((e-59 (vector-ref sc3 1))) (let ((e-60 (vector-ref sc3 2))) (let ((e-61 (vector-ref sc3 3))) (let ((e-62 (vector-ref sc3 4))) (let ((e-63 (vector-ref sc3 5))) (Normalise-Core-case--15582-12432 arg-0 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-19 e-60))))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc2 4))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((4) (let ((e-68 (vector-ref sc3 4))) (Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-27 e-68)))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((5) (let ((e-29 (vector-ref sc2 1))) (let ((e-30 (vector-ref sc2 2))) (let ((e-31 (vector-ref sc2 3))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((5) (let ((e-70 (vector-ref sc3 1))) (let ((e-71 (vector-ref sc3 2))) (let ((e-72 (vector-ref sc3 3))) (Normalise-Core-case--15582-12529 arg-0 e-70 e-29 e-31 e-30 e-72 e-71 arg-3 arg-2 arg-1 (TT-Core-compatible e-30 e-71))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))) ((6) (let ((e-33 (vector-ref sc2 1))) (let ((e-34 (vector-ref sc2 2))) (let ((e-35 (vector-ref sc2 3))) (let ((e-36 (vector-ref sc2 4))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((6) (let ((e-74 (vector-ref sc3 1))) (let ((e-75 (vector-ref sc3 2))) (let ((e-76 (vector-ref sc3 3))) (let ((e-77 (vector-ref sc3 4))) (Normalise-Core-case--15582-12595 arg-0 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-3 arg-2 arg-1 (TT-Core-compatible e-34 e-75)))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((7) (let ((e-38 (vector-ref sc2 1))) (let ((e-39 (vector-ref sc2 2))) (let ((e-40 (vector-ref sc2 3))) (let ((e-41 (vector-ref sc2 4))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((7) (let ((e-79 (vector-ref sc3 1))) (let ((e-80 (vector-ref sc3 2))) (let ((e-81 (vector-ref sc3 3))) (let ((e-82 (vector-ref sc3 4))) (Normalise-Core-case--15582-12721 arg-0 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-3 arg-2 arg-1 (TT-Core-compatible e-39 e-80)))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc2 2))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((8) (let ((e-85 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-44 e-85)))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-50 (vector-ref sc2 2))) (let ((e-51 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 e-9 e-50) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (cond ((equal? sc4 0) ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-10 e-51) eta-0)) (else ((Normalise-Core-chkConvCaseBlock arg-0 e-8 arg-1 arg-2 arg-3 e-9 e-10 e-50 e-51) eta-0)))))))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))) ((2) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((e-16 (vector-ref sc1 5))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((2) (let ((e-53 (vector-ref sc2 1))) (let ((e-54 (vector-ref sc2 2))) (let ((e-55 (vector-ref sc2 3))) (let ((e-56 (vector-ref sc2 4))) (let ((e-57 (vector-ref sc2 5))) (Normalise-Core-case--15582-12350 arg-0 e-53 e-56 e-12 e-15 e-16 e-14 e-13 e-57 e-55 e-54 arg-3 arg-2 arg-1 (Prelude-C-61C-61_Eq__Int e-14 e-55))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((3) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (let ((e-21 (vector-ref sc1 4))) (let ((e-22 (vector-ref sc1 5))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((3) (let ((e-59 (vector-ref sc2 1))) (let ((e-60 (vector-ref sc2 2))) (let ((e-61 (vector-ref sc2 3))) (let ((e-62 (vector-ref sc2 4))) (let ((e-63 (vector-ref sc2 5))) (Normalise-Core-case--15582-12432 arg-0 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-19 e-60))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc1 4))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((4) (let ((e-68 (vector-ref sc2 4))) (Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-27 e-68)))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((5) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (let ((e-31 (vector-ref sc1 3))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((5) (let ((e-70 (vector-ref sc2 1))) (let ((e-71 (vector-ref sc2 2))) (let ((e-72 (vector-ref sc2 3))) (Normalise-Core-case--15582-12529 arg-0 e-70 e-29 e-31 e-30 e-72 e-71 arg-3 arg-2 arg-1 (TT-Core-compatible e-30 e-71))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))) ((6) (let ((e-33 (vector-ref sc1 1))) (let ((e-34 (vector-ref sc1 2))) (let ((e-35 (vector-ref sc1 3))) (let ((e-36 (vector-ref sc1 4))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((6) (let ((e-74 (vector-ref sc2 1))) (let ((e-75 (vector-ref sc2 2))) (let ((e-76 (vector-ref sc2 3))) (let ((e-77 (vector-ref sc2 4))) (Normalise-Core-case--15582-12595 arg-0 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-3 arg-2 arg-1 (TT-Core-compatible e-34 e-75)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((7) (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (let ((e-40 (vector-ref sc1 3))) (let ((e-41 (vector-ref sc1 4))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((7) (let ((e-79 (vector-ref sc2 1))) (let ((e-80 (vector-ref sc2 2))) (let ((e-81 (vector-ref sc2 3))) (let ((e-82 (vector-ref sc2 4))) (Normalise-Core-case--15582-12721 arg-0 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-3 arg-2 arg-1 (TT-Core-compatible e-39 e-80)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc1 2))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((8) (let ((e-85 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-44 e-85)))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))))))))))))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (let ((e-89 (vector-ref sc0 3))) (let ((sc1 e-89)) (case (vector-ref sc1 0) ((0) (let ((e-92 (vector-ref sc1 1))) (let ((e-93 (vector-ref sc1 2))) (let ((e-94 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-2 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (arg-6) (lambda (eta-1) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-6 eta-1))) e-93) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 e-94 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-4 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) ((Normalise-Core-nf arg-0 arg-2 arg-3 (vector 3 e-87 e-88 (vector 0 e-92 e-6 e-7) (vector 4 e-87 (TT-Core-weaken_Weaken__Term e-88 arg-0 e-8) (vector 0 e-87 (vector 0 ) 0)))) eta-0)))))))))))))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-6 arg-5) eta-0))))))))))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-50 (vector-ref sc2 2))) (let ((e-51 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 e-9 e-50) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (cond ((equal? sc4 0) ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-10 e-51) eta-0)) (else ((Normalise-Core-chkConvCaseBlock arg-0 e-8 arg-1 arg-2 arg-3 e-9 e-10 e-50 e-51) eta-0)))))))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))) ((2) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((e-16 (vector-ref sc1 5))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((2) (let ((e-53 (vector-ref sc2 1))) (let ((e-54 (vector-ref sc2 2))) (let ((e-55 (vector-ref sc2 3))) (let ((e-56 (vector-ref sc2 4))) (let ((e-57 (vector-ref sc2 5))) (Normalise-Core-case--15582-12350 arg-0 e-53 e-56 e-12 e-15 e-16 e-14 e-13 e-57 e-55 e-54 arg-3 arg-2 arg-1 (Prelude-C-61C-61_Eq__Int e-14 e-55))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((3) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (let ((e-21 (vector-ref sc1 4))) (let ((e-22 (vector-ref sc1 5))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((3) (let ((e-59 (vector-ref sc2 1))) (let ((e-60 (vector-ref sc2 2))) (let ((e-61 (vector-ref sc2 3))) (let ((e-62 (vector-ref sc2 4))) (let ((e-63 (vector-ref sc2 5))) (Normalise-Core-case--15582-12432 arg-0 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-19 e-60))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc1 4))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((4) (let ((e-68 (vector-ref sc2 4))) (Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-27 e-68)))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((5) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (let ((e-31 (vector-ref sc1 3))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((5) (let ((e-70 (vector-ref sc2 1))) (let ((e-71 (vector-ref sc2 2))) (let ((e-72 (vector-ref sc2 3))) (Normalise-Core-case--15582-12529 arg-0 e-70 e-29 e-31 e-30 e-72 e-71 arg-3 arg-2 arg-1 (TT-Core-compatible e-30 e-71))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))) ((6) (let ((e-33 (vector-ref sc1 1))) (let ((e-34 (vector-ref sc1 2))) (let ((e-35 (vector-ref sc1 3))) (let ((e-36 (vector-ref sc1 4))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((6) (let ((e-74 (vector-ref sc2 1))) (let ((e-75 (vector-ref sc2 2))) (let ((e-76 (vector-ref sc2 3))) (let ((e-77 (vector-ref sc2 4))) (Normalise-Core-case--15582-12595 arg-0 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-3 arg-2 arg-1 (TT-Core-compatible e-34 e-75)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((7) (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (let ((e-40 (vector-ref sc1 3))) (let ((e-41 (vector-ref sc1 4))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((7) (let ((e-79 (vector-ref sc2 1))) (let ((e-80 (vector-ref sc2 2))) (let ((e-81 (vector-ref sc2 3))) (let ((e-82 (vector-ref sc2 4))) (Normalise-Core-case--15582-12721 arg-0 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-3 arg-2 arg-1 (TT-Core-compatible e-39 e-80)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc1 2))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((8) (let ((e-85 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-44 e-85)))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (let ((e-50 (vector-ref sc1 2))) (let ((e-51 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 e-9 e-50) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 0) ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-10 e-51) eta-0)) (else ((Normalise-Core-chkConvCaseBlock arg-0 e-8 arg-1 arg-2 arg-3 e-9 e-10 e-50 e-51) eta-0)))))))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))) ((2) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (let ((e-16 (vector-ref sc0 5))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (let ((e-53 (vector-ref sc1 1))) (let ((e-54 (vector-ref sc1 2))) (let ((e-55 (vector-ref sc1 3))) (let ((e-56 (vector-ref sc1 4))) (let ((e-57 (vector-ref sc1 5))) (Normalise-Core-case--15582-12350 arg-0 e-53 e-56 e-12 e-15 e-16 e-14 e-13 e-57 e-55 e-54 arg-3 arg-2 arg-1 (Prelude-C-61C-61_Eq__Int e-14 e-55))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((3) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((e-21 (vector-ref sc0 4))) (let ((e-22 (vector-ref sc0 5))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((3) (let ((e-59 (vector-ref sc1 1))) (let ((e-60 (vector-ref sc1 2))) (let ((e-61 (vector-ref sc1 3))) (let ((e-62 (vector-ref sc1 4))) (let ((e-63 (vector-ref sc1 5))) (Normalise-Core-case--15582-12432 arg-0 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-19 e-60))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc0 4))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((4) (let ((e-68 (vector-ref sc1 4))) (Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-27 e-68)))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((5) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((5) (let ((e-70 (vector-ref sc1 1))) (let ((e-71 (vector-ref sc1 2))) (let ((e-72 (vector-ref sc1 3))) (Normalise-Core-case--15582-12529 arg-0 e-70 e-29 e-31 e-30 e-72 e-71 arg-3 arg-2 arg-1 (TT-Core-compatible e-30 e-71))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))) ((6) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (let ((e-36 (vector-ref sc0 4))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((6) (let ((e-74 (vector-ref sc1 1))) (let ((e-75 (vector-ref sc1 2))) (let ((e-76 (vector-ref sc1 3))) (let ((e-77 (vector-ref sc1 4))) (Normalise-Core-case--15582-12595 arg-0 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-3 arg-2 arg-1 (TT-Core-compatible e-34 e-75)))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((7) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (let ((e-41 (vector-ref sc0 4))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((7) (let ((e-79 (vector-ref sc1 1))) (let ((e-80 (vector-ref sc1 2))) (let ((e-81 (vector-ref sc1 3))) (let ((e-82 (vector-ref sc1 4))) (Normalise-Core-case--15582-12721 arg-0 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-3 arg-2 arg-1 (TT-Core-compatible e-39 e-80)))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((8) (let ((e-85 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-44 e-85)))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((10) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))))) +(define Normalise-Core-convGen_Convert__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--15641-12358 arg-0 e-53 e-56 e-12 e-15 e-16 e-14 e-13 e-57 e-55 e-54 arg-3 arg-2 arg-1 (Prelude-C-61C-61_Eq__Int e-14 e-55))))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((3) (let ((e-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((e-20 (vector-ref sc2 3))) (let ((e-21 (vector-ref sc2 4))) (let ((e-22 (vector-ref sc2 5))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((3) (let ((e-59 (vector-ref sc3 1))) (let ((e-60 (vector-ref sc3 2))) (let ((e-61 (vector-ref sc3 3))) (let ((e-62 (vector-ref sc3 4))) (let ((e-63 (vector-ref sc3 5))) (Normalise-Core-case--15641-12440 arg-0 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-19 e-60))))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc2 4))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((4) (let ((e-68 (vector-ref sc3 4))) (Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-27 e-68)))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((5) (let ((e-29 (vector-ref sc2 1))) (let ((e-30 (vector-ref sc2 2))) (let ((e-31 (vector-ref sc2 3))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((5) (let ((e-70 (vector-ref sc3 1))) (let ((e-71 (vector-ref sc3 2))) (let ((e-72 (vector-ref sc3 3))) (Normalise-Core-case--15641-12537 arg-0 e-70 e-29 e-31 e-30 e-72 e-71 arg-3 arg-2 arg-1 (TT-Core-compatible e-30 e-71))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))) ((6) (let ((e-33 (vector-ref sc2 1))) (let ((e-34 (vector-ref sc2 2))) (let ((e-35 (vector-ref sc2 3))) (let ((e-36 (vector-ref sc2 4))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((6) (let ((e-74 (vector-ref sc3 1))) (let ((e-75 (vector-ref sc3 2))) (let ((e-76 (vector-ref sc3 3))) (let ((e-77 (vector-ref sc3 4))) (Normalise-Core-case--15641-12603 arg-0 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-3 arg-2 arg-1 (TT-Core-compatible e-34 e-75)))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((7) (let ((e-38 (vector-ref sc2 1))) (let ((e-39 (vector-ref sc2 2))) (let ((e-40 (vector-ref sc2 3))) (let ((e-41 (vector-ref sc2 4))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((7) (let ((e-79 (vector-ref sc3 1))) (let ((e-80 (vector-ref sc3 2))) (let ((e-81 (vector-ref sc3 3))) (let ((e-82 (vector-ref sc3 4))) (Normalise-Core-case--15641-12729 arg-0 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-3 arg-2 arg-1 (TT-Core-compatible e-39 e-80)))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc2 2))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((8) (let ((e-85 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-44 e-85)))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-50 (vector-ref sc2 2))) (let ((e-51 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 e-9 e-50) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (cond ((equal? sc4 0) ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-10 e-51) eta-0)) (else ((Normalise-Core-chkConvCaseBlock arg-0 e-8 arg-1 arg-2 arg-3 e-9 e-10 e-50 e-51) eta-0)))))))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))) ((2) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((e-16 (vector-ref sc1 5))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((2) (let ((e-53 (vector-ref sc2 1))) (let ((e-54 (vector-ref sc2 2))) (let ((e-55 (vector-ref sc2 3))) (let ((e-56 (vector-ref sc2 4))) (let ((e-57 (vector-ref sc2 5))) (Normalise-Core-case--15641-12358 arg-0 e-53 e-56 e-12 e-15 e-16 e-14 e-13 e-57 e-55 e-54 arg-3 arg-2 arg-1 (Prelude-C-61C-61_Eq__Int e-14 e-55))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((3) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (let ((e-21 (vector-ref sc1 4))) (let ((e-22 (vector-ref sc1 5))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((3) (let ((e-59 (vector-ref sc2 1))) (let ((e-60 (vector-ref sc2 2))) (let ((e-61 (vector-ref sc2 3))) (let ((e-62 (vector-ref sc2 4))) (let ((e-63 (vector-ref sc2 5))) (Normalise-Core-case--15641-12440 arg-0 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-19 e-60))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc1 4))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((4) (let ((e-68 (vector-ref sc2 4))) (Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-27 e-68)))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((5) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (let ((e-31 (vector-ref sc1 3))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((5) (let ((e-70 (vector-ref sc2 1))) (let ((e-71 (vector-ref sc2 2))) (let ((e-72 (vector-ref sc2 3))) (Normalise-Core-case--15641-12537 arg-0 e-70 e-29 e-31 e-30 e-72 e-71 arg-3 arg-2 arg-1 (TT-Core-compatible e-30 e-71))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))) ((6) (let ((e-33 (vector-ref sc1 1))) (let ((e-34 (vector-ref sc1 2))) (let ((e-35 (vector-ref sc1 3))) (let ((e-36 (vector-ref sc1 4))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((6) (let ((e-74 (vector-ref sc2 1))) (let ((e-75 (vector-ref sc2 2))) (let ((e-76 (vector-ref sc2 3))) (let ((e-77 (vector-ref sc2 4))) (Normalise-Core-case--15641-12603 arg-0 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-3 arg-2 arg-1 (TT-Core-compatible e-34 e-75)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((7) (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (let ((e-40 (vector-ref sc1 3))) (let ((e-41 (vector-ref sc1 4))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((7) (let ((e-79 (vector-ref sc2 1))) (let ((e-80 (vector-ref sc2 2))) (let ((e-81 (vector-ref sc2 3))) (let ((e-82 (vector-ref sc2 4))) (Normalise-Core-case--15641-12729 arg-0 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-3 arg-2 arg-1 (TT-Core-compatible e-39 e-80)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc1 2))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((8) (let ((e-85 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-44 e-85)))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))))))))))))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (let ((e-89 (vector-ref sc0 3))) (let ((sc1 e-89)) (case (vector-ref sc1 0) ((0) (let ((e-92 (vector-ref sc1 1))) (let ((e-93 (vector-ref sc1 2))) (let ((e-94 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-2 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (arg-6) (lambda (eta-1) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-6 eta-1))) e-93) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 e-94 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-4 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) ((Normalise-Core-nf arg-0 arg-2 arg-3 (vector 3 e-87 e-88 (vector 0 e-92 e-6 e-7) (vector 4 e-87 (TT-Core-weaken_Weaken__Term e-88 arg-0 e-8) (vector 0 e-87 (vector 0 ) 0)))) eta-0)))))))))))))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-6 arg-5) eta-0))))))))))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-50 (vector-ref sc2 2))) (let ((e-51 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 e-9 e-50) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (cond ((equal? sc4 0) ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-10 e-51) eta-0)) (else ((Normalise-Core-chkConvCaseBlock arg-0 e-8 arg-1 arg-2 arg-3 e-9 e-10 e-50 e-51) eta-0)))))))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))) ((2) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((e-16 (vector-ref sc1 5))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((2) (let ((e-53 (vector-ref sc2 1))) (let ((e-54 (vector-ref sc2 2))) (let ((e-55 (vector-ref sc2 3))) (let ((e-56 (vector-ref sc2 4))) (let ((e-57 (vector-ref sc2 5))) (Normalise-Core-case--15641-12358 arg-0 e-53 e-56 e-12 e-15 e-16 e-14 e-13 e-57 e-55 e-54 arg-3 arg-2 arg-1 (Prelude-C-61C-61_Eq__Int e-14 e-55))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((3) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (let ((e-21 (vector-ref sc1 4))) (let ((e-22 (vector-ref sc1 5))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((3) (let ((e-59 (vector-ref sc2 1))) (let ((e-60 (vector-ref sc2 2))) (let ((e-61 (vector-ref sc2 3))) (let ((e-62 (vector-ref sc2 4))) (let ((e-63 (vector-ref sc2 5))) (Normalise-Core-case--15641-12440 arg-0 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-19 e-60))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc1 4))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((4) (let ((e-68 (vector-ref sc2 4))) (Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-27 e-68)))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((5) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (let ((e-31 (vector-ref sc1 3))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((5) (let ((e-70 (vector-ref sc2 1))) (let ((e-71 (vector-ref sc2 2))) (let ((e-72 (vector-ref sc2 3))) (Normalise-Core-case--15641-12537 arg-0 e-70 e-29 e-31 e-30 e-72 e-71 arg-3 arg-2 arg-1 (TT-Core-compatible e-30 e-71))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))) ((6) (let ((e-33 (vector-ref sc1 1))) (let ((e-34 (vector-ref sc1 2))) (let ((e-35 (vector-ref sc1 3))) (let ((e-36 (vector-ref sc1 4))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((6) (let ((e-74 (vector-ref sc2 1))) (let ((e-75 (vector-ref sc2 2))) (let ((e-76 (vector-ref sc2 3))) (let ((e-77 (vector-ref sc2 4))) (Normalise-Core-case--15641-12603 arg-0 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-3 arg-2 arg-1 (TT-Core-compatible e-34 e-75)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((7) (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (let ((e-40 (vector-ref sc1 3))) (let ((e-41 (vector-ref sc1 4))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((7) (let ((e-79 (vector-ref sc2 1))) (let ((e-80 (vector-ref sc2 2))) (let ((e-81 (vector-ref sc2 3))) (let ((e-82 (vector-ref sc2 4))) (Normalise-Core-case--15641-12729 arg-0 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-3 arg-2 arg-1 (TT-Core-compatible e-39 e-80)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc1 2))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((8) (let ((e-85 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-44 e-85)))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (let ((e-50 (vector-ref sc1 2))) (let ((e-51 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 e-9 e-50) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 0) ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-10 e-51) eta-0)) (else ((Normalise-Core-chkConvCaseBlock arg-0 e-8 arg-1 arg-2 arg-3 e-9 e-10 e-50 e-51) eta-0)))))))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))) ((2) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (let ((e-16 (vector-ref sc0 5))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (let ((e-53 (vector-ref sc1 1))) (let ((e-54 (vector-ref sc1 2))) (let ((e-55 (vector-ref sc1 3))) (let ((e-56 (vector-ref sc1 4))) (let ((e-57 (vector-ref sc1 5))) (Normalise-Core-case--15641-12358 arg-0 e-53 e-56 e-12 e-15 e-16 e-14 e-13 e-57 e-55 e-54 arg-3 arg-2 arg-1 (Prelude-C-61C-61_Eq__Int e-14 e-55))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((3) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((e-21 (vector-ref sc0 4))) (let ((e-22 (vector-ref sc0 5))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((3) (let ((e-59 (vector-ref sc1 1))) (let ((e-60 (vector-ref sc1 2))) (let ((e-61 (vector-ref sc1 3))) (let ((e-62 (vector-ref sc1 4))) (let ((e-63 (vector-ref sc1 5))) (Normalise-Core-case--15641-12440 arg-0 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-19 e-60))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc0 4))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((4) (let ((e-68 (vector-ref sc1 4))) (Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-27 e-68)))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((5) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((5) (let ((e-70 (vector-ref sc1 1))) (let ((e-71 (vector-ref sc1 2))) (let ((e-72 (vector-ref sc1 3))) (Normalise-Core-case--15641-12537 arg-0 e-70 e-29 e-31 e-30 e-72 e-71 arg-3 arg-2 arg-1 (TT-Core-compatible e-30 e-71))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))) ((6) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (let ((e-36 (vector-ref sc0 4))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((6) (let ((e-74 (vector-ref sc1 1))) (let ((e-75 (vector-ref sc1 2))) (let ((e-76 (vector-ref sc1 3))) (let ((e-77 (vector-ref sc1 4))) (Normalise-Core-case--15641-12603 arg-0 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-3 arg-2 arg-1 (TT-Core-compatible e-34 e-75)))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((7) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (let ((e-41 (vector-ref sc0 4))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((7) (let ((e-79 (vector-ref sc1 1))) (let ((e-80 (vector-ref sc1 2))) (let ((e-81 (vector-ref sc1 3))) (let ((e-82 (vector-ref sc1 4))) (Normalise-Core-case--15641-12729 arg-0 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-3 arg-2 arg-1 (TT-Core-compatible e-39 e-80)))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((8) (let ((e-85 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-44 e-85)))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((10) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))))) (define Normalise-Core-convGen_Convert__Closure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-2 arg-4) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-2 arg-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-5 e-6) ext-0))))))))))))) -(define Normalise-Core-__Impl_Quote_Term (lambda () (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-0) (Normalise-Core-quote_Quote__Term vars arg-6775 arg-6776 arg-6778 eta-0)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Term vars arg-6780 arg-6782 arg-6783 arg-6785 eta-0)))))))))) -(define Normalise-Core-__Impl_Quote_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-0) (Normalise-Core-quote_Quote__NF vars arg-6775 arg-6776 arg-6778 eta-0)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (Normalise-Core-quoteGen_Quote__NF vars arg-6780 arg-6782 arg-6783 arg-6785))))))))) -(define Normalise-Core-__Impl_Quote_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6775 arg-6776 arg-6778 eta-0)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6780 arg-6782 arg-6783 arg-6785 eta-0)))))))))) -(define Normalise-Core-__Impl_Convert_Term (lambda () (vector 0 (lambda (vars) (lambda (arg-8355) (lambda (arg-8356) (lambda (arg-8358) (lambda (arg-8359) (lambda (eta-0) (Normalise-Core-convert_Convert__Term vars arg-8355 arg-8356 arg-8358 arg-8359 eta-0))))))) (lambda (vars) (lambda (arg-8361) (lambda (arg-8363) (lambda (arg-8364) (lambda (arg-8366) (lambda (arg-8367) (lambda (eta-0) (Normalise-Core-convGen_Convert__Term vars arg-8361 arg-8363 arg-8364 arg-8366 arg-8367 eta-0))))))))))) -(define Normalise-Core-__Impl_Convert_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-8355) (lambda (arg-8356) (lambda (arg-8358) (lambda (arg-8359) (lambda (eta-0) (Normalise-Core-convert_Convert__NF vars arg-8355 arg-8356 arg-8358 arg-8359 eta-0))))))) (lambda (vars) (lambda (arg-8361) (lambda (arg-8363) (lambda (arg-8364) (lambda (arg-8366) (lambda (arg-8367) (Normalise-Core-convGen_Convert__NF vars arg-8361 arg-8363 arg-8364 arg-8366 arg-8367)))))))))) -(define Normalise-Core-__Impl_Convert_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-8355) (lambda (arg-8356) (lambda (arg-8358) (lambda (arg-8359) (lambda (eta-0) (Normalise-Core-convert_Convert__Closure vars arg-8355 arg-8356 arg-8358 arg-8359 eta-0))))))) (lambda (vars) (lambda (arg-8361) (lambda (arg-8363) (lambda (arg-8364) (lambda (arg-8366) (lambda (arg-8367) (lambda (eta-0) (Normalise-Core-convGen_Convert__Closure vars arg-8361 arg-8363 arg-8364 arg-8366 arg-8367 eta-0))))))))))) -(define Normalise-Core-useMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-0)) (cond ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 arg-4)))) (else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-0 (vector-ref sc1 1))) (Normalise-Core-case--6424-3774 e-0 arg-4 arg-3 arg-1 (IntMap-Data-lookup 'erased e-0 (let ((sc2 arg-4)) (let ((e-3 (vector-ref sc2 4))) e-3))))))(else (Normalise-Core-case--6424-3829 arg-4 arg-3 arg-2 arg-1 (Context-Core-getNameID arg-2 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0)))))))))))) +(define Normalise-Core-__Impl_Quote_Term (lambda () (vector 0 (lambda (vars) (lambda (arg-6783) (lambda (arg-6784) (lambda (arg-6786) (lambda (eta-0) (Normalise-Core-quote_Quote__Term vars arg-6783 arg-6784 arg-6786 eta-0)))))) (lambda (vars) (lambda (arg-6788) (lambda (arg-6790) (lambda (arg-6791) (lambda (arg-6793) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Term vars arg-6788 arg-6790 arg-6791 arg-6793 eta-0)))))))))) +(define Normalise-Core-__Impl_Quote_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-6783) (lambda (arg-6784) (lambda (arg-6786) (lambda (eta-0) (Normalise-Core-quote_Quote__NF vars arg-6783 arg-6784 arg-6786 eta-0)))))) (lambda (vars) (lambda (arg-6788) (lambda (arg-6790) (lambda (arg-6791) (lambda (arg-6793) (Normalise-Core-quoteGen_Quote__NF vars arg-6788 arg-6790 arg-6791 arg-6793))))))))) +(define Normalise-Core-__Impl_Quote_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-6783) (lambda (arg-6784) (lambda (arg-6786) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6783 arg-6784 arg-6786 eta-0)))))) (lambda (vars) (lambda (arg-6788) (lambda (arg-6790) (lambda (arg-6791) (lambda (arg-6793) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6788 arg-6790 arg-6791 arg-6793 eta-0)))))))))) +(define Normalise-Core-__Impl_Convert_Term (lambda () (vector 0 (lambda (vars) (lambda (arg-8363) (lambda (arg-8364) (lambda (arg-8366) (lambda (arg-8367) (lambda (eta-0) (Normalise-Core-convert_Convert__Term vars arg-8363 arg-8364 arg-8366 arg-8367 eta-0))))))) (lambda (vars) (lambda (arg-8369) (lambda (arg-8371) (lambda (arg-8372) (lambda (arg-8374) (lambda (arg-8375) (lambda (eta-0) (Normalise-Core-convGen_Convert__Term vars arg-8369 arg-8371 arg-8372 arg-8374 arg-8375 eta-0))))))))))) +(define Normalise-Core-__Impl_Convert_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-8363) (lambda (arg-8364) (lambda (arg-8366) (lambda (arg-8367) (lambda (eta-0) (Normalise-Core-convert_Convert__NF vars arg-8363 arg-8364 arg-8366 arg-8367 eta-0))))))) (lambda (vars) (lambda (arg-8369) (lambda (arg-8371) (lambda (arg-8372) (lambda (arg-8374) (lambda (arg-8375) (Normalise-Core-convGen_Convert__NF vars arg-8369 arg-8371 arg-8372 arg-8374 arg-8375)))))))))) +(define Normalise-Core-__Impl_Convert_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-8363) (lambda (arg-8364) (lambda (arg-8366) (lambda (arg-8367) (lambda (eta-0) (Normalise-Core-convert_Convert__Closure vars arg-8363 arg-8364 arg-8366 arg-8367 eta-0))))))) (lambda (vars) (lambda (arg-8369) (lambda (arg-8371) (lambda (arg-8372) (lambda (arg-8374) (lambda (arg-8375) (lambda (eta-0) (Normalise-Core-convGen_Convert__Closure vars arg-8369 arg-8371 arg-8372 arg-8374 arg-8375 eta-0))))))))))) +(define Normalise-Core-useMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-0)) (cond ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 arg-4)))) (else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-0 (vector-ref sc1 1))) (Normalise-Core-case--6483-3782 e-0 arg-4 arg-3 arg-1 (IntMap-Data-lookup 'erased e-0 (let ((sc2 arg-4)) (let ((e-3 (vector-ref sc2 4))) e-3))))))(else (Normalise-Core-case--6483-3837 arg-4 arg-3 arg-2 arg-1 (Context-Core-getNameID arg-2 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0)))))))))))) (define Normalise-Core-updateLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 2))) (vector 1 (vector 1 arg-8) e-5)))(else arg-7))))(else (let ((e-0 (- arg-5 1))) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (vector 1 e-9 (Normalise-Core-updateLocal arg-0 arg-1 'erased 'erased 'erased e-0 'erased e-10 arg-8)))))(else arg-7))))))))) -(define Normalise-Core-updateLimit (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (Normalise-Core-case--6537-3925 arg-2 arg-1 (Prelude-not (List-Data-isNil 'erased (let ((sc1 arg-2)) (let ((e-7 (vector-ref sc1 8))) e-7))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-2)))))))) -(define Normalise-Core-tryUpdate (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11550-8476-findIdx arg-0 arg-1 'erased e-4 'erased e-3 e-2 arg-2 arg-2 e-4) (lambda (_-0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 e-2 e-3 _-0)))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 e-7 e-8 e-9)))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Prelude-pure_Applicative__Maybe 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3503 arg-3505)))))) (lambda (eta-0) (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 eta-0)) e-14) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 2 e-11 e-12 e-13 bind-0))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11550-8645-tryUpdateB arg-0 arg-1 e-17 e-19 e-18 e-16 arg-2 e-18) (lambda (bC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate (vector 1 e-17 arg-0) (vector 1 e-17 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Normalise-Core-n--11550-8646-weakenP arg-0 arg-1 e-17 e-19 e-18 e-16 arg-2 e-17 eta-0)) arg-2) e-19) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 3 e-16 e-17 bC-39 bind-0))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-22) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-23) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 4 e-21 bind-0 bind-1)))))))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-27) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-28) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 5 e-25 e-26 bind-0 bind-1))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-32) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 6 e-30 e-31 bind-0)))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-36) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-37) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 7 e-34 e-35 bind-0 bind-1))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-41) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 8 e-39 e-40 bind-0)))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 9 e-43 e-44))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 10 e-46 e-47))))) (else (let ((e-49 (vector-ref sc0 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 11 e-49)))))))) -(define Normalise-Core-tryAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (let ((e-30 (vector-ref sc1 1))) (let ((e-31 (vector-ref sc1 2))) (let ((e-32 (vector-ref sc1 3))) (let ((e-33 (vector-ref sc1 4))) (Normalise-Core-case--6708-5242 arg-0 arg-1 arg-2 e-3 e-7 e-6 e-5 e-4 e-32 arg-3 e-33 e-31 e-30 arg-8 arg-7 arg-6 arg-5 arg-4 (Prelude-C-61C-61_Eq__Int e-31 e-5)))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((e-12 (vector-ref sc0 4))) (let ((e-13 (vector-ref sc0 5))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (let ((e-35 (vector-ref sc1 1))) (let ((e-36 (vector-ref sc1 2))) (let ((e-37 (vector-ref sc1 3))) (let ((e-38 (vector-ref sc1 4))) (Normalise-Core-case--6708-5336 arg-0 arg-1 arg-2 e-9 e-13 e-12 e-11 e-10 e-37 arg-3 e-38 e-36 e-35 arg-8 arg-7 arg-6 arg-5 arg-4 (Name-Core-C-61C-61_Eq__Name e-10 e-35)))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((8) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (let ((e-40 (vector-ref sc1 1))) (let ((e-41 (vector-ref sc1 2))) (let ((e-42 (vector-ref sc1 3))) (let ((e-43 (vector-ref sc1 4))) (let ((sc2 e-40)) (case (vector-ref sc2 0) ((1) (let ((e-47 (vector-ref sc2 1))) (let ((sc3 e-42)) (case (vector-ref sc3 0) ((0) (Normalise-Core-case--6708-5438 arg-0 arg-1 arg-2 arg-3 e-15 e-16 e-47 e-43 e-41 arg-8 arg-7 arg-6 arg-5 arg-4 (Prelude-C-61C-61_Eq__String (TT-Core-show_Show__Constant e-16) e-47)))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))) ((2) (let ((e-45 (vector-ref sc1 1))) (let ((e-46 (vector-ref sc1 2))) (Normalise-Core-case--6708-5599 arg-0 arg-1 arg-2 arg-3 e-15 e-16 e-46 e-45 arg-8 arg-7 arg-6 arg-5 arg-4 (TT-Core-C-61C-61_Eq__Constant e-45 e-16)))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))) ((10) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (let ((e-50 (vector-ref sc1 1))) (let ((e-52 (vector-ref sc1 3))) (let ((e-53 (vector-ref sc1 4))) (let ((sc2 e-50)) (case (vector-ref sc2 0) ((1) (let ((e-54 (vector-ref sc2 1))) (let ((sc3 e-54)) (cond ((equal? sc3 "Type") (let ((sc4 e-52)) (case (vector-ref sc4 0) ((0) (Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 e-53))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))) ((0) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (let ((e-23 (vector-ref sc0 4))) (let ((sc1 e-22)) (case (vector-ref sc1 0) ((2) (let ((e-57 (vector-ref sc1 1))) (let ((e-58 (vector-ref sc1 2))) (let ((e-59 (vector-ref sc1 3))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-61 (vector-ref sc2 1))) (let ((e-63 (vector-ref sc2 3))) (let ((e-64 (vector-ref sc2 4))) (let ((sc3 e-61)) (case (vector-ref sc3 0) ((1) (let ((e-65 (vector-ref sc3 1))) (let ((sc4 e-65)) (cond ((equal? sc4 "->") (let ((sc5 e-63)) (case (vector-ref sc5 0) ((1) (let ((e-67 (vector-ref sc5 1))) (let ((e-68 (vector-ref sc5 2))) (let ((sc6 e-68)) (case (vector-ref sc6 0) ((1) (let ((e-70 (vector-ref sc6 1))) (let ((e-71 (vector-ref sc6 2))) (let ((sc7 e-71)) (case (vector-ref sc7 0) ((0) (Normalise-Core-evalConAlt arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-67 (vector 1 e-70 (vector 0 ))) (vector 1 (vector 1 e-59) (vector 1 (vector 1 (vector 0 e-20 e-21 (vector 0 e-57 e-58 e-59) e-23)) (vector 0 ))) e-64))(else (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((3) (let ((e-1 (vector-ref sc7 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((3) (let ((e-1 (vector-ref sc6 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))) ((6) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((1) (let ((e-74 (vector-ref sc1 1))) (let ((e-75 (vector-ref sc1 2))) (let ((e-76 (vector-ref sc1 3))) (Normalise-Core-evalTree arg-0 arg-1 (vector 1 e-74 (vector 1 e-75 arg-3)) arg-2 arg-4 (vector 1 e-27 (vector 1 e-28 arg-5)) arg-6 arg-7 arg-8 e-76)))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))(else (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))) +(define Normalise-Core-updateLimit (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (Normalise-Core-case--6596-3933 arg-2 arg-1 (Prelude-not (List-Data-isNil 'erased (let ((sc1 arg-2)) (let ((e-7 (vector-ref sc1 8))) e-7))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-2)))))))) +(define Normalise-Core-tryUpdate (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11609-8484-findIdx arg-0 arg-1 'erased e-4 'erased e-3 e-2 arg-2 arg-2 e-4) (lambda (_-0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 e-2 e-3 _-0)))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 e-7 e-8 e-9)))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Prelude-pure_Applicative__Maybe 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3511 arg-3513)))))) (lambda (eta-0) (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 eta-0)) e-14) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 2 e-11 e-12 e-13 bind-0))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11609-8653-tryUpdateB arg-0 arg-1 e-17 e-19 e-18 e-16 arg-2 e-18) (lambda (bC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate (vector 1 e-17 arg-0) (vector 1 e-17 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Normalise-Core-n--11609-8654-weakenP arg-0 arg-1 e-17 e-19 e-18 e-16 arg-2 e-17 eta-0)) arg-2) e-19) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 3 e-16 e-17 bC-39 bind-0))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-22) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-23) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 4 e-21 bind-0 bind-1)))))))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-27) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-28) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 5 e-25 e-26 bind-0 bind-1))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-32) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 6 e-30 e-31 bind-0)))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-36) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-37) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 7 e-34 e-35 bind-0 bind-1))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-41) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 8 e-39 e-40 bind-0)))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 9 e-43 e-44))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 10 e-46 e-47))))) (else (let ((e-49 (vector-ref sc0 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 11 e-49)))))))) +(define Normalise-Core-tryAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (let ((e-30 (vector-ref sc1 1))) (let ((e-31 (vector-ref sc1 2))) (let ((e-32 (vector-ref sc1 3))) (let ((e-33 (vector-ref sc1 4))) (Normalise-Core-case--6767-5250 arg-0 arg-1 arg-2 e-3 e-7 e-6 e-5 e-4 e-32 arg-3 e-33 e-31 e-30 arg-8 arg-7 arg-6 arg-5 arg-4 (Prelude-C-61C-61_Eq__Int e-31 e-5)))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6767-5723 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6767-5673-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((e-12 (vector-ref sc0 4))) (let ((e-13 (vector-ref sc0 5))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (let ((e-35 (vector-ref sc1 1))) (let ((e-36 (vector-ref sc1 2))) (let ((e-37 (vector-ref sc1 3))) (let ((e-38 (vector-ref sc1 4))) (Normalise-Core-case--6767-5344 arg-0 arg-1 arg-2 e-9 e-13 e-12 e-11 e-10 e-37 arg-3 e-38 e-36 e-35 arg-8 arg-7 arg-6 arg-5 arg-4 (Name-Core-C-61C-61_Eq__Name e-10 e-35)))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6767-5723 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6767-5673-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((8) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (let ((e-40 (vector-ref sc1 1))) (let ((e-41 (vector-ref sc1 2))) (let ((e-42 (vector-ref sc1 3))) (let ((e-43 (vector-ref sc1 4))) (let ((sc2 e-40)) (case (vector-ref sc2 0) ((1) (let ((e-47 (vector-ref sc2 1))) (let ((sc3 e-42)) (case (vector-ref sc3 0) ((0) (Normalise-Core-case--6767-5446 arg-0 arg-1 arg-2 arg-3 e-15 e-16 e-47 e-43 e-41 arg-8 arg-7 arg-6 arg-5 arg-4 (Prelude-C-61C-61_Eq__String (TT-Core-show_Show__Constant e-16) e-47)))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (Normalise-Core-case--6767-5723 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6767-5673-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (Normalise-Core-case--6767-5723 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6767-5673-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))) ((2) (let ((e-45 (vector-ref sc1 1))) (let ((e-46 (vector-ref sc1 2))) (Normalise-Core-case--6767-5607 arg-0 arg-1 arg-2 arg-3 e-15 e-16 e-46 e-45 arg-8 arg-7 arg-6 arg-5 arg-4 (TT-Core-C-61C-61_Eq__Constant e-45 e-16)))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6767-5723 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6767-5673-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))) ((10) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (let ((e-50 (vector-ref sc1 1))) (let ((e-52 (vector-ref sc1 3))) (let ((e-53 (vector-ref sc1 4))) (let ((sc2 e-50)) (case (vector-ref sc2 0) ((1) (let ((e-54 (vector-ref sc2 1))) (let ((sc3 e-54)) (cond ((equal? sc3 "Type") (let ((sc4 e-52)) (case (vector-ref sc4 0) ((0) (Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 e-53))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (Normalise-Core-case--6767-5723 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6767-5673-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (Normalise-Core-case--6767-5723 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6767-5673-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (Normalise-Core-case--6767-5723 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6767-5673-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6767-5723 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6767-5673-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))) ((0) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (let ((e-23 (vector-ref sc0 4))) (let ((sc1 e-22)) (case (vector-ref sc1 0) ((2) (let ((e-57 (vector-ref sc1 1))) (let ((e-58 (vector-ref sc1 2))) (let ((e-59 (vector-ref sc1 3))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-61 (vector-ref sc2 1))) (let ((e-63 (vector-ref sc2 3))) (let ((e-64 (vector-ref sc2 4))) (let ((sc3 e-61)) (case (vector-ref sc3 0) ((1) (let ((e-65 (vector-ref sc3 1))) (let ((sc4 e-65)) (cond ((equal? sc4 "->") (let ((sc5 e-63)) (case (vector-ref sc5 0) ((1) (let ((e-67 (vector-ref sc5 1))) (let ((e-68 (vector-ref sc5 2))) (let ((sc6 e-68)) (case (vector-ref sc6 0) ((1) (let ((e-70 (vector-ref sc6 1))) (let ((e-71 (vector-ref sc6 2))) (let ((sc7 e-71)) (case (vector-ref sc7 0) ((0) (Normalise-Core-evalConAlt arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-67 (vector 1 e-70 (vector 0 ))) (vector 1 (vector 1 e-59) (vector 1 (vector 1 (vector 0 e-20 e-21 (vector 0 e-57 e-58 e-59) e-23)) (vector 0 ))) e-64))(else (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((3) (let ((e-1 (vector-ref sc7 1))) (Normalise-Core-case--6767-5723 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6767-5673-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((3) (let ((e-1 (vector-ref sc6 1))) (Normalise-Core-case--6767-5723 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6767-5673-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (Normalise-Core-case--6767-5723 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6767-5673-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (Normalise-Core-case--6767-5723 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6767-5673-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (Normalise-Core-case--6767-5723 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6767-5673-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (Normalise-Core-case--6767-5723 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6767-5673-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6767-5723 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6767-5673-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))) ((6) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((1) (let ((e-74 (vector-ref sc1 1))) (let ((e-75 (vector-ref sc1 2))) (let ((e-76 (vector-ref sc1 3))) (Normalise-Core-evalTree arg-0 arg-1 (vector 1 e-74 (vector 1 e-75 arg-3)) arg-2 arg-4 (vector 1 e-27 (vector 1 e-28 arg-5)) arg-6 arg-7 arg-8 e-76)))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6767-5723 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6767-5673-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))(else (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-case--6767-5723 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6767-5673-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))) (define Normalise-Core-toClosure (lambda (arg-0 arg-1 arg-2 arg-3) (vector 0 (vector 0 ) arg-1 (vector 0 ) arg-2 arg-3))) -(define Normalise-Core-takeFromStack (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Normalise-Core-n--6711-6103-takeStk arg-0 arg-1 'erased arg-4 arg-3 'erased arg-3 arg-4 (vector 0 )))) -(define Normalise-Core-subRig (lambda (arg-0 arg-1) (Prelude-C-124C-124 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-0) (lambda () (Semiring-Algebra-isRigOther 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-1))) (lambda () (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-0 arg-1))))) -(define Normalise-Core-replaceC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (Normalise-Core-convert_Convert__NF arg-0 arg-2 arg-3 arg-4 arg-6 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 arg-5)) (else ((Normalise-Core-n--17369-13682-repSub arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-6) ext-0))))))))))) +(define Normalise-Core-takeFromStack (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Normalise-Core-n--6770-6111-takeStk arg-0 arg-1 'erased arg-4 arg-3 'erased arg-3 arg-4 (vector 0 )))) +(define Normalise-Core-subRig (lambda (arg-0 arg-1) (Prelude-C-124C-124 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-0) (lambda () (Semiring-Algebra-isRigOther 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-1))) (lambda () (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-0 arg-1))))) +(define Normalise-Core-replaceC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (Normalise-Core-convert_Convert__NF arg-0 arg-2 arg-3 arg-4 arg-6 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 arg-5)) (else ((Normalise-Core-n--17428-13690-repSub arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-6) ext-0))))))))))) (define Normalise-Core-replace (lambda (arg-0 ext-5 ext-1 ext-2 ext-3 ext-4 ext-0) (Normalise-Core-replaceC-39 arg-0 0 ext-5 ext-1 ext-2 ext-3 ext-4 ext-0))) (define Normalise-Core-quotePi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5)))))))))))))) -(define Normalise-Core-quoteHead (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Normalise-Core-case--9970-7077 arg-1 'erased e-3 'erased e-2 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 (Normalise-Core-n--9970-6994-addLater arg-1 'erased e-3 'erased e-2 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 'erased 'erased e-3 arg-0 'erased) eta-0))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((0) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((2) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (Normalise-Core-case--9970-7317 arg-0 arg-1 e-13 e-12 arg-6 arg-5 arg-4 arg-3 arg-2 (Normalise-Core-n--9970-7119-findName arg-0 arg-1 e-13 e-12 arg-6 arg-5 arg-4 arg-3 arg-2 'erased arg-5)))))(else (lambda (eta-0) (vector 1 (vector 1 arg-4 e-6 e-7)))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-4 e-6 e-7))))))))) (else (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 e-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 arg-4 e-9 e-10 e-5)))))))))))))))) -(define Normalise-Core-quoteGenNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Normalise-Core-genName arg-2 "qv" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (((e-4 arg-3) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 (vector 1 e-1 (vector 0 ) e-5))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) ((Normalise-Core-quoteGenNF (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 (vector 1 e-2 e-5 arg-4) arg-5 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-quoteBinder arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-1 e-2 e-7 e-6))))))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteHead arg-0 arg-1 arg-2 arg-3 e-6 arg-4 arg-5 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-6 e-5 e-9))))))))))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased e-10 (vector 1 e-10 (vector 2 e-12 e-13) e-11) e-5)))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased e-16 (vector 1 e-16 (vector 3 e-18 e-19) e-17) e-5)))))))))))))) ((4) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-24) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-25) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-22 e-23 e-5 e-6)))))))))))))))))) ((5) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-29) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-27 e-28 e-5)))))))))))) ((6) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-1 arg-3 (Normalise-Core-n--9985-7738-toHolesOnly arg-0 arg-1 e-34 e-33 e-32 e-31 arg-5 arg-4 arg-3 arg-2 'erased e-34)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-evalClosure arg-1 arg-3 (Normalise-Core-n--9985-7738-toHolesOnly arg-0 arg-1 e-34 e-33 e-32 e-31 arg-5 arg-4 arg-3 arg-2 'erased e-33)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 7 e-31 e-32 e-8 e-6)))))))))))))))))))))))))))) ((7) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (let ((e-39 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-39) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-38)) (case (vector-ref sc2 0) ((6) (let ((e-1 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 4))) (let ((act-25 ((Normalise-Core-evalClosure arg-1 arg-3 e-4) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (TT-Core-apply 'erased e-1 e-7 e-5)))))))))))))))(else (let ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-38) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-36 (vector 8 e-36 e-37 e-6) e-5))))))))))))))))))))) ((8) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 9 e-41 e-42)))))) ((9) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 10 e-44 e-45)))))) (else (let ((e-47 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 11 e-47))))))))) +(define Normalise-Core-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--10029-7085 arg-1 'erased e-3 'erased e-2 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 (Normalise-Core-n--10029-7002-addLater arg-1 'erased e-3 'erased e-2 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 'erased 'erased e-3 arg-0 'erased) eta-0))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((0) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((2) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (Normalise-Core-case--10029-7325 arg-0 arg-1 e-13 e-12 arg-6 arg-5 arg-4 arg-3 arg-2 (Normalise-Core-n--10029-7127-findName arg-0 arg-1 e-13 e-12 arg-6 arg-5 arg-4 arg-3 arg-2 'erased arg-5)))))(else (lambda (eta-0) (vector 1 (vector 1 arg-4 e-6 e-7)))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-4 e-6 e-7))))))))) (else (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 e-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 arg-4 e-9 e-10 e-5)))))))))))))))) +(define Normalise-Core-quoteGenNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Normalise-Core-genName arg-2 "qv" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (((e-4 arg-3) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 (vector 1 e-1 (vector 0 ) e-5))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) ((Normalise-Core-quoteGenNF (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 (vector 1 e-2 e-5 arg-4) arg-5 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-quoteBinder arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-1 e-2 e-7 e-6))))))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteHead arg-0 arg-1 arg-2 arg-3 e-6 arg-4 arg-5 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-6 e-5 e-9))))))))))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased e-10 (vector 1 e-10 (vector 2 e-12 e-13) e-11) e-5)))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased e-16 (vector 1 e-16 (vector 3 e-18 e-19) e-17) e-5)))))))))))))) ((4) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-24) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-25) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-22 e-23 e-5 e-6)))))))))))))))))) ((5) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-29) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-27 e-28 e-5)))))))))))) ((6) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-1 arg-3 (Normalise-Core-n--10044-7746-toHolesOnly arg-0 arg-1 e-34 e-33 e-32 e-31 arg-5 arg-4 arg-3 arg-2 'erased e-34)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-evalClosure arg-1 arg-3 (Normalise-Core-n--10044-7746-toHolesOnly arg-0 arg-1 e-34 e-33 e-32 e-31 arg-5 arg-4 arg-3 arg-2 'erased e-33)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 7 e-31 e-32 e-8 e-6)))))))))))))))))))))))))))) ((7) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (let ((e-39 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-39) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-38)) (case (vector-ref sc2 0) ((6) (let ((e-1 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 4))) (let ((act-25 ((Normalise-Core-evalClosure arg-1 arg-3 e-4) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (TT-Core-apply 'erased e-1 e-7 e-5)))))))))))))))(else (let ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-38) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-36 (vector 8 e-36 e-37 e-6) e-5))))))))))))))))))))) ((8) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 9 e-41 e-42)))))) ((9) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 10 e-44 e-45)))))) (else (let ((e-47 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 11 e-47))))))))) (define Normalise-Core-quoteGen (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-3) (lambda (arg-4) (lambda (arg-5) (lambda (arg-6) (((((e-2 arg-1) arg-3) arg-4) arg-5) arg-6))))))))) (define Normalise-Core-quoteBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-1 e-6 e-5))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-7) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-8 e-9))))))))))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-10) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-9 e-6 e-5))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-14) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-13 e-6 e-5))))))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-18) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-19) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-17 e-5 e-6))))))))))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-21 e-5))))))))))))))) (define Normalise-Core-quoteArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-1 arg-3 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-6 e-7))))))))))))))))))))))))) @@ -3402,20 +3442,20 @@ (define Normalise-Core-normalise (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-1 arg-2 arg-3) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Normalise-Core-quote_Quote__NF arg-0 arg-1 arg-2 e-5 ext-0)))))))) (define Normalise-Core-nfOpts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Normalise-Core-eval arg-2 arg-1 arg-0 (vector 0 ) arg-3 (vector 0 ) arg-4 (vector 0 )))) (define Normalise-Core-nf (lambda (arg-0 arg-1 arg-2 arg-3) (Normalise-Core-eval arg-1 (Value-Core-defaultOpts) arg-0 (vector 0 ) arg-2 (vector 0 ) arg-3 (vector 0 )))) -(define Normalise-Core-logTermNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Normalise-Core-case--16927-13279 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0)))))))) -(define Normalise-Core-logNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Normalise-Core-case--16827-13185 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0)))))))) -(define Normalise-Core-logGlueNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Normalise-Core-case--17121-13461 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0)))))))) -(define Normalise-Core-logGlue (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Normalise-Core-case--17024-13370 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0)))))))) -(define Normalise-Core-logEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Normalise-Core-case--17223-13646 arg-0 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0)))))))) +(define Normalise-Core-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--16986-13287 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0)))))))) +(define Normalise-Core-logNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Normalise-Core-case--16886-13193 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0)))))))) +(define Normalise-Core-logGlueNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Normalise-Core-case--17180-13469 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0)))))))) +(define Normalise-Core-logGlue (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Normalise-Core-case--17083-13378 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0)))))))) +(define Normalise-Core-logEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Normalise-Core-case--17282-13654 arg-0 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0)))))))) (define Normalise-Core-isFromTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (define Normalise-Core-gnf (lambda (arg-0 arg-1 arg-2) (vector 0 0 (lambda (eta-0) (vector 1 arg-2)) (lambda (c) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox c))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Normalise-Core-nf arg-0 e-5 arg-1 arg-2) eta-0))))))))))) (define Normalise-Core-glueBack (lambda (arg-0 arg-1 arg-2 arg-3) (vector 0 1 (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-1 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-2 arg-3 eta-0))))))) (lambda (eta-0) (lambda (eta-1) (vector 1 arg-3)))))) (define Normalise-Core-getValArity (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-4 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-2 (vector 10 e-1 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-getValArity arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (vector 1 (+ 1 e-9))))))))))))))(else (lambda (eta-0) (vector 1 0)))))))))(else (lambda (eta-0) (vector 1 0))))))) (define Normalise-Core-getTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2)))) (define Normalise-Core-getNF (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 3))) (e-3 arg-1))))) -(define Normalise-Core-getMatchingVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-14 (vector-ref sc1 3))) (let ((e-17 (vector-ref sc1 5))) (Normalise-Core-getMatchingVarAlts arg-0 arg-1 arg-2 (vector 1 (vector 0 e-2 e-14) arg-3) e-5 e-17))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (Normalise-Core-case--12091-9675 arg-0 arg-1 e-8 e-7 e-20 e-19 arg-3 arg-2 (Normalise-Core-tryUpdate arg-0 arg-1 arg-3 e-8)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))) ((2) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 1 arg-3))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))) ((3) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 (vector 1 arg-3))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Normalise-Core-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--12150-9683 arg-0 arg-1 e-8 e-7 e-20 e-19 arg-3 arg-2 (Normalise-Core-tryUpdate arg-0 arg-1 arg-3 e-8)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))) ((2) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 1 arg-3))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))) ((3) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 (vector 1 arg-3))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define Normalise-Core-getMatchingVarAlts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 arg-3))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getMatchingVarAlt arg-0 arg-1 arg-2 arg-3 e-2 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) ((Normalise-Core-getMatchingVarAlts arg-0 arg-1 arg-2 e-1 e-3 e-7) eta-0))) (else (vector 1 (vector 0 ))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Normalise-Core-getMatchingVarAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (Normalise-Core-case--12085-9274 arg-0 arg-1 e-3 e-4 e-2 e-1 e-13 e-14 e-12 e-11 arg-3 arg-2 (Name-Core-C-61C-61_Eq__Name e-1 e-11)))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (Normalise-Core-case--12085-9478 arg-0 arg-1 e-7 e-6 e-17 e-16 arg-3 arg-2 (TT-Core-C-61C-61_Eq__Constant e-6 e-16)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((3) (let ((e-19 (vector-ref sc1 1))) (Normalise-Core-getMatchingVars arg-0 arg-1 arg-2 arg-3 e-9 e-19)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Normalise-Core-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--12144-9282 arg-0 arg-1 e-3 e-4 e-2 e-1 e-13 e-14 e-12 e-11 arg-3 arg-2 (Name-Core-C-61C-61_Eq__Name e-1 e-11)))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (Normalise-Core-case--12144-9486 arg-0 arg-1 e-7 e-6 e-17 e-16 arg-3 arg-2 (TT-Core-C-61C-61_Eq__Constant e-6 e-16)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((3) (let ((e-19 (vector-ref sc1 1))) (Normalise-Core-getMatchingVars arg-0 arg-1 arg-2 arg-3 e-9 e-19)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define Normalise-Core-getCaseBound (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (vector 1 arg-6)) (else (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (vector 0 )) (else (let ((e-11 (vector-ref sc1 2))) (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (arg-7) (vector 1 e-2 arg-7)) (Normalise-Core-getCaseBound arg-0 arg-1 'erased 'erased e-3 e-11 arg-6))))))))))))) (define Normalise-Core-getArity (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-1 arg-2 arg-3) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Normalise-Core-getValArity arg-0 arg-1 arg-2 e-5) ext-0)))))))) (define Normalise-Core-genName (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (b+ e-5 1 63)))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-1 e-5))))))))))))) @@ -3423,31 +3463,31 @@ (define Normalise-Core-gErased (lambda (arg-0 arg-1) (vector 0 0 (lambda (eta-0) (vector 1 (vector 10 arg-1 1))) (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 9 arg-1 1))))))) (define Normalise-Core-findAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-tryAlt arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-1 (vector-ref sc2 1))) (vector 1 (vector 0 e-1)))) ((1) ((Normalise-Core-findAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3) eta-0)) (else (vector 1 (vector 2 )))))))))))))))))) (define Normalise-Core-evalWithOpts (lambda (arg-0 arg-1 arg-2 arg-3 ext-0 ext-1 ext-2 ext-3) (Normalise-Core-eval arg-2 arg-3 arg-0 arg-1 ext-0 ext-1 ext-2 ext-3))) -(define Normalise-Core-evalTree (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalLocal arg-0 arg-1 'erased arg-3 arg-2 arg-4 arg-7 (vector 0 ) e-2 'erased (vector 0 ) arg-5) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc1 1))) (let ((locC-39 (Normalise-Core-updateLocal arg-0 arg-1 'erased 'erased 'erased e-2 'erased arg-5 e-6))) ((Normalise-Core-findAlt arg-0 arg-1 arg-2 arg-3 arg-4 locC-39 arg-6 arg-7 arg-8 e-6 e-5) eta-0))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (Normalise-Core-case--6710-5948 arg-0 arg-1 arg-2 arg-3 e-7 e-8 arg-8 arg-7 arg-6 arg-5 arg-4 (let ((sc1 arg-6)) (let ((e-6 (vector-ref sc1 7))) e-6))))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))) +(define Normalise-Core-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--6769-5956 arg-0 arg-1 arg-2 arg-3 e-7 e-8 arg-8 arg-7 arg-6 arg-5 arg-4 (let ((sc1 arg-6)) (let ((e-6 (vector-ref sc1 7))) e-6))))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))) (define Normalise-Core-evalRef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 2 arg-5 arg-7 e-0 e-1 arg-8)))))) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 3 arg-5 arg-7 e-2 e-3 arg-8)))))) ((0) (lambda (eta-0) (vector 1 (arg-9))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-7 (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((redok (Prelude-C-124C-124 (let ((sc2 arg-1)) (let ((e-4 (vector-ref sc2 5))) e-4)) (lambda () (Context-Core-reducibleInAny (vector 1 (let ((sc2 arg-0)) (let ((e-2 (vector-ref sc2 3))) e-2)) (let ((sc2 arg-0)) (let ((e-3 (vector-ref sc2 4))) e-3))) (let ((sc2 e-1)) (let ((e-22 (vector-ref sc2 2))) e-22)) (let ((sc2 e-1)) (let ((e-9 (vector-ref sc2 10))) e-9))))))) (let ((sc2 redok)) (cond ((equal? sc2 0) (let ((act-25 ((Normalise-Core-useMeta (let ((sc3 e-1)) (let ((e-15 (vector-ref sc3 16))) e-15)) arg-5 arg-7 arg-0 arg-1) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) (let ((act-26 ((Normalise-Core-updateLimit arg-6 arg-7 e-2) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) ((Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-3 e-3 arg-4 arg-5 (let ((sc7 e-1)) (let ((e-21 (vector-ref sc7 8))) e-21)) (let ((sc7 e-1)) (let ((e-17 (vector-ref sc7 18))) e-17)) (let ((sc7 e-1)) (let ((e-11 (vector-ref sc7 12))) e-11)) arg-8 arg-9) eta-0))) (else (vector 1 (arg-9)))))))))))) (else (vector 1 (arg-9))))))))))) (else (vector 1 (arg-9)))))))) (else (vector 1 (arg-9)))))))))))))))) -(define Normalise-Core-evalOp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Normalise-Core-case--6713-6262 arg-0 arg-1 arg-3 arg-6 arg-5 arg-2 arg-4 (Normalise-Core-takeFromStack arg-0 arg-1 'erased arg-2 arg-5)))) +(define Normalise-Core-evalOp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Normalise-Core-case--6772-6270 arg-0 arg-1 arg-3 arg-6 arg-5 arg-2 arg-4 (Normalise-Core-takeFromStack arg-0 arg-1 'erased arg-2 arg-5)))) (define Normalise-Core-evalMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Normalise-Core-evalRef arg-0 arg-1 arg-2 arg-3 0 arg-4 (vector 1 ) (vector 9 arg-6) (List-Prelude-C-43C-43 'erased arg-7 arg-8) (lambda () (vector 1 arg-4 (vector 2 arg-5 arg-6 arg-7) arg-8))))) -(define Normalise-Core-evalLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (Normalise-Core-case--6702-4613 arg-0 arg-1 'erased arg-3 arg-11 arg-10 arg-8 'erased arg-7 arg-6 arg-5 (Prelude-C-38C-38 (Prelude-not (Prelude-C-124C-124 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) (lambda () (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))))) (lambda () (Maybe-Data-fromMaybe 'erased (lambda () 0) arg-7))))) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (cond ((equal? sc1 0) (let ((sc2 arg-11)) (let ((e-8 (vector-ref sc2 1))) (Normalise-Core-evalLocClosure arg-0 arg-1 arg-3 arg-5 arg-6 arg-7 arg-10 e-8))))(else (let ((e-4 (- arg-8 1))) (let ((sc1 arg-11)) (let ((e-14 (vector-ref sc1 2))) (Normalise-Core-evalLocal arg-0 arg-1 'erased arg-3 e-3 arg-5 arg-6 arg-7 e-4 'erased arg-10 e-14))))))))))))) -(define Normalise-Core-evalLocClosure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (Normalise-Core-evalWithOpts arg-2 e-1 arg-0 e-2 e-4 e-3 e-5 arg-6))))))) (else (let ((e-7 (vector-ref sc0 1))) (Normalise-Core-n--6701-4543-applyToStack arg-0 arg-1 arg-2 e-7 arg-6 arg-5 arg-4 arg-3 e-7 arg-6))))))) -(define Normalise-Core-evalDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (Normalise-Core-case--6714-6382 arg-0 arg-1 arg-2 e-1 e-3 e-4 e-2 e-0 arg-11 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 (Prelude-C-124C-124 (let ((sc1 e-0)) (let ((e-5 (vector-ref sc1 2))) e-5)) (lambda () (Prelude-C-124C-124 (Prelude-not (Prelude-C-124C-124 (let ((sc1 arg-4)) (let ((e-12 (vector-ref sc1 1))) e-12)) (lambda () (Prelude-C-124C-124 (let ((sc1 arg-4)) (let ((e-11 (vector-ref sc1 2))) e-11)) (lambda () (let ((sc1 arg-4)) (let ((e-5 (vector-ref sc1 6))) e-5))))))) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 arg-5 (lambda () (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-7)))) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 arg-5 (lambda () (let ((sc1 arg-4)) (let ((e-12 (vector-ref sc1 1))) e-12)))) (lambda () (Prelude-C-38C-38 (let ((sc1 arg-4)) (let ((e-5 (vector-ref sc1 6))) e-5)) (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__DefFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__DefFlag arg-430 arg-431)))) (vector 3 ) arg-9)))))))))))))))))) ((4) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (Normalise-Core-evalOp arg-0 arg-1 e-5 arg-2 (Primitives-Core-getOp 'erased e-6 arg-2) arg-10 arg-11))))(else (lambda (eta-0) (vector 1 (arg-11)))))))) -(define Normalise-Core-evalConAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (Normalise-Core-case--6707-5169 arg-0 arg-1 arg-2 arg-3 arg-9 arg-11 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-getCaseBound arg-0 arg-1 'erased 'erased arg-10 arg-9 arg-5)))) +(define Normalise-Core-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--6761-4621 arg-0 arg-1 'erased arg-3 arg-11 arg-10 arg-8 'erased arg-7 arg-6 arg-5 (Prelude-C-38C-38 (Prelude-not (Prelude-C-124C-124 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) (lambda () (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))))) (lambda () (Maybe-Data-fromMaybe 'erased (lambda () 0) arg-7))))) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (cond ((equal? sc1 0) (let ((sc2 arg-11)) (let ((e-8 (vector-ref sc2 1))) (Normalise-Core-evalLocClosure arg-0 arg-1 arg-3 arg-5 arg-6 arg-7 arg-10 e-8))))(else (let ((e-4 (- arg-8 1))) (let ((sc1 arg-11)) (let ((e-14 (vector-ref sc1 2))) (Normalise-Core-evalLocal arg-0 arg-1 'erased arg-3 e-3 arg-5 arg-6 arg-7 e-4 'erased arg-10 e-14))))))))))))) +(define Normalise-Core-evalLocClosure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (Normalise-Core-evalWithOpts arg-2 e-1 arg-0 e-2 e-4 e-3 e-5 arg-6))))))) (else (let ((e-7 (vector-ref sc0 1))) (Normalise-Core-n--6760-4551-applyToStack arg-0 arg-1 arg-2 e-7 arg-6 arg-5 arg-4 arg-3 e-7 arg-6))))))) +(define Normalise-Core-evalDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (Normalise-Core-case--6773-6390 arg-0 arg-1 arg-2 e-1 e-3 e-4 e-2 e-0 arg-11 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 (Prelude-C-124C-124 (let ((sc1 e-0)) (let ((e-5 (vector-ref sc1 2))) e-5)) (lambda () (Prelude-C-124C-124 (Prelude-not (Prelude-C-124C-124 (let ((sc1 arg-4)) (let ((e-12 (vector-ref sc1 1))) e-12)) (lambda () (Prelude-C-124C-124 (let ((sc1 arg-4)) (let ((e-11 (vector-ref sc1 2))) e-11)) (lambda () (let ((sc1 arg-4)) (let ((e-5 (vector-ref sc1 6))) e-5))))))) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 arg-5 (lambda () (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-7)))) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 arg-5 (lambda () (let ((sc1 arg-4)) (let ((e-12 (vector-ref sc1 1))) e-12)))) (lambda () (Prelude-C-38C-38 (let ((sc1 arg-4)) (let ((e-5 (vector-ref sc1 6))) e-5)) (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Context-Core-C-61C-61_Eq__DefFlag arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Context-Core-C-47C-61_Eq__DefFlag arg-438 arg-439)))) (vector 3 ) arg-9)))))))))))))))))) ((4) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (Normalise-Core-evalOp arg-0 arg-1 e-5 arg-2 (Primitives-Core-getOp 'erased e-6 arg-2) arg-10 arg-11))))(else (lambda (eta-0) (vector 1 (arg-11)))))))) +(define Normalise-Core-evalConAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (Normalise-Core-case--6766-5177 arg-0 arg-1 arg-2 arg-3 arg-9 arg-11 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-getCaseBound arg-0 arg-1 'erased 'erased arg-10 arg-9 arg-5)))) (define Normalise-Core-evalClosure (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (Normalise-Core-eval arg-1 e-2 arg-0 e-1 e-4 e-3 e-5 (vector 0 )))))))) (else (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-7)))))))) (define Normalise-Core-evalArg (lambda (arg-0 arg-1 arg-2) (Normalise-Core-evalClosure arg-0 arg-1 arg-2))) -(define Normalise-Core-eval (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Normalise-Core-evalLocal arg-0 arg-1 'erased arg-2 arg-3 arg-4 e-2 e-3 e-4 'erased arg-7 arg-5))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (Normalise-Core-evalRef arg-0 arg-1 arg-2 arg-4 1 e-7 e-8 e-9 arg-7 (lambda () (vector 1 e-7 (vector 1 e-8 e-9) arg-7))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (Normalise-Core-evalMeta arg-0 arg-1 arg-2 arg-4 e-11 e-12 e-13 (Normalise-Core-n--6700-4129-closeArgs arg-0 arg-1 arg-3 arg-2 e-14 e-13 e-12 e-11 arg-7 arg-5 arg-4 e-14) arg-7)))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 e-18)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-59 (vector-ref sc2 1))) (let ((e-60 (vector-ref sc2 2))) (Normalise-Core-eval arg-0 arg-1 arg-2 (vector 1 e-17 arg-3) arg-4 (vector 1 e-59 arg-5) e-19 e-60))))(else (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (tm) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 tm (vector 0 ))) e-18) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 e-16 e-17 e-5 (lambda (defsC-39) (lambda (arg) (Normalise-Core-evalWithOpts arg-2 (vector 1 e-17 arg-3) defsC-39 arg-1 arg-4 (vector 1 arg arg-5) e-19 arg-7))))))))))))))) ((1) (let ((e-55 (vector-ref sc1 1))) (let ((e-56 (vector-ref sc1 2))) (let ((e-57 (vector-ref sc1 3))) (let ((b (vector 1 e-55 e-56 e-57))) (Normalise-Core-case--6700-4175 arg-0 arg-1 arg-2 arg-3 e-17 e-19 e-56 e-57 e-55 b e-16 arg-7 arg-5 arg-4 (Prelude-C-38C-38 (Prelude-C-124C-124 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) e-0)) (lambda () (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 2))) e-1)))) (lambda () (Prelude-not (let ((sc2 arg-1)) (let ((e-5 (vector-ref sc2 6))) e-5)))))))))))(else (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (tm) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 tm (vector 0 ))) e-18) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-16 e-17 e-5 (lambda (defsC-39) (lambda (arg) (Normalise-Core-evalWithOpts arg-2 (vector 1 e-17 arg-3) defsC-39 arg-1 arg-4 (vector 1 arg arg-5) e-19 arg-7))))))))))))))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22 (vector 1 (vector 0 arg-3 arg-1 arg-5 arg-4 e-23) arg-7))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (Normalise-Core-case--6700-4332 arg-0 arg-1 arg-2 arg-3 e-28 e-27 e-26 e-25 arg-7 arg-5 arg-4 (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-32 arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-30 e-31 e-5)))))))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (vector 1 (vector 6 e-34 e-35 (vector 0 arg-3 arg-1 arg-5 arg-4 e-36) (vector 0 arg-3 arg-1 arg-5 arg-4 e-37))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-41 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((6) (let ((e-1 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 4))) ((Normalise-Core-eval arg-0 arg-1 arg-2 (vector 1 (vector 1 "fvar") arg-3) arg-4 (vector 1 e-4 arg-5) (vector 0 e-1 (vector 0 ) 0) arg-7) eta-0))))(else (vector 1 (vector 7 e-39 e-40 e-5 arg-7))))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 8 e-43 e-44)))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 9 e-46 e-47)))))) (else (let ((e-49 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 10 e-49))))))))) +(define Normalise-Core-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--6759-4137-closeArgs arg-0 arg-1 arg-3 arg-2 e-14 e-13 e-12 e-11 arg-7 arg-5 arg-4 e-14) arg-7)))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 e-18)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-59 (vector-ref sc2 1))) (let ((e-60 (vector-ref sc2 2))) (Normalise-Core-eval arg-0 arg-1 arg-2 (vector 1 e-17 arg-3) arg-4 (vector 1 e-59 arg-5) e-19 e-60))))(else (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (tm) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 tm (vector 0 ))) e-18) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 e-16 e-17 e-5 (lambda (defsC-39) (lambda (arg) (Normalise-Core-evalWithOpts arg-2 (vector 1 e-17 arg-3) defsC-39 arg-1 arg-4 (vector 1 arg arg-5) e-19 arg-7))))))))))))))) ((1) (let ((e-55 (vector-ref sc1 1))) (let ((e-56 (vector-ref sc1 2))) (let ((e-57 (vector-ref sc1 3))) (let ((b (vector 1 e-55 e-56 e-57))) (Normalise-Core-case--6759-4183 arg-0 arg-1 arg-2 arg-3 e-17 e-19 e-56 e-57 e-55 b e-16 arg-7 arg-5 arg-4 (Prelude-C-38C-38 (Prelude-C-124C-124 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) e-0)) (lambda () (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 2))) e-1)))) (lambda () (Prelude-not (let ((sc2 arg-1)) (let ((e-5 (vector-ref sc2 6))) e-5)))))))))))(else (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (tm) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 tm (vector 0 ))) e-18) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-16 e-17 e-5 (lambda (defsC-39) (lambda (arg) (Normalise-Core-evalWithOpts arg-2 (vector 1 e-17 arg-3) defsC-39 arg-1 arg-4 (vector 1 arg arg-5) e-19 arg-7))))))))))))))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22 (vector 1 (vector 0 arg-3 arg-1 arg-5 arg-4 e-23) arg-7))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (Normalise-Core-case--6759-4340 arg-0 arg-1 arg-2 arg-3 e-28 e-27 e-26 e-25 arg-7 arg-5 arg-4 (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-32 arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-30 e-31 e-5)))))))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (vector 1 (vector 6 e-34 e-35 (vector 0 arg-3 arg-1 arg-5 arg-4 e-36) (vector 0 arg-3 arg-1 arg-5 arg-4 e-37))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-41 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((6) (let ((e-1 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 4))) ((Normalise-Core-eval arg-0 arg-1 arg-2 (vector 1 (vector 1 "fvar") arg-3) arg-4 (vector 1 e-4 arg-5) (vector 0 e-1 (vector 0 ) 0) arg-7) eta-0))))(else (vector 1 (vector 7 e-39 e-40 e-5 arg-7))))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 8 e-43 e-44)))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 9 e-46 e-47)))))) (else (let ((e-49 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 10 e-49))))))))) (define Normalise-Core-convert (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-3) (lambda (arg-4) (lambda (arg-5) (lambda (arg-6) (((((e-1 arg-1) arg-3) arg-4) arg-5) arg-6))))))))) (define Normalise-Core-convGen (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-3) (lambda (arg-4) (lambda (arg-5) (lambda (arg-6) (lambda (arg-7) ((((((e-2 arg-1) arg-3) arg-4) arg-5) arg-6) arg-7)))))))))) -(define Normalise-Core-convBinders (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (Normalise-Core-case--12104-11785 arg-0 e-3 e-2 e-1 e-11 e-10 e-9 arg-3 arg-2 arg-1 (Prelude-not (Normalise-Core-subRig e-1 e-9)))))))(else (Normalise-Core-case--12104-11909 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (TT-Core-multiplicity 'erased arg-4) (TT-Core-multiplicity 'erased arg-5)))))))))) ((0) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((e-15 (vector-ref sc1 3))) (Normalise-Core-case--12104-11849 arg-0 e-7 e-6 e-5 e-15 e-14 e-13 arg-3 arg-2 arg-1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega e-5 e-13))))))(else (Normalise-Core-case--12104-11909 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (TT-Core-multiplicity 'erased arg-4) (TT-Core-multiplicity 'erased arg-5))))))))))(else (Normalise-Core-case--12104-11909 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (TT-Core-multiplicity 'erased arg-4) (TT-Core-multiplicity 'erased arg-5)))))))) -(define Normalise-Core-chkSameDefs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (Context-Core-lookupDefExact arg-4 (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (let ((act-25 (Context-Core-lookupDefExact arg-5 (let ((sc3 arg-2)) (let ((e-0 (vector-ref sc3 1))) e-0)) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 2))) (let ((e-12 (vector-ref sc5 3))) (let ((act-26 ((Normalise-Core-getMatchingVars e-3 e-13 arg-2 (vector 0 ) e-4 e-12) ext-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-15 (vector-ref sc6 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc6 1))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-16 (vector-ref sc7 1))) ((Normalise-Core-n--12094-9819-convertMatches arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-3 e-13 e-16) ext-0))) (else (vector 1 1))))))))))))(else (vector 1 1))))))(else (vector 1 1))))))))))))(else (vector 1 1))))))(else (vector 1 1))))))))))) -(define Normalise-Core-chkConvHead (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Prelude-C-61C-61_Eq__Nat e-3 e-15)))))(else (lambda (eta-0) (vector 1 1))))))) ((1) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (let ((e-19 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Name-Core-C-61C-61_Eq__Name e-7 e-19)))))(else (lambda (eta-0) (vector 1 1))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (Normalise-Core-case--12100-11703 arg-0 e-11 e-10 e-9 e-23 e-22 e-21 arg-3 arg-2 arg-1 (Prelude-C-61C-61_Eq__Int e-10 e-22))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-chkConvCaseBlock (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc2 arg-3)) (let ((e-0 (vector-ref sc2 1))) e-0)) e-2) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((7) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((act-25 ((Context-Core-full_HasNames__Name (let ((sc5 arg-3)) (let ((e-34 (vector-ref sc5 1))) e-34)) e-5) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-0 (vector 0 e-0 (vector 7 e-8 e-7)))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((7) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((act-26 (Normalise-Core-chkSameDefs arg-0 arg-2 arg-3 arg-4 e-2 e-5 arg-6 arg-8 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (let ((_-1 (vector 0 e-11 (vector 7 e-13 e-12)))) (let ((sc9 e-14)) (cond ((equal? sc9 1) (let ((act-27 ((Context-Core-lookupCtxtExact e-2 (let ((sc10 arg-3)) (let ((e-40 (vector-ref sc10 1))) e-40))) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc10 1))) (let ((_-2 1)) (let ((sc11 e-15)) (case (vector-ref sc11 0) ((1) (let ((e-16 (vector-ref sc11 1))) (let ((act-28 ((Context-Core-lookupCtxtExact e-5 (let ((sc12 arg-3)) (let ((e-42 (vector-ref sc12 1))) e-42))) eta-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc12 1))) (let ((_-3 (vector 1 e-16))) (let ((sc13 e-17)) (case (vector-ref sc13 0) ((1) (let ((e-18 (vector-ref sc13 1))) (let ((_-4 (vector 1 e-18))) ((Normalise-Core-case--13875-10565 arg-0 e-4 e-1 e-2 e-5 arg-8 arg-6 arg-4 arg-3 arg-2 arg-1 e-0 e-8 e-7 _-0 e-11 e-13 e-12 _-1 _-2 e-16 _-3 e-18 _-4 (let ((sc14 e-16)) (let ((e-22 (vector-ref sc14 18))) e-22))) eta-0))))(else (vector 1 1))))))))))))(else (vector 1 1))))))))))) (else (vector 1 0)))))))))))))(else (vector 1 1)))))))(else (vector 1 1)))))))))))))(else (vector 1 1)))))))(else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-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--12163-11793 arg-0 e-3 e-2 e-1 e-11 e-10 e-9 arg-3 arg-2 arg-1 (Prelude-not (Normalise-Core-subRig e-1 e-9)))))))(else (Normalise-Core-case--12163-11917 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (TT-Core-multiplicity 'erased arg-4) (TT-Core-multiplicity 'erased arg-5)))))))))) ((0) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((e-15 (vector-ref sc1 3))) (Normalise-Core-case--12163-11857 arg-0 e-7 e-6 e-5 e-15 e-14 e-13 arg-3 arg-2 arg-1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega e-5 e-13))))))(else (Normalise-Core-case--12163-11917 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (TT-Core-multiplicity 'erased arg-4) (TT-Core-multiplicity 'erased arg-5))))))))))(else (Normalise-Core-case--12163-11917 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (TT-Core-multiplicity 'erased arg-4) (TT-Core-multiplicity 'erased arg-5)))))))) +(define Normalise-Core-chkSameDefs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (Context-Core-lookupDefExact arg-4 (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (let ((act-25 (Context-Core-lookupDefExact arg-5 (let ((sc3 arg-2)) (let ((e-0 (vector-ref sc3 1))) e-0)) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 2))) (let ((e-12 (vector-ref sc5 3))) (let ((act-26 ((Normalise-Core-getMatchingVars e-3 e-13 arg-2 (vector 0 ) e-4 e-12) ext-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-15 (vector-ref sc6 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc6 1))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-16 (vector-ref sc7 1))) ((Normalise-Core-n--12153-9827-convertMatches arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-3 e-13 e-16) ext-0))) (else (vector 1 1))))))))))))(else (vector 1 1))))))(else (vector 1 1))))))))))))(else (vector 1 1))))))(else (vector 1 1))))))))))) +(define Normalise-Core-chkConvHead (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Prelude-C-61C-61_Eq__Nat e-3 e-15)))))(else (lambda (eta-0) (vector 1 1))))))) ((1) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (let ((e-19 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Name-Core-C-61C-61_Eq__Name e-7 e-19)))))(else (lambda (eta-0) (vector 1 1))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (Normalise-Core-case--12159-11711 arg-0 e-11 e-10 e-9 e-23 e-22 e-21 arg-3 arg-2 arg-1 (Prelude-C-61C-61_Eq__Int e-10 e-22))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-chkConvCaseBlock (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc2 arg-3)) (let ((e-0 (vector-ref sc2 1))) e-0)) e-2) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((7) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((act-25 ((Context-Core-full_HasNames__Name (let ((sc5 arg-3)) (let ((e-34 (vector-ref sc5 1))) e-34)) e-5) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-0 (vector 0 e-0 (vector 7 e-8 e-7)))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((7) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((act-26 (Normalise-Core-chkSameDefs arg-0 arg-2 arg-3 arg-4 e-2 e-5 arg-6 arg-8 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (let ((_-1 (vector 0 e-11 (vector 7 e-13 e-12)))) (let ((sc9 e-14)) (cond ((equal? sc9 1) (let ((act-27 ((Context-Core-lookupCtxtExact e-2 (let ((sc10 arg-3)) (let ((e-40 (vector-ref sc10 1))) e-40))) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc10 1))) (let ((_-2 1)) (let ((sc11 e-15)) (case (vector-ref sc11 0) ((1) (let ((e-16 (vector-ref sc11 1))) (let ((act-28 ((Context-Core-lookupCtxtExact e-5 (let ((sc12 arg-3)) (let ((e-42 (vector-ref sc12 1))) e-42))) eta-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc12 1))) (let ((_-3 (vector 1 e-16))) (let ((sc13 e-17)) (case (vector-ref sc13 0) ((1) (let ((e-18 (vector-ref sc13 1))) (let ((_-4 (vector 1 e-18))) ((Normalise-Core-case--13934-10573 arg-0 e-4 e-1 e-2 e-5 arg-8 arg-6 arg-4 arg-3 arg-2 arg-1 e-0 e-8 e-7 _-0 e-11 e-13 e-12 _-1 _-2 e-16 _-3 e-18 _-4 (let ((sc14 e-16)) (let ((e-22 (vector-ref sc14 18))) e-22))) eta-0))))(else (vector 1 1))))))))))))(else (vector 1 1))))))))))) (else (vector 1 0)))))))))))))(else (vector 1 1)))))))(else (vector 1 1)))))))))))))(else (vector 1 1)))))))(else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1))))))) (define Normalise-Core-argsFromStack (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 (vector 0 ) arg-4))) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (vector 0 )) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-argsFromStack arg-0 arg-1 'erased e-3 e-7) (lambda (_-0) (let ((sc2 _-0)) (let ((e-5 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (vector 1 e-6 e-5) e-4)))))))))))))))))) (define Normalise-Core-allConv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convGen_Convert__Closure arg-0 arg-1 arg-2 arg-3 e-2 e-6 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-3 e-7) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Prelude-C-38C-38 e-5 (lambda () e-8)))))))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1))))))) (define Normalise-Core-Stack (lambda (arg-0) (vector "Prelude.List" (vector "Core.Value.Closure" arg-0)))) -(define Primitives-Core-case--5781-1385 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 8 arg-3 (vector 7 (string-ref arg-2 arg-4))))) (else (vector 0 )))))) -(define Primitives-Core-case--5535-1142 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (vector 8 arg-2 (vector 5 (Prelude-mod_Integral__Integer arg-1 (Primitives-Core-b64max)))))) (else (vector 1 (vector 8 arg-2 (vector 5 (+ (Primitives-Core-b64max) (Prelude-mod_Integral__Integer arg-1 (Primitives-Core-b64max))))))))))) -(define Primitives-Core-case--5470-1082 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (vector 8 arg-2 (vector 2 (Prelude-mod_Integral__Int arg-1 (Primitives-Core-b32max)))))) (else (vector 1 (vector 8 arg-2 (vector 2 (b+ (Primitives-Core-b32max) (Prelude-mod_Integral__Int arg-1 (Primitives-Core-b32max)) 63))))))))) -(define Primitives-Core-case--5405-1022 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (vector 8 arg-2 (vector 2 (Prelude-mod_Integral__Int arg-1 (Primitives-Core-b16max)))))) (else (vector 1 (vector 8 arg-2 (vector 2 (b+ (Primitives-Core-b16max) (Prelude-mod_Integral__Int arg-1 (Primitives-Core-b16max)) 63))))))))) -(define Primitives-Core-case--5340-962 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (vector 8 arg-2 (vector 2 (Prelude-mod_Integral__Int arg-1 (Primitives-Core-b8max)))))) (else (vector 1 (vector 8 arg-2 (vector 2 (b+ (Primitives-Core-b8max) (Prelude-mod_Integral__Int arg-1 (Primitives-Core-b8max)) 63))))))))) +(define Primitives-Core-case--5840-1393 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 8 arg-3 (vector 7 (string-ref arg-2 arg-4))))) (else (vector 0 )))))) +(define Primitives-Core-case--5594-1150 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (vector 8 arg-2 (vector 5 (Prelude-mod_Integral__Integer arg-1 (Primitives-Core-b64max)))))) (else (vector 1 (vector 8 arg-2 (vector 5 (+ (Primitives-Core-b64max) (Prelude-mod_Integral__Integer arg-1 (Primitives-Core-b64max))))))))))) +(define Primitives-Core-case--5529-1090 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (vector 8 arg-2 (vector 2 (Prelude-mod_Integral__Int arg-1 (Primitives-Core-b32max)))))) (else (vector 1 (vector 8 arg-2 (vector 2 (b+ (Primitives-Core-b32max) (Prelude-mod_Integral__Int arg-1 (Primitives-Core-b32max)) 63))))))))) +(define Primitives-Core-case--5464-1030 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (vector 8 arg-2 (vector 2 (Prelude-mod_Integral__Int arg-1 (Primitives-Core-b16max)))))) (else (vector 1 (vector 8 arg-2 (vector 2 (b+ (Primitives-Core-b16max) (Prelude-mod_Integral__Int arg-1 (Primitives-Core-b16max)) 63))))))))) +(define Primitives-Core-case--5399-970 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (vector 8 arg-2 (vector 2 (Prelude-mod_Integral__Int arg-1 (Primitives-Core-b8max)))))) (else (vector 1 (vector 8 arg-2 (vector 2 (b+ (Primitives-Core-b8max) (Prelude-mod_Integral__Int arg-1 (Primitives-Core-b8max)) 63))))))))) (define Primitives-Core-unaryOp (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (vector 8 e-5 eta-0)) (arg-0 e-6)))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))) (define Prim-Primitives-Core-type (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) (define Prim-Primitives-Core-totality (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))) @@ -3457,7 +3497,7 @@ (define Primitives-Core-strSubstr (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((8) (let ((e-14 (vector-ref sc4 2))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((0) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((1) (let ((e-18 (vector-ref sc6 1))) (let ((e-19 (vector-ref sc6 2))) (let ((sc7 e-18)) (case (vector-ref sc7 0) ((8) (let ((e-22 (vector-ref sc7 2))) (let ((sc8 e-22)) (case (vector-ref sc8 0) ((6) (let ((e-23 (vector-ref sc8 1))) (let ((sc9 e-19)) (case (vector-ref sc9 0) ((0) (vector 1 (vector 8 e-5 (vector 6 (string-substr e-7 e-15 e-23)))))(else (vector 0 ))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))) (define Primitives-Core-strReverse (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((6) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 6 (Prelude-reverse e-7)))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))) (define Primitives-Core-strLength (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((6) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 0 (Prelude-cast_Cast__Nat_Int (Prelude-length e-7))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))) -(define Primitives-Core-strIndex (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((6) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((8) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((0) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((0) (Primitives-Core-case--5781-1385 'erased e-13 e-7 e-5 e-15 (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Int e-15 0) (lambda () (Prelude-C-60_Ord__Nat (Prelude-cast_Cast__Int_Integer e-15) (Prelude-length e-7))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))) +(define Primitives-Core-strIndex (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((6) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((8) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((0) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((0) (Primitives-Core-case--5840-1393 'erased e-13 e-7 e-5 e-15 (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Int e-15 0) (lambda () (Prelude-C-60_Ord__Nat (Prelude-cast_Cast__Int_Integer e-15) (Prelude-length e-7))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))) (define Primitives-Core-strHead (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((6) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 "") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (vector 0 ))(else (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 8 e-5 (vector 7 (string-ref e-7 0)))))(else (vector 0 ))))))))(else (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 7 (string-ref e-7 0)))))(else (vector 0 )))))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))) (define Primitives-Core-strCons (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((7) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((8) (let ((e-14 (vector-ref sc4 2))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((6) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 8 e-5 (vector 6 (Prelude-strCons e-7 e-15)))))(else (vector 0 ))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))) (define Primitives-Core-strAppend (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((6) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((8) (let ((e-14 (vector-ref sc4 2))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((6) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 8 e-5 (vector 6 (Strings-Prelude-C-43C-43 e-7 e-15)))))(else (vector 0 ))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))) @@ -3490,7 +3530,7 @@ (define Primitives-Core-doubleASin (lambda (arg-0 ext-0) (Primitives-Core-doubleOp 'erased (lambda (eta-0) (Prelude-asin eta-0)) ext-0))) (define Primitives-Core-doubleACos (lambda (arg-0 ext-0) (Primitives-Core-doubleOp 'erased (lambda (eta-0) (Prelude-acos eta-0)) ext-0))) (define Primitives-Core-div (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((sc2 e-3)) (cond ((equal? sc2 0) (vector 0 ))(else (Prelude-pure_Applicative__Maybe 'erased (vector 1 (Prelude-div_Integral__Integer e-0 e-3))))))))(else (vector 0 )))))) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 e-4)) (cond ((equal? sc2 0) (vector 0 ))(else (Prelude-pure_Applicative__Maybe 'erased (vector 0 (Prelude-div_Integral__Int e-1 e-4))))))))(else (vector 0 )))))) ((8) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 8 (Prelude-C-47_Fractional__Double e-2 e-5)))))(else (vector 0 ))))))(else (vector 0 )))))) -(define Primitives-Core-crashTy (lambda () (vector 3 (FC-Core-emptyFC) (vector 1 "a") (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 11 (FC-Core-emptyFC))) (vector 3 (FC-Core-emptyFC) (vector 1 "msg") (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 9 (FC-Core-emptyFC) (vector 16 ))) (vector 0 (FC-Core-emptyFC) (vector 0 ) (+ 1 0)))))) +(define Primitives-Core-crashTy (lambda () (vector 3 (FC-Core-emptyFC) (vector 1 "a") (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 11 (FC-Core-emptyFC))) (vector 3 (FC-Core-emptyFC) (vector 1 "msg") (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 9 (FC-Core-emptyFC) (vector 16 ))) (vector 0 (FC-Core-emptyFC) (vector 0 ) (+ 1 0)))))) (define Primitives-Core-constTy3 (lambda (arg-0 arg-1 arg-2 arg-3) (TT-Core-linFnType (vector 0 ) (vector 9 (FC-Core-emptyFC) arg-0) (TT-Core-linFnType (vector 0 ) (vector 9 (FC-Core-emptyFC) arg-1) (TT-Core-linFnType (vector 0 ) (vector 9 (FC-Core-emptyFC) arg-2) (vector 9 (FC-Core-emptyFC) arg-3)))))) (define Primitives-Core-constTy (lambda (arg-0 arg-1 arg-2) (TT-Core-linFnType (vector 0 ) (vector 9 (FC-Core-emptyFC) arg-0) (TT-Core-linFnType (vector 0 ) (vector 9 (FC-Core-emptyFC) arg-1) (vector 9 (FC-Core-emptyFC) arg-2))))) (define Primitives-Core-cmpTy (lambda (arg-0) (Primitives-Core-constTy arg-0 arg-0 (vector 10 )))) @@ -3500,14 +3540,14 @@ (define Primitives-Core-castInt (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 0 e-7))))(else (vector 0 )))))) ((2) (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 0 e-8))))(else (vector 0 )))))) ((3) (let ((e-9 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 0 e-9))))(else (vector 0 )))))) ((4) (let ((e-10 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 0 e-10))))(else (vector 0 )))))) ((8) (let ((e-11 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 0 (Prelude-cast_Cast__Double_Int e-11)))))(else (vector 0 )))))) ((7) (let ((e-12 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 0 (Prelude-cast_Cast__Char_Int e-12)))))(else (vector 0 )))))) ((6) (let ((e-13 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 0 (Prelude-cast_Cast__String_Int e-13)))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))) (define Primitives-Core-castDouble (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 8 (Prelude-cast_Cast__Int_Double e-7)))))(else (vector 0 )))))) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 8 (Prelude-cast_Cast__Integer_Double e-8)))))(else (vector 0 )))))) ((6) (let ((e-9 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 8 (Prelude-cast_Cast__String_Double e-9)))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))) (define Primitives-Core-castChar (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 7 (Prelude-cast_Cast__Int_Char e-7)))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))) -(define Primitives-Core-castBits8 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (Primitives-Core-case--5340-962 'erased e-7 e-5 (Prelude-C-62_Ord__Integer e-7 0)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))) -(define Primitives-Core-castBits64 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (Primitives-Core-case--5535-1142 'erased e-7 e-5 (Prelude-C-62_Ord__Integer e-7 0)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))) -(define Primitives-Core-castBits32 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (Primitives-Core-case--5470-1082 'erased e-7 e-5 (Prelude-C-62_Ord__Integer e-7 0)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))) -(define Primitives-Core-castBits16 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (Primitives-Core-case--5405-1022 'erased e-7 e-5 (Prelude-C-62_Ord__Integer e-7 0)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))) +(define Primitives-Core-castBits8 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (Primitives-Core-case--5399-970 'erased e-7 e-5 (Prelude-C-62_Ord__Integer e-7 0)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))) +(define Primitives-Core-castBits64 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (Primitives-Core-case--5594-1150 'erased e-7 e-5 (Prelude-C-62_Ord__Integer e-7 0)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))) +(define Primitives-Core-castBits32 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (Primitives-Core-case--5529-1090 'erased e-7 e-5 (Prelude-C-62_Ord__Integer e-7 0)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))) +(define Primitives-Core-castBits16 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (Primitives-Core-case--5464-1030 'erased e-7 e-5 (Prelude-C-62_Ord__Integer e-7 0)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))) (define Primitives-Core-bxor (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (blodwen-xor e-0 e-4)))))(else (vector 0 )))))) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 2 (blodwen-xor e-1 e-5)))))(else (vector 0 )))))) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 3 (blodwen-xor e-2 e-6)))))(else (vector 0 )))))) ((4) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-7 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 4 (blodwen-xor e-3 e-7)))))(else (vector 0 ))))))(else (vector 0 )))))) (define Primitives-Core-bor (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (blodwen-or e-0 e-6)))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (blodwen-or e-1 e-7)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 2 (blodwen-or e-2 e-8)))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 3 (blodwen-or e-3 e-9)))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-10 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 4 (blodwen-or e-4 e-10)))))(else (vector 0 )))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-11 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 5 (blodwen-or e-5 e-11)))))(else (vector 0 ))))))(else (vector 0 )))))) (define Primitives-Core-binOp (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((8) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((0) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (vector 8 e-5 eta-0)) ((arg-0 e-6) e-13)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))) -(define Primitives-Core-believeMeTy (lambda () (vector 3 (FC-Core-emptyFC) (vector 1 "a") (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 11 (FC-Core-emptyFC))) (vector 3 (FC-Core-emptyFC) (vector 1 "b") (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 11 (FC-Core-emptyFC))) (vector 3 (FC-Core-emptyFC) (vector 1 "x") (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 (FC-Core-emptyFC) (vector 0 ) (+ 1 0))) (vector 0 (FC-Core-emptyFC) (vector 0 ) (+ 1 0))))))) +(define Primitives-Core-believeMeTy (lambda () (vector 3 (FC-Core-emptyFC) (vector 1 "a") (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 11 (FC-Core-emptyFC))) (vector 3 (FC-Core-emptyFC) (vector 1 "b") (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 11 (FC-Core-emptyFC))) (vector 3 (FC-Core-emptyFC) (vector 1 "x") (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 (FC-Core-emptyFC) (vector 0 ) (+ 1 0))) (vector 0 (FC-Core-emptyFC) (vector 0 ) (+ 1 0))))))) (define Primitives-Core-believeMe (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((2) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((0) (vector 1 e-10))(else (let ((sc4 e-11)) (vector 0 )))))) ((3) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((0) (vector 1 e-10))(else (let ((sc4 e-11)) (vector 0 )))))) ((8) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((0) (vector 1 e-10))(else (let ((sc4 e-11)) (vector 0 )))))) ((10) (let ((e-29 (vector-ref sc3 1))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 10 e-29)))(else (let ((sc4 e-11)) (vector 0 )))))))(else (let ((sc3 e-11)) (vector 0 )))))))))))))) (define Primitives-Core-band (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (blodwen-and e-0 e-6)))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (blodwen-and e-1 e-7)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 2 (blodwen-and e-2 e-8)))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 3 (blodwen-and e-3 e-9)))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-10 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 4 (blodwen-and e-4 e-10)))))(else (vector 0 )))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-11 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 5 (blodwen-and e-5 e-11)))))(else (vector 0 ))))))(else (vector 0 )))))) (define Primitives-Core-b8max (lambda () 256)) @@ -3518,77 +3558,78 @@ (define Primitives-Core-arithTy (lambda (arg-0) (Primitives-Core-constTy arg-0 arg-0 arg-0))) (define Primitives-Core-allPrimitives (lambda () (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 0 t) (Primitives-Core-arithTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 0 )))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 1 t) (Primitives-Core-arithTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 0 )))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 2 t) (Primitives-Core-arithTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 1 (vector 18 ) (vector 0 ))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 3 t) (Primitives-Core-arithTy t) (TT-Core-notCovering))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 1 (vector 18 ) (vector 0 ))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 4 t) (Primitives-Core-arithTy t) (TT-Core-notCovering))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 )))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 5 t) (Primitives-Core-predTy t t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 18 ) (vector 0 ))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 6 t) (Primitives-Core-arithTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 )))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 7 t) (Primitives-Core-arithTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 )))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 8 t) (Primitives-Core-arithTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 )))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 9 t) (Primitives-Core-arithTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 )))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 10 t) (Primitives-Core-arithTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 0 )))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 11 t) (Primitives-Core-cmpTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 1 (vector 16 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 ))))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 12 t) (Primitives-Core-cmpTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 1 (vector 16 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 ))))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 13 t) (Primitives-Core-cmpTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 1 (vector 16 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 ))))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 14 t) (Primitives-Core-cmpTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 1 (vector 16 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 ))))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 15 t) (Primitives-Core-cmpTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 1 (vector 16 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 ))))))))))) (List-Prelude-C-43C-43 'erased (vector 1 (vector 0 (+ 1 0) (vector 16 ) (Primitives-Core-predTy (vector 16 ) (vector 10 )) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 17 ) (Primitives-Core-predTy (vector 16 ) (vector 17 )) (TT-Core-notCovering)) (vector 1 (vector 0 (+ 1 0) (vector 18 ) (Primitives-Core-predTy (vector 16 ) (vector 16 )) (TT-Core-notCovering)) (vector 1 (vector 0 (+ 1 (+ 1 0)) (vector 19 ) (Primitives-Core-constTy (vector 16 ) (vector 10 ) (vector 17 )) (TT-Core-notCovering)) (vector 1 (vector 0 (+ 1 (+ 1 0)) (vector 20 ) (Primitives-Core-constTy (vector 17 ) (vector 16 ) (vector 16 )) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 (+ 1 0)) (vector 21 ) (Primitives-Core-arithTy (vector 16 )) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 22 ) (Primitives-Core-predTy (vector 16 ) (vector 16 )) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 (+ 1 (+ 1 0))) (vector 23 ) (Primitives-Core-constTy3 (vector 10 ) (vector 10 ) (vector 16 ) (vector 16 )) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 (+ 1 (+ 1 0))) (vector 36 ) (Primitives-Core-believeMeTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 (+ 1 0)) (vector 37 ) (Primitives-Core-crashTy) (TT-Core-notCovering)) (vector 0 ))))))))))) (List-Prelude-C-43C-43 'erased (vector 1 (vector 0 (+ 1 0) (vector 24 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 25 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 26 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 27 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 28 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 29 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 30 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 31 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 32 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 33 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 34 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 0 )))))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 16 )) (Primitives-Core-predTy t (vector 16 )) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 0 )))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 11 )) (Primitives-Core-predTy t (vector 11 )) (TT-Core-isTotal))) (vector 1 (vector 16 ) (vector 1 (vector 10 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 0 )))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 10 )) (Primitives-Core-predTy t (vector 10 )) (TT-Core-isTotal))) (vector 1 (vector 16 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 0 ))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 18 )) (Primitives-Core-predTy t (vector 18 )) (TT-Core-isTotal))) (vector 1 (vector 16 ) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 0 ))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 17 )) (Primitives-Core-predTy t (vector 17 )) (TT-Core-isTotal))) (vector 1 (vector 16 ) (vector 1 (vector 10 ) (vector 0 )))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 12 )) (Primitives-Core-predTy t (vector 12 )) (TT-Core-isTotal))) (vector 1 (vector 11 ) (vector 0 ))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 13 )) (Primitives-Core-predTy t (vector 13 )) (TT-Core-isTotal))) (vector 1 (vector 11 ) (vector 0 ))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 14 )) (Primitives-Core-predTy t (vector 14 )) (TT-Core-isTotal))) (vector 1 (vector 11 ) (vector 0 ))) (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 15 )) (Primitives-Core-predTy t (vector 15 )) (TT-Core-isTotal))) (vector 1 (vector 11 ) (vector 0 ))))))))))))))))))))))))))))))) (define Primitives-Core-add (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (+ e-0 e-8)))))(else (vector 0 )))))) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (b+ e-1 e-9 63)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-10 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 2 (Prelude-mod_Integral__Int (b+ e-2 e-10 63) (Primitives-Core-b8max))))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-11 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 3 (Prelude-mod_Integral__Int (b+ e-3 e-11 63) (Primitives-Core-b16max))))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-12 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 4 (Prelude-mod_Integral__Int (b+ e-4 e-12 63) (Primitives-Core-b32max))))))(else (vector 0 )))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-13 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 5 (Prelude-mod_Integral__Integer (+ e-5 e-13) (Primitives-Core-b64max))))))(else (vector 0 )))))) ((7) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-14 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 7 (Prelude-cast_Cast__Int_Char (b+ (Prelude-cast_Cast__Char_Int e-6) (Prelude-cast_Cast__Char_Int e-14) 63))))))(else (vector 0 )))))) ((8) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-15 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 8 (Prelude-C-43_Num__Double e-7 e-15)))))(else (vector 0 ))))))(else (vector 0 )))))) -(define Binary-Core-case--13593-7541 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (Binary-Core-getImportHashes arg-0 e-5 eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 e-6))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 0 )))) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Binary-Core-case--13539-7490 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (Binary-Core-getHash arg-0 e-5 eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 e-6))))))) (lambda (err) (lambda (eta-1) (vector 1 0))) eta-0))))))))) (else (lambda (eta-0) (vector 1 0))))))) -(define Binary-Core-case--12708-7317 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 (vector 1 (vector 0 arg-4 (vector 0 arg-3 (vector 0 arg-5 arg-2))) e-18) e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Binary-Core-case--12932-7184 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32) (let ((sc0 arg-32)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (let ((sc1 arg-16)) (let ((e-19 (vector-ref sc1 9))) e-19)) e-7 e-8 e-9))))))))))))) -(define Binary-Core-case--12761-6890 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-17 (vector 0 (let ((sc1 arg-16)) (let ((e-2 (vector-ref sc1 2))) e-2)) (let ((sc1 arg-16)) (let ((e-8 (vector-ref sc1 8))) e-8)))))))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Binary-Core-addGlobalDef arg-9 arg-3 arg-15 eta-1)) (let ((sc1 arg-16)) (let ((e-4 (vector-ref sc1 4))) e-4))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addUserHole arg-9 eta-1 eta-2))) (let ((sc2 arg-16)) (let ((e-19 (vector-ref sc2 5))) e-19))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-setNS arg-9 (let ((sc3 arg-16)) (let ((e-10 (vector-ref sc3 10))) e-10)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (let ((sc4 arg-7)) (cond ((equal? sc4 0) (Context-Core-setNestedNS arg-9 (let ((sc5 arg-16)) (let ((e-11 (vector-ref sc5 11))) e-11)) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Binary-Core-addTypeHint arg-9 arg-6 eta-1)) (let ((sc5 arg-16)) (let ((e-20 (vector-ref sc5 7))) e-20))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Binary-Core-addAutoHint arg-9 eta-1)) (let ((sc6 arg-16)) (let ((e-22 (vector-ref sc6 6))) e-22))) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-30 (Binary-Core-updatePair arg-9 (let ((sc7 arg-16)) (let ((e-12 (vector-ref sc7 12))) e-12)) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-31 (Binary-Core-updateRewrite arg-9 (let ((sc8 arg-16)) (let ((e-13 (vector-ref sc8 13))) e-13)) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-32 (Binary-Core-updatePrims arg-9 (let ((sc9 arg-16)) (let ((e-14 (vector-ref sc9 14))) e-14)) eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((act-33 ((Binary-Core-updateNameDirectives arg-9 (List-Data-reverse 'erased (let ((sc10 arg-16)) (let ((e-15 (vector-ref sc10 15))) e-15)))) eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-34 (Binary-Core-updateCGDirectives arg-9 (let ((sc11 arg-16)) (let ((e-16 (vector-ref sc11 16))) e-16)) eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((act-35 ((Binary-Core-updateTransforms arg-9 (let ((sc12 arg-16)) (let ((e-17 (vector-ref sc12 17))) e-17))) eta-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((act-36 (let ((sc13 (Prelude-not arg-5))) (cond ((equal? sc13 0) (Context-Core-clearSavedHints arg-9 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((act-37 (Context-Core-resetFirstEntry arg-9 eta-0))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((act-38 (let ((act-38 (unbox arg-8))) (vector 1 act-38)))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc15 1))) (let ((act-39 (let ((act-39 (set-box! arg-8 (let ((sc16 e-19)) (let ((e-0 (vector-ref sc16 1))) (let ((e-1 (vector-ref sc16 2))) (let ((e-2 (vector-ref sc16 3))) (let ((e-3 (vector-ref sc16 4))) (let ((e-4 (vector-ref sc16 5))) (let ((e-24 (vector-ref sc16 6))) (let ((e-22 (vector-ref sc16 8))) (let ((e-21 (vector-ref sc16 9))) (let ((e-20 (vector-ref sc16 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-24 (let ((sc17 arg-16)) (let ((e-34 (vector-ref sc17 9))) e-34)) e-22 e-21 e-20)))))))))))))) (vector 1 act-39)))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (vector 1 (vector 1 (vector 0 arg-17 (vector 0 (let ((sc17 arg-16)) (let ((e-2 (vector-ref sc17 2))) e-2)) (let ((sc17 arg-16)) (let ((e-31 (vector-ref sc17 8))) e-31))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Binary-Core-case--12761-6788 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 arg-2)))))) -(define Binary-Core-case--12708-6743 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((as (let ((_-0 (vector 1 e-2))) (Binary-Core-case--12761-6788 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2 _-0 e-5 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-2 arg-3))))) (let ((act-25 (Binary-Core-readTTCFile 'erased arg-1 arg-9 arg-3 as e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((ex (let ((sc3 e-6)) (let ((e-18 (vector-ref sc3 18))) e-18)))) (let ((_-0 (vector 1 e-2))) ((Binary-Core-case--12761-6890 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2 _-0 e-5 as e-6 ex (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 arg-3 arg-2) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Binary-Core-getNSas eta-1)) (let ((sc3 arg-10)) (let ((e-18 (vector-ref sc3 19))) e-18))))) eta-0))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-4 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0)))))))) -(define Binary-Core-case--12650-6697 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-9 (let ((sc1 arg-10)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 (vector 1 (vector 0 arg-4 (vector 0 arg-3 (vector 0 arg-5 arg-2))) e-18) e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Binary-Utils-readFromFile arg-4 eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((as (let ((_-0 (vector 1 e-2))) (Binary-Core-case--12761-6788 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 e-2 _-0 e-7 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-2 arg-3))))) (let ((act-27 (Binary-Core-readTTCFile 'erased arg-1 arg-9 arg-3 as e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (let ((ex (let ((sc6 e-8)) (let ((e-18 (vector-ref sc6 18))) e-18)))) (let ((_-0 (vector 1 e-2))) ((Binary-Core-case--12761-6890 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 e-2 _-0 e-7 as e-8 ex (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 arg-3 arg-2) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Binary-Core-getNSas eta-1)) (let ((sc6 arg-10)) (let ((e-18 (vector-ref sc6 19))) e-18))))) eta-0)))))))))))))))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-4 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-7)))) eta-0))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Binary-Core-case--12443-6582 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-4 arg-7) e-12) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Binary-Core-case--12443-6510 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-4 (vector 0 )) e-12) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Binary-Core-case--12428-6458 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (set-box! arg-3 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-4 (vector 0 )) e-12) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (set-box! arg-3 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-26 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-26 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-4 e-2) e-12) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24))))))))) -(define Binary-Core-case--12345-6422 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 arg-3 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) -(define Binary-Core-case--12265-6355 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 (NameMap-Data-insert 'erased arg-0 arg-1 e-14) e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Binary-Core-case--12203-6287 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 (Binary-Core-updatePrimNames arg-0 e-32) e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))) -(define Binary-Core-case--12176-6215 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (let ((sc1 arg-0)) (let ((e-5 (vector-ref sc1 1))) e-5)) e-0) (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 2))) e-4)) e-1) (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (let ((sc1 arg-0)) (let ((e-3 (vector-ref sc1 3))) e-3)) e-2)))))))) -(define Binary-Core-case--12109-6195 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 e-29 e-30 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-0 e-31) e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))) -(define Binary-Core-case--12042-6130 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 e-29 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-0 e-30) e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))) -(define Binary-Core-case--11966-6064 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (NameMap-Data-insert 'erased arg-4 arg-1 e-8) e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Binary-Core-case--11758-5901 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (Context-Core-addContextEntry arg-4 (Binary-Core-asName arg-3 arg-2 arg-0) arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))) -(define Binary-Core-case--11770-5830 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) 1) ((7) 1)(else 0))))) -(define Binary-Core-case--11577-5744 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0)))))))) -(define Binary-Core-case--11474-5563 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((4) (Binary-Core-getSaveDefs arg-1 arg-3 arg-2))(else (lambda (eta-0) (let ((act-24 (Binary-Utils-initBinaryS 16384 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (Context-Core-full_HasNames__GlobalDef (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) arg-4 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (TTC-Core-toBuf_TTC__GlobalDef e-5 e-6 eta-0)))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (unbox e-5))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((Binary-Core-getSaveDefs arg-1 (vector 1 (vector 0 (let ((sc3 arg-4)) (let ((e-1 (vector-ref sc3 2))) e-1)) e-7) arg-3) arg-2) eta-0))))))))))))))))))))) -(define Binary-Core-case--11454-5550 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Binary-Core-case--11474-5563 arg-0 arg-1 arg-2 arg-3 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (Binary-Core-getSaveDefs arg-1 arg-3 arg-2)))))) -(define Binary-Core-case--10859-4916 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 arg-0 arg-1)) (else (vector 0 arg-2 arg-1)))))) -(define Binary-Core-n--10022-4105-resolved_aux (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (List-Data-reverse 'erased arg-5)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) (((e-4 arg-4) e-2) eta-0))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Binary-Core-n--10022-4105-resolved_aux 'erased arg-1 arg-2 arg-3 arg-4 (vector 1 e-5 arg-5) e-3) eta-0)))))))))))))) -(define Binary-Core-n--10445-4716-resolvedRW (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-21 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-resolved_HasNames__Name arg-21 e-4) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-5 e-6))))))))))))))))))))))) -(define Binary-Core-n--10445-4717-resolvedPrim (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-21 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-21 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-21 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 e-6 e-7)))))))))))))))))))))))) -(define Binary-Core-n--10445-4715-resolvedPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-21 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-resolved_HasNames__Name arg-21 e-4) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((Context-Core-resolved_HasNames__Name arg-21 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 (vector 0 e-6 e-7 e-8))))))))))))))))))))))))))))) -(define Binary-Core-n--10021-4076-full_aux (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (List-Data-reverse 'erased arg-5)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (((e-1 arg-4) e-2) eta-0))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Binary-Core-n--10021-4076-full_aux 'erased arg-1 arg-2 arg-3 arg-4 (vector 1 e-5 arg-5) e-3) eta-0)))))))))))))) -(define Binary-Core-n--10444-4522-fullRW (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-21 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-full_HasNames__Name arg-21 e-4) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-5 e-6))))))))))))))))))))))) -(define Binary-Core-n--10444-4523-fullPrim (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-21 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-21 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-21 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 e-6 e-7)))))))))))))))))))))))) -(define Binary-Core-n--10444-4521-fullPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-21 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-full_HasNames__Name arg-21 e-4) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((Context-Core-full_HasNames__Name arg-21 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 (vector 0 e-6 e-7 e-8))))))))))))))))))))))))))))) -(define Binary-Core-n--11758-5821-completeDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (Binary-Core-case--11770-5830 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 (let ((sc1 e-2)) (let ((e-17 (vector-ref sc1 18))) e-17))))))))) -(define Binary-Core-n--12411-6442-addT (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Core-case--12428-6458 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 e-5 (NameMap-Data-lookup 'erased arg-4 (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 13))) e-12)))) ext-0)))))))) +(define Binary-Core-case--13705-8028 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (Binary-Core-getImportHashes arg-0 e-5 eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 e-6))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 0 )))) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Binary-Core-case--13651-7977 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (Binary-Core-getHash arg-0 e-5 eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 e-6))))))) (lambda (err) (lambda (eta-1) (vector 1 0))) eta-0))))))))) (else (lambda (eta-0) (vector 1 0))))))) +(define Binary-Core-case--12845-7804 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 (vector 1 (vector 0 arg-4 (vector 0 arg-3 (vector 0 arg-5 arg-2))) e-18) e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Binary-Core-case--13049-7685 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (let ((sc1 arg-16)) (let ((e-19 (vector-ref sc1 9))) e-19)) e-7 e-8 e-9))))))))))))) +(define Binary-Core-case--12898-7379 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-17 (vector 0 (let ((sc1 arg-16)) (let ((e-2 (vector-ref sc1 2))) e-2)) (let ((sc1 arg-16)) (let ((e-8 (vector-ref sc1 8))) e-8)))))))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Binary-Core-addGlobalDef arg-9 arg-3 arg-15 eta-1)) (let ((sc1 arg-16)) (let ((e-4 (vector-ref sc1 4))) e-4))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addUserHole arg-9 eta-1 eta-2))) (let ((sc2 arg-16)) (let ((e-19 (vector-ref sc2 5))) e-19))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-setNS arg-9 (let ((sc3 arg-16)) (let ((e-10 (vector-ref sc3 10))) e-10)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (let ((sc4 arg-7)) (cond ((equal? sc4 0) (Context-Core-setNestedNS arg-9 (let ((sc5 arg-16)) (let ((e-11 (vector-ref sc5 11))) e-11)) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (let ((sc5 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) arg-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased (Binary-Core-getNSas eta-1))) (let ((sc6 arg-10)) (let ((e-18 (vector-ref sc6 19))) e-18))))))) (cond ((equal? sc5 0) (let ((act-28 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Binary-Core-addTypeHint arg-9 arg-6 eta-1)) (let ((sc6 arg-16)) (let ((e-20 (vector-ref sc6 7))) e-20))) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-29 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Binary-Core-addAutoHint arg-9 eta-1)) (let ((sc7 arg-16)) (let ((e-22 (vector-ref sc7 6))) e-22))) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-30 (Binary-Core-updatePair arg-9 (let ((sc8 arg-16)) (let ((e-12 (vector-ref sc8 12))) e-12)) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-31 (Binary-Core-updateRewrite arg-9 (let ((sc9 arg-16)) (let ((e-13 (vector-ref sc9 13))) e-13)) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((act-32 (Binary-Core-updatePrims arg-9 (let ((sc10 arg-16)) (let ((e-14 (vector-ref sc10 14))) e-14)) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-33 ((Binary-Core-updateNameDirectives arg-9 (List-Data-reverse 'erased (let ((sc11 arg-16)) (let ((e-15 (vector-ref sc11 15))) e-15)))) eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((act-34 (Binary-Core-updateCGDirectives arg-9 (let ((sc12 arg-16)) (let ((e-16 (vector-ref sc12 16))) e-16)) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else ((Binary-Core-updateTransforms arg-9 (let ((sc13 arg-16)) (let ((e-17 (vector-ref sc13 17))) e-17))) eta-0)))))))))))))))))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 (let ((sc6 (Prelude-not arg-5))) (cond ((equal? sc6 0) (Context-Core-clearSavedHints arg-9 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-30 (Context-Core-resetFirstEntry arg-9 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-31 (let ((act-31 (unbox arg-8))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (let ((act-32 (set-box! arg-8 (let ((sc9 e-12)) (let ((e-0 (vector-ref sc9 1))) (let ((e-1 (vector-ref sc9 2))) (let ((e-2 (vector-ref sc9 3))) (let ((e-3 (vector-ref sc9 4))) (let ((e-4 (vector-ref sc9 5))) (let ((e-17 (vector-ref sc9 6))) (let ((e-15 (vector-ref sc9 8))) (let ((e-14 (vector-ref sc9 9))) (let ((e-13 (vector-ref sc9 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-17 (let ((sc10 arg-16)) (let ((e-27 (vector-ref sc10 9))) e-27)) e-15 e-14 e-13)))))))))))))) (vector 1 act-32)))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (vector 1 (vector 1 (vector 0 arg-17 (vector 0 (let ((sc10 arg-16)) (let ((e-2 (vector-ref sc10 2))) e-2)) (let ((sc10 arg-16)) (let ((e-24 (vector-ref sc10 8))) e-24))))))))))))))))))))))))))))))))))))))))))))))))) +(define Binary-Core-case--12898-7298 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 arg-2)))))) +(define Binary-Core-case--12845-7253 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((as (let ((_-0 (vector 1 e-2))) (Binary-Core-case--12898-7298 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2 _-0 e-5 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-2 arg-3))))) (let ((act-25 (Binary-Core-readTTCFile 'erased arg-1 arg-9 arg-4 as e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((ex (let ((sc3 e-6)) (let ((e-18 (vector-ref sc3 18))) e-18)))) (let ((_-0 (vector 1 e-2))) ((Binary-Core-case--12898-7379 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2 _-0 e-5 as e-6 ex (Binary-Core-n--12647-7041-alreadyDone 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-3 arg-2 (let ((sc3 arg-10)) (let ((e-18 (vector-ref sc3 19))) e-18)))) eta-0))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-4 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0)))))))) +(define Binary-Core-case--12647-7207 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-9 (let ((sc1 arg-10)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 (vector 1 (vector 0 arg-4 (vector 0 arg-3 (vector 0 arg-5 arg-2))) e-18) e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Binary-Utils-readFromFile arg-4 eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((as (let ((_-0 (vector 1 e-2))) (Binary-Core-case--12898-7298 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 e-2 _-0 e-7 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-2 arg-3))))) (let ((act-27 (Binary-Core-readTTCFile 'erased arg-1 arg-9 arg-4 as e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (let ((ex (let ((sc6 e-8)) (let ((e-18 (vector-ref sc6 18))) e-18)))) (let ((_-0 (vector 1 e-2))) ((Binary-Core-case--12898-7379 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 e-2 _-0 e-7 as e-8 ex (Binary-Core-n--12647-7041-alreadyDone 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-3 arg-2 (let ((sc6 arg-10)) (let ((e-18 (vector-ref sc6 19))) e-18)))) eta-0)))))))))))))))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-4 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-7)))) eta-0))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Binary-Core-case--12663-7092 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) 0) (else (Binary-Core-n--12647-7041-alreadyDone 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-16 arg-15 arg-14)))))) +(define Binary-Core-case--12440-6970 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-4 arg-7) e-12) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Binary-Core-case--12440-6898 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-4 (vector 0 )) e-12) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Binary-Core-case--12425-6846 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (set-box! arg-3 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-4 (vector 0 )) e-12) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (set-box! arg-3 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-26 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-26 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-4 e-2) e-12) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24))))))))) +(define Binary-Core-case--12342-6810 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 arg-3 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) +(define Binary-Core-case--12262-6743 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 (NameMap-Data-insert 'erased arg-0 arg-1 e-14) e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Binary-Core-case--12200-6675 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 (Binary-Core-updatePrimNames arg-0 e-32) e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))) +(define Binary-Core-case--12173-6603 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (let ((sc1 arg-0)) (let ((e-5 (vector-ref sc1 1))) e-5)) e-0) (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 2))) e-4)) e-1) (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (let ((sc1 arg-0)) (let ((e-3 (vector-ref sc1 3))) e-3)) e-2)))))))) +(define Binary-Core-case--12106-6583 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 e-29 e-30 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-0 e-31) e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))) +(define Binary-Core-case--12039-6518 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 e-29 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-0 e-30) e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))) +(define Binary-Core-case--11963-6452 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (NameMap-Data-insert 'erased arg-4 arg-1 e-8) e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Binary-Core-case--11744-6287 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (Context-Core-addContextEntry arg-4 arg-0 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))) +(define Binary-Core-case--11756-6205 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) 1) ((7) 1)(else 0))))) +(define Binary-Core-case--11563-6119 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0)))))))) +(define Binary-Core-case--11460-5938 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((4) (Binary-Core-getSaveDefs arg-1 arg-3 arg-2))(else (lambda (eta-0) (let ((act-24 (Binary-Utils-initBinaryS 16384 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (Context-Core-full_HasNames__GlobalDef (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) arg-4 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (TTC-Core-toBuf_TTC__GlobalDef e-5 e-6 eta-0)))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (unbox e-5))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((Binary-Core-getSaveDefs arg-1 (vector 1 (vector 0 (let ((sc3 arg-4)) (let ((e-1 (vector-ref sc3 2))) e-1)) e-7) arg-3) arg-2) eta-0))))))))))))))))))))) +(define Binary-Core-case--11440-5925 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Binary-Core-case--11460-5938 arg-0 arg-1 arg-2 arg-3 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (Binary-Core-getSaveDefs arg-1 arg-3 arg-2)))))) +(define Binary-Core-n--10061-4528-resolved_aux (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (List-Data-reverse 'erased arg-5)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) (((e-4 arg-4) e-2) eta-0))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Binary-Core-n--10061-4528-resolved_aux 'erased arg-1 arg-2 arg-3 arg-4 (vector 1 e-5 arg-5) e-3) eta-0)))))))))))))) +(define Binary-Core-n--10484-5139-resolvedRW (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-21 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-resolved_HasNames__Name arg-21 e-4) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-5 e-6))))))))))))))))))))))) +(define Binary-Core-n--10484-5140-resolvedPrim (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) arg-21 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) arg-21 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) arg-21 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 e-6 e-7)))))))))))))))))))))))) +(define Binary-Core-n--10484-5138-resolvedPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-21 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-resolved_HasNames__Name arg-21 e-4) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((Context-Core-resolved_HasNames__Name arg-21 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 (vector 0 e-6 e-7 e-8))))))))))))))))))))))))))))) +(define Binary-Core-n--10060-4499-full_aux (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (List-Data-reverse 'erased arg-5)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (((e-1 arg-4) e-2) eta-0))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Binary-Core-n--10060-4499-full_aux 'erased arg-1 arg-2 arg-3 arg-4 (vector 1 e-5 arg-5) e-3) eta-0)))))))))))))) +(define Binary-Core-n--10483-4945-fullRW (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-21 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-full_HasNames__Name arg-21 e-4) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-5 e-6))))))))))))))))))))))) +(define Binary-Core-n--10483-4946-fullPrim (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) arg-21 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) arg-21 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) arg-21 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 e-6 e-7)))))))))))))))))))))))) +(define Binary-Core-n--10483-4944-fullPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-21 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-full_HasNames__Name arg-21 e-4) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((Context-Core-full_HasNames__Name arg-21 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 (vector 0 e-6 e-7 e-8))))))))))))))))))))))))))))) +(define Binary-Core-n--11744-6196-completeDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (Binary-Core-case--11756-6205 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 (let ((sc1 e-2)) (let ((e-17 (vector-ref sc1 18))) e-17))))))))) +(define Binary-Core-n--12647-7041-alreadyDone (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (Binary-Core-case--12663-7092 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-14 e-6 e-10 e-15 e-3 arg-11 arg-10 (Prelude-C-124C-124 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-10 e-10) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-11 e-15))) (lambda () (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-10 e-10) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-10 arg-11)))))))))))))))))))))) +(define Binary-Core-n--12408-6830-addT (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Core-case--12425-6846 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 e-5 (NameMap-Data-lookup 'erased arg-4 (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 13))) e-12)))) ext-0)))))))) (define Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-0 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-resolved_HasNames__Transform arg-0 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))))))) (define Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-0 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5 e-3))))))))))))) (define Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-124C-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-0 e-2) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-resolved_HasNames__Name arg-0 e-6) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 (vector 0 e-8 e-7)))))))))))))))))))))) (define Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-124C-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-0 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5 e-3))))))))))))) -(define Binary-Core-resolved_HasNames__C-40TTCFileC-32C-36eC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (let ((e-14 (vector-ref sc0 14))) (let ((e-15 (vector-ref sc0 15))) (let ((e-16 (vector-ref sc0 16))) (let ((e-17 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 18))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-4) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 arg-2 arg-4)) e-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-19 (vector-ref sc1 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (arg-4) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-124C-41 arg-2 arg-4)) e-7) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-20 (vector-ref sc2 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc2 1))) (let ((act-26 ((Binary-Core-n--10445-4715-resolvedPair 'erased arg-1 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-12) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc3 1))) (let ((act-27 ((Binary-Core-n--10445-4716-resolvedRW 'erased arg-1 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-13) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-22 (vector-ref sc4 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc4 1))) (let ((act-28 ((Binary-Core-n--10445-4717-resolvedPrim 'erased arg-1 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-14) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-23 (vector-ref sc5 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc5 1))) (let ((act-29 ((Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-124C-41 arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-124C-41 arg-5888 arg-5889)))) arg-2 e-15) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-24 (vector-ref sc6 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc6 1))) (let ((act-30 ((Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-5888 arg-5889)))) arg-2 e-17) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc7 1))) (let ((act-31 (let ((sc8 arg-1)) (let ((e-26 (vector-ref sc8 2))) (((e-26 arg-2) e-18) eta-0))))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc8 1))) (vector 1 (vector 0 e-1 e-2 e-3 e-4 e-5 e-19 e-20 e-8 e-9 e-10 e-11 e-21 e-22 e-23 e-24 e-16 e-25 e-26)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Binary-Core-n--10022-4105-resolved_aux 'erased arg-1 arg-3 arg-2 arg-2 (vector 0 ) arg-3))) +(define Binary-Core-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--10484-5138-resolvedPair 'erased arg-1 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-12) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc3 1))) (let ((act-27 ((Binary-Core-n--10484-5139-resolvedRW 'erased arg-1 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-13) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-22 (vector-ref sc4 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc4 1))) (let ((act-28 ((Binary-Core-n--10484-5140-resolvedPrim 'erased arg-1 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-14) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-23 (vector-ref sc5 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc5 1))) (let ((act-29 ((Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-124C-41 arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-124C-41 arg-6292 arg-6293)))) arg-2 e-15) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-24 (vector-ref sc6 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc6 1))) (let ((act-30 ((Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-6292 arg-6293)))) arg-2 e-17) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc7 1))) (let ((act-31 (let ((sc8 arg-1)) (let ((e-26 (vector-ref sc8 2))) (((e-26 arg-2) e-18) eta-0))))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc8 1))) (vector 1 (vector 0 e-1 e-2 e-3 e-4 e-5 e-19 e-20 e-8 e-9 e-10 e-11 e-21 e-22 e-23 e-24 e-16 e-25 e-26)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Binary-Core-n--10061-4528-resolved_aux 'erased arg-1 arg-3 arg-2 arg-2 (vector 0 ) arg-3))) (define Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-0 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-full_HasNames__Transform arg-0 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))))))) (define Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-0 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5 e-3))))))))))))) (define Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-124C-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-0 e-2) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-full_HasNames__Name arg-0 e-6) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 (vector 0 e-8 e-7)))))))))))))))))))))) (define Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-124C-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-0 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5 e-3))))))))))))) -(define Binary-Core-full_HasNames__C-40TTCFileC-32C-36eC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (let ((e-14 (vector-ref sc0 14))) (let ((e-15 (vector-ref sc0 15))) (let ((e-16 (vector-ref sc0 16))) (let ((e-17 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 18))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-4) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 arg-2 arg-4)) e-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-19 (vector-ref sc1 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (arg-4) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-124C-41 arg-2 arg-4)) e-7) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-20 (vector-ref sc2 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc2 1))) (let ((act-26 ((Binary-Core-n--10444-4521-fullPair 'erased arg-1 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-12) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc3 1))) (let ((act-27 ((Binary-Core-n--10444-4522-fullRW 'erased arg-1 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-13) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-22 (vector-ref sc4 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc4 1))) (let ((act-28 ((Binary-Core-n--10444-4523-fullPrim 'erased arg-1 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-14) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-23 (vector-ref sc5 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc5 1))) (let ((act-29 ((Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-124C-41 arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-124C-41 arg-5888 arg-5889)))) arg-2 e-15) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-24 (vector-ref sc6 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc6 1))) (let ((act-30 ((Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-5888 arg-5889)))) arg-2 e-17) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc7 1))) (let ((act-31 (let ((sc8 arg-1)) (let ((e-27 (vector-ref sc8 1))) (((e-27 arg-2) e-18) eta-0))))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc8 1))) (vector 1 (vector 0 e-1 e-2 e-3 e-4 e-5 e-19 e-20 e-8 e-9 e-10 e-11 e-21 e-22 e-23 e-24 e-16 e-25 e-26)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Binary-Core-n--10021-4076-full_aux 'erased arg-1 arg-3 arg-2 arg-2 (vector 0 ) arg-3))) -(define Binary-Core-__Impl_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-5888 arg-5889)))))) -(define Binary-Core-__Impl_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 arg-5888 arg-5889)))))) -(define Binary-Core-__Impl_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-124C-41 (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-124C-41 arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-124C-41 arg-5888 arg-5889)))))) -(define Binary-Core-__Impl_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-124C-41 (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-124C-41 arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-124C-41 arg-5888 arg-5889)))))) -(define Binary-Core-__Impl_HasNames_C-40TTCFileC-32C-36eC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-full_HasNames__C-40TTCFileC-32C-36eC-41 'erased arg-1 arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-resolved_HasNames__C-40TTCFileC-32C-36eC-41 'erased arg-1 arg-5888 arg-5889)))))) -(define Binary-Core-__Impl_HasNames_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 'erased arg-1 arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 'erased arg-1 arg-5888 arg-5889)))))) -(define Binary-Core-writeToTTC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Binary-Utils-initBinary ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-3))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Binary-Core-getSaveDefs (NameMap-Data-keys 'erased (let ((sc3 e-6)) (let ((e-28 (vector-ref sc3 6))) e-28))) (vector 0 ) e-6) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Writing " (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 " with hash " (Prelude-show_Show__Int (let ((sc4 e-6)) (let ((e-15 (vector-ref sc4 16))) e-15))))))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (Binary-Core-writeTTCFile 'erased arg-1 arg-2 e-5 (vector 0 (Binary-Core-ttcVersion) (let ((sc5 e-6)) (let ((e-15 (vector-ref sc5 16))) e-15)) (let ((sc5 e-6)) (let ((e-16 (vector-ref sc5 17))) e-16)) e-8 (NameMap-Data-keys 'erased (let ((sc5 e-6)) (let ((e-22 (vector-ref sc5 23))) e-22))) (let ((sc5 e-6)) (let ((e-11 (vector-ref sc5 12))) e-11)) (let ((sc5 e-6)) (let ((e-10 (vector-ref sc5 11))) e-10)) (let ((sc5 e-6)) (let ((e-17 (vector-ref sc5 18))) e-17)) (let ((sc5 e-7)) (let ((e-13 (vector-ref sc5 7))) e-13)) (let ((sc5 e-6)) (let ((e-2 (vector-ref sc5 3))) e-2)) (let ((sc5 e-6)) (let ((e-3 (vector-ref sc5 4))) e-3)) (let ((sc5 (let ((sc6 e-6)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-4 (vector-ref sc5 5))) e-4)) (let ((sc5 (let ((sc6 e-6)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-13 (vector-ref sc5 6))) e-13)) (let ((sc5 (let ((sc6 e-6)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-12 (vector-ref sc5 7))) e-12)) (NameMap-Data-toList 'erased (let ((sc5 e-6)) (let ((e-14 (vector-ref sc5 15))) e-14))) (let ((sc5 e-6)) (let ((e-19 (vector-ref sc5 20))) e-19)) (let ((sc5 e-6)) (let ((e-13 (vector-ref sc5 14))) e-13)) arg-4) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 (let ((act-30 (unbox e-5))) (vector 1 act-30)))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (Binary-Utils-writeToFile arg-5 e-11 ext-0))) (vector 1 act-31))))))))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (vector 1 (vector 0 ))) (else (let ((e-12 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-12)))) ext-0)))))))))))))))))))))))))))))))))))))))) -(define Binary-Core-writeTTCFile (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-full_HasNames__C-40TTCFileC-32C-36eC-41 'erased (Builtin-fst 'erased 'erased arg-1) arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-resolved_HasNames__C-40TTCFileC-32C-36eC-41 'erased (Builtin-fst 'erased 'erased arg-1) arg-5888 arg-5889)))) arg-4 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Binary-Utils-toBuf_TTC__String arg-3 "TT2") ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__Int arg-3 (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 1))) e-1)) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (Binary-Utils-toBuf_TTC__Int arg-3 (let ((sc3 e-5)) (let ((e-2 (vector-ref sc3 2))) e-2)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2107 eta-1))))) arg-2106 eta-0)))) arg-3 (let ((sc4 e-5)) (let ((e-3 (vector-ref sc4 3))) e-3)) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Binary arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Binary arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Binary arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Binary arg-2107 eta-1))))) arg-2106 eta-0)))) arg-3 (let ((sc5 e-5)) (let ((e-4 (vector-ref sc5 4))) e-4)) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) arg-3 (let ((sc6 e-5)) (let ((e-24 (vector-ref sc6 5))) e-24)) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-31 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2106 eta-0)))) arg-3 (let ((sc7 e-5)) (let ((e-24 (vector-ref sc7 6))) e-24)) ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-32 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Bool arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0)))) arg-3 (let ((sc8 e-5)) (let ((e-24 (vector-ref sc8 7))) e-24)) ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-33 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Bool arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__String arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2109 eta-1)))) arg-2107 arg-2108 eta-0)))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__String arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-1)))) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__String arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2104 arg-2107 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__String arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2104 arg-2107 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-3)))) arg-2103 arg-2105 eta-2)))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-2109 eta-3)))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0)))) arg-3 (let ((sc9 e-5)) (let ((e-24 (vector-ref sc9 8))) e-24)) ext-0))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((act-34 (Binary-Utils-toBuf_TTC__Int arg-3 (let ((sc10 e-5)) (let ((e-24 (vector-ref sc10 9))) e-24)) ext-0))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-35 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0)))) arg-3 (let ((sc11 e-5)) (let ((e-24 (vector-ref sc11 10))) e-24)) ext-0))) (let ((sc11 act-35)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((act-36 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2106 eta-0)))) arg-3 (let ((sc12 e-5)) (let ((e-24 (vector-ref sc12 11))) e-24)) ext-0))) (let ((sc12 act-36)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((act-37 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__PairNames arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PairNames arg-2106 eta-0)))) arg-3 (let ((sc13 e-5)) (let ((e-24 (vector-ref sc13 12))) e-24))) ext-0))) (let ((sc13 act-37)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((act-38 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__RewriteNames arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RewriteNames arg-2106 eta-0)))) arg-3 (let ((sc14 e-5)) (let ((e-24 (vector-ref sc14 13))) e-24))) ext-0))) (let ((sc14 act-38)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((act-39 (TTC-Core-toBuf_TTC__PrimNames arg-3 (let ((sc15 e-5)) (let ((e-24 (vector-ref sc15 14))) e-24)) ext-0))) (let ((sc15 act-39)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((act-40 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1))))) arg-2106 eta-0)))) arg-3 (let ((sc16 e-5)) (let ((e-24 (vector-ref sc16 15))) e-24)) ext-0))) (let ((sc16 act-40)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((act-41 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__CG arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CG arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CG arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CG arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1))))) arg-2106 eta-0)))) arg-3 (let ((sc17 e-5)) (let ((e-24 (vector-ref sc17 16))) e-24)) ext-0))) (let ((sc17 act-41)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((act-42 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Transform arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Transform arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Transform arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Transform arg-2107 eta-1))))) arg-2106 eta-0)))) arg-3 (let ((sc18 e-5)) (let ((e-24 (vector-ref sc18 17))) e-24)) ext-0))) (let ((sc18 act-42)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((sc19 (Builtin-snd 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc19 1))) (((e-1 arg-3) (let ((sc20 e-5)) (let ((e-24 (vector-ref sc20 18))) e-24))) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define 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--10483-4944-fullPair 'erased arg-1 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-12) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc3 1))) (let ((act-27 ((Binary-Core-n--10483-4945-fullRW 'erased arg-1 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-13) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-22 (vector-ref sc4 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc4 1))) (let ((act-28 ((Binary-Core-n--10483-4946-fullPrim 'erased arg-1 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-14) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-23 (vector-ref sc5 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc5 1))) (let ((act-29 ((Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-124C-41 arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-124C-41 arg-6292 arg-6293)))) arg-2 e-15) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-24 (vector-ref sc6 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc6 1))) (let ((act-30 ((Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-6292 arg-6293)))) arg-2 e-17) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc7 1))) (let ((act-31 (let ((sc8 arg-1)) (let ((e-27 (vector-ref sc8 1))) (((e-27 arg-2) e-18) eta-0))))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc8 1))) (vector 1 (vector 0 e-1 e-2 e-3 e-4 e-5 e-19 e-20 e-8 e-9 e-10 e-11 e-21 e-22 e-23 e-24 e-16 e-25 e-26)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Binary-Core-n--10060-4499-full_aux 'erased arg-1 arg-3 arg-2 arg-2 (vector 0 ) arg-3))) +(define Binary-Core-__Impl_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 (lambda () (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-6292 arg-6293)))))) +(define Binary-Core-__Impl_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 (lambda () (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 arg-6292 arg-6293)))))) +(define Binary-Core-__Impl_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-124C-41 (lambda () (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-124C-41 arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-124C-41 arg-6292 arg-6293)))))) +(define Binary-Core-__Impl_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-124C-41 (lambda () (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-124C-41 arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-124C-41 arg-6292 arg-6293)))))) +(define Binary-Core-__Impl_HasNames_C-40TTCFileC-32C-36eC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Binary-Core-full_HasNames__C-40TTCFileC-32C-36eC-41 'erased arg-1 arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Binary-Core-resolved_HasNames__C-40TTCFileC-32C-36eC-41 'erased arg-1 arg-6292 arg-6293)))))) +(define Binary-Core-__Impl_HasNames_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 'erased arg-1 arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 'erased arg-1 arg-6292 arg-6293)))))) +(define Binary-Core-writeToTTC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Binary-Utils-initBinary ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-3))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Binary-Core-getSaveDefs ((NameMap-Data-keys 'erased) (let ((sc3 e-6)) (let ((e-28 (vector-ref sc3 6))) e-28))) (vector 0 ) e-6) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Writing " (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 " with hash " (Prelude-show_Show__Int (let ((sc4 e-6)) (let ((e-15 (vector-ref sc4 16))) e-15))))))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (Binary-Core-writeTTCFile 'erased arg-1 arg-2 e-5 (vector 0 (Binary-Core-ttcVersion) (let ((sc5 e-6)) (let ((e-15 (vector-ref sc5 16))) e-15)) (let ((sc5 e-6)) (let ((e-16 (vector-ref sc5 17))) e-16)) e-8 ((NameMap-Data-keys 'erased) (let ((sc5 e-6)) (let ((e-22 (vector-ref sc5 23))) e-22))) (let ((sc5 e-6)) (let ((e-11 (vector-ref sc5 12))) e-11)) (let ((sc5 e-6)) (let ((e-10 (vector-ref sc5 11))) e-10)) (let ((sc5 e-6)) (let ((e-17 (vector-ref sc5 18))) e-17)) (let ((sc5 e-7)) (let ((e-13 (vector-ref sc5 7))) e-13)) (let ((sc5 e-6)) (let ((e-2 (vector-ref sc5 3))) e-2)) (let ((sc5 e-6)) (let ((e-3 (vector-ref sc5 4))) e-3)) (let ((sc5 (let ((sc6 e-6)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-4 (vector-ref sc5 5))) e-4)) (let ((sc5 (let ((sc6 e-6)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-13 (vector-ref sc5 6))) e-13)) (let ((sc5 (let ((sc6 e-6)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-12 (vector-ref sc5 7))) e-12)) (NameMap-Data-toList 'erased (let ((sc5 e-6)) (let ((e-14 (vector-ref sc5 15))) e-14))) (let ((sc5 e-6)) (let ((e-19 (vector-ref sc5 20))) e-19)) (let ((sc5 e-6)) (let ((e-13 (vector-ref sc5 14))) e-13)) arg-4) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 (let ((act-30 (unbox e-5))) (vector 1 act-30)))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 ((Binary-Utils-writeToFile arg-5 e-11) ext-0))) (vector 1 act-31))))))))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (vector 1 (vector 0 ))) (else (let ((e-12 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-12)))) ext-0)))))))))))))))))))))))))))))))))))))))) +(define Binary-Core-writeTTCFile (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Binary-Core-full_HasNames__C-40TTCFileC-32C-36eC-41 'erased (Builtin-fst 'erased 'erased arg-1) arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Binary-Core-resolved_HasNames__C-40TTCFileC-32C-36eC-41 'erased (Builtin-fst 'erased 'erased arg-1) arg-6292 arg-6293)))) arg-4 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Binary-Utils-toBuf_TTC__String arg-3 "TT2") ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__Int arg-3 (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 1))) e-1)) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (Binary-Utils-toBuf_TTC__Int arg-3 (let ((sc3 e-5)) (let ((e-2 (vector-ref sc3 2))) e-2)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__String arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) arg-2122 arg-2124 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2122 arg-2124 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-2)))) arg-2121 arg-2123 eta-1)))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-2)))) arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2125 eta-1))))) arg-2124 eta-0)))) arg-3 (let ((sc4 e-5)) (let ((e-3 (vector-ref sc4 3))) e-3)) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__Binary arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Binary arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Binary arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Binary arg-2125 eta-1))))) arg-2124 eta-0)))) arg-3 (let ((sc5 e-5)) (let ((e-4 (vector-ref sc5 4))) e-4)) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) arg-3 (let ((sc6 e-5)) (let ((e-24 (vector-ref sc6 5))) e-24)) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-31 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1))))) arg-2124 eta-0)))) arg-3 (let ((sc7 e-5)) (let ((e-24 (vector-ref sc7 6))) e-24)) ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-32 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__Name arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-0)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Bool arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1))))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 eta-0)))) arg-3 (let ((sc8 e-5)) (let ((e-24 (vector-ref sc8 7))) e-24)) ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-33 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__String arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) arg-2122 arg-2124 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Bool arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-0)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__String arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2127 eta-1)))) arg-2125 arg-2126 eta-0)))) (lambda (arg-2125) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__String arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-1)))) arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__String arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-2)))) arg-2122 arg-2125 eta-1)))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-2)))) arg-2125 eta-1))))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-2)))) arg-2121 arg-2123 eta-1)))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-2)))) arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__String arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-2)))) arg-2122 arg-2125 eta-1)))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-2)))) arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-3)))) arg-2121 arg-2123 eta-2)))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-2127 eta-3)))) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 eta-0)))) arg-3 (let ((sc9 e-5)) (let ((e-24 (vector-ref sc9 8))) e-24)) ext-0))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((act-34 (Binary-Utils-toBuf_TTC__Int arg-3 (let ((sc10 e-5)) (let ((e-24 (vector-ref sc10 9))) e-24)) ext-0))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-35 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-0)))) arg-3 (let ((sc11 e-5)) (let ((e-24 (vector-ref sc11 10))) e-24)) ext-0))) (let ((sc11 act-35)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((act-36 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-1)))) arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) arg-2124 eta-0)))) arg-3 (let ((sc12 e-5)) (let ((e-24 (vector-ref sc12 11))) e-24)) ext-0))) (let ((sc12 act-36)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((act-37 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (TTC-Core-toBuf_TTC__PairNames arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PairNames arg-2124 eta-0)))) arg-3 (let ((sc13 e-5)) (let ((e-24 (vector-ref sc13 12))) e-24))) ext-0))) (let ((sc13 act-37)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((act-38 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (TTC-Core-toBuf_TTC__RewriteNames arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RewriteNames arg-2124 eta-0)))) arg-3 (let ((sc14 e-5)) (let ((e-24 (vector-ref sc14 13))) e-24))) ext-0))) (let ((sc14 act-38)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((act-39 (TTC-Core-toBuf_TTC__PrimNames arg-3 (let ((sc15 e-5)) (let ((e-24 (vector-ref sc15 14))) e-24)) ext-0))) (let ((sc15 act-39)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((act-40 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__String arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) arg-2122 arg-2124 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-2)))) arg-2121 arg-2123 eta-1)))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-2)))) arg-2125 eta-1))))) arg-2124 eta-0)))) arg-3 (let ((sc16 e-5)) (let ((e-24 (vector-ref sc16 15))) e-24)) ext-0))) (let ((sc16 act-40)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((act-41 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__CG arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CG arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CG arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CG arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1))))) arg-2124 eta-0)))) arg-3 (let ((sc17 e-5)) (let ((e-24 (vector-ref sc17 16))) e-24)) ext-0))) (let ((sc17 act-41)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((act-42 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Transform arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Transform arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Transform arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Transform arg-2125 eta-1))))) arg-2124 eta-0)))) arg-3 (let ((sc18 e-5)) (let ((e-24 (vector-ref sc18 17))) e-24)) ext-0))) (let ((sc18 act-42)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((sc19 (Builtin-snd 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc19 1))) (((e-1 arg-3) (let ((sc20 e-5)) (let ((e-24 (vector-ref sc20 18))) e-24))) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (define TTCFile-Binary-Core-version (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (define TTCFile-Binary-Core-userHoles (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-5 (vector-ref sc0 5))) e-5)))) -(define Binary-Core-updateTransforms (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Transform arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Transform arg-5888 arg-5889)))) e-7 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (Binary-Core-n--12411-6442-addT e-6 e-7 e-3 arg-0 e-5 e-8 eta-0))))))))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((Binary-Core-updateTransforms arg-0 e-3) eta-0)))))))))))))))) +(define Binary-Core-updateTransforms (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Transform arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Transform arg-6292 arg-6293)))) e-7 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (Binary-Core-n--12408-6830-addT e-6 e-7 e-3 arg-0 e-5 e-8 eta-0))))))))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((Binary-Core-updateTransforms arg-0 e-3) eta-0)))))))))))))))) (define Binary-Core-updateRewrite (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 e-28 e-29 e-30 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-1 e-31) e-32 e-33 e-34) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Binary-Core-updatePrims (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 e-28 e-29 e-30 e-31 (Binary-Core-updatePrimNames arg-1 e-32) e-33 e-34) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Binary-Core-updatePrimNames (lambda (arg-0 ext-0) (let ((sc0 ext-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (let ((sc1 arg-0)) (let ((e-5 (vector-ref sc1 1))) e-5)) e-0) (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 2))) e-4)) e-1) (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (let ((sc1 arg-0)) (let ((e-3 (vector-ref sc1 3))) e-3)) e-2)))))))) (define Binary-Core-updatePair (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 e-28 e-29 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-1 e-30) e-31 e-32 e-33 e-34) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Binary-Core-updateNameDirectives (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-30 (vector-ref sc3 3))) (let ((e-29 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-28 (vector-ref sc3 6))) (let ((e-27 (vector-ref sc3 7))) (let ((e-26 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (let ((e-21 (vector-ref sc3 22))) (let ((e-22 (vector-ref sc3 23))) (let ((e-23 (vector-ref sc3 24))) (let ((e-24 (vector-ref sc3 25))) (let ((e-25 (vector-ref sc3 26))) (vector 0 e-0 e-1 e-30 e-29 e-4 e-28 e-27 e-26 e-8 e-9 e-10 e-11 e-12 e-13 (NameMap-Data-insert 'erased e-6 e-7 e-14) e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((Binary-Core-updateNameDirectives arg-0 e-3) eta-0))))))))))))))))))))) -(define Binary-Core-updateCGDirectives (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((cgsC-39 (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Options-Core-C-61C-61_Eq__CG arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Options-Core-C-47C-61_Eq__CG arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Options-Core-C-61C-61_Eq__CG arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Options-Core-C-47C-61_Eq__CG arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (List-Prelude-C-43C-43 'erased arg-1 (let ((sc1 e-5)) (let ((e-19 (vector-ref sc1 20))) e-19)))))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 cgsC-39 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-25)))))))))) +(define Binary-Core-updateCGDirectives (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((cgsC-39 (List-Data-nub 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Options-Core-C-61C-61_Eq__CG arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Options-Core-C-47C-61_Eq__CG arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Options-Core-C-61C-61_Eq__CG arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Options-Core-C-47C-61_Eq__CG arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (List-Prelude-C-43C-43 'erased arg-1 (let ((sc1 e-5)) (let ((e-19 (vector-ref sc1 20))) e-19)))))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 cgsC-39 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-25)))))))))) (define TTCFile-Binary-Core-typeHints (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-7 (vector-ref sc0 7))) e-7)))) -(define Binary-Core-ttcVersion (lambda () 34)) +(define Binary-Core-ttcVersion (lambda () 35)) (define TTCFile-Binary-Core-transforms (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-17 (vector-ref sc0 17))) e-17)))) (define TTCFile-Binary-Core-rewritenames (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-13 (vector-ref sc0 13))) e-13)))) -(define Binary-Core-readTTCFile (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-5 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-5))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (let ((sc2 (Prelude-C-47C-61_Eq__String e-5 "TT2"))) (cond ((equal? sc2 0) (Binary-Utils-corrupt 'erased (Strings-Prelude-C-43C-43 "TTC header in " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__String e-5)))) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (Binary-Utils-fromBuf_TTC__Int arg-5 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 ((Binary-Core-checkTTCVersion (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) arg-3) e-8 (Binary-Core-ttcVersion)) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (Binary-Utils-fromBuf_TTC__Int arg-5 ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2107 eta-1))))) arg-2106 eta-0)))) arg-5 ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Binary arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Binary arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Binary arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Binary arg-2107 eta-1))))) arg-2106 eta-0)))) arg-5 ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) arg-5 ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-33 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2106 eta-0)))) arg-5 ext-0))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-34 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Bool arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0)))) arg-5 ext-0))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-35 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Bool arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__String arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2109 eta-1)))) arg-2107 arg-2108 eta-0)))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__String arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-1)))) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__String arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2104 arg-2107 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__String arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2104 arg-2107 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-3)))) arg-2103 arg-2105 eta-2)))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-2109 eta-3)))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0)))) arg-5 ext-0))) (let ((sc11 act-35)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-36 (Binary-Utils-fromBuf_TTC__Int arg-5 ext-0))) (let ((sc12 act-36)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-37 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0)))) arg-5 ext-0))) (let ((sc13 act-37)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc13 1))) (let ((act-38 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2106 eta-0)))) arg-5 ext-0))) (let ((sc14 act-38)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc14 1))) (let ((act-39 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__PairNames arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PairNames arg-2106 eta-0)))) arg-5 ext-0))) (let ((sc15 act-39)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-20 (vector-ref sc15 1))) (let ((act-40 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__RewriteNames arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RewriteNames arg-2106 eta-0)))) arg-5 ext-0))) (let ((sc16 act-40)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-21 (vector-ref sc16 1))) (let ((act-41 (TTC-Core-fromBuf_TTC__PrimNames arg-5 ext-0))) (let ((sc17 act-41)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-22 (vector-ref sc17 1))) (let ((act-42 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1))))) arg-2106 eta-0)))) arg-5 ext-0))) (let ((sc18 act-42)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((e-23 (vector-ref sc18 1))) (let ((act-43 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__CG arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CG arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CG arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CG arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1))))) arg-2106 eta-0)))) arg-5 ext-0))) (let ((sc19 act-43)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (vector 0 e-2))) (else (let ((e-24 (vector-ref sc19 1))) (let ((act-44 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Transform arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Transform arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Transform arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Transform arg-2107 eta-1))))) arg-2106 eta-0)))) arg-5 ext-0))) (let ((sc20 act-44)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (vector 0 e-2))) (else (let ((e-25 (vector-ref sc20 1))) (let ((act-45 (let ((sc21 arg-1)) (let ((e-2 (vector-ref sc21 2))) ((e-2 arg-5) ext-0))))) (let ((sc21 act-45)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (vector 0 e-2))) (else (let ((e-26 (vector-ref sc21 1))) (vector 1 (vector 0 e-8 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Binary-Core-readTTCFile (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-5 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-5))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (let ((sc2 (Prelude-C-47C-61_Eq__String e-5 "TT2"))) (cond ((equal? sc2 0) (Binary-Utils-corrupt 'erased (Strings-Prelude-C-43C-43 "TTC header in " (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__String e-5)))) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (Binary-Utils-fromBuf_TTC__Int arg-5 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 ((Binary-Core-checkTTCVersion arg-3 e-8 (Binary-Core-ttcVersion)) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (Binary-Utils-fromBuf_TTC__Int arg-5 ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__String arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) arg-2122 arg-2124 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2122 arg-2124 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-2)))) arg-2121 arg-2123 eta-1)))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-2)))) arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2125 eta-1))))) arg-2124 eta-0)))) arg-5 ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__Binary arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Binary arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Binary arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Binary arg-2125 eta-1))))) arg-2124 eta-0)))) arg-5 ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) arg-5 ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-33 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1))))) arg-2124 eta-0)))) arg-5 ext-0))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-34 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__Name arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-0)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Bool arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1))))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 eta-0)))) arg-5 ext-0))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-35 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__String arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) arg-2122 arg-2124 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Bool arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-0)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__String arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2127 eta-1)))) arg-2125 arg-2126 eta-0)))) (lambda (arg-2125) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__String arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-1)))) arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__String arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-2)))) arg-2122 arg-2125 eta-1)))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-2)))) arg-2125 eta-1))))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-2)))) arg-2121 arg-2123 eta-1)))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-2)))) arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__String arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-2)))) arg-2122 arg-2125 eta-1)))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-2)))) arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-3)))) arg-2121 arg-2123 eta-2)))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-2127 eta-3)))) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 eta-0)))) arg-5 ext-0))) (let ((sc11 act-35)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-36 (Binary-Utils-fromBuf_TTC__Int arg-5 ext-0))) (let ((sc12 act-36)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-37 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-0)))) arg-5 ext-0))) (let ((sc13 act-37)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc13 1))) (let ((act-38 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-1)))) arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) arg-2124 eta-0)))) arg-5 ext-0))) (let ((sc14 act-38)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc14 1))) (let ((act-39 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (TTC-Core-toBuf_TTC__PairNames arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PairNames arg-2124 eta-0)))) arg-5 ext-0))) (let ((sc15 act-39)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-20 (vector-ref sc15 1))) (let ((act-40 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (TTC-Core-toBuf_TTC__RewriteNames arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RewriteNames arg-2124 eta-0)))) arg-5 ext-0))) (let ((sc16 act-40)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-21 (vector-ref sc16 1))) (let ((act-41 (TTC-Core-fromBuf_TTC__PrimNames arg-5 ext-0))) (let ((sc17 act-41)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-22 (vector-ref sc17 1))) (let ((act-42 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__String arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) arg-2122 arg-2124 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-2)))) arg-2121 arg-2123 eta-1)))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-2)))) arg-2125 eta-1))))) arg-2124 eta-0)))) arg-5 ext-0))) (let ((sc18 act-42)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((e-23 (vector-ref sc18 1))) (let ((act-43 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__CG arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CG arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CG arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CG arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1))))) arg-2124 eta-0)))) arg-5 ext-0))) (let ((sc19 act-43)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (vector 0 e-2))) (else (let ((e-24 (vector-ref sc19 1))) (let ((act-44 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Transform arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Transform arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Transform arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Transform arg-2125 eta-1))))) arg-2124 eta-0)))) arg-5 ext-0))) (let ((sc20 act-44)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (vector 0 e-2))) (else (let ((e-25 (vector-ref sc20 1))) (let ((act-45 (let ((sc21 arg-1)) (let ((e-2 (vector-ref sc21 2))) ((e-2 arg-5) ext-0))))) (let ((sc21 act-45)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (vector 0 e-2))) (else (let ((e-26 (vector-ref sc21 1))) (vector 1 (vector 0 e-8 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (define Binary-Core-readImportHashes (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (Binary-Utils-readFromFile arg-0 ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-26 (Binary-Core-getImportHashes arg-0 e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 e-7))))))) (lambda (err) (lambda (eta-0) (vector 1 (vector 0 )))) ext-0)))))))) (else (vector 1 (vector 0 )))))))))))) (define Binary-Core-readIFaceHash (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (Binary-Utils-readFromFile arg-0 ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-26 (Binary-Core-getHash arg-0 e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 e-7))))))) (lambda (err) (lambda (eta-0) (vector 1 0))) ext-0)))))))) (else (vector 1 0))))))))))) -(define Binary-Core-readFromTTC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Core-case--12650-6697 'erased arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Bool arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Bool arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Bool arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Bool arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Bool arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Bool arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Bool arg-434 arg-435)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-436) (lambda (arg-437) (Prelude-C-47C-61_Eq__String arg-436 arg-437)))) arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 arg-8 (vector 0 arg-6 arg-9)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc1 e-5)) (let ((e-18 (vector-ref sc1 19))) e-18))))) ext-0)))))))) +(define 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--12647-7207 'erased arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__Bool arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Bool arg-440 arg-441)))) (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__Bool arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Bool arg-440 arg-441)))) (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__Bool arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Bool arg-440 arg-441)))) (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__Bool arg-442 arg-443)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-444) (lambda (arg-445) (Prelude-C-47C-61_Eq__String arg-444 arg-445)))) arg-442 arg-443)))) arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 arg-8 (vector 0 arg-6 arg-9)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc1 e-5)) (let ((e-18 (vector-ref sc1 19))) e-18))))) ext-0)))))))) (define TTCFile-Binary-Core-primnames (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-14 (vector-ref sc0 14))) e-14)))) (define TTCFile-Binary-Core-pairnames (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-12 (vector-ref sc0 12))) e-12)))) (define TTCFile-Binary-Core-nextVar (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-9 (vector-ref sc0 9))) e-9)))) @@ -3597,9 +3638,9 @@ (define TTCFile-Binary-Core-imported (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-8 (vector-ref sc0 8))) e-8)))) (define TTCFile-Binary-Core-importHashes (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) e-3)))) (define TTCFile-Binary-Core-ifaceHash (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2)))) -(define Binary-Core-getSaveDefs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-2 (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Binary-Core-case--11474-5563 e-2 e-3 arg-2 arg-1 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0)))) (else ((Binary-Core-getSaveDefs e-3 arg-1 arg-2) eta-0))))))))))))))))) +(define Binary-Core-getSaveDefs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-2 (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Binary-Core-case--11460-5938 e-2 e-3 arg-2 arg-1 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0)))) (else ((Binary-Core-getSaveDefs e-3 arg-1 arg-2) eta-0))))))))))))))))) (define Binary-Core-getNSas (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-6 e-11)))))))))) -(define Binary-Core-getImportHashes (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((sc1 (Prelude-C-47C-61_Eq__String e-5 "TT2"))) (cond ((equal? sc1 0) (Binary-Utils-corrupt 'erased (Strings-Prelude-C-43C-43 "TTC header in " (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__String e-5)))) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (Binary-Utils-fromBuf_TTC__Int arg-1 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Binary-Core-checkTTCVersion arg-0 e-7 (Binary-Core-ttcVersion)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (Binary-Utils-fromBuf_TTC__Int arg-1 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2107 eta-1))))) arg-2106 eta-0)))) arg-1 ext-0))))))))))))))))))))))))) +(define Binary-Core-getImportHashes (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((sc1 (Prelude-C-47C-61_Eq__String e-5 "TT2"))) (cond ((equal? sc1 0) (Binary-Utils-corrupt 'erased (Strings-Prelude-C-43C-43 "TTC header in " (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__String e-5)))) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (Binary-Utils-fromBuf_TTC__Int arg-1 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Binary-Core-checkTTCVersion arg-0 e-7 (Binary-Core-ttcVersion)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (Binary-Utils-fromBuf_TTC__Int arg-1 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__String arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) arg-2122 arg-2124 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2122 arg-2124 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-2)))) arg-2121 arg-2123 eta-1)))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-2)))) arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2125 eta-1))))) arg-2124 eta-0)))) arg-1 ext-0))))))))))))))))))))))))) (define Binary-Core-getHash (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((sc1 (Prelude-C-47C-61_Eq__String e-5 "TT2"))) (cond ((equal? sc1 0) (Binary-Utils-corrupt 'erased (Strings-Prelude-C-43C-43 "TTC header in " (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__String e-5)))) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (Binary-Utils-fromBuf_TTC__Int arg-1 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Binary-Core-checkTTCVersion arg-0 e-7 (Binary-Core-ttcVersion)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-fromBuf_TTC__Int arg-1 ext-0))))))))))))))))))))) (define TTCFile-Binary-Core-extraData (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-18 (vector-ref sc0 18))) e-18)))) (define TTCFile-Binary-Core-currentNS (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-10 (vector-ref sc0 10))) e-10)))) @@ -3607,76 +3648,75 @@ (define Binary-Core-checkTTCVersion (lambda (arg-0 arg-1 arg-2) (let ((sc0 (Prelude-C-47C-61_Eq__Int arg-1 arg-2))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 0 arg-0 arg-1 arg-2)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define TTCFile-Binary-Core-cgdirectives (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-16 (vector-ref sc0 16))) e-16)))) (define TTCFile-Binary-Core-autoHints (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-6 (vector-ref sc0 6))) e-6)))) -(define Binary-Core-asName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Binary-Core-case--10859-4916 e-1 e-3 e-2 arg-0 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-0 e-2)))))(else arg-2)))))(else arg-2))))) (define Binary-Core-addTypeHint (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-0 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-getFullName arg-0 e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (Context-Core-logC arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " for " (Name-Core-show_Show__Name e-8))))) eta-0))))))))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (Context-Core-addHintFor arg-0 arg-1 e-2 e-6 e-7 0 eta-0)))))))))))))) -(define Binary-Core-addGlobalDef (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupContextEntry e-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (p) (lambda (eta-1) (let ((act-26 ((Context-Core-decode (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) (Builtin-fst 'erased 'erased p) 1 (Builtin-snd 'erased 'erased p)) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-7)))))))))) e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) ((Binary-Core-case--11758-5901 e-2 e-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 (Binary-Core-n--11758-5821-completeDef e-2 e-3 arg-2 arg-1 arg-0 e-7)) eta-0)))))))))))))))))))))) -(define Binary-Core-addAutoHint (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (set-box! arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-29 (vector-ref sc3 3))) (let ((e-28 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-27 (vector-ref sc3 6))) (let ((e-26 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (let ((e-21 (vector-ref sc3 22))) (let ((e-22 (vector-ref sc3 23))) (let ((e-23 (vector-ref sc3 24))) (let ((e-24 (vector-ref sc3 25))) (let ((e-25 (vector-ref sc3 26))) (vector 0 e-0 e-1 e-29 e-28 e-4 e-27 e-26 e-7 (NameMap-Data-insert 'erased e-6 e-3 e-8) e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))))))))) -(define UnifyState-Core-case--13263-7931 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-2 arg-1 (lambda () "--- CONSTRAINTS AND HOLES ---") eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (UnifyState-Core-dumpHole arg-3 arg-2 arg-1 eta-1 eta-2))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-6)) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))))))) -(define UnifyState-Core-case--13263-7908 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0))) (else (let ((sc1 arg-4)) (let ((e-2 (vector-ref sc1 3))) e-2))))))) -(define UnifyState-Core-case--13235-7882 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (let ((hs (List-Prelude-C-43C-43 'erased (IntMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-1 (vector-ref sc1 2))) e-1))) (IntMap-Data-toList 'erased (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-4)) (let ((e-0 (vector-ref sc2 1))) e-0))) (else (let ((sc2 arg-4)) (let ((e-2 (vector-ref sc2 3))) e-2))))))))) (let ((sc1 hs)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-2 arg-1 (lambda () "--- CONSTRAINTS AND HOLES ---") eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (UnifyState-Core-dumpHole arg-3 arg-2 arg-1 eta-1 eta-2))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) hs)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define UnifyState-Core-case--12877-7573 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) " (Invertible)") (else ""))))) -(define UnifyState-Core-case--12727-7521 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-10)) (cond ((equal? sc0 0) " (ImplBind)") (else (Strings-Prelude-C-43C-43 "" (let ((p 1)) (UnifyState-Core-case--12877-7573 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11 arg-12 p (let ((sc1 arg-7)) (let ((e-14 (vector-ref sc1 15))) e-14)))))))))) -(define UnifyState-Core-case--12678-7376 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (let ((e-4 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-2 (vector 9 arg-0)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-8 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "!" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-9))))) eta-0)))))))))))))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((act-25 (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-4 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "\u0009 = " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-8) "\u000a\u0009when"))) eta-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (UnifyState-Core-n--12304-6992-dumpConstraint arg-0 arg-1 arg-2 arg-3 eta-1 eta-2))) e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (vector 1 (vector 0 )))))))))))))))))) ((7) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "?" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc3 arg-7)) (let ((e-1 (vector-ref sc3 2))) e-1))) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5) (let ((sc3 e-8)) (cond ((equal? sc3 0) " (ImplBind)") (else (Strings-Prelude-C-43C-43 "" (let ((p 1)) (UnifyState-Core-case--12877-7573 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-7 e-3 e-5 p (let ((sc4 arg-7)) (let ((e-14 (vector-ref sc4 15))) e-14))))))))))))) eta-0)))))))))) ((8) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "Search " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-0) (Strings-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-6))))) eta-0))))))))))))) ((1) (lambda (eta-0) (let ((act-24 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) e-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) (vector 1 (FC-Core-emptyFC) (vector 1 ) (vector 9 arg-0)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 0)))) (lambda () (Strings-Prelude-C-43C-43 "Solved: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-0) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5) (Strings-Prelude-C-43C-43 " = " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-6))))))) eta-0))))))))))))) ((10) (lambda (eta-0) (let ((act-24 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) e-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 0)))) (lambda () (Strings-Prelude-C-43C-43 "Bound: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-0) (Strings-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5))))) eta-0)))))))) ((11) (lambda (eta-0) (let ((act-24 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) e-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 0)))) (lambda () (Strings-Prelude-C-43C-43 "Delayed elaborator : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5))) eta-0))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define UnifyState-Core-case--12628-7335 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-2))) (UnifyState-Core-case--12678-7376 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 bind-0 (vector 0 (let ((sc1 e-2)) (let ((e-17 (vector-ref sc1 18))) e-17)) (let ((sc1 e-2)) (let ((e-21 (vector-ref sc1 3))) e-21))))))))))) -(define UnifyState-Core-case--12304-7289 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 9 arg-0) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc3 1))) (let ((bind-0 (vector 1 e-2))) ((UnifyState-Core-case--12678-7376 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5 e-2 bind-0 (vector 0 (let ((sc4 e-2)) (let ((e-17 (vector-ref sc4 18))) e-17)) (let ((sc4 e-2)) (let ((e-23 (vector-ref sc4 3))) e-23)))) eta-0)))))))))))))))))))))) -(define UnifyState-Core-case--12332-7162 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-13)) (cond ((equal? sc0 0) "\u000a\u0009(lazy allowed)") (else ""))))) -(define UnifyState-Core-case--12311-7014 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (Context-Core-log arg-2 arg-1 (lambda () "\u0009Resolved") eta-0))) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 5))) (let ((e-8 (vector-ref sc1 6))) (let ((e-9 (vector-ref sc1 7))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-normalise e-3 arg-6 e-7 e-8 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-10 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-11 (vector-ref sc3 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-normalise e-3 arg-6 e-7 e-9 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc4 1))) (let ((act-27 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-12 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-13 (vector-ref sc5 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc5 1))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "\u0009 " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-11) (Strings-Prelude-C-43C-43 " =?= " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-13))))) eta-0))))))))))))))))))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-10))) (else (let ((act-25 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-8 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-11 (vector-ref sc3 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-9 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc4 1))) (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "\u0009 from " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-11) (Strings-Prelude-C-43C-43 " =?= " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-12) (let ((sc5 e-5)) (cond ((equal? sc5 0) "\u000a\u0009(lazy allowed)") (else "")))))))) eta-0)))))))))))))))))))))) (else (let ((e-10 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 4))) (let ((e-14 (vector-ref sc1 5))) (lambda (eta-0) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "\u0009\u0009" (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-10 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-10 d x)))) e-13) (Strings-Prelude-C-43C-43 " =?= " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-10 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-10 d x)))) e-14))))) eta-0)))))))))))))) -(define UnifyState-Core-case--12104-6946 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (vector 0 )) (else arg-8))))) -(define UnifyState-Core-case--11685-6624 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-13)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 (IntMap-Data-empty 'erased) e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9))))))))))))) -(define UnifyState-Core-case--11685-6498 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-13)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 (IntMap-Data-empty 'erased) e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9))))))))))))) -(define UnifyState-Core-case--11637-6426 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-3 (let ((sc1 arg-13)) (let ((e-16 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 3))) (let ((e-13 (vector-ref sc1 4))) (let ((e-12 (vector-ref sc1 5))) (let ((e-11 (vector-ref sc1 6))) (let ((e-10 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-16 (IntMap-Data-empty 'erased) e-14 e-13 e-12 e-11 e-10 e-7 e-8 e-9)))))))))))))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 1))) (vector 0 e-7))) (else (let ((act-25 (Normalise-Core-normaliseHoles e-0 arg-5 e-4 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-normaliseHoles e-0 arg-5 e-4 e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 2 e-0 e-1 e-4 e-8 e-9) eta-0)))))))))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 e-10)) (case (vector-ref sc1 0) ((1) (let ((e-13 (vector-ref sc1 1))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((1) (let ((e-16 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-3 (let ((sc3 arg-13)) (let ((e-0 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-5 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-18 (vector-ref sc3 8))) (let ((e-15 (vector-ref sc3 9))) (let ((e-12 (vector-ref sc3 10))) (vector 0 e-0 (IntMap-Data-empty 'erased) e-2 e-3 e-4 e-5 e-6 e-18 e-15 e-12)))))))))))))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-25 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-13 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-16 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 2 e-7 e-8 e-9 e-6 e-12) eta-0))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define UnifyState-Core-case--11470-6392 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-3 (let ((sc2 arg-13)) (let ((e-17 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 3))) (let ((e-14 (vector-ref sc2 4))) (let ((e-13 (vector-ref sc2 5))) (let ((e-12 (vector-ref sc2 6))) (let ((e-11 (vector-ref sc2 7))) (let ((e-10 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-17 (IntMap-Data-empty 'erased) e-15 e-14 e-13 e-12 e-11 e-10 e-8 e-9)))))))))))))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((act-25 (Normalise-Core-normaliseHoles e-0 arg-5 e-4 e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-normaliseHoles e-0 arg-5 e-4 e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 2 e-0 e-7 e-4 e-9 e-10) eta-0)))))))))))))))))))))) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-11 (vector-ref sc1 5))) (let ((sc2 e-10)) (case (vector-ref sc2 0) ((1) (let ((e-13 (vector-ref sc2 1))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((1) (let ((e-16 (vector-ref sc3 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-3 (let ((sc4 arg-13)) (let ((e-0 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-5 (vector-ref sc4 6))) (let ((e-6 (vector-ref sc4 7))) (let ((e-18 (vector-ref sc4 8))) (let ((e-15 (vector-ref sc4 9))) (let ((e-12 (vector-ref sc4 10))) (vector 0 e-0 (IntMap-Data-empty 'erased) e-2 e-3 e-4 e-5 e-6 e-18 e-15 e-12)))))))))))))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-25 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-13 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-16 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 2 e-7 e-8 e-9 e-6 e-12) eta-0))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define UnifyState-Core-case--11470-6291 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-1 (vector 0 ) e-1) eta-0)))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define UnifyState-Core-case--11443-6249 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((8) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact arg-2 (let ((sc2 e-5)) (let ((e-29 (vector-ref sc2 1))) e-29)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-1 (vector 0 ) e-3) eta-0))) (else (vector 1 (vector 0 ))))))))))))))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((UnifyState-Core-case--11470-6392 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8 e-7 e-4 e-3 e-6 (IntMap-Data-lookup 'erased e-7 (let ((sc3 e-6)) (let ((e-14 (vector-ref sc3 5))) e-14)))) eta-0))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-4 eta-1)) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 9 (Prelude-negate_Neg__Int 1)) (let ((sc1 arg-7)) (let ((e-2 (vector-ref sc1 3))) e-2))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (UnifyState-Core-n--11387-6190-checkRef arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-6) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-4 eta-1)) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 9 (Prelude-negate_Neg__Int 1)) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 3))) e-2))))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (UnifyState-Core-n--11387-6190-checkRef arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-5) eta-0)))))))))))) -(define UnifyState-Core-case--11387-6230 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (UnifyState-Core-case--11443-6249 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define UnifyState-Core-case--11326-6138 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 31 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-3)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define UnifyState-Core-case--11277-6112 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 (IntMap-Data-insert 'erased arg-0 arg-1 e-3) e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))) -(define UnifyState-Core-case--11219-6046 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (arg-1 e-5))))))) -(define UnifyState-Core-case--11161-5996 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) (else arg-1))))) -(define UnifyState-Core-case--11033-5944 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 (let ((sc1 arg-8)) (let ((e-27 (vector-ref sc1 25))) e-27)) e-25))))))))))))))))))))))))))))) -(define UnifyState-Core-case--10501-5506 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 arg-1 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))))) -(define UnifyState-Core-case--10501-5351 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (Env-Core-abstractFullEnvType arg-3 arg-8 arg-6 arg-4)) (else (Env-Core-abstractEnvType arg-3 arg-8 arg-6 arg-4)))))) -(define UnifyState-Core-case--9689-4599 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-5 (vector 1 (UnifyState-Core-n--9689-4537-isLet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased arg-3)) (List-Data-length 'erased arg-4)) arg-8)) (else arg-8))))) -(define UnifyState-Core-case--9607-4481 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 (vector 0 arg-4 (vector 0 arg-2 (vector 0 arg-0 arg-6 1 (vector 0 ) arg-5 arg-3 arg-1))) e-5) e-6 e-7 e-8 e-9)))))))))))))) -(define UnifyState-Core-case--9548-4427 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 (IntMap-Data-insert 'erased arg-4 arg-0 e-4) e-5 e-6 (b+ arg-4 1 63) e-8 e-9))))))))))))) -(define UnifyState-Core-case--9509-4382 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 (IntMap-Data-delete 'erased arg-0 e-4) e-5 e-6 e-7 e-8 e-9)))))))))))))) -(define UnifyState-Core-case--9347-4232 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 (IntMap-Data-delete 'erased arg-0 e-1) e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))) -(define UnifyState-Core-case--9310-4198 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 arg-0 e-3 e-4 e-5 e-6 e-7 e-8 e-9))))))))))))) -(define UnifyState-Core-case--9269-4164 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 (IntMap-Data-empty 'erased) e-3 e-4 e-5 e-6 e-7 e-8 e-9))))))))))))) -(define UnifyState-Core-case--9223-4102 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (UnifyState-Core-removeHole arg-1 e-1 eta-0)))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define UnifyState-Core-case--9180-4077 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 (IntMap-Data-delete 'erased arg-0 e-0) e-1 (IntMap-Data-delete 'erased arg-0 e-2) (IntMap-Data-delete 'erased arg-0 e-3) e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))) -(define UnifyState-Core-case--9128-4032 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 (IntMap-Data-insert 'erased arg-0 (vector 0 arg-2 arg-1) e-1) e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))) -(define UnifyState-Core-case--9069-3978 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 (IntMap-Data-insert 'erased arg-0 (vector 0 arg-2 arg-1) e-0) e-1 (IntMap-Data-insert 'erased arg-0 (vector 0 arg-2 arg-1) e-2) e-3 e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))) -(define UnifyState-Core-case--9016-3934 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9)))))))))))))) -(define UnifyState-Core-case--8963-3885 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9)))))))))))))) -(define UnifyState-Core-case--8909-3836 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9)))))))))))))) -(define UnifyState-Core-case--8835-3786 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9)))))))))))))) -(define UnifyState-Core-case--8776-3717 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9)))))))))))))) -(define UnifyState-Core-case--8741-3670 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 0 e-7 e-8 e-9))))))))))))) -(define UnifyState-Core-n--12104-6795-nameEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 arg-6)) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-15 (vector-ref sc3 2))) (Name-Core-C-61C-61_Eq__Name e-7 e-15))))))))))) -(define UnifyState-Core-n--9689-4537-isLet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) 0)(else 1))))) -(define UnifyState-Core-n--10959-5780-envArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((args (List-Data-reverse 'erased (UnifyState-Core-mkConstantAppArgs 'erased arg-0 1 arg-5 arg-3 (vector 0 ))))) args))) -(define UnifyState-Core-n--10881-5697-envArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((args (List-Data-reverse 'erased (UnifyState-Core-mkConstantAppArgs 'erased arg-0 1 arg-7 arg-3 (vector 0 ))))) args))) -(define UnifyState-Core-n--10775-5581-envArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((args (List-Data-reverse 'erased (UnifyState-Core-mkConstantAppArgs 'erased arg-1 0 arg-6 arg-4 (vector 0 ))))) args))) -(define UnifyState-Core-n--10501-5329-envArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((args (List-Data-reverse 'erased (UnifyState-Core-mkConstantAppArgs 'erased arg-3 arg-0 arg-8 arg-6 (vector 0 ))))) args))) -(define UnifyState-Core-n--12304-6992-dumpConstraint (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((UnifyState-Core-case--12311-7014 arg-0 arg-1 arg-2 arg-3 arg-4 e-5 e-6 (IntMap-Data-lookup 'erased arg-4 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) ext-0))))))))))))) -(define UnifyState-Core-n--11387-6190-checkRef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 (Strings-Prelude-C-43C-43 "Hole cannot depend on an unbound implicit " (Name-Core-show_Show__Name e-0))) eta-0))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Binary-Core-addGlobalDef (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupContextEntry e-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (p) (lambda (eta-1) (let ((act-26 ((Context-Core-decode (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) (Builtin-fst 'erased 'erased p) 1 (Builtin-snd 'erased 'erased p)) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-7)))))))))) e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Binary-Core-case--11744-6287 e-2 e-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 (Binary-Core-n--11744-6196-completeDef e-2 e-3 arg-2 arg-1 arg-0 e-7)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (as) (lambda (eta-1) (Context-Core-addContextAlias arg-0 (Name-Core-asName arg-1 as e-2) e-2 eta-1)))) arg-2) eta-0)))))))))))))))))))))))))) +(define Binary-Core-addAutoHint (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (set-box! arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-29 (vector-ref sc3 3))) (let ((e-28 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-27 (vector-ref sc3 6))) (let ((e-26 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (let ((e-21 (vector-ref sc3 22))) (let ((e-22 (vector-ref sc3 23))) (let ((e-23 (vector-ref sc3 24))) (let ((e-24 (vector-ref sc3 25))) (let ((e-25 (vector-ref sc3 26))) (vector 0 e-0 e-1 e-29 e-28 e-4 e-27 e-26 e-7 (NameMap-Data-insert 'erased e-6 e-3 e-8) e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))))))))) +(define UnifyState-Core-case--13307-7945 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-2 arg-1 (lambda () "--- CONSTRAINTS AND HOLES ---") eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (UnifyState-Core-dumpHole arg-3 arg-2 arg-1 eta-1 eta-2))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-6)) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))))))) +(define UnifyState-Core-case--13307-7922 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0))) (else (let ((sc1 arg-4)) (let ((e-2 (vector-ref sc1 3))) e-2))))))) +(define UnifyState-Core-case--13279-7896 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (let ((hs (List-Prelude-C-43C-43 'erased (IntMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-1 (vector-ref sc1 2))) e-1))) (IntMap-Data-toList 'erased (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-4)) (let ((e-0 (vector-ref sc2 1))) e-0))) (else (let ((sc2 arg-4)) (let ((e-2 (vector-ref sc2 3))) e-2))))))))) (let ((sc1 hs)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-2 arg-1 (lambda () "--- CONSTRAINTS AND HOLES ---") eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (UnifyState-Core-dumpHole arg-3 arg-2 arg-1 eta-1 eta-2))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) hs)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define UnifyState-Core-case--12915-7587 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) " (Invertible)") (else ""))))) +(define UnifyState-Core-case--12765-7529 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) " (ImplBind)") (else (Strings-Prelude-C-43C-43 "" (UnifyState-Core-case--12915-7587 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (let ((sc1 arg-7)) (let ((e-14 (vector-ref sc1 15))) e-14))))))))) +(define UnifyState-Core-case--12716-7384 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (let ((e-4 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-2 (vector 9 arg-0)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-8 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "!" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-9))))) eta-0)))))))))))))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((act-25 (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-4 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "\u0009 = " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-8) "\u000a\u0009when"))) eta-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (UnifyState-Core-n--12342-7000-dumpConstraint arg-0 arg-1 arg-2 arg-3 eta-1 eta-2))) e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (vector 1 (vector 0 )))))))))))))))))) ((7) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "?" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc3 arg-7)) (let ((e-1 (vector-ref sc3 2))) e-1))) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5) (UnifyState-Core-case--12765-7529 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-7 e-8 e-3 e-5 (let ((sc3 e-8)) (let ((e-0 (vector-ref sc3 1))) e-0)))))))) eta-0)))))))))) ((8) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "Search " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-0) (Strings-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-6))))) eta-0))))))))))))) ((1) (lambda (eta-0) (let ((act-24 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) e-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) (vector 1 (FC-Core-emptyFC) (vector 1 ) (vector 9 arg-0)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 0)))) (lambda () (Strings-Prelude-C-43C-43 "Solved: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-0) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5) (Strings-Prelude-C-43C-43 " = " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-6))))))) eta-0))))))))))))) ((10) (lambda (eta-0) (let ((act-24 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) e-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 0)))) (lambda () (Strings-Prelude-C-43C-43 "Bound: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-0) (Strings-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5))))) eta-0)))))))) ((11) (lambda (eta-0) (let ((act-24 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) e-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 0)))) (lambda () (Strings-Prelude-C-43C-43 "Delayed elaborator : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5))) eta-0))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define UnifyState-Core-case--12666-7343 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-2))) (UnifyState-Core-case--12716-7384 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 bind-0 (vector 0 (let ((sc1 e-2)) (let ((e-17 (vector-ref sc1 18))) e-17)) (let ((sc1 e-2)) (let ((e-21 (vector-ref sc1 3))) e-21))))))))))) +(define UnifyState-Core-case--12342-7297 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 9 arg-0) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc3 1))) (let ((bind-0 (vector 1 e-2))) ((UnifyState-Core-case--12716-7384 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5 e-2 bind-0 (vector 0 (let ((sc4 e-2)) (let ((e-17 (vector-ref sc4 18))) e-17)) (let ((sc4 e-2)) (let ((e-23 (vector-ref sc4 3))) e-23)))) eta-0)))))))))))))))))))))) +(define UnifyState-Core-case--12370-7170 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-13)) (cond ((equal? sc0 0) "\u000a\u0009(lazy allowed)") (else ""))))) +(define UnifyState-Core-case--12349-7022 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (Context-Core-log arg-2 arg-1 (lambda () "\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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-10 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-11 (vector-ref sc3 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-normalise e-3 arg-6 e-7 e-9 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc4 1))) (let ((act-27 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-12 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-13 (vector-ref sc5 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc5 1))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "\u0009 " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-11) (Strings-Prelude-C-43C-43 " =?= " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-13))))) eta-0))))))))))))))))))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-10))) (else (let ((act-25 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-8 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-11 (vector-ref sc3 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-9 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc4 1))) (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "\u0009 from " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-11) (Strings-Prelude-C-43C-43 " =?= " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-12) (let ((sc5 e-5)) (cond ((equal? sc5 0) "\u000a\u0009(lazy allowed)") (else "")))))))) eta-0)))))))))))))))))))))) (else (let ((e-10 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 4))) (let ((e-14 (vector-ref sc1 5))) (lambda (eta-0) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "\u0009\u0009" (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-10 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-10 d x)))) e-13) (Strings-Prelude-C-43C-43 " =?= " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-10 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-10 d x)))) e-14))))) eta-0)))))))))))))) +(define UnifyState-Core-case--12142-6954 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (vector 0 )) (else arg-8))))) +(define UnifyState-Core-case--11723-6632 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-13)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 (IntMap-Data-empty 'erased) e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9))))))))))))) +(define UnifyState-Core-case--11723-6506 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-13)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 (IntMap-Data-empty 'erased) e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9))))))))))))) +(define UnifyState-Core-case--11675-6434 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-3 (let ((sc1 arg-13)) (let ((e-16 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 3))) (let ((e-13 (vector-ref sc1 4))) (let ((e-12 (vector-ref sc1 5))) (let ((e-11 (vector-ref sc1 6))) (let ((e-10 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-16 (IntMap-Data-empty 'erased) e-14 e-13 e-12 e-11 e-10 e-7 e-8 e-9)))))))))))))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 1))) (vector 0 e-7))) (else (let ((act-25 (Normalise-Core-normaliseHoles e-0 arg-5 e-4 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-normaliseHoles e-0 arg-5 e-4 e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 2 e-0 e-1 e-4 e-8 e-9) eta-0)))))))))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 e-10)) (case (vector-ref sc1 0) ((1) (let ((e-13 (vector-ref sc1 1))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((1) (let ((e-16 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-3 (let ((sc3 arg-13)) (let ((e-0 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-5 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-18 (vector-ref sc3 8))) (let ((e-15 (vector-ref sc3 9))) (let ((e-12 (vector-ref sc3 10))) (vector 0 e-0 (IntMap-Data-empty 'erased) e-2 e-3 e-4 e-5 e-6 e-18 e-15 e-12)))))))))))))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-25 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-13 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-16 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 2 e-7 e-8 e-9 e-6 e-12) eta-0))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define UnifyState-Core-case--11508-6400 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-3 (let ((sc2 arg-13)) (let ((e-17 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 3))) (let ((e-14 (vector-ref sc2 4))) (let ((e-13 (vector-ref sc2 5))) (let ((e-12 (vector-ref sc2 6))) (let ((e-11 (vector-ref sc2 7))) (let ((e-10 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-17 (IntMap-Data-empty 'erased) e-15 e-14 e-13 e-12 e-11 e-10 e-8 e-9)))))))))))))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((act-25 (Normalise-Core-normaliseHoles e-0 arg-5 e-4 e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-normaliseHoles e-0 arg-5 e-4 e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 2 e-0 e-7 e-4 e-9 e-10) eta-0)))))))))))))))))))))) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-11 (vector-ref sc1 5))) (let ((sc2 e-10)) (case (vector-ref sc2 0) ((1) (let ((e-13 (vector-ref sc2 1))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((1) (let ((e-16 (vector-ref sc3 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-3 (let ((sc4 arg-13)) (let ((e-0 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-5 (vector-ref sc4 6))) (let ((e-6 (vector-ref sc4 7))) (let ((e-18 (vector-ref sc4 8))) (let ((e-15 (vector-ref sc4 9))) (let ((e-12 (vector-ref sc4 10))) (vector 0 e-0 (IntMap-Data-empty 'erased) e-2 e-3 e-4 e-5 e-6 e-18 e-15 e-12)))))))))))))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-25 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-13 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-16 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 2 e-7 e-8 e-9 e-6 e-12) eta-0))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define UnifyState-Core-case--11508-6299 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-1 (vector 0 ) e-1) eta-0)))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define UnifyState-Core-case--11481-6257 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((8) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact arg-2 (let ((sc2 e-5)) (let ((e-29 (vector-ref sc2 1))) e-29)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-1 (vector 0 ) e-3) eta-0))) (else (vector 1 (vector 0 ))))))))))))))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((UnifyState-Core-case--11508-6400 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8 e-7 e-4 e-3 e-6 (IntMap-Data-lookup 'erased e-7 (let ((sc3 e-6)) (let ((e-14 (vector-ref sc3 5))) e-14)))) eta-0))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-4 eta-1)) ((NameMap-Data-keys 'erased) (TT-Core-getRefs 'erased (vector 9 (Prelude-negate_Neg__Int 1)) (let ((sc1 arg-7)) (let ((e-2 (vector-ref sc1 3))) e-2))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (UnifyState-Core-n--11425-6198-checkRef arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-6) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-4 eta-1)) ((NameMap-Data-keys 'erased) (TT-Core-getRefs 'erased (vector 9 (Prelude-negate_Neg__Int 1)) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 3))) e-2))))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (UnifyState-Core-n--11425-6198-checkRef arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-5) eta-0)))))))))))) +(define UnifyState-Core-case--11425-6238 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (UnifyState-Core-case--11481-6257 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define UnifyState-Core-case--11364-6146 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 31 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-3)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define UnifyState-Core-case--11315-6120 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 (IntMap-Data-insert 'erased arg-0 arg-1 e-3) e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))) +(define UnifyState-Core-case--11257-6054 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (arg-1 e-5))))))) +(define UnifyState-Core-case--11199-6004 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) (else arg-1))))) +(define UnifyState-Core-case--11071-5952 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 (let ((sc1 arg-8)) (let ((e-27 (vector-ref sc1 25))) e-27)) e-25))))))))))))))))))))))))))))) +(define UnifyState-Core-case--10539-5514 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 arg-1 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))))) +(define UnifyState-Core-case--10539-5359 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (Env-Core-abstractFullEnvType arg-3 arg-8 arg-6 arg-4)) (else (Env-Core-abstractEnvType arg-3 arg-8 arg-6 arg-4)))))) +(define UnifyState-Core-case--9727-4607 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-5 (vector 1 (UnifyState-Core-n--9727-4545-isLet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased arg-3)) (List-Data-length 'erased arg-4)) arg-8)) (else arg-8))))) +(define UnifyState-Core-case--9645-4489 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 (vector 0 arg-4 (vector 0 arg-2 (vector 0 arg-0 arg-6 1 (vector 0 ) arg-5 arg-3 arg-1))) e-5) e-6 e-7 e-8 e-9)))))))))))))) +(define UnifyState-Core-case--9586-4435 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 (IntMap-Data-insert 'erased arg-4 arg-0 e-4) e-5 e-6 (b+ arg-4 1 63) e-8 e-9))))))))))))) +(define UnifyState-Core-case--9547-4390 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 (IntMap-Data-delete 'erased arg-0 e-4) e-5 e-6 e-7 e-8 e-9)))))))))))))) +(define UnifyState-Core-case--9385-4240 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 (IntMap-Data-delete 'erased arg-0 e-1) e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))) +(define UnifyState-Core-case--9348-4206 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 arg-0 e-3 e-4 e-5 e-6 e-7 e-8 e-9))))))))))))) +(define UnifyState-Core-case--9307-4172 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 (IntMap-Data-empty 'erased) e-3 e-4 e-5 e-6 e-7 e-8 e-9))))))))))))) +(define UnifyState-Core-case--9261-4110 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (UnifyState-Core-removeHole arg-1 e-1 eta-0)))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define UnifyState-Core-case--9218-4085 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 (IntMap-Data-delete 'erased arg-0 e-0) e-1 (IntMap-Data-delete 'erased arg-0 e-2) (IntMap-Data-delete 'erased arg-0 e-3) e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))) +(define UnifyState-Core-case--9166-4040 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 (IntMap-Data-insert 'erased arg-0 (vector 0 arg-2 arg-1) e-1) e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))) +(define UnifyState-Core-case--9107-3986 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 (IntMap-Data-insert 'erased arg-0 (vector 0 arg-2 arg-1) e-0) e-1 (IntMap-Data-insert 'erased arg-0 (vector 0 arg-2 arg-1) e-2) e-3 e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))) +(define UnifyState-Core-case--9054-3942 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9)))))))))))))) +(define UnifyState-Core-case--9001-3893 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9)))))))))))))) +(define UnifyState-Core-case--8947-3844 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9)))))))))))))) +(define UnifyState-Core-case--8873-3794 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9)))))))))))))) +(define UnifyState-Core-case--8814-3725 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9)))))))))))))) +(define UnifyState-Core-case--8779-3678 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 0 e-7 e-8 e-9))))))))))))) +(define UnifyState-Core-n--12142-6803-nameEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 arg-6)) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-15 (vector-ref sc3 2))) (Name-Core-C-61C-61_Eq__Name e-7 e-15))))))))))) +(define UnifyState-Core-n--9727-4545-isLet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) 0)(else 1))))) +(define UnifyState-Core-n--10997-5788-envArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((args (List-Data-reverse 'erased (UnifyState-Core-mkConstantAppArgs 'erased arg-0 1 arg-5 arg-3 (vector 0 ))))) args))) +(define UnifyState-Core-n--10919-5705-envArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((args (List-Data-reverse 'erased (UnifyState-Core-mkConstantAppArgs 'erased arg-0 1 arg-7 arg-3 (vector 0 ))))) args))) +(define UnifyState-Core-n--10813-5589-envArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((args (List-Data-reverse 'erased (UnifyState-Core-mkConstantAppArgs 'erased arg-1 0 arg-6 arg-4 (vector 0 ))))) args))) +(define UnifyState-Core-n--10539-5337-envArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((args (List-Data-reverse 'erased (UnifyState-Core-mkConstantAppArgs 'erased arg-3 arg-0 arg-8 arg-6 (vector 0 ))))) args))) +(define UnifyState-Core-n--12342-7000-dumpConstraint (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((UnifyState-Core-case--12349-7022 arg-0 arg-1 arg-2 arg-3 arg-4 e-5 e-6 (IntMap-Data-lookup 'erased arg-4 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) ext-0))))))))))))) +(define UnifyState-Core-n--11425-6198-checkRef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 (Strings-Prelude-C-43C-43 "Hole cannot depend on an unbound implicit " (Name-Core-show_Show__Name e-0))) eta-0))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define UnifyState-Core-tryUnify (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (UnifyState-Core-tryErrorUnify 'erased arg-1 arg-2 arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2))) (else (arg-4 ext-0))))))))))) (define UnifyState-Core-tryErrorUnify (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-branch arg-1 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-26 (arg-3 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Context-Core-commit arg-1 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 1 e-7)))))))))))) (lambda (err) (lambda (eta-0) (let ((act-26 (let ((act-26 (set-box! arg-2 e-5))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (set-box! arg-1 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-29 (vector-ref sc4 6))) (let ((e-28 (vector-ref sc4 7))) (let ((e-27 (vector-ref sc4 8))) (let ((e-26 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (let ((e-21 (vector-ref sc4 22))) (let ((e-22 (vector-ref sc4 23))) (let ((e-23 (vector-ref sc4 24))) (let ((e-25 (vector-ref sc4 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-29 e-28 e-27 e-26 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 (let ((sc5 e-8)) (let ((e-31 (vector-ref sc5 25))) e-31)) e-25)))))))))))))))))))))))))))))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 0 err))))))))))))))))) ext-0))))))))))))) (define UnifyState-Core-saveHoles (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 (IntMap-Data-empty 'erased) e-3 e-4 e-10 e-6 e-7 e-8 e-9)))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)))))))))))))) (define UnifyState-Core-restoreHoles (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 arg-1 e-3 e-4 e-10 e-6 e-7 e-8 e-9)))))))))))))) (vector 1 act-25))))))))) (define UnifyState-Core-resetNextVar (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-10 0 e-7 e-8 e-9)))))))))))))) (vector 1 act-25))))))))) -(define UnifyState-Core-removeHoleName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((UnifyState-Core-case--9223-4102 arg-2 arg-1 arg-0 e-5 (Context-Core-getNameID arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)))) ext-0)))))))) +(define UnifyState-Core-removeHoleName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((UnifyState-Core-case--9261-4110 arg-2 arg-1 arg-0 e-5 (Context-Core-getNameID arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)))) ext-0)))))))) (define UnifyState-Core-removeHole (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 (IntMap-Data-delete 'erased arg-1 e-0) e-1 (IntMap-Data-delete 'erased arg-1 e-2) (IntMap-Data-delete 'erased arg-1 e-3) e-4 e-10 e-6 e-7 e-8 e-9))))))))))))))) (vector 1 act-25))))))))) (define UnifyState-Core-removeGuess (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 (IntMap-Data-delete 'erased arg-1 e-1) e-2 e-3 e-4 e-10 e-6 e-7 e-8 e-9))))))))))))))) (vector 1 act-25))))))))) (define UState-UnifyState-Core-nextName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-6 (vector-ref sc0 7))) e-6)))) (define UState-UnifyState-Core-nextConstraint (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-7 (vector-ref sc0 8))) e-7)))) -(define UnifyState-Core-newSearch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((hty (Env-Core-abstractEnvType arg-0 arg-3 arg-7 arg-9))) (let ((hole (Context-Core-newDef arg-3 arg-8 arg-4 (vector 0 ) hty (vector 2 ) (vector 8 arg-4 arg-5 arg-6)))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Adding new search " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-3) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name arg-8))))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "New search type") arg-7 arg-9 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-addDef arg-1 arg-8 hole eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (UnifyState-Core-addGuessName arg-2 arg-3 arg-8 e-7 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 e-7 (vector 2 arg-3 arg-8 e-7 (UnifyState-Core-n--10881-5697-envArgs arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1)))))))))))))))))))))))))) -(define UnifyState-Core-newMetaLets (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((hty (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Env-Core-abstractFullEnvType arg-0 arg-3 arg-5 arg-7)) (else (Env-Core-abstractEnvType arg-0 arg-3 arg-5 arg-7)))))) (let ((hole (UnifyState-Core-case--10501-5506 arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 hty (Context-Core-newDef arg-3 arg-6 arg-4 (vector 0 ) hty (vector 2 ) arg-8)))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Adding new meta " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x))))) (vector 0 arg-6 (vector 0 arg-3 arg-4))))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "New meta type " (Name-Core-show_Show__Name arg-6))) hty eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (Context-Core-addDef arg-1 arg-6 hole eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (UnifyState-Core-addHoleName arg-2 arg-3 arg-6 e-8 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 0 e-8 (vector 2 arg-3 arg-6 e-8 (UnifyState-Core-n--10501-5329-envArgs arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1)))))))))))))))))))))))))))))) +(define UnifyState-Core-newSearch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((hty (Env-Core-abstractEnvType arg-0 arg-3 arg-7 arg-9))) (let ((hole (Context-Core-newDef arg-3 arg-8 arg-4 (vector 0 ) hty (vector 2 ) (vector 8 arg-4 arg-5 arg-6)))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Adding new search " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-3) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name arg-8))))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "New search type") arg-7 arg-9 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-addDef arg-1 arg-8 hole eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (UnifyState-Core-addGuessName arg-2 arg-3 arg-8 e-7 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 e-7 (vector 2 arg-3 arg-8 e-7 (UnifyState-Core-n--10919-5705-envArgs arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1)))))))))))))))))))))))))) +(define UnifyState-Core-newMetaLets (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((hty (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Env-Core-abstractFullEnvType arg-0 arg-3 arg-5 arg-7)) (else (Env-Core-abstractEnvType arg-0 arg-3 arg-5 arg-7)))))) (let ((hole (UnifyState-Core-case--10539-5514 arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 hty (Context-Core-newDef arg-3 arg-6 arg-4 (vector 0 ) hty (vector 2 ) arg-8)))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Adding new meta " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x))))) (vector 0 arg-6 (vector 0 arg-3 arg-4))))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "New meta type " (Name-Core-show_Show__Name arg-6))) hty eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (Context-Core-addDef arg-1 arg-6 hole eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (UnifyState-Core-addHoleName arg-2 arg-3 arg-6 e-8 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 0 e-8 (vector 2 arg-3 arg-6 e-8 (UnifyState-Core-n--10539-5337-envArgs arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1)))))))))))))))))))))))))))))) (define UnifyState-Core-newMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (UnifyState-Core-newMetaLets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 1))) -(define UnifyState-Core-newDelayed (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((hty (Env-Core-abstractEnvType arg-0 arg-3 arg-5 arg-7))) (let ((hole (Context-Core-newDef arg-3 arg-6 arg-4 (vector 0 ) hty (vector 2 ) (vector 11 )))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-2 arg-6 hole eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Added delayed elaborator " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))) (vector 0 arg-6 e-5)))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (UnifyState-Core-addHoleName arg-1 arg-3 arg-6 e-5 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 e-5 (vector 2 arg-3 arg-6 e-5 (UnifyState-Core-n--10959-5780-envArgs arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1)))))))))))))))))))))) -(define UnifyState-Core-newConstant (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((def (UnifyState-Core-mkConstant arg-0 arg-3 arg-5 arg-6))) (let ((defty (Env-Core-abstractFullEnvType arg-0 arg-3 arg-5 arg-7))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-2 arg-1 "postpone" eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((guess (Context-Core-newDef arg-3 e-5 arg-4 (vector 0 ) defty (vector 2 ) (vector 9 def (Env-Core-length 'erased 'erased arg-5) arg-8)))) (let ((act-25 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Adding new constant " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x))))) (vector 0 e-5 (vector 0 arg-3 arg-4))))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-logTerm (vector 0 ) arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "New constant type " (Name-Core-show_Show__Name e-5))) defty eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (Context-Core-addDef arg-2 e-5 guess eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (UnifyState-Core-addGuessName arg-1 arg-3 e-5 e-8 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-3 e-5 e-8 (UnifyState-Core-n--10775-5581-envArgs arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1))))))))))))))))))))))))))))))) -(define UnifyState-Core-mkConstantAppArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((rec (UnifyState-Core-mkConstantAppArgs 'erased e-3 arg-2 arg-3 e-9 (List-Prelude-C-43C-43 'erased arg-5 (vector 1 e-2 (vector 0 )))))) (UnifyState-Core-case--9689-4599 e-2 e-3 e-9 e-8 arg-5 arg-3 arg-2 'erased rec (Prelude-C-124C-124 arg-2 (lambda () (Prelude-not (UnifyState-Core-n--9689-4537-isLet e-2 e-3 e-9 e-8 arg-5 arg-3 arg-2 'erased 'erased e-8)))))))))))))))) +(define UnifyState-Core-newDelayed (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((hty (Env-Core-abstractEnvType arg-0 arg-3 arg-5 arg-7))) (let ((hole (Context-Core-newDef arg-3 arg-6 arg-4 (vector 0 ) hty (vector 2 ) (vector 11 )))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-2 arg-6 hole eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Added delayed elaborator " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))) (vector 0 arg-6 e-5)))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (UnifyState-Core-addHoleName arg-1 arg-3 arg-6 e-5 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 e-5 (vector 2 arg-3 arg-6 e-5 (UnifyState-Core-n--10997-5788-envArgs arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1)))))))))))))))))))))) +(define UnifyState-Core-newConstant (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((def (UnifyState-Core-mkConstant arg-0 arg-3 arg-5 arg-6))) (let ((defty (Env-Core-abstractFullEnvType arg-0 arg-3 arg-5 arg-7))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-2 arg-1 "postpone" eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((guess (Context-Core-newDef arg-3 e-5 arg-4 (vector 0 ) defty (vector 2 ) (vector 9 def (Env-Core-length 'erased 'erased arg-5) arg-8)))) (let ((act-25 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Adding new constant " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x))))) (vector 0 e-5 (vector 0 arg-3 arg-4))))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-logTerm (vector 0 ) arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "New constant type " (Name-Core-show_Show__Name e-5))) defty eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (Context-Core-addDef arg-2 e-5 guess eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (UnifyState-Core-addGuessName arg-1 arg-3 e-5 e-8 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-3 e-5 e-8 (UnifyState-Core-n--10813-5589-envArgs arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1))))))))))))))))))))))))))))))) +(define UnifyState-Core-mkConstantAppArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((rec (UnifyState-Core-mkConstantAppArgs 'erased e-3 arg-2 arg-3 e-9 (List-Prelude-C-43C-43 'erased arg-5 (vector 1 e-2 (vector 0 )))))) (UnifyState-Core-case--9727-4607 e-2 e-3 e-9 e-8 arg-5 arg-3 arg-2 'erased rec (Prelude-C-124C-124 arg-2 (lambda () (Prelude-not (UnifyState-Core-n--9727-4545-isLet e-2 e-3 e-9 e-8 arg-5 arg-3 arg-2 'erased 'erased e-8)))))))))))))))) (define UnifyState-Core-mkConstant (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((ty (TT-Core-binderType 'erased e-8))) (UnifyState-Core-mkConstant e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 0 (TT-Core-multiplicity 'erased e-8) (vector 1 ) ty) arg-3))))))))))))) (define UnifyState-Core-isCurrentHole (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Prelude-maybe 'erased 'erased (lambda () 1) (lambda () (lambda (eta-0) 0)) (IntMap-Data-lookup 'erased arg-1 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))))))) (define UnifyState-Core-initUState (lambda () (vector 0 (IntMap-Data-empty 'erased) (IntMap-Data-empty 'erased) (IntMap-Data-empty 'erased) (IntMap-Data-empty 'erased) (IntMap-Data-empty 'erased) (vector 0 ) 0 0 (vector 0 ) 1))) @@ -3691,17 +3731,17 @@ (define UnifyState-Core-genName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-10 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((Context-Core-inCurrentNS arg-0 (vector 2 arg-2 (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-10)))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 e-7))))))))))))))))) (define UnifyState-Core-genMVName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (UnifyState-Core-genName arg-0 arg-1 e-0 eta-0)))) ((2) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (UnifyState-Core-genName arg-0 arg-1 e-1 eta-0)))) ((5) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (UnifyState-Core-genName arg-0 arg-1 e-3 eta-0))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-10 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((Context-Core-inCurrentNS arg-0 (vector 2 (Name-Core-show_Show__Name arg-2) (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-10)))) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 e-7))))))))))))))))))))) (define UnifyState-Core-genCaseName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-10 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Context-Core-inCurrentNS arg-0 (vector 7 arg-2 (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-10)))) ext-0)))))))))))) -(define UnifyState-Core-dumpHole (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((UnifyState-Core-case--12304-7289 arg-3 arg-2 arg-1 arg-0 e-5 e-6 (Prelude-C-60_Ord__Nat (let ((sc2 (let ((sc3 (let ((sc4 e-6)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (let ((e-2 (vector-ref sc3 3))) e-2)))) (let ((e-4 (vector-ref sc2 5))) e-4)) arg-2)) ext-0))))))))))))) -(define UnifyState-Core-dumpConstraints (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((UnifyState-Core-case--13235-7882 arg-3 arg-2 arg-1 arg-0 e-5 e-6 (Prelude-C-62C-61_Ord__Nat (let ((sc2 (let ((sc3 (let ((sc4 e-6)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (let ((e-2 (vector-ref sc3 3))) e-2)))) (let ((e-4 (vector-ref sc2 5))) e-4)) arg-2)) ext-0))))))))))))) +(define 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--12342-7297 arg-3 arg-2 arg-1 arg-0 e-5 e-6 (Prelude-C-60_Ord__Nat (let ((sc2 (let ((sc3 (let ((sc4 e-6)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (let ((e-2 (vector-ref sc3 3))) e-2)))) (let ((e-4 (vector-ref sc2 5))) e-4)) arg-2)) ext-0))))))))))))) +(define UnifyState-Core-dumpConstraints (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((UnifyState-Core-case--13279-7896 arg-3 arg-2 arg-1 arg-0 e-5 e-6 (Prelude-C-62C-61_Ord__Nat (let ((sc2 (let ((sc3 (let ((sc4 e-6)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (let ((e-2 (vector-ref sc3 3))) e-2)))) (let ((e-4 (vector-ref sc2 5))) e-4)) arg-2)) ext-0))))))))))))) (define UState-UnifyState-Core-dotConstraints (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5)))) (define UnifyState-Core-deleteConstraint (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 (IntMap-Data-delete 'erased arg-1 e-4) e-10 e-6 e-7 e-8 e-9))))))))))))))) (vector 1 act-25))))))))) (define UState-UnifyState-Core-delayedHoles (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))) (define UState-UnifyState-Core-delayedElab (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-8 (vector-ref sc0 9))) e-8)))) (define UState-UnifyState-Core-currentHoles (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) (define UState-UnifyState-Core-constraints (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4)))) -(define UnifyState-Core-checkValidHole (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 ((Context-Core-lookupCtxtExact (vector 9 e-2) (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((_-0 (vector 1 e-1))) ((UnifyState-Core-case--11443-6249 e-2 e-6 e-7 arg-1 arg-0 e-5 e-8 e-1 _-0 (let ((sc6 e-1)) (let ((e-17 (vector-ref sc6 18))) e-17))) eta-0)))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))) -(define UnifyState-Core-checkUserHoles (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (UnifyState-Core-getGuesses arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((gs (IntMap-Data-toList 'erased e-5))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Unsolved guesses " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Int d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (FC-Core-show_Show__FC x-1)) (lambda (d) (lambda (x-1) (FC-Core-showPrec_Show__FC d x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (FC-Core-show_Show__FC x-1)) (lambda (d-0) (lambda (x-1) (FC-Core-showPrec_Show__FC d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Int d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (FC-Core-show_Show__FC x-1)) (lambda (d-0) (lambda (x-1) (FC-Core-showPrec_Show__FC d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (FC-Core-show_Show__FC x-1)) (lambda (d-1) (lambda (x-1) (FC-Core-showPrec_Show__FC d-1 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1))))) d-0 x-0))))) d x)))) gs))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (UnifyState-Core-checkValidHole arg-1 arg-0 eta-0)) gs) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (UnifyState-Core-getCurrentHoles arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((hs (IntMap-Data-toList 'erased e-8))) (let ((hsC-39 (UnifyState-Core-case--12104-6946 arg-2 arg-1 arg-0 e-5 gs e-6 e-7 e-8 hs ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Name-Core-isUserName eta-0))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased eta-0))) hs))))) (let ((act-28 (let ((sc4 (Prelude-C-38C-38 arg-2 (lambda () (Prelude-not (List-Data-isNil 'erased hsC-39)))))) (cond ((equal? sc4 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 31 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (List-Data-nubBy 'erased (lambda (eta-0) (lambda (eta-1) (UnifyState-Core-n--12104-6795-nameEq arg-2 arg-1 arg-0 'erased 'erased eta-0 eta-1))) hs))) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (UnifyState-Core-addDelayedHoleName arg-0 eta-0)) hsC-39) ext-0)))))))))))))))))))))))))))))) -(define UnifyState-Core-checkDelayedHoles (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((hs (IntMap-Data-toList 'erased (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 4))) e-3))))) ((UnifyState-Core-case--11326-6138 arg-1 arg-0 e-5 hs (Prelude-not (List-Data-isNil 'erased hs))) ext-0))))))))) +(define UnifyState-Core-checkValidHole (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 ((Context-Core-lookupCtxtExact (vector 9 e-2) (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((_-0 (vector 1 e-1))) ((UnifyState-Core-case--11481-6257 e-2 e-6 e-7 arg-1 arg-0 e-5 e-8 e-1 _-0 (let ((sc6 e-1)) (let ((e-17 (vector-ref sc6 18))) e-17))) eta-0)))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))) +(define UnifyState-Core-checkUserHoles (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (UnifyState-Core-getGuesses arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((gs (IntMap-Data-toList 'erased e-5))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Unsolved guesses " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Int d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (FC-Core-show_Show__FC x-1)) (lambda (d) (lambda (x-1) (FC-Core-showPrec_Show__FC d x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (FC-Core-show_Show__FC x-1)) (lambda (d-0) (lambda (x-1) (FC-Core-showPrec_Show__FC d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Int d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (FC-Core-show_Show__FC x-1)) (lambda (d-0) (lambda (x-1) (FC-Core-showPrec_Show__FC d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (FC-Core-show_Show__FC x-1)) (lambda (d-1) (lambda (x-1) (FC-Core-showPrec_Show__FC d-1 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1))))) d-0 x-0))))) d x)))) gs))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (UnifyState-Core-checkValidHole arg-1 arg-0 eta-0)) gs) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (UnifyState-Core-getCurrentHoles arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((hs (IntMap-Data-toList 'erased e-8))) (let ((hsC-39 (UnifyState-Core-case--12142-6954 arg-2 arg-1 arg-0 e-5 gs e-6 e-7 e-8 hs ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Name-Core-isUserName eta-0))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased eta-0))) hs))))) (let ((act-28 (let ((sc4 (Prelude-C-38C-38 arg-2 (lambda () (Prelude-not (List-Data-isNil 'erased hsC-39)))))) (cond ((equal? sc4 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 31 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (List-Data-nubBy 'erased (lambda (eta-0) (lambda (eta-1) (UnifyState-Core-n--12142-6803-nameEq arg-2 arg-1 arg-0 'erased 'erased eta-0 eta-1))) hs))) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (UnifyState-Core-addDelayedHoleName arg-0 eta-0)) hsC-39) ext-0)))))))))))))))))))))))))))))) +(define UnifyState-Core-checkDelayedHoles (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((hs (IntMap-Data-toList 'erased (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 4))) e-3))))) ((UnifyState-Core-case--11364-6146 arg-1 arg-0 e-5 hs (Prelude-not (List-Data-isNil 'erased hs))) ext-0))))))))) (define UnifyState-Core-applyToFull (lambda (arg-0 arg-1 arg-2 arg-3) (let ((args (List-Data-reverse 'erased (UnifyState-Core-mkConstantAppArgs 'erased arg-0 0 arg-1 arg-3 (vector 0 ))))) (TT-Core-apply 'erased arg-1 arg-2 args)))) (define UnifyState-Core-applyTo (lambda (arg-0 arg-1 arg-2 arg-3) (let ((args (List-Data-reverse 'erased (UnifyState-Core-mkConstantAppArgs 'erased arg-0 1 arg-1 arg-3 (vector 0 ))))) (TT-Core-apply 'erased arg-1 arg-2 args)))) (define UnifyState-Core-addHoleName (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 (IntMap-Data-insert 'erased arg-3 (vector 0 arg-1 arg-2) e-0) e-1 (IntMap-Data-insert 'erased arg-3 (vector 0 arg-1 arg-2) e-2) e-3 e-4 e-10 e-6 e-7 e-8 e-9))))))))))))))) (vector 1 act-25))))))))) @@ -3709,150 +3749,150 @@ (define UnifyState-Core-addDot (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 (vector 0 arg-4 (vector 0 arg-6 (vector 0 arg-0 arg-2 1 (vector 0 ) arg-3 arg-5 arg-7))) e-10) e-6 e-7 e-8 e-9))))))))))))))) (vector 1 act-25))))))))) (define UnifyState-Core-addDelayedHoleName (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (set-box! arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (let ((e-11 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-10 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-0 e-1 e-12 (IntMap-Data-insert 'erased e-2 e-3 e-11) e-4 e-10 e-6 e-7 e-8 e-9))))))))))))))) (vector 1 act-25))))))))))))) (define UnifyState-Core-addConstraint (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((cid (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 8))) e-7)))) (let ((act-25 (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 (IntMap-Data-insert 'erased cid arg-2 e-4) e-10 e-6 (b+ cid 1 63) e-8 e-9)))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 cid))))))))))))) -(define ProcessDecls-TTImp-case--10814-7669 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased e-2 eta-0)))))))) -(define ProcessDecls-TTImp-case--10785-7609 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-logTime 'erased arg-3 (lambda () "Elaboration") (lambda (eta-1) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-2) (let ((act-24 (ProcessDecls-TTImp-processTTImpDecls (vector 0 ) arg-3 arg-2 arg-1 (vector 0 ) (vector 0 ) e-2 eta-2))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 (UnifyState-Core-checkDelayedHoles arg-1 arg-3 eta-2))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 0)) (else (let ((e-3 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-3 eta-2))))))))))))))) (lambda (err) (lambda (eta-2) (let ((act-24 (let ((act-24 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-3) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-3)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-3) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-3) (let ((act-17 (arg-3503 eta-3))) (let ((act-16 (arg-3505 eta-3))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-3) (let ((act-24 (arg-3664 eta-3))) ((arg-3665 act-24) eta-3))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-3) (let ((act-51 (arg-3667 eta-3))) (act-51 eta-3)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (Core-Core-show_Show__Error x)) (lambda (d) (lambda (x) (Core-Core-showPrec_Show__Error d x))))) err) eta-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (vector 1 1))))))) eta-1)) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) e-5)) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 1)))))))))))) -(define ProcessDecls-TTImp-case--10503-7364 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (ProcessDecls-TTImp-n--10367-7213-checkCovering arg-0 arg-1 arg-8 (let ((sc1 arg-7)) (let ((e-1 (vector-ref sc1 2))) e-1)))) (else (lambda (eta-0) (ProcessDecls-TTImp-n--10367-7214-checkTotality arg-0 arg-1 arg-8 eta-0))))))) -(define ProcessDecls-TTImp-case--10367-7326 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-getDefaultTotalityOption arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((treq (Maybe-Data-fromMaybe 'erased (lambda () e-5) (ProcessDecls-TTImp-n--10367-7215-findSetTotal arg-0 arg-1 (let ((sc2 e-1)) (let ((e-11 (vector-ref sc2 12))) e-11)))))) (let ((tot (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((fc (let ((sc2 e-1)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) (Strings-Prelude-C-43C-43 " must be: " (TT-Core-show_Show__TotalReq treq)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((sc3 treq)) (case (vector-ref sc3 0) ((2) (vector 1 (vector 0 ))) ((1) ((ProcessDecls-TTImp-n--10367-7213-checkCovering arg-0 arg-1 fc (let ((sc4 tot)) (let ((e-2 (vector-ref sc4 2))) e-2))) eta-0)) (else (ProcessDecls-TTImp-n--10367-7214-checkTotality arg-0 arg-1 fc eta-0))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessDecls-TTImp-case--10394-7256 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda () (lambda (eta-0) (vector 1 (vector 1 (vector 12 arg-2 arg-0 e-0)))))))(else (lambda () (lambda (eta-0) (vector 1 (vector 0 ))))))))) -(define ProcessDecls-TTImp-case--10156-7129 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 arg-11 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) -(define ProcessDecls-TTImp-n--10367-7215-findSetTotal (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (ProcessDecls-TTImp-n--10367-7215-findSetTotal arg-0 arg-1 e-3))))))))))) -(define ProcessDecls-TTImp-n--10367-7214-checkTotality (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Termination-Core-checkTotal arg-1 arg-2 arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-getTotality arg-1 arg-2 arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((ProcessDecls-TTImp-n--10367-7213-checkCovering arg-0 arg-1 arg-2 (let ((sc2 e-6)) (let ((e-1 (vector-ref sc2 2))) e-1))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((Prelude-maybe 'erased 'erased (ProcessDecls-TTImp-case--10394-7256 arg-0 arg-1 arg-2 e-5 e-6 e-7 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 1 eta-0))))) e-7) ext-0)))))))))))))))))) -(define ProcessDecls-TTImp-n--10367-7213-checkCovering (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 11 arg-2 arg-0 arg-3))))))))) -(define ProcessDecls-TTImp-n--10676-7497-bindNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 0 ) arg-1 e-10 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-8 e-9 e-5)))))))))))))(else (lambda (eta-0) (vector 1 arg-7))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((ProcessDecls-TTImp-n--10676-7496-bindDataNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-6 e-8))))))))))))(else (lambda (eta-0) (vector 1 arg-7))))))) -(define ProcessDecls-TTImp-n--10676-7496-bindDataNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 0 ) arg-1 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDecls-TTImp-n--10676-7495-bindConNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-1 e-5 e-3 e-6))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 0 ) arg-1 e-7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-6 e-8)))))))))))))))) -(define ProcessDecls-TTImp-n--10676-7495-bindConNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 0 ) arg-1 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 e-5)))))))))))))) -(define ProcessDecls-TTImp-processTTImpFile (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-logTime 'erased arg-0 (lambda () "Parsing") (lambda (eta-0) (let ((act-24 (Source-Parser-parseFile 'erased arg-3 (vector 7 1 (Parser-TTImp-prog arg-3) (lambda () (lambda (decls) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-7739) (vector 0 decls)))))) eta-0))) (vector 1 act-24))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (Context-Core-logTime 'erased arg-0 (lambda () "Elaboration") (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (ProcessDecls-TTImp-processTTImpDecls (vector 0 ) arg-0 arg-1 arg-2 (vector 0 ) (vector 0 ) e-2 eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 (UnifyState-Core-checkDelayedHoles arg-2 arg-0 eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (vector 1 0)) (else (let ((e-3 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-3 eta-1))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-25 (let ((act-25 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-25 (arg-3664 eta-2))) ((arg-3665 act-25) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (Core-Core-show_Show__Error x)) (lambda (d) (lambda (x) (Core-Core-showPrec_Show__Error d x))))) err) eta-1))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (vector 1 1))))))) eta-0)) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) e-6)) ext-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 1)))))))))))))))) -(define ProcessDecls-TTImp-processTTImpDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (d) (lambda (eta-0) (let ((act-24 ((ProcessDecls-TTImp-n--10676-7497-bindNames arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 d) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Check-Elab-TTImp-processDecl arg-0 arg-1 arg-2 arg-3 (vector 0 ) arg-4 arg-5 e-5) eta-0)))))))) arg-6) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 0))))))) +(define ProcessDecls-TTImp-case--10841-7738 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased e-2 eta-0)))))))) +(define ProcessDecls-TTImp-case--10812-7678 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-logTime 'erased arg-3 (lambda () "Elaboration") (lambda (eta-1) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-2) (let ((act-24 (ProcessDecls-TTImp-processTTImpDecls (vector 0 ) arg-3 arg-2 arg-1 (vector 0 ) (vector 0 ) e-2 eta-2))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 (UnifyState-Core-checkDelayedHoles arg-1 arg-3 eta-2))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 0)) (else (let ((e-3 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-3 eta-2))))))))))))))) (lambda (err) (lambda (eta-2) (let ((act-24 (let ((act-24 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-3) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-3)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-3) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-3) (let ((act-17 (arg-3511 eta-3))) (let ((act-16 (arg-3513 eta-3))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-3) (let ((act-24 (arg-3672 eta-3))) ((arg-3673 act-24) eta-3))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-3) (let ((act-51 (arg-3675 eta-3))) (act-51 eta-3)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 0 (lambda (x) (Core-Core-show_Show__Error x)) (lambda (d) (lambda (x) (Core-Core-showPrec_Show__Error d x))))) err) eta-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (vector 1 1))))))) eta-1)) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) e-5)) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 1)))))))))))) +(define ProcessDecls-TTImp-case--10530-7433 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (ProcessDecls-TTImp-n--10394-7282-checkCovering arg-0 arg-1 arg-8 (let ((sc1 arg-7)) (let ((e-1 (vector-ref sc1 2))) e-1)))) (else (lambda (eta-0) (ProcessDecls-TTImp-n--10394-7283-checkTotality arg-0 arg-1 arg-8 eta-0))))))) +(define ProcessDecls-TTImp-case--10394-7395 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-getDefaultTotalityOption arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((treq (Maybe-Data-fromMaybe 'erased (lambda () e-5) (ProcessDecls-TTImp-n--10394-7284-findSetTotal arg-0 arg-1 (let ((sc2 e-1)) (let ((e-11 (vector-ref sc2 12))) e-11)))))) (let ((tot (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((fc (let ((sc2 e-1)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) (Strings-Prelude-C-43C-43 " must be: " (TT-Core-show_Show__TotalReq treq)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((sc3 treq)) (case (vector-ref sc3 0) ((2) (vector 1 (vector 0 ))) ((1) ((ProcessDecls-TTImp-n--10394-7282-checkCovering arg-0 arg-1 fc (let ((sc4 tot)) (let ((e-2 (vector-ref sc4 2))) e-2))) eta-0)) (else (ProcessDecls-TTImp-n--10394-7283-checkTotality arg-0 arg-1 fc eta-0))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessDecls-TTImp-case--10421-7325 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda () (lambda (eta-0) (vector 1 (vector 1 (vector 12 arg-2 arg-0 e-0)))))))(else (lambda () (lambda (eta-0) (vector 1 (vector 0 ))))))))) +(define ProcessDecls-TTImp-case--10183-7198 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 arg-11 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) +(define ProcessDecls-TTImp-n--10394-7284-findSetTotal (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (ProcessDecls-TTImp-n--10394-7284-findSetTotal arg-0 arg-1 e-3))))))))))) +(define ProcessDecls-TTImp-n--10394-7283-checkTotality (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Termination-Core-checkTotal arg-1 arg-2 arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-getTotality arg-1 arg-2 arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((ProcessDecls-TTImp-n--10394-7282-checkCovering arg-0 arg-1 arg-2 (let ((sc2 e-6)) (let ((e-1 (vector-ref sc2 2))) e-1))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((Prelude-maybe 'erased 'erased (ProcessDecls-TTImp-case--10421-7325 arg-0 arg-1 arg-2 e-5 e-6 e-7 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 1 eta-0))))) e-7) ext-0)))))))))))))))))) +(define ProcessDecls-TTImp-n--10394-7282-checkCovering (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 11 arg-2 arg-0 arg-3))))))))) +(define ProcessDecls-TTImp-n--10703-7566-bindNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 0 ) arg-1 e-10 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-8 e-9 e-5)))))))))))))(else (lambda (eta-0) (vector 1 arg-7))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((ProcessDecls-TTImp-n--10703-7565-bindDataNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-6 e-8))))))))))))(else (lambda (eta-0) (vector 1 arg-7))))))) +(define ProcessDecls-TTImp-n--10703-7565-bindDataNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 0 ) arg-1 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDecls-TTImp-n--10703-7564-bindConNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-1 e-5 e-3 e-6))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 0 ) arg-1 e-7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-6 e-8)))))))))))))))) +(define ProcessDecls-TTImp-n--10703-7564-bindConNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 0 ) arg-1 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 e-5)))))))))))))) +(define ProcessDecls-TTImp-processTTImpFile (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-logTime 'erased arg-0 (lambda () "Parsing") (lambda (eta-0) (let ((act-24 (Source-Parser-parseFile 'erased arg-3 (vector 7 1 (Parser-TTImp-prog arg-3) (lambda () (lambda (decls) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-7808) (vector 0 decls)))))) eta-0))) (vector 1 act-24))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (Context-Core-logTime 'erased arg-0 (lambda () "Elaboration") (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (ProcessDecls-TTImp-processTTImpDecls (vector 0 ) arg-0 arg-1 arg-2 (vector 0 ) (vector 0 ) e-2 eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 (UnifyState-Core-checkDelayedHoles arg-2 arg-0 eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (vector 1 0)) (else (let ((e-3 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-3 eta-1))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-25 (let ((act-25 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-25 (arg-3672 eta-2))) ((arg-3673 act-25) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 0 (lambda (x) (Core-Core-show_Show__Error x)) (lambda (d) (lambda (x) (Core-Core-showPrec_Show__Error d x))))) err) eta-1))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (vector 1 1))))))) eta-0)) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) e-6)) ext-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 1)))))))))))))))) +(define ProcessDecls-TTImp-processTTImpDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (d) (lambda (eta-0) (let ((act-24 ((ProcessDecls-TTImp-n--10703-7566-bindNames arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 d) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Check-Elab-TTImp-processDecl arg-0 arg-1 arg-2 arg-3 (vector 0 ) arg-4 arg-5 e-5) eta-0)))))))) arg-6) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 0))))))) (define ProcessDecls-TTImp-processDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-processDecl arg-0 arg-1 arg-2 arg-3 (vector 0 ) arg-4 arg-5 eta-0)) arg-6) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 0))))))) (define Check-Elab-TTImp-processDecl (lambda (arg-0 arg-1 arg-2 arg-3 ext-0 ext-1 ext-2 ext-3) (ProcessDecls-TTImp-process arg-0 arg-1 arg-2 arg-3 ext-0 ext-1 ext-2 ext-3))) (define ProcessDecls-TTImp-process (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (ProcessType-TTImp-processType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-0 e-1 e-2 e-3 e-4))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (ProcessData-TTImp-processData arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-6 e-7))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (lambda (eta-0) (ProcessDef-TTImp-processDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-8 e-9 e-10 eta-0)))))) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (ProcessParams-TTImp-processParams arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 e-11 e-12 e-13))))) ((4) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (ProcessRecord-TTImp-processRecord arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-15 e-16 e-17))))) ((5) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((cns (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)))) (let ((act-25 (Context-Core-extendNS arg-1 (List-Data-reverse 'erased e-19) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-20) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (set-box! arg-1 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-32 (vector-ref sc5 6))) (let ((e-31 (vector-ref sc5 7))) (let ((e-30 (vector-ref sc5 8))) (let ((e-29 (vector-ref sc5 9))) (let ((e-9 (vector-ref sc5 10))) (let ((e-10 (vector-ref sc5 11))) (let ((e-11 (vector-ref sc5 12))) (let ((e-12 (vector-ref sc5 13))) (let ((e-13 (vector-ref sc5 14))) (let ((e-14 (vector-ref sc5 15))) (let ((e-15 (vector-ref sc5 16))) (let ((e-16 (vector-ref sc5 17))) (let ((e-17 (vector-ref sc5 18))) (let ((e-28 (vector-ref sc5 19))) (let ((e-27 (vector-ref sc5 20))) (let ((e-26 (vector-ref sc5 21))) (let ((e-21 (vector-ref sc5 22))) (let ((e-22 (vector-ref sc5 23))) (let ((e-23 (vector-ref sc5 24))) (let ((e-24 (vector-ref sc5 25))) (let ((e-25 (vector-ref sc5 26))) (vector 0 e-0 e-1 cns e-3 e-4 e-32 e-31 e-30 e-29 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-28 e-27 e-26 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-28))))))))))))))))))))))))) ((6) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (lambda (eta-0) (ProcessTransform-TTImp-processTransform arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-21 e-22 e-23 e-24 eta-0))))))) ((7) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (ProcessRunElab-TTImp-processRunElab arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-25 e-26 eta-0))))) ((8) (let ((e-27 (vector-ref sc0 1))) (((e-27 arg-0) arg-5) arg-6))) (else (let ((e-28 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setLogLevel arg-1 e-28 eta-0)))))))) -(define ProcessDecls-TTImp-getTotalityErrors (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (ProcessDecls-TTImp-checkTotalityOK arg-0 eta-0)) (NameMap-Data-keys 'erased (let ((sc1 e-5)) (let ((e-26 (vector-ref sc1 6))) e-26)))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-6)))))))))))))) -(define ProcessDecls-TTImp-checkTotalityOK (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 0 )))) ((7) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 1))) e-28))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((act-26 (Context-Core-getDefaultTotalityOption arg-0 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((treq (Maybe-Data-fromMaybe 'erased (lambda () e-7) (ProcessDecls-TTImp-n--10367-7215-findSetTotal arg-1 arg-0 (let ((sc5 e-2)) (let ((e-11 (vector-ref sc5 12))) e-11)))))) (let ((tot (let ((sc5 e-2)) (let ((e-10 (vector-ref sc5 11))) e-10)))) (let ((fc (let ((sc5 e-2)) (let ((e-26 (vector-ref sc5 1))) e-26)))) (let ((act-27 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 " must be: " (TT-Core-show_Show__TotalReq treq)))) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((sc6 treq)) (case (vector-ref sc6 0) ((2) (vector 1 (vector 0 ))) ((1) ((ProcessDecls-TTImp-n--10367-7213-checkCovering arg-1 arg-0 fc (let ((sc7 tot)) (let ((e-3 (vector-ref sc7 2))) e-3))) eta-0)) (else (ProcessDecls-TTImp-n--10367-7214-checkTotality arg-1 arg-0 fc eta-0)))))))))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (Context-Core-getDefaultTotalityOption arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((treq (Maybe-Data-fromMaybe 'erased (lambda () e-7) (ProcessDecls-TTImp-n--10367-7215-findSetTotal arg-1 arg-0 (let ((sc4 e-1)) (let ((e-11 (vector-ref sc4 12))) e-11)))))) (let ((tot (let ((sc4 e-1)) (let ((e-10 (vector-ref sc4 11))) e-10)))) (let ((fc (let ((sc4 e-1)) (let ((e-0 (vector-ref sc4 1))) e-0)))) (let ((act-27 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 " must be: " (TT-Core-show_Show__TotalReq treq)))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((sc5 treq)) (case (vector-ref sc5 0) ((2) (vector 1 (vector 0 ))) ((1) ((ProcessDecls-TTImp-n--10367-7213-checkCovering arg-1 arg-0 fc (let ((sc6 tot)) (let ((e-2 (vector-ref sc6 2))) e-2))) eta-0)) (else (ProcessDecls-TTImp-n--10367-7214-checkTotality arg-1 arg-0 fc eta-0)))))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))) -(define ProcessType-TTImp-case--10618-9008 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31) (let ((sc0 arg-31)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 arg-25 arg-26 e-5 arg-30 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) -(define ProcessType-TTImp-case--10494-8774 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-13))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-23) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) ((ProcessType-TTImp-findInferrable e-6 e-7) eta-0)))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-addDef arg-13 (vector 9 arg-17) (let ((_-0 (vector 0 e-2 e-3))) (ProcessType-TTImp-case--10618-9008 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 e-2 e-3 _-0 e-5 e-6 e-7 (Context-Core-newDef arg-6 arg-14 arg-5 arg-7 arg-23 arg-4 arg-22))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-28 (let ((sc5 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 1 ) arg-10)))) (cond ((equal? sc5 0) (Context-Core-setLinearCheck arg-13 arg-17 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-29 (Context-Core-log arg-13 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Setting options for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__FnOpt x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__FnOpt d x)))) arg-3))))) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessType-TTImp-processFnOpt arg-13 arg-6 (vector 9 arg-17) eta-1)) arg-3) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 (Metadata-Core-addTyDecl arg-7 arg-13 arg-12 arg-6 (vector 9 arg-17) arg-8 arg-20 eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 (Metadata-Core-addNameType arg-7 arg-13 arg-12 arg-6 (vector 9 arg-17) arg-8 arg-20 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-33 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-13 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased arg-20))) eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-34 (Context-Core-addToSave arg-13 arg-14 eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-35 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased arg-20))))))) eta-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((sc13 (TT-Core-C-47C-61_Eq__Visibility arg-4 (vector 0 )))) (cond ((equal? sc13 0) (let ((act-36 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-14 eta-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) arg-20 eta-0)))))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define ProcessType-TTImp-case--10420-8663 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (((Utils-Elab-TTImp-wrapErrorC 'erased arg-10 (lambda (eta-1) (vector 56 arg-6 arg-14 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTerm arg-7 arg-13 arg-12 arg-11 arg-17 (vector 0 ) (vector 1 (vector 0 ) arg-10) arg-9 arg-8 (vector 15 arg-6 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-0) (Normalise-Core-gType 'erased arg-6) eta-1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Type of " (Name-Core-show_Show__Name arg-14))) (vector 0 ) (Env-Core-abstractFullEnvType arg-7 arg-2 arg-8 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((ProcessType-TTImp-initDef arg-7 arg-13 arg-12 arg-11 arg-14 arg-8 e-5 arg-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((fullty (Env-Core-abstractFullEnvType arg-7 arg-2 arg-8 e-5))) (let ((act-27 (let ((sc4 (TT-Core-C-47C-61_Eq__Visibility arg-4 (vector 0 )))) (cond ((equal? sc4 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-13 arg-6 arg-14 arg-4 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Utils-Elab-TTImp-findErased arg-13 fullty eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-0 (vector 0 ))) (let ((sc6 e-9)) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((act-29 (let ((act-29 (unbox arg-13))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 (Context-Core-clearDefs e-10 eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-31 (let ((act-31 ((Normalise-Core-nf (vector 0 ) e-10 (vector 0 ) fullty) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc9 1))) ((ProcessType-TTImp-findInferrable e-11 e-12) eta-0)))))))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-32 (Context-Core-addDef arg-13 (vector 9 arg-17) (let ((_-1 (vector 0 e-2 e-3))) (ProcessType-TTImp-case--10618-9008 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 _-0 e-5 e-6 e-7 fullty e-8 e-2 e-3 _-1 e-10 e-11 e-12 (Context-Core-newDef arg-6 arg-14 arg-5 arg-7 fullty arg-4 e-7))) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-33 (let ((sc11 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 1 ) arg-10)))) (cond ((equal? sc11 0) (Context-Core-setLinearCheck arg-13 arg-17 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-34 (Context-Core-log arg-13 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Setting options for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__FnOpt x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__FnOpt d x)))) arg-3))))) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((act-35 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessType-TTImp-processFnOpt arg-13 arg-6 (vector 9 arg-17) eta-1)) arg-3) eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-36 (Metadata-Core-addTyDecl arg-7 arg-13 arg-12 arg-6 (vector 9 arg-17) arg-8 e-5 eta-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((act-37 (Metadata-Core-addNameType arg-7 arg-13 arg-12 arg-6 (vector 9 arg-17) arg-8 e-5 eta-0))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-38 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-13 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-5))) eta-0))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((act-39 (Context-Core-addToSave arg-13 arg-14 eta-0))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((act-40 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-5))))))) eta-0))) (let ((sc18 act-40)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((sc19 (TT-Core-C-47C-61_Eq__Visibility arg-4 (vector 0 )))) (cond ((equal? sc19 0) (let ((act-41 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-14 eta-0))) (let ((sc20 act-41)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-5 eta-0)))))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0))))))) -(define ProcessType-TTImp-case--10206-8428 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-5))) (else (lambda (eta-0) (vector 1 (vector 1 arg-6 arg-5)))))))) -(define ProcessType-TTImp-case--10183-8391 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-5))) (else (let ((e-2 (vector-ref sc0 1))) (ProcessType-TTImp-case--10206-8428 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) e-2 arg-5)))))))) -(define ProcessType-TTImp-case--9976-8231 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-3))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-5 "%foreign calling convention must evaluate to a String") eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-5 "%foreign calling convention must evaluate to a String") eta-0))))))) -(define ProcessType-TTImp-case--9855-8139 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 arg-10 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))))) -(define ProcessType-TTImp-case--8757-8065 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 0 ) (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ProcessType-TTImp-n--8757-7146-getNamePos arg-0 arg-1 arg-2 arg-3 0 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((ProcessType-TTImp-n--8757-7142-collectDDeps arg-0 arg-1 arg-2 arg-3 e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((ProcessType-TTImp-n--8757-7145-collectSpec arg-0 arg-1 arg-2 arg-3 (vector 0 ) e-7 e-6 e-5) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-addDef arg-3 arg-1 (let ((sc5 e-1)) (let ((e-0 (vector-ref sc5 1))) (let ((e-25 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-23 (vector-ref sc5 7))) (let ((e-22 (vector-ref sc5 8))) (let ((e-21 (vector-ref sc5 9))) (let ((e-9 (vector-ref sc5 10))) (let ((e-10 (vector-ref sc5 11))) (let ((e-11 (vector-ref sc5 12))) (let ((e-12 (vector-ref sc5 13))) (let ((e-13 (vector-ref sc5 14))) (let ((e-14 (vector-ref sc5 15))) (let ((e-15 (vector-ref sc5 16))) (let ((e-16 (vector-ref sc5 17))) (let ((e-17 (vector-ref sc5 18))) (let ((e-18 (vector-ref sc5 19))) (let ((e-19 (vector-ref sc5 20))) (let ((e-20 (vector-ref sc5 21))) (vector 0 e-0 e-25 e-2 e-3 e-4 e-8 e-23 e-22 e-21 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))))))) -(define ProcessType-TTImp-case--8858-7879 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--8757-7144-getDeps arg-0 arg-1 arg-2 arg-3 0 arg-6 (NameMap-Data-empty 'erased)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((rs (List-Data-filter 'erased (lambda (x) (Prelude-C-124C-124 (Builtin-snd 'erased 'erased x) (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (Builtin-fst 'erased 'erased x) arg-11))))) (NameMap-Data-toList 'erased e-5)))) (let ((accC-39 (ProcessType-TTImp-n--8757-7141-insertDeps arg-0 arg-1 arg-2 arg-3 arg-12 arg-10 (vector 1 arg-8 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) rs))))) ((ProcessType-TTImp-n--8757-7145-collectSpec arg-0 arg-1 arg-2 arg-3 accC-39 arg-11 arg-10 arg-15) eta-0)))))))))) (else (ProcessType-TTImp-n--8757-7145-collectSpec arg-0 arg-1 arg-2 arg-3 arg-12 arg-11 arg-10 arg-15)))))) -(define ProcessType-TTImp-case--8857-7769 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-11 eta-1)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessType-TTImp-n--8757-7143-getDepsArgs arg-0 arg-1 arg-2 arg-3 0 e-5 arg-9) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-11 eta-1)) e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessType-TTImp-n--8757-7143-getDepsArgs arg-0 arg-1 arg-2 arg-3 1 e-6 e-5) eta-0))))))))))))))))) -(define ProcessType-TTImp-case--8857-7693 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (vector 1 e-4))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessType-TTImp-case--9275-7587 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (vector 0 (vector 1 arg-11 arg-15) arg-16)) (else (vector 0 arg-15 (vector 1 arg-11 arg-16))))))) -(define ProcessType-TTImp-case--9250-7546 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ProcessType-TTImp-case--9275-7587 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-2 e-3 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-14 arg-13))))))) -(define ProcessType-TTImp-case--8855-7288 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (ProcessType-TTImp-n--8757-7142-collectDDeps arg-0 arg-1 arg-2 arg-3 arg-12)) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-11 (vector 0 ) arg-6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((deps (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "_") e-5)))) (let ((act-25 ((ProcessType-TTImp-n--8757-7142-collectDDeps arg-0 arg-1 arg-2 arg-3 arg-12) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-6 deps))))))))))))))))))) -(define ProcessType-TTImp-case--8875-7205 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (ProcessType-TTImp-n--8757-7141-insertDeps arg-0 arg-1 arg-2 arg-3 arg-7 arg-6 arg-5)) (else (ProcessType-TTImp-n--8757-7141-insertDeps arg-0 arg-1 arg-2 arg-3 (vector 1 arg-8 arg-7) arg-6 arg-5)))))) -(define ProcessType-TTImp-case--8854-7162 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (ProcessType-TTImp-n--8757-7141-insertDeps arg-0 arg-1 arg-2 arg-3 arg-7 arg-6 arg-5)) (else (let ((e-2 (vector-ref sc0 1))) (ProcessType-TTImp-case--8875-7205 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) e-2 arg-7)))))))) -(define ProcessType-TTImp-case--8757-7080 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 0 ) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessType-TTImp-getRetTy arg-4 e-5) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-addHintFor arg-3 arg-2 e-5 arg-1 arg-0 1 eta-0))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))))))) -(define ProcessType-TTImp-n--8857-7521-splitPs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ProcessType-TTImp-case--9250-7546 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2 e-3 arg-12 arg-11 (ProcessType-TTImp-n--8857-7521-splitPs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-11) arg-12 e-3))))))))) -(define ProcessType-TTImp-n--8757-7141-insertDeps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ProcessType-TTImp-case--8854-7162 arg-0 arg-1 arg-2 arg-3 e-2 e-3 arg-5 arg-4 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-2 arg-5))))))))) -(define ProcessType-TTImp-n--8757-7146-getNamePos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) ((ProcessType-TTImp-n--8757-7146-getNamePos arg-0 arg-1 arg-2 arg-3 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-4) e-9) eta-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-2 arg-4) e-9))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessType-TTImp-n--8757-7143-getDepsArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-6))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--8757-7144-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-2 arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessType-TTImp-n--8757-7143-getDepsArgs arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-5) eta-0)))))))))))))) -(define ProcessType-TTImp-n--8757-7144-getDeps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-28 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--8757-7144-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-28 arg-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (unbox arg-3))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (((e-4 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-2 1))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) ((ProcessType-TTImp-n--8757-7144-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-7 e-5) eta-0)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--8757-7144-getDeps arg-0 arg-1 arg-2 arg-3 1 (TT-Core-binderType 'erased e-3) arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 (let ((act-25 (unbox arg-3))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (((e-4 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-2 1))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) ((ProcessType-TTImp-n--8757-7144-getDeps arg-0 arg-1 arg-2 arg-3 1 e-7 arg-6) eta-0)))))))))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((1) (let ((e-30 (vector-ref sc1 1))) (let ((e-31 (vector-ref sc1 2))) (let ((sc2 e-30)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) e-8) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) ((ProcessType-TTImp-n--8757-7143-getDepsArgs arg-0 arg-1 arg-2 arg-3 1 e-9 arg-6) eta-0)))))))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (NameMap-Data-insert 'erased e-31 arg-4 e-9))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))) ((2) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) e-14) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessType-TTImp-n--8757-7143-getDepsArgs arg-0 arg-1 arg-2 arg-3 1 e-6 arg-6) eta-0)))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Context-Core-lookupDefExact e-17 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((6) (let ((e-4 (vector-ref sc4 3))) (vector 1 e-4)))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessType-TTImp-case--8857-7769 arg-0 arg-1 arg-2 arg-3 e-16 e-20 e-19 e-18 e-17 arg-6 arg-4 e-5 e-6 (ProcessType-TTImp-n--8857-7521-splitPs arg-0 arg-1 arg-2 arg-3 e-16 e-20 e-19 e-18 e-17 arg-6 arg-4 0 e-6 e-20)) eta-0)))))))))))))))))) ((5) (let ((e-24 (vector-ref sc0 3))) (ProcessType-TTImp-n--8757-7144-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-24 arg-6)))(else (lambda (eta-0) (vector 1 arg-6))))))) -(define ProcessType-TTImp-n--10179-8365-findInfs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--10179-8365-findInfs arg-0 arg-1 arg-2 arg-3 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessType-TTImp-n--10179-8364-findInf arg-0 arg-1 e-5 arg-3 e-2) eta-0)))))))))))))) -(define ProcessType-TTImp-n--10179-8364-findInf (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((sc2 e-21)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (ProcessType-TTImp-case--10183-8391 arg-0 arg-1 e-1 e-22 arg-3 arg-2 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-22 arg-3)))(else (lambda (eta-0) (vector 1 arg-2))))))(else (lambda (eta-0) (vector 1 arg-2))))))))(else (lambda (eta-0) (vector 1 arg-2))))))))) ((2) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-1 eta-1)) e-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc1 1))) ((ProcessType-TTImp-n--10179-8365-findInfs arg-0 arg-1 arg-2 arg-3 e-10) eta-0))))))))) ((3) (let ((e-15 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-1 eta-1)) e-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessType-TTImp-n--10179-8365-findInfs arg-0 arg-1 arg-2 arg-3 e-5) eta-0))))))))) ((5) (let ((e-19 (vector-ref sc0 3))) (ProcessType-TTImp-n--10179-8364-findInf arg-0 arg-1 arg-2 arg-3 e-19)))(else (lambda (eta-0) (vector 1 arg-2))))))) -(define ProcessType-TTImp-n--10179-8366-fi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 3))) (let ((argn (vector 2 "inf" arg-3))) (lambda (eta-0) (let ((act-24 (((e-4 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-1 (vector 0 ) argn))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((ProcessType-TTImp-n--10179-8364-findInf arg-0 arg-1 arg-5 arg-4 e-8) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 ((ProcessType-TTImp-n--10179-8366-fi arg-0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2) (b+ 1 arg-3 63) (vector 1 (vector 0 argn arg-2) arg-4) e-9 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 e-10))))))))))))))))))))(else (ProcessType-TTImp-n--10179-8364-findInf arg-0 arg-1 arg-5 arg-4 arg-6))))))))(else (ProcessType-TTImp-n--10179-8364-findInf arg-0 arg-1 arg-5 arg-4 arg-6)))))) -(define ProcessType-TTImp-n--8757-7145-collectSpec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-1 (vector 0 ) e-2))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) ((ProcessType-TTImp-case--8858-7879 arg-0 arg-1 arg-2 arg-3 e-6 e-7 e-8 e-4 e-2 e-1 arg-6 arg-5 arg-4 e-5 e-9 e-10 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-2 arg-0)) eta-0)))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-4))))))))))(else (lambda (eta-0) (vector 1 arg-4))))))) -(define ProcessType-TTImp-n--8757-7142-collectDDeps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-1 (vector 0 ) e-2))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) ((ProcessType-TTImp-case--8855-7288 arg-0 arg-1 arg-2 arg-3 e-6 e-7 e-8 e-4 e-2 e-1 e-5 e-9 e-10 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-2 arg-0)) eta-0)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessType-TTImp-processType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 "Processing " (Name-Core-show_Show__Name e-5))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking type decl " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp e-2))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Context-Core-resolveName arg-1 e-5) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (unbox arg-1))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((Context-Core-lookupCtxtExact (vector 9 e-8) (let ((sc6 e-9)) (let ((e-33 (vector-ref sc6 1))) e-33))) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((0) (let ((act-30 (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 56 arg-7 e-5 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 e-8 (vector 0 ) (vector 1 (vector 0 ) arg-4) arg-5 arg-6 (vector 15 arg-7 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-2) (Normalise-Core-gType 'erased arg-7) eta-1))) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-31 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Type of " (Name-Core-show_Show__Name e-5))) (vector 0 ) (Env-Core-abstractFullEnvType arg-0 e-0 arg-6 e-11) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-32 ((ProcessType-TTImp-initDef arg-0 arg-1 arg-2 arg-3 e-5 arg-6 e-11 arg-10) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc10 1))) (let ((fullty (Env-Core-abstractFullEnvType arg-0 e-0 arg-6 e-11))) (let ((act-33 (let ((sc11 (TT-Core-C-47C-61_Eq__Visibility arg-9 (vector 0 )))) (cond ((equal? sc11 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-1 arg-7 e-5 arg-9 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-34 (Utils-Elab-TTImp-findErased arg-1 fullty eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((e-15 (vector-ref sc12 1))) (let ((_-0 (vector 0 ))) (let ((sc13 e-15)) (let ((e-4 (vector-ref sc13 1))) (let ((e-3 (vector-ref sc13 2))) (let ((act-35 (let ((act-35 (unbox arg-1))) (vector 1 act-35)))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-16 (vector-ref sc14 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc14 1))) (let ((act-36 (Context-Core-clearDefs e-16 eta-0))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-17 (vector-ref sc15 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc15 1))) (let ((act-37 (let ((act-37 ((Normalise-Core-nf (vector 0 ) e-16 (vector 0 ) fullty) eta-0))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-18 (vector-ref sc16 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc16 1))) ((ProcessType-TTImp-findInferrable e-17 e-18) eta-0)))))))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-18 (vector-ref sc16 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc16 1))) (let ((act-38 (Context-Core-addDef arg-1 (vector 9 e-8) (let ((_-1 (vector 0 e-4 e-3))) (ProcessType-TTImp-case--10618-9008 e-2 e-1 e-0 arg-10 arg-9 arg-8 arg-7 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 e-8 e-9 _-0 e-11 e-12 e-13 fullty e-14 e-4 e-3 _-1 e-16 e-17 e-18 (Context-Core-newDef arg-7 e-5 arg-8 arg-0 fullty arg-9 e-13))) eta-0))) (let ((sc17 act-38)) (case (vector-ref sc17 0) ((0) (let ((e-19 (vector-ref sc17 1))) (vector 0 e-19))) (else (let ((act-39 (let ((sc18 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 1 ) arg-4)))) (cond ((equal? sc18 0) (Context-Core-setLinearCheck arg-1 e-8 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc18 act-39)) (case (vector-ref sc18 0) ((0) (let ((e-20 (vector-ref sc18 1))) (vector 0 e-20))) (else (let ((act-40 (Context-Core-log arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Setting options for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__FnOpt x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__FnOpt d x)))) arg-10))))) eta-0))) (let ((sc19 act-40)) (case (vector-ref sc19 0) ((0) (let ((e-21 (vector-ref sc19 1))) (vector 0 e-21))) (else (let ((act-41 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessType-TTImp-processFnOpt arg-1 arg-7 (vector 9 e-8) eta-1)) arg-10) eta-0))) (let ((sc20 act-41)) (case (vector-ref sc20 0) ((0) (let ((e-22 (vector-ref sc20 1))) (vector 0 e-22))) (else (let ((act-42 (Metadata-Core-addTyDecl arg-0 arg-1 arg-2 arg-7 (vector 9 e-8) arg-6 e-11 eta-0))) (let ((sc21 act-42)) (case (vector-ref sc21 0) ((0) (let ((e-23 (vector-ref sc21 1))) (vector 0 e-23))) (else (let ((act-43 (Metadata-Core-addNameType arg-0 arg-1 arg-2 arg-7 (vector 9 e-8) arg-6 e-11 eta-0))) (let ((sc22 act-43)) (case (vector-ref sc22 0) ((0) (let ((e-24 (vector-ref sc22 1))) (vector 0 e-24))) (else (let ((act-44 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-11))) eta-0))) (let ((sc23 act-44)) (case (vector-ref sc23 0) ((0) (let ((e-25 (vector-ref sc23 1))) (vector 0 e-25))) (else (let ((act-45 (Context-Core-addToSave arg-1 e-5 eta-0))) (let ((sc24 act-45)) (case (vector-ref sc24 0) ((0) (let ((e-26 (vector-ref sc24 1))) (vector 0 e-26))) (else (let ((act-46 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-11))))))) eta-0))) (let ((sc25 act-46)) (case (vector-ref sc25 0) ((0) (let ((e-27 (vector-ref sc25 1))) (vector 0 e-27))) (else (let ((sc26 (TT-Core-C-47C-61_Eq__Visibility arg-9 (vector 0 )))) (cond ((equal? sc26 0) (let ((act-47 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-5 eta-0))) (let ((sc27 act-47)) (case (vector-ref sc27 0) ((0) (let ((e-28 (vector-ref sc27 1))) (vector 0 e-28))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-11 eta-0)))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-7 e-5) eta-0))))))))))))))))))))))))))))))))))))))))) -(define ProcessType-TTImp-processFnOpt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 0 ) eta-0))) ((1) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 3 ) eta-0))) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact arg-2 (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 1))) e-27)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) e-1) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) ((ProcessType-TTImp-getRetTy e-5 e-7) eta-0)))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Context-Core-addHintFor arg-0 arg-1 e-7 arg-2 e-0 1 eta-0)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) eta-0))))))))))))))))) ((3) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-addGlobalHint arg-0 arg-2 e-1 eta-0)))) ((4) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 0 ) eta-0))) ((5) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 0 ) eta-0))) ((6) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 1 ) eta-0))) ((7) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 4 e-3) eta-0)))) ((8) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 6 ) eta-0))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 ((ProcessType-TTImp-n--8757-7146-getNamePos e-4 arg-2 arg-1 arg-0 0 e-7) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 ((ProcessType-TTImp-n--8757-7142-collectDDeps e-4 arg-2 arg-1 arg-0 e-7) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 ((ProcessType-TTImp-n--8757-7145-collectSpec e-4 arg-2 arg-1 arg-0 (vector 0 ) e-9 e-8 e-7) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 (Context-Core-addDef arg-0 arg-2 (let ((sc8 e-1)) (let ((e-0 (vector-ref sc8 1))) (let ((e-28 (vector-ref sc8 2))) (let ((e-2 (vector-ref sc8 3))) (let ((e-3 (vector-ref sc8 4))) (let ((e-27 (vector-ref sc8 5))) (let ((e-25 (vector-ref sc8 7))) (let ((e-24 (vector-ref sc8 8))) (let ((e-23 (vector-ref sc8 9))) (let ((e-22 (vector-ref sc8 10))) (let ((e-21 (vector-ref sc8 11))) (let ((e-11 (vector-ref sc8 12))) (let ((e-12 (vector-ref sc8 13))) (let ((e-13 (vector-ref sc8 14))) (let ((e-14 (vector-ref sc8 15))) (let ((e-15 (vector-ref sc8 16))) (let ((e-16 (vector-ref sc8 17))) (let ((e-17 (vector-ref sc8 18))) (let ((e-18 (vector-ref sc8 19))) (let ((e-19 (vector-ref sc8 20))) (let ((e-20 (vector-ref sc8 21))) (vector 0 e-0 e-28 e-2 e-3 e-27 e-10 e-25 e-24 e-23 e-22 e-21 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) eta-0))))))))))))))))))))) +(define ProcessDecls-TTImp-getTotalityErrors (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (ProcessDecls-TTImp-checkTotalityOK arg-0 eta-0)) ((NameMap-Data-keys 'erased) (let ((sc1 e-5)) (let ((e-26 (vector-ref sc1 6))) e-26)))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-6)))))))))))))) +(define ProcessDecls-TTImp-checkTotalityOK (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 0 )))) ((7) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 1))) e-28))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((act-26 (Context-Core-getDefaultTotalityOption arg-0 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((treq (Maybe-Data-fromMaybe 'erased (lambda () e-7) (ProcessDecls-TTImp-n--10394-7284-findSetTotal arg-1 arg-0 (let ((sc5 e-2)) (let ((e-11 (vector-ref sc5 12))) e-11)))))) (let ((tot (let ((sc5 e-2)) (let ((e-10 (vector-ref sc5 11))) e-10)))) (let ((fc (let ((sc5 e-2)) (let ((e-26 (vector-ref sc5 1))) e-26)))) (let ((act-27 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 " must be: " (TT-Core-show_Show__TotalReq treq)))) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((sc6 treq)) (case (vector-ref sc6 0) ((2) (vector 1 (vector 0 ))) ((1) ((ProcessDecls-TTImp-n--10394-7282-checkCovering arg-1 arg-0 fc (let ((sc7 tot)) (let ((e-3 (vector-ref sc7 2))) e-3))) eta-0)) (else (ProcessDecls-TTImp-n--10394-7283-checkTotality arg-1 arg-0 fc eta-0)))))))))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (Context-Core-getDefaultTotalityOption arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((treq (Maybe-Data-fromMaybe 'erased (lambda () e-7) (ProcessDecls-TTImp-n--10394-7284-findSetTotal arg-1 arg-0 (let ((sc4 e-1)) (let ((e-11 (vector-ref sc4 12))) e-11)))))) (let ((tot (let ((sc4 e-1)) (let ((e-10 (vector-ref sc4 11))) e-10)))) (let ((fc (let ((sc4 e-1)) (let ((e-0 (vector-ref sc4 1))) e-0)))) (let ((act-27 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 " must be: " (TT-Core-show_Show__TotalReq treq)))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((sc5 treq)) (case (vector-ref sc5 0) ((2) (vector 1 (vector 0 ))) ((1) ((ProcessDecls-TTImp-n--10394-7282-checkCovering arg-1 arg-0 fc (let ((sc6 tot)) (let ((e-2 (vector-ref sc6 2))) e-2))) eta-0)) (else (ProcessDecls-TTImp-n--10394-7283-checkTotality arg-1 arg-0 fc eta-0)))))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))) +(define ProcessType-TTImp-case--10684-9077 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31) (let ((sc0 arg-31)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 arg-25 arg-26 e-5 arg-30 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) +(define ProcessType-TTImp-case--10560-8843 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-13))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-23) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) ((ProcessType-TTImp-findInferrable e-6 e-7) eta-0)))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-addDef arg-13 (vector 9 arg-17) (let ((_-0 (vector 0 e-2 e-3))) (ProcessType-TTImp-case--10684-9077 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 e-2 e-3 _-0 e-5 e-6 e-7 (Context-Core-newDef arg-6 arg-14 arg-5 arg-7 arg-23 arg-4 arg-22))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-28 (let ((sc5 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-438 arg-439)))) (vector 1 ) arg-10)))) (cond ((equal? sc5 0) (Context-Core-setLinearCheck arg-13 arg-17 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-29 (Context-Core-log arg-13 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Setting options for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__FnOpt x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__FnOpt d x)))) arg-3))))) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessType-TTImp-processFnOpt arg-13 arg-6 (vector 9 arg-17) eta-1)) arg-3) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 (Metadata-Core-addTyDecl arg-7 arg-13 arg-12 arg-6 (vector 9 arg-17) arg-8 arg-20 eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 (Metadata-Core-addNameType arg-7 arg-13 arg-12 arg-6 (vector 9 arg-17) arg-8 arg-20 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-33 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-13 eta-1 eta-2))) ((NameMap-Data-keys 'erased) (TT-Core-getMetas 'erased arg-20))) eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-34 (Context-Core-addToSave arg-13 arg-14 eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-35 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) ((NameMap-Data-keys 'erased) (TT-Core-getMetas 'erased arg-20))))))) eta-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((sc13 (TT-Core-C-47C-61_Eq__Visibility arg-4 (vector 0 )))) (cond ((equal? sc13 0) (let ((act-36 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__Name arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Name arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) arg-14 eta-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) arg-20 eta-0)))))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define ProcessType-TTImp-case--10486-8732 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (((Utils-Elab-TTImp-wrapErrorC 'erased arg-10 (lambda (eta-1) (vector 56 arg-6 arg-14 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTerm arg-7 arg-13 arg-12 arg-11 arg-17 (vector 0 ) (vector 1 (vector 0 ) arg-10) arg-9 arg-8 (vector 15 arg-6 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-0) (Normalise-Core-gType 'erased arg-6) eta-1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Type of " (Name-Core-show_Show__Name arg-14))) (vector 0 ) (Env-Core-abstractFullEnvType arg-7 arg-2 arg-8 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((ProcessType-TTImp-initDef arg-7 arg-13 arg-12 arg-11 arg-14 arg-8 e-5 arg-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((fullty (Env-Core-abstractFullEnvType arg-7 arg-2 arg-8 e-5))) (let ((act-27 (let ((sc4 (TT-Core-C-47C-61_Eq__Visibility arg-4 (vector 0 )))) (cond ((equal? sc4 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-13 arg-6 arg-14 arg-4 (vector 0 ) eta-1 eta-2))) ((NameMap-Data-keys 'erased) (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Utils-Elab-TTImp-findErased arg-13 fullty eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-0 (vector 0 ))) (let ((sc6 e-9)) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((act-29 (let ((act-29 (unbox arg-13))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 (Context-Core-clearDefs e-10 eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-31 (let ((act-31 ((Normalise-Core-nf (vector 0 ) e-10 (vector 0 ) fullty) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc9 1))) ((ProcessType-TTImp-findInferrable e-11 e-12) eta-0)))))))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-32 (Context-Core-addDef arg-13 (vector 9 arg-17) (let ((_-1 (vector 0 e-2 e-3))) (ProcessType-TTImp-case--10684-9077 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 _-0 e-5 e-6 e-7 fullty e-8 e-2 e-3 _-1 e-10 e-11 e-12 (Context-Core-newDef arg-6 arg-14 arg-5 arg-7 fullty arg-4 e-7))) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-33 (let ((sc11 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-438 arg-439)))) (vector 1 ) arg-10)))) (cond ((equal? sc11 0) (Context-Core-setLinearCheck arg-13 arg-17 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-34 (Context-Core-log arg-13 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Setting options for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__FnOpt x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__FnOpt d x)))) arg-3))))) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((act-35 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessType-TTImp-processFnOpt arg-13 arg-6 (vector 9 arg-17) eta-1)) arg-3) eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-36 (Metadata-Core-addTyDecl arg-7 arg-13 arg-12 arg-6 (vector 9 arg-17) arg-8 e-5 eta-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((act-37 (Metadata-Core-addNameType arg-7 arg-13 arg-12 arg-6 (vector 9 arg-17) arg-8 e-5 eta-0))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-38 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-13 eta-1 eta-2))) ((NameMap-Data-keys 'erased) (TT-Core-getMetas 'erased e-5))) eta-0))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((act-39 (Context-Core-addToSave arg-13 arg-14 eta-0))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((act-40 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) ((NameMap-Data-keys 'erased) (TT-Core-getMetas 'erased e-5))))))) eta-0))) (let ((sc18 act-40)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((sc19 (TT-Core-C-47C-61_Eq__Visibility arg-4 (vector 0 )))) (cond ((equal? sc19 0) (let ((act-41 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__Name arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Name arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) arg-14 eta-0))) (let ((sc20 act-41)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-5 eta-0)))))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0))))))) +(define ProcessType-TTImp-case--10272-8497 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-5))) (else (lambda (eta-0) (vector 1 (vector 1 arg-6 arg-5)))))))) +(define ProcessType-TTImp-case--10249-8460 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-5))) (else (let ((e-2 (vector-ref sc0 1))) (ProcessType-TTImp-case--10272-8497 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) e-2 arg-5)))))))) +(define ProcessType-TTImp-case--10042-8300 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-3))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-5 "%foreign calling convention must evaluate to a String") eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-5 "%foreign calling convention must evaluate to a String") eta-0))))))) +(define ProcessType-TTImp-case--9921-8208 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 arg-10 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))))) +(define ProcessType-TTImp-case--8823-8134 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 0 ) (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ProcessType-TTImp-n--8823-7215-getNamePos arg-0 arg-1 arg-2 arg-3 0 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((ProcessType-TTImp-n--8823-7211-collectDDeps arg-0 arg-1 arg-2 arg-3 e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((ProcessType-TTImp-n--8823-7214-collectSpec arg-0 arg-1 arg-2 arg-3 (vector 0 ) e-7 e-6 e-5) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-addDef arg-3 arg-1 (let ((sc5 e-1)) (let ((e-0 (vector-ref sc5 1))) (let ((e-25 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-23 (vector-ref sc5 7))) (let ((e-22 (vector-ref sc5 8))) (let ((e-21 (vector-ref sc5 9))) (let ((e-9 (vector-ref sc5 10))) (let ((e-10 (vector-ref sc5 11))) (let ((e-11 (vector-ref sc5 12))) (let ((e-12 (vector-ref sc5 13))) (let ((e-13 (vector-ref sc5 14))) (let ((e-14 (vector-ref sc5 15))) (let ((e-15 (vector-ref sc5 16))) (let ((e-16 (vector-ref sc5 17))) (let ((e-17 (vector-ref sc5 18))) (let ((e-18 (vector-ref sc5 19))) (let ((e-19 (vector-ref sc5 20))) (let ((e-20 (vector-ref sc5 21))) (vector 0 e-0 e-25 e-2 e-3 e-4 e-8 e-23 e-22 e-21 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))))))) +(define ProcessType-TTImp-case--8924-7948 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--8823-7213-getDeps arg-0 arg-1 arg-2 arg-3 0 arg-6 (NameMap-Data-empty 'erased)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((rs (List-Data-filter 'erased (lambda (x) (Prelude-C-124C-124 (Builtin-snd 'erased 'erased x) (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (Builtin-fst 'erased 'erased x) arg-11))))) (NameMap-Data-toList 'erased e-5)))) (let ((accC-39 (ProcessType-TTImp-n--8823-7210-insertDeps arg-0 arg-1 arg-2 arg-3 arg-12 arg-10 (vector 1 arg-8 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) rs))))) ((ProcessType-TTImp-n--8823-7214-collectSpec arg-0 arg-1 arg-2 arg-3 accC-39 arg-11 arg-10 arg-15) eta-0)))))))))) (else (ProcessType-TTImp-n--8823-7214-collectSpec arg-0 arg-1 arg-2 arg-3 arg-12 arg-11 arg-10 arg-15)))))) +(define ProcessType-TTImp-case--8923-7838 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-11 eta-1)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessType-TTImp-n--8823-7212-getDepsArgs arg-0 arg-1 arg-2 arg-3 0 e-5 arg-9) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-11 eta-1)) e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessType-TTImp-n--8823-7212-getDepsArgs arg-0 arg-1 arg-2 arg-3 1 e-6 e-5) eta-0))))))))))))))))) +(define ProcessType-TTImp-case--8923-7762 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (vector 1 e-4))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessType-TTImp-case--9341-7656 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (vector 0 (vector 1 arg-11 arg-15) arg-16)) (else (vector 0 arg-15 (vector 1 arg-11 arg-16))))))) +(define ProcessType-TTImp-case--9316-7615 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ProcessType-TTImp-case--9341-7656 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-2 e-3 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-14 arg-13))))))) +(define ProcessType-TTImp-case--8921-7357 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (ProcessType-TTImp-n--8823-7211-collectDDeps arg-0 arg-1 arg-2 arg-3 arg-12)) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-11 (vector 0 ) arg-6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((deps ((NameMap-Data-keys 'erased) (TT-Core-getRefs 'erased (vector 1 "_") e-5)))) (let ((act-25 ((ProcessType-TTImp-n--8823-7211-collectDDeps arg-0 arg-1 arg-2 arg-3 arg-12) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-6 deps))))))))))))))))))) +(define ProcessType-TTImp-case--8941-7274 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (ProcessType-TTImp-n--8823-7210-insertDeps arg-0 arg-1 arg-2 arg-3 arg-7 arg-6 arg-5)) (else (ProcessType-TTImp-n--8823-7210-insertDeps arg-0 arg-1 arg-2 arg-3 (vector 1 arg-8 arg-7) arg-6 arg-5)))))) +(define ProcessType-TTImp-case--8920-7231 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (ProcessType-TTImp-n--8823-7210-insertDeps arg-0 arg-1 arg-2 arg-3 arg-7 arg-6 arg-5)) (else (let ((e-2 (vector-ref sc0 1))) (ProcessType-TTImp-case--8941-7274 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) e-2 arg-7)))))))) +(define ProcessType-TTImp-case--8823-7149 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 0 ) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessType-TTImp-getRetTy arg-4 e-5) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-addHintFor arg-3 arg-2 e-5 arg-1 arg-0 1 eta-0))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))))))) +(define ProcessType-TTImp-n--8923-7590-splitPs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ProcessType-TTImp-case--9316-7615 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2 e-3 arg-12 arg-11 (ProcessType-TTImp-n--8923-7590-splitPs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-11) arg-12 e-3))))))))) +(define ProcessType-TTImp-n--8823-7210-insertDeps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ProcessType-TTImp-case--8920-7231 arg-0 arg-1 arg-2 arg-3 e-2 e-3 arg-5 arg-4 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-2 arg-5))))))))) +(define ProcessType-TTImp-n--8823-7215-getNamePos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) ((ProcessType-TTImp-n--8823-7215-getNamePos arg-0 arg-1 arg-2 arg-3 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-4) e-9) eta-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-2 arg-4) e-9))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessType-TTImp-n--8823-7212-getDepsArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-6))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--8823-7213-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-2 arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessType-TTImp-n--8823-7212-getDepsArgs arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-5) eta-0)))))))))))))) +(define ProcessType-TTImp-n--8823-7213-getDeps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-28 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--8823-7213-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-28 arg-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (unbox arg-3))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (((e-4 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-2 1))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) ((ProcessType-TTImp-n--8823-7213-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-7 e-5) eta-0)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--8823-7213-getDeps arg-0 arg-1 arg-2 arg-3 1 (TT-Core-binderType 'erased e-3) arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 (let ((act-25 (unbox arg-3))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (((e-4 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-2 1))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) ((ProcessType-TTImp-n--8823-7213-getDeps arg-0 arg-1 arg-2 arg-3 1 e-7 arg-6) eta-0)))))))))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((1) (let ((e-30 (vector-ref sc1 1))) (let ((e-31 (vector-ref sc1 2))) (let ((sc2 e-30)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) e-8) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) ((ProcessType-TTImp-n--8823-7212-getDepsArgs arg-0 arg-1 arg-2 arg-3 1 e-9 arg-6) eta-0)))))))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (NameMap-Data-insert 'erased e-31 arg-4 e-9))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))) ((2) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) e-14) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessType-TTImp-n--8823-7212-getDepsArgs arg-0 arg-1 arg-2 arg-3 1 e-6 arg-6) eta-0)))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Context-Core-lookupDefExact e-17 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((6) (let ((e-4 (vector-ref sc4 3))) (vector 1 e-4)))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessType-TTImp-case--8923-7838 arg-0 arg-1 arg-2 arg-3 e-16 e-20 e-19 e-18 e-17 arg-6 arg-4 e-5 e-6 (ProcessType-TTImp-n--8923-7590-splitPs arg-0 arg-1 arg-2 arg-3 e-16 e-20 e-19 e-18 e-17 arg-6 arg-4 0 e-6 e-20)) eta-0)))))))))))))))))) ((5) (let ((e-24 (vector-ref sc0 3))) (ProcessType-TTImp-n--8823-7213-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-24 arg-6)))(else (lambda (eta-0) (vector 1 arg-6))))))) +(define ProcessType-TTImp-n--10245-8434-findInfs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--10245-8434-findInfs arg-0 arg-1 arg-2 arg-3 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessType-TTImp-n--10245-8433-findInf arg-0 arg-1 e-5 arg-3 e-2) eta-0)))))))))))))) +(define ProcessType-TTImp-n--10245-8433-findInf (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((sc2 e-21)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (ProcessType-TTImp-case--10249-8460 arg-0 arg-1 e-1 e-22 arg-3 arg-2 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-22 arg-3)))(else (lambda (eta-0) (vector 1 arg-2))))))(else (lambda (eta-0) (vector 1 arg-2))))))))(else (lambda (eta-0) (vector 1 arg-2))))))))) ((2) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-1 eta-1)) e-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc1 1))) ((ProcessType-TTImp-n--10245-8434-findInfs arg-0 arg-1 arg-2 arg-3 e-10) eta-0))))))))) ((3) (let ((e-15 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-1 eta-1)) e-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessType-TTImp-n--10245-8434-findInfs arg-0 arg-1 arg-2 arg-3 e-5) eta-0))))))))) ((5) (let ((e-19 (vector-ref sc0 3))) (ProcessType-TTImp-n--10245-8433-findInf arg-0 arg-1 arg-2 arg-3 e-19)))(else (lambda (eta-0) (vector 1 arg-2))))))) +(define ProcessType-TTImp-n--10245-8435-fi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 3))) (let ((argn (vector 2 "inf" arg-3))) (lambda (eta-0) (let ((act-24 (((e-4 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-1 (vector 0 ) argn))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((ProcessType-TTImp-n--10245-8433-findInf arg-0 arg-1 arg-5 arg-4 e-8) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 ((ProcessType-TTImp-n--10245-8435-fi arg-0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2) (b+ 1 arg-3 63) (vector 1 (vector 0 argn arg-2) arg-4) e-9 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 e-10))))))))))))))))))))(else (ProcessType-TTImp-n--10245-8433-findInf arg-0 arg-1 arg-5 arg-4 arg-6))))))))(else (ProcessType-TTImp-n--10245-8433-findInf arg-0 arg-1 arg-5 arg-4 arg-6)))))) +(define ProcessType-TTImp-n--8823-7214-collectSpec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-1 (vector 0 ) e-2))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) ((ProcessType-TTImp-case--8924-7948 arg-0 arg-1 arg-2 arg-3 e-6 e-7 e-8 e-4 e-2 e-1 arg-6 arg-5 arg-4 e-5 e-9 e-10 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-2 arg-0)) eta-0)))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-4))))))))))(else (lambda (eta-0) (vector 1 arg-4))))))) +(define ProcessType-TTImp-n--8823-7211-collectDDeps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-1 (vector 0 ) e-2))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) ((ProcessType-TTImp-case--8921-7357 arg-0 arg-1 arg-2 arg-3 e-6 e-7 e-8 e-4 e-2 e-1 e-5 e-9 e-10 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-2 arg-0)) eta-0)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessType-TTImp-processType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 "Processing " (Name-Core-show_Show__Name e-5))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking type decl " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp e-2))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Context-Core-resolveName arg-1 e-5) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (unbox arg-1))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((Context-Core-lookupCtxtExact (vector 9 e-8) (let ((sc6 e-9)) (let ((e-33 (vector-ref sc6 1))) e-33))) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((0) (let ((act-30 (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 56 arg-7 e-5 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 e-8 (vector 0 ) (vector 1 (vector 0 ) arg-4) arg-5 arg-6 (vector 15 arg-7 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-2) (Normalise-Core-gType 'erased arg-7) eta-1))) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-31 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Type of " (Name-Core-show_Show__Name e-5))) (vector 0 ) (Env-Core-abstractFullEnvType arg-0 e-0 arg-6 e-11) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-32 ((ProcessType-TTImp-initDef arg-0 arg-1 arg-2 arg-3 e-5 arg-6 e-11 arg-10) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc10 1))) (let ((fullty (Env-Core-abstractFullEnvType arg-0 e-0 arg-6 e-11))) (let ((act-33 (let ((sc11 (TT-Core-C-47C-61_Eq__Visibility arg-9 (vector 0 )))) (cond ((equal? sc11 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-1 arg-7 e-5 arg-9 (vector 0 ) eta-1 eta-2))) ((NameMap-Data-keys 'erased) (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-34 (Utils-Elab-TTImp-findErased arg-1 fullty eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((e-15 (vector-ref sc12 1))) (let ((_-0 (vector 0 ))) (let ((sc13 e-15)) (let ((e-4 (vector-ref sc13 1))) (let ((e-3 (vector-ref sc13 2))) (let ((act-35 (let ((act-35 (unbox arg-1))) (vector 1 act-35)))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-16 (vector-ref sc14 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc14 1))) (let ((act-36 (Context-Core-clearDefs e-16 eta-0))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-17 (vector-ref sc15 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc15 1))) (let ((act-37 (let ((act-37 ((Normalise-Core-nf (vector 0 ) e-16 (vector 0 ) fullty) eta-0))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-18 (vector-ref sc16 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc16 1))) ((ProcessType-TTImp-findInferrable e-17 e-18) eta-0)))))))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-18 (vector-ref sc16 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc16 1))) (let ((act-38 (Context-Core-addDef arg-1 (vector 9 e-8) (let ((_-1 (vector 0 e-4 e-3))) (ProcessType-TTImp-case--10684-9077 e-2 e-1 e-0 arg-10 arg-9 arg-8 arg-7 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 e-8 e-9 _-0 e-11 e-12 e-13 fullty e-14 e-4 e-3 _-1 e-16 e-17 e-18 (Context-Core-newDef arg-7 e-5 arg-8 arg-0 fullty arg-9 e-13))) eta-0))) (let ((sc17 act-38)) (case (vector-ref sc17 0) ((0) (let ((e-19 (vector-ref sc17 1))) (vector 0 e-19))) (else (let ((act-39 (let ((sc18 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-438 arg-439)))) (vector 1 ) arg-4)))) (cond ((equal? sc18 0) (Context-Core-setLinearCheck arg-1 e-8 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc18 act-39)) (case (vector-ref sc18 0) ((0) (let ((e-20 (vector-ref sc18 1))) (vector 0 e-20))) (else (let ((act-40 (Context-Core-log arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Setting options for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__FnOpt x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__FnOpt d x)))) arg-10))))) eta-0))) (let ((sc19 act-40)) (case (vector-ref sc19 0) ((0) (let ((e-21 (vector-ref sc19 1))) (vector 0 e-21))) (else (let ((act-41 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessType-TTImp-processFnOpt arg-1 arg-7 (vector 9 e-8) eta-1)) arg-10) eta-0))) (let ((sc20 act-41)) (case (vector-ref sc20 0) ((0) (let ((e-22 (vector-ref sc20 1))) (vector 0 e-22))) (else (let ((act-42 (Metadata-Core-addTyDecl arg-0 arg-1 arg-2 arg-7 (vector 9 e-8) arg-6 e-11 eta-0))) (let ((sc21 act-42)) (case (vector-ref sc21 0) ((0) (let ((e-23 (vector-ref sc21 1))) (vector 0 e-23))) (else (let ((act-43 (Metadata-Core-addNameType arg-0 arg-1 arg-2 arg-7 (vector 9 e-8) arg-6 e-11 eta-0))) (let ((sc22 act-43)) (case (vector-ref sc22 0) ((0) (let ((e-24 (vector-ref sc22 1))) (vector 0 e-24))) (else (let ((act-44 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) ((NameMap-Data-keys 'erased) (TT-Core-getMetas 'erased e-11))) eta-0))) (let ((sc23 act-44)) (case (vector-ref sc23 0) ((0) (let ((e-25 (vector-ref sc23 1))) (vector 0 e-25))) (else (let ((act-45 (Context-Core-addToSave arg-1 e-5 eta-0))) (let ((sc24 act-45)) (case (vector-ref sc24 0) ((0) (let ((e-26 (vector-ref sc24 1))) (vector 0 e-26))) (else (let ((act-46 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) ((NameMap-Data-keys 'erased) (TT-Core-getMetas 'erased e-11))))))) eta-0))) (let ((sc25 act-46)) (case (vector-ref sc25 0) ((0) (let ((e-27 (vector-ref sc25 1))) (vector 0 e-27))) (else (let ((sc26 (TT-Core-C-47C-61_Eq__Visibility arg-9 (vector 0 )))) (cond ((equal? sc26 0) (let ((act-47 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__Name arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Name arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-5 eta-0))) (let ((sc27 act-47)) (case (vector-ref sc27 0) ((0) (let ((e-28 (vector-ref sc27 1))) (vector 0 e-28))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-11 eta-0)))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-7 e-5) eta-0))))))))))))))))))))))))))))))))))))))))) +(define ProcessType-TTImp-processFnOpt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 0 ) eta-0))) ((1) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 3 ) eta-0))) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact arg-2 (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 1))) e-27)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) e-1) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) ((ProcessType-TTImp-getRetTy e-5 e-7) eta-0)))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Context-Core-addHintFor arg-0 arg-1 e-7 arg-2 e-0 1 eta-0)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) eta-0))))))))))))))))) ((3) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-addGlobalHint arg-0 arg-2 e-1 eta-0)))) ((4) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 0 ) eta-0))) ((5) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 0 ) eta-0))) ((6) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 1 ) eta-0))) ((7) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 4 e-3) eta-0)))) ((8) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 6 ) eta-0))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 ((ProcessType-TTImp-n--8823-7215-getNamePos e-4 arg-2 arg-1 arg-0 0 e-7) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 ((ProcessType-TTImp-n--8823-7211-collectDDeps e-4 arg-2 arg-1 arg-0 e-7) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 ((ProcessType-TTImp-n--8823-7214-collectSpec e-4 arg-2 arg-1 arg-0 (vector 0 ) e-9 e-8 e-7) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 (Context-Core-addDef arg-0 arg-2 (let ((sc8 e-1)) (let ((e-0 (vector-ref sc8 1))) (let ((e-28 (vector-ref sc8 2))) (let ((e-2 (vector-ref sc8 3))) (let ((e-3 (vector-ref sc8 4))) (let ((e-27 (vector-ref sc8 5))) (let ((e-25 (vector-ref sc8 7))) (let ((e-24 (vector-ref sc8 8))) (let ((e-23 (vector-ref sc8 9))) (let ((e-22 (vector-ref sc8 10))) (let ((e-21 (vector-ref sc8 11))) (let ((e-11 (vector-ref sc8 12))) (let ((e-12 (vector-ref sc8 13))) (let ((e-13 (vector-ref sc8 14))) (let ((e-14 (vector-ref sc8 15))) (let ((e-15 (vector-ref sc8 16))) (let ((e-16 (vector-ref sc8 17))) (let ((e-17 (vector-ref sc8 18))) (let ((e-18 (vector-ref sc8 19))) (let ((e-19 (vector-ref sc8 20))) (let ((e-20 (vector-ref sc8 21))) (vector 0 e-0 e-28 e-2 e-3 e-27 e-10 e-25 e-24 e-23 e-22 e-21 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) eta-0))))))))))))))))))))) (define ProcessType-TTImp-initDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-addUserHole arg-1 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((4) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-getArity arg-0 e-5 arg-5 arg-6 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 2 e-6)))))))))))))) ((5) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-getArity arg-0 e-5 arg-5 arg-6 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessType-TTImp-getFnString arg-1 arg-2 arg-3 eta-1)) e-4) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (vector 3 e-6 e-7))))))))))))))))))))(else (ProcessType-TTImp-initDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3))))))))))) (define ProcessType-TTImp-getRetTy (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((ProcessType-TTImp-getRetTy arg-0 e-5) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-1) "Can only add hints for concrete return types") eta-0))))))))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-7))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-1) "Can only add hints for concrete return types") eta-0))))))) (define ProcessType-TTImp-getFnString (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((27) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-2 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-2))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-resolveName arg-0 (vector 1 "[foreign]")) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((fc (TTImp-TTImp-getFC arg-3))) (let ((gstr (Normalise-Core-gnf (vector 0 ) (vector 0 ) (vector 9 fc (vector 16 ))))) (let ((act-25 (Elab-TTImp-checkTerm (vector 0 ) arg-0 arg-1 arg-2 e-5 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) arg-3 gstr eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Normalise-Core-nf (vector 0 ) e-7 (vector 0 ) e-6) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((8) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((6) (let ((e-4 (vector-ref sc6 1))) (vector 1 e-4)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 fc "%foreign calling convention must evaluate to a String") eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 fc "%foreign calling convention must evaluate to a String") eta-0))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-resolveName arg-0 (vector 1 "[foreign]")) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((fc (TTImp-TTImp-getFC arg-3))) (let ((gstr (Normalise-Core-gnf (vector 0 ) (vector 0 ) (vector 9 fc (vector 16 ))))) (let ((act-25 (Elab-TTImp-checkTerm (vector 0 ) arg-0 arg-1 arg-2 e-5 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) arg-3 gstr eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Normalise-Core-nf (vector 0 ) e-7 (vector 0 ) e-6) eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((8) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((6) (let ((e-3 (vector-ref sc5 1))) (vector 1 e-3)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 fc "%foreign calling convention must evaluate to a String") eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 fc "%foreign calling convention must evaluate to a String") eta-0)))))))))))))))))))))))))))))))) -(define ProcessType-TTImp-findInferrable (lambda (arg-0 arg-1) (ProcessType-TTImp-n--10179-8366-fi arg-1 arg-0 0 0 (vector 0 ) (vector 0 ) arg-1))) -(define Elab-TTImp-case--13215-9468 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Context-Core-branch arg-13 eta-0)))(else (lambda (eta-0) (let ((act-24 (unbox arg-13))) (vector 1 act-24)))))))) -(define Elab-TTImp-case--13215-9343 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((27) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-13 arg-14))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (set-box! arg-11 arg-15))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (set-box! arg-12 arg-16))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-27 ((Elab-TTImp-n--13215-9240-bindImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-0 e-1 e-2 e-3 arg-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) ((Elab-TTImp-elabTermSub arg-0 arg-1 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 e-8 (vector 1 arg-2)) eta-0))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-17 eta-0))))))) -(define Elab-TTImp-case--11179-9158 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-18)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9))))))))))))) -(define Elab-TTImp-case--11490-9078 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33) (let ((sc0 arg-33)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-19 e-9))))))))))))) -(define Elab-TTImp-case--11490-8998 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33) (let ((sc0 arg-33)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-19 e-9))))))))))))) -(define Elab-TTImp-case--12372-8807 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40) (let ((sc0 arg-40)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-checkUserHoles arg-11 arg-13 (Prelude-C-124C-124 arg-16 (lambda () arg-15)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (LinearCheck-Core-linearCheck arg-1 arg-13 arg-11 (TTImp-TTImp-getFC arg-3) arg-24 1 arg-6 arg-39 eta-0))))))) (else (lambda (eta-0) (vector 1 arg-39))))))) -(define Elab-TTImp-case--11490-8535 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (let ((sc1 (Prelude-not arg-14))) (cond ((equal? sc1 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-39))))))) ((3) (lambda (eta-0) (let ((act-24 (let ((sc1 (Prelude-not arg-14))) (cond ((equal? sc1 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-39)))))))(else (Elab-TTImp-case--12372-8807 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 (Prelude-not arg-14))))))) -(define Elab-TTImp-case--11490-8313 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((vs (Elab-TTImp-findPLetRenames arg-1 arg-40))) (let ((ret (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) arg-40))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-26) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 ret (Normalise-Core-gnf arg-1 arg-6 (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-5)))))))))))))(else (lambda (eta-0) (let ((act-24 (UnifyState-Core-dumpConstraints arg-11 arg-13 (+ 1 (+ 1 0)) 1 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 (vector 0 arg-40 arg-26)))))))))))) -(define Elab-TTImp-case--11490-8154 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (Normalise-Core-normaliseHoles arg-1 arg-38 arg-6 arg-25 eta-0))) (else (lambda (eta-0) (Normalise-Core-normaliseArgHoles arg-1 arg-38 arg-6 arg-25 eta-0))))))) -(define Elab-TTImp-case--11490-7813 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) -(define Elab-TTImp-case--11179-7754 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((solvemode (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) (lambda (eta-0) (let ((act-24 (Unify-Core-solveConstraints arg-13 arg-11 solvemode (vector 0 ) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTerm arg-1 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Looking for delayed in ") e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-11))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (Delayed-Elab-TTImp-retryDelayed arg-1 arg-13 arg-12 arg-11 arg-23 (List-Data-sortBy 'erased (lambda (x) (lambda (y) (Prelude-compare_Ord__Nat (Builtin-fst 'erased 'erased x) (Builtin-fst 'erased 'erased y)))) (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 9))) e-8))) eta-1)) (lambda (err) (lambda (eta-1) (let ((act-27 (let ((act-27 (unbox arg-11))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (set-box! arg-11 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-15 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-13 (vector-ref sc5 6))) (let ((e-12 (vector-ref sc5 7))) (let ((e-11 (vector-ref sc5 8))) (let ((e-9 (vector-ref sc5 10))) (vector 0 e-0 e-1 e-15 e-14 e-4 e-13 e-12 e-11 arg-19 e-9)))))))))))))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (unbox arg-11))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (let ((act-29 (set-box! arg-11 (let ((sc6 e-9)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-16 (vector-ref sc6 3))) (let ((e-15 (vector-ref sc6 4))) (let ((e-4 (vector-ref sc6 5))) (let ((e-14 (vector-ref sc6 6))) (let ((e-13 (vector-ref sc6 7))) (let ((e-12 (vector-ref sc6 8))) (let ((e-10 (vector-ref sc6 10))) (vector 0 e-0 e-1 e-16 e-15 e-4 e-14 e-13 e-12 arg-19 e-10)))))))))))))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Unify-Core-solveConstraintsAfter arg-13 arg-11 arg-21 solvemode (vector 2 ) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (let ((sc8 (Prelude-not arg-14))) (cond ((equal? sc8 0) (let ((act-31 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Resolving default hints") eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 (Unify-Core-solveConstraintsAfter arg-13 arg-11 arg-21 solvemode (vector 1 ) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (Unify-Core-solveConstraintsAfter arg-13 arg-11 arg-21 solvemode (vector 3 ) eta-0)))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (UnifyState-Core-dumpConstraints arg-11 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 0)))) 1 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 (let ((act-33 (unbox arg-13))) (vector 1 act-33)))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 (let ((sc11 arg-15)) (cond ((equal? sc11 0) (Normalise-Core-normaliseHoles arg-1 e-14 arg-6 e-2 eta-0)) (else (Normalise-Core-normaliseArgHoles arg-1 e-14 arg-6 e-2 eta-0)))))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-35 (let ((_-0 (vector 0 e-2 e-3))) (let ((sc12 arg-9)) (case (vector-ref sc12 0) ((1) (let ((act-35 (let ((sc13 (Prelude-not arg-14))) (cond ((equal? sc13 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (vector 1 e-15)))))) ((3) (let ((act-35 (let ((sc13 (Prelude-not arg-14))) (cond ((equal? sc13 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (vector 1 e-15))))))(else ((Elab-TTImp-case--12372-8807 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 e-2 e-3 _-0 solvemode e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 (Prelude-not arg-14)) eta-0))))))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-36 (Elab-TTImp-normaliseHoleTypes arg-13 arg-11 eta-0))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-37 (let ((sc14 (Prelude-not arg-14))) (cond ((equal? sc14 0) (let ((act-37 (UnifyState-Core-getHoles arg-11 eta-0))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc15 1))) (UnifyState-Core-restoreHoles arg-11 (Elab-TTImp-n--11179-7494-addHoles arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (IntMap-Data-empty 'erased) e-18 (IntMap-Data-toList 'erased arg-17)) eta-0))))))) (else (vector 1 (vector 0 ))))))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((act-38 (let ((act-38 (unbox arg-23))) (vector 1 act-38)))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc15 1))) (let ((act-39 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Elab-TTImp-addHoleToSave arg-13 eta-1 eta-2))) (NameMap-Data-keys 'erased (let ((sc16 e-19)) (let ((e-21 (vector-ref sc16 12))) e-21)))) eta-0))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((sc17 arg-9)) (case (vector-ref sc17 0) ((1) (let ((vs (Elab-TTImp-findPLetRenames arg-1 e-16))) (let ((ret (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-16))) (let ((act-40 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc18 act-40)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc18 1))) (vector 1 (vector 0 ret (Normalise-Core-gnf arg-1 arg-6 (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-21))))))))))))(else (let ((act-40 (UnifyState-Core-dumpConstraints arg-11 arg-13 (+ 1 (+ 1 0)) 1 eta-0))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-16 e-3))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Elab-TTImp-case--11179-7677 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (UnifyState-Core-saveHoles arg-11 eta-0))) (else (lambda (eta-0) (vector 1 (IntMap-Data-empty 'erased)))))))) -(define Elab-TTImp-case--11201-7509 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((0) (Elab-TTImp-n--11179-7494-addHoles arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-18 arg-17 arg-16)) (else (Elab-TTImp-n--11179-7494-addHoles arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (IntMap-Data-insert 'erased arg-14 arg-15 arg-18) arg-17 arg-16)))))) -(define Elab-TTImp-case--11127-7445 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((ms (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-1)))) (lambda (eta-0) (let ((act-24 (Context-Core-addToSave arg-1 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) ms) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Elab-TTImp-case--11031-7353 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((7) (lambda (eta-0) (Elab-TTImp-n--10956-7270-updateType arg-0 arg-1 arg-3 arg-2 arg-4 eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Elab-TTImp-case--10962-7340 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-1))) (Elab-TTImp-case--11031-7353 arg-0 arg-1 arg-2 arg-3 e-1 bind-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Elab-TTImp-case--10961-7318 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 arg-5 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))))) -(define Elab-TTImp-case--10926-7253 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) -(define Elab-TTImp-case--10768-7185 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (vector 3 arg-4 e-6 (TT-Core-setMultiplicity 'erased arg-3 (Preorder-Algebra-lub 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) e-5 (TT-Core-multiplicity 'erased arg-3))) (Elab-TTImp-doPLetRenames (vector 1 e-6 arg-0) arg-6 (vector 1 e-6 arg-5) (TT-Core-renameTop 'erased 'erased e-6 arg-2)))))))) (else (vector 3 arg-4 arg-1 arg-3 (Elab-TTImp-doPLetRenames (vector 1 arg-1 arg-0) arg-6 arg-5 arg-2))))))) -(define Elab-TTImp-case--10768-7125 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (SubstEnv-TT-Core-subst arg-0 arg-4 (vector 10 arg-7 1) (Elab-TTImp-doPLetRenames (vector 1 arg-4 arg-0) arg-9 arg-8 arg-5))) (else (vector 3 arg-7 arg-4 arg-6 (Elab-TTImp-doPLetRenames (vector 1 arg-4 arg-0) arg-9 arg-8 arg-5))))))) -(define Elab-TTImp-case--10654-7030 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((2) (vector 1 (vector 0 arg-11 (vector 0 arg-7 arg-8)) (Elab-TTImp-findPLetRenames (vector 1 arg-8 arg-0) arg-9)))(else (Elab-TTImp-findPLetRenames (vector 1 arg-8 arg-0) arg-9)))))) -(define Elab-TTImp-n--10956-7270-updateType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-2 (vector 0 ) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 3))) e-2)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-addDef arg-1 (vector 9 arg-3) (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-21 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-1 e-5 e-3 e-4 e-21 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))))))) -(define Elab-TTImp-n--10956-7271-normaliseH (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 arg-3) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((bind-0 (vector 1 e-1))) ((Elab-TTImp-case--11031-7353 arg-0 arg-1 arg-3 arg-2 e-1 bind-0 (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17))) ext-0)))) (else (vector 1 (vector 0 )))))))))))) -(define Elab-TTImp-n--13215-9239-bindImpsC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-18))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Elab-TTImp-n--13215-9239-bindImpsC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-3 arg-18) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 1 arg-15 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) (vector 1 e-6) (vector 31 arg-15 0) e-5))))))))))))))))) -(define Elab-TTImp-n--13215-9240-bindImps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((15) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Elab-TTImp-n--13215-9239-bindImpsC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 15 e-0 e-1 e-5))))))))))))(else (Elab-TTImp-n--13215-9239-bindImpsC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18)))))) -(define Elab-TTImp-n--11179-7494-addHoles (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) arg-14) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Elab-TTImp-case--11201-7509 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-6 e-7 e-3 arg-15 arg-14 (IntMap-Data-lookup 'erased e-6 arg-15)))))))))))) -(define Elab-TTImp-normaliseHoleTypes (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((hs (IntMap-Data-keys 'erased (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Elab-TTImp-n--10956-7271-normaliseH arg-1 arg-0 e-6 eta-0 eta-1))) hs) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))))))))))))) -(define Elab-TTImp-getRigNeeded (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((1) (let ((e-0 (vector-ref sc0 1))) (Elab-TTImp-case--10926-7253 e-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-0))))(else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) -(define Elab-TTImp-findPLetRenames (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((4) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (let ((e-13 (vector-ref sc2 3))) (Elab-TTImp-case--10654-7030 arg-0 'erased e-11 e-12 e-13 'erased e-8 e-6 e-2 e-4 e-1 (TT-Core-nameAt 'erased arg-0 e-13 'erased))))))(else (Elab-TTImp-findPLetRenames (vector 1 e-2 arg-0) e-4))))))))(else (Elab-TTImp-findPLetRenames (vector 1 e-2 arg-0) e-4)))))))))(else (vector 0 )))))) -(define Elab-TTImp-elabTermSub (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((incase (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 1 ) arg-7))) (let ((inPE (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 2 ) arg-7))) (let ((inTrans (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 3 ) arg-7))) (lambda (eta-0) (let ((act-24 ((Elab-TTImp-case--11179-7677 arg-0 arg-1 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 incase inPE inTrans (Prelude-not incase)) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((olddelayed (let ((sc2 e-6)) (let ((e-8 (vector-ref sc2 9))) e-8)))) (let ((act-26 (let ((act-26 (set-box! arg-4 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-11 (vector-ref sc2 6))) (let ((e-10 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-11 e-10 e-7 (vector 0 ) e-9)))))))))))))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Context-Core-getNextEntry arg-2 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (unbox arg-2))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (Core-Core-newRef 'erased 'erased (vector "TTImp.Elab.Check.EST" ) (Check-Elab-TTImp-initEStateSub 'erased arg-0 arg-5 arg-10 arg-11) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((rigc (Elab-TTImp-getRigNeeded arg-6))) (let ((act-30 ((Check-Elab-TTImp-check arg-1 arg-2 arg-3 arg-4 e-10 rigc (Check-Elab-TTImp-initElabInfo arg-6) arg-8 arg-9 arg-12 arg-13) eta-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((sc7 e-11)) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((solvemode (let ((sc8 arg-6)) (case (vector-ref sc8 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) (let ((act-31 (Unify-Core-solveConstraints arg-2 arg-4 solvemode (vector 0 ) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Context-Core-logTerm arg-1 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Looking for delayed in ") e-2 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 (let ((act-33 (unbox arg-4))) (vector 1 act-33)))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (Delayed-Elab-TTImp-retryDelayed arg-1 arg-2 arg-3 arg-4 e-10 (List-Data-sortBy 'erased (lambda (x) (lambda (y) (Prelude-compare_Ord__Nat (Builtin-fst 'erased 'erased x) (Builtin-fst 'erased 'erased y)))) (let ((sc11 e-14)) (let ((e-16 (vector-ref sc11 9))) e-16))) eta-1)) (lambda (err) (lambda (eta-1) (let ((act-34 (let ((act-34 (unbox arg-4))) (vector 1 act-34)))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-35 (let ((act-35 (set-box! arg-4 (let ((sc12 e-15)) (let ((e-0 (vector-ref sc12 1))) (let ((e-1 (vector-ref sc12 2))) (let ((e-22 (vector-ref sc12 3))) (let ((e-21 (vector-ref sc12 4))) (let ((e-4 (vector-ref sc12 5))) (let ((e-20 (vector-ref sc12 6))) (let ((e-19 (vector-ref sc12 7))) (let ((e-18 (vector-ref sc12 8))) (let ((e-16 (vector-ref sc12 10))) (vector 0 e-0 e-1 e-22 e-21 e-4 e-20 e-19 e-18 olddelayed e-16)))))))))))))) (vector 1 act-35)))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))))) eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-35 (let ((act-35 (unbox arg-4))) (vector 1 act-35)))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-36 (let ((act-36 (set-box! arg-4 (let ((sc13 e-16)) (let ((e-0 (vector-ref sc13 1))) (let ((e-1 (vector-ref sc13 2))) (let ((e-23 (vector-ref sc13 3))) (let ((e-22 (vector-ref sc13 4))) (let ((e-4 (vector-ref sc13 5))) (let ((e-21 (vector-ref sc13 6))) (let ((e-20 (vector-ref sc13 7))) (let ((e-19 (vector-ref sc13 8))) (let ((e-17 (vector-ref sc13 10))) (vector 0 e-0 e-1 e-23 e-22 e-4 e-21 e-20 e-19 olddelayed e-17)))))))))))))) (vector 1 act-36)))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc13 1))) (let ((act-37 (Unify-Core-solveConstraintsAfter arg-2 arg-4 e-8 solvemode (vector 2 ) eta-0))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc14 1))) (let ((act-38 (let ((sc15 (Prelude-not incase))) (cond ((equal? sc15 0) (let ((act-38 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Resolving default hints") eta-0))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((act-39 (Unify-Core-solveConstraintsAfter arg-2 arg-4 e-8 solvemode (vector 1 ) eta-0))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (Unify-Core-solveConstraintsAfter arg-2 arg-4 e-8 solvemode (vector 3 ) eta-0)))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc15 1))) (let ((act-39 (UnifyState-Core-dumpConstraints arg-4 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 0)))) 1 eta-0))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-40 (let ((act-40 (unbox arg-2))) (vector 1 act-40)))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc17 1))) (let ((act-41 (let ((sc18 inPE)) (cond ((equal? sc18 0) (Normalise-Core-normaliseHoles arg-1 e-21 arg-9 e-2 eta-0)) (else (Normalise-Core-normaliseArgHoles arg-1 e-21 arg-9 e-2 eta-0)))))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc18 1))) (let ((act-42 (let ((_-0 (vector 0 e-2 e-3))) (let ((sc19 arg-6)) (case (vector-ref sc19 0) ((1) (let ((act-42 (let ((sc20 (Prelude-not incase))) (cond ((equal? sc20 0) (UnifyState-Core-checkUserHoles arg-4 arg-2 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc20 act-42)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (vector 1 e-22)))))) ((3) (let ((act-42 (let ((sc20 (Prelude-not incase))) (cond ((equal? sc20 0) (UnifyState-Core-checkUserHoles arg-4 arg-2 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc20 act-42)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (vector 1 e-22))))))(else ((Elab-TTImp-case--12372-8807 arg-0 arg-1 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 incase inPE inTrans e-5 e-6 olddelayed e-7 e-8 e-9 e-10 rigc e-2 e-3 _-0 solvemode e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 (Prelude-not incase)) eta-0))))))) (let ((sc19 act-42)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (vector 0 e-4))) (else (let ((e-23 (vector-ref sc19 1))) (let ((act-43 (Elab-TTImp-normaliseHoleTypes arg-2 arg-4 eta-0))) (let ((sc20 act-43)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (let ((act-44 (let ((sc21 (Prelude-not incase))) (cond ((equal? sc21 0) (let ((act-44 (UnifyState-Core-getHoles arg-4 eta-0))) (let ((sc22 act-44)) (case (vector-ref sc22 0) ((0) (let ((e-4 (vector-ref sc22 1))) (vector 0 e-4))) (else (let ((e-25 (vector-ref sc22 1))) (UnifyState-Core-restoreHoles arg-4 (Elab-TTImp-n--11179-7494-addHoles arg-0 arg-1 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (IntMap-Data-empty 'erased) e-25 (IntMap-Data-toList 'erased e-5)) eta-0))))))) (else (vector 1 (vector 0 ))))))) (let ((sc21 act-44)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (vector 0 e-4))) (else (let ((act-45 (let ((act-45 (unbox e-10))) (vector 1 act-45)))) (let ((sc22 act-45)) (case (vector-ref sc22 0) ((0) (let ((e-4 (vector-ref sc22 1))) (vector 0 e-4))) (else (let ((e-26 (vector-ref sc22 1))) (let ((act-46 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Elab-TTImp-addHoleToSave arg-2 eta-1 eta-2))) (NameMap-Data-keys 'erased (let ((sc23 e-26)) (let ((e-28 (vector-ref sc23 12))) e-28)))) eta-0))) (let ((sc23 act-46)) (case (vector-ref sc23 0) ((0) (let ((e-4 (vector-ref sc23 1))) (vector 0 e-4))) (else (let ((sc24 arg-6)) (case (vector-ref sc24 0) ((1) (let ((vs (Elab-TTImp-findPLetRenames arg-1 e-23))) (let ((ret (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-23))) (let ((act-47 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc25 act-47)) (case (vector-ref sc25 0) ((0) (let ((e-4 (vector-ref sc25 1))) (vector 0 e-4))) (else (let ((e-28 (vector-ref sc25 1))) (vector 1 (vector 0 ret (Normalise-Core-gnf arg-1 arg-9 (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-28))))))))))))(else (let ((act-47 (UnifyState-Core-dumpConstraints arg-4 arg-2 (+ 1 (+ 1 0)) 1 eta-0))) (let ((sc24 act-47)) (case (vector-ref sc24 0) ((0) (let ((e-4 (vector-ref sc24 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-23 e-3))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define ProcessType-TTImp-findInferrable (lambda (arg-0 arg-1) (ProcessType-TTImp-n--10245-8435-fi arg-1 arg-0 0 0 (vector 0 ) (vector 0 ) arg-1))) +(define Elab-TTImp-case--13267-9537 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Context-Core-branch arg-13 eta-0)))(else (lambda (eta-0) (let ((act-24 (unbox arg-13))) (vector 1 act-24)))))))) +(define Elab-TTImp-case--13267-9412 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((27) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-13 arg-14))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (set-box! arg-11 arg-15))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (set-box! arg-12 arg-16))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-27 ((Elab-TTImp-n--13267-9309-bindImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-0 e-1 e-2 e-3 arg-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) ((Elab-TTImp-elabTermSub arg-0 arg-1 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 e-8 (vector 1 arg-2)) eta-0))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-17 eta-0))))))) +(define Elab-TTImp-case--11231-9227 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-18)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9))))))))))))) +(define Elab-TTImp-case--11542-9147 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33) (let ((sc0 arg-33)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-19 e-9))))))))))))) +(define Elab-TTImp-case--11542-9067 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33) (let ((sc0 arg-33)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-19 e-9))))))))))))) +(define Elab-TTImp-case--12424-8876 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40) (let ((sc0 arg-40)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-checkUserHoles arg-11 arg-13 (Prelude-C-124C-124 arg-16 (lambda () arg-15)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (LinearCheck-Core-linearCheck arg-1 arg-13 arg-11 (TTImp-TTImp-getFC arg-3) arg-24 1 arg-6 arg-39 eta-0))))))) (else (lambda (eta-0) (vector 1 arg-39))))))) +(define Elab-TTImp-case--11542-8604 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (let ((sc1 (Prelude-not arg-14))) (cond ((equal? sc1 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-39))))))) ((3) (lambda (eta-0) (let ((act-24 (let ((sc1 (Prelude-not arg-14))) (cond ((equal? sc1 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-39)))))))(else (Elab-TTImp-case--12424-8876 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 (Prelude-not arg-14))))))) +(define Elab-TTImp-case--11542-8382 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((vs (Elab-TTImp-findPLetRenames arg-1 arg-40))) (let ((ret (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) arg-40))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-26) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 ret (Normalise-Core-gnf arg-1 arg-6 (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-5)))))))))))))(else (lambda (eta-0) (let ((act-24 (UnifyState-Core-dumpConstraints arg-11 arg-13 (+ 1 (+ 1 0)) 1 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 (vector 0 arg-40 arg-26)))))))))))) +(define Elab-TTImp-case--11542-8223 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (Normalise-Core-normaliseHoles arg-1 arg-38 arg-6 arg-25 eta-0))) (else (lambda (eta-0) (Normalise-Core-normaliseArgHoles arg-1 arg-38 arg-6 arg-25 eta-0))))))) +(define Elab-TTImp-case--11542-7882 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) +(define Elab-TTImp-case--11231-7823 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((solvemode (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) (lambda (eta-0) (let ((act-24 (Unify-Core-solveConstraints arg-13 arg-11 solvemode (vector 0 ) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTerm arg-1 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Looking for delayed in ") e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-11))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (Delayed-Elab-TTImp-retryDelayed arg-1 arg-13 arg-12 arg-11 arg-23 (List-Data-sortBy 'erased (lambda (x) (lambda (y) (Prelude-compare_Ord__Nat (Builtin-fst 'erased 'erased x) (Builtin-fst 'erased 'erased y)))) (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 9))) e-8))) eta-1)) (lambda (err) (lambda (eta-1) (let ((act-27 (let ((act-27 (unbox arg-11))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (set-box! arg-11 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-15 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-13 (vector-ref sc5 6))) (let ((e-12 (vector-ref sc5 7))) (let ((e-11 (vector-ref sc5 8))) (let ((e-9 (vector-ref sc5 10))) (vector 0 e-0 e-1 e-15 e-14 e-4 e-13 e-12 e-11 arg-19 e-9)))))))))))))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (unbox arg-11))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (let ((act-29 (set-box! arg-11 (let ((sc6 e-9)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-16 (vector-ref sc6 3))) (let ((e-15 (vector-ref sc6 4))) (let ((e-4 (vector-ref sc6 5))) (let ((e-14 (vector-ref sc6 6))) (let ((e-13 (vector-ref sc6 7))) (let ((e-12 (vector-ref sc6 8))) (let ((e-10 (vector-ref sc6 10))) (vector 0 e-0 e-1 e-16 e-15 e-4 e-14 e-13 e-12 arg-19 e-10)))))))))))))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Unify-Core-solveConstraintsAfter arg-13 arg-11 arg-21 solvemode (vector 2 ) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (let ((sc8 (Prelude-not arg-14))) (cond ((equal? sc8 0) (let ((act-31 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Resolving default hints") eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 (Unify-Core-solveConstraintsAfter arg-13 arg-11 arg-21 solvemode (vector 1 ) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (Unify-Core-solveConstraintsAfter arg-13 arg-11 arg-21 solvemode (vector 3 ) eta-0)))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (UnifyState-Core-dumpConstraints arg-11 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 0)))) 1 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 (let ((act-33 (unbox arg-13))) (vector 1 act-33)))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 (let ((sc11 arg-15)) (cond ((equal? sc11 0) (Normalise-Core-normaliseHoles arg-1 e-14 arg-6 e-2 eta-0)) (else (Normalise-Core-normaliseArgHoles arg-1 e-14 arg-6 e-2 eta-0)))))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-35 (let ((_-0 (vector 0 e-2 e-3))) (let ((sc12 arg-9)) (case (vector-ref sc12 0) ((1) (let ((act-35 (let ((sc13 (Prelude-not arg-14))) (cond ((equal? sc13 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (vector 1 e-15)))))) ((3) (let ((act-35 (let ((sc13 (Prelude-not arg-14))) (cond ((equal? sc13 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (vector 1 e-15))))))(else ((Elab-TTImp-case--12424-8876 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 e-2 e-3 _-0 solvemode e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 (Prelude-not arg-14)) eta-0))))))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-36 (Elab-TTImp-normaliseHoleTypes arg-13 arg-11 eta-0))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-37 (let ((sc14 (Prelude-not arg-14))) (cond ((equal? sc14 0) (let ((act-37 (UnifyState-Core-getHoles arg-11 eta-0))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc15 1))) (UnifyState-Core-restoreHoles arg-11 (Elab-TTImp-n--11231-7563-addHoles arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (IntMap-Data-empty 'erased) e-18 (IntMap-Data-toList 'erased arg-17)) eta-0))))))) (else (vector 1 (vector 0 ))))))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((act-38 (let ((act-38 (unbox arg-23))) (vector 1 act-38)))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc15 1))) (let ((act-39 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Elab-TTImp-addHoleToSave arg-13 eta-1 eta-2))) ((NameMap-Data-keys 'erased) (let ((sc16 e-19)) (let ((e-21 (vector-ref sc16 12))) e-21)))) eta-0))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((sc17 arg-9)) (case (vector-ref sc17 0) ((1) (let ((vs (Elab-TTImp-findPLetRenames arg-1 e-16))) (let ((ret (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-16))) (let ((act-40 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc18 act-40)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc18 1))) (vector 1 (vector 0 ret (Normalise-Core-gnf arg-1 arg-6 (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-21))))))))))))(else (let ((act-40 (UnifyState-Core-dumpConstraints arg-11 arg-13 (+ 1 (+ 1 0)) 1 eta-0))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-16 e-3))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Elab-TTImp-case--11231-7746 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (UnifyState-Core-saveHoles arg-11 eta-0))) (else (lambda (eta-0) (vector 1 (IntMap-Data-empty 'erased)))))))) +(define Elab-TTImp-case--11253-7578 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((0) (Elab-TTImp-n--11231-7563-addHoles arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-18 arg-17 arg-16)) (else (Elab-TTImp-n--11231-7563-addHoles arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (IntMap-Data-insert 'erased arg-14 arg-15 arg-18) arg-17 arg-16)))))) +(define Elab-TTImp-case--11179-7514 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((ms ((NameMap-Data-keys 'erased) (TT-Core-getMetas 'erased e-1)))) (lambda (eta-0) (let ((act-24 (Context-Core-addToSave arg-1 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) ms) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Elab-TTImp-case--11083-7422 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((7) (lambda (eta-0) (Elab-TTImp-n--11008-7339-updateType arg-0 arg-1 arg-3 arg-2 arg-4 eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Elab-TTImp-case--11014-7409 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-1))) (Elab-TTImp-case--11083-7422 arg-0 arg-1 arg-2 arg-3 e-1 bind-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Elab-TTImp-case--11013-7387 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 arg-5 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))))) +(define Elab-TTImp-case--10978-7322 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) +(define Elab-TTImp-case--10820-7254 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (vector 3 arg-4 e-6 (TT-Core-setMultiplicity 'erased arg-3 (Preorder-Algebra-lub 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-256 arg-257))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-259) (lambda (arg-261) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-259 arg-261))))))) e-5 (TT-Core-multiplicity 'erased arg-3))) (Elab-TTImp-doPLetRenames (vector 1 e-6 arg-0) arg-6 (vector 1 e-6 arg-5) (TT-Core-renameTop 'erased 'erased e-6 arg-2)))))))) (else (vector 3 arg-4 arg-1 arg-3 (Elab-TTImp-doPLetRenames (vector 1 arg-1 arg-0) arg-6 arg-5 arg-2))))))) +(define Elab-TTImp-case--10820-7194 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (SubstEnv-TT-Core-subst arg-0 arg-4 (vector 10 arg-7 1) (Elab-TTImp-doPLetRenames (vector 1 arg-4 arg-0) arg-9 arg-8 arg-5))) (else (vector 3 arg-7 arg-4 arg-6 (Elab-TTImp-doPLetRenames (vector 1 arg-4 arg-0) arg-9 arg-8 arg-5))))))) +(define Elab-TTImp-case--10706-7099 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((2) (vector 1 (vector 0 arg-11 (vector 0 arg-7 arg-8)) (Elab-TTImp-findPLetRenames (vector 1 arg-8 arg-0) arg-9)))(else (Elab-TTImp-findPLetRenames (vector 1 arg-8 arg-0) arg-9)))))) +(define Elab-TTImp-n--11008-7339-updateType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-2 (vector 0 ) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 3))) e-2)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-addDef arg-1 (vector 9 arg-3) (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-21 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-1 e-5 e-3 e-4 e-21 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))))))) +(define Elab-TTImp-n--11008-7340-normaliseH (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 arg-3) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((bind-0 (vector 1 e-1))) ((Elab-TTImp-case--11083-7422 arg-0 arg-1 arg-3 arg-2 e-1 bind-0 (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17))) ext-0)))) (else (vector 1 (vector 0 )))))))))))) +(define Elab-TTImp-n--13267-9308-bindImpsC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-18))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Elab-TTImp-n--13267-9308-bindImpsC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-3 arg-18) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 1 arg-15 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) (vector 1 e-6) (vector 31 arg-15 0) e-5))))))))))))))))) +(define Elab-TTImp-n--13267-9309-bindImps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((15) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Elab-TTImp-n--13267-9308-bindImpsC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 15 e-0 e-1 e-5))))))))))))(else (Elab-TTImp-n--13267-9308-bindImpsC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18)))))) +(define Elab-TTImp-n--11231-7563-addHoles (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) arg-14) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Elab-TTImp-case--11253-7578 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-6 e-7 e-3 arg-15 arg-14 (IntMap-Data-lookup 'erased e-6 arg-15)))))))))))) +(define Elab-TTImp-normaliseHoleTypes (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((hs (IntMap-Data-keys 'erased (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Elab-TTImp-n--11008-7340-normaliseH arg-1 arg-0 e-6 eta-0 eta-1))) hs) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))))))))))))) +(define Elab-TTImp-getRigNeeded (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((1) (let ((e-0 (vector-ref sc0 1))) (Elab-TTImp-case--10978-7322 e-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) e-0))))(else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) +(define Elab-TTImp-findPLetRenames (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((4) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (let ((e-13 (vector-ref sc2 3))) (Elab-TTImp-case--10706-7099 arg-0 'erased e-11 e-12 e-13 'erased e-8 e-6 e-2 e-4 e-1 (TT-Core-nameAt 'erased arg-0 e-13 'erased))))))(else (Elab-TTImp-findPLetRenames (vector 1 e-2 arg-0) e-4))))))))(else (Elab-TTImp-findPLetRenames (vector 1 e-2 arg-0) e-4)))))))))(else (vector 0 )))))) +(define Elab-TTImp-elabTermSub (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((incase (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-438 arg-439)))) (vector 1 ) arg-7))) (let ((inPE (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-438 arg-439)))) (vector 2 ) arg-7))) (let ((inTrans (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-438 arg-439)))) (vector 3 ) arg-7))) (lambda (eta-0) (let ((act-24 ((Elab-TTImp-case--11231-7746 arg-0 arg-1 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 incase inPE inTrans (Prelude-not incase)) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((olddelayed (let ((sc2 e-6)) (let ((e-8 (vector-ref sc2 9))) e-8)))) (let ((act-26 (let ((act-26 (set-box! arg-4 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-11 (vector-ref sc2 6))) (let ((e-10 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-11 e-10 e-7 (vector 0 ) e-9)))))))))))))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Context-Core-getNextEntry arg-2 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (unbox arg-2))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (Core-Core-newRef 'erased 'erased (vector "TTImp.Elab.Check.EST" ) (Check-Elab-TTImp-initEStateSub 'erased arg-0 arg-5 arg-10 arg-11) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((rigc (Elab-TTImp-getRigNeeded arg-6))) (let ((act-30 ((Check-Elab-TTImp-check arg-1 arg-2 arg-3 arg-4 e-10 rigc (Check-Elab-TTImp-initElabInfo arg-6) arg-8 arg-9 arg-12 arg-13) eta-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((sc7 e-11)) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((solvemode (let ((sc8 arg-6)) (case (vector-ref sc8 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) (let ((act-31 (Unify-Core-solveConstraints arg-2 arg-4 solvemode (vector 0 ) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Context-Core-logTerm arg-1 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Looking for delayed in ") e-2 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 (let ((act-33 (unbox arg-4))) (vector 1 act-33)))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (Delayed-Elab-TTImp-retryDelayed arg-1 arg-2 arg-3 arg-4 e-10 (List-Data-sortBy 'erased (lambda (x) (lambda (y) (Prelude-compare_Ord__Nat (Builtin-fst 'erased 'erased x) (Builtin-fst 'erased 'erased y)))) (let ((sc11 e-14)) (let ((e-16 (vector-ref sc11 9))) e-16))) eta-1)) (lambda (err) (lambda (eta-1) (let ((act-34 (let ((act-34 (unbox arg-4))) (vector 1 act-34)))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-35 (let ((act-35 (set-box! arg-4 (let ((sc12 e-15)) (let ((e-0 (vector-ref sc12 1))) (let ((e-1 (vector-ref sc12 2))) (let ((e-22 (vector-ref sc12 3))) (let ((e-21 (vector-ref sc12 4))) (let ((e-4 (vector-ref sc12 5))) (let ((e-20 (vector-ref sc12 6))) (let ((e-19 (vector-ref sc12 7))) (let ((e-18 (vector-ref sc12 8))) (let ((e-16 (vector-ref sc12 10))) (vector 0 e-0 e-1 e-22 e-21 e-4 e-20 e-19 e-18 olddelayed e-16)))))))))))))) (vector 1 act-35)))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))))) eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-35 (let ((act-35 (unbox arg-4))) (vector 1 act-35)))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-36 (let ((act-36 (set-box! arg-4 (let ((sc13 e-16)) (let ((e-0 (vector-ref sc13 1))) (let ((e-1 (vector-ref sc13 2))) (let ((e-23 (vector-ref sc13 3))) (let ((e-22 (vector-ref sc13 4))) (let ((e-4 (vector-ref sc13 5))) (let ((e-21 (vector-ref sc13 6))) (let ((e-20 (vector-ref sc13 7))) (let ((e-19 (vector-ref sc13 8))) (let ((e-17 (vector-ref sc13 10))) (vector 0 e-0 e-1 e-23 e-22 e-4 e-21 e-20 e-19 olddelayed e-17)))))))))))))) (vector 1 act-36)))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc13 1))) (let ((act-37 (Unify-Core-solveConstraintsAfter arg-2 arg-4 e-8 solvemode (vector 2 ) eta-0))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc14 1))) (let ((act-38 (let ((sc15 (Prelude-not incase))) (cond ((equal? sc15 0) (let ((act-38 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Resolving default hints") eta-0))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((act-39 (Unify-Core-solveConstraintsAfter arg-2 arg-4 e-8 solvemode (vector 1 ) eta-0))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (Unify-Core-solveConstraintsAfter arg-2 arg-4 e-8 solvemode (vector 3 ) eta-0)))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc15 1))) (let ((act-39 (UnifyState-Core-dumpConstraints arg-4 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 0)))) 1 eta-0))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-40 (let ((act-40 (unbox arg-2))) (vector 1 act-40)))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc17 1))) (let ((act-41 (let ((sc18 inPE)) (cond ((equal? sc18 0) (Normalise-Core-normaliseHoles arg-1 e-21 arg-9 e-2 eta-0)) (else (Normalise-Core-normaliseArgHoles arg-1 e-21 arg-9 e-2 eta-0)))))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc18 1))) (let ((act-42 (let ((_-0 (vector 0 e-2 e-3))) (let ((sc19 arg-6)) (case (vector-ref sc19 0) ((1) (let ((act-42 (let ((sc20 (Prelude-not incase))) (cond ((equal? sc20 0) (UnifyState-Core-checkUserHoles arg-4 arg-2 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc20 act-42)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (vector 1 e-22)))))) ((3) (let ((act-42 (let ((sc20 (Prelude-not incase))) (cond ((equal? sc20 0) (UnifyState-Core-checkUserHoles arg-4 arg-2 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc20 act-42)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (vector 1 e-22))))))(else ((Elab-TTImp-case--12424-8876 arg-0 arg-1 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 incase inPE inTrans e-5 e-6 olddelayed e-7 e-8 e-9 e-10 rigc e-2 e-3 _-0 solvemode e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 (Prelude-not incase)) eta-0))))))) (let ((sc19 act-42)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (vector 0 e-4))) (else (let ((e-23 (vector-ref sc19 1))) (let ((act-43 (Elab-TTImp-normaliseHoleTypes arg-2 arg-4 eta-0))) (let ((sc20 act-43)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (let ((act-44 (let ((sc21 (Prelude-not incase))) (cond ((equal? sc21 0) (let ((act-44 (UnifyState-Core-getHoles arg-4 eta-0))) (let ((sc22 act-44)) (case (vector-ref sc22 0) ((0) (let ((e-4 (vector-ref sc22 1))) (vector 0 e-4))) (else (let ((e-25 (vector-ref sc22 1))) (UnifyState-Core-restoreHoles arg-4 (Elab-TTImp-n--11231-7563-addHoles arg-0 arg-1 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (IntMap-Data-empty 'erased) e-25 (IntMap-Data-toList 'erased e-5)) eta-0))))))) (else (vector 1 (vector 0 ))))))) (let ((sc21 act-44)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (vector 0 e-4))) (else (let ((act-45 (let ((act-45 (unbox e-10))) (vector 1 act-45)))) (let ((sc22 act-45)) (case (vector-ref sc22 0) ((0) (let ((e-4 (vector-ref sc22 1))) (vector 0 e-4))) (else (let ((e-26 (vector-ref sc22 1))) (let ((act-46 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Elab-TTImp-addHoleToSave arg-2 eta-1 eta-2))) ((NameMap-Data-keys 'erased) (let ((sc23 e-26)) (let ((e-28 (vector-ref sc23 12))) e-28)))) eta-0))) (let ((sc23 act-46)) (case (vector-ref sc23 0) ((0) (let ((e-4 (vector-ref sc23 1))) (vector 0 e-4))) (else (let ((sc24 arg-6)) (case (vector-ref sc24 0) ((1) (let ((vs (Elab-TTImp-findPLetRenames arg-1 e-23))) (let ((ret (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-23))) (let ((act-47 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc25 act-47)) (case (vector-ref sc25 0) ((0) (let ((e-4 (vector-ref sc25 1))) (vector 0 e-4))) (else (let ((e-28 (vector-ref sc25 1))) (vector 1 (vector 0 ret (Normalise-Core-gnf arg-1 arg-9 (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-28))))))))))))(else (let ((act-47 (UnifyState-Core-dumpConstraints arg-4 arg-2 (+ 1 (+ 1 0)) 1 eta-0))) (let ((sc24 act-47)) (case (vector-ref sc24 0) ((0) (let ((e-4 (vector-ref sc24 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-23 e-3))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (define Elab-TTImp-elabTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (Elab-TTImp-elabTermSub arg-0 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-8 (vector 0 ) arg-9 arg-10))) -(define Elab-TTImp-doPLetRenames (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((4) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((b (vector 4 e-6 e-7 e-8))) (Elab-TTImp-case--10768-7125 arg-0 e-6 e-8 e-7 e-2 e-4 b e-1 arg-2 arg-1 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-2 arg-2)))))))(else (Elab-TTImp-case--10768-7185 arg-0 e-2 e-4 e-3 e-1 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-2 arg-1))))))))))(else arg-3))))) -(define Elab-TTImp-checkTermSub (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((act-24 (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (Context-Core-branch arg-2 ext-0))(else (let ((act-24 (unbox arg-2))) (vector 1 act-24))))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-3))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Core-Core-catch_Catchable__Core_Error 'erased (Elab-TTImp-elabTermSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (vector 1 arg-13)) (lambda (err) (let ((sc3 err)) (case (vector-ref sc3 0) ((27) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-27 (let ((act-27 (set-box! arg-2 e-5))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-28 (let ((act-28 (set-box! arg-4 e-6))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-29 (let ((act-29 (set-box! arg-3 e-7))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 ((Elab-TTImp-n--13215-9240-bindImps arg-0 arg-1 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 e-0 e-1 e-2 e-3 arg-12) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) ((Elab-TTImp-elabTermSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-11 (vector 1 arg-13)) eta-0))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased err eta-0)))))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Builtin-fst 'erased 'erased e-8)))))))))))))))))))))))) +(define Elab-TTImp-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--10820-7194 arg-0 e-6 e-8 e-7 e-2 e-4 b e-1 arg-2 arg-1 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-2 arg-2)))))))(else (Elab-TTImp-case--10820-7254 arg-0 e-2 e-4 e-3 e-1 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-2 arg-1))))))))))(else arg-3))))) +(define Elab-TTImp-checkTermSub (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((act-24 (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (Context-Core-branch arg-2 ext-0))(else (let ((act-24 (unbox arg-2))) (vector 1 act-24))))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-3))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Core-Core-catch_Catchable__Core_Error 'erased (Elab-TTImp-elabTermSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (vector 1 arg-13)) (lambda (err) (let ((sc3 err)) (case (vector-ref sc3 0) ((27) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-27 (let ((act-27 (set-box! arg-2 e-5))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-28 (let ((act-28 (set-box! arg-4 e-6))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-29 (let ((act-29 (set-box! arg-3 e-7))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 ((Elab-TTImp-n--13267-9309-bindImps arg-0 arg-1 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 e-0 e-1 e-2 e-3 arg-12) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) ((Elab-TTImp-elabTermSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-11 (vector 1 arg-13)) eta-0))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased err eta-0)))))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Builtin-fst 'erased 'erased e-8)))))))))))))))))))))))) (define Elab-TTImp-checkTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (Elab-TTImp-checkTermSub arg-0 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-8 (vector 0 ) arg-9 arg-10 ext-0))) -(define Elab-TTImp-addHoleToSave (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-lookupTyExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((ms (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-1)))) (let ((act-26 (Context-Core-addToSave arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addToSave arg-0 eta-0 eta-1))) ms) ext-0)))))))) (else (vector 1 (vector 0 ))))))))))))))))) -(define Term-Elab-TTImp-case--10262-13661 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (Check-Elab-TTImp-checkImp arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-13 arg-1))(else (lambda (eta-0) (let ((act-24 ((Term-Elab-TTImp-insertImpLam 'erased arg-10 arg-8 arg-3 arg-13 arg-1) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Check-Elab-TTImp-checkImp arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 e-5 arg-1) eta-0)))))))))))) -(define Term-Elab-TTImp-case--13989-13562 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-13)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (vector 0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (StringMap-Data-mergeLeft 'erased arg-14 (let ((sc1 arg-13)) (let ((e-14 (vector-ref sc1 13))) e-14))))))))))))))))))) -(define Term-Elab-TTImp-case--13989-13505 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (vector 0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (let ((sc1 arg-13)) (let ((e-14 (vector-ref sc1 13))) e-14)))))))))))))))))) -(define Term-Elab-TTImp-case--14801-13290 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-15 arg-13) eta-0))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc2 eta-1)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (StringMap-Data-insert 'erased arg-16 e-2 e-5))))))) (Term-Elab-TTImp-n--13989-13181-resolveNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-15 arg-14) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-18)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-18)) eta-0))))))) -(define Term-Elab-TTImp-case--14787-13195 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "non-UN in \"with\" LHS: " (Name-Core-show_Show__Name arg-13))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtName arg-13 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-15 arg-13) eta-0)) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc5 eta-1)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (vector 1 (StringMap-Data-insert 'erased e-2 e-4 e-7))))))) (Term-Elab-TTImp-n--13989-13181-resolveNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-15 arg-14) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))))))) -(define Term-Elab-TTImp-case--13989-12951 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Check-Elab-TTImp-checkExp arg-3 arg-0 arg-10 arg-9 arg-8 arg-7 arg-5 arg-2 e-2 (Normalise-Core-gnf arg-3 arg-5 e-3) arg-4)))))) -(define Term-Elab-TTImp-case--13989-12462 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "arg" eta-0))) ((0) (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "impArg" eta-0))) ((2) (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "conArg" eta-0))) (else (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "defArg" eta-0))))))) -(define Term-Elab-TTImp-case--13355-12364 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-5 arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-5) eta-0)))))))))))) -(define Term-Elab-TTImp-case--13353-12090 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 arg-8)))))))) ((8) (lambda (eta-0) (vector 1 (vector 0 )))) ((3) (let ((e-11 (vector-ref sc0 3))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 arg-8))))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-8)))))))) -(define Term-Elab-TTImp-case--13353-12013 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 arg-11 arg-8 (vector 2 ) (vector 1 arg-13) (vector 31 arg-11 1) e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Term-Elab-TTImp-case--13353-11916 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 arg-11 arg-8 (vector 0 ) (vector 1 arg-13) (vector 31 arg-11 1) e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Term-Elab-TTImp-n--13989-13181-resolveNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (StringMap-Data-empty 'erased)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Term-Elab-TTImp-case--14787-13195 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-3 arg-13 (Name-Core-userNameRoot e-2))))))))) -(define Term-Elab-TTImp-n--13341-11828-bindLamTm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((2) (let ((e-13 (vector-ref sc0 3))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-22 (vector-ref sc2 3))) (let ((sc3 e-22)) (case (vector-ref sc3 0) ((2) (let ((e-26 (vector-ref sc3 2))) (let ((sc4 e-26)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 1 arg-7))))(else (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (let ((sc3 arg-8)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))) ((2) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-32 (vector-ref sc2 3))) (let ((sc3 e-32)) (case (vector-ref sc3 0) ((2) (let ((e-36 (vector-ref sc3 2))) (let ((sc4 e-36)) (case (vector-ref sc4 0) ((2) (lambda (eta-0) (vector 1 (vector 1 arg-7))))(else (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (let ((sc3 arg-8)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8)))))))))(else (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-10 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-10 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8)))))))))) -(define Term-Elab-TTImp-n--13341-11829-bindLamNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((e-13 (vector-ref sc0 3))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-22 (vector-ref sc2 3))) (let ((sc3 e-22)) (case (vector-ref sc3 0) ((2) (let ((e-26 (vector-ref sc3 2))) (let ((sc4 e-26)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 arg-6)))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc8 1))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc8 1))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))) ((2) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-32 (vector-ref sc2 3))) (let ((sc3 e-32)) (case (vector-ref sc3 0) ((2) (let ((e-36 (vector-ref sc3 2))) (let ((sc4 e-36)) (case (vector-ref sc4 0) ((2) (lambda (eta-0) (vector 1 arg-6)))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc8 1))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc8 1))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-17 (vector-ref sc7 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc7 1))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-17 (vector-ref sc7 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc7 1))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-11)))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-11))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))) -(define Term-Elab-TTImp-n--13341-11830-bindLam (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-7) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-6 e-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 e-1))) (else (let ((act-26 ((Normalise-Core-getNF 'erased arg-5 arg-7) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-7) ext-0))))))))))))))))))))) -(define Term-Elab-TTImp-insertImpLam (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Term-Elab-TTImp-n--13341-11830-bindLam 'erased e-1 arg-4 arg-3 arg-2 arg-1 arg-4 e-1 eta-0))))(else (lambda (eta-0) (vector 1 arg-4))))))) -(define Term-Elab-TTImp-checkTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (App-Elab-TTImp-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-0 (vector 0 e-0 e-1) (vector 0 ) (vector 0 ) arg-10)))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (UnifyState-Core-genVarName arg-1 arg-3 "arg" eta-0)) ((0) (UnifyState-Core-genVarName arg-1 arg-3 "impArg" eta-0)) ((2) (UnifyState-Core-genVarName arg-1 arg-3 "conArg" eta-0)) (else (UnifyState-Core-genVarName arg-1 arg-3 "defArg" eta-0)))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc2 1))) ((Binders-Elab-TTImp-checkPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 e-4 e-8 e-6 e-7 arg-10) eta-0)))))))) (else (let ((e-99 (vector-ref sc1 1))) (let ((sc2 e-99)) (case (vector-ref sc2 0) ((1) (let ((e-100 (vector-ref sc2 1))) (let ((sc3 e-100)) (cond ((equal? sc3 "_") (Term-Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-2 e-3 e-4 (vector 0 ) e-6 e-7) arg-10))(else (Binders-Elab-TTImp-checkPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 e-4 e-99 e-6 e-7 arg-10))))))(else (Binders-Elab-TTImp-checkPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 e-4 e-99 e-6 e-7 arg-10))))))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((1) (let ((e-102 (vector-ref sc1 1))) (Binders-Elab-TTImp-checkLambda arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8 e-9 e-10 e-102 e-12 e-13 arg-10))) (else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-1 arg-3 "_" eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Binders-Elab-TTImp-checkLambda arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8 e-9 e-10 e-5 e-12 e-13 arg-10) eta-0))))))))))))))))) ((3) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (Binders-Elab-TTImp-checkLet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-14 e-15 e-16 e-17 e-18 e-19 arg-10)))))))) ((4) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (let ((e-23 (vector-ref sc0 4))) (lambda (eta-0) (Case-Elab-TTImp-checkCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-20 e-21 e-22 e-23 arg-10 eta-0))))))) ((5) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (Local-Elab-TTImp-checkLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-24 e-25 e-26 arg-10 eta-0)))))) ((6) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((e-30 (vector-ref sc0 4))) (let ((e-31 (vector-ref sc0 5))) (lambda (eta-0) (Local-Elab-TTImp-checkCaseLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-27 e-28 e-29 e-30 e-31 arg-10 eta-0)))))))) ((7) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (lambda (eta-0) (Record-Elab-TTImp-checkUpdate arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-32 e-33 e-34 arg-10 eta-0)))))) ((8) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (App-Elab-TTImp-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-35 e-36 (vector 1 e-37 (vector 0 )) (vector 0 ) arg-10))))) ((10) (let ((e-38 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-38 "with application not implemented yet") eta-0)))) ((9) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (let ((e-44 (vector-ref sc0 4))) (App-Elab-TTImp-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-41 e-42 (vector 0 ) (vector 1 (vector 0 e-43 e-44) (vector 0 )) arg-10)))))) ((11) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((1) (let ((e-105 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (UnifyState-Core-genName arg-1 arg-3 "search" eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-105) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Check-Elab-TTImp-searchVar arg-0 arg-1 arg-3 e-45 arg-5 e-46 (vector 9 (let ((sc5 e-5)) (let ((e-2 (vector-ref sc5 2))) e-2))) arg-8 e-6 e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (vector 0 e-8 e-105))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (UnifyState-Core-genName arg-1 arg-3 "searchTy" eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-45 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-6 (vector 11 e-45) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "search" eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (Check-Elab-TTImp-searchVar arg-0 arg-1 arg-3 e-45 arg-5 e-46 (vector 9 (let ((sc6 e-5)) (let ((e-2 (vector-ref sc6 2))) e-2))) arg-8 e-8 e-7 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (vector 1 (vector 0 e-9 (Normalise-Core-gnf arg-0 arg-8 e-7))))))))))))))))))))))))))))))))))) ((12) (let ((e-47 (vector-ref sc0 1))) (let ((e-48 (vector-ref sc0 2))) (let ((e-49 (vector-ref sc0 3))) (Ambiguity-Elab-TTImp-checkAlternative arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-47 e-48 e-49 arg-10))))) ((13) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (Rewrite-Elab-TTImp-checkRewrite arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-50 e-51 e-52 arg-10))))) ((14) (let ((e-54 (vector-ref sc0 2))) (Term-Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-54 arg-10))) ((15) (let ((e-55 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 2))) (let ((e-57 (vector-ref sc0 3))) (lambda (eta-0) (ImplicitBind-Elab-TTImp-checkBindHere arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-55 e-56 e-57 arg-10 eta-0)))))) ((16) (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (ImplicitBind-Elab-TTImp-checkBindVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-58 e-59 arg-10)))) ((17) (let ((e-60 (vector-ref sc0 1))) (let ((e-61 (vector-ref sc0 2))) (let ((e-62 (vector-ref sc0 3))) (let ((e-63 (vector-ref sc0 4))) (As-Elab-TTImp-checkAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-60 e-61 e-62 e-63 arg-10)))))) ((18) (let ((e-64 (vector-ref sc0 1))) (let ((e-65 (vector-ref sc0 2))) (let ((e-66 (vector-ref sc0 3))) (Dot-Elab-TTImp-checkDot arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-64 e-65 e-66 arg-10))))) ((19) (let ((e-67 (vector-ref sc0 1))) (let ((e-68 (vector-ref sc0 2))) (let ((e-69 (vector-ref sc0 3))) (lambda (eta-0) (Lazy-Elab-TTImp-checkDelayed arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-67 e-68 e-69 arg-10 eta-0)))))) ((20) (let ((e-70 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 2))) (lambda (eta-0) (Lazy-Elab-TTImp-checkDelay arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-70 e-71 arg-10 eta-0))))) ((21) (let ((e-72 (vector-ref sc0 1))) (let ((e-73 (vector-ref sc0 2))) (lambda (eta-0) (Lazy-Elab-TTImp-checkForce arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-72 e-73 arg-10 eta-0))))) ((22) (let ((e-74 (vector-ref sc0 1))) (let ((e-75 (vector-ref sc0 2))) (lambda (eta-0) (Quote-Elab-TTImp-checkQuote arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-74 e-75 arg-10 eta-0))))) ((23) (let ((e-76 (vector-ref sc0 1))) (let ((e-77 (vector-ref sc0 2))) (lambda (eta-0) (Quote-Elab-TTImp-checkQuoteName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-76 e-77 arg-10 eta-0))))) ((24) (let ((e-78 (vector-ref sc0 1))) (let ((e-79 (vector-ref sc0 2))) (lambda (eta-0) (Quote-Elab-TTImp-checkQuoteDecl arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-78 e-79 arg-10 eta-0))))) ((25) (let ((e-80 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-80 "Can't escape outside a quoted term") eta-0)))) ((26) (let ((e-82 (vector-ref sc0 1))) (let ((e-83 (vector-ref sc0 2))) (lambda (eta-0) (RunElab-Elab-TTImp-checkRunElab arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-82 e-83 arg-10 eta-0))))) ((27) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (Term-Elab-TTImp-case--13989-12951 arg-1 e-85 e-84 arg-0 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (Prim-Elab-TTImp-checkPrim 'erased e-84 e-85))))) ((28) (let ((e-86 (vector-ref sc0 1))) (Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 e-86 (vector 11 e-86) (Normalise-Core-gType 'erased e-86) arg-10))) ((29) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (Hole-Elab-TTImp-checkHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-87 e-88 arg-10)))) ((30) (let ((e-90 (vector-ref sc0 2))) (let ((e-91 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Context-Core-getSession arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((lvl (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((act-25 (Context-Core-setLogLevel arg-1 e-90 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-91 arg-10) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-setLogLevel arg-1 lvl eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 e-7)))))))))))))))))))))))) ((31) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((1) (let ((e-108 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-1 arg-3 "_" eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-108) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-92 arg-5 arg-8 e-5 e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (let ((sc5 (Prelude-C-38C-38 e-93 (lambda () (let ((sc6 arg-6)) (let ((e-3 (vector-ref sc6 4))) e-3)))))) (cond ((equal? sc5 0) (let ((act-27 (let ((act-27 (unbox arg-4))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-28 ((Normalise-Core-getTerm 'erased e-108) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-29 (set-box! arg-4 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-5 arg-5 (vector 1 ) arg-8 e-7 e-9 e-8)))) (vector 1 act-29))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 (vector 0 e-7 e-108)))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-1 arg-3 "implicit_type" eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-92 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-5 (vector 11 e-92) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "_" eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-92 arg-5 arg-8 e-7 e-6 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (let ((sc6 (Prelude-C-38C-38 e-93 (lambda () (let ((sc7 arg-6)) (let ((e-3 (vector-ref sc7 4))) e-3)))))) (cond ((equal? sc6 0) (let ((act-28 (let ((act-28 (unbox arg-4))) (vector 1 act-28)))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-29 (set-box! arg-4 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-7 arg-5 (vector 1 ) arg-8 e-8 e-6 e-9)))) (vector 1 act-29)))))))) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (vector 1 (vector 0 e-8 (Normalise-Core-gnf arg-0 arg-8 e-6)))))))))))))))))))))))))))))))))) (else (let ((e-94 (vector-ref sc0 1))) (let ((e-95 (vector-ref sc0 2))) (let ((e-96 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Term-Elab-TTImp-n--13989-13181-resolveNames arg-0 e-96 e-95 e-94 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-94 e-95) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (set-box! arg-4 (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((e-15 (vector-ref sc3 5))) (let ((e-14 (vector-ref sc3 6))) (let ((e-7 (vector-ref sc3 7))) (let ((e-8 (vector-ref sc3 8))) (let ((e-9 (vector-ref sc3 9))) (let ((e-10 (vector-ref sc3 10))) (let ((e-11 (vector-ref sc3 11))) (let ((e-12 (vector-ref sc3 12))) (vector 0 e-1 e-2 e-3 e-4 e-15 e-14 e-7 e-8 e-9 e-10 e-11 e-12 (StringMap-Data-mergeLeft 'erased e-6 (let ((sc4 e-5)) (let ((e-16 (vector-ref sc4 13))) e-16)))))))))))))))))))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-96 arg-10) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (unbox arg-4))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (let ((act-29 (set-box! arg-4 (let ((sc6 e-9)) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((e-3 (vector-ref sc6 3))) (let ((e-4 (vector-ref sc6 4))) (let ((e-18 (vector-ref sc6 5))) (let ((e-17 (vector-ref sc6 6))) (let ((e-16 (vector-ref sc6 7))) (let ((e-15 (vector-ref sc6 8))) (let ((e-14 (vector-ref sc6 9))) (let ((e-10 (vector-ref sc6 10))) (let ((e-11 (vector-ref sc6 11))) (let ((e-12 (vector-ref sc6 12))) (vector 0 e-1 e-2 e-3 e-4 e-18 e-17 e-16 e-15 e-14 e-10 e-11 e-12 (let ((sc7 e-5)) (let ((e-19 (vector-ref sc7 13))) e-19))))))))))))))))))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (vector 1 e-8)))))))))))))))))))))))))))))))))))))) +(define 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--10313-13669 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (Check-Elab-TTImp-checkImp arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-13 arg-1))(else (lambda (eta-0) (let ((act-24 ((Term-Elab-TTImp-insertImpLam 'erased arg-10 arg-8 arg-3 arg-13 arg-1) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Check-Elab-TTImp-checkImp arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 e-5 arg-1) eta-0)))))))))))) +(define Term-Elab-TTImp-case--14049-13570 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-13)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (vector 0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (StringMap-Data-mergeLeft 'erased arg-14 (let ((sc1 arg-13)) (let ((e-14 (vector-ref sc1 13))) e-14))))))))))))))))))) +(define Term-Elab-TTImp-case--14049-13513 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (vector 0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (let ((sc1 arg-13)) (let ((e-14 (vector-ref sc1 13))) e-14)))))))))))))))))) +(define Term-Elab-TTImp-case--14861-13298 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-15 arg-13) eta-0))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc2 eta-1)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (StringMap-Data-insert 'erased arg-16 e-2 e-5))))))) (Term-Elab-TTImp-n--14049-13189-resolveNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-15 arg-14) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-18)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-18)) eta-0))))))) +(define Term-Elab-TTImp-case--14847-13203 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "non-UN in \"with\" LHS: " (Name-Core-show_Show__Name arg-13))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtName arg-13 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-15 arg-13) eta-0)) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc5 eta-1)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (vector 1 (StringMap-Data-insert 'erased e-2 e-4 e-7))))))) (Term-Elab-TTImp-n--14049-13189-resolveNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-15 arg-14) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))))))) +(define Term-Elab-TTImp-case--14049-12959 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Check-Elab-TTImp-checkExp arg-3 arg-0 arg-10 arg-9 arg-8 arg-7 arg-5 arg-2 e-2 (Normalise-Core-gnf arg-3 arg-5 e-3) arg-4)))))) +(define Term-Elab-TTImp-case--14049-12470 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "arg" eta-0))) ((0) (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "impArg" eta-0))) ((2) (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "conArg" eta-0))) (else (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "defArg" eta-0))))))) +(define Term-Elab-TTImp-case--13415-12372 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-5 arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Term-Elab-TTImp-n--13401-11837-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-5) eta-0)))))))))))) +(define Term-Elab-TTImp-case--13413-12098 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 arg-8)))))))) ((8) (lambda (eta-0) (vector 1 (vector 0 )))) ((3) (let ((e-11 (vector-ref sc0 3))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 arg-8))))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-8)))))))) +(define Term-Elab-TTImp-case--13413-12021 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 arg-11 arg-8 (vector 2 ) (vector 1 arg-13) (vector 31 arg-11 1) e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Term-Elab-TTImp-case--13413-11924 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 arg-11 arg-8 (vector 0 ) (vector 1 arg-13) (vector 31 arg-11 1) e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Term-Elab-TTImp-n--14049-13189-resolveNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (StringMap-Data-empty 'erased)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Term-Elab-TTImp-case--14847-13203 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-3 arg-13 (Name-Core-userNameRoot e-2))))))))) +(define Term-Elab-TTImp-n--13401-11836-bindLamTm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((2) (let ((e-13 (vector-ref sc0 3))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-22 (vector-ref sc2 3))) (let ((sc3 e-22)) (case (vector-ref sc3 0) ((2) (let ((e-26 (vector-ref sc3 2))) (let ((sc4 e-26)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 1 arg-7))))(else (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Term-Elab-TTImp-n--13401-11836-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Term-Elab-TTImp-n--13401-11836-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--13413-12098 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--13413-12098 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--13413-12098 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (let ((sc3 arg-8)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Term-Elab-TTImp-n--13401-11836-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Term-Elab-TTImp-n--13401-11836-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--13413-12098 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--13413-12098 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--13413-12098 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Term-Elab-TTImp-n--13401-11836-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Term-Elab-TTImp-n--13401-11836-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--13413-12098 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--13413-12098 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--13413-12098 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))) ((2) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-32 (vector-ref sc2 3))) (let ((sc3 e-32)) (case (vector-ref sc3 0) ((2) (let ((e-36 (vector-ref sc3 2))) (let ((sc4 e-36)) (case (vector-ref sc4 0) ((2) (lambda (eta-0) (vector 1 (vector 1 arg-7))))(else (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Term-Elab-TTImp-n--13401-11836-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Term-Elab-TTImp-n--13401-11836-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--13413-12098 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--13413-12098 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--13413-12098 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (let ((sc3 arg-8)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Term-Elab-TTImp-n--13401-11836-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Term-Elab-TTImp-n--13401-11836-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--13413-12098 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--13413-12098 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--13413-12098 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Term-Elab-TTImp-n--13401-11836-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Term-Elab-TTImp-n--13401-11836-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--13413-12098 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--13413-12098 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--13413-12098 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8)))))))))(else (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Term-Elab-TTImp-n--13401-11836-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Term-Elab-TTImp-n--13401-11836-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--13413-12098 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--13413-12098 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--13413-12098 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Term-Elab-TTImp-n--13401-11836-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-10 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Term-Elab-TTImp-n--13401-11836-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-10 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--13413-12098 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--13413-12098 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--13413-12098 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8)))))))))) +(define Term-Elab-TTImp-n--13401-11837-bindLamNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((e-13 (vector-ref sc0 3))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-22 (vector-ref sc2 3))) (let ((sc3 e-22)) (case (vector-ref sc3 0) ((2) (let ((e-26 (vector-ref sc3 2))) (let ((sc4 e-26)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 arg-6)))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-27 ((Term-Elab-TTImp-n--13401-11837-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-27 ((Term-Elab-TTImp-n--13401-11837-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-27 ((Term-Elab-TTImp-n--13401-11837-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-27 ((Term-Elab-TTImp-n--13401-11837-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-27 ((Term-Elab-TTImp-n--13401-11837-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc8 1))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-27 ((Term-Elab-TTImp-n--13401-11837-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc8 1))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))) ((2) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-32 (vector-ref sc2 3))) (let ((sc3 e-32)) (case (vector-ref sc3 0) ((2) (let ((e-36 (vector-ref sc3 2))) (let ((sc4 e-36)) (case (vector-ref sc4 0) ((2) (lambda (eta-0) (vector 1 arg-6)))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-27 ((Term-Elab-TTImp-n--13401-11837-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-27 ((Term-Elab-TTImp-n--13401-11837-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-27 ((Term-Elab-TTImp-n--13401-11837-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-27 ((Term-Elab-TTImp-n--13401-11837-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-27 ((Term-Elab-TTImp-n--13401-11837-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc8 1))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-27 ((Term-Elab-TTImp-n--13401-11837-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc8 1))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-27 ((Term-Elab-TTImp-n--13401-11837-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-17 (vector-ref sc7 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc7 1))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-27 ((Term-Elab-TTImp-n--13401-11837-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-17 (vector-ref sc7 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc7 1))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-27 ((Term-Elab-TTImp-n--13401-11837-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-11)))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-27 ((Term-Elab-TTImp-n--13401-11837-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-11))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))) +(define Term-Elab-TTImp-n--13401-11838-bindLam (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-7) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Term-Elab-TTImp-n--13401-11836-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-6 e-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 e-1))) (else (let ((act-26 ((Normalise-Core-getNF 'erased arg-5 arg-7) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((Term-Elab-TTImp-n--13401-11837-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-7) ext-0))))))))))))))))))))) +(define Term-Elab-TTImp-insertImpLam (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Term-Elab-TTImp-n--13401-11838-bindLam 'erased e-1 arg-4 arg-3 arg-2 arg-1 arg-4 e-1 eta-0))))(else (lambda (eta-0) (vector 1 arg-4))))))) +(define Term-Elab-TTImp-checkTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (App-Elab-TTImp-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-0 (vector 0 e-0 e-1) (vector 0 ) (vector 0 ) arg-10)))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (UnifyState-Core-genVarName arg-1 arg-3 "arg" eta-0)) ((0) (UnifyState-Core-genVarName arg-1 arg-3 "impArg" eta-0)) ((2) (UnifyState-Core-genVarName arg-1 arg-3 "conArg" eta-0)) (else (UnifyState-Core-genVarName arg-1 arg-3 "defArg" eta-0)))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc2 1))) ((Binders-Elab-TTImp-checkPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 e-4 e-8 e-6 e-7 arg-10) eta-0)))))))) (else (let ((e-99 (vector-ref sc1 1))) (let ((sc2 e-99)) (case (vector-ref sc2 0) ((1) (let ((e-100 (vector-ref sc2 1))) (let ((sc3 e-100)) (cond ((equal? sc3 "_") (Term-Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-2 e-3 e-4 (vector 0 ) e-6 e-7) arg-10))(else (Binders-Elab-TTImp-checkPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 e-4 e-99 e-6 e-7 arg-10))))))(else (Binders-Elab-TTImp-checkPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 e-4 e-99 e-6 e-7 arg-10))))))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((1) (let ((e-102 (vector-ref sc1 1))) (Binders-Elab-TTImp-checkLambda arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8 e-9 e-10 e-102 e-12 e-13 arg-10))) (else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-1 arg-3 "_" eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Binders-Elab-TTImp-checkLambda arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8 e-9 e-10 e-5 e-12 e-13 arg-10) eta-0))))))))))))))))) ((3) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (Binders-Elab-TTImp-checkLet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-14 e-15 e-16 e-17 e-18 e-19 arg-10)))))))) ((4) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (let ((e-23 (vector-ref sc0 4))) (lambda (eta-0) (Case-Elab-TTImp-checkCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-20 e-21 e-22 e-23 arg-10 eta-0))))))) ((5) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (Local-Elab-TTImp-checkLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-24 e-25 e-26 arg-10 eta-0)))))) ((6) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((e-30 (vector-ref sc0 4))) (let ((e-31 (vector-ref sc0 5))) (lambda (eta-0) (Local-Elab-TTImp-checkCaseLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-27 e-28 e-29 e-30 e-31 arg-10 eta-0)))))))) ((7) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (lambda (eta-0) (Record-Elab-TTImp-checkUpdate arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-32 e-33 e-34 arg-10 eta-0)))))) ((8) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (App-Elab-TTImp-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-35 e-36 (vector 1 e-37 (vector 0 )) (vector 0 ) arg-10))))) ((10) (let ((e-38 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-38 "with application not implemented yet") eta-0)))) ((9) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (let ((e-44 (vector-ref sc0 4))) (App-Elab-TTImp-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-41 e-42 (vector 0 ) (vector 1 (vector 0 e-43 e-44) (vector 0 )) arg-10)))))) ((11) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((1) (let ((e-105 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (UnifyState-Core-genName arg-1 arg-3 "search" eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-105) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Check-Elab-TTImp-searchVar arg-0 arg-1 arg-3 e-45 arg-5 e-46 (vector 9 (let ((sc5 e-5)) (let ((e-2 (vector-ref sc5 2))) e-2))) arg-8 e-6 e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (vector 0 e-8 e-105))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (UnifyState-Core-genName arg-1 arg-3 "searchTy" eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-45 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-6 (vector 11 e-45) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "search" eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (Check-Elab-TTImp-searchVar arg-0 arg-1 arg-3 e-45 arg-5 e-46 (vector 9 (let ((sc6 e-5)) (let ((e-2 (vector-ref sc6 2))) e-2))) arg-8 e-8 e-7 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (vector 1 (vector 0 e-9 (Normalise-Core-gnf arg-0 arg-8 e-7))))))))))))))))))))))))))))))))))) ((12) (let ((e-47 (vector-ref sc0 1))) (let ((e-48 (vector-ref sc0 2))) (let ((e-49 (vector-ref sc0 3))) (Ambiguity-Elab-TTImp-checkAlternative arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-47 e-48 e-49 arg-10))))) ((13) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (Rewrite-Elab-TTImp-checkRewrite arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-50 e-51 e-52 arg-10))))) ((14) (let ((e-54 (vector-ref sc0 2))) (Term-Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-54 arg-10))) ((15) (let ((e-55 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 2))) (let ((e-57 (vector-ref sc0 3))) (lambda (eta-0) (ImplicitBind-Elab-TTImp-checkBindHere arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-55 e-56 e-57 arg-10 eta-0)))))) ((16) (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (ImplicitBind-Elab-TTImp-checkBindVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-58 e-59 arg-10)))) ((17) (let ((e-60 (vector-ref sc0 1))) (let ((e-61 (vector-ref sc0 2))) (let ((e-62 (vector-ref sc0 3))) (let ((e-63 (vector-ref sc0 4))) (As-Elab-TTImp-checkAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-60 e-61 e-62 e-63 arg-10)))))) ((18) (let ((e-64 (vector-ref sc0 1))) (let ((e-65 (vector-ref sc0 2))) (let ((e-66 (vector-ref sc0 3))) (Dot-Elab-TTImp-checkDot arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-64 e-65 e-66 arg-10))))) ((19) (let ((e-67 (vector-ref sc0 1))) (let ((e-68 (vector-ref sc0 2))) (let ((e-69 (vector-ref sc0 3))) (lambda (eta-0) (Lazy-Elab-TTImp-checkDelayed arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-67 e-68 e-69 arg-10 eta-0)))))) ((20) (let ((e-70 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 2))) (lambda (eta-0) (Lazy-Elab-TTImp-checkDelay arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-70 e-71 arg-10 eta-0))))) ((21) (let ((e-72 (vector-ref sc0 1))) (let ((e-73 (vector-ref sc0 2))) (lambda (eta-0) (Lazy-Elab-TTImp-checkForce arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-72 e-73 arg-10 eta-0))))) ((22) (let ((e-74 (vector-ref sc0 1))) (let ((e-75 (vector-ref sc0 2))) (lambda (eta-0) (Quote-Elab-TTImp-checkQuote arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-74 e-75 arg-10 eta-0))))) ((23) (let ((e-76 (vector-ref sc0 1))) (let ((e-77 (vector-ref sc0 2))) (lambda (eta-0) (Quote-Elab-TTImp-checkQuoteName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-76 e-77 arg-10 eta-0))))) ((24) (let ((e-78 (vector-ref sc0 1))) (let ((e-79 (vector-ref sc0 2))) (lambda (eta-0) (Quote-Elab-TTImp-checkQuoteDecl arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-78 e-79 arg-10 eta-0))))) ((25) (let ((e-80 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-80 "Can't escape outside a quoted term") eta-0)))) ((26) (let ((e-82 (vector-ref sc0 1))) (let ((e-83 (vector-ref sc0 2))) (lambda (eta-0) (RunElab-Elab-TTImp-checkRunElab arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-82 e-83 arg-10 eta-0))))) ((27) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (Term-Elab-TTImp-case--14049-12959 arg-1 e-85 e-84 arg-0 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (Prim-Elab-TTImp-checkPrim 'erased e-84 e-85))))) ((28) (let ((e-86 (vector-ref sc0 1))) (Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 e-86 (vector 11 e-86) (Normalise-Core-gType 'erased e-86) arg-10))) ((29) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (Hole-Elab-TTImp-checkHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-87 e-88 arg-10)))) ((30) (let ((e-90 (vector-ref sc0 2))) (let ((e-91 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Context-Core-getSession arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((lvl (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((act-25 (Context-Core-setLogLevel arg-1 e-90 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-91 arg-10) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-setLogLevel arg-1 lvl eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 e-7)))))))))))))))))))))))) ((31) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((1) (let ((e-108 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-1 arg-3 "_" eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-108) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-92 arg-5 arg-8 e-5 e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (let ((sc5 (Prelude-C-38C-38 e-93 (lambda () (let ((sc6 arg-6)) (let ((e-3 (vector-ref sc6 4))) e-3)))))) (cond ((equal? sc5 0) (let ((act-27 (let ((act-27 (unbox arg-4))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-28 ((Normalise-Core-getTerm 'erased e-108) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-29 (set-box! arg-4 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-5 arg-5 (vector 1 ) arg-8 e-7 e-9 e-8)))) (vector 1 act-29))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 (vector 0 e-7 e-108)))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-1 arg-3 "implicit_type" eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-92 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-5 (vector 11 e-92) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "_" eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-92 arg-5 arg-8 e-7 e-6 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (let ((sc6 (Prelude-C-38C-38 e-93 (lambda () (let ((sc7 arg-6)) (let ((e-3 (vector-ref sc7 4))) e-3)))))) (cond ((equal? sc6 0) (let ((act-28 (let ((act-28 (unbox arg-4))) (vector 1 act-28)))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-29 (set-box! arg-4 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-7 arg-5 (vector 1 ) arg-8 e-8 e-6 e-9)))) (vector 1 act-29)))))))) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (vector 1 (vector 0 e-8 (Normalise-Core-gnf arg-0 arg-8 e-6)))))))))))))))))))))))))))))))))) (else (let ((e-94 (vector-ref sc0 1))) (let ((e-95 (vector-ref sc0 2))) (let ((e-96 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Term-Elab-TTImp-n--14049-13189-resolveNames arg-0 e-96 e-95 e-94 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-94 e-95) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (set-box! arg-4 (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((e-15 (vector-ref sc3 5))) (let ((e-14 (vector-ref sc3 6))) (let ((e-7 (vector-ref sc3 7))) (let ((e-8 (vector-ref sc3 8))) (let ((e-9 (vector-ref sc3 9))) (let ((e-10 (vector-ref sc3 10))) (let ((e-11 (vector-ref sc3 11))) (let ((e-12 (vector-ref sc3 12))) (vector 0 e-1 e-2 e-3 e-4 e-15 e-14 e-7 e-8 e-9 e-10 e-11 e-12 (StringMap-Data-mergeLeft 'erased e-6 (let ((sc4 e-5)) (let ((e-16 (vector-ref sc4 13))) e-16)))))))))))))))))))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-96 arg-10) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (unbox arg-4))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (let ((act-29 (set-box! arg-4 (let ((sc6 e-9)) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((e-3 (vector-ref sc6 3))) (let ((e-4 (vector-ref sc6 4))) (let ((e-18 (vector-ref sc6 5))) (let ((e-17 (vector-ref sc6 6))) (let ((e-16 (vector-ref sc6 7))) (let ((e-15 (vector-ref sc6 8))) (let ((e-14 (vector-ref sc6 9))) (let ((e-10 (vector-ref sc6 10))) (let ((e-11 (vector-ref sc6 11))) (let ((e-12 (vector-ref sc6 12))) (vector 0 e-1 e-2 e-3 e-4 e-18 e-17 e-16 e-15 e-14 e-10 e-11 e-12 (let ((sc7 e-5)) (let ((e-19 (vector-ref sc7 13))) e-19))))))))))))))))))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (vector 1 e-8)))))))))))))))))))))))))))))))))))))) (define Check-Elab-TTImp-checkImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (Term-Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10))) -(define Check-Elab-TTImp-check (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((14) (let ((e-1 (vector-ref sc0 2))) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 arg-10))) ((3) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10)) ((5) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10)) ((7) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-4 (let ((sc2 arg-6)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-7 arg-8 arg-9 (vector 0 ) arg-9 arg-10) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((Term-Elab-TTImp-case--10262-13661 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0)))))))))))))))))))))) -(define Reflect-TTImp-case--11924-17186 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "IClaim") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-10) eta-0)))))))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) ((Reflect-Core-reify_Reify__Visibility arg-0 arg-7 e-13) eta-0)))))))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-17) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__FnOpt vars arg-3328 arg-3329)))) arg-0 arg-7 e-16) eta-0)))))))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-0))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) ((Reflect-TTImp-reify_Reify__ImpTy arg-0 arg-7 e-19) eta-0)))))))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (vector 1 (vector 0 e-7 e-10 e-13 e-16 e-19)))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "IData") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((1) (let ((e-27 (vector-ref sc5 1))) (let ((e-28 (vector-ref sc5 2))) (let ((sc6 e-28)) (case (vector-ref sc6 0) ((1) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-31)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-27) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__Visibility arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-30) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__ImpData arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 1 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "IDef") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((sc5 e-35)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 1))) (let ((e-38 (vector-ref sc5 2))) (let ((sc6 e-38)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 1))) (let ((e-41 (vector-ref sc6 2))) (let ((sc7 e-41)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-34) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-37) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-40) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__ImpClause vars arg-3328 arg-3329)))) arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 2 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "IParameters") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-44 (vector-ref sc4 1))) (let ((e-45 (vector-ref sc4 2))) (let ((sc5 e-45)) (case (vector-ref sc5 0) ((1) (let ((e-47 (vector-ref sc5 1))) (let ((e-48 (vector-ref sc5 2))) (let ((sc6 e-48)) (case (vector-ref sc6 0) ((1) (let ((e-50 (vector-ref sc6 1))) (let ((e-51 (vector-ref sc6 2))) (let ((sc7 e-51)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-44) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-47) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reify_Reify__Name eta-4 eta-5 eta-6)))) (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__RawImp vars arg-3328 arg-3329))))) eta-1 eta-2 eta-3)))) arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-50) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3328 arg-3329)))) arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 3 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "IRecord") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-54 (vector-ref sc4 1))) (let ((e-55 (vector-ref sc4 2))) (let ((sc5 e-55)) (case (vector-ref sc5 0) ((1) (let ((e-57 (vector-ref sc5 1))) (let ((e-58 (vector-ref sc5 2))) (let ((sc6 e-58)) (case (vector-ref sc6 0) ((1) (let ((e-60 (vector-ref sc6 1))) (let ((e-61 (vector-ref sc6 2))) (let ((sc7 e-61)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-54) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-57) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__Visibility arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-60) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__ImpRecord arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 4 e-7 (vector 0 ) e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "INamespace") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-64 (vector-ref sc4 1))) (let ((e-65 (vector-ref sc4 2))) (let ((sc5 e-65)) (case (vector-ref sc5 0) ((1) (let ((e-67 (vector-ref sc5 1))) (let ((e-68 (vector-ref sc5 2))) (let ((sc6 e-68)) (case (vector-ref sc6 0) ((1) (let ((e-70 (vector-ref sc6 1))) (let ((e-71 (vector-ref sc6 2))) (let ((sc7 e-71)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-64) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-67) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__String eta-1 eta-2 eta-3)))) arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-70) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3328 arg-3329)))) arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 5 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "ITransform") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-74 (vector-ref sc4 1))) (let ((e-75 (vector-ref sc4 2))) (let ((sc5 e-75)) (case (vector-ref sc5 0) ((1) (let ((e-77 (vector-ref sc5 1))) (let ((e-78 (vector-ref sc5 2))) (let ((sc6 e-78)) (case (vector-ref sc6 0) ((1) (let ((e-80 (vector-ref sc6 1))) (let ((e-81 (vector-ref sc6 2))) (let ((sc7 e-81)) (case (vector-ref sc7 0) ((1) (let ((e-83 (vector-ref sc7 1))) (let ((e-84 (vector-ref sc7 2))) (let ((sc8 e-84)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-74) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-77) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-80) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-83) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) (vector 1 (vector 6 e-7 e-8 e-9 e-10))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "ILog") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-87 (vector-ref sc4 1))) (let ((e-88 (vector-ref sc4 2))) (let ((sc5 e-88)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-87) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__Nat arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 9 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))) -(define Reflect-TTImp-case--11607-16871 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "PatClause") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-13) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (vector 1 (vector 0 e-7 e-10 e-13)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))) ((equal? sc3 "WithClause") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (case (vector-ref sc5 0) ((1) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 e-22)) (case (vector-ref sc6 0) ((1) (let ((e-24 (vector-ref sc6 1))) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((1) (let ((e-27 (vector-ref sc7 1))) (let ((e-28 (vector-ref sc7 2))) (let ((sc8 e-28)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-18) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-21) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-27) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__ImpClause vars arg-3328 arg-3329)))) arg-0 arg-7 e-10) eta-0)))))))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) (vector 1 (vector 1 e-7 e-8 e-9 (vector 0 ) e-10))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))) ((equal? sc3 "ImpossibleClause") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-31 (vector-ref sc4 1))) (let ((e-32 (vector-ref sc4 2))) (let ((sc5 e-32)) (case (vector-ref sc5 0) ((1) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((sc6 e-35)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-31) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-34) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 2 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))) -(define Reflect-TTImp-case--11390-16661 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "MkRecord") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-10) eta-0)))))))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reify_Reify__Name eta-4 eta-5 eta-6)))) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reify_Reify__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (Reflect-Core-reify_Reify__RigCount eta-7 eta-8 eta-9)))) (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (Reflect-Core-reify_Reify__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__RawImp vars arg-3328 arg-3329)))) eta-10 eta-11 eta-12)))) (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__RawImp vars arg-3328 arg-3329))))) eta-7 eta-8 eta-9))))) eta-4 eta-5 eta-6))))) eta-1 eta-2 eta-3)))) arg-0 arg-7 e-13) eta-0)))))))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-17) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-16) eta-0)))))))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-0))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__IField vars arg-3328 arg-3329)))) arg-0 arg-7 e-19) eta-0)))))))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (vector 1 (vector 0 e-7 e-10 e-13 e-16 e-19)))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))) -(define Reflect-TTImp-case--11198-16476 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "MkIField") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-10) eta-0)))))))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) ((Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__RawImp vars arg-3328 arg-3329)))) arg-0 arg-7 e-13) eta-0)))))))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-17) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-16) eta-0)))))))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-0))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-19) eta-0)))))))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (vector 1 (vector 0 e-7 e-10 e-13 e-16 e-19)))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))) -(define Reflect-TTImp-case--10926-16208 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "MkData") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-10) eta-0)))))))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-13) eta-0)))))))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-17) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__DataOpt vars arg-3328 arg-3329)))) arg-0 arg-7 e-16) eta-0)))))))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-0))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__ImpTy vars arg-3328 arg-3329)))) arg-0 arg-7 e-19) eta-0)))))))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (vector 1 (vector 0 e-7 e-10 e-13 e-16 e-19)))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0)))))) ((equal? sc3 "MkLater") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((1) (let ((e-27 (vector-ref sc5 1))) (let ((e-28 (vector-ref sc5 2))) (let ((sc6 e-28)) (case (vector-ref sc6 0) ((1) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-31)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-27) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-30) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 1 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))) -(define Reflect-TTImp-case--10678-15967 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "SearchBy") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 0 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0)))))) ((equal? sc3 "NoHints") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc3 "UniqueSearch") (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc3 "External") (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc3 "NoNewtype") (lambda (eta-0) (vector 1 (vector 4 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0))))))) -(define Reflect-TTImp-case--10522-15818 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "MkTy") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-10) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-13) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (vector 1 (vector 0 e-7 e-10 e-13)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))) -(define Reflect-TTImp-case--10057-15356 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "Inline") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "TCInline") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc3 "Hint") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__Bool arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 2 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))) ((equal? sc3 "GlobalHint") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-13)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-12) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__Bool arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 3 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))) ((equal? sc3 "ExternFn") (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc3 "ForeignFn") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((sc5 e-17)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-16) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__RawImp vars arg-3328 arg-3329)))) arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 5 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))) ((equal? sc3 "Invertible") (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc3 "Totality") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-21)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__TotalReq arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 7 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))) ((equal? sc3 "Macro") (lambda (eta-0) (vector 1 (vector 8 )))) ((equal? sc3 "SpecArgs") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 9 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))) -(define Reflect-TTImp-case--9873-15179 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "FirstSuccess") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "Unique") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc3 "UniqueDefault") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 2 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0))))))) -(define Reflect-TTImp-case--9668-14979 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "ISetField") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__String eta-1 eta-2 eta-3)))) arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 0 e-7 e-10))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0)))))) ((equal? sc3 "ISetFieldApp") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((1) (let ((e-18 (vector-ref sc5 1))) (let ((e-19 (vector-ref sc5 2))) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-15) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__String eta-1 eta-2 eta-3)))) arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-18) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 1 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))) -(define Reflect-TTImp-case--7319-12574 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "IVar") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-10) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 0 e-7 e-10))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IPi") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((1) (let ((e-18 (vector-ref sc5 1))) (let ((e-19 (vector-ref sc5 2))) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((1) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((sc7 e-22)) (case (vector-ref sc7 0) ((1) (let ((e-24 (vector-ref sc7 1))) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((1) (let ((e-27 (vector-ref sc8 1))) (let ((e-28 (vector-ref sc8 2))) (let ((sc9 e-28)) (case (vector-ref sc9 0) ((1) (let ((e-30 (vector-ref sc9 1))) (let ((e-31 (vector-ref sc9 2))) (let ((sc10 e-31)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-15) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-18) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-8) eta-0)))))))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-21) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc13 1))) ((Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__RawImp vars arg-3328 arg-3329)))) arg-0 arg-7 e-9) eta-0)))))))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc13 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-10 (vector-ref sc14 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc14 1))) ((Reflect-Core-reify_Reify__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-10) eta-0)))))))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-10 (vector-ref sc14 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc14 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-evalClosure arg-0 arg-7 e-27) eta-0))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-11 (vector-ref sc15 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc15 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-11) eta-0)))))))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-11 (vector-ref sc15 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc15 1))) (let ((act-29 (let ((act-29 ((Normalise-Core-evalClosure arg-0 arg-7 e-30) eta-0))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-12 (vector-ref sc16 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc16 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-12) eta-0)))))))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-12 (vector-ref sc16 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc16 1))) (vector 1 (vector 1 e-7 e-8 e-9 e-10 e-11 e-12))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ILam") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((sc5 e-35)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 1))) (let ((e-38 (vector-ref sc5 2))) (let ((sc6 e-38)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 1))) (let ((e-41 (vector-ref sc6 2))) (let ((sc7 e-41)) (case (vector-ref sc7 0) ((1) (let ((e-43 (vector-ref sc7 1))) (let ((e-44 (vector-ref sc7 2))) (let ((sc8 e-44)) (case (vector-ref sc8 0) ((1) (let ((e-46 (vector-ref sc8 1))) (let ((e-47 (vector-ref sc8 2))) (let ((sc9 e-47)) (case (vector-ref sc9 0) ((1) (let ((e-49 (vector-ref sc9 1))) (let ((e-50 (vector-ref sc9 2))) (let ((sc10 e-50)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-34) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-37) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-8) eta-0)))))))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-40) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc13 1))) ((Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__RawImp vars arg-3328 arg-3329)))) arg-0 arg-7 e-9) eta-0)))))))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc13 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-43) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-10 (vector-ref sc14 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc14 1))) ((Reflect-Core-reify_Reify__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-10) eta-0)))))))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-10 (vector-ref sc14 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc14 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-evalClosure arg-0 arg-7 e-46) eta-0))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-11 (vector-ref sc15 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc15 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-11) eta-0)))))))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-11 (vector-ref sc15 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc15 1))) (let ((act-29 (let ((act-29 ((Normalise-Core-evalClosure arg-0 arg-7 e-49) eta-0))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-12 (vector-ref sc16 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc16 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-12) eta-0)))))))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-12 (vector-ref sc16 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc16 1))) (vector 1 (vector 2 e-7 e-8 e-9 e-10 e-11 e-12))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ILet") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-53 (vector-ref sc4 1))) (let ((e-54 (vector-ref sc4 2))) (let ((sc5 e-54)) (case (vector-ref sc5 0) ((1) (let ((e-56 (vector-ref sc5 1))) (let ((e-57 (vector-ref sc5 2))) (let ((sc6 e-57)) (case (vector-ref sc6 0) ((1) (let ((e-59 (vector-ref sc6 1))) (let ((e-60 (vector-ref sc6 2))) (let ((sc7 e-60)) (case (vector-ref sc7 0) ((1) (let ((e-62 (vector-ref sc7 1))) (let ((e-63 (vector-ref sc7 2))) (let ((sc8 e-63)) (case (vector-ref sc8 0) ((1) (let ((e-65 (vector-ref sc8 1))) (let ((e-66 (vector-ref sc8 2))) (let ((sc9 e-66)) (case (vector-ref sc9 0) ((1) (let ((e-68 (vector-ref sc9 1))) (let ((e-69 (vector-ref sc9 2))) (let ((sc10 e-69)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-53) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-56) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-8) eta-0)))))))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-59) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc13 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-9) eta-0)))))))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc13 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-62) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-10 (vector-ref sc14 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc14 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-10 (vector-ref sc14 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc14 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-evalClosure arg-0 arg-7 e-65) eta-0))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-11 (vector-ref sc15 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc15 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-11) eta-0)))))))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-11 (vector-ref sc15 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc15 1))) (let ((act-29 (let ((act-29 ((Normalise-Core-evalClosure arg-0 arg-7 e-68) eta-0))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-12 (vector-ref sc16 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc16 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-12) eta-0)))))))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-12 (vector-ref sc16 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc16 1))) (vector 1 (vector 3 e-7 e-8 e-9 e-10 e-11 e-12))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ICase") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-72 (vector-ref sc4 1))) (let ((e-73 (vector-ref sc4 2))) (let ((sc5 e-73)) (case (vector-ref sc5 0) ((1) (let ((e-75 (vector-ref sc5 1))) (let ((e-76 (vector-ref sc5 2))) (let ((sc6 e-76)) (case (vector-ref sc6 0) ((1) (let ((e-78 (vector-ref sc6 1))) (let ((e-79 (vector-ref sc6 2))) (let ((sc7 e-79)) (case (vector-ref sc7 0) ((1) (let ((e-81 (vector-ref sc7 1))) (let ((e-82 (vector-ref sc7 2))) (let ((sc8 e-82)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-72) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-75) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-78) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-81) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__ImpClause vars arg-3328 arg-3329)))) arg-0 arg-7 e-10) eta-0)))))))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) (vector 1 (vector 4 e-7 e-8 e-9 e-10))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ILocal") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-85 (vector-ref sc4 1))) (let ((e-86 (vector-ref sc4 2))) (let ((sc5 e-86)) (case (vector-ref sc5 0) ((1) (let ((e-88 (vector-ref sc5 1))) (let ((e-89 (vector-ref sc5 2))) (let ((sc6 e-89)) (case (vector-ref sc6 0) ((1) (let ((e-91 (vector-ref sc6 1))) (let ((e-92 (vector-ref sc6 2))) (let ((sc7 e-92)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-85) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-88) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3328 arg-3329)))) arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-91) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 5 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IUpdate") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-95 (vector-ref sc4 1))) (let ((e-96 (vector-ref sc4 2))) (let ((sc5 e-96)) (case (vector-ref sc5 0) ((1) (let ((e-98 (vector-ref sc5 1))) (let ((e-99 (vector-ref sc5 2))) (let ((sc6 e-99)) (case (vector-ref sc6 0) ((1) (let ((e-101 (vector-ref sc6 1))) (let ((e-102 (vector-ref sc6 2))) (let ((sc7 e-102)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-95) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-98) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__IFieldUpdate vars arg-3328 arg-3329)))) arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-101) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 7 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IApp") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-105 (vector-ref sc4 1))) (let ((e-106 (vector-ref sc4 2))) (let ((sc5 e-106)) (case (vector-ref sc5 0) ((1) (let ((e-108 (vector-ref sc5 1))) (let ((e-109 (vector-ref sc5 2))) (let ((sc6 e-109)) (case (vector-ref sc6 0) ((1) (let ((e-111 (vector-ref sc6 1))) (let ((e-112 (vector-ref sc6 2))) (let ((sc7 e-112)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-105) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-108) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-111) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 8 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IImplicitApp") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-115 (vector-ref sc4 1))) (let ((e-116 (vector-ref sc4 2))) (let ((sc5 e-116)) (case (vector-ref sc5 0) ((1) (let ((e-118 (vector-ref sc5 1))) (let ((e-119 (vector-ref sc5 2))) (let ((sc6 e-119)) (case (vector-ref sc6 0) ((1) (let ((e-121 (vector-ref sc6 1))) (let ((e-122 (vector-ref sc6 2))) (let ((sc7 e-122)) (case (vector-ref sc7 0) ((1) (let ((e-124 (vector-ref sc7 1))) (let ((e-125 (vector-ref sc7 2))) (let ((sc8 e-125)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-115) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-118) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-121) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-9) eta-0)))))))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-124) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) (vector 1 (vector 9 e-7 e-8 e-9 e-10))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IWithApp") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-128 (vector-ref sc4 1))) (let ((e-129 (vector-ref sc4 2))) (let ((sc5 e-129)) (case (vector-ref sc5 0) ((1) (let ((e-131 (vector-ref sc5 1))) (let ((e-132 (vector-ref sc5 2))) (let ((sc6 e-132)) (case (vector-ref sc6 0) ((1) (let ((e-134 (vector-ref sc6 1))) (let ((e-135 (vector-ref sc6 2))) (let ((sc7 e-135)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-128) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-131) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-134) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 10 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ISearch") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-138 (vector-ref sc4 1))) (let ((e-139 (vector-ref sc4 2))) (let ((sc5 e-139)) (case (vector-ref sc5 0) ((1) (let ((e-141 (vector-ref sc5 1))) (let ((e-142 (vector-ref sc5 2))) (let ((sc6 e-142)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-138) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-141) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__Nat arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 11 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IAlternative") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-145 (vector-ref sc4 1))) (let ((e-146 (vector-ref sc4 2))) (let ((sc5 e-146)) (case (vector-ref sc5 0) ((1) (let ((e-148 (vector-ref sc5 1))) (let ((e-149 (vector-ref sc5 2))) (let ((sc6 e-149)) (case (vector-ref sc6 0) ((1) (let ((e-151 (vector-ref sc6 1))) (let ((e-152 (vector-ref sc6 2))) (let ((sc7 e-152)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-145) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-148) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-TTImp-reify_Reify__AltType arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-151) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__RawImp vars arg-3328 arg-3329)))) arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 12 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IRewrite") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-155 (vector-ref sc4 1))) (let ((e-156 (vector-ref sc4 2))) (let ((sc5 e-156)) (case (vector-ref sc5 0) ((1) (let ((e-158 (vector-ref sc5 1))) (let ((e-159 (vector-ref sc5 2))) (let ((sc6 e-159)) (case (vector-ref sc6 0) ((1) (let ((e-161 (vector-ref sc6 1))) (let ((e-162 (vector-ref sc6 2))) (let ((sc7 e-162)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-155) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-158) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-161) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IBindHere") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-165 (vector-ref sc4 1))) (let ((e-166 (vector-ref sc4 2))) (let ((sc5 e-166)) (case (vector-ref sc5 0) ((1) (let ((e-168 (vector-ref sc5 1))) (let ((e-169 (vector-ref sc5 2))) (let ((sc6 e-169)) (case (vector-ref sc6 0) ((1) (let ((e-171 (vector-ref sc6 1))) (let ((e-172 (vector-ref sc6 2))) (let ((sc7 e-172)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-165) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-168) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-TTImp-reify_Reify__BindMode arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-171) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 15 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IBindVar") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-175 (vector-ref sc4 1))) (let ((e-176 (vector-ref sc4 2))) (let ((sc5 e-176)) (case (vector-ref sc5 0) ((1) (let ((e-178 (vector-ref sc5 1))) (let ((e-179 (vector-ref sc5 2))) (let ((sc6 e-179)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-175) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-178) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IAs") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-182 (vector-ref sc4 1))) (let ((e-183 (vector-ref sc4 2))) (let ((sc5 e-183)) (case (vector-ref sc5 0) ((1) (let ((e-185 (vector-ref sc5 1))) (let ((e-186 (vector-ref sc5 2))) (let ((sc6 e-186)) (case (vector-ref sc6 0) ((1) (let ((e-188 (vector-ref sc6 1))) (let ((e-189 (vector-ref sc6 2))) (let ((sc7 e-189)) (case (vector-ref sc7 0) ((1) (let ((e-191 (vector-ref sc7 1))) (let ((e-192 (vector-ref sc7 2))) (let ((sc8 e-192)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-182) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-185) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__UseSide arg-0 arg-7 e-8) eta-0)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-188) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-9) eta-0)))))))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-191) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) (vector 1 (vector 17 e-7 e-8 e-9 e-10))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IMustUnify") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-195 (vector-ref sc4 1))) (let ((e-196 (vector-ref sc4 2))) (let ((sc5 e-196)) (case (vector-ref sc5 0) ((1) (let ((e-198 (vector-ref sc5 1))) (let ((e-199 (vector-ref sc5 2))) (let ((sc6 e-199)) (case (vector-ref sc6 0) ((1) (let ((e-201 (vector-ref sc6 1))) (let ((e-202 (vector-ref sc6 2))) (let ((sc7 e-202)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-195) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-198) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-TTImp-reify_Reify__DotReason arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-201) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 18 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IDelayed") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-205 (vector-ref sc4 1))) (let ((e-206 (vector-ref sc4 2))) (let ((sc5 e-206)) (case (vector-ref sc5 0) ((1) (let ((e-208 (vector-ref sc5 1))) (let ((e-209 (vector-ref sc5 2))) (let ((sc6 e-209)) (case (vector-ref sc6 0) ((1) (let ((e-211 (vector-ref sc6 1))) (let ((e-212 (vector-ref sc6 2))) (let ((sc7 e-212)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-205) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-208) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__LazyReason arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-211) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 19 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IDelay") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-215 (vector-ref sc4 1))) (let ((e-216 (vector-ref sc4 2))) (let ((sc5 e-216)) (case (vector-ref sc5 0) ((1) (let ((e-218 (vector-ref sc5 1))) (let ((e-219 (vector-ref sc5 2))) (let ((sc6 e-219)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-215) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-218) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 20 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IForce") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-222 (vector-ref sc4 1))) (let ((e-223 (vector-ref sc4 2))) (let ((sc5 e-223)) (case (vector-ref sc5 0) ((1) (let ((e-225 (vector-ref sc5 1))) (let ((e-226 (vector-ref sc5 2))) (let ((sc6 e-226)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-222) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-225) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 21 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IQuote") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-229 (vector-ref sc4 1))) (let ((e-230 (vector-ref sc4 2))) (let ((sc5 e-230)) (case (vector-ref sc5 0) ((1) (let ((e-232 (vector-ref sc5 1))) (let ((e-233 (vector-ref sc5 2))) (let ((sc6 e-233)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-229) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-232) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 22 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IQuoteName") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-236 (vector-ref sc4 1))) (let ((e-237 (vector-ref sc4 2))) (let ((sc5 e-237)) (case (vector-ref sc5 0) ((1) (let ((e-239 (vector-ref sc5 1))) (let ((e-240 (vector-ref sc5 2))) (let ((sc6 e-240)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-236) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-239) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 23 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IQuoteDecl") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-243 (vector-ref sc4 1))) (let ((e-244 (vector-ref sc4 2))) (let ((sc5 e-244)) (case (vector-ref sc5 0) ((1) (let ((e-246 (vector-ref sc5 1))) (let ((e-247 (vector-ref sc5 2))) (let ((sc6 e-247)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-243) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-246) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3328 arg-3329)))) arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 24 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IUnquote") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-250 (vector-ref sc4 1))) (let ((e-251 (vector-ref sc4 2))) (let ((sc5 e-251)) (case (vector-ref sc5 0) ((1) (let ((e-253 (vector-ref sc5 1))) (let ((e-254 (vector-ref sc5 2))) (let ((sc6 e-254)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-250) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-253) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 25 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IPrimVal") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-257 (vector-ref sc4 1))) (let ((e-258 (vector-ref sc4 2))) (let ((sc5 e-258)) (case (vector-ref sc5 0) ((1) (let ((e-260 (vector-ref sc5 1))) (let ((e-261 (vector-ref sc5 2))) (let ((sc6 e-261)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-257) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-260) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__Constant arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 27 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-264 (vector-ref sc4 1))) (let ((e-265 (vector-ref sc4 2))) (let ((sc5 e-265)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-264) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 28 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IHole") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-268 (vector-ref sc4 1))) (let ((e-269 (vector-ref sc4 2))) (let ((sc5 e-269)) (case (vector-ref sc5 0) ((1) (let ((e-271 (vector-ref sc5 1))) (let ((e-272 (vector-ref sc5 2))) (let ((sc6 e-272)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-268) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-271) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 29 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "Implicit") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-275 (vector-ref sc4 1))) (let ((e-276 (vector-ref sc4 2))) (let ((sc5 e-276)) (case (vector-ref sc5 0) ((1) (let ((e-278 (vector-ref sc5 1))) (let ((e-279 (vector-ref sc5 2))) (let ((sc6 e-279)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-275) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-278) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__Bool arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 31 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IWithUnambigNames") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-282 (vector-ref sc4 1))) (let ((e-283 (vector-ref sc4 2))) (let ((sc5 e-283)) (case (vector-ref sc5 0) ((1) (let ((e-285 (vector-ref sc5 1))) (let ((e-286 (vector-ref sc5 2))) (let ((sc6 e-286)) (case (vector-ref sc6 0) ((1) (let ((e-288 (vector-ref sc6 1))) (let ((e-289 (vector-ref sc6 2))) (let ((sc7 e-289)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-282) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-285) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-288) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 32 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))) -(define Reflect-TTImp-case--7002-12263 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "NonLinearVar") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "VarApplied") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc3 "NotConstructor") (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc3 "ErasedArg") (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc3 "UserDotted") (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc3 "UnknownDot") (lambda (eta-0) (vector 1 (vector 5 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DotReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DotReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DotReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DotReason" eta-0))))))) -(define Reflect-TTImp-case--6835-12092 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "UseLeft") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "UseRight") (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "UseSide" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "UseSide" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "UseSide" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "UseSide" eta-0))))))) -(define Reflect-TTImp-case--6602-11856 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "PI") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 0 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0)))))) ((equal? sc3 "PATTERN") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc3 "NONE") (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0))))))) -(define Reflect-TTImp-reify_Reify__UseSide (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--6835-12092 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "UseSide" eta-0))))))) -(define Reflect-TTImp-reify_Reify__RawImp (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--7319-12574 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "TTImp" eta-0))))))) -(define Reflect-TTImp-reify_Reify__ImpTy (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--10522-15818 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "ITy" eta-0))))))) -(define Reflect-TTImp-reify_Reify__ImpRecord (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--11390-16661 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Record" eta-0))))))) -(define Reflect-TTImp-reify_Reify__ImpDecl (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--11924-17186 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Decl" eta-0))))))) -(define Reflect-TTImp-reify_Reify__ImpData (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--10926-16208 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Data" eta-0))))))) -(define Reflect-TTImp-reify_Reify__ImpClause (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--11607-16871 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Clause" eta-0))))))) -(define Reflect-TTImp-reify_Reify__IFieldUpdate (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--9668-14979 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "IFieldUpdate" eta-0))))))) -(define Reflect-TTImp-reify_Reify__IField (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--11198-16476 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "IField" eta-0))))))) -(define Reflect-TTImp-reify_Reify__FnOpt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--10057-15356 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "FnOpt" eta-0))))))) -(define Reflect-TTImp-reify_Reify__DotReason (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--7002-12263 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "DotReason" eta-0))))))) -(define Reflect-TTImp-reify_Reify__DataOpt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--10678-15967 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "DataOpt" eta-0))))))) -(define Reflect-TTImp-reify_Reify__BindMode (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--6602-11856 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "BindMode" eta-0))))))) -(define Reflect-TTImp-reify_Reify__AltType (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--9873-15179 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "AltType" eta-0))))))) +(define 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--10313-13669 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0)))))))))))))))))))))) +(define Reflect-TTImp-case--11966-17194 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "IClaim") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-10) eta-0)))))))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) ((Reflect-Core-reify_Reify__Visibility arg-0 arg-7 e-13) eta-0)))))))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-17) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__FnOpt vars arg-3336 arg-3337)))) arg-0 arg-7 e-16) eta-0)))))))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-0))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) ((Reflect-TTImp-reify_Reify__ImpTy arg-0 arg-7 e-19) eta-0)))))))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (vector 1 (vector 0 e-7 e-10 e-13 e-16 e-19)))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "IData") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((1) (let ((e-27 (vector-ref sc5 1))) (let ((e-28 (vector-ref sc5 2))) (let ((sc6 e-28)) (case (vector-ref sc6 0) ((1) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-31)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-27) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__Visibility arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-30) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__ImpData arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 1 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "IDef") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((sc5 e-35)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 1))) (let ((e-38 (vector-ref sc5 2))) (let ((sc6 e-38)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 1))) (let ((e-41 (vector-ref sc6 2))) (let ((sc7 e-41)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-34) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-37) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-40) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__ImpClause vars arg-3336 arg-3337)))) arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 2 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "IParameters") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-44 (vector-ref sc4 1))) (let ((e-45 (vector-ref sc4 2))) (let ((sc5 e-45)) (case (vector-ref sc5 0) ((1) (let ((e-47 (vector-ref sc5 1))) (let ((e-48 (vector-ref sc5 2))) (let ((sc6 e-48)) (case (vector-ref sc6 0) ((1) (let ((e-50 (vector-ref sc6 1))) (let ((e-51 (vector-ref sc6 2))) (let ((sc7 e-51)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-44) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-47) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reify_Reify__Name eta-4 eta-5 eta-6)))) (lambda (vars) (lambda (arg-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__RawImp vars arg-3336 arg-3337))))) eta-1 eta-2 eta-3)))) arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-50) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3336 arg-3337)))) arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 3 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "IRecord") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-54 (vector-ref sc4 1))) (let ((e-55 (vector-ref sc4 2))) (let ((sc5 e-55)) (case (vector-ref sc5 0) ((1) (let ((e-57 (vector-ref sc5 1))) (let ((e-58 (vector-ref sc5 2))) (let ((sc6 e-58)) (case (vector-ref sc6 0) ((1) (let ((e-60 (vector-ref sc6 1))) (let ((e-61 (vector-ref sc6 2))) (let ((sc7 e-61)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-54) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-57) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__Visibility arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-60) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__ImpRecord arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 4 e-7 (vector 0 ) e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "INamespace") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-64 (vector-ref sc4 1))) (let ((e-65 (vector-ref sc4 2))) (let ((sc5 e-65)) (case (vector-ref sc5 0) ((1) (let ((e-67 (vector-ref sc5 1))) (let ((e-68 (vector-ref sc5 2))) (let ((sc6 e-68)) (case (vector-ref sc6 0) ((1) (let ((e-70 (vector-ref sc6 1))) (let ((e-71 (vector-ref sc6 2))) (let ((sc7 e-71)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-64) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-67) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__String eta-1 eta-2 eta-3)))) arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-70) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3336 arg-3337)))) arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 5 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "ITransform") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-74 (vector-ref sc4 1))) (let ((e-75 (vector-ref sc4 2))) (let ((sc5 e-75)) (case (vector-ref sc5 0) ((1) (let ((e-77 (vector-ref sc5 1))) (let ((e-78 (vector-ref sc5 2))) (let ((sc6 e-78)) (case (vector-ref sc6 0) ((1) (let ((e-80 (vector-ref sc6 1))) (let ((e-81 (vector-ref sc6 2))) (let ((sc7 e-81)) (case (vector-ref sc7 0) ((1) (let ((e-83 (vector-ref sc7 1))) (let ((e-84 (vector-ref sc7 2))) (let ((sc8 e-84)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-74) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-77) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-80) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-83) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) (vector 1 (vector 6 e-7 e-8 e-9 e-10))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "ILog") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-87 (vector-ref sc4 1))) (let ((e-88 (vector-ref sc4 2))) (let ((sc5 e-88)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-87) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__Nat arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 9 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))) +(define Reflect-TTImp-case--11649-16879 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "PatClause") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-13) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (vector 1 (vector 0 e-7 e-10 e-13)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))) ((equal? sc3 "WithClause") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (case (vector-ref sc5 0) ((1) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 e-22)) (case (vector-ref sc6 0) ((1) (let ((e-24 (vector-ref sc6 1))) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((1) (let ((e-27 (vector-ref sc7 1))) (let ((e-28 (vector-ref sc7 2))) (let ((sc8 e-28)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-18) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-21) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-27) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__ImpClause vars arg-3336 arg-3337)))) arg-0 arg-7 e-10) eta-0)))))))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) (vector 1 (vector 1 e-7 e-8 e-9 (vector 0 ) e-10))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))) ((equal? sc3 "ImpossibleClause") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-31 (vector-ref sc4 1))) (let ((e-32 (vector-ref sc4 2))) (let ((sc5 e-32)) (case (vector-ref sc5 0) ((1) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((sc6 e-35)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-31) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-34) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 2 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))) +(define Reflect-TTImp-case--11432-16669 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "MkRecord") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-10) eta-0)))))))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reify_Reify__Name eta-4 eta-5 eta-6)))) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reify_Reify__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (Reflect-Core-reify_Reify__RigCount eta-7 eta-8 eta-9)))) (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (Reflect-Core-reify_Reify__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__RawImp vars arg-3336 arg-3337)))) eta-10 eta-11 eta-12)))) (lambda (vars) (lambda (arg-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__RawImp vars arg-3336 arg-3337))))) eta-7 eta-8 eta-9))))) eta-4 eta-5 eta-6))))) eta-1 eta-2 eta-3)))) arg-0 arg-7 e-13) eta-0)))))))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-17) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-16) eta-0)))))))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-0))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__IField vars arg-3336 arg-3337)))) arg-0 arg-7 e-19) eta-0)))))))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (vector 1 (vector 0 e-7 e-10 e-13 e-16 e-19)))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))) +(define Reflect-TTImp-case--11240-16484 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "MkIField") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-10) eta-0)))))))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) ((Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__RawImp vars arg-3336 arg-3337)))) arg-0 arg-7 e-13) eta-0)))))))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-17) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-16) eta-0)))))))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-0))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-19) eta-0)))))))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (vector 1 (vector 0 e-7 e-10 e-13 e-16 e-19)))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))) +(define Reflect-TTImp-case--10968-16216 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "MkData") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-10) eta-0)))))))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-13) eta-0)))))))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-17) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__DataOpt vars arg-3336 arg-3337)))) arg-0 arg-7 e-16) eta-0)))))))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-0))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__ImpTy vars arg-3336 arg-3337)))) arg-0 arg-7 e-19) eta-0)))))))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (vector 1 (vector 0 e-7 e-10 e-13 e-16 e-19)))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0)))))) ((equal? sc3 "MkLater") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((1) (let ((e-27 (vector-ref sc5 1))) (let ((e-28 (vector-ref sc5 2))) (let ((sc6 e-28)) (case (vector-ref sc6 0) ((1) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-31)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-27) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-30) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 1 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))) +(define Reflect-TTImp-case--10720-15975 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "SearchBy") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 0 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0)))))) ((equal? sc3 "NoHints") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc3 "UniqueSearch") (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc3 "External") (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc3 "NoNewtype") (lambda (eta-0) (vector 1 (vector 4 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0))))))) +(define Reflect-TTImp-case--10564-15826 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "MkTy") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-10) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-13) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (vector 1 (vector 0 e-7 e-10 e-13)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))) +(define Reflect-TTImp-case--10099-15364 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "Inline") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "TCInline") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc3 "Hint") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__Bool arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 2 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))) ((equal? sc3 "GlobalHint") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-13)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-12) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__Bool arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 3 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))) ((equal? sc3 "ExternFn") (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc3 "ForeignFn") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((sc5 e-17)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-16) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__RawImp vars arg-3336 arg-3337)))) arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 5 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))) ((equal? sc3 "Invertible") (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc3 "Totality") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-21)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__TotalReq arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 7 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))) ((equal? sc3 "Macro") (lambda (eta-0) (vector 1 (vector 8 )))) ((equal? sc3 "SpecArgs") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 9 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))) +(define Reflect-TTImp-case--9915-15187 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "FirstSuccess") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "Unique") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc3 "UniqueDefault") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 2 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0))))))) +(define Reflect-TTImp-case--9710-14987 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "ISetField") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__String eta-1 eta-2 eta-3)))) arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 0 e-7 e-10))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0)))))) ((equal? sc3 "ISetFieldApp") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((1) (let ((e-18 (vector-ref sc5 1))) (let ((e-19 (vector-ref sc5 2))) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-15) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__String eta-1 eta-2 eta-3)))) arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-18) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 1 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))) +(define Reflect-TTImp-case--7361-12582 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "IVar") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-10) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 0 e-7 e-10))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IPi") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((1) (let ((e-18 (vector-ref sc5 1))) (let ((e-19 (vector-ref sc5 2))) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((1) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((sc7 e-22)) (case (vector-ref sc7 0) ((1) (let ((e-24 (vector-ref sc7 1))) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((1) (let ((e-27 (vector-ref sc8 1))) (let ((e-28 (vector-ref sc8 2))) (let ((sc9 e-28)) (case (vector-ref sc9 0) ((1) (let ((e-30 (vector-ref sc9 1))) (let ((e-31 (vector-ref sc9 2))) (let ((sc10 e-31)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-15) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-18) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-8) eta-0)))))))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-21) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc13 1))) ((Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__RawImp vars arg-3336 arg-3337)))) arg-0 arg-7 e-9) eta-0)))))))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc13 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-10 (vector-ref sc14 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc14 1))) ((Reflect-Core-reify_Reify__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-10) eta-0)))))))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-10 (vector-ref sc14 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc14 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-evalClosure arg-0 arg-7 e-27) eta-0))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-11 (vector-ref sc15 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc15 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-11) eta-0)))))))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-11 (vector-ref sc15 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc15 1))) (let ((act-29 (let ((act-29 ((Normalise-Core-evalClosure arg-0 arg-7 e-30) eta-0))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-12 (vector-ref sc16 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc16 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-12) eta-0)))))))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-12 (vector-ref sc16 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc16 1))) (vector 1 (vector 1 e-7 e-8 e-9 e-10 e-11 e-12))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ILam") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((sc5 e-35)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 1))) (let ((e-38 (vector-ref sc5 2))) (let ((sc6 e-38)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 1))) (let ((e-41 (vector-ref sc6 2))) (let ((sc7 e-41)) (case (vector-ref sc7 0) ((1) (let ((e-43 (vector-ref sc7 1))) (let ((e-44 (vector-ref sc7 2))) (let ((sc8 e-44)) (case (vector-ref sc8 0) ((1) (let ((e-46 (vector-ref sc8 1))) (let ((e-47 (vector-ref sc8 2))) (let ((sc9 e-47)) (case (vector-ref sc9 0) ((1) (let ((e-49 (vector-ref sc9 1))) (let ((e-50 (vector-ref sc9 2))) (let ((sc10 e-50)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-34) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-37) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-8) eta-0)))))))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-40) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc13 1))) ((Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__RawImp vars arg-3336 arg-3337)))) arg-0 arg-7 e-9) eta-0)))))))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc13 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-43) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-10 (vector-ref sc14 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc14 1))) ((Reflect-Core-reify_Reify__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-10) eta-0)))))))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-10 (vector-ref sc14 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc14 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-evalClosure arg-0 arg-7 e-46) eta-0))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-11 (vector-ref sc15 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc15 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-11) eta-0)))))))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-11 (vector-ref sc15 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc15 1))) (let ((act-29 (let ((act-29 ((Normalise-Core-evalClosure arg-0 arg-7 e-49) eta-0))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-12 (vector-ref sc16 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc16 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-12) eta-0)))))))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-12 (vector-ref sc16 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc16 1))) (vector 1 (vector 2 e-7 e-8 e-9 e-10 e-11 e-12))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ILet") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-53 (vector-ref sc4 1))) (let ((e-54 (vector-ref sc4 2))) (let ((sc5 e-54)) (case (vector-ref sc5 0) ((1) (let ((e-56 (vector-ref sc5 1))) (let ((e-57 (vector-ref sc5 2))) (let ((sc6 e-57)) (case (vector-ref sc6 0) ((1) (let ((e-59 (vector-ref sc6 1))) (let ((e-60 (vector-ref sc6 2))) (let ((sc7 e-60)) (case (vector-ref sc7 0) ((1) (let ((e-62 (vector-ref sc7 1))) (let ((e-63 (vector-ref sc7 2))) (let ((sc8 e-63)) (case (vector-ref sc8 0) ((1) (let ((e-65 (vector-ref sc8 1))) (let ((e-66 (vector-ref sc8 2))) (let ((sc9 e-66)) (case (vector-ref sc9 0) ((1) (let ((e-68 (vector-ref sc9 1))) (let ((e-69 (vector-ref sc9 2))) (let ((sc10 e-69)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-53) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-56) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-8) eta-0)))))))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-59) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc13 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-9) eta-0)))))))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc13 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-62) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-10 (vector-ref sc14 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc14 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-10 (vector-ref sc14 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc14 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-evalClosure arg-0 arg-7 e-65) eta-0))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-11 (vector-ref sc15 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc15 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-11) eta-0)))))))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-11 (vector-ref sc15 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc15 1))) (let ((act-29 (let ((act-29 ((Normalise-Core-evalClosure arg-0 arg-7 e-68) eta-0))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-12 (vector-ref sc16 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc16 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-12) eta-0)))))))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-12 (vector-ref sc16 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc16 1))) (vector 1 (vector 3 e-7 e-8 e-9 e-10 e-11 e-12))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ICase") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-72 (vector-ref sc4 1))) (let ((e-73 (vector-ref sc4 2))) (let ((sc5 e-73)) (case (vector-ref sc5 0) ((1) (let ((e-75 (vector-ref sc5 1))) (let ((e-76 (vector-ref sc5 2))) (let ((sc6 e-76)) (case (vector-ref sc6 0) ((1) (let ((e-78 (vector-ref sc6 1))) (let ((e-79 (vector-ref sc6 2))) (let ((sc7 e-79)) (case (vector-ref sc7 0) ((1) (let ((e-81 (vector-ref sc7 1))) (let ((e-82 (vector-ref sc7 2))) (let ((sc8 e-82)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-72) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-75) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-78) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-81) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__ImpClause vars arg-3336 arg-3337)))) arg-0 arg-7 e-10) eta-0)))))))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) (vector 1 (vector 4 e-7 e-8 e-9 e-10))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ILocal") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-85 (vector-ref sc4 1))) (let ((e-86 (vector-ref sc4 2))) (let ((sc5 e-86)) (case (vector-ref sc5 0) ((1) (let ((e-88 (vector-ref sc5 1))) (let ((e-89 (vector-ref sc5 2))) (let ((sc6 e-89)) (case (vector-ref sc6 0) ((1) (let ((e-91 (vector-ref sc6 1))) (let ((e-92 (vector-ref sc6 2))) (let ((sc7 e-92)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-85) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-88) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3336 arg-3337)))) arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-91) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 5 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IUpdate") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-95 (vector-ref sc4 1))) (let ((e-96 (vector-ref sc4 2))) (let ((sc5 e-96)) (case (vector-ref sc5 0) ((1) (let ((e-98 (vector-ref sc5 1))) (let ((e-99 (vector-ref sc5 2))) (let ((sc6 e-99)) (case (vector-ref sc6 0) ((1) (let ((e-101 (vector-ref sc6 1))) (let ((e-102 (vector-ref sc6 2))) (let ((sc7 e-102)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-95) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-98) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__IFieldUpdate vars arg-3336 arg-3337)))) arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-101) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 7 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IApp") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-105 (vector-ref sc4 1))) (let ((e-106 (vector-ref sc4 2))) (let ((sc5 e-106)) (case (vector-ref sc5 0) ((1) (let ((e-108 (vector-ref sc5 1))) (let ((e-109 (vector-ref sc5 2))) (let ((sc6 e-109)) (case (vector-ref sc6 0) ((1) (let ((e-111 (vector-ref sc6 1))) (let ((e-112 (vector-ref sc6 2))) (let ((sc7 e-112)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-105) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-108) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-111) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 8 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IImplicitApp") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-115 (vector-ref sc4 1))) (let ((e-116 (vector-ref sc4 2))) (let ((sc5 e-116)) (case (vector-ref sc5 0) ((1) (let ((e-118 (vector-ref sc5 1))) (let ((e-119 (vector-ref sc5 2))) (let ((sc6 e-119)) (case (vector-ref sc6 0) ((1) (let ((e-121 (vector-ref sc6 1))) (let ((e-122 (vector-ref sc6 2))) (let ((sc7 e-122)) (case (vector-ref sc7 0) ((1) (let ((e-124 (vector-ref sc7 1))) (let ((e-125 (vector-ref sc7 2))) (let ((sc8 e-125)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-115) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-118) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-121) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-9) eta-0)))))))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-124) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) (vector 1 (vector 9 e-7 e-8 e-9 e-10))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IWithApp") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-128 (vector-ref sc4 1))) (let ((e-129 (vector-ref sc4 2))) (let ((sc5 e-129)) (case (vector-ref sc5 0) ((1) (let ((e-131 (vector-ref sc5 1))) (let ((e-132 (vector-ref sc5 2))) (let ((sc6 e-132)) (case (vector-ref sc6 0) ((1) (let ((e-134 (vector-ref sc6 1))) (let ((e-135 (vector-ref sc6 2))) (let ((sc7 e-135)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-128) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-131) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-134) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 10 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ISearch") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-138 (vector-ref sc4 1))) (let ((e-139 (vector-ref sc4 2))) (let ((sc5 e-139)) (case (vector-ref sc5 0) ((1) (let ((e-141 (vector-ref sc5 1))) (let ((e-142 (vector-ref sc5 2))) (let ((sc6 e-142)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-138) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-141) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__Nat arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 11 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IAlternative") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-145 (vector-ref sc4 1))) (let ((e-146 (vector-ref sc4 2))) (let ((sc5 e-146)) (case (vector-ref sc5 0) ((1) (let ((e-148 (vector-ref sc5 1))) (let ((e-149 (vector-ref sc5 2))) (let ((sc6 e-149)) (case (vector-ref sc6 0) ((1) (let ((e-151 (vector-ref sc6 1))) (let ((e-152 (vector-ref sc6 2))) (let ((sc7 e-152)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-145) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-148) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-TTImp-reify_Reify__AltType arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-151) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__RawImp vars arg-3336 arg-3337)))) arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 12 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IRewrite") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-155 (vector-ref sc4 1))) (let ((e-156 (vector-ref sc4 2))) (let ((sc5 e-156)) (case (vector-ref sc5 0) ((1) (let ((e-158 (vector-ref sc5 1))) (let ((e-159 (vector-ref sc5 2))) (let ((sc6 e-159)) (case (vector-ref sc6 0) ((1) (let ((e-161 (vector-ref sc6 1))) (let ((e-162 (vector-ref sc6 2))) (let ((sc7 e-162)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-155) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-158) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-161) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IBindHere") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-165 (vector-ref sc4 1))) (let ((e-166 (vector-ref sc4 2))) (let ((sc5 e-166)) (case (vector-ref sc5 0) ((1) (let ((e-168 (vector-ref sc5 1))) (let ((e-169 (vector-ref sc5 2))) (let ((sc6 e-169)) (case (vector-ref sc6 0) ((1) (let ((e-171 (vector-ref sc6 1))) (let ((e-172 (vector-ref sc6 2))) (let ((sc7 e-172)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-165) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-168) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-TTImp-reify_Reify__BindMode arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-171) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 15 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IBindVar") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-175 (vector-ref sc4 1))) (let ((e-176 (vector-ref sc4 2))) (let ((sc5 e-176)) (case (vector-ref sc5 0) ((1) (let ((e-178 (vector-ref sc5 1))) (let ((e-179 (vector-ref sc5 2))) (let ((sc6 e-179)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-175) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-178) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IAs") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-182 (vector-ref sc4 1))) (let ((e-183 (vector-ref sc4 2))) (let ((sc5 e-183)) (case (vector-ref sc5 0) ((1) (let ((e-185 (vector-ref sc5 1))) (let ((e-186 (vector-ref sc5 2))) (let ((sc6 e-186)) (case (vector-ref sc6 0) ((1) (let ((e-188 (vector-ref sc6 1))) (let ((e-189 (vector-ref sc6 2))) (let ((sc7 e-189)) (case (vector-ref sc7 0) ((1) (let ((e-191 (vector-ref sc7 1))) (let ((e-192 (vector-ref sc7 2))) (let ((sc8 e-192)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-182) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-185) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__UseSide arg-0 arg-7 e-8) eta-0)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-188) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-9) eta-0)))))))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-191) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) (vector 1 (vector 17 e-7 e-8 e-9 e-10))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IMustUnify") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-195 (vector-ref sc4 1))) (let ((e-196 (vector-ref sc4 2))) (let ((sc5 e-196)) (case (vector-ref sc5 0) ((1) (let ((e-198 (vector-ref sc5 1))) (let ((e-199 (vector-ref sc5 2))) (let ((sc6 e-199)) (case (vector-ref sc6 0) ((1) (let ((e-201 (vector-ref sc6 1))) (let ((e-202 (vector-ref sc6 2))) (let ((sc7 e-202)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-195) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-198) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-TTImp-reify_Reify__DotReason arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-201) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 18 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IDelayed") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-205 (vector-ref sc4 1))) (let ((e-206 (vector-ref sc4 2))) (let ((sc5 e-206)) (case (vector-ref sc5 0) ((1) (let ((e-208 (vector-ref sc5 1))) (let ((e-209 (vector-ref sc5 2))) (let ((sc6 e-209)) (case (vector-ref sc6 0) ((1) (let ((e-211 (vector-ref sc6 1))) (let ((e-212 (vector-ref sc6 2))) (let ((sc7 e-212)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-205) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-208) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__LazyReason arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-211) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 19 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IDelay") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-215 (vector-ref sc4 1))) (let ((e-216 (vector-ref sc4 2))) (let ((sc5 e-216)) (case (vector-ref sc5 0) ((1) (let ((e-218 (vector-ref sc5 1))) (let ((e-219 (vector-ref sc5 2))) (let ((sc6 e-219)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-215) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-218) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 20 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IForce") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-222 (vector-ref sc4 1))) (let ((e-223 (vector-ref sc4 2))) (let ((sc5 e-223)) (case (vector-ref sc5 0) ((1) (let ((e-225 (vector-ref sc5 1))) (let ((e-226 (vector-ref sc5 2))) (let ((sc6 e-226)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-222) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-225) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 21 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IQuote") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-229 (vector-ref sc4 1))) (let ((e-230 (vector-ref sc4 2))) (let ((sc5 e-230)) (case (vector-ref sc5 0) ((1) (let ((e-232 (vector-ref sc5 1))) (let ((e-233 (vector-ref sc5 2))) (let ((sc6 e-233)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-229) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-232) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 22 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IQuoteName") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-236 (vector-ref sc4 1))) (let ((e-237 (vector-ref sc4 2))) (let ((sc5 e-237)) (case (vector-ref sc5 0) ((1) (let ((e-239 (vector-ref sc5 1))) (let ((e-240 (vector-ref sc5 2))) (let ((sc6 e-240)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-236) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-239) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 23 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IQuoteDecl") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-243 (vector-ref sc4 1))) (let ((e-244 (vector-ref sc4 2))) (let ((sc5 e-244)) (case (vector-ref sc5 0) ((1) (let ((e-246 (vector-ref sc5 1))) (let ((e-247 (vector-ref sc5 2))) (let ((sc6 e-247)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-243) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-246) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3336 arg-3337)))) arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 24 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IUnquote") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-250 (vector-ref sc4 1))) (let ((e-251 (vector-ref sc4 2))) (let ((sc5 e-251)) (case (vector-ref sc5 0) ((1) (let ((e-253 (vector-ref sc5 1))) (let ((e-254 (vector-ref sc5 2))) (let ((sc6 e-254)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-250) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-253) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 25 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IPrimVal") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-257 (vector-ref sc4 1))) (let ((e-258 (vector-ref sc4 2))) (let ((sc5 e-258)) (case (vector-ref sc5 0) ((1) (let ((e-260 (vector-ref sc5 1))) (let ((e-261 (vector-ref sc5 2))) (let ((sc6 e-261)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-257) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-260) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__Constant arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 27 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-264 (vector-ref sc4 1))) (let ((e-265 (vector-ref sc4 2))) (let ((sc5 e-265)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-264) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 28 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IHole") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-268 (vector-ref sc4 1))) (let ((e-269 (vector-ref sc4 2))) (let ((sc5 e-269)) (case (vector-ref sc5 0) ((1) (let ((e-271 (vector-ref sc5 1))) (let ((e-272 (vector-ref sc5 2))) (let ((sc6 e-272)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-268) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-271) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 29 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "Implicit") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-275 (vector-ref sc4 1))) (let ((e-276 (vector-ref sc4 2))) (let ((sc5 e-276)) (case (vector-ref sc5 0) ((1) (let ((e-278 (vector-ref sc5 1))) (let ((e-279 (vector-ref sc5 2))) (let ((sc6 e-279)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-275) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-278) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__Bool arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 31 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IWithUnambigNames") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-282 (vector-ref sc4 1))) (let ((e-283 (vector-ref sc4 2))) (let ((sc5 e-283)) (case (vector-ref sc5 0) ((1) (let ((e-285 (vector-ref sc5 1))) (let ((e-286 (vector-ref sc5 2))) (let ((sc6 e-286)) (case (vector-ref sc6 0) ((1) (let ((e-288 (vector-ref sc6 1))) (let ((e-289 (vector-ref sc6 2))) (let ((sc7 e-289)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-282) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-285) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-288) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 32 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))) +(define Reflect-TTImp-case--7044-12271 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "NonLinearVar") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "VarApplied") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc3 "NotConstructor") (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc3 "ErasedArg") (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc3 "UserDotted") (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc3 "UnknownDot") (lambda (eta-0) (vector 1 (vector 5 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DotReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DotReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DotReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DotReason" eta-0))))))) +(define Reflect-TTImp-case--6877-12100 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "UseLeft") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "UseRight") (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "UseSide" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "UseSide" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "UseSide" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "UseSide" eta-0))))))) +(define Reflect-TTImp-case--6644-11864 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "PI") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 0 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0)))))) ((equal? sc3 "PATTERN") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc3 "NONE") (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0))))))) +(define Reflect-TTImp-reify_Reify__UseSide (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--6877-12100 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "UseSide" eta-0))))))) +(define Reflect-TTImp-reify_Reify__RawImp (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--7361-12582 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "TTImp" eta-0))))))) +(define Reflect-TTImp-reify_Reify__ImpTy (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--10564-15826 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "ITy" eta-0))))))) +(define Reflect-TTImp-reify_Reify__ImpRecord (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--11432-16669 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Record" eta-0))))))) +(define Reflect-TTImp-reify_Reify__ImpDecl (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--11966-17194 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Decl" eta-0))))))) +(define Reflect-TTImp-reify_Reify__ImpData (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--10968-16216 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Data" eta-0))))))) +(define Reflect-TTImp-reify_Reify__ImpClause (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--11649-16879 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Clause" eta-0))))))) +(define Reflect-TTImp-reify_Reify__IFieldUpdate (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--9710-14987 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "IFieldUpdate" eta-0))))))) +(define Reflect-TTImp-reify_Reify__IField (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--11240-16484 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "IField" eta-0))))))) +(define Reflect-TTImp-reify_Reify__FnOpt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--10099-15364 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "FnOpt" eta-0))))))) +(define Reflect-TTImp-reify_Reify__DotReason (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--7044-12271 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "DotReason" eta-0))))))) +(define Reflect-TTImp-reify_Reify__DataOpt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--10720-15975 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "DataOpt" eta-0))))))) +(define Reflect-TTImp-reify_Reify__BindMode (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--6644-11864 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "BindMode" eta-0))))))) +(define Reflect-TTImp-reify_Reify__AltType (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--9915-15187 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "AltType" eta-0))))))) (define Reflect-TTImp-reflect_Reflect__UseSide (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "UseLeft") eta-0))) (else (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "UseRight") eta-0))))))) -(define Reflect-TTImp-reflect_Reflect__RawImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IVar") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((1) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((e-12 (vector-ref sc0 4))) (let ((e-13 (vector-ref sc0 5))) (let ((e-14 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-10) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-11) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-12) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-13) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc5 1))) (let ((act-29 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-14) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc6 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IPi") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-15 (vector 1 e-16 (vector 0 ))))))) eta-0))))))))))))))))))))))))))))))))))))))) ((2) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (let ((e-18 (vector-ref sc0 4))) (let ((e-19 (vector-ref sc0 5))) (let ((e-20 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-16) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-17) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-18) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-19) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-20) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ILam") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 ))))))) eta-0))))))))))))))))))))))))))))))))))))))) ((3) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (let ((e-25 (vector-ref sc0 5))) (let ((e-26 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-21) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-22) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-23) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-24) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-25) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-26) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ILet") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 ))))))) eta-0))))))))))))))))))))))))))))))))))))))) ((4) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((e-30 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-27) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-28) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-29) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__ImpClause vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-30) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ICase") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))) eta-0))))))))))))))))))))))))))) ((5) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-31) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-32) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-33) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ILocal") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((6) (let ((e-38 (vector-ref sc0 5))) (Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-38))) ((7) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-39) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__IFieldUpdate vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-40) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-41) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IUpdate") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((8) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-42) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-43) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-44) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IApp") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((9) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (let ((e-47 (vector-ref sc0 3))) (let ((e-48 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-45) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-46) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-47) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-48) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IImplicitApp") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))) eta-0))))))))))))))))))))))))))) ((10) (let ((e-49 (vector-ref sc0 1))) (let ((e-50 (vector-ref sc0 2))) (let ((e-51 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-49) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-50) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-51) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IWithApp") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((11) (let ((e-52 (vector-ref sc0 1))) (let ((e-53 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-52) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Nat arg-0 arg-1 arg-2 arg-3 arg-4 e-53) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ISearch") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((12) (let ((e-54 (vector-ref sc0 1))) (let ((e-55 (vector-ref sc0 2))) (let ((e-56 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-54) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__AltType arg-0 arg-1 arg-2 arg-3 arg-4 e-55) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-56) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IAlternative") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((13) (let ((e-57 (vector-ref sc0 1))) (let ((e-58 (vector-ref sc0 2))) (let ((e-59 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-57) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-58) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-59) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IRewrite") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((14) (let ((e-61 (vector-ref sc0 2))) (Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-61))) ((15) (let ((e-62 (vector-ref sc0 1))) (let ((e-63 (vector-ref sc0 2))) (let ((e-64 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-62) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__BindMode arg-0 arg-1 arg-2 arg-3 arg-4 e-63) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-64) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IBindHere") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((16) (let ((e-65 (vector-ref sc0 1))) (let ((e-66 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-65) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 e-66 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IBindVar") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((17) (let ((e-67 (vector-ref sc0 1))) (let ((e-68 (vector-ref sc0 2))) (let ((e-69 (vector-ref sc0 3))) (let ((e-70 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-67) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__UseSide arg-0 arg-1 arg-2 arg-3 arg-4 e-68) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-69) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-70) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IAs") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))) eta-0))))))))))))))))))))))))))) ((18) (let ((e-71 (vector-ref sc0 1))) (let ((e-72 (vector-ref sc0 2))) (let ((e-73 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-71) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__DotReason arg-0 arg-1 arg-2 arg-3 arg-4 e-72) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-73) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IMustUnify") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((19) (let ((e-74 (vector-ref sc0 1))) (let ((e-75 (vector-ref sc0 2))) (let ((e-76 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-74) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__LazyReason arg-0 arg-1 arg-2 arg-3 arg-4 e-75) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-76) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IDelayed") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((20) (let ((e-77 (vector-ref sc0 1))) (let ((e-78 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-77) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-78) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IDelay") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((21) (let ((e-79 (vector-ref sc0 1))) (let ((e-80 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-79) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-80) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IForce") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((22) (let ((e-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-81) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-82) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IQuote") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((23) (let ((e-83 (vector-ref sc0 1))) (let ((e-84 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-83) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-84) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IQuoteName") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((24) (let ((e-85 (vector-ref sc0 1))) (let ((e-86 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-85) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-86) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IQuoteDecl") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((25) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (let ((sc1 e-88)) (case (vector-ref sc1 0) ((0) (let ((e-100 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 e-87 (vector 0 ) e-100)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't reflect an unquote: escapes should be lifted out") eta-0)))))))) ((26) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't reflect a %runelab") eta-0))) ((27) (let ((e-91 (vector-ref sc0 1))) (let ((e-92 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-91) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Constant arg-0 arg-1 arg-2 arg-3 arg-4 e-92) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IPrimVal") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((28) (let ((e-93 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-93) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IType") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((29) (let ((e-94 (vector-ref sc0 1))) (let ((e-95 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-94) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 e-95 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IHole") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((30) (let ((e-98 (vector-ref sc0 3))) (Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-98)))(else (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((31) (lambda (eta-0) (vector 1 (vector 10 arg-1 1))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((31) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Bool arg-0 arg-1 arg-2 arg-3 arg-4 e-1) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Implicit") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) (else (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "WithUnambigNames") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0)))))))))))))))))))))))))))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((31) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Bool arg-0 arg-1 arg-2 arg-3 arg-4 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Implicit") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "WithUnambigNames") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))))))))))))) +(define Reflect-TTImp-reflect_Reflect__RawImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IVar") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((1) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((e-12 (vector-ref sc0 4))) (let ((e-13 (vector-ref sc0 5))) (let ((e-14 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-10) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-11) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-12) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-13) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc5 1))) (let ((act-29 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-14) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc6 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IPi") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-15 (vector 1 e-16 (vector 0 ))))))) eta-0))))))))))))))))))))))))))))))))))))))) ((2) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (let ((e-18 (vector-ref sc0 4))) (let ((e-19 (vector-ref sc0 5))) (let ((e-20 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-16) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-17) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-18) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-19) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-20) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ILam") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 ))))))) eta-0))))))))))))))))))))))))))))))))))))))) ((3) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (let ((e-25 (vector-ref sc0 5))) (let ((e-26 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-21) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-22) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-23) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-24) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-25) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-26) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ILet") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 ))))))) eta-0))))))))))))))))))))))))))))))))))))))) ((4) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((e-30 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-27) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-28) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-29) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__ImpClause vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-30) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ICase") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))) eta-0))))))))))))))))))))))))))) ((5) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-31) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-32) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-33) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ILocal") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((6) (let ((e-38 (vector-ref sc0 5))) (Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-38))) ((7) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-39) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__IFieldUpdate vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-40) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-41) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IUpdate") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((8) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-42) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-43) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-44) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IApp") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((9) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (let ((e-47 (vector-ref sc0 3))) (let ((e-48 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-45) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-46) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-47) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-48) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IImplicitApp") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))) eta-0))))))))))))))))))))))))))) ((10) (let ((e-49 (vector-ref sc0 1))) (let ((e-50 (vector-ref sc0 2))) (let ((e-51 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-49) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-50) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-51) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IWithApp") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((11) (let ((e-52 (vector-ref sc0 1))) (let ((e-53 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-52) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Nat arg-0 arg-1 arg-2 arg-3 arg-4 e-53) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ISearch") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((12) (let ((e-54 (vector-ref sc0 1))) (let ((e-55 (vector-ref sc0 2))) (let ((e-56 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-54) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__AltType arg-0 arg-1 arg-2 arg-3 arg-4 e-55) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-56) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IAlternative") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((13) (let ((e-57 (vector-ref sc0 1))) (let ((e-58 (vector-ref sc0 2))) (let ((e-59 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-57) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-58) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-59) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IRewrite") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((14) (let ((e-61 (vector-ref sc0 2))) (Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-61))) ((15) (let ((e-62 (vector-ref sc0 1))) (let ((e-63 (vector-ref sc0 2))) (let ((e-64 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-62) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__BindMode arg-0 arg-1 arg-2 arg-3 arg-4 e-63) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-64) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IBindHere") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((16) (let ((e-65 (vector-ref sc0 1))) (let ((e-66 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-65) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 e-66 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IBindVar") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((17) (let ((e-67 (vector-ref sc0 1))) (let ((e-68 (vector-ref sc0 2))) (let ((e-69 (vector-ref sc0 3))) (let ((e-70 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-67) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__UseSide arg-0 arg-1 arg-2 arg-3 arg-4 e-68) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-69) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-70) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IAs") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))) eta-0))))))))))))))))))))))))))) ((18) (let ((e-71 (vector-ref sc0 1))) (let ((e-72 (vector-ref sc0 2))) (let ((e-73 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-71) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__DotReason arg-0 arg-1 arg-2 arg-3 arg-4 e-72) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-73) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IMustUnify") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((19) (let ((e-74 (vector-ref sc0 1))) (let ((e-75 (vector-ref sc0 2))) (let ((e-76 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-74) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__LazyReason arg-0 arg-1 arg-2 arg-3 arg-4 e-75) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-76) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IDelayed") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((20) (let ((e-77 (vector-ref sc0 1))) (let ((e-78 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-77) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-78) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IDelay") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((21) (let ((e-79 (vector-ref sc0 1))) (let ((e-80 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-79) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-80) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IForce") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((22) (let ((e-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-81) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-82) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IQuote") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((23) (let ((e-83 (vector-ref sc0 1))) (let ((e-84 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-83) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-84) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IQuoteName") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((24) (let ((e-85 (vector-ref sc0 1))) (let ((e-86 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-85) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-86) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IQuoteDecl") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((25) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (let ((sc1 e-88)) (case (vector-ref sc1 0) ((0) (let ((e-100 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 e-87 (vector 0 ) e-100)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't reflect an unquote: escapes should be lifted out") eta-0)))))))) ((26) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't reflect a %runelab") eta-0))) ((27) (let ((e-91 (vector-ref sc0 1))) (let ((e-92 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-91) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Constant arg-0 arg-1 arg-2 arg-3 arg-4 e-92) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IPrimVal") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((28) (let ((e-93 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-93) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IType") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((29) (let ((e-94 (vector-ref sc0 1))) (let ((e-95 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-94) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 e-95 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IHole") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((30) (let ((e-98 (vector-ref sc0 3))) (Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-98)))(else (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((31) (lambda (eta-0) (vector 1 (vector 10 arg-1 1))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((31) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Bool arg-0 arg-1 arg-2 arg-3 arg-4 e-1) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Implicit") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) (else (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "WithUnambigNames") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0)))))))))))))))))))))))))))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((31) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Bool arg-0 arg-1 arg-2 arg-3 arg-4 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Implicit") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "WithUnambigNames") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))))))))))))) (define Reflect-TTImp-reflect_Reflect__ImpTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "MkTy") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))))) -(define Reflect-TTImp-reflect_Reflect__ImpRecord (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (Reflect-Core-reflect_Reflect__RigCount eta-13 eta-14 eta-15 eta-16 eta-17 eta-18))))))) (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (Reflect-Core-reflect_Reflect__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-19) (lambda (eta-20) (lambda (eta-21) (lambda (eta-22) (lambda (eta-23) (lambda (eta-24) (Reflect-Core-reflect_Reflect__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) eta-19 eta-20 eta-21 eta-22 eta-23 eta-24))))))) (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3349 arg-3350 onLHS arg-3351 arg-3353)))))))) eta-13 eta-14 eta-15 eta-16 eta-17 eta-18)))))))) eta-7 eta-8 eta-9 eta-10 eta-11 eta-12)))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__IField vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "MkRecord") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 0 )))))) eta-0))))))))))))))))))))))))))))))))))) -(define Reflect-TTImp-reflect_Reflect__ImpDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__Visibility arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__FnOpt vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Reflect-TTImp-reflect_Reflect__ImpTy arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IClaim") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 0 )))))) eta-0))))))))))))))))))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-5) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Visibility arg-0 arg-1 arg-2 arg-3 arg-4 e-6) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__ImpData arg-0 arg-1 arg-2 arg-3 arg-4 e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IData") (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 )))) eta-0))))))))))))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__ImpClause vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-10) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IDef") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3349 arg-3350 onLHS arg-3351 arg-3353)))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-12) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-13) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IParameters") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Visibility arg-0 arg-1 arg-2 arg-3 arg-4 e-16) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__ImpRecord arg-0 arg-1 arg-2 arg-3 arg-4 e-17) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IRecord") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((5) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-18) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__String eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-19) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-20) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "INamespace") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((6) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-21) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-22) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-23) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-24) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ITransform") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))) eta-0))))))))))))))))))))))))))) ((7) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "Can't reflect a %runElab") eta-0))) ((8) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "Can't reflect a pragma") eta-0))) (else (let ((e-28 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__Nat arg-0 arg-1 arg-2 arg-3 arg-4 e-28) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ILog") (vector 1 e-5 (vector 0 )) eta-0))))))))))))) -(define Reflect-TTImp-reflect_Reflect__ImpData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__DataOpt vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__ImpTy vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "MkData") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 0 )))))) eta-0))))))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-5) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-6) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "MkLater") (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 )))) eta-0))))))))))))))))))))))))) -(define Reflect-TTImp-reflect_Reflect__ImpClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "PatClause") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-7 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-27 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__ImpClause vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc4 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "WithClause") (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 1 e-11 (vector 0 ))))) eta-0))))))))))))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ImpossibleClause") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))))))) +(define Reflect-TTImp-reflect_Reflect__ImpRecord (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (Reflect-Core-reflect_Reflect__RigCount eta-13 eta-14 eta-15 eta-16 eta-17 eta-18))))))) (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (Reflect-Core-reflect_Reflect__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-19) (lambda (eta-20) (lambda (eta-21) (lambda (eta-22) (lambda (eta-23) (lambda (eta-24) (Reflect-Core-reflect_Reflect__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) eta-19 eta-20 eta-21 eta-22 eta-23 eta-24))))))) (lambda (vars) (lambda (arg-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3357 arg-3358 onLHS arg-3359 arg-3361)))))))) eta-13 eta-14 eta-15 eta-16 eta-17 eta-18)))))))) eta-7 eta-8 eta-9 eta-10 eta-11 eta-12)))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__IField vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "MkRecord") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 0 )))))) eta-0))))))))))))))))))))))))))))))))))) +(define Reflect-TTImp-reflect_Reflect__ImpDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__Visibility arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__FnOpt vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Reflect-TTImp-reflect_Reflect__ImpTy arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IClaim") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 0 )))))) eta-0))))))))))))))))))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-5) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Visibility arg-0 arg-1 arg-2 arg-3 arg-4 e-6) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__ImpData arg-0 arg-1 arg-2 arg-3 arg-4 e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IData") (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 )))) eta-0))))))))))))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__ImpClause vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-10) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IDef") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) (lambda (vars) (lambda (arg-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3357 arg-3358 onLHS arg-3359 arg-3361)))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-12) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-13) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IParameters") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Visibility arg-0 arg-1 arg-2 arg-3 arg-4 e-16) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__ImpRecord arg-0 arg-1 arg-2 arg-3 arg-4 e-17) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IRecord") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((5) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-18) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__String eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-19) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-20) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "INamespace") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((6) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-21) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-22) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-23) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-24) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ITransform") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))) eta-0))))))))))))))))))))))))))) ((7) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "Can't reflect a %runElab") eta-0))) ((8) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "Can't reflect a pragma") eta-0))) (else (let ((e-28 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__Nat arg-0 arg-1 arg-2 arg-3 arg-4 e-28) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ILog") (vector 1 e-5 (vector 0 )) eta-0))))))))))))) +(define Reflect-TTImp-reflect_Reflect__ImpData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__DataOpt vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__ImpTy vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "MkData") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 0 )))))) eta-0))))))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-5) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-6) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "MkLater") (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 )))) eta-0))))))))))))))))))))))))) +(define Reflect-TTImp-reflect_Reflect__ImpClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "PatClause") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-7 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-27 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__ImpClause vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc4 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "WithClause") (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 1 e-11 (vector 0 ))))) eta-0))))))))))))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ImpossibleClause") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))))))) (define Reflect-TTImp-reflect_Reflect__IFieldUpdate (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__String eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ISetField") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__String eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ISetFieldApp") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))))))) -(define Reflect-TTImp-reflect_Reflect__IField (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "MkIField") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 0 )))))) eta-0))))))))))))))))))))))))))))))))))) -(define Reflect-TTImp-reflect_Reflect__FnOpt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Inline") eta-0))) ((1) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "TCInline") eta-0))) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__Bool arg-0 arg-1 arg-2 arg-3 arg-4 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Hint") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((3) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__Bool arg-0 arg-1 arg-2 arg-3 arg-4 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "GlobalHint") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((4) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ExternFn") eta-0))) ((5) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ForeignFn") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((6) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Invertible") eta-0))) ((7) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__TotalReq arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Totality") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((8) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Macro") eta-0))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "SpecArgs") (vector 1 e-5 (vector 0 )) eta-0))))))))))))) +(define Reflect-TTImp-reflect_Reflect__IField (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "MkIField") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 0 )))))) eta-0))))))))))))))))))))))))))))))))))) +(define Reflect-TTImp-reflect_Reflect__FnOpt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Inline") eta-0))) ((1) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "TCInline") eta-0))) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__Bool arg-0 arg-1 arg-2 arg-3 arg-4 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Hint") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((3) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__Bool arg-0 arg-1 arg-2 arg-3 arg-4 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "GlobalHint") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((4) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ExternFn") eta-0))) ((5) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ForeignFn") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((6) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Invertible") eta-0))) ((7) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__TotalReq arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Totality") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((8) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Macro") eta-0))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "SpecArgs") (vector 1 e-5 (vector 0 )) eta-0))))))))))))) (define Reflect-TTImp-reflect_Reflect__DotReason (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "NonLinearVar") eta-0))) ((1) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "VarApplied") eta-0))) ((2) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "NotConstructor") eta-0))) ((3) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ErasedArg") eta-0))) ((4) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "UserDotted") eta-0))) (else (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "UnknownDot") eta-0))))))) (define Reflect-TTImp-reflect_Reflect__DataOpt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "SearchBy") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((1) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "NoHints") eta-0))) ((2) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "UniqueSearch") eta-0))) ((3) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "External") eta-0))) (else (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "NoNewtype") eta-0))))))) (define Reflect-TTImp-reflect_Reflect__BindMode (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "PI") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((1) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "PATTERN") eta-0))) (else (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "NONE") eta-0))))))) @@ -3875,49 +3915,49 @@ (define Reflect-TTImp-__Impl_Reflect_FnOpt (lambda (ext-0 ext-1 ext-2 ext-3 ext-4 ext-5) (Reflect-TTImp-reflect_Reflect__FnOpt ext-0 ext-1 ext-2 ext-3 ext-4 ext-5))) (define Reflect-TTImp-__Impl_Reflect_DataOpt (lambda (ext-0 ext-1 ext-2 ext-3 ext-4 ext-5) (Reflect-TTImp-reflect_Reflect__DataOpt ext-0 ext-1 ext-2 ext-3 ext-4 ext-5))) (define Reflect-TTImp-__Impl_Reflect_AltType (lambda (ext-0 ext-1 ext-2 ext-3 ext-4 ext-5) (Reflect-TTImp-reflect_Reflect__AltType ext-0 ext-1 ext-2 ext-3 ext-4 ext-5))) -(define Reflect-Core-case--10332-8203 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "MkFC") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-Core-reify_Reify__Int vars arg-3328 arg-3329)))) (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-Core-reify_Reify__Int vars arg-3328 arg-3329))))) arg-0 arg-7 e-10) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-Core-reify_Reify__Int vars arg-3328 arg-3329)))) (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-Core-reify_Reify__Int vars arg-3328 arg-3329))))) arg-0 arg-7 e-13) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (vector 1 (vector 0 e-7 e-10 e-13)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0)))))) ((equal? sc3 "EmptyFC") (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0))))))) -(define Reflect-Core-case--10163-8026 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "LInf") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc2 "LLazy") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc2 "LUnknown") (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "LazyReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "LazyReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "LazyReason" eta-0))))))) -(define Reflect-Core-case--9814-7683 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "ImplicitArg") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "ExplicitArg") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc3 "AutoImplicit") (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc3 "DefImplicit") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-2 arg-9 e-11) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((((arg-1 arg-2) arg-9) e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (vector 1 (vector 3 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0))))))) -(define Reflect-Core-case--9634-7485 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "M0") (lambda (eta-0) (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) ((equal? sc2 "M1") (lambda (eta-0) (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) ((equal? sc2 "MW") (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Count" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Count" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Count" eta-0))))))) -(define Reflect-Core-case--9465-7309 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "Total") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc2 "CoveringOnly") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc2 "PartialOK") (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TotalReq" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TotalReq" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TotalReq" eta-0))))))) -(define Reflect-Core-case--9296-7135 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "Private") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc2 "Export") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc2 "Public") (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Visibility" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Visibility" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Visibility" eta-0))))))) -(define Reflect-Core-case--8256-6078 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "I") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__Int arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 0 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "BI") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-13)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-12) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__Integer arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 1 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "B8") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((sc5 e-17)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-16) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__Int arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 2 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "B16") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-21)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__Int arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 3 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "B32") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__Int arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 4 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "B64") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (let ((sc5 e-29)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-28) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__Integer arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 5 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Str") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-32 (vector-ref sc4 1))) (let ((e-33 (vector-ref sc4 2))) (let ((sc5 e-33)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-32) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 6 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Ch") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((sc5 e-37)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-36) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__Char arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 7 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Db") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-40 (vector-ref sc4 1))) (let ((e-41 (vector-ref sc4 2))) (let ((sc5 e-41)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-40) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__Double arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 8 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "WorldVal") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 9 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "IntType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 10 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "IntegerType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 11 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Bits8Type") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 12 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Bits16Type") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 13 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Bits32Type") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 14 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Bits64Type") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 15 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "StringType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 16 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "CharType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 17 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "DoubleType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 18 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "WorldType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 19 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))) -(define Reflect-Core-case--7704-5641 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((9) (lambda (eta-0) (Reflect-Core-cantReflect 'erased arg-5 "Name" eta-0)))(else (Reflect-Core-reflect_Reflect__Name arg-0 arg-5 arg-4 arg-3 arg-2 arg-6)))))) -(define Reflect-Core-case--7344-5155 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "UN") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 1 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))) ((equal? sc3 "MN") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-13)) (case (vector-ref sc5 0) ((1) (let ((e-15 (vector-ref sc5 1))) (let ((e-16 (vector-ref sc5 2))) (let ((sc6 e-16)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-12) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-15) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__Int arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 2 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))) ((equal? sc3 "NS") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-19 (vector-ref sc4 1))) (let ((e-20 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((1) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((sc6 e-23)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-19) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-Core-reify_Reify__String vars arg-3328 arg-3329)))) arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-22) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 0 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))) ((equal? sc3 "DN") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-26 (vector-ref sc4 1))) (let ((e-27 (vector-ref sc4 2))) (let ((sc5 e-27)) (case (vector-ref sc5 0) ((1) (let ((e-29 (vector-ref sc5 1))) (let ((e-30 (vector-ref sc5 2))) (let ((sc6 e-30)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-26) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-29) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 4 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))) ((equal? sc3 "RF") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-33 (vector-ref sc4 1))) (let ((e-34 (vector-ref sc4 2))) (let ((sc5 e-34)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-33) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 5 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))) -(define Reflect-Core-case--7089-4924 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "MkPair") (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-3 arg-13 arg-9) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc3 1))) (((((Builtin-fst 'erased 'erased arg-2) arg-3) arg-13) e-5) eta-0)))))))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-3 arg-13 arg-10) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) (((((Builtin-snd 'erased 'erased arg-2) arg-3) arg-13) e-6) eta-0)))))))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) (vector 1 (vector 0 e-5 e-6))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-12 "Pair" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-12 "Pair" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-12 "Pair" eta-0))))))) -(define Reflect-Core-case--6839-4654 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "Nothing") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "Just") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-2 arg-9 e-11) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((((arg-1 arg-2) arg-9) e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (vector 1 (vector 1 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0))))))) -(define Reflect-Core-case--6556-4364 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "Nil") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "::") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-2 arg-9 e-11) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((((arg-1 arg-2) arg-9) e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-2 arg-9 e-14) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased arg-1 arg-2 arg-9 e-10) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 e-7 e-10))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0))))))) -(define Reflect-Core-case--6358-4152 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "Z") (lambda (eta-0) (vector 1 0))) ((equal? sc3 "S") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__Nat arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (+ 1 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0))))))) -(define Reflect-Core-case--6215-4001 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "True") (lambda (eta-0) (vector 1 0))) ((equal? sc2 "False") (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Bool" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Bool" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Bool" eta-0))))))) -(define Reflect-Core-case--5682-3395 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((5) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased (let ((sc2 arg-2)) (let ((e-0 (vector-ref sc2 1))) e-0)) (vector 1 arg-3 (vector 2 e-2 e-3) arg-1))))) ((6) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased (let ((sc2 arg-2)) (let ((e-0 (vector-ref sc2 1))) e-0)) (vector 1 arg-3 (vector 3 e-5 e-6) arg-1)))))(else (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (vector 1 arg-3 (vector 1 ) arg-1)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-1) eta-0))))))) +(define Reflect-Core-case--10374-8211 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "MkFC") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (vars) (lambda (arg-3336) (lambda (arg-3337) (Reflect-Core-reify_Reify__Int vars arg-3336 arg-3337)))) (lambda (vars) (lambda (arg-3336) (lambda (arg-3337) (Reflect-Core-reify_Reify__Int vars arg-3336 arg-3337))))) arg-0 arg-7 e-10) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (vars) (lambda (arg-3336) (lambda (arg-3337) (Reflect-Core-reify_Reify__Int vars arg-3336 arg-3337)))) (lambda (vars) (lambda (arg-3336) (lambda (arg-3337) (Reflect-Core-reify_Reify__Int vars arg-3336 arg-3337))))) arg-0 arg-7 e-13) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (vector 1 (vector 0 e-7 e-10 e-13)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0)))))) ((equal? sc3 "EmptyFC") (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0))))))) +(define Reflect-Core-case--10205-8034 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "LInf") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc2 "LLazy") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc2 "LUnknown") (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "LazyReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "LazyReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "LazyReason" eta-0))))))) +(define Reflect-Core-case--9856-7691 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "ImplicitArg") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "ExplicitArg") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc3 "AutoImplicit") (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc3 "DefImplicit") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-2 arg-9 e-11) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((((arg-1 arg-2) arg-9) e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (vector 1 (vector 3 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0))))))) +(define Reflect-Core-case--9676-7493 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "M0") (lambda (eta-0) (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) ((equal? sc2 "M1") (lambda (eta-0) (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) ((equal? sc2 "MW") (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Count" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Count" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Count" eta-0))))))) +(define Reflect-Core-case--9507-7317 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "Total") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc2 "CoveringOnly") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc2 "PartialOK") (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TotalReq" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TotalReq" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TotalReq" eta-0))))))) +(define Reflect-Core-case--9338-7143 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "Private") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc2 "Export") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc2 "Public") (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Visibility" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Visibility" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Visibility" eta-0))))))) +(define Reflect-Core-case--8298-6086 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "I") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__Int arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 0 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "BI") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-13)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-12) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__Integer arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 1 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "B8") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((sc5 e-17)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-16) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__Int arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 2 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "B16") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-21)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__Int arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 3 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "B32") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__Int arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 4 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "B64") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (let ((sc5 e-29)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-28) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__Integer arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 5 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Str") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-32 (vector-ref sc4 1))) (let ((e-33 (vector-ref sc4 2))) (let ((sc5 e-33)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-32) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 6 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Ch") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((sc5 e-37)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-36) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__Char arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 7 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Db") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-40 (vector-ref sc4 1))) (let ((e-41 (vector-ref sc4 2))) (let ((sc5 e-41)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-40) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__Double arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 8 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "WorldVal") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 9 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "IntType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 10 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "IntegerType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 11 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Bits8Type") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 12 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Bits16Type") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 13 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Bits32Type") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 14 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Bits64Type") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 15 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "StringType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 16 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "CharType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 17 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "DoubleType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 18 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "WorldType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 19 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))) +(define Reflect-Core-case--7746-5649 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((9) (lambda (eta-0) (Reflect-Core-cantReflect 'erased arg-5 "Name" eta-0)))(else (Reflect-Core-reflect_Reflect__Name arg-0 arg-5 arg-4 arg-3 arg-2 arg-6)))))) +(define Reflect-Core-case--7386-5163 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "UN") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 1 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))) ((equal? sc3 "MN") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-13)) (case (vector-ref sc5 0) ((1) (let ((e-15 (vector-ref sc5 1))) (let ((e-16 (vector-ref sc5 2))) (let ((sc6 e-16)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-12) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-15) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__Int arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 2 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))) ((equal? sc3 "NS") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-19 (vector-ref sc4 1))) (let ((e-20 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((1) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((sc6 e-23)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-19) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3336) (lambda (arg-3337) (Reflect-Core-reify_Reify__String vars arg-3336 arg-3337)))) arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-22) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 0 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))) ((equal? sc3 "DN") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-26 (vector-ref sc4 1))) (let ((e-27 (vector-ref sc4 2))) (let ((sc5 e-27)) (case (vector-ref sc5 0) ((1) (let ((e-29 (vector-ref sc5 1))) (let ((e-30 (vector-ref sc5 2))) (let ((sc6 e-30)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-26) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-29) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 4 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))) ((equal? sc3 "RF") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-33 (vector-ref sc4 1))) (let ((e-34 (vector-ref sc4 2))) (let ((sc5 e-34)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-33) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 5 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))) +(define Reflect-Core-case--7131-4932 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "MkPair") (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-3 arg-13 arg-9) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc3 1))) (((((Builtin-fst 'erased 'erased arg-2) arg-3) arg-13) e-5) eta-0)))))))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-3 arg-13 arg-10) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) (((((Builtin-snd 'erased 'erased arg-2) arg-3) arg-13) e-6) eta-0)))))))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) (vector 1 (vector 0 e-5 e-6))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-12 "Pair" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-12 "Pair" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-12 "Pair" eta-0))))))) +(define Reflect-Core-case--6881-4662 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "Nothing") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "Just") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-2 arg-9 e-11) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((((arg-1 arg-2) arg-9) e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (vector 1 (vector 1 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0))))))) +(define Reflect-Core-case--6598-4372 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "Nil") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "::") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-2 arg-9 e-11) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((((arg-1 arg-2) arg-9) e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-2 arg-9 e-14) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased arg-1 arg-2 arg-9 e-10) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 e-7 e-10))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0))))))) +(define Reflect-Core-case--6400-4160 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "Z") (lambda (eta-0) (vector 1 0))) ((equal? sc3 "S") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__Nat arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (+ 1 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0))))))) +(define Reflect-Core-case--6257-4009 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "True") (lambda (eta-0) (vector 1 0))) ((equal? sc2 "False") (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Bool" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Bool" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Bool" eta-0))))))) +(define Reflect-Core-case--5724-3403 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((5) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased (let ((sc2 arg-2)) (let ((e-0 (vector-ref sc2 1))) e-0)) (vector 1 arg-3 (vector 2 e-2 e-3) arg-1))))) ((6) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased (let ((sc2 arg-2)) (let ((e-0 (vector-ref sc2 1))) e-0)) (vector 1 arg-3 (vector 3 e-5 e-6) arg-1)))))(else (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (vector 1 arg-3 (vector 1 ) arg-1)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-1) eta-0))))))) (define Reflect-Core-reify_Reify__Visibility (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 "Private") (vector 1 (vector 0 ))) ((equal? sc4 "Export") (vector 1 (vector 1 ))) ((equal? sc4 "Public") (vector 1 (vector 2 )))(else (Reflect-Core-cantReify 'erased 'erased val "Visibility" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "Visibility" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "Visibility" eta-0)))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Visibility" eta-0))))))) (define Reflect-Core-reify_Reify__TotalReq (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 "Total") (vector 1 (vector 0 ))) ((equal? sc4 "CoveringOnly") (vector 1 (vector 1 ))) ((equal? sc4 "PartialOK") (vector 1 (vector 2 )))(else (Reflect-Core-cantReify 'erased 'erased val "TotalReq" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "TotalReq" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "TotalReq" eta-0)))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "TotalReq" eta-0))))))) (define Reflect-Core-reify_Reify__String (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-3))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "String" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "String" eta-0))))))) -(define Reflect-Core-reify_Reify__RigCount (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 "M0") (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc4 "M1") (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc4 "MW") (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))(else (Reflect-Core-cantReify 'erased 'erased val "Count" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "Count" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "Count" eta-0)))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Count" eta-0))))))) -(define Reflect-Core-reify_Reify__Nat (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--6358-4152 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Nat" eta-0))))))) -(define Reflect-Core-reify_Reify__Name (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--7344-5155 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Name" eta-0))))))) +(define Reflect-Core-reify_Reify__RigCount (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 "M0") (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc4 "M1") (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc4 "MW") (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))(else (Reflect-Core-cantReify 'erased 'erased val "Count" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "Count" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "Count" eta-0)))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Count" eta-0))))))) +(define Reflect-Core-reify_Reify__Nat (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--6400-4160 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Nat" eta-0))))))) +(define Reflect-Core-reify_Reify__Name (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--7386-5163 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Name" eta-0))))))) (define Reflect-Core-reify_Reify__LazyReason (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 "LInf") (vector 1 (vector 0 ))) ((equal? sc4 "LLazy") (vector 1 (vector 1 ))) ((equal? sc4 "LUnknown") (vector 1 (vector 2 )))(else (Reflect-Core-cantReify 'erased 'erased val "LazyReason" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "LazyReason" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "LazyReason" eta-0)))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "LazyReason" eta-0))))))) (define Reflect-Core-reify_Reify__Integer (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-3))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Integer" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Integer" eta-0))))))) (define Reflect-Core-reify_Reify__Int (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-3))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Int" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Int" eta-0))))))) -(define Reflect-Core-reify_Reify__FC (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--10332-8203 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "FC" eta-0))))))) +(define Reflect-Core-reify_Reify__FC (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--10374-8211 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "FC" eta-0))))))) (define Reflect-Core-reify_Reify__Double (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-3))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Double" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Double" eta-0))))))) -(define Reflect-Core-reify_Reify__Constant (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--8256-6078 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Constant" eta-0))))))) +(define Reflect-Core-reify_Reify__Constant (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--8298-6086 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Constant" eta-0))))))) (define Reflect-Core-reify_Reify__Char (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((7) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-3))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Char" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Char" eta-0))))))) (define Reflect-Core-reify_Reify__Bool (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 "True") (vector 1 0)) ((equal? sc4 "False") (vector 1 1))(else (Reflect-Core-cantReify 'erased 'erased val "Bool" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "Bool" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "Bool" eta-0)))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Bool" eta-0))))))) (define Reflect-Core-reify_Reify__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((1) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((1) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((sc5 e-17)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc6 arg-4)) (let ((e-0 (vector-ref sc6 1))) e-0)) e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 (vector 1 e-7 (vector 1 e-10 (vector 1 e-13 (vector 1 e-16 (vector 0 )))))))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-12 (vector-ref sc8 1))) (let ((sc9 e-12)) (cond ((equal? sc9 "MkPair") (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-3 arg-4 e-13) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc10 1))) (((((Builtin-fst 'erased 'erased arg-2) arg-3) arg-4) e-15) eta-0)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-3 arg-4 e-16) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (((((Builtin-snd 'erased 'erased arg-2) arg-3) arg-4) e-18) eta-0)))))))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (vector 0 e-15 e-18)))))))))))))(else (Reflect-Core-cantReify 'erased 'erased val "Pair" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "Pair" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "Pair" eta-0))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-5 "Pair" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-5 "Pair" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-5 "Pair" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-5 "Pair" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-5 "Pair" eta-0)))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-5 "Pair" eta-0))))))) -(define Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--9814-7683 'erased arg-1 arg-2 e-1 e-3 e-4 e-5 e-2 val arg-3 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-4 "PiInfo" eta-0))))))) -(define Reflect-Core-reify_Reify__C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--6839-4654 'erased arg-1 arg-2 e-1 e-3 e-4 e-5 e-2 val arg-3 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-4 "Maybe" eta-0))))))) -(define Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--6556-4364 'erased arg-1 arg-2 e-1 e-3 e-4 e-5 e-2 val arg-3 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-4 "List" eta-0))))))) +(define Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--9856-7691 'erased arg-1 arg-2 e-1 e-3 e-4 e-5 e-2 val arg-3 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-4 "PiInfo" eta-0))))))) +(define Reflect-Core-reify_Reify__C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--6881-4662 'erased arg-1 arg-2 e-1 e-3 e-4 e-5 e-2 val arg-3 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-4 "Maybe" eta-0))))))) +(define Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--6598-4372 'erased arg-1 arg-2 e-1 e-3 e-4 e-5 e-2 val arg-3 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-4 "List" eta-0))))))) (define Reflect-Core-reflect_Reflect__Visibility (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Private") eta-0))) ((1) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Export") eta-0))) (else (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Public") eta-0))))))) (define Reflect-Core-reflect_Reflect__TotalReq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Total") eta-0))) ((1) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "CoveringOnly") eta-0))) (else (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "PartialOK") eta-0))))))) (define Reflect-Core-reflect_Reflect__String (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (vector 1 (vector 9 arg-1 (vector 6 arg-5))))) -(define Reflect-Core-reflect_Reflect__RigCount (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "M0") eta-0)) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "M1") eta-0)) (lambda (eta-0) (lambda (eta-1) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "MW") eta-1))) arg-5))) +(define Reflect-Core-reflect_Reflect__RigCount (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "M0") eta-0)) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "M1") eta-0)) (lambda (eta-0) (lambda (eta-1) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "MW") eta-1))) arg-5))) (define Reflect-Core-reflect_Reflect__Nat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-prelude "Z") eta-0)))(else (let ((e-0 (- arg-5 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__Nat arg-0 arg-1 arg-2 arg-3 arg-4 e-0) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-prelude "S") (vector 1 e-5 (vector 0 )) eta-0))))))))))))) -(define Reflect-Core-reflect_Reflect__Name (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 e-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "UN") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Reflect-Core-reflect_Reflect__Int arg-0 arg-1 arg-2 arg-3 arg-4 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "MN") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((0) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (lambda (eta-1) (Reflect-Core-reflect_Reflect__String vars arg-3349 arg-3350 onLHS arg-3351 arg-3353 eta-1)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "NS") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((4) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 e-5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-6) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "DN") (vector 1 e-7 (vector 1 e-8 (vector 0 ))) eta-0))))))))))))))) ((5) (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 e-7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "RF") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((9) (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (vector 9 e-8)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((9) (Reflect-Core-cantReflect 'erased arg-1 "Name" eta-0))(else ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-5) eta-0))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReflect 'erased arg-1 "Name" eta-0))))))) +(define Reflect-Core-reflect_Reflect__Name (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 e-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "UN") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Reflect-Core-reflect_Reflect__Int arg-0 arg-1 arg-2 arg-3 arg-4 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "MN") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((0) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (lambda (eta-1) (Reflect-Core-reflect_Reflect__String vars arg-3357 arg-3358 onLHS arg-3359 arg-3361 eta-1)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "NS") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((4) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 e-5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-6) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "DN") (vector 1 e-7 (vector 1 e-8 (vector 0 ))) eta-0))))))))))))))) ((5) (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 e-7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "RF") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((9) (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (vector 9 e-8)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((9) (Reflect-Core-cantReflect 'erased arg-1 "Name" eta-0))(else ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-5) eta-0))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReflect 'erased arg-1 "Name" eta-0))))))) (define Reflect-Core-reflect_Reflect__LazyReason (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "LInf") eta-0))) ((1) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "LLazy") eta-0))) (else (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "LUnknown") eta-0))))))) (define Reflect-Core-reflect_Reflect__Integer (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (vector 1 (vector 9 arg-1 (vector 1 arg-5))))) (define Reflect-Core-reflect_Reflect__Int (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (vector 1 (vector 9 arg-1 (vector 0 arg-5))))) -(define Reflect-Core-reflect_Reflect__FC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 10 arg-1 1))))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 e-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (lambda (eta-1) (Reflect-Core-reflect_Reflect__Int vars arg-3349 arg-3350 onLHS arg-3351 arg-3353 eta-1)))))))) (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (lambda (eta-1) (Reflect-Core-reflect_Reflect__Int vars arg-3349 arg-3350 onLHS arg-3351 arg-3353 eta-1))))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (lambda (eta-1) (Reflect-Core-reflect_Reflect__Int vars arg-3349 arg-3350 onLHS arg-3351 arg-3353 eta-1)))))))) (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (lambda (eta-1) (Reflect-Core-reflect_Reflect__Int vars arg-3349 arg-3350 onLHS arg-3351 arg-3353 eta-1))))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "MkFC") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) (else (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "EmptyFC") eta-0)))))))))) +(define Reflect-Core-reflect_Reflect__FC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 10 arg-1 1))))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 e-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (vars) (lambda (arg-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (lambda (eta-1) (Reflect-Core-reflect_Reflect__Int vars arg-3357 arg-3358 onLHS arg-3359 arg-3361 eta-1)))))))) (lambda (vars) (lambda (arg-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (lambda (eta-1) (Reflect-Core-reflect_Reflect__Int vars arg-3357 arg-3358 onLHS arg-3359 arg-3361 eta-1))))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (vars) (lambda (arg-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (lambda (eta-1) (Reflect-Core-reflect_Reflect__Int vars arg-3357 arg-3358 onLHS arg-3359 arg-3361 eta-1)))))))) (lambda (vars) (lambda (arg-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (lambda (eta-1) (Reflect-Core-reflect_Reflect__Int vars arg-3357 arg-3358 onLHS arg-3359 arg-3361 eta-1))))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "MkFC") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) (else (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "EmptyFC") eta-0)))))))))) (define Reflect-Core-reflect_Reflect__Double (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (vector 1 (vector 9 arg-1 (vector 8 arg-5))))) (define Reflect-Core-reflect_Reflect__Constant (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__Int arg-0 arg-1 arg-2 arg-3 arg-4 e-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "I") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__Integer arg-0 arg-1 arg-2 arg-3 arg-4 e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "BI") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__Int arg-0 arg-1 arg-2 arg-3 arg-4 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "B8") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__Int arg-0 arg-1 arg-2 arg-3 arg-4 e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "B16") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__Int arg-0 arg-1 arg-2 arg-3 arg-4 e-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "B32") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((5) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__Integer arg-0 arg-1 arg-2 arg-3 arg-4 e-5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "B64") (vector 1 e-6 (vector 0 )) eta-0))))))))) ((6) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 e-6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Str") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((7) (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__Char arg-0 arg-1 arg-2 arg-3 arg-4 e-7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Ch") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((8) (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__Double arg-0 arg-1 arg-2 arg-3 arg-4 e-8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Db") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((9) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "WorldVal") eta-0))) ((10) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "IntType") eta-0))) ((11) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "IntegerType") eta-0))) ((12) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Bits8Type") eta-0))) ((13) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Bits16Type") eta-0))) ((14) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Bits32Type") eta-0))) ((15) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Bits64Type") eta-0))) ((16) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "StringType") eta-0))) ((17) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "CharType") eta-0))) ((18) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "DoubleType") eta-0))) (else (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "WorldType") eta-0))))))) (define Reflect-Core-reflect_Reflect__Char (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (vector 1 (vector 9 arg-1 (vector 7 arg-5))))) @@ -3956,114 +3996,116 @@ (define Reflect-Core-cantReflect (lambda (arg-0 arg-1 arg-2 ext-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 (Strings-Prelude-C-43C-43 "Can't reflect as " arg-2)) ext-0))) (define Reflect-Core-builtin (lambda (arg-0) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 arg-0)))) (define Reflect-Core-appCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Reflect-Core-getCon arg-0 arg-1 arg-2 arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (TT-Core-apply 'erased arg-1 e-5 arg-4)) ext-0)))))))) -(define RunElab-Elab-TTImp-case--12616-9617 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-11))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) e-5 arg-4 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-11 arg-10 arg-9 arg-3 arg-5 arg-4 e-6 (vector 1 (Normalise-Core-gnf arg-0 arg-4 arg-12))) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-11))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-clearDefs e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 e-8 arg-4 e-6 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 e-9 (Normalise-Core-gnf arg-0 arg-4 arg-12))))))))))))))))))))))))))))))))) -(define RunElab-Elab-TTImp-case--11073-9401 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-3)) (cond ((equal? sc2 "Reflection") (let ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-6)) (cond ((equal? sc4 "Language") (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((1) (let ((e-9 (vector-ref sc6 1))) (RunElab-Elab-TTImp-n--11073-8056-elabCon arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-9 arg-1)))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))) -(define RunElab-Elab-TTImp-case--11097-9232 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8055-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-8 eta-0))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-16) " is not a type")) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-16) " is not a type")) eta-0))))))) -(define RunElab-Elab-TTImp-case--11097-9100 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((binder (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (TT-Core-weaken_Weaken__Term n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (TT-Core-weakenNs_Weaken__Term vars ns arg-3271))))) arg-0 e-4 'erased arg-7))) (let ((bty (TT-Core-binderType 'erased binder))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabUniqueBinders arg-0 arg-12 arg-7 bty eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (RunElab-Elab-TTImp-n--11073-8055-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-TTImp-reflect_Reflect__RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-6 eta-0)))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-16) " is not a local variable")) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-16) " is not a local variable")) eta-0))))))) -(define RunElab-Elab-TTImp-case--11097-8843 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Unelab-TTImp-unelabUniqueBinders arg-0 arg-12 arg-7 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (RunElab-Elab-TTImp-n--11073-8055-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-TTImp-reflect_Reflect__RawImp eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) (vector 1 e-6) eta-0)))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-TTImp-reflect_Reflect__RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-9 arg-13 1 arg-7 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) arg-13 arg-7 e-5) eta-0)))))))))))) -(define RunElab-Elab-TTImp-case--11097-8669 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-12 arg-10 "x" eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-4 arg-16) (Normalise-Core-toClosure 'erased (Value-Core-withAll) arg-7 (vector 1 e-1 (vector 0 ) e-5))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-7 e-9 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (let ((lamsc (TT-Core-refToLocal 'erased e-5 e-2 e-10))) (let ((act-27 ((RunElab-Elab-TTImp-n--11097-8631-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-7) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-7 e-8 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) (let ((envC-39 (vector 1 (vector 0 e-6 e-11 e-12) arg-7))) (let ((act-29 (let ((act-29 ((Normalise-Core-nf (vector 1 e-2 arg-0) arg-16 envC-39 lamsc) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) ((RunElab-Elab-TTImp-elabScript (vector 1 e-2 arg-0) arg-12 arg-11 arg-10 arg-9 (TTImp-TTImp-weaken_Weaken__NestedNames e-2 arg-0 arg-8) envC-39 e-13 (vector 0 )) eta-0)))))))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-30 (Normalise-Core-quote_Quote__NF (vector 1 e-2 arg-0) arg-17 envC-39 e-13 eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) ((Normalise-Core-nf arg-0 arg-17 arg-7 (vector 3 e-1 e-2 (vector 0 e-6 e-11 e-12) e-14)) eta-0)))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Not a lambda") eta-0))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Not a lambda") eta-0))))))) -(define RunElab-Elab-TTImp-case--11097-8516 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-15 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Normalise-Core-nf arg-0 e-5 arg-7 e-2) eta-0))))))))))) -(define RunElab-Elab-TTImp-case--11097-8180 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-17 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-7 arg-18 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 (((e-4 arg-17) (Normalise-Core-toClosure 'erased (Value-Core-withAll) arg-7 e-9)) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 e-10 arg-6) eta-0))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-17 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-17 eta-0))))))) -(define RunElab-Elab-TTImp-n--11097-9005-unelabType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabUniqueBinders (vector 0 ) arg-12 (vector 0 ) e-7 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 e-2 e-5))))))))))))))) -(define RunElab-Elab-TTImp-n--11073-8055-scriptRet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (((((((arg-14 arg-0) arg-9) e-5) 1) arg-7) arg-15) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) e-5 arg-7 e-6) ext-0))))))))))))) -(define RunElab-Elab-TTImp-n--11097-8631-quotePi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Can't add default lambda") eta-0))))))) -(define RunElab-Elab-TTImp-n--12616-9515-mkExpected (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 e-5))))))))) (else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-11 arg-9 "scriptTy" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Check-Elab-TTImp-metaVar arg-0 arg-11 arg-9 arg-3 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 e-5 (vector 11 arg-3) eta-0)))))))))))) -(define RunElab-Elab-TTImp-n--11073-8054-failWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-7 (vector 2 arg-5 arg-4 arg-3 arg-2 arg-1) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 46 arg-0 arg-9 arg-7 e-7) ext-0)))))))))))))))))) -(define RunElab-Elab-TTImp-n--11073-8056-elabCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-14)) (cond ((equal? sc0 "Pure") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-13 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) ((Normalise-Core-evalClosure arg-0 e-6 e-4) eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "Bind") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 2))) (let ((sc3 e-12)) (case (vector-ref sc3 0) ((1) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((e-17 (vector-ref sc4 1))) (let ((e-18 (vector-ref sc4 2))) (let ((sc5 e-18)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-14) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 e-5 arg-6) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-13 e-17) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 3))) (let ((e-4 (vector-ref sc8 4))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((act-26 (Context-Core-clearDefs arg-13 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-16 (vector-ref sc10 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc10 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-16 arg-7 e-5 eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-19 (vector-ref sc11 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc11 1))) (let ((act-28 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-withAll) arg-7 e-19)) eta-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-20 (vector-ref sc12 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc12 1))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 e-20 arg-6) eta-0)))))))))))))))))(else (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))))(else (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "Fail") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-22 (vector-ref sc1 2))) (let ((sc2 e-22)) (case (vector-ref sc2 0) ((1) (let ((e-24 (vector-ref sc2 1))) (let ((e-25 (vector-ref sc2 2))) (let ((sc3 e-25)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-24) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-5) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 "Error during reflection: " e-6)) eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "LogMsg") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (let ((sc2 e-29)) (case (vector-ref sc2 0) ((1) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((sc3 e-32)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-28) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 ((Reflect-Core-reify_Reify__Nat arg-0 arg-13 e-5) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (Context-Core-logC arg-12 e-6 (lambda (eta-1) (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-13 e-31) eta-1))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-7) eta-1))))))) eta-0)))))))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (RunElab-Elab-TTImp-n--11073-8055-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__C-40C-124UnitC-44MkUnitC-124C-41 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) (vector 0 ) eta-0))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "LogTerm") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-35 (vector-ref sc1 1))) (let ((e-36 (vector-ref sc1 2))) (let ((sc2 e-36)) (case (vector-ref sc2 0) ((1) (let ((e-38 (vector-ref sc2 1))) (let ((e-39 (vector-ref sc2 2))) (let ((sc3 e-39)) (case (vector-ref sc3 0) ((1) (let ((e-41 (vector-ref sc3 1))) (let ((e-42 (vector-ref sc3 2))) (let ((sc4 e-42)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-35) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (let ((act-25 ((Reflect-Core-reify_Reify__Nat arg-0 arg-13 e-5) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (Context-Core-logC arg-12 e-6 (lambda (eta-1) (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-13 e-38) eta-1))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-13 e-41) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (let ((act-28 ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-7) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-29 ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-13 e-8) eta-1))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc10 1))) (vector 1 (Strings-Prelude-C-43C-43 e-9 (Strings-Prelude-C-43C-43 ": " (TTImp-TTImp-show_Show__RawImp e-10))))))))))))))))))))))))) eta-0)))))))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (RunElab-Elab-TTImp-n--11073-8055-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__C-40C-124UnitC-44MkUnitC-124C-41 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) (vector 0 ) eta-0))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "Check") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-45 (vector-ref sc1 1))) (let ((e-46 (vector-ref sc1 2))) (let ((sc2 e-46)) (case (vector-ref sc2 0) ((1) (let ((e-48 (vector-ref sc2 1))) (let ((e-49 (vector-ref sc2 2))) (let ((sc3 e-49)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-45) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-13 e-48) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 ((Context-Core-resolveName arg-12 (vector 1 "[elaborator script]")) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "TTImp.Elab.Check.EST" ) (Check-Elab-TTImp-initEState arg-0 e-7 arg-7) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (let ((act-28 (let ((act-28 ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-13 e-6) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc8 1))) (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-12 arg-11 arg-10 e-8 0 (Check-Elab-TTImp-check arg-0 arg-12 arg-11 arg-10 e-8 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (Check-Elab-TTImp-initElabInfo (vector 2 )) arg-8 arg-7 e-9 (vector 1 (Normalise-Core-glueBack arg-0 arg-13 arg-7 e-5))) eta-0)))))))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (let ((e-2 (vector-ref sc9 1))) (let ((act-29 (Context-Core-clearDefs arg-13 eta-0))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc10 1))) ((Normalise-Core-nf arg-0 e-10 arg-7 e-2) eta-0)))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "Quote") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-53 (vector-ref sc1 2))) (let ((sc2 e-53)) (case (vector-ref sc2 0) ((1) (let ((e-55 (vector-ref sc2 1))) (let ((e-56 (vector-ref sc2 2))) (let ((sc3 e-56)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-55) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (unbox arg-12))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-clearDefs e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-7 e-5 eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (let ((act-28 (Unelab-TTImp-unelabUniqueBinders arg-0 arg-12 arg-7 e-8 eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc8 1))) (RunElab-Elab-TTImp-n--11073-8055-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-TTImp-reflect_Reflect__RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-9 eta-0))))))))))))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "Lambda") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-59 (vector-ref sc1 1))) (let ((e-60 (vector-ref sc1 2))) (let ((sc2 e-60)) (case (vector-ref sc2 0) ((1) (let ((e-62 (vector-ref sc2 1))) (let ((e-63 (vector-ref sc2 2))) (let ((sc3 e-63)) (case (vector-ref sc3 0) ((1) (let ((e-65 (vector-ref sc3 1))) (let ((e-66 (vector-ref sc3 2))) (let ((sc4 e-66)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-13 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-13 e-65) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((e-3 (vector-ref sc7 3))) (let ((e-4 (vector-ref sc7 4))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (let ((e-7 (vector-ref sc8 2))) (let ((e-8 (vector-ref sc8 3))) (let ((act-26 (UnifyState-Core-genVarName arg-12 arg-10 "x" eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-27 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-withAll) arg-7 (vector 1 e-1 (vector 0 ) e-10))) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-7 e-11 eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc11 1))) (let ((lamsc (TT-Core-refToLocal 'erased e-10 e-2 e-12))) (let ((act-29 ((RunElab-Elab-TTImp-n--11097-8631-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-62 e-59 e-65 arg-13 e-7) eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) (let ((act-30 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-7 e-8 eta-0))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-14 (vector-ref sc13 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc13 1))) (let ((envC-39 (vector 1 (vector 0 e-9 e-13 e-14) arg-7))) (let ((act-31 (let ((act-31 ((Normalise-Core-nf (vector 1 e-2 arg-0) arg-13 envC-39 lamsc) eta-0))) (let ((sc14 act-31)) (case (vector-ref sc14 0) ((0) (let ((e-15 (vector-ref sc14 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc14 1))) ((RunElab-Elab-TTImp-elabScript (vector 1 e-2 arg-0) arg-12 arg-11 arg-10 arg-9 (TTImp-TTImp-weaken_Weaken__NestedNames e-2 arg-0 arg-8) envC-39 e-15 (vector 0 )) eta-0)))))))) (let ((sc14 act-31)) (case (vector-ref sc14 0) ((0) (let ((e-15 (vector-ref sc14 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc14 1))) (let ((act-32 (Normalise-Core-quote_Quote__NF (vector 1 e-2 arg-0) e-5 envC-39 e-15 eta-0))) (let ((sc15 act-32)) (case (vector-ref sc15 0) ((0) (let ((e-16 (vector-ref sc15 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc15 1))) ((Normalise-Core-nf arg-0 e-5 arg-7 (vector 3 e-1 e-2 (vector 0 e-9 e-13 e-14) e-16)) eta-0))))))))))))))))))))))))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Not a lambda") eta-0)))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Not a lambda") eta-0))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "Goal") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-1) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Unelab-TTImp-unelabUniqueBinders arg-0 arg-12 arg-7 e-5 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (RunElab-Elab-TTImp-n--11073-8055-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-TTImp-reflect_Reflect__RawImp eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) (vector 1 e-6) eta-0)))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-TTImp-reflect_Reflect__RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-9 arg-13 1 arg-7 (vector 0 )) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) arg-13 arg-7 e-5) eta-0)))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "LocalVars") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8055-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 eta-0)))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "GenSym") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-71 (vector-ref sc1 1))) (let ((e-72 (vector-ref sc1 2))) (let ((sc2 e-72)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-71) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (UnifyState-Core-genVarName arg-12 arg-10 e-6 eta-0)))))))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (RunElab-Elab-TTImp-n--11073-8055-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-6 eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "InCurrentNS") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-75 (vector-ref sc1 1))) (let ((e-76 (vector-ref sc1 2))) (let ((sc2 e-76)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-75) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 ((Reflect-Core-reify_Reify__Name arg-0 arg-13 e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) ((Context-Core-inCurrentNS arg-12 e-6) eta-0)))))))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (RunElab-Elab-TTImp-n--11073-8055-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-6 eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "GetType") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-79 (vector-ref sc1 1))) (let ((e-80 (vector-ref sc1 2))) (let ((sc2 e-80)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-79) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 ((Reflect-Core-reify_Reify__Name arg-0 arg-13 e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (Context-Core-lookupTyName e-6 (let ((sc5 arg-13)) (let ((e-0 (vector-ref sc5 1))) e-0)) eta-0)))))))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (RunElab-Elab-TTImp-n--11097-9005-unelabType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-79 arg-13 eta-1)) e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (RunElab-Elab-TTImp-n--11073-8055-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (Reflect-Core-reflect_Reflect__Name eta-13 eta-14 eta-15 eta-16 eta-17 eta-18))))))) (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (Reflect-TTImp-reflect_Reflect__RawImp eta-13 eta-14 eta-15 eta-16 eta-17 eta-18)))))))) eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-7 eta-0))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "GetLocalType") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-83 (vector-ref sc1 1))) (let ((e-84 (vector-ref sc1 2))) (let ((sc2 e-84)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-83) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Reflect-Core-reify_Reify__Name arg-0 arg-13 e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) ((RunElab-Elab-TTImp-case--11097-9100 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-83 arg-13 e-5 e-6 (Env-Core-defined arg-0 e-6 arg-7)) eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "GetCons") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-87 (vector-ref sc1 1))) (let ((e-88 (vector-ref sc1 2))) (let ((sc2 e-88)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-87) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Reflect-Core-reify_Reify__Name arg-0 arg-13 e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-lookupDefExact e-6 (let ((sc5 arg-13)) (let ((e-0 (vector-ref sc5 1))) e-0)) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((sc7 e-1)) (case (vector-ref sc7 0) ((6) (let ((e-8 (vector-ref sc7 7))) (RunElab-Elab-TTImp-n--11073-8055-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-8 eta-0)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) " is not a type")) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) " is not a type")) eta-0)))))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "Declare") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-91 (vector-ref sc1 1))) (let ((e-92 (vector-ref sc1 2))) (let ((sc2 e-92)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-91) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-TTImp-reify_Reify__ImpDecl eta-1 eta-2 eta-3)))) arg-0 arg-13 e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl (vector 0 ) arg-12 arg-11 arg-10 (vector 0 ) (vector 0 ) (vector 0 ) eta-1)) e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (RunElab-Elab-TTImp-n--11073-8055-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__C-40C-124UnitC-44MkUnitC-124C-41 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) (vector 0 ) eta-0)))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))) -(define RunElab-Elab-TTImp-elabScript (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-0)) (case (vector-ref sc4 0) ((1) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-10)) (cond ((equal? sc5 "Reflection") (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 e-12)) (cond ((equal? sc7 "Language") (let ((sc8 e-11)) (case (vector-ref sc8 0) ((0) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((1) (let ((e-13 (vector-ref sc9 1))) ((RunElab-Elab-TTImp-n--11073-8056-elabCon arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 e-13 e-5) eta-0)))(else (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased e-6 eta-0)))))(else (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased e-6 eta-0)))))(else (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased e-6 eta-0)))))))(else (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased e-6 eta-0)))))(else (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased e-6 eta-0)))))))(else (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased e-6 eta-0)))))))(else (RunElab-Elab-TTImp-n--11073-8054-failWith arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased e-6 eta-0)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-6 arg-7 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 46 arg-0 arg-4 arg-6 e-7) eta-0)))))))))))))))))))))) -(define RunElab-Elab-TTImp-checkRunElab (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 ((RunElab-Elab-TTImp-n--12616-9515-mkExpected arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-11) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((sc2 (Prelude-not (Context-Core-isExtension (vector 0 ) e-6)))) (cond ((equal? sc2 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "%language ElabReflection not enabled") ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((n (vector 0 (vector 1 "Reflection" (vector 1 "Language" (vector 0 ))) (vector 1 "Elab")))) (let ((act-27 (Reflect-Core-appCon arg-0 arg-9 e-6 n (vector 1 e-5 (vector 0 )) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 0 (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-8))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (let ((e-2 (vector-ref sc5 1))) (let ((act-29 (let ((act-29 (unbox arg-1))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((act-30 ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) e-10 arg-8 e-2) ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-1 arg-2 arg-3 arg-9 arg-7 arg-8 e-11 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-5))) ext-0)))))))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Context-Core-clearDefs e-12 ext-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 (Normalise-Core-quote_Quote__NF arg-0 e-13 arg-8 e-11 ext-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-14 (Normalise-Core-gnf arg-0 arg-8 e-5))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Delayed-Elab-TTImp-case--11352-8350 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9))))))))))))) -(define Delayed-Elab-TTImp-case--11352-8306 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-12)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-9 e-9))))))))))))) -(define Delayed-Elab-TTImp-case--11352-8254 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (List-Prelude-C-43C-43 'erased e-8 arg-9) e-9)))))))))))))) -(define Delayed-Elab-TTImp-case--10818-7990 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9))))))))))))) -(define Delayed-Elab-TTImp-case--11023-7860 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-13 eta-0))) (else (Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-10 arg-9 arg-8 arg-7 arg-15 (vector 1 arg-4 arg-6) arg-5)))))) -(define Delayed-Elab-TTImp-case--10818-7822 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Delayed-Elab-TTImp-recoverable arg-11 arg-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((errmode (vector 0 ))) ((Delayed-Elab-TTImp-case--11023-7860 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 errmode e-5 (Prelude-not e-5)) eta-0))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-14 eta-0))))))) -(define Delayed-Elab-TTImp-case--10764-7611 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((11) (lambda (eta-0) (Check-Elab-TTImp-handle 'erased arg-0 arg-11 arg-10 arg-9 arg-8 (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((Context-Core-getFullName arg-11 (vector 9 arg-2)) eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (let ((sc4 e-5)) (let ((e-10 (vector-ref sc4 10))) e-10))) (Strings-Prelude-C-43C-43 ": Retrying delayed hole " (Name-Core-show_Show__Name e-6)))) eta-1)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (unbox arg-9))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 (set-box! arg-9 (let ((sc5 e-7)) (let ((e-0 (vector-ref sc5 1))) (let ((e-13 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-12 (vector-ref sc5 6))) (let ((e-11 (vector-ref sc5 7))) (let ((e-10 (vector-ref sc5 8))) (let ((e-9 (vector-ref sc5 10))) (vector 0 e-0 e-13 e-2 e-3 e-4 e-12 e-11 e-10 (vector 0 ) e-9)))))))))))))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-28 (arg-3 eta-1))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (let ((act-29 (unbox arg-9))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) (let ((dsC-39 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased (let ((sc8 e-10)) (let ((e-12 (vector-ref sc8 9))) e-12))) arg-5))) (let ((act-30 (Context-Core-updateDef arg-11 (vector 9 arg-2) (lambda (eta-2) (vector 1 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 e-9) (vector 1 0 e-9) (vector 0 )))) eta-1))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-31 (Context-Core-logTerm (vector 0 ) arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved delayed hole " (Prelude-show_Show__Int arg-2))) e-9 eta-1))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((act-32 (Normalise-Core-logTermNF (vector 0 ) arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved delayed hole NF " (Prelude-show_Show__Int arg-2))) (vector 0 ) e-9 eta-1))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-33 (UnifyState-Core-removeHole arg-9 arg-2 eta-1))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 dsC-39) eta-1))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-11 (vector 9 arg-2)) eta-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Delayed-Elab-TTImp-show_Show__RetryError arg-7) (Strings-Prelude-C-43C-43 ":Error in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 "\u000a" (Core-Core-show_Show__Error err)))))) eta-1)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((_-0 (vector 1 (vector 11 )))) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((act-25 ((Delayed-Elab-TTImp-recoverable arg-11 err) eta-1))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((errmode (vector 0 ))) ((Delayed-Elab-TTImp-case--11023-7860 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12 _-0 err e-5 errmode e-6 (Prelude-not e-6)) eta-1)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))))) eta-0)))(else (Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5))))))(else (Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5)))))) -(define Delayed-Elab-TTImp-case--10363-7302 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (Delayed-Elab-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-7 arg-9))))))) -(define Delayed-Elab-TTImp-case--10363-7220 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (Delayed-Elab-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-3 arg-7))))))) -(define Delayed-Elab-TTImp-case--10075-7050 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (Delayed-Elab-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-7 arg-9))))))) -(define Delayed-Elab-TTImp-case--10075-6968 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (Delayed-Elab-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-5 arg-8))))))) -(define Delayed-Elab-TTImp-case--9849-6833 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 (vector 0 arg-2 (vector 0 arg-14 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-6 arg-4 arg-1))) e-8) e-9)))))))))))))) -(define Delayed-Elab-TTImp-case--9767-6745 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logGlueNF arg-0 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Postponing elaborator " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) " for"))) arg-4 arg-13 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (unbox arg-8))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (set-box! arg-8 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-10 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (vector 0 e-0 e-1 e-13 e-12 e-4 e-11 e-10 e-7 (vector 1 (vector 0 arg-2 (vector 0 e-2 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-6 arg-4 arg-1))) e-8) e-9))))))))))))))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 arg-13))))))))))))))))))))) -(define Delayed-Elab-TTImp-case--9525-6562 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 (vector 0 arg-2 (vector 0 arg-16 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-7 arg-5 (lambda (eta-0) (Delayed-Elab-TTImp-deeper 'erased 'erased arg-8 (arg-1 0) eta-0))))) e-8) e-9)))))))))))))) -(define Delayed-Elab-TTImp-case--9454-6447 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logGlueNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Postponing elaborator " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-15) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-7) " for"))))) arg-5 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Due to error " (Core-Core-show_Show__Error arg-13))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (unbox arg-9))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (set-box! arg-9 (let ((sc4 e-7)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-14 (vector-ref sc4 3))) (let ((e-13 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-12 (vector-ref sc4 6))) (let ((e-11 (vector-ref sc4 7))) (let ((e-10 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-12 e-11 e-10 (vector 1 (vector 0 arg-2 (vector 0 e-2 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-7 arg-5 (lambda (eta-1) (Delayed-Elab-TTImp-deeper 'erased 'erased arg-8 (arg-1 0) eta-1))))) e-8) e-9))))))))))))))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 arg-4))))))))))))))))))))))))) -(define Delayed-Elab-TTImp-case--9409-6386 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-11 arg-9 "delayed" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-getTerm 'erased arg-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((UnifyState-Core-newDelayed arg-0 arg-9 arg-11 arg-7 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 e-5 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-26 (Normalise-Core-logGlueNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Postponing elaborator " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-7) " for"))))) arg-5 arg-4 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-27 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Due to error " (Core-Core-show_Show__Error arg-13))) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (let ((act-28 (unbox arg-9))) (vector 1 act-28)))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (let ((act-29 (set-box! arg-9 (let ((sc7 e-9)) (let ((e-0 (vector-ref sc7 1))) (let ((e-1 (vector-ref sc7 2))) (let ((e-16 (vector-ref sc7 3))) (let ((e-15 (vector-ref sc7 4))) (let ((e-4 (vector-ref sc7 5))) (let ((e-14 (vector-ref sc7 6))) (let ((e-13 (vector-ref sc7 7))) (let ((e-12 (vector-ref sc7 8))) (let ((e-11 (vector-ref sc7 9))) (let ((e-10 (vector-ref sc7 10))) (vector 0 e-0 e-1 e-16 e-15 e-4 e-14 e-13 e-12 (vector 1 (vector 0 arg-2 (vector 0 e-2 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-7 arg-5 (lambda (eta-1) (Delayed-Elab-TTImp-deeper 'erased 'erased arg-8 (arg-1 0) eta-1))))) e-11) e-10))))))))))))))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 arg-4)))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-13 eta-0))))))) -(define Delayed-Elab-TTImp-case--9268-6320 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (vector 0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-5) e-11 e-12 e-13)))))))))))))))) -(define Delayed-Elab-TTImp-case--9268-6280 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (vector 0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 arg-5 e-11 e-12 e-13)))))))))))))))) -(define Delayed-Elab-TTImp-case--9162-6182 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((bC-39 (Delayed-Elab-TTImp-n--9162-6157-newBinder arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-3))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-5 arg-0 bC-39 e-2) (Normalise-Core-gErased 'erased arg-5))))))))) -(define Delayed-Elab-TTImp-case--9162-6135 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))))) -(define Delayed-Elab-TTImp-n--9162-6157-newBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (vector 1 e-1 e-2 e-3)))))(else (vector 0 (TT-Core-multiplicity 'erased arg-6) (vector 1 ) (TT-Core-binderType 'erased arg-6))))))) -(define Delayed-Elab-TTImp-n--9767-6673-mkExpected (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-10 arg-8 "delayTy" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-10 arg-8 arg-6 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 e-5 (vector 11 arg-6) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-4 e-6)))))))))))))))))) -(define Delayed-Elab-TTImp-n--11352-8113-hasPri (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (Prelude-C-60C-61_Ord__Integer e-2 arg-3))))) +(define RunElab-Elab-TTImp-case--12686-9831 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-11))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) e-5 arg-4 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-11 arg-10 arg-9 arg-3 arg-5 arg-4 e-6 (vector 1 (Normalise-Core-gnf arg-0 arg-4 arg-12))) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-11))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-clearDefs e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 e-8 arg-4 e-6 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 e-9 (Normalise-Core-gnf arg-0 arg-4 arg-12))))))))))))))))))))))))))))))))) +(define RunElab-Elab-TTImp-case--11143-9615 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-3)) (cond ((equal? sc2 "Reflection") (let ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-6)) (cond ((equal? sc4 "Language") (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((1) (let ((e-9 (vector-ref sc6 1))) (RunElab-Elab-TTImp-n--11143-8270-elabCon arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-9 arg-1)))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))) +(define RunElab-Elab-TTImp-case--11167-9446 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8269-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-8 eta-0))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-16) " is not a type")) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-16) " is not a type")) eta-0))))))) +(define RunElab-Elab-TTImp-case--11167-9314 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((binder (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3275) (TT-Core-weaken_Weaken__Term n vars arg-3275)))) (lambda (vars) (lambda (ns) (lambda (arg-3279) (TT-Core-weakenNs_Weaken__Term vars ns arg-3279))))) arg-0 e-4 'erased arg-7))) (let ((bty (TT-Core-binderType 'erased binder))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabUniqueBinders arg-0 arg-12 arg-7 bty eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (RunElab-Elab-TTImp-n--11143-8269-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-TTImp-reflect_Reflect__RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-6 eta-0)))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-16) " is not a local variable")) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-16) " is not a local variable")) eta-0))))))) +(define RunElab-Elab-TTImp-case--11167-9057 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Unelab-TTImp-unelabUniqueBinders arg-0 arg-12 arg-7 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (RunElab-Elab-TTImp-n--11143-8269-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-TTImp-reflect_Reflect__RawImp eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) (vector 1 e-6) eta-0)))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-TTImp-reflect_Reflect__RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-9 arg-13 1 arg-7 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) arg-13 arg-7 e-5) eta-0)))))))))))) +(define RunElab-Elab-TTImp-case--11167-8883 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-12 arg-10 "x" eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-4 arg-16) (Normalise-Core-toClosure 'erased (Value-Core-withAll) arg-7 (vector 1 e-1 (vector 0 ) e-5))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-7 e-9 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (let ((lamsc (TT-Core-refToLocal 'erased e-5 e-2 e-10))) (let ((act-27 ((RunElab-Elab-TTImp-n--11167-8845-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-7) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-7 e-8 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) (let ((envC-39 (vector 1 (vector 0 e-6 e-11 e-12) arg-7))) (let ((act-29 (let ((act-29 ((Normalise-Core-nf (vector 1 e-2 arg-0) arg-16 envC-39 lamsc) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) ((RunElab-Elab-TTImp-elabScript (vector 1 e-2 arg-0) arg-12 arg-11 arg-10 arg-9 (TTImp-TTImp-weaken_Weaken__NestedNames e-2 arg-0 arg-8) envC-39 e-13 (vector 0 )) eta-0)))))))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-30 (Normalise-Core-quote_Quote__NF (vector 1 e-2 arg-0) arg-17 envC-39 e-13 eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) ((Normalise-Core-nf arg-0 arg-17 arg-7 (vector 3 e-1 e-2 (vector 0 e-6 e-11 e-12) e-14)) eta-0)))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Not a lambda") eta-0))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Not a lambda") eta-0))))))) +(define RunElab-Elab-TTImp-case--11167-8730 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-15 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Normalise-Core-nf arg-0 e-5 arg-7 e-2) eta-0))))))))))) +(define RunElab-Elab-TTImp-case--11167-8394 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-17 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-7 arg-18 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 (((e-4 arg-17) (Normalise-Core-toClosure 'erased (Value-Core-withAll) arg-7 e-9)) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 e-10 arg-6) eta-0))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-17 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-17 eta-0))))))) +(define RunElab-Elab-TTImp-n--11167-9219-unelabType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabUniqueBinders (vector 0 ) arg-12 (vector 0 ) e-7 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 e-2 e-5))))))))))))))) +(define RunElab-Elab-TTImp-n--11143-8269-scriptRet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (((((((arg-14 arg-0) arg-9) e-5) 1) arg-7) arg-15) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) e-5 arg-7 e-6) ext-0))))))))))))) +(define RunElab-Elab-TTImp-n--11167-8845-quotePi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Can't add default lambda") eta-0))))))) +(define RunElab-Elab-TTImp-n--12686-9729-mkExpected (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 e-5))))))))) (else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-11 arg-9 "scriptTy" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Check-Elab-TTImp-metaVar arg-0 arg-11 arg-9 arg-3 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 e-5 (vector 11 arg-3) eta-0)))))))))))) +(define RunElab-Elab-TTImp-n--11143-8268-failWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-7 (vector 2 arg-5 arg-4 arg-3 arg-2 arg-1) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 46 arg-0 arg-9 arg-7 e-7) ext-0)))))))))))))))))) +(define RunElab-Elab-TTImp-n--11143-8270-elabCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-14)) (cond ((equal? sc0 "Pure") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-13 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) ((Normalise-Core-evalClosure arg-0 e-6 e-4) eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "Bind") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 2))) (let ((sc3 e-12)) (case (vector-ref sc3 0) ((1) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((e-17 (vector-ref sc4 1))) (let ((e-18 (vector-ref sc4 2))) (let ((sc5 e-18)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-14) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 e-5 arg-6) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-13 e-17) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 3))) (let ((e-4 (vector-ref sc8 4))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((act-26 (Context-Core-clearDefs arg-13 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-16 (vector-ref sc10 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc10 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-16 arg-7 e-5 eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-19 (vector-ref sc11 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc11 1))) (let ((act-28 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-withAll) arg-7 e-19)) eta-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-20 (vector-ref sc12 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc12 1))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 e-20 arg-6) eta-0)))))))))))))))))(else (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))))(else (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "Fail") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-22 (vector-ref sc1 2))) (let ((sc2 e-22)) (case (vector-ref sc2 0) ((1) (let ((e-24 (vector-ref sc2 1))) (let ((e-25 (vector-ref sc2 2))) (let ((sc3 e-25)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-24) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-5) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 "Error during reflection: " e-6)) eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "LogMsg") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (let ((sc2 e-29)) (case (vector-ref sc2 0) ((1) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((sc3 e-32)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-28) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 ((Reflect-Core-reify_Reify__Nat arg-0 arg-13 e-5) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (Context-Core-logC arg-12 e-6 (lambda (eta-1) (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-13 e-31) eta-1))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-7) eta-1))))))) eta-0)))))))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (RunElab-Elab-TTImp-n--11143-8269-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__C-40C-124UnitC-44MkUnitC-124C-41 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) (vector 0 ) eta-0))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "LogTerm") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-35 (vector-ref sc1 1))) (let ((e-36 (vector-ref sc1 2))) (let ((sc2 e-36)) (case (vector-ref sc2 0) ((1) (let ((e-38 (vector-ref sc2 1))) (let ((e-39 (vector-ref sc2 2))) (let ((sc3 e-39)) (case (vector-ref sc3 0) ((1) (let ((e-41 (vector-ref sc3 1))) (let ((e-42 (vector-ref sc3 2))) (let ((sc4 e-42)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-35) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (let ((act-25 ((Reflect-Core-reify_Reify__Nat arg-0 arg-13 e-5) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (Context-Core-logC arg-12 e-6 (lambda (eta-1) (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-13 e-38) eta-1))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-13 e-41) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (let ((act-28 ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-7) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-29 ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-13 e-8) eta-1))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc10 1))) (vector 1 (Strings-Prelude-C-43C-43 e-9 (Strings-Prelude-C-43C-43 ": " (TTImp-TTImp-show_Show__RawImp e-10))))))))))))))))))))))))) eta-0)))))))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (RunElab-Elab-TTImp-n--11143-8269-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__C-40C-124UnitC-44MkUnitC-124C-41 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) (vector 0 ) eta-0))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "Check") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-45 (vector-ref sc1 1))) (let ((e-46 (vector-ref sc1 2))) (let ((sc2 e-46)) (case (vector-ref sc2 0) ((1) (let ((e-48 (vector-ref sc2 1))) (let ((e-49 (vector-ref sc2 2))) (let ((sc3 e-49)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-45) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-13 e-48) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 ((Context-Core-resolveName arg-12 (vector 1 "[elaborator script]")) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "TTImp.Elab.Check.EST" ) (Check-Elab-TTImp-initEState arg-0 e-7 arg-7) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (let ((act-28 (let ((act-28 ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-13 e-6) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc8 1))) (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-12 arg-11 arg-10 e-8 0 (Check-Elab-TTImp-check arg-0 arg-12 arg-11 arg-10 e-8 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (Check-Elab-TTImp-initElabInfo (vector 2 )) arg-8 arg-7 e-9 (vector 1 (Normalise-Core-glueBack arg-0 arg-13 arg-7 e-5))) eta-0)))))))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (let ((e-2 (vector-ref sc9 1))) (let ((act-29 (Context-Core-clearDefs arg-13 eta-0))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc10 1))) ((Normalise-Core-nf arg-0 e-10 arg-7 e-2) eta-0)))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "Quote") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-53 (vector-ref sc1 2))) (let ((sc2 e-53)) (case (vector-ref sc2 0) ((1) (let ((e-55 (vector-ref sc2 1))) (let ((e-56 (vector-ref sc2 2))) (let ((sc3 e-56)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-55) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (unbox arg-12))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-clearDefs e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-7 e-5 eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (let ((act-28 (Unelab-TTImp-unelabUniqueBinders arg-0 arg-12 arg-7 e-8 eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc8 1))) (RunElab-Elab-TTImp-n--11143-8269-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-TTImp-reflect_Reflect__RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-9 eta-0))))))))))))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "Lambda") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-59 (vector-ref sc1 1))) (let ((e-60 (vector-ref sc1 2))) (let ((sc2 e-60)) (case (vector-ref sc2 0) ((1) (let ((e-62 (vector-ref sc2 1))) (let ((e-63 (vector-ref sc2 2))) (let ((sc3 e-63)) (case (vector-ref sc3 0) ((1) (let ((e-65 (vector-ref sc3 1))) (let ((e-66 (vector-ref sc3 2))) (let ((sc4 e-66)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-13 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-13 e-65) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((e-3 (vector-ref sc7 3))) (let ((e-4 (vector-ref sc7 4))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (let ((e-7 (vector-ref sc8 2))) (let ((e-8 (vector-ref sc8 3))) (let ((act-26 (UnifyState-Core-genVarName arg-12 arg-10 "x" eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-27 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-withAll) arg-7 (vector 1 e-1 (vector 0 ) e-10))) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-7 e-11 eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc11 1))) (let ((lamsc (TT-Core-refToLocal 'erased e-10 e-2 e-12))) (let ((act-29 ((RunElab-Elab-TTImp-n--11167-8845-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-62 e-59 e-65 arg-13 e-7) eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) (let ((act-30 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-7 e-8 eta-0))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-14 (vector-ref sc13 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc13 1))) (let ((envC-39 (vector 1 (vector 0 e-9 e-13 e-14) arg-7))) (let ((act-31 (let ((act-31 ((Normalise-Core-nf (vector 1 e-2 arg-0) arg-13 envC-39 lamsc) eta-0))) (let ((sc14 act-31)) (case (vector-ref sc14 0) ((0) (let ((e-15 (vector-ref sc14 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc14 1))) ((RunElab-Elab-TTImp-elabScript (vector 1 e-2 arg-0) arg-12 arg-11 arg-10 arg-9 (TTImp-TTImp-weaken_Weaken__NestedNames e-2 arg-0 arg-8) envC-39 e-15 (vector 0 )) eta-0)))))))) (let ((sc14 act-31)) (case (vector-ref sc14 0) ((0) (let ((e-15 (vector-ref sc14 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc14 1))) (let ((act-32 (Normalise-Core-quote_Quote__NF (vector 1 e-2 arg-0) e-5 envC-39 e-15 eta-0))) (let ((sc15 act-32)) (case (vector-ref sc15 0) ((0) (let ((e-16 (vector-ref sc15 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc15 1))) ((Normalise-Core-nf arg-0 e-5 arg-7 (vector 3 e-1 e-2 (vector 0 e-9 e-13 e-14) e-16)) eta-0))))))))))))))))))))))))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Not a lambda") eta-0)))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Not a lambda") eta-0))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "Goal") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-1) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Unelab-TTImp-unelabUniqueBinders arg-0 arg-12 arg-7 e-5 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (RunElab-Elab-TTImp-n--11143-8269-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-TTImp-reflect_Reflect__RawImp eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) (vector 1 e-6) eta-0)))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-TTImp-reflect_Reflect__RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-9 arg-13 1 arg-7 (vector 0 )) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) arg-13 arg-7 e-5) eta-0)))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "LocalVars") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8269-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 eta-0)))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "GenSym") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-71 (vector-ref sc1 1))) (let ((e-72 (vector-ref sc1 2))) (let ((sc2 e-72)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-71) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (UnifyState-Core-genVarName arg-12 arg-10 e-6 eta-0)))))))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (RunElab-Elab-TTImp-n--11143-8269-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-6 eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "InCurrentNS") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-75 (vector-ref sc1 1))) (let ((e-76 (vector-ref sc1 2))) (let ((sc2 e-76)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-75) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 ((Reflect-Core-reify_Reify__Name arg-0 arg-13 e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) ((Context-Core-inCurrentNS arg-12 e-6) eta-0)))))))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (RunElab-Elab-TTImp-n--11143-8269-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-6 eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "GetType") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-79 (vector-ref sc1 1))) (let ((e-80 (vector-ref sc1 2))) (let ((sc2 e-80)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-79) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 ((Reflect-Core-reify_Reify__Name arg-0 arg-13 e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (Context-Core-lookupTyName e-6 (let ((sc5 arg-13)) (let ((e-0 (vector-ref sc5 1))) e-0)) eta-0)))))))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (RunElab-Elab-TTImp-n--11167-9219-unelabType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-79 arg-13 eta-1)) e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (RunElab-Elab-TTImp-n--11143-8269-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (Reflect-Core-reflect_Reflect__Name eta-13 eta-14 eta-15 eta-16 eta-17 eta-18))))))) (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (Reflect-TTImp-reflect_Reflect__RawImp eta-13 eta-14 eta-15 eta-16 eta-17 eta-18)))))))) eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-7 eta-0))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "GetLocalType") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-83 (vector-ref sc1 1))) (let ((e-84 (vector-ref sc1 2))) (let ((sc2 e-84)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-83) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Reflect-Core-reify_Reify__Name arg-0 arg-13 e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) ((RunElab-Elab-TTImp-case--11167-9314 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-83 arg-13 e-5 e-6 (Env-Core-defined arg-0 e-6 arg-7)) eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "GetCons") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-87 (vector-ref sc1 1))) (let ((e-88 (vector-ref sc1 2))) (let ((sc2 e-88)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-87) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Reflect-Core-reify_Reify__Name arg-0 arg-13 e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-lookupDefExact e-6 (let ((sc5 arg-13)) (let ((e-0 (vector-ref sc5 1))) e-0)) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((sc7 e-1)) (case (vector-ref sc7 0) ((6) (let ((e-8 (vector-ref sc7 7))) (RunElab-Elab-TTImp-n--11143-8269-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-8 eta-0)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) " is not a type")) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) " is not a type")) eta-0)))))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "Declare") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-91 (vector-ref sc1 1))) (let ((e-92 (vector-ref sc1 2))) (let ((sc2 e-92)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-91) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-TTImp-reify_Reify__ImpDecl eta-1 eta-2 eta-3)))) arg-0 arg-13 e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl (vector 0 ) arg-12 arg-11 arg-10 (vector 0 ) (vector 0 ) (vector 0 ) eta-1)) e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (RunElab-Elab-TTImp-n--11143-8269-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__C-40C-124UnitC-44MkUnitC-124C-41 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) (vector 0 ) eta-0)))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))) +(define RunElab-Elab-TTImp-elabScript (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-0)) (case (vector-ref sc4 0) ((1) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-10)) (cond ((equal? sc5 "Reflection") (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 e-12)) (cond ((equal? sc7 "Language") (let ((sc8 e-11)) (case (vector-ref sc8 0) ((0) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((1) (let ((e-13 (vector-ref sc9 1))) ((RunElab-Elab-TTImp-n--11143-8270-elabCon arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 e-13 e-5) eta-0)))(else (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased e-6 eta-0)))))(else (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased e-6 eta-0)))))(else (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased e-6 eta-0)))))))(else (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased e-6 eta-0)))))(else (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased e-6 eta-0)))))))(else (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased e-6 eta-0)))))))(else (RunElab-Elab-TTImp-n--11143-8268-failWith arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased e-6 eta-0)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-6 arg-7 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 46 arg-0 arg-4 arg-6 e-7) eta-0)))))))))))))))))))))) +(define RunElab-Elab-TTImp-checkRunElab (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 ((RunElab-Elab-TTImp-n--12686-9729-mkExpected arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-11) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((sc2 (Prelude-not (Context-Core-isExtension (vector 0 ) e-6)))) (cond ((equal? sc2 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "%language ElabReflection not enabled") ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((n (vector 0 (vector 1 "Reflection" (vector 1 "Language" (vector 0 ))) (vector 1 "Elab")))) (let ((act-27 (Reflect-Core-appCon arg-0 arg-9 e-6 n (vector 1 e-5 (vector 0 )) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 0 (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-8))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (let ((e-2 (vector-ref sc5 1))) (let ((act-29 (let ((act-29 (unbox arg-1))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((act-30 ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) e-10 arg-8 e-2) ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-1 arg-2 arg-3 arg-9 arg-7 arg-8 e-11 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-5))) ext-0)))))))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Context-Core-clearDefs e-12 ext-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 (Normalise-Core-quote_Quote__NF arg-0 e-13 arg-8 e-11 ext-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-14 (Normalise-Core-gnf arg-0 arg-8 e-5))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Delayed-Elab-TTImp-case--11403-8358 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9))))))))))))) +(define Delayed-Elab-TTImp-case--11403-8314 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-12)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-9 e-9))))))))))))) +(define Delayed-Elab-TTImp-case--11403-8262 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (List-Prelude-C-43C-43 'erased e-8 arg-9) e-9)))))))))))))) +(define Delayed-Elab-TTImp-case--10869-7998 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9))))))))))))) +(define Delayed-Elab-TTImp-case--11074-7868 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-13 eta-0))) (else (Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-10 arg-9 arg-8 arg-7 arg-15 (vector 1 arg-4 arg-6) arg-5)))))) +(define Delayed-Elab-TTImp-case--10869-7830 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Delayed-Elab-TTImp-recoverable arg-11 arg-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((errmode (vector 0 ))) ((Delayed-Elab-TTImp-case--11074-7868 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 errmode e-5 (Prelude-not e-5)) eta-0))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-14 eta-0))))))) +(define Delayed-Elab-TTImp-case--10815-7619 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((11) (lambda (eta-0) (Check-Elab-TTImp-handle 'erased arg-0 arg-11 arg-10 arg-9 arg-8 (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((Context-Core-getFullName arg-11 (vector 9 arg-2)) eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (let ((sc4 e-5)) (let ((e-10 (vector-ref sc4 10))) e-10))) (Strings-Prelude-C-43C-43 ": Retrying delayed hole " (Name-Core-show_Show__Name e-6)))) eta-1)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (unbox arg-9))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 (set-box! arg-9 (let ((sc5 e-7)) (let ((e-0 (vector-ref sc5 1))) (let ((e-13 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-12 (vector-ref sc5 6))) (let ((e-11 (vector-ref sc5 7))) (let ((e-10 (vector-ref sc5 8))) (let ((e-9 (vector-ref sc5 10))) (vector 0 e-0 e-13 e-2 e-3 e-4 e-12 e-11 e-10 (vector 0 ) e-9)))))))))))))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-28 (arg-3 eta-1))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (let ((act-29 (unbox arg-9))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) (let ((dsC-39 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased (let ((sc8 e-10)) (let ((e-12 (vector-ref sc8 9))) e-12))) arg-5))) (let ((act-30 (Context-Core-updateDef arg-11 (vector 9 arg-2) (lambda (eta-2) (vector 1 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 e-9) (vector 1 0 e-9) (vector 0 )))) eta-1))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-31 (Context-Core-logTerm (vector 0 ) arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved delayed hole " (Prelude-show_Show__Int arg-2))) e-9 eta-1))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((act-32 (Normalise-Core-logTermNF (vector 0 ) arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved delayed hole NF " (Prelude-show_Show__Int arg-2))) (vector 0 ) e-9 eta-1))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-33 (UnifyState-Core-removeHole arg-9 arg-2 eta-1))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 dsC-39) eta-1))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-11 (vector 9 arg-2)) eta-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Delayed-Elab-TTImp-show_Show__RetryError arg-7) (Strings-Prelude-C-43C-43 ":Error in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 "\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--11074-7868 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12 _-0 err e-5 errmode e-6 (Prelude-not e-6)) eta-1)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))))) eta-0)))(else (Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5))))))(else (Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5)))))) +(define Delayed-Elab-TTImp-case--10414-7310 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (Delayed-Elab-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-7 arg-9))))))) +(define Delayed-Elab-TTImp-case--10414-7228 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (Delayed-Elab-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-3 arg-7))))))) +(define Delayed-Elab-TTImp-case--10126-7058 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (Delayed-Elab-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-7 arg-9))))))) +(define Delayed-Elab-TTImp-case--10126-6976 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (Delayed-Elab-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-5 arg-8))))))) +(define Delayed-Elab-TTImp-case--9900-6841 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 (vector 0 arg-2 (vector 0 arg-14 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-6 arg-4 arg-1))) e-8) e-9)))))))))))))) +(define Delayed-Elab-TTImp-case--9818-6753 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logGlueNF arg-0 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Postponing elaborator " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) " for"))) arg-4 arg-13 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (unbox arg-8))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (set-box! arg-8 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-10 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (vector 0 e-0 e-1 e-13 e-12 e-4 e-11 e-10 e-7 (vector 1 (vector 0 arg-2 (vector 0 e-2 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-6 arg-4 arg-1))) e-8) e-9))))))))))))))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 arg-13))))))))))))))))))))) +(define Delayed-Elab-TTImp-case--9576-6570 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 (vector 0 arg-2 (vector 0 arg-16 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-7 arg-5 (lambda (eta-0) (Delayed-Elab-TTImp-deeper 'erased 'erased arg-8 (arg-1 0) eta-0))))) e-8) e-9)))))))))))))) +(define Delayed-Elab-TTImp-case--9505-6455 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logGlueNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Postponing elaborator " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-15) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-7) " for"))))) arg-5 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Due to error " (Core-Core-show_Show__Error arg-13))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (unbox arg-9))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (set-box! arg-9 (let ((sc4 e-7)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-14 (vector-ref sc4 3))) (let ((e-13 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-12 (vector-ref sc4 6))) (let ((e-11 (vector-ref sc4 7))) (let ((e-10 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-12 e-11 e-10 (vector 1 (vector 0 arg-2 (vector 0 e-2 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-7 arg-5 (lambda (eta-1) (Delayed-Elab-TTImp-deeper 'erased 'erased arg-8 (arg-1 0) eta-1))))) e-8) e-9))))))))))))))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 arg-4))))))))))))))))))))))))) +(define Delayed-Elab-TTImp-case--9460-6394 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-11 arg-9 "delayed" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-getTerm 'erased arg-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((UnifyState-Core-newDelayed arg-0 arg-9 arg-11 arg-7 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 e-5 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-26 (Normalise-Core-logGlueNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Postponing elaborator " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-7) " for"))))) arg-5 arg-4 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-27 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Due to error " (Core-Core-show_Show__Error arg-13))) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (let ((act-28 (unbox arg-9))) (vector 1 act-28)))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (let ((act-29 (set-box! arg-9 (let ((sc7 e-9)) (let ((e-0 (vector-ref sc7 1))) (let ((e-1 (vector-ref sc7 2))) (let ((e-16 (vector-ref sc7 3))) (let ((e-15 (vector-ref sc7 4))) (let ((e-4 (vector-ref sc7 5))) (let ((e-14 (vector-ref sc7 6))) (let ((e-13 (vector-ref sc7 7))) (let ((e-12 (vector-ref sc7 8))) (let ((e-11 (vector-ref sc7 9))) (let ((e-10 (vector-ref sc7 10))) (vector 0 e-0 e-1 e-16 e-15 e-4 e-14 e-13 e-12 (vector 1 (vector 0 arg-2 (vector 0 e-2 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-7 arg-5 (lambda (eta-1) (Delayed-Elab-TTImp-deeper 'erased 'erased arg-8 (arg-1 0) eta-1))))) e-11) e-10))))))))))))))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 arg-4)))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-13 eta-0))))))) +(define Delayed-Elab-TTImp-case--9319-6328 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (vector 0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-5) e-11 e-12 e-13)))))))))))))))) +(define Delayed-Elab-TTImp-case--9319-6288 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (vector 0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 arg-5 e-11 e-12 e-13)))))))))))))))) +(define Delayed-Elab-TTImp-case--9213-6190 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((bC-39 (Delayed-Elab-TTImp-n--9213-6165-newBinder arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-3))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-5 arg-0 bC-39 e-2) (Normalise-Core-gErased 'erased arg-5))))))))) +(define Delayed-Elab-TTImp-case--9213-6143 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))))) +(define Delayed-Elab-TTImp-n--9213-6165-newBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (vector 1 e-1 e-2 e-3)))))(else (vector 0 (TT-Core-multiplicity 'erased arg-6) (vector 1 ) (TT-Core-binderType 'erased arg-6))))))) +(define Delayed-Elab-TTImp-n--9818-6681-mkExpected (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-10 arg-8 "delayTy" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-10 arg-8 arg-6 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 e-5 (vector 11 arg-6) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-4 e-6)))))))))))))))))) +(define Delayed-Elab-TTImp-n--11403-8121-hasPri (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (Prelude-C-60C-61_Ord__Integer e-2 arg-3))))) (define Delayed-Elab-TTImp-show_Show__RetryError (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "RecoverableErrors") (else "AllErrors"))))) (define Delayed-Elab-TTImp-showPrec_Show__RetryError (lambda (arg-0 arg-1) (Delayed-Elab-TTImp-show_Show__RetryError arg-1))) (define Delayed-Elab-TTImp-__Impl_Show_RetryError (lambda () (vector 0 (lambda (x) (Delayed-Elab-TTImp-show_Show__RetryError x)) (lambda (d) (lambda (x) (Delayed-Elab-TTImp-showPrec_Show__RetryError d x)))))) -(define Delayed-Elab-TTImp-runDelays (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((olddelayed (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 9))) e-8)))) (let ((act-25 (let ((act-25 (set-box! arg-4 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-10 e-6 e-7 (vector 0 ) e-9)))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (arg-7 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 (unbox arg-4))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Context-Core-log arg-2 (+ 1 (+ 1 0)) (lambda () "Rerunning delayed in elaborator") ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (Check-Elab-TTImp-handle 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (lambda (eta-0) (let ((act-29 ((Delayed-Elab-TTImp-retryDelayedC-39 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 ) (vector 0 ) (List-Data-reverse 'erased (List-Data-filter 'erased (lambda (eta-1) (Delayed-Elab-TTImp-n--11352-8113-hasPri 'erased arg-1 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 'erased eta-1)) (let ((sc5 e-8)) (let ((e-11 (vector-ref sc5 9))) e-11))))) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))) (lambda (err) (lambda (eta-0) (let ((act-29 (let ((act-29 (set-box! arg-4 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-14 (vector-ref sc5 6))) (let ((e-13 (vector-ref sc5 7))) (let ((e-12 (vector-ref sc5 8))) (let ((e-10 (vector-ref sc5 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-14 e-13 e-12 olddelayed e-10)))))))))))))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-0))))))) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 (unbox arg-4))) (vector 1 act-30)))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (let ((act-31 (set-box! arg-4 (let ((sc7 e-11)) (let ((e-0 (vector-ref sc7 1))) (let ((e-1 (vector-ref sc7 2))) (let ((e-2 (vector-ref sc7 3))) (let ((e-3 (vector-ref sc7 4))) (let ((e-4 (vector-ref sc7 5))) (let ((e-16 (vector-ref sc7 6))) (let ((e-15 (vector-ref sc7 7))) (let ((e-14 (vector-ref sc7 8))) (let ((e-13 (vector-ref sc7 9))) (let ((e-12 (vector-ref sc7 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-16 e-15 e-14 (List-Prelude-C-43C-43 'erased e-13 olddelayed) e-12))))))))))))))) (vector 1 act-31)))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (vector 1 e-7)))))))))))))))))))))))))))))))))))))))) -(define Delayed-Elab-TTImp-retryDelayedC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (List-Data-reverse 'erased arg-6)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Context-Core-lookupDefExact (vector 9 e-10) (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((d (vector 0 e-6 (vector 0 e-10 e-11)))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((11) (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (let ((act-26 (let ((act-26 (unbox arg-4))) (vector 1 act-26)))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 (let ((act-27 ((Context-Core-getFullName arg-1 (vector 9 e-10)) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (let ((sc9 e-9)) (let ((e-16 (vector-ref sc9 10))) e-16))) (Strings-Prelude-C-43C-43 ": Retrying delayed hole " (Name-Core-show_Show__Name e-12)))) eta-1)))))))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-28 (let ((act-28 (unbox arg-3))) (vector 1 act-28)))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-29 (let ((act-29 (set-box! arg-3 (let ((sc10 e-13)) (let ((e-0 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((e-20 (vector-ref sc10 3))) (let ((e-19 (vector-ref sc10 4))) (let ((e-4 (vector-ref sc10 5))) (let ((e-18 (vector-ref sc10 6))) (let ((e-17 (vector-ref sc10 7))) (let ((e-16 (vector-ref sc10 8))) (let ((e-14 (vector-ref sc10 10))) (vector 0 e-0 e-21 e-20 e-19 e-4 e-18 e-17 e-16 (vector 0 ) e-14)))))))))))))) (vector 1 act-29)))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-30 (e-11 eta-1))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-31 (let ((act-31 (unbox arg-3))) (vector 1 act-31)))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc12 1))) (let ((dsC-39 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased (let ((sc13 e-16)) (let ((e-18 (vector-ref sc13 9))) e-18))) e-3))) (let ((act-32 (Context-Core-updateDef arg-1 (vector 9 e-10) (lambda (eta-2) (vector 1 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 e-15) (vector 1 0 e-15) (vector 0 )))) eta-1))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-33 (Context-Core-logTerm (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved delayed hole " (Prelude-show_Show__Int e-10))) e-15 eta-1))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((act-34 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved delayed hole NF " (Prelude-show_Show__Int e-10))) (vector 0 ) e-15 eta-1))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-35 (UnifyState-Core-removeHole arg-3 e-10 eta-1))) (let ((sc16 act-35)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 dsC-39) eta-1))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-1 (vector 9 e-10)) eta-1))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc7 1))) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Delayed-Elab-TTImp-show_Show__RetryError arg-5) (Strings-Prelude-C-43C-43 ":Error in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 "\u000a" (Core-Core-show_Show__Error err)))))) eta-1)))))))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc7 1))) (let ((_-0 (vector 1 (vector 11 )))) (let ((sc8 arg-5)) (case (vector-ref sc8 0) ((0) (let ((act-27 ((Delayed-Elab-TTImp-recoverable arg-1 err) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc9 1))) (let ((errmode (vector 0 ))) ((Delayed-Elab-TTImp-case--11023-7860 arg-0 e-6 e-10 e-11 d e-3 arg-6 arg-4 arg-3 arg-2 arg-1 e-5 _-0 err e-9 errmode e-12 (Prelude-not e-12)) eta-1)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))))) eta-0))(else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-0))))))(else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-0))))))))))))))))))))))))))))) +(define Delayed-Elab-TTImp-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--11403-8121-hasPri 'erased arg-1 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 'erased eta-1)) (let ((sc5 e-8)) (let ((e-11 (vector-ref sc5 9))) e-11))))) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))) (lambda (err) (lambda (eta-0) (let ((act-29 (let ((act-29 (set-box! arg-4 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-14 (vector-ref sc5 6))) (let ((e-13 (vector-ref sc5 7))) (let ((e-12 (vector-ref sc5 8))) (let ((e-10 (vector-ref sc5 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-14 e-13 e-12 olddelayed e-10)))))))))))))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-0))))))) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 (unbox arg-4))) (vector 1 act-30)))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (let ((act-31 (set-box! arg-4 (let ((sc7 e-11)) (let ((e-0 (vector-ref sc7 1))) (let ((e-1 (vector-ref sc7 2))) (let ((e-2 (vector-ref sc7 3))) (let ((e-3 (vector-ref sc7 4))) (let ((e-4 (vector-ref sc7 5))) (let ((e-16 (vector-ref sc7 6))) (let ((e-15 (vector-ref sc7 7))) (let ((e-14 (vector-ref sc7 8))) (let ((e-13 (vector-ref sc7 9))) (let ((e-12 (vector-ref sc7 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-16 e-15 e-14 (List-Prelude-C-43C-43 'erased e-13 olddelayed) e-12))))))))))))))) (vector 1 act-31)))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (vector 1 e-7)))))))))))))))))))))))))))))))))))))))) +(define Delayed-Elab-TTImp-retryDelayedC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (List-Data-reverse 'erased arg-6)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Context-Core-lookupDefExact (vector 9 e-10) (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((d (vector 0 e-6 (vector 0 e-10 e-11)))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((11) (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (let ((act-26 (let ((act-26 (unbox arg-4))) (vector 1 act-26)))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 (let ((act-27 ((Context-Core-getFullName arg-1 (vector 9 e-10)) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (let ((sc9 e-9)) (let ((e-16 (vector-ref sc9 10))) e-16))) (Strings-Prelude-C-43C-43 ": Retrying delayed hole " (Name-Core-show_Show__Name e-12)))) eta-1)))))))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-28 (let ((act-28 (unbox arg-3))) (vector 1 act-28)))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-29 (let ((act-29 (set-box! arg-3 (let ((sc10 e-13)) (let ((e-0 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((e-20 (vector-ref sc10 3))) (let ((e-19 (vector-ref sc10 4))) (let ((e-4 (vector-ref sc10 5))) (let ((e-18 (vector-ref sc10 6))) (let ((e-17 (vector-ref sc10 7))) (let ((e-16 (vector-ref sc10 8))) (let ((e-14 (vector-ref sc10 10))) (vector 0 e-0 e-21 e-20 e-19 e-4 e-18 e-17 e-16 (vector 0 ) e-14)))))))))))))) (vector 1 act-29)))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-30 (e-11 eta-1))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-31 (let ((act-31 (unbox arg-3))) (vector 1 act-31)))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc12 1))) (let ((dsC-39 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased (let ((sc13 e-16)) (let ((e-18 (vector-ref sc13 9))) e-18))) e-3))) (let ((act-32 (Context-Core-updateDef arg-1 (vector 9 e-10) (lambda (eta-2) (vector 1 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 e-15) (vector 1 0 e-15) (vector 0 )))) eta-1))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-33 (Context-Core-logTerm (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved delayed hole " (Prelude-show_Show__Int e-10))) e-15 eta-1))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((act-34 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved delayed hole NF " (Prelude-show_Show__Int e-10))) (vector 0 ) e-15 eta-1))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-35 (UnifyState-Core-removeHole arg-3 e-10 eta-1))) (let ((sc16 act-35)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 dsC-39) eta-1))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-1 (vector 9 e-10)) eta-1))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc7 1))) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Delayed-Elab-TTImp-show_Show__RetryError arg-5) (Strings-Prelude-C-43C-43 ":Error in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 "\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--11074-7868 arg-0 e-6 e-10 e-11 d e-3 arg-6 arg-4 arg-3 arg-2 arg-1 e-5 _-0 err e-9 errmode e-12 (Prelude-not e-12)) eta-1)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))))) eta-0))(else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-0))))))(else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-0))))))))))))))))))))))))))))) (define Delayed-Elab-TTImp-retryDelayed (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) (vector 0 ) arg-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (vector 1 ) (vector 0 ) e-6) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))))))))))) (define Delayed-Elab-TTImp-recoverable (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf e-0 e-5 e-2 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-nf e-0 e-5 e-2 e-4) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Delayed-Elab-TTImp-contra e-0 e-5 e-6 e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (Prelude-not e-8)))))))))))))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf e-5 e-10 e-7 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-nf e-5 e-10 e-7 e-9) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc3 1))) (let ((act-27 ((Delayed-Elab-TTImp-contra e-5 e-10 e-11 e-12) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc4 1))) (vector 1 (Prelude-not e-13)))))))))))))))))))))))))))) ((7) (lambda (eta-0) (vector 1 1))) ((14) (lambda (eta-0) (vector 1 1))) ((56) (let ((e-18 (vector-ref sc0 3))) (Delayed-Elab-TTImp-recoverable arg-0 e-18))) ((57) (let ((e-21 (vector-ref sc0 3))) (Delayed-Elab-TTImp-recoverable arg-0 e-21))) ((58) (let ((e-24 (vector-ref sc0 3))) (Delayed-Elab-TTImp-recoverable arg-0 e-24))) ((59) (let ((e-27 (vector-ref sc0 3))) (Delayed-Elab-TTImp-recoverable arg-0 e-27))) ((5) (let ((e-33 (vector-ref sc0 6))) (Delayed-Elab-TTImp-recoverable arg-0 e-33)))(else (lambda (eta-0) (vector 1 0))))))) -(define Delayed-Elab-TTImp-mkClosedElab (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (lambda (eta-0) (let ((act-24 (arg-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-2 (vector-ref sc3 1))) (vector 1 e-2))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Delayed-Elab-TTImp-mkClosedElab e-3 arg-1 e-9 (lambda (eta-0) (let ((act-24 (arg-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-6 (vector-ref sc3 1))) (let ((bC-39 (Delayed-Elab-TTImp-n--9162-6157-newBinder e-2 e-3 e-9 e-8 arg-3 arg-1 e-8))) (vector 1 (vector 0 (vector 3 arg-1 e-2 bC-39 e-6) (Normalise-Core-gErased 'erased arg-1))))))))))))))))))))))) -(define Delayed-Elab-TTImp-mismatchNF (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((e-28 (vector-ref sc1 4))) (let ((e-29 (vector-ref sc1 5))) (Delayed-Elab-TTImp-case--10075-6968 arg-0 e-25 e-28 e-1 e-4 e-5 e-3 e-2 e-29 e-27 e-26 arg-1 (Name-Core-C-47C-61_Eq__Name e-2 e-26))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (let ((e-35 (vector-ref sc1 5))) (Delayed-Elab-TTImp-case--10075-7050 arg-0 e-31 e-32 e-34 e-7 e-8 e-10 e-11 e-9 e-35 e-33 arg-1 (Prelude-C-47C-61_Eq__Int e-9 e-33))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-38 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-38)))))(else (lambda (eta-0) (vector 1 1))))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((5) (let ((e-42 (vector-ref sc1 3))) (Delayed-Elab-TTImp-mismatchNF arg-0 arg-1 e-18 e-42)))(else (lambda (eta-0) (vector 1 1))))))) ((6) (let ((e-23 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((6) (let ((e-47 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-1 e-23) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-1 e-47) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((Delayed-Elab-TTImp-mismatchNF arg-0 arg-1 e-5 e-6) eta-0))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Delayed-Elab-TTImp-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--9213-6165-newBinder e-2 e-3 e-9 e-8 arg-3 arg-1 e-8))) (vector 1 (vector 0 (vector 3 arg-1 e-2 bC-39 e-6) (Normalise-Core-gErased 'erased arg-1))))))))))))))))))))))) +(define Delayed-Elab-TTImp-mismatchNF (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((e-28 (vector-ref sc1 4))) (let ((e-29 (vector-ref sc1 5))) (Delayed-Elab-TTImp-case--10126-6976 arg-0 e-25 e-28 e-1 e-4 e-5 e-3 e-2 e-29 e-27 e-26 arg-1 (Name-Core-C-47C-61_Eq__Name e-2 e-26))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (let ((e-35 (vector-ref sc1 5))) (Delayed-Elab-TTImp-case--10126-7058 arg-0 e-31 e-32 e-34 e-7 e-8 e-10 e-11 e-9 e-35 e-33 arg-1 (Prelude-C-47C-61_Eq__Int e-9 e-33))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-38 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-38)))))(else (lambda (eta-0) (vector 1 1))))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((5) (let ((e-42 (vector-ref sc1 3))) (Delayed-Elab-TTImp-mismatchNF arg-0 arg-1 e-18 e-42)))(else (lambda (eta-0) (vector 1 1))))))) ((6) (let ((e-23 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((6) (let ((e-47 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-1 e-23) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-1 e-47) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((Delayed-Elab-TTImp-mismatchNF arg-0 arg-1 e-5 e-6) eta-0))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) (define Delayed-Elab-TTImp-mismatch (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-1 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-1 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((Delayed-Elab-TTImp-mismatchNF arg-0 arg-1 e-5 e-6) eta-0))))))))))))))))) -(define Delayed-Elab-TTImp-delayOnFailure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (arg-11 1) (lambda (err) (lambda (eta-0) (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Delayed-Elab-TTImp-case--9409-6386 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 err e-6 (arg-9 err)) eta-0)))))))) ext-0)))))))) -(define Delayed-Elab-TTImp-delayElab (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (UnifyState-Core-genName arg-1 arg-3 "delayed" ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Delayed-Elab-TTImp-n--9767-6673-mkExpected arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-8) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-getTerm 'erased e-7) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) ((UnifyState-Core-newDelayed arg-0 arg-3 arg-1 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-7 e-6 e-8) ext-0)))))))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-28 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Postponing elaborator " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) " for"))) arg-7 e-7 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-29 (let ((act-29 (unbox arg-3))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((act-30 (set-box! arg-3 (let ((sc7 e-10)) (let ((e-0 (vector-ref sc7 1))) (let ((e-1 (vector-ref sc7 2))) (let ((e-17 (vector-ref sc7 3))) (let ((e-16 (vector-ref sc7 4))) (let ((e-4 (vector-ref sc7 5))) (let ((e-15 (vector-ref sc7 6))) (let ((e-14 (vector-ref sc7 7))) (let ((e-13 (vector-ref sc7 8))) (let ((e-12 (vector-ref sc7 9))) (let ((e-11 (vector-ref sc7 10))) (vector 0 e-0 e-1 e-17 e-16 e-4 e-15 e-14 e-13 (vector 1 (vector 0 arg-9 (vector 0 e-2 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-5 arg-7 arg-10))) e-12) e-11))))))))))))))) (vector 1 act-30)))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 e-7))))))))))))))))))))))))))))))))))))))) +(define Delayed-Elab-TTImp-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--9460-6394 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 err e-6 (arg-9 err)) eta-0)))))))) ext-0)))))))) +(define Delayed-Elab-TTImp-delayElab (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (UnifyState-Core-genName arg-1 arg-3 "delayed" ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Delayed-Elab-TTImp-n--9818-6681-mkExpected arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-8) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-getTerm 'erased e-7) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) ((UnifyState-Core-newDelayed arg-0 arg-3 arg-1 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-7 e-6 e-8) ext-0)))))))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-28 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Postponing elaborator " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) " for"))) arg-7 e-7 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-29 (let ((act-29 (unbox arg-3))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((act-30 (set-box! arg-3 (let ((sc7 e-10)) (let ((e-0 (vector-ref sc7 1))) (let ((e-1 (vector-ref sc7 2))) (let ((e-17 (vector-ref sc7 3))) (let ((e-16 (vector-ref sc7 4))) (let ((e-4 (vector-ref sc7 5))) (let ((e-15 (vector-ref sc7 6))) (let ((e-14 (vector-ref sc7 7))) (let ((e-13 (vector-ref sc7 8))) (let ((e-12 (vector-ref sc7 9))) (let ((e-11 (vector-ref sc7 10))) (vector 0 e-0 e-1 e-17 e-16 e-4 e-15 e-14 e-13 (vector 1 (vector 0 arg-9 (vector 0 e-2 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-5 arg-7 arg-10))) e-12) e-11))))))))))))))) (vector 1 act-30)))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 e-7))))))))))))))))))))))))))))))))))))))) (define Delayed-Elab-TTImp-deeper (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((d (let ((sc1 e-5)) (let ((e-10 (vector-ref sc1 10))) e-10)))) (let ((act-25 (let ((act-25 (set-box! arg-2 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((e-14 (vector-ref sc1 5))) (let ((e-6 (vector-ref sc1 6))) (let ((e-7 (vector-ref sc1 7))) (let ((e-8 (vector-ref sc1 8))) (let ((e-9 (vector-ref sc1 9))) (let ((e-11 (vector-ref sc1 11))) (let ((e-12 (vector-ref sc1 12))) (let ((e-13 (vector-ref sc1 13))) (vector 0 e-1 e-2 e-3 e-4 e-14 e-6 e-7 e-8 e-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) d) e-11 e-12 e-13))))))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (arg-3 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 (unbox arg-2))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (set-box! arg-2 (let ((sc4 e-8)) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((e-17 (vector-ref sc4 5))) (let ((e-16 (vector-ref sc4 6))) (let ((e-15 (vector-ref sc4 7))) (let ((e-14 (vector-ref sc4 8))) (let ((e-9 (vector-ref sc4 9))) (let ((e-11 (vector-ref sc4 11))) (let ((e-12 (vector-ref sc4 12))) (let ((e-13 (vector-ref sc4 13))) (vector 0 e-1 e-2 e-3 e-4 e-17 e-16 e-15 e-14 e-9 d e-11 e-12 e-13))))))))))))))))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 e-7))))))))))))))))))))))))))) -(define Delayed-Elab-TTImp-contra (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (let ((e-19 (vector-ref sc1 4))) (let ((e-20 (vector-ref sc1 5))) (Delayed-Elab-TTImp-case--10363-7220 arg-0 e-16 e-1 e-5 e-4 e-3 e-2 e-20 e-19 e-18 e-17 arg-1 (Name-Core-C-47C-61_Eq__Name e-2 e-17))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 4))) (let ((e-26 (vector-ref sc1 5))) (Delayed-Elab-TTImp-case--10363-7302 arg-0 e-22 e-23 e-25 e-7 e-8 e-10 e-11 e-9 e-26 e-24 arg-1 (Prelude-C-47C-61_Eq__Int e-9 e-24)))))))) ((8) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-32 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-32))))) ((2) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Delayed-Elab-TTImp-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--10414-7228 arg-0 e-16 e-1 e-5 e-4 e-3 e-2 e-20 e-19 e-18 e-17 arg-1 (Name-Core-C-47C-61_Eq__Name e-2 e-17))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 4))) (let ((e-26 (vector-ref sc1 5))) (Delayed-Elab-TTImp-case--10414-7310 arg-0 e-22 e-23 e-25 e-7 e-8 e-10 e-11 e-9 e-26 e-24 arg-1 (Prelude-C-47C-61_Eq__Int e-9 e-24)))))))) ((8) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-32 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-32))))) ((2) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) (define Delayed-Elab-TTImp-ambiguous (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((18) 0) ((17) 0) ((20) 0) ((56) (let ((e-11 (vector-ref sc0 3))) (Delayed-Elab-TTImp-ambiguous e-11))) ((57) (let ((e-14 (vector-ref sc0 3))) (Delayed-Elab-TTImp-ambiguous e-14))) ((58) (let ((e-17 (vector-ref sc0 3))) (Delayed-Elab-TTImp-ambiguous e-17))) ((59) (let ((e-20 (vector-ref sc0 3))) (Delayed-Elab-TTImp-ambiguous e-20))) ((5) (let ((e-26 (vector-ref sc0 6))) (Delayed-Elab-TTImp-ambiguous e-26)))(else 1))))) -(define Check-Elab-TTImp-case--13724-7542 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 arg-18 arg-2)))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 8 arg-4 e-0 arg-3) arg-1))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 7 arg-4 e-1 e-5 arg-3) arg-1)))))))))))))) -(define Check-Elab-TTImp-case--13724-7309 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Solved") arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 arg-3 arg-2)))))))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Force") arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Normalise-Core-logGlue arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Got") arg-5 arg-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Normalise-Core-logGlue arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Exp") arg-5 arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 (vector 8 arg-4 e-0 arg-3) arg-1))))))))))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Delay") arg-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 (vector 7 arg-4 e-1 e-5 arg-3) arg-1)))))))))))))))))) -(define Check-Elab-TTImp-case--13692-7278 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (Check-Elab-TTImp-case--13724-7309 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (let ((sc1 arg-12)) (let ((e-3 (vector-ref sc1 4))) e-3))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Not solved") arg-3 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-11))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-clearDefs e-6 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 ((UnifyState-Core-newConstant arg-0 arg-10 arg-11 arg-4 arg-8 arg-5 arg-3 e-8 arg-13) eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (UnifyState-Core-dumpConstraints arg-10 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) 1 eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) ((Check-Elab-TTImp-case--13724-7542 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 e-6 e-7 e-8 e-9 e-10 (let ((sc6 arg-12)) (let ((e-3 (vector-ref sc6 4))) e-3))) eta-0))))))))))))))))))))))))))))))))))))) -(define Check-Elab-TTImp-case--13353-7131 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-13)) (cond ((equal? sc0 0) ((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17)) (else ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17)))))) -(define Check-Elab-TTImp-case--13353-6999 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-13)) (cond ((equal? sc0 0) ((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-0)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-0))))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17)) (else ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-0)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-0))))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17)))))) -(define Check-Elab-TTImp-case--13167-6951 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 arg-13)) (cond ((equal? sc3 0) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) e-5) e-6) eta-0)) (else (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) e-5) e-6) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-10 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-10 arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 arg-13)) (cond ((equal? sc3 0) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) e-5) e-6) eta-0)) (else (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) e-5) e-6) eta-0)))))))))))))))))))) -(define Check-Elab-TTImp-case--13167-6789 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP arg-6)))))) -(define Check-Elab-TTImp-case--12591-6567 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((sc3 e-13)) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-6 e-16))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-25 (let ((act-25 (set-box! arg-5 e-17))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((act-26 (let ((act-26 (set-box! arg-8 e-12))) (vector 1 act-26)))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((act-27 (Context-Core-commit arg-8 eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (vector 1 e-8))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (Check-Elab-TTImp-n--12591-6266-altError arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased (Either-Data-lefts 'erased 'erased arg-9) e-5) eta-0)))))))) -(define Check-Elab-TTImp-case--12623-6490 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (vector 21 arg-10)) (else (let ((e-2 (vector-ref sc0 1))) e-2)))))) -(define Check-Elab-TTImp-case--12635-6354 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (vector 1 e-6))(else (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-12)))))))(else (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-12))))))))(else (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-12))))))) -(define Check-Elab-TTImp-case--12619-6277 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (vector 1 e-6))(else (Check-Elab-TTImp-case--12635-6354 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased 'erased arg-11 arg-12 (List-Data-filter 'erased (lambda (x) (Prelude-C-61C-61_Eq__Nat (Builtin-fst 'erased 'erased x) 0)) arg-12)))))))(else (Check-Elab-TTImp-case--12635-6354 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased 'erased arg-11 arg-12 (List-Data-filter 'erased (lambda (x) (Prelude-C-61C-61_Eq__Nat (Builtin-fst 'erased 'erased x) 0)) arg-12))))))))(else (Check-Elab-TTImp-case--12635-6354 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased 'erased arg-11 arg-12 (List-Data-filter 'erased (lambda (x) (Prelude-C-61C-61_Eq__Nat (Builtin-fst 'erased 'erased x) 0)) arg-12))))))) -(define Check-Elab-TTImp-case--12132-6014 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Prelude-fromInteger_Num__Nat 0)) (else (List-Data-length 'erased (IntMap-Data-toList 'erased (let ((sc1 arg-17)) (let ((e-1 (vector-ref sc1 2))) e-1))))))))) -(define Check-Elab-TTImp-case--12132-5822 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Prelude-fromInteger_Num__Nat 0)) (else (List-Data-length 'erased (IntMap-Data-toList 'erased (let ((sc1 arg-10)) (let ((e-1 (vector-ref sc1 2))) e-1))))))))) -(define Check-Elab-TTImp-case--12048-5740 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (arg-2 e-5))))))) -(define Check-Elab-TTImp-case--11964-5670 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) (else arg-2))))) -(define Check-Elab-TTImp-case--11773-5596 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-10)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 (let ((sc1 arg-15)) (let ((e-27 (vector-ref sc1 25))) e-27)) e-25))))))))))))))))))))))))))))) -(define Check-Elab-TTImp-case--11545-5294 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-3)))))) -(define Check-Elab-TTImp-case--11444-5211 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-3)))))) -(define Check-Elab-TTImp-case--11383-5161 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-3)))))) -(define Check-Elab-TTImp-case--11325-5117 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (vector 0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (vector 1 arg-1 e-9) e-10 e-11 e-12 e-13))))))))))))))))) -(define Check-Elab-TTImp-case--11253-5053 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (vector 0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 arg-2 e-8) e-9 e-10 e-11 e-12 e-13))))))))))))))))) -(define Check-Elab-TTImp-case--11190-4990 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (vector 0 e-1 e-2 e-3 e-4 e-5 (List-Data-filter 'erased (lambda (x) (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (Builtin-fst 'erased 'erased x) arg-1)) e-6) e-7 e-8 e-9 e-10 e-11 e-12 e-13))))))))))))))))) -(define Check-Elab-TTImp-case--10410-4604 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-11 (vector-ref sc3 1))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (let ((e-14 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 2))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((1) (let ((e-17 (vector-ref sc5 1))) (let ((sc6 e-15)) (case (vector-ref sc6 0) ((1) (let ((e-19 (vector-ref sc6 1))) (lambda (eta-0) (vector 1 (vector 0 arg-6 (vector 1 arg-0 arg-11 e-5 e-11 e-17 e-19))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0))))))) -(define Check-Elab-TTImp-case--10410-4455 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-11 (vector-ref sc3 1))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (let ((e-13 (vector-ref sc4 1))) (lambda (eta-0) (vector 1 (vector 0 arg-6 (vector 0 arg-0 arg-10 e-5 e-11 e-13))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0))))))) -(define Check-Elab-TTImp-case--10409-4360 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Check-Elab-TTImp-n--10390-4221-removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3) (lambda (argsC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-2 (vector 1 (vector 0 ))) (lambda (fC-39) (Prelude-pure_Applicative__Maybe 'erased (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) fC-39 argsC-39))))))))))) -(define Check-Elab-TTImp-case--10181-4037 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (vector 0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-1 (vector 0 ) e-12) e-13))))))))))))))))) -(define Check-Elab-TTImp-n--10235-4062-wknTms (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((e-8 (vector-ref sc1 5))) (vector 0 e-2 (vector 0 (vector 1 arg-0 e-4) e-5 (TT-Core-map_Functor__PiInfo 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term arg-0 e-4 eta-0)) e-6) (TT-Core-weaken_Weaken__Term arg-0 e-4 e-7) (TT-Core-weaken_Weaken__Term arg-0 e-4 e-8))))))))) (else (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (let ((e-12 (vector-ref sc1 4))) (let ((e-13 (vector-ref sc1 5))) (let ((e-14 (vector-ref sc1 6))) (vector 0 e-2 (vector 1 (vector 1 arg-0 e-9) e-10 (TT-Core-map_Functor__PiInfo 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term arg-0 e-9 eta-0)) e-11) (TT-Core-weaken_Weaken__Term arg-0 e-9 e-12) (TT-Core-weaken_Weaken__Term arg-0 e-9 e-13) (TT-Core-weaken_Weaken__Term arg-0 e-9 e-14))))))))))))))))) -(define Check-Elab-TTImp-n--10390-4223-strTms (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((e-8 (vector-ref sc1 5))) (let ((sc2 e-4)) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-7 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-8 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) ((Check-Elab-TTImp-case--10410-4455 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-8 e-7 e-6 e-5 arg-6 e-9 e-10 (vector 0 (TT-Core-shrinkPi 'erased 'erased e-6 (vector 1 (vector 0 ))) (vector 0 (Check-Elab-TTImp-n--10390-4222-removeArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-9) (TT-Core-shrinkTerm 'erased 'erased e-10 (vector 1 (vector 0 )))))) eta-0))))))))))))))))))) (else (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (let ((e-12 (vector-ref sc1 4))) (let ((e-13 (vector-ref sc1 5))) (let ((e-14 (vector-ref sc1 6))) (let ((sc2 e-9)) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-12 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-13 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-14 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc5 1))) ((Check-Elab-TTImp-case--10410-4604 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-14 e-13 e-12 e-11 e-10 arg-6 e-5 e-6 e-7 (vector 0 (TT-Core-shrinkPi 'erased 'erased e-11 (vector 1 (vector 0 ))) (vector 0 (TT-Core-shrinkTerm 'erased 'erased e-5 (vector 1 (vector 0 ))) (vector 0 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 ))) (TT-Core-shrinkTerm 'erased 'erased e-7 (vector 1 (vector 0 ))))))) eta-0)))))))))))))))))))))))))))))))) -(define Check-Elab-TTImp-n--10390-4221-removeArgVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 e-8)) (cond ((equal? sc2 0) (Check-Elab-TTImp-n--10390-4221-removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3))(else (let ((e-10 (- e-8 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Check-Elab-TTImp-n--10390-4221-removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3) (lambda (argsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (vector 0 e-6 e-7 e-10) argsC-39))))))))))))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-2 (vector 1 (vector 0 ))) (lambda (aC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Check-Elab-TTImp-n--10390-4221-removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3) (lambda (argsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 aC-39 argsC-39)))))))))))))))) -(define Check-Elab-TTImp-n--10390-4222-removeArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (Check-Elab-TTImp-case--10409-4360 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 (TT-Core-getFnArgs 'erased arg-7)))) -(define Check-Elab-TTImp-n--9188-3111-insertAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) arg-7) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (NameMap-Data-insert 'erased e-6 e-7 (Check-Elab-TTImp-n--9188-3111-insertAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 arg-7)))))))))))) -(define Check-Elab-TTImp-n--12591-6262-getRight (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (Check-Elab-TTImp-case--12619-6277 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased 'erased arg-11 (Either-Data-rights 'erased 'erased arg-11)))) -(define Check-Elab-TTImp-n--12591-6263-getRes (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) e-6)))))) -(define Check-Elab-TTImp-n--12591-6264-getDepthError (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((20) (vector 1 arg-9))(else (vector 0 )))))) -(define Check-Elab-TTImp-n--10390-4224-dropTop (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (vector 0 ))(else (let ((e-4 (- arg-7 1))) (vector 1 e-4))))))) -(define Check-Elab-TTImp-n--10390-4219-dropSub (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-3))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Badly formed weakened environment") eta-0))))))) -(define Check-Elab-TTImp-n--12591-6265-depthError (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-7 (vector-ref sc1 2))) (Prelude-maybe 'erased 'erased (lambda () (Check-Elab-TTImp-n--12591-6265-depthError arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3)) (lambda () (lambda (eta-0) (vector 1 eta-0))) (Check-Elab-TTImp-n--12591-6264-getDepthError arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-7))))))))))) -(define Check-Elab-TTImp-n--12591-6266-altError (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (Check-Elab-TTImp-case--12623-6490 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-10 (Check-Elab-TTImp-n--12591-6265-depthError arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10)))(else (vector 18 arg-0 arg-3 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--12591-6263-getRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased eta-0)) arg-11))))))) +(define Check-Elab-TTImp-case--13897-7658 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 arg-18 arg-2)))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 8 arg-4 e-0 arg-3) arg-1))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 7 arg-4 e-1 e-5 arg-3) arg-1)))))))))))))) +(define Check-Elab-TTImp-case--13897-7425 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Solved") arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 arg-3 arg-2)))))))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Force") arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Normalise-Core-logGlue arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Got") arg-5 arg-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Normalise-Core-logGlue arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Exp") arg-5 arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 (vector 8 arg-4 e-0 arg-3) arg-1))))))))))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Delay") arg-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 (vector 7 arg-4 e-1 e-5 arg-3) arg-1)))))))))))))))))) +(define Check-Elab-TTImp-case--13865-7394 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (Check-Elab-TTImp-case--13897-7425 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (let ((sc1 arg-12)) (let ((e-3 (vector-ref sc1 4))) e-3))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Not solved") arg-3 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-11))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-clearDefs e-6 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 ((UnifyState-Core-newConstant arg-0 arg-10 arg-11 arg-4 arg-8 arg-5 arg-3 e-8 arg-13) eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (UnifyState-Core-dumpConstraints arg-10 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) 1 eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) ((Check-Elab-TTImp-case--13897-7658 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 e-6 e-7 e-8 e-9 e-10 (let ((sc6 arg-12)) (let ((e-3 (vector-ref sc6 4))) e-3))) eta-0))))))))))))))))))))))))))))))))))))) +(define Check-Elab-TTImp-case--13526-7247 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-13)) (cond ((equal? sc0 0) ((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17)) (else ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17)))))) +(define Check-Elab-TTImp-case--13526-7115 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-13)) (cond ((equal? sc0 0) ((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-0)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-0))))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17)) (else ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-0)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-0))))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17)))))) +(define Check-Elab-TTImp-case--13340-7067 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 arg-13)) (cond ((equal? sc3 0) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-1))))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) e-5) e-6) eta-0)) (else (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-1))))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) e-5) e-6) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-10 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-10 arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 arg-13)) (cond ((equal? sc3 0) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) e-5) e-6) eta-0)) (else (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) e-5) e-6) eta-0)))))))))))))))))))) +(define Check-Elab-TTImp-case--13340-6905 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP arg-6)))))) +(define Check-Elab-TTImp-case--12764-6683 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((sc3 e-13)) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-6 e-16))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-25 (let ((act-25 (set-box! arg-5 e-17))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((act-26 (let ((act-26 (set-box! arg-8 e-12))) (vector 1 act-26)))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((act-27 (Context-Core-commit arg-8 eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (vector 1 e-8))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (Check-Elab-TTImp-n--12764-6382-altError arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased (Either-Data-lefts 'erased 'erased arg-9) e-5) eta-0)))))))) +(define Check-Elab-TTImp-case--12796-6606 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (vector 21 arg-10)) (else (let ((e-2 (vector-ref sc0 1))) e-2)))))) +(define Check-Elab-TTImp-case--12808-6470 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (vector 1 e-6))(else (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-12)))))))(else (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-12))))))))(else (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-12))))))) +(define Check-Elab-TTImp-case--12792-6393 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (vector 1 e-6))(else (Check-Elab-TTImp-case--12808-6470 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased 'erased arg-11 arg-12 (List-Data-filter 'erased (lambda (x) (Prelude-C-61C-61_Eq__Nat (Builtin-fst 'erased 'erased x) 0)) arg-12)))))))(else (Check-Elab-TTImp-case--12808-6470 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased 'erased arg-11 arg-12 (List-Data-filter 'erased (lambda (x) (Prelude-C-61C-61_Eq__Nat (Builtin-fst 'erased 'erased x) 0)) arg-12))))))))(else (Check-Elab-TTImp-case--12808-6470 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased 'erased arg-11 arg-12 (List-Data-filter 'erased (lambda (x) (Prelude-C-61C-61_Eq__Nat (Builtin-fst 'erased 'erased x) 0)) arg-12))))))) +(define Check-Elab-TTImp-case--12305-6130 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Prelude-fromInteger_Num__Nat 0)) (else (List-Data-length 'erased (IntMap-Data-toList 'erased (let ((sc1 arg-17)) (let ((e-1 (vector-ref sc1 2))) e-1))))))))) +(define Check-Elab-TTImp-case--12305-5938 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Prelude-fromInteger_Num__Nat 0)) (else (List-Data-length 'erased (IntMap-Data-toList 'erased (let ((sc1 arg-10)) (let ((e-1 (vector-ref sc1 2))) e-1))))))))) +(define Check-Elab-TTImp-case--12221-5856 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (arg-2 e-5))))))) +(define Check-Elab-TTImp-case--12137-5786 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) (else arg-2))))) +(define Check-Elab-TTImp-case--11946-5712 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-10)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 (let ((sc1 arg-15)) (let ((e-27 (vector-ref sc1 25))) e-27)) e-25))))))))))))))))))))))))))))) +(define Check-Elab-TTImp-case--11718-5410 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-3)))))) +(define Check-Elab-TTImp-case--11586-5317 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-0 (vector-ref sc0 1))) (vector 0 e-0 0))))) +(define Check-Elab-TTImp-case--11550-5280 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((tynf (vector 1 e-1 (vector 2 e-5 e-6 e-7) e-3))) (Check-Elab-TTImp-case--11586-5317 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 e-3 e-5 e-6 e-7 tynf (Context-Core-holeInit 1)))))))(else (Context-Core-holeInit 1))))))))(else (Context-Core-holeInit 1)))))) +(define Check-Elab-TTImp-case--11489-5219 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-3)))))) +(define Check-Elab-TTImp-case--11428-5169 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-3)))))) +(define Check-Elab-TTImp-case--11370-5125 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (vector 0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (vector 1 arg-1 e-9) e-10 e-11 e-12 e-13))))))))))))))))) +(define Check-Elab-TTImp-case--11298-5061 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (vector 0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 arg-2 e-8) e-9 e-10 e-11 e-12 e-13))))))))))))))))) +(define Check-Elab-TTImp-case--11235-4998 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (vector 0 e-1 e-2 e-3 e-4 e-5 (List-Data-filter 'erased (lambda (x) (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (Builtin-fst 'erased 'erased x) arg-1)) e-6) e-7 e-8 e-9 e-10 e-11 e-12 e-13))))))))))))))))) +(define Check-Elab-TTImp-case--10455-4612 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-11 (vector-ref sc3 1))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (let ((e-14 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 2))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((1) (let ((e-17 (vector-ref sc5 1))) (let ((sc6 e-15)) (case (vector-ref sc6 0) ((1) (let ((e-19 (vector-ref sc6 1))) (lambda (eta-0) (vector 1 (vector 0 arg-6 (vector 1 arg-0 arg-11 e-5 e-11 e-17 e-19))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0))))))) +(define Check-Elab-TTImp-case--10455-4463 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-11 (vector-ref sc3 1))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (let ((e-13 (vector-ref sc4 1))) (lambda (eta-0) (vector 1 (vector 0 arg-6 (vector 0 arg-0 arg-10 e-5 e-11 e-13))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0))))))) +(define Check-Elab-TTImp-case--10454-4368 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Check-Elab-TTImp-n--10435-4229-removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3) (lambda (argsC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-2 (vector 1 (vector 0 ))) (lambda (fC-39) (Prelude-pure_Applicative__Maybe 'erased (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) fC-39 argsC-39))))))))))) +(define Check-Elab-TTImp-case--10226-4045 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (vector 0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-1 (vector 0 ) e-12) e-13))))))))))))))))) +(define Check-Elab-TTImp-n--10280-4070-wknTms (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((e-8 (vector-ref sc1 5))) (vector 0 e-2 (vector 0 (vector 1 arg-0 e-4) e-5 (TT-Core-map_Functor__PiInfo 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term arg-0 e-4 eta-0)) e-6) (TT-Core-weaken_Weaken__Term arg-0 e-4 e-7) (TT-Core-weaken_Weaken__Term arg-0 e-4 e-8))))))))) (else (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (let ((e-12 (vector-ref sc1 4))) (let ((e-13 (vector-ref sc1 5))) (let ((e-14 (vector-ref sc1 6))) (vector 0 e-2 (vector 1 (vector 1 arg-0 e-9) e-10 (TT-Core-map_Functor__PiInfo 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term arg-0 e-9 eta-0)) e-11) (TT-Core-weaken_Weaken__Term arg-0 e-9 e-12) (TT-Core-weaken_Weaken__Term arg-0 e-9 e-13) (TT-Core-weaken_Weaken__Term arg-0 e-9 e-14))))))))))))))))) +(define Check-Elab-TTImp-n--10435-4231-strTms (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((e-8 (vector-ref sc1 5))) (let ((sc2 e-4)) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-7 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-8 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) ((Check-Elab-TTImp-case--10455-4463 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-8 e-7 e-6 e-5 arg-6 e-9 e-10 (vector 0 (TT-Core-shrinkPi 'erased 'erased e-6 (vector 1 (vector 0 ))) (vector 0 (Check-Elab-TTImp-n--10435-4230-removeArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-9) (TT-Core-shrinkTerm 'erased 'erased e-10 (vector 1 (vector 0 )))))) eta-0))))))))))))))))))) (else (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (let ((e-12 (vector-ref sc1 4))) (let ((e-13 (vector-ref sc1 5))) (let ((e-14 (vector-ref sc1 6))) (let ((sc2 e-9)) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-12 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-13 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-14 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc5 1))) ((Check-Elab-TTImp-case--10455-4612 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-14 e-13 e-12 e-11 e-10 arg-6 e-5 e-6 e-7 (vector 0 (TT-Core-shrinkPi 'erased 'erased e-11 (vector 1 (vector 0 ))) (vector 0 (TT-Core-shrinkTerm 'erased 'erased e-5 (vector 1 (vector 0 ))) (vector 0 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 ))) (TT-Core-shrinkTerm 'erased 'erased e-7 (vector 1 (vector 0 ))))))) eta-0)))))))))))))))))))))))))))))))) +(define Check-Elab-TTImp-n--10435-4229-removeArgVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 e-8)) (cond ((equal? sc2 0) (Check-Elab-TTImp-n--10435-4229-removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3))(else (let ((e-10 (- e-8 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Check-Elab-TTImp-n--10435-4229-removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3) (lambda (argsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (vector 0 e-6 e-7 e-10) argsC-39))))))))))))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-2 (vector 1 (vector 0 ))) (lambda (aC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Check-Elab-TTImp-n--10435-4229-removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3) (lambda (argsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 aC-39 argsC-39)))))))))))))))) +(define Check-Elab-TTImp-n--10435-4230-removeArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (Check-Elab-TTImp-case--10454-4368 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 (TT-Core-getFnArgs 'erased arg-7)))) +(define Check-Elab-TTImp-n--9233-3119-insertAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) arg-7) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (NameMap-Data-insert 'erased e-6 e-7 (Check-Elab-TTImp-n--9233-3119-insertAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 arg-7)))))))))))) +(define Check-Elab-TTImp-n--12764-6378-getRight (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (Check-Elab-TTImp-case--12792-6393 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased 'erased arg-11 (Either-Data-rights 'erased 'erased arg-11)))) +(define Check-Elab-TTImp-n--12764-6379-getRes (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) e-6)))))) +(define Check-Elab-TTImp-n--12764-6380-getDepthError (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((20) (vector 1 arg-9))(else (vector 0 )))))) +(define Check-Elab-TTImp-n--10435-4232-dropTop (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (vector 0 ))(else (let ((e-4 (- arg-7 1))) (vector 1 e-4))))))) +(define Check-Elab-TTImp-n--10435-4227-dropSub (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-3))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Badly formed weakened environment") eta-0))))))) +(define Check-Elab-TTImp-n--12764-6381-depthError (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-7 (vector-ref sc1 2))) (Prelude-maybe 'erased 'erased (lambda () (Check-Elab-TTImp-n--12764-6381-depthError arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3)) (lambda () (lambda (eta-0) (vector 1 eta-0))) (Check-Elab-TTImp-n--12764-6380-getDepthError arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-7))))))))))) +(define Check-Elab-TTImp-n--12764-6382-altError (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (Check-Elab-TTImp-case--12796-6606 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-10 (Check-Elab-TTImp-n--12764-6381-depthError arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10)))(else (vector 18 arg-0 arg-3 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--12764-6379-getRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased eta-0)) arg-11))))))) (define Check-Elab-TTImp-show_Show__ElabMode (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "InType") ((1) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "InLHS " (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-0)))) ((2) "InExpr") (else "InTransform"))))) (define Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-0 d x)))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-0 d x))))) (vector 0 e-3 e-4)))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-5 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-5 d x)))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-5 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-5 d x))))) (vector 0 e-8 e-9)) (Strings-Prelude-C-43C-43 "@" (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-5 e-8))))))))))) (define Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased arg-2))) (define Check-Elab-TTImp-__Impl_Show_C-40ImplBindingC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (x) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x)) (lambda (d) (lambda (x) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d x)))))) -(define Check-Elab-TTImp-__Impl_Eq_ElabOpt (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))))) +(define Check-Elab-TTImp-__Impl_Eq_ElabOpt (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-438 arg-439)))))) (define Check-Elab-TTImp-C-61C-61_Eq__ElabOpt (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0)(else 1)))) ((3) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) 0)(else 1))))(else 1))))) (define Check-Elab-TTImp-C-47C-61_Eq__ElabOpt (lambda (arg-0 arg-1) (Prelude-not (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-0 arg-1)))) -(define Check-Elab-TTImp-weakenedEState (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "TTImp.Elab.Check.EST" ) (vector 0 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 1))) e-1)) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 2))) e-2)) (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 3))) e-3)) (vector 1 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 4))) e-4))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10235-4062-wknTms arg-0 arg-1 arg-2 'erased eta-0)) (let ((sc1 e-5)) (let ((e-14 (vector-ref sc1 5))) e-14))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10235-4062-wknTms arg-0 arg-1 arg-2 'erased eta-0)) (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 6))) e-6))) (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 7))) e-7)) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 8))) e-8)) (let ((sc1 e-5)) (let ((e-9 (vector-ref sc1 9))) e-9)) (let ((sc1 e-5)) (let ((e-10 (vector-ref sc1 10))) e-10)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-0 arg-1 eta-0)) (let ((sc1 e-5)) (let ((e-11 (vector-ref sc1 11))) e-11))) (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 12))) e-12)) (let ((sc1 e-5)) (let ((e-13 (vector-ref sc1 13))) e-13))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 e-6))))))))))))) +(define Check-Elab-TTImp-weakenedEState (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "TTImp.Elab.Check.EST" ) (vector 0 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 1))) e-1)) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 2))) e-2)) (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 3))) e-3)) (vector 1 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 4))) e-4))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10280-4070-wknTms arg-0 arg-1 arg-2 'erased eta-0)) (let ((sc1 e-5)) (let ((e-14 (vector-ref sc1 5))) e-14))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10280-4070-wknTms arg-0 arg-1 arg-2 'erased eta-0)) (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 6))) e-6))) (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 7))) e-7)) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 8))) e-8)) (let ((sc1 e-5)) (let ((e-9 (vector-ref sc1 9))) e-9)) (let ((sc1 e-5)) (let ((e-10 (vector-ref sc1 10))) e-10)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-0 arg-1 eta-0)) (let ((sc1 e-5)) (let ((e-11 (vector-ref sc1 11))) e-11))) (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 12))) e-12)) (let ((sc1 e-5)) (let ((e-13 (vector-ref sc1 13))) e-13))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 e-6))))))))))))) (define Check-Elab-TTImp-updateEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 0 arg-1 (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 2))) e-2)) arg-2 arg-3 (let ((sc0 arg-5)) (let ((e-5 (vector-ref sc0 5))) e-5)) (let ((sc0 arg-5)) (let ((e-6 (vector-ref sc0 6))) e-6)) arg-4 (let ((sc0 arg-5)) (let ((e-8 (vector-ref sc0 8))) e-8)) (let ((sc0 arg-5)) (let ((e-9 (vector-ref sc0 9))) e-9)) (let ((sc0 arg-5)) (let ((e-10 (vector-ref sc0 10))) e-10)) (let ((sc0 arg-5)) (let ((e-11 (vector-ref sc0 11))) e-11)) (let ((sc0 arg-5)) (let ((e-12 (vector-ref sc0 12))) e-12)) (let ((sc0 arg-5)) (let ((e-13 (vector-ref sc0 13))) e-13))))) (define EState-Check-Elab-TTImp-unambiguousNames (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-13 (vector-ref sc0 13))) e-13)))) (define Check-Elab-TTImp-tryError (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-5))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-3))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Context-Core-branch arg-2 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-28 (arg-6 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (Context-Core-commit arg-2 eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 (vector 1 e-9)))))))))))) (lambda (err) (lambda (eta-0) (let ((act-28 (let ((act-28 (set-box! arg-4 e-5))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 (set-box! arg-5 e-6))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 (set-box! arg-3 e-7))) (vector 1 act-30)))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-31 (let ((act-31 (unbox arg-2))) (vector 1 act-31)))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 (let ((act-32 (set-box! arg-2 (let ((sc8 e-8)) (let ((e-0 (vector-ref sc8 1))) (let ((e-1 (vector-ref sc8 2))) (let ((e-2 (vector-ref sc8 3))) (let ((e-3 (vector-ref sc8 4))) (let ((e-4 (vector-ref sc8 5))) (let ((e-33 (vector-ref sc8 6))) (let ((e-32 (vector-ref sc8 7))) (let ((e-31 (vector-ref sc8 8))) (let ((e-30 (vector-ref sc8 9))) (let ((e-29 (vector-ref sc8 10))) (let ((e-28 (vector-ref sc8 11))) (let ((e-27 (vector-ref sc8 12))) (let ((e-26 (vector-ref sc8 13))) (let ((e-13 (vector-ref sc8 14))) (let ((e-14 (vector-ref sc8 15))) (let ((e-15 (vector-ref sc8 16))) (let ((e-16 (vector-ref sc8 17))) (let ((e-17 (vector-ref sc8 18))) (let ((e-18 (vector-ref sc8 19))) (let ((e-19 (vector-ref sc8 20))) (let ((e-20 (vector-ref sc8 21))) (let ((e-21 (vector-ref sc8 22))) (let ((e-22 (vector-ref sc8 23))) (let ((e-23 (vector-ref sc8 24))) (let ((e-25 (vector-ref sc8 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 (let ((sc9 e-12)) (let ((e-35 (vector-ref sc9 25))) e-35)) e-25)))))))))))))))))))))))))))))) (vector 1 act-32)))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (vector 1 (vector 0 err))))))))))))))))))))))))) ext-0))))))))))))))))))))))) (define Check-Elab-TTImp-try (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (Check-Elab-TTImp-tryError 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2))) (else (arg-7 ext-0))))))))))) (define EState-Check-Elab-TTImp-toBind (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-6 (vector-ref sc0 6))) e-6)))) -(define Check-Elab-TTImp-successful (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((ncons (let ((sc3 arg-6)) (cond ((equal? sc3 0) (Prelude-fromInteger_Num__Nat 0)) (else (List-Data-length 'erased (IntMap-Data-toList 'erased (let ((sc4 e-5)) (let ((e-1 (vector-ref sc4 2))) e-1))))))))) (let ((act-25 (let ((act-25 (unbox arg-5))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (unbox arg-3))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (Context-Core-branch arg-2 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-28 (Context-Core-logC arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-28 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-3) (vector 1 (vector 1 "__")))) (lambda () (lambda (eta-3) (lambda (eta-4) (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) eta-3 eta-4)))) e-6) eta-2))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (Strings-Prelude-C-43C-43 "Running " (Name-Core-show_Show__Name e-11))))))))) eta-1))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-29 (e-7 eta-1))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-30 (let ((act-30 (unbox arg-4))) (vector 1 act-30)))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (let ((nconsC-39 (let ((sc9 arg-6)) (cond ((equal? sc9 0) (Prelude-fromInteger_Num__Nat 0)) (else (List-Data-length 'erased (IntMap-Data-toList 'erased (let ((sc10 e-13)) (let ((e-1 (vector-ref sc10 2))) e-1))))))))) (let ((act-31 (let ((act-31 (unbox arg-5))) (vector 1 act-31)))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-32 (let ((act-32 (unbox arg-3))) (vector 1 act-32)))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-33 (let ((act-33 (unbox arg-2))) (vector 1 act-33)))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-34 (let ((act-34 (set-box! arg-4 e-5))) (vector 1 act-34)))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((act-35 (let ((act-35 (set-box! arg-5 e-8))) (vector 1 act-35)))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-36 (let ((act-36 (set-box! arg-3 e-9))) (vector 1 act-36)))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((act-37 (let ((act-37 (set-box! arg-2 e-10))) (vector 1 act-37)))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-38 (Context-Core-logC arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-38 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-3) (vector 1 (vector 1 "__")))) (lambda () (lambda (eta-3) (lambda (eta-4) (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) eta-3 eta-4)))) e-6) eta-2))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc16 1))) (vector 1 (Strings-Prelude-C-43C-43 "Success " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-21) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat nconsC-39) (Strings-Prelude-C-43C-43 " - " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat ncons) ")"))))))))))))) eta-1))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((act-39 ((Check-Elab-TTImp-successful 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-1))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc17 1))) (vector 1 (vector 1 (vector 1 (vector 0 (Prelude-minus nconsC-39 ncons) (vector 0 e-12 (vector 0 e-16 (vector 0 e-13 e-14))))) e-22))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-28 (let ((act-28 (set-box! arg-4 e-5))) (vector 1 act-28)))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-29 (let ((act-29 (set-box! arg-5 e-8))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (set-box! arg-3 e-9))) (vector 1 act-30)))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-31 (let ((act-31 (set-box! arg-2 e-10))) (vector 1 act-31)))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 ((Check-Elab-TTImp-successful 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-1))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-33 ((Normalise-Core-normaliseErr arg-2 err) eta-1))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc11 1))) (vector 1 (vector 1 (vector 0 (vector 0 e-6 e-16)) e-15)))))))))))))))))))))))))))))) eta-0))))))))))))))))))))))))))))))))) +(define Check-Elab-TTImp-successful (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((ncons (let ((sc3 arg-6)) (cond ((equal? sc3 0) (Prelude-fromInteger_Num__Nat 0)) (else (List-Data-length 'erased (IntMap-Data-toList 'erased (let ((sc4 e-5)) (let ((e-1 (vector-ref sc4 2))) e-1))))))))) (let ((act-25 (let ((act-25 (unbox arg-5))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (unbox arg-3))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (Context-Core-branch arg-2 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-28 (Context-Core-logC arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-28 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-3) (vector 1 (vector 1 "__")))) (lambda () (lambda (eta-3) (lambda (eta-4) (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) eta-3 eta-4)))) e-6) eta-2))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (Strings-Prelude-C-43C-43 "Running " (Name-Core-show_Show__Name e-11))))))))) eta-1))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-29 (e-7 eta-1))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-30 (let ((act-30 (unbox arg-4))) (vector 1 act-30)))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (let ((nconsC-39 (let ((sc9 arg-6)) (cond ((equal? sc9 0) (Prelude-fromInteger_Num__Nat 0)) (else (List-Data-length 'erased (IntMap-Data-toList 'erased (let ((sc10 e-13)) (let ((e-1 (vector-ref sc10 2))) e-1))))))))) (let ((act-31 (let ((act-31 (unbox arg-5))) (vector 1 act-31)))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-32 (let ((act-32 (unbox arg-3))) (vector 1 act-32)))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-33 (let ((act-33 (unbox arg-2))) (vector 1 act-33)))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-34 (let ((act-34 (set-box! arg-4 e-5))) (vector 1 act-34)))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((act-35 (let ((act-35 (set-box! arg-5 e-8))) (vector 1 act-35)))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-36 (let ((act-36 (set-box! arg-3 e-9))) (vector 1 act-36)))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((act-37 (let ((act-37 (set-box! arg-2 e-10))) (vector 1 act-37)))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-38 (Context-Core-logC arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-38 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-3) (vector 1 (vector 1 "__")))) (lambda () (lambda (eta-3) (lambda (eta-4) (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) eta-3 eta-4)))) e-6) eta-2))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc16 1))) (vector 1 (Strings-Prelude-C-43C-43 "Success " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-21) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat nconsC-39) (Strings-Prelude-C-43C-43 " - " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat ncons) ")"))))))))))))) eta-1))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((act-39 ((Check-Elab-TTImp-successful 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-1))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc17 1))) (vector 1 (vector 1 (vector 1 (vector 0 (Prelude-minus nconsC-39 ncons) (vector 0 e-12 (vector 0 e-16 (vector 0 e-13 e-14))))) e-22))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-28 (let ((act-28 (set-box! arg-4 e-5))) (vector 1 act-28)))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-29 (let ((act-29 (set-box! arg-5 e-8))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (set-box! arg-3 e-9))) (vector 1 act-30)))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-31 (let ((act-31 (set-box! arg-2 e-10))) (vector 1 act-31)))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 ((Check-Elab-TTImp-successful 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-1))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-33 ((Normalise-Core-normaliseErr arg-2 err) eta-1))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc11 1))) (vector 1 (vector 1 (vector 0 (vector 0 e-6 e-16)) e-15)))))))))))))))))))))))))))))) eta-0))))))))))))))))))))))))))))))))) (define EState-Check-Elab-TTImp-subEnv (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 4))) e-4)))) -(define Check-Elab-TTImp-strengthenedEState (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Check-Elab-TTImp-n--10390-4219-dropSub arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 'erased 'erased 'erased (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 4))) e-4))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10390-4223-strTms arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 e-6 eta-0)) (let ((sc3 e-5)) (let ((e-16 (vector-ref sc3 5))) e-16))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10390-4223-strTms arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 e-6 eta-0)) (let ((sc4 e-5)) (let ((e-16 (vector-ref sc4 6))) e-16))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (vector 0 (let ((sc5 e-5)) (let ((e-1 (vector-ref sc5 1))) e-1)) (let ((sc5 e-5)) (let ((e-2 (vector-ref sc5 2))) e-2)) (let ((sc5 e-5)) (let ((e-3 (vector-ref sc5 3))) e-3)) e-7 e-8 e-9 (let ((sc5 e-5)) (let ((e-16 (vector-ref sc5 7))) e-16)) (let ((sc5 e-5)) (let ((e-15 (vector-ref sc5 8))) e-15)) (let ((sc5 e-5)) (let ((e-14 (vector-ref sc5 9))) e-14)) (let ((sc5 e-5)) (let ((e-10 (vector-ref sc5 10))) e-10)) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10390-4224-dropTop arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 'erased eta-0)) (let ((sc5 e-5)) (let ((e-11 (vector-ref sc5 11))) e-11))) (let ((sc5 e-5)) (let ((e-12 (vector-ref sc5 12))) e-12)) (let ((sc5 e-5)) (let ((e-13 (vector-ref sc5 13))) e-13))))))))))))))))))))))))))))))) +(define Check-Elab-TTImp-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--10435-4227-dropSub arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 'erased 'erased 'erased (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 4))) e-4))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10435-4231-strTms arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 e-6 eta-0)) (let ((sc3 e-5)) (let ((e-16 (vector-ref sc3 5))) e-16))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10435-4231-strTms arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 e-6 eta-0)) (let ((sc4 e-5)) (let ((e-16 (vector-ref sc4 6))) e-16))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (vector 0 (let ((sc5 e-5)) (let ((e-1 (vector-ref sc5 1))) e-1)) (let ((sc5 e-5)) (let ((e-2 (vector-ref sc5 2))) e-2)) (let ((sc5 e-5)) (let ((e-3 (vector-ref sc5 3))) e-3)) e-7 e-8 e-9 (let ((sc5 e-5)) (let ((e-16 (vector-ref sc5 7))) e-16)) (let ((sc5 e-5)) (let ((e-15 (vector-ref sc5 8))) e-15)) (let ((sc5 e-5)) (let ((e-14 (vector-ref sc5 9))) e-14)) (let ((sc5 e-5)) (let ((e-10 (vector-ref sc5 10))) e-10)) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10435-4232-dropTop arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 'erased eta-0)) (let ((sc5 e-5)) (let ((e-11 (vector-ref sc5 11))) e-11))) (let ((sc5 e-5)) (let ((e-12 (vector-ref sc5 12))) e-12)) (let ((sc5 e-5)) (let ((e-13 (vector-ref sc5 13))) e-13))))))))))))))))))))))))))))))) (define Check-Elab-TTImp-searchVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 ((UnifyState-Core-newSearch arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 2))) (vector 1 e-3)))))))))) (define EState-Check-Elab-TTImp-saveHoles (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-12 (vector-ref sc0 12))) e-12)))) (define Check-Elab-TTImp-saveHole (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-1 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((e-14 (vector-ref sc1 5))) (let ((e-6 (vector-ref sc1 6))) (let ((e-7 (vector-ref sc1 7))) (let ((e-8 (vector-ref sc1 8))) (let ((e-9 (vector-ref sc1 9))) (let ((e-10 (vector-ref sc1 10))) (let ((e-11 (vector-ref sc1 11))) (let ((e-12 (vector-ref sc1 12))) (let ((e-13 (vector-ref sc1 13))) (vector 0 e-1 e-2 e-3 e-4 e-14 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-2 (vector 0 ) e-12) e-13)))))))))))))))))) (vector 1 act-25))))))))) @@ -4072,8 +4114,8 @@ (define EState-Check-Elab-TTImp-outer (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (define Check-Elab-TTImp-notePatVar (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-1 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((e-14 (vector-ref sc1 5))) (let ((e-6 (vector-ref sc1 6))) (let ((e-7 (vector-ref sc1 7))) (let ((e-8 (vector-ref sc1 8))) (let ((e-9 (vector-ref sc1 9))) (let ((e-10 (vector-ref sc1 10))) (let ((e-11 (vector-ref sc1 11))) (let ((e-12 (vector-ref sc1 12))) (let ((e-13 (vector-ref sc1 13))) (vector 0 e-1 e-2 e-3 e-4 e-14 e-6 e-7 e-8 (vector 1 arg-2 e-9) e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-25))))))))) (define Check-Elab-TTImp-noteLHSPatVar (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (set-box! arg-1 (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((e-14 (vector-ref sc2 5))) (let ((e-6 (vector-ref sc2 6))) (let ((e-7 (vector-ref sc2 7))) (let ((e-8 (vector-ref sc2 8))) (let ((e-9 (vector-ref sc2 9))) (let ((e-10 (vector-ref sc2 10))) (let ((e-11 (vector-ref sc2 11))) (let ((e-12 (vector-ref sc2 12))) (let ((e-13 (vector-ref sc2 13))) (vector 0 e-1 e-2 e-3 e-4 e-14 e-6 e-7 (vector 1 arg-3 e-8) e-9 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-25)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Check-Elab-TTImp-metaVarI (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (UnifyState-Core-newMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 7 (Env-Core-length 'erased 'erased arg-5) 1) 0))) -(define Check-Elab-TTImp-metaVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-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) 1) 0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 2))) (vector 1 e-3)))))))))) +(define Check-Elab-TTImp-metaVarI (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Normalise-Core-nf arg-0 e-5 arg-5 arg-7) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((hinf (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((2) (let ((e-9 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((e-7 (vector-ref sc3 3))) (let ((tynf (vector 1 e-1 (vector 2 e-9 e-8 e-7) e-3))) (Check-Elab-TTImp-case--11586-5317 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-1 e-3 e-9 e-8 e-7 tynf (Context-Core-holeInit 1)))))))(else (Context-Core-holeInit 1))))))))(else (Context-Core-holeInit 1)))))) ((UnifyState-Core-newMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 7 (Env-Core-length 'erased 'erased arg-5) hinf) 0) ext-0)))))))))))))) +(define Check-Elab-TTImp-metaVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((UnifyState-Core-newMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 7 (Env-Core-length 'erased 'erased arg-5) (Context-Core-holeInit 1)) 0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 2))) (vector 1 e-3)))))))))) (define EState-Check-Elab-TTImp-linearUsed (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-11 (vector-ref sc0 11))) e-11)))) (define EState-Check-Elab-TTImp-lhsPatVars (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-8 (vector-ref sc0 8))) e-8)))) (define Check-Elab-TTImp-initElabInfo (lambda (arg-0) (vector 0 arg-0 (vector 2 ) 1 0 1 (vector 0 )))) @@ -4081,246 +4123,250 @@ (define Check-Elab-TTImp-initEState (lambda (arg-0 arg-1 arg-2) (Check-Elab-TTImp-initEStateSub 'erased arg-0 arg-1 arg-2 (vector 0 )))) (define Check-Elab-TTImp-inScope (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (Check-Elab-TTImp-weakenedEState arg-1 arg-2 arg-4 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((arg-7 e-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Check-Elab-TTImp-strengthenedEState arg-1 arg-2 arg-3 e-5 arg-5 arg-6 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 (set-box! arg-4 e-7))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 e-6)))))))))))))))))))))) (define ElabInfo-Check-Elab-TTImp-implicitMode (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) -(define Check-Elab-TTImp-implBindVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((UnifyState-Core-newMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 7 (Env-Core-length 'erased 'erased arg-5) 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-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--12591-6567 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 (Check-Elab-TTImp-n--12591-6262-getRight arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-7)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-successful 'erased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((Check-Elab-TTImp-case--12591-6567 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Check-Elab-TTImp-n--12591-6262-getRight arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-5)) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-successful 'erased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Check-Elab-TTImp-case--12591-6567 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Check-Elab-TTImp-n--12591-6262-getRight arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-5)) eta-0)))))))))))) +(define 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--12764-6683 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 (Check-Elab-TTImp-n--12764-6378-getRight arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-7)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-successful 'erased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((Check-Elab-TTImp-case--12764-6683 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Check-Elab-TTImp-n--12764-6378-getRight arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-5)) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-successful 'erased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Check-Elab-TTImp-case--12764-6683 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Check-Elab-TTImp-n--12764-6378-getRight arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-5)) eta-0)))))))))))) (define ElabInfo-Check-Elab-TTImp-elabMode (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (define EState-Check-Elab-TTImp-delayDepth (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-10 (vector-ref sc0 10))) e-10)))) (define EState-Check-Elab-TTImp-defining (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2)))) -(define Check-Elab-TTImp-convertWithLazy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((umode (Check-Elab-TTImp-case--13167-6789 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) e-0))))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Context-Core-isLazyActive arg-1 eta-1))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((lazy (Prelude-C-38C-38 e-5 (lambda () arg-4)))) (let ((act-25 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Unifying " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool arg-4) (Strings-Prelude-C-43C-43 " " (Check-Elab-TTImp-show_Show__ElabMode (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))))))) arg-8 arg-9 eta-1))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "....with") arg-8 arg-10 eta-1))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Check-Elab-TTImp-case--13167-6951 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 umode e-5 lazy e-6 e-7 (Prelude-C-38C-38 (Normalise-Core-isFromTerm 'erased arg-9) (lambda () (Normalise-Core-isFromTerm 'erased arg-10)))) eta-1))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((sc4 (let ((sc5 e-8)) (let ((e-1 (vector-ref sc5 2))) e-1)))) (cond ((equal? sc4 0) (Unify-Core-solveConstraints arg-1 arg-2 umode (vector 0 ) eta-1)) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 e-8))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 ((Normalise-Core-getTerm 'erased arg-9) eta-1))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Normalise-Core-getTerm 'erased arg-10) eta-1))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-2) (Unify-Core-solveConstraints arg-1 arg-2 umode (vector 0 ) eta-2)) (lambda (err-0) (lambda (eta-2) (vector 1 (vector 0 )))) eta-1))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (unbox arg-1))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 ((Normalise-Core-normaliseErr arg-1 (vector 5 arg-0 arg-6 arg-8 e-6 e-7 err)) eta-1))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-10 eta-1)))))))))))))))))))))))))))))) eta-0))))) +(define Check-Elab-TTImp-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--13340-6905 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) e-0))))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Context-Core-isLazyActive arg-1 eta-1))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((lazy (Prelude-C-38C-38 e-5 (lambda () arg-4)))) (let ((act-25 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Unifying " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool arg-4) (Strings-Prelude-C-43C-43 " " (Check-Elab-TTImp-show_Show__ElabMode (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))))))) arg-8 arg-9 eta-1))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "....with") arg-8 arg-10 eta-1))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Check-Elab-TTImp-case--13340-7067 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 umode e-5 lazy e-6 e-7 (Prelude-C-38C-38 (Normalise-Core-isFromTerm 'erased arg-9) (lambda () (Normalise-Core-isFromTerm 'erased arg-10)))) eta-1))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((sc4 (let ((sc5 e-8)) (let ((e-1 (vector-ref sc5 2))) e-1)))) (cond ((equal? sc4 0) (Unify-Core-solveConstraints arg-1 arg-2 umode (vector 0 ) eta-1)) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 e-8))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 ((Normalise-Core-getTerm 'erased arg-9) eta-1))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Normalise-Core-getTerm 'erased arg-10) eta-1))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-2) (Unify-Core-solveConstraints arg-1 arg-2 umode (vector 0 ) eta-2)) (lambda (err-0) (lambda (eta-2) (vector 1 (vector 0 )))) eta-1))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (unbox arg-1))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 ((Normalise-Core-normaliseErr arg-1 (vector 5 arg-0 arg-6 arg-8 e-6 e-7 err)) eta-1))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-10 eta-1)))))))))))))))))))))))))))))) eta-0))))) (define Check-Elab-TTImp-convertP (lambda (arg-0 arg-1 arg-2 arg-3 ext-0 ext-1 ext-2 ext-3 ext-4 ext-5) (Check-Elab-TTImp-convertWithLazy arg-0 arg-1 arg-2 arg-3 1 ext-0 ext-1 ext-2 ext-3 ext-4 ext-5))) (define Check-Elab-TTImp-convert (lambda (arg-0 arg-1 arg-2 arg-3 ext-0 ext-1 ext-2 ext-3 ext-4) (Check-Elab-TTImp-convertWithLazy arg-0 arg-1 arg-2 arg-3 1 1 ext-0 ext-1 ext-2 ext-3 ext-4))) -(define Check-Elab-TTImp-clearToBind (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-1 (Check-Elab-TTImp-case--11190-4990 'erased arg-2 arg-1 e-5 (Check-Elab-TTImp-clearBindIfUnsolved 'erased e-5))))) (vector 1 act-25))))))))) +(define Check-Elab-TTImp-clearToBind (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-1 (Check-Elab-TTImp-case--11235-4998 'erased arg-2 arg-1 e-5 (Check-Elab-TTImp-clearBindIfUnsolved 'erased e-5))))) (vector 1 act-25))))))))) (define Check-Elab-TTImp-clearBindIfUnsolved (lambda (arg-0 arg-1) (vector 0 (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2)) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) e-3)) (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 4))) e-4)) (let ((sc0 arg-1)) (let ((e-5 (vector-ref sc0 5))) e-5)) (let ((sc0 arg-1)) (let ((e-6 (vector-ref sc0 6))) e-6)) (vector 0 ) (let ((sc0 arg-1)) (let ((e-8 (vector-ref sc0 8))) e-8)) (let ((sc0 arg-1)) (let ((e-9 (vector-ref sc0 9))) e-9)) (let ((sc0 arg-1)) (let ((e-10 (vector-ref sc0 10))) e-10)) (let ((sc0 arg-1)) (let ((e-11 (vector-ref sc0 11))) e-11)) (let ((sc0 arg-1)) (let ((e-12 (vector-ref sc0 12))) e-12)) (let ((sc0 arg-1)) (let ((e-13 (vector-ref sc0 13))) e-13))))) -(define Check-Elab-TTImp-checkExpP (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-convertWithLazy arg-0 arg-1 arg-2 arg-3 0 arg-5 arg-8 arg-6 arg-7 arg-10 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Check-Elab-TTImp-case--13692-7278 arg-0 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-9 arg-10)))))))) +(define Check-Elab-TTImp-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--13865-7394 arg-0 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-9 arg-10)))))))) (define Check-Elab-TTImp-checkExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0 ext-1 ext-2 ext-3 ext-4) (Check-Elab-TTImp-checkExpP arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc0 arg-5)) (let ((e-4 (vector-ref sc0 5))) e-4)) arg-5 ext-0 ext-1 ext-2 ext-3 ext-4))) (define EState-Check-Elab-TTImp-boundNames (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-5 (vector-ref sc0 5))) e-5)))) (define ElabInfo-Check-Elab-TTImp-bindingVars (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))) (define Check-Elab-TTImp-bindingType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 5))) e-4)) (else (let ((e-9 (vector-ref sc0 5))) e-9)))))) (define Check-Elab-TTImp-bindingTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 4))) e-3)) (else (let ((e-8 (vector-ref sc0 4))) e-8)))))) (define Check-Elab-TTImp-bindingRig (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) e-1)) (else (let ((e-6 (vector-ref sc0 2))) e-6)))))) -(define Check-Elab-TTImp-bindingMetas (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 5))) (TT-Core-getMetas 'erased e-4))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (let ((e-10 (vector-ref sc0 6))) (Check-Elab-TTImp-n--9188-3111-insertAll e-5 e-10 e-9 e-8 e-7 e-6 (NameMap-Data-toList 'erased (TT-Core-getMetas 'erased e-9)) (TT-Core-getMetas 'erased e-10))))))))))))) +(define 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--9233-3119-insertAll e-5 e-10 e-9 e-8 e-7 e-6 (NameMap-Data-toList 'erased (TT-Core-getMetas 'erased e-9)) (TT-Core-getMetas 'erased e-10))))))))))))) (define EState-Check-Elab-TTImp-bindIfUnsolved (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-7 (vector-ref sc0 7))) e-7)))) -(define Check-Elab-TTImp-argVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (UnifyState-Core-newMetaLets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 7 (Env-Core-length 'erased 'erased arg-5) 1) 1 0))) +(define Check-Elab-TTImp-argVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (UnifyState-Core-newMetaLets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 7 (Env-Core-length 'erased 'erased arg-5) (Context-Core-holeInit 1)) 1 0))) (define Check-Elab-TTImp-anyOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-5 "No elaborators provided") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) e-7)(else (lambda (eta-0) (Check-Elab-TTImp-try 'erased arg-0 arg-1 arg-2 arg-3 arg-4 e-7 (Check-Elab-TTImp-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) eta-0)))))))))))))) (define ElabInfo-Check-Elab-TTImp-ambigTries (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5)))) (define EState-Check-Elab-TTImp-allPatVars (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-9 (vector-ref sc0 9))) e-9)))) (define Check-Elab-TTImp-addBindIfUnsolved (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 (let ((sc0 arg-7)) (let ((e-1 (vector-ref sc0 1))) e-1)) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 2))) e-2)) (let ((sc0 arg-7)) (let ((e-3 (vector-ref sc0 3))) e-3)) (let ((sc0 arg-7)) (let ((e-4 (vector-ref sc0 4))) e-4)) (let ((sc0 arg-7)) (let ((e-5 (vector-ref sc0 5))) e-5)) (let ((sc0 arg-7)) (let ((e-6 (vector-ref sc0 6))) e-6)) (vector 1 (vector 0 arg-1 (vector 0 arg-2 (vector 0 arg-0 (vector 0 arg-4 (vector 0 arg-3 (vector 0 arg-5 (vector 0 arg-6 (let ((sc0 arg-7)) (let ((e-4 (vector-ref sc0 4))) e-4))))))))) (let ((sc0 arg-7)) (let ((e-7 (vector-ref sc0 7))) e-7))) (let ((sc0 arg-7)) (let ((e-8 (vector-ref sc0 8))) e-8)) (let ((sc0 arg-7)) (let ((e-9 (vector-ref sc0 9))) e-9)) (let ((sc0 arg-7)) (let ((e-10 (vector-ref sc0 10))) e-10)) (let ((sc0 arg-7)) (let ((e-11 (vector-ref sc0 11))) e-11)) (let ((sc0 arg-7)) (let ((e-12 (vector-ref sc0 12))) e-12)) (let ((sc0 arg-7)) (let ((e-13 (vector-ref sc0 13))) e-13))))) -(define Either-Data-case--1456-349 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (Either-Data-rights 'erased 'erased arg-3)) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5 (Either-Data-rights 'erased 'erased arg-3)))))))) -(define Either-Data-case--1401-303 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 (Either-Data-lefts 'erased 'erased arg-3)))) (else (Either-Data-lefts 'erased 'erased arg-3)))))) +(define Either-Data-case--1458-357 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (Either-Data-rights 'erased 'erased arg-3)) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5 (Either-Data-rights 'erased 'erased arg-3)))))))) +(define Either-Data-case--1403-311 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 (Either-Data-lefts 'erased 'erased arg-3)))) (else (Either-Data-lefts 'erased 'erased arg-3)))))) (define Either-Data-rights (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Either-Data-rights 'erased 'erased e-3)) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 e-5 (Either-Data-rights 'erased 'erased e-3))))))))))))) +(define Either-Data-maybeToEither (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 e-1))) (else (vector 0 (arg-2))))))) (define Either-Data-lefts (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4 (Either-Data-lefts 'erased 'erased e-3)))) (else (Either-Data-lefts 'erased 'erased e-3))))))))))) -(define Unify-Core-case--23093-22152 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-9))))))))))))) -(define Unify-Core-case--23617-22059 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-13)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-9))))))))))))) -(define Unify-Core-case--23677-21921 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-13)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-9))))))))))))) -(define Unify-Core-case--23617-21832 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Dot type") (vector 0 ) e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (set-box! arg-1 (let ((sc2 arg-13)) (let ((e-0 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-0 e-11 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-9)))))))))))))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Normalise-Core-normaliseHoles arg-2 arg-16 arg-7 arg-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Normalise-Core-normaliseHoles arg-2 arg-16 arg-7 arg-5 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 44 arg-2 arg-10 arg-7 arg-4 e-7 e-8) eta-0)))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0))))))) -(define Unify-Core-case--23098-21785 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((54) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact arg-3 (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 1))) e-27)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-logTermNF (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Dot type") (vector 0 ) e-1 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (set-box! arg-1 (let ((sc5 arg-13)) (let ((e-14 (vector-ref sc5 1))) (let ((e-13 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-11 (vector-ref sc5 7))) (let ((e-10 (vector-ref sc5 8))) (let ((e-8 (vector-ref sc5 9))) (let ((e-9 (vector-ref sc5 10))) (vector 0 e-14 e-13 e-2 e-3 e-4 (vector 0 ) e-11 e-10 e-8 e-9)))))))))))))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-28 (Normalise-Core-normaliseHoles arg-2 e-5 arg-7 arg-6 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (Normalise-Core-normaliseHoles arg-2 e-5 arg-7 arg-5 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 44 arg-2 arg-10 arg-7 arg-4 e-9 e-10) eta-0))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-1 (let ((sc0 arg-13)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-9)))))))))))))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased arg-14 eta-0))))))))))) -(define Unify-Core-case--23238-21602 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((7) 0)(else 1))))) -(define Unify-Core-case--23238-21511 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((7) 0)(else 1))))) -(define Unify-Core-case--23163-21467 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((hBefore (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((7) 0)(else 1))))) (let ((h (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) 0)(else 1))))) (lambda (eta-0) (let ((act-24 ((Unify-Core-checkArgsSame arg-1 arg-0 (let ((sc1 arg-17)) (let ((e-2 (vector-ref sc1 3))) e-2))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 (Prelude-C-124C-124 (Prelude-not (List-Data-isNil 'erased (let ((sc3 arg-17)) (let ((e-0 (vector-ref sc3 1))) e-0)))) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 hBefore (lambda () (Prelude-not h))) (lambda () e-5)))))) (cond ((equal? sc2 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Dot pattern match fail") eta-0)) (else (vector 1 (vector 0 ))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0))))))) -(define Unify-Core-case--23098-21407 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) arg-2 arg-0 arg-1) (Unify-Core-inMatch)) arg-10) arg-7) arg-6) arg-5) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-lookupDefExact arg-3 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) (let ((hBefore (let ((sc5 e-1)) (case (vector-ref sc5 0) ((7) 0)(else 1))))) (let ((h (let ((sc5 e-2)) (case (vector-ref sc5 0) ((7) 0)(else 1))))) (let ((act-27 ((Unify-Core-checkArgsSame arg-1 arg-0 (let ((sc5 e-5)) (let ((e-4 (vector-ref sc5 3))) e-4))) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 (Prelude-C-124C-124 (Prelude-not (List-Data-isNil 'erased (let ((sc7 e-5)) (let ((e-0 (vector-ref sc7 1))) e-0)))) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 hBefore (lambda () (Prelude-not h))) (lambda () e-8)))))) (cond ((equal? sc6 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Dot pattern match fail") eta-0)) (else (vector 1 (vector 0 )))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0)))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0))))))) -(define Unify-Core-case--22985-21284 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1)))))) -(define Unify-Core-case--22788-21252 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-9)) (cond ((equal? sc4 0) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 e-10 arg-1) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (cond ((equal? sc6 0) (vector 1 0)) (else ((Unify-Core-checkArgsSame arg-3 arg-2 arg-1) eta-0)))))))))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1)))))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1)))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1)))))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1))))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1)))))) -(define Unify-Core-case--22829-21162 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))) -(define Unify-Core-case--22802-21117 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-9)) (cond ((equal? sc4 0) (lambda (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__Term (vector 0 ) arg-7 (vector 0 ) arg-6 e-10 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (cond ((equal? sc6 0) (vector 1 0)) (else ((Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5) eta-0)))))))))))(else (Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))))(else (Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))(else (Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))))(else (Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5))))))(else (Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))) -(define Unify-Core-case--22665-20990 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((8) (lambda (eta-0) (Context-Core-updateDef arg-1 (vector 9 arg-4) (lambda (eta-1) (vector 1 (vector 7 0 1))) eta-0))) ((9) (lambda (eta-0) (Context-Core-updateDef arg-1 (vector 9 arg-4) (lambda (eta-1) (vector 1 (vector 7 0 1))) eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Unify-Core-case--22285-20828 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 9 arg-12 arg-11 arg-16) e-18 e-19 e-20)))))))))))))))))))))))) -(define Unify-Core-case--22285-20718 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 arg-12) (vector 1 0 arg-12) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) -(define Unify-Core-case--21141-20629 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (let ((gdef (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 arg-12) (vector 1 0 arg-12) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved " (Name-Core-show_Show__Name arg-2))) arg-12 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (UnifyState-Core-removeGuess arg-5 arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (let ((sc4 arg-15)) (let ((e-1 (vector-ref sc4 2))) e-1))))))))))))))))))(else (let ((gdef (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 9 arg-12 arg-11 arg-16) e-18 e-19 e-20)))))))))))))))))))))))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 1)))))))))))) -(define Unify-Core-case--21141-20563 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (Unify-Core-inMatch))(else arg-4))))) -(define Unify-Core-case--21617-20506 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 9 arg-16 arg-11 arg-15) e-18 e-19 e-20)))))))))))))))))))))))) -(define Unify-Core-case--21617-20349 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-12))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Unify-Core-forceMeta 'erased e-0 arg-11 arg-12))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((GetType-Core-getType (vector 0 ) arg-6 (vector 0 ) arg-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retry Delay (constrained)") arg-12 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Normalise-Core-getTerm 'erased e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Unify-Core-delayMeta (vector 0 ) e-1 arg-11 e-7 arg-12))))))))))))))))))))))) -(define Unify-Core-case--21617-20258 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 arg-15) (vector 1 0 arg-15) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) -(define Unify-Core-case--21617-20107 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-12))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Unify-Core-forceMeta 'erased e-0 arg-11 arg-12))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((GetType-Core-getType (vector 0 ) arg-6 (vector 0 ) arg-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retry Delay") arg-12 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Normalise-Core-getTerm 'erased e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Unify-Core-delayMeta (vector 0 ) e-1 arg-11 e-7 arg-12))))))))))))))))))))))) -(define Unify-Core-case--21141-20036 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Unify-Core-case--21617-20107 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (let ((sc1 arg-14)) (let ((e-3 (vector-ref sc1 4))) e-3))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((gdef (let ((sc2 arg-8)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-21 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-21 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 e-5) (vector 1 0 e-5) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved " (Name-Core-show_Show__Name arg-2))) e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (UnifyState-Core-removeGuess arg-5 arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (let ((sc5 arg-14)) (let ((e-1 (vector-ref sc5 2))) e-1)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Unify-Core-case--21617-20349 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (let ((sc0 arg-14)) (let ((e-3 (vector-ref sc0 4))) e-3))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((gdef (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-21 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-21 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 9 e-5 arg-11 arg-15) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-25 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 1))))))))))))))))) -(define Unify-Core-case--21141-19975 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (Unify-Core-inMatch))(else arg-4))))) -(define Unify-Core-case--21141-19907 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (Context-Core-defaultPI) (vector 0 ) (vector 1 0 arg-13) (vector 1 0 arg-13) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) -(define Unify-Core-case--21226-19813 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (lambda (eta-0) (let ((act-24 ((Normalise-Core-normaliseErr arg-6 arg-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-5 eta-0))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Unify-Core-case--21141-19698 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((30) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Failed (det " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) ")"))))) (let ((sc1 arg-8)) (let ((e-24 (vector-ref sc1 3))) e-24)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((act-25 (Unify-Core-setInvertible arg-6 arg-1 (vector 9 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (vector 1 1)))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Search failed at " (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega arg-12) (Strings-Prelude-C-43C-43 " for " (Name-Core-show_Show__Name arg-2))))) (vector 0 ) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 3))) e-2)) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((act-25 ((Normalise-Core-normaliseErr arg-6 arg-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-6 eta-0)))))))(else (vector 1 1)))))))))))))) -(define Unify-Core-case--21092-19621 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-6 arg-5 (lambda (eta-1) (let ((act-24 (Unify-Core-search (vector 0 ) arg-6 arg-5 arg-1 e-0 (Unify-Core-C-61C-61_Eq__SolveMode arg-3 (vector 1 )) e-1 e-2 (let ((sc1 arg-8)) (let ((e-21 (vector-ref sc1 3))) e-21)) (vector 0 ) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((gdef (let ((sc2 arg-8)) (let ((e-24 (vector-ref sc2 1))) (let ((e-23 (vector-ref sc2 2))) (let ((e-22 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-21 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (vector 0 e-24 e-23 e-22 e-3 e-4 e-21 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (Context-Core-defaultPI) (vector 0 ) (vector 1 0 e-5) (vector 1 0 e-5) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Solved " (Name-Core-show_Show__Name arg-2))) (vector 0 ) e-5 eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-27 (UnifyState-Core-removeGuess arg-5 arg-0 eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 0)))))))))))))))))))) (lambda (err) (let ((sc1 err)) (case (vector-ref sc1 0) ((30) (let ((e-6 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (lambda (eta-1) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Failed (det " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) ")"))))) (let ((sc2 arg-8)) (let ((e-27 (vector-ref sc2 3))) e-27)) eta-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 1))) (vector 0 e-9))) (else (let ((act-25 (Unify-Core-setInvertible arg-6 arg-1 (vector 9 e-3) eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (vector 1 1)))))))))))))(else (lambda (eta-1) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Search failed at " (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-0) (Strings-Prelude-C-43C-43 " for " (Name-Core-show_Show__Name arg-2))))) (vector 0 ) (let ((sc1 arg-8)) (let ((e-21 (vector-ref sc1 3))) e-21)) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((act-25 ((Normalise-Core-normaliseErr arg-6 err) eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-6 eta-1)))))))(else (vector 1 1))))))))))))) eta-0)))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((0) (let ((umode (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((2) (Unify-Core-inMatch))(else arg-4))))) (lambda (eta-0) (let ((act-24 (Unify-Core-retry arg-6 arg-5 umode e-7 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((Unify-Core-case--21141-20036 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-7 e-4 e-3 umode e-6 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0)))))))))(else (let ((umode (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((2) (Unify-Core-inMatch))(else arg-4))))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Unify-Core-retry arg-6 arg-5 umode eta-1 eta-2))) e-5) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((csAll (Unify-Core-unionAll e-6))) ((Unify-Core-case--21141-20629 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5 e-4 e-3 umode e-6 csAll (let ((sc3 csAll)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0)))))))))))))))(else (let ((umode (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (Unify-Core-inMatch))(else arg-4))))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Unify-Core-retry arg-6 arg-5 umode eta-1 eta-2))) e-5) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((csAll (Unify-Core-unionAll e-6))) ((Unify-Core-case--21141-20629 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5 e-4 e-3 umode e-6 csAll (let ((sc2 csAll)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))))))))))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Unify-Core-case--21058-19581 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-2))) (Unify-Core-case--21092-19621 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 bind-0 (let ((sc1 e-2)) (let ((e-17 (vector-ref sc1 18))) e-17)))))))))) -(define Unify-Core-case--20472-19455 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-deleteConstraint arg-3 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-10)))))))(else (lambda (eta-0) (vector 1 arg-10))))))) -(define Unify-Core-case--20539-19301 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda () "(lazy allowed)")) (else (lambda () "(no lazy)")))))) -(define Unify-Core-case--20539-19191 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Success " (Unify-Core-show_Show__AddLazy (let ((sc1 arg-16)) (let ((e-3 (vector-ref sc1 4))) e-3))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (UnifyState-Core-deleteConstraint arg-3 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 arg-16)))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Constraints " (Unify-Core-show_Show__AddLazy (let ((sc0 arg-16)) (let ((e-3 (vector-ref sc0 4))) e-3))))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 arg-16))))))))))) -(define Unify-Core-case--20472-19092 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Normalise-Core-logTermNF arg-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Retrying " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-1) (Strings-Prelude-C-43C-43 " " (Unify-Core-show_Show__UnifyMode (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2))))))) arg-8 arg-7 eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logTermNF arg-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "....with") arg-8 arg-6 eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (let ((sc3 arg-10)) (cond ((equal? sc3 0) (lambda () "(lazy allowed)")) (else (lambda () "(no lazy)")))) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Unify-Core-ifThenElse 'erased arg-10 (lambda () ((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-2)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-2))))))))))) arg-5 arg-0 arg-3) arg-2) arg-11) arg-8) arg-7) arg-6)) (lambda () ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-2)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-2))))))))))) arg-5 arg-0 arg-3) (Unify-Core-lower arg-2)) arg-11) arg-8) arg-7) arg-6))) eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((Unify-Core-case--20539-19191 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 e-6 e-7 e-8 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) e-0))) eta-1)))))))))))))))))))))) (lambda (err) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 5 arg-5 arg-11 arg-8 arg-7 arg-6 err) eta-1))) eta-0))) (else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-1) (Strings-Prelude-C-43C-43 " still blocked on " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-9)))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Normalise-Core-logTermNF arg-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "X") arg-8 arg-7 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Normalise-Core-logTermNF arg-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Y") arg-8 arg-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (Unify-Core-constrain arg-1)))))))))))))))))))) -(define Unify-Core-case--20241-19034 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (Unify-Core-success)))) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (let ((e-6 (vector-ref sc1 4))) (let ((e-7 (vector-ref sc1 5))) (let ((e-8 (vector-ref sc1 6))) (let ((e-9 (vector-ref sc1 7))) (lambda (eta-0) (let ((act-24 ((Core-Core-anyM 'erased (lambda (eta-1) (Unify-Core-n--20241-18829-definedN arg-0 arg-1 arg-2 arg-3 eta-1)) e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc2 1))) ((Unify-Core-case--20472-19092 arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-9 e-8 e-7 e-6 e-5 e-4 e-10 (Prelude-C-124C-124 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-2)) (let ((e-11 (vector-ref sc3 3))) e-11)) (vector 1 )) (lambda () (Prelude-C-124C-124 e-10 (lambda () (List-Data-isNil 'erased e-6)))))) eta-0))))))))))))))) (else (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((e-13 (vector-ref sc1 4))) (let ((e-14 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-1) (Normalise-Core-quote_Quote__Term vars arg-6775 arg-6776 arg-6778 eta-1)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Term vars arg-6780 arg-6782 arg-6783 arg-6785 eta-1))))))))) e-10 arg-0 arg-3 arg-2 e-11 e-12 e-13 e-14) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) ((Unify-Core-case--20472-19455 arg-0 arg-1 arg-2 arg-3 arg-4 e-10 e-14 e-13 e-12 e-11 e-5 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))))))))))))))))))))) -(define Unify-Core-case--20272-18877 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((7) (lambda (eta-0) (vector 1 (let ((sc1 arg-9)) (let ((e-14 (vector-ref sc1 15))) e-14))))) ((8) (lambda (eta-0) (vector 1 1))) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0))))))) -(define Unify-Core-case--20249-18854 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Unify-Core-case--20272-18877 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Unify-Core-case--20118-18760 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 0 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))))) -(define Unify-Core-case--20099-18716 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-2 arg-0 (let ((sc1 e-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 0 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))))))) -(define Unify-Core-case--19951-18617 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-8 arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-8 arg-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0))))))))))))))))) -(define Unify-Core-case--19668-18379 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Skipped unification (equal already): " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-4) (Strings-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-3))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (Unify-Core-success)))))))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-8 arg-5 arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf arg-0 arg-8 arg-5 arg-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0))))))))))))))))) -(define Unify-Core-case--19664-18267 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Skipped unification (equal already): " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-4) (Strings-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-3))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (Unify-Core-success)))))))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-8 arg-5 arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf arg-0 arg-8 arg-5 arg-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0))))))))))))))))) -(define Unify-Core-case--18826-18086 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 e-1 e-2 (vector 2 arg-5)))))))) -(define Unify-Core-case--18826-18035 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 e-1 e-2 (vector 1 arg-5)))))))) -(define Unify-Core-case--19217-17838 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-11 arg-10 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Normalise-Core-nf arg-0 arg-14 arg-11 (vector 3 arg-8 arg-7 (vector 0 arg-5 (vector 1 ) e-1) (vector 4 arg-8 (TT-Core-weaken_Weaken__Term arg-7 arg-0 e-5) (vector 0 arg-8 (vector 0 ) 0)))) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-11 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-13)) arg-12) arg-11) e-5) arg-9) eta-0)))))))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9)))))) -(define Unify-Core-case--18822-17737 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9)) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-11 arg-9 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Unify-Core-getEtaType arg-0 arg-1 arg-2 arg-11 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-11 arg-10 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) ((Normalise-Core-nf arg-0 arg-14 arg-11 (vector 3 arg-8 arg-7 (vector 0 arg-5 (vector 1 ) e-1) (vector 4 arg-8 (TT-Core-weaken_Weaken__Term arg-7 arg-0 e-7) (vector 0 arg-8 (vector 0 ) 0)))) eta-0)))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-11 e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-13)) arg-12) arg-11) e-7) arg-9) eta-0))))))))))))(else ((Unify-Core-unifyNoEta arg-1 arg-2 arg-0 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9) eta-0)))))))))))))))))))) -(define Unify-Core-case--18915-17564 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-11 arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Normalise-Core-nf arg-0 arg-14 arg-11 (vector 3 arg-9 arg-8 (vector 0 arg-6 (vector 1 ) e-1) (vector 4 arg-9 (TT-Core-weaken_Weaken__Term arg-8 arg-0 e-5) (vector 0 arg-9 (vector 0 ) 0)))) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-11 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) arg-13) arg-12) arg-11) arg-10) e-5) eta-0)))))))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-13 arg-12 arg-11 arg-10 arg-3)))))) -(define Unify-Core-case--18822-17463 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-3)) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-11 arg-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Unify-Core-getEtaType arg-0 arg-1 arg-2 arg-11 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-11 arg-3 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) ((Normalise-Core-nf arg-0 arg-14 arg-11 (vector 3 arg-9 arg-8 (vector 0 arg-6 (vector 1 ) e-1) (vector 4 arg-9 (TT-Core-weaken_Weaken__Term arg-8 arg-0 e-7) (vector 0 arg-9 (vector 0 ) 0)))) eta-0)))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-11 e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) arg-13) arg-12) arg-11) arg-10) e-7) eta-0))))))))))))(else ((Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-13 arg-12 arg-11 arg-10 arg-3) eta-0)))))))))))))))))))) -(define Unify-Core-case--12583-17197 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-9 arg-4 e-8 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (vector 1 e-10))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Unify-Core-case--12583-17117 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (TT-Core-shrinkTerm 'erased 'erased e-1 (vector 1 (vector 0 ))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Unify-Core-case--12579-16974 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Unify-Core-unifyApp arg-9 arg-8 arg-0 0 arg-7 arg-6 arg-5 arg-3 arg-2 arg-1 arg-4)) (else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unify if Eq due to something with app") eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-9 arg-8 arg-0 0 arg-6 arg-7 arg-5 arg-4 (vector 1 arg-3 arg-2 arg-1) eta-0))))))))))) -(define Unify-Core-case--12579-16771 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-14))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6775 arg-6776 arg-6778 eta-1)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6780 arg-6782 arg-6783 arg-6785 eta-1))))))))) arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-1 arg-6) eta-0))))))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-15 arg-12 arg-11 (vector 3 arg-5 arg-4 arg-3 arg-2 arg-1) (vector 3 arg-10 arg-9 arg-8 arg-7 arg-6) eta-0))))))) -(define Unify-Core-case--12579-16666 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-14))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6775 arg-6776 arg-6778 eta-1)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6780 arg-6782 arg-6783 arg-6785 eta-1))))))))) arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-1 arg-6) eta-0))))))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-15 arg-12 arg-11 (vector 2 arg-5 arg-4 arg-3 arg-2 arg-1) (vector 2 arg-10 arg-9 arg-8 arg-7 arg-6) eta-0))))))) -(define Unify-Core-case--12572-16355 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-17 arg-14 arg-13 (vector 0 arg-12 arg-11 (vector 0 arg-3 arg-2 arg-1) arg-10) (vector 0 arg-9 arg-8 (vector 0 arg-6 arg-5 arg-4) arg-7) eta-0))) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-18 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-17 arg-16) (Unify-Core-lower arg-15)) arg-14) arg-13) arg-1) arg-4) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (UnifyState-Core-genVarName arg-17 arg-16 "x" eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((envC-39 (vector 1 (vector 0 arg-3 (vector 1 ) e-6) arg-13))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 arg-1 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 arg-4 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-30 (((arg-10 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) e-8))) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (((arg-7 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) e-8))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 e-11 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 e-12 eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) (vector 1 arg-11 arg-0) arg-17 arg-16) (Unify-Core-lower (Unify-Core-lam arg-15))) arg-14) envC-39) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 e-8 (vector 0 )) e-13)) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 e-8 (vector 0 )) e-14)) eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc11 1))) (vector 1 (Unify-Core-union e-7 e-15)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Unify-Core-case--17301-16059 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (((arg-10 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) arg-23))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (((arg-7 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) arg-23))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 e-5 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 e-6 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) (vector 1 arg-11 arg-0) arg-17 arg-16) (Unify-Core-lower arg-15)) arg-14) arg-24) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 arg-23 (vector 0 )) e-7)) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 arg-23 (vector 0 )) e-8)) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 arg-1 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 arg-4 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((UnifyState-Core-newConstant arg-0 arg-16 arg-17 arg-14 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-13 (vector 3 arg-12 arg-11 (vector 0 arg-6 (vector 1 ) e-5) (vector 0 arg-12 (vector 0 ) 0)) (vector 3 arg-12 arg-11 (vector 2 arg-6 (vector 1 ) e-5) (TT-Core-weaken_Weaken__Term arg-11 arg-0 e-6)) arg-25) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (((arg-10 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) arg-23))) eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (((arg-7 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 4 arg-14 e-7 (vector 1 arg-14 (vector 0 ) arg-23)))) eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 e-8 eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 e-9 eta-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) (vector 1 arg-11 arg-0) arg-17 arg-16) (Unify-Core-lower arg-15)) arg-14) arg-24) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 arg-23 (vector 0 )) e-10)) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 arg-23 (vector 0 )) e-11)) eta-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (vector 1 (Unify-Core-union arg-22 e-12)))))))))))))))))))))))))))))))))))))))))))))))) -(define Unify-Core-case--12572-15891 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-17 arg-14 arg-13 (vector 0 arg-12 arg-11 (vector 2 arg-3 arg-2 arg-1) arg-10) (vector 0 arg-9 arg-8 (vector 2 arg-6 arg-5 arg-4) arg-7) eta-0))) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-18 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-logC arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 arg-4 eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Unifying arg types " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-6) (Strings-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7))))))))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-17 arg-16) (Unify-Core-lower arg-15)) arg-14) arg-13) arg-1) arg-4) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (UnifyState-Core-genVarName arg-17 arg-16 "x" eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((envC-39 (vector 1 (vector 2 arg-6 (vector 1 ) e-6) arg-13))) ((Unify-Core-case--17301-16059 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 e-5 e-6 e-7 e-8 e-9 envC-39 (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0))))))))))))))))))))))))))))))))) -(define Unify-Core-case--12567-15703 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-logC arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-17))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (arg-19) (lambda (eta-2) (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-11 arg-19 eta-2))) arg-6) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (arg-19) (lambda (eta-2) (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-11 arg-19 eta-2))) arg-1) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Matching args " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-6) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-7))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6775 arg-6776 arg-6778 eta-1)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6780 arg-6782 arg-6783 arg-6785 eta-1))))))))) arg-0 arg-17 arg-16 arg-15 arg-12 arg-11 arg-6 arg-1) eta-0))))))) (else (Unify-Core-unifyApp arg-17 arg-16 arg-0 1 arg-15 arg-12 arg-11 arg-10 arg-9 arg-6 (vector 1 arg-5 arg-4 arg-1))))))) -(define Unify-Core-case--12567-15604 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-0)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6775 arg-6776 arg-6778 eta-0)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6780 arg-6782 arg-6783 arg-6785 eta-0))))))))) arg-0 arg-17 arg-16 arg-15 arg-12 arg-11 arg-6 arg-1)) (else (Unify-Core-unifyApp arg-17 arg-16 arg-0 1 arg-15 arg-12 arg-11 arg-10 arg-9 arg-6 (vector 1 arg-5 arg-4 arg-1))))))) -(define Unify-Core-case--12567-15524 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (Unify-Core-unifyApp arg-13 arg-12 arg-0 0 arg-11 arg-10 arg-9 arg-8 (vector 2 arg-3 arg-2 arg-1) arg-4 (vector 1 arg-8 arg-7 arg-6))) (else (Unify-Core-unifyApp arg-13 arg-12 arg-0 1 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 (vector 1 arg-5 (vector 2 arg-3 arg-2 arg-1) arg-4))))))) -(define Unify-Core-case--16600-15404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (Unify-Core-unifyApp arg-15 arg-14 arg-0 1 arg-13 arg-12 arg-11 arg-10 (vector 2 arg-3 arg-2 arg-1) arg-9 (vector 1 arg-8 (vector 2 arg-6 arg-5 arg-4) arg-7))) (else (Unify-Core-unifyApp arg-15 arg-14 arg-0 0 arg-13 arg-12 arg-11 arg-8 (vector 2 arg-6 arg-5 arg-4) arg-7 (vector 1 arg-10 (vector 2 arg-3 arg-2 arg-1) arg-9))))))) -(define Unify-Core-case--12567-15295 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-0)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6775 arg-6776 arg-6778 eta-0)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6780 arg-6782 arg-6783 arg-6785 eta-0))))))))) arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 (List-Prelude-C-43C-43 'erased arg-1 arg-9) (List-Prelude-C-43C-43 'erased arg-4 arg-7))) (else (lambda (eta-0) (let ((act-24 ((Unify-Core-n--12567-15144-localsIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Unify-Core-n--12567-15144-localsIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((xbigger (Prelude-C-124C-124 (Prelude-C-62_Ord__Nat e-5 e-6) (lambda () (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Nat e-5 e-6) (lambda () (Prelude-C-60C-61_Ord__Nat (List-Data-length 'erased arg-9) (List-Data-length 'erased arg-7)))))))) ((Unify-Core-case--16600-15404 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-5 e-6 xbigger (Prelude-C-38C-38 (Prelude-C-124C-124 xbigger (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc3 arg-13)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))) (lambda () (Prelude-not (Unify-Core-n--12567-15143-pv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-3))))) eta-0)))))))))))))))))) -(define Unify-Core-case--16432-15180 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--12567-15144-localsIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (+ 1 e-5)))))))))(else (Unify-Core-n--12567-15144-localsIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17))))))(else (Unify-Core-n--12567-15144-localsIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17)))))) -(define Unify-Core-case--12567-15008 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-0)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6775 arg-6776 arg-6778 eta-0)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6780 arg-6782 arg-6783 arg-6785 eta-0))))))))) arg-0 arg-19 arg-18 arg-17 arg-14 arg-13 arg-11 arg-9)) (else (lambda (eta-0) (Unify-Core-postpone arg-0 arg-19 arg-18 0 arg-14 arg-17 "Postponing local app" arg-13 (vector 1 arg-12 (vector 0 arg-5 arg-3) arg-11) (vector 1 arg-10 (vector 0 arg-8 arg-6) arg-9) eta-0))))))) -(define Unify-Core-case--12567-14909 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-15 arg-12 arg-11 (vector 1 arg-10 (vector 0 arg-5 arg-3) (vector 0 )) (vector 1 arg-9 (vector 0 arg-8 arg-6) (vector 0 )) eta-0))))))) -(define Unify-Core-case--12563-14838 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (Unify-Core-postponeS arg-0 arg-9 arg-8 0 0 arg-6 arg-7 "Postponing constraint" arg-5 (vector 1 arg-4 arg-3 arg-2) arg-1)))))) -(define Unify-Core-case--12563-14764 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (Unify-Core-postponeS arg-0 arg-9 arg-8 0 1 arg-6 arg-7 "Postponing constraint" arg-5 (vector 1 arg-4 arg-3 arg-2) arg-1)))))) -(define Unify-Core-case--12563-14552 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (Unify-Core-postponeS arg-0 arg-16 arg-15 0 arg-14 arg-12 arg-13 "Postponing var" arg-11 (vector 1 arg-10 (vector 0 arg-5 arg-3) (vector 0 )) (vector 1 arg-9 (vector 0 arg-8 arg-6) (vector 0 )))))))) -(define Unify-Core-case--12563-14457 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-unifyIfEq arg-11 arg-10 arg-0 0 arg-7 arg-8 arg-6 (vector 1 arg-5 (vector 1 arg-2 arg-1) arg-4) arg-3 eta-0))) (else (lambda (eta-0) (Unify-Core-unifyIfEq arg-11 arg-10 arg-0 0 arg-7 arg-8 arg-6 arg-3 (vector 1 arg-5 (vector 1 arg-2 arg-1) arg-4) eta-0))))))) -(define Unify-Core-case--15092-14125 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-29)) (case (vector-ref sc0 0) ((0) (Unify-Core-postponeS arg-0 arg-12 arg-11 0 arg-10 arg-8 arg-9 "Can't shrink" arg-7 (vector 1 arg-8 (vector 2 arg-5 arg-4 arg-3) arg-2) arg-1)) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Unify-Core-solveHole arg-12 arg-11 arg-17 arg-0 arg-6 arg-9 arg-7 arg-5 arg-4 arg-3 arg-2 arg-18 arg-19 arg-26 e-2 arg-1 eta-0)))))))) -(define Unify-Core-case--15005-13992 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Unify-Core-solveHole arg-12 arg-11 arg-17 arg-0 arg-6 arg-9 arg-7 arg-5 arg-4 arg-3 arg-2 arg-18 arg-19 arg-26 e-1 arg-1 eta-0)))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-normalise arg-0 arg-13 arg-7 arg-26 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Unify-Core-case--15092-14125 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 e-5 (TT-Core-shrinkTerm 'erased 'erased e-5 arg-19)) eta-0)))))))))))) -(define Unify-Core-case--14913-13932 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Unify-Core-case--15005-13992 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 e-1 _-0 (TT-Core-shrinkTerm 'erased 'erased e-1 arg-19)))))(else (Unify-Core-postponeS arg-0 arg-12 arg-11 0 arg-10 arg-8 arg-9 "Occurs check failed" arg-7 (vector 1 arg-8 (vector 2 arg-5 arg-4 arg-3) arg-2) arg-1)))))) -(define Unify-Core-case--14844-13860 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-0 arg-14 arg-7 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Unify-Core-occursCheck arg-0 arg-12 arg-8 arg-7 arg-9 arg-5 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-2))) ((Unify-Core-case--15005-13992 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 e-0 e-1 e-5 e-2 _-0 (TT-Core-shrinkTerm 'erased 'erased e-2 arg-19)) eta-0))))(else ((Unify-Core-postponeS arg-0 arg-12 arg-11 0 arg-10 arg-8 arg-9 "Occurs check failed" arg-7 (vector 1 arg-8 (vector 2 arg-5 arg-4 arg-3) arg-2) arg-1) eta-0))))))))))))))))))(else (Unify-Core-postponeS arg-0 arg-12 arg-11 0 arg-10 arg-8 arg-9 "Delayed hole" arg-7 (vector 1 arg-8 (vector 2 arg-5 arg-4 arg-3) arg-2) arg-1)))))) -(define Unify-Core-case--14397-13813 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Unify-Core-case--14844-13860 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (Unify-Core-postponePatVar arg-12 arg-11 arg-0 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 arg-1)))))) -(define Unify-Core-case--14518-13577 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (Unify-Core-unifyHoleApp arg-12 arg-11 arg-0 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 arg-1)) (else (Unify-Core-postponePatVar arg-12 arg-11 arg-0 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 arg-1)))))) -(define Unify-Core-case--14458-13529 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Unify-Core-case--14518-13577 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-0 e-1 (let ((sc1 arg-18)) (let ((e-14 (vector-ref sc1 15))) e-14))))))(else (Unify-Core-postponePatVar arg-12 arg-11 arg-0 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 arg-1)))))) -(define Unify-Core-case--14397-13488 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Unify-Core-case--14458-13529 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (Unify-Core-postponePatVar arg-12 arg-11 arg-0 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 arg-1)))))) -(define Unify-Core-case--12559-13443 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 arg-4) (let ((sc1 arg-13)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((bind-0 (vector 0 ))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Unify-Core-case--14458-13529 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 bind-0 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0))))(else ((Unify-Core-postponePatVar arg-12 arg-11 arg-0 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 arg-1) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 arg-4) (let ((sc3 arg-13)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((bind-0 (vector 1 (vector 0 e-5 (vector 0 e-9 e-10))))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((Unify-Core-case--14844-13860 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-5 e-9 e-10 bind-0 e-1 _-0 (let ((sc5 e-1)) (let ((e-17 (vector-ref sc5 18))) e-17))) eta-0))))(else ((Unify-Core-postponePatVar arg-12 arg-11 arg-0 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 arg-1) eta-0))))))))))))))))))))))) -(define Unify-Core-case--14093-13268 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unify-Core-instantiate arg-15 arg-14 arg-1 arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 (List-Data-length 'erased arg-8) e-1 arg-6 arg-4 arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (Unify-Core-solvedHole arg-9))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't happen: Lost hole " (Name-Core-show_Show__Name arg-10))) eta-0))))))) -(define Unify-Core-case--12554-13182 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 arg-9) (let ((sc1 arg-16)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 (Unify-Core-instantiate arg-15 arg-14 arg-1 arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 (List-Data-length 'erased arg-8) e-1 arg-6 arg-4 arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (Unify-Core-solvedHole arg-9)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't happen: Lost hole " (Name-Core-show_Show__Name arg-10))) eta-0))))))))))))))) -(define Unify-Core-case--12550-13082 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (Unify-Core-postponeS arg-0 arg-11 arg-10 1 arg-9 arg-7 arg-8 "Not in pattern fragment" arg-6 arg-12 arg-1)))))) -(define Unify-Core-case--13706-12917 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-unifyInvertible arg-16 arg-15 arg-0 arg-14 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 (vector 0 ) (lambda (eta-1) (vector 1 arg-5 (vector 2 arg-3 arg-2 arg-1) eta-1)) arg-4 eta-0))) (else (Unify-Core-postponeS arg-0 arg-16 arg-15 0 arg-14 arg-12 arg-13 "Postponing hole application" arg-11 (vector 1 arg-12 (vector 2 arg-10 arg-9 arg-8) arg-7) arg-6)))))) -(define Unify-Core-case--12546-12875 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((inv (Prelude-C-124C-124 (Unify-Core-n--12546-12849-isPatName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-3) (lambda () (let ((sc1 e-1)) (let ((e-14 (vector-ref sc1 15))) e-14)))))) (let ((sc1 inv)) (cond ((equal? sc1 0) (lambda (eta-0) (Unify-Core-unifyInvertible arg-16 arg-15 arg-0 arg-14 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 (vector 0 ) (lambda (eta-1) (vector 1 arg-5 (vector 2 arg-3 arg-2 arg-1) eta-1)) arg-4 eta-0))) (else (Unify-Core-postponeS arg-0 arg-16 arg-15 0 arg-14 arg-12 arg-13 "Postponing hole application" arg-11 (vector 1 arg-12 (vector 2 arg-10 arg-9 arg-8) arg-7) arg-6))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-10) eta-0))))))) -(define Unify-Core-case--13152-12434 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unifying invertible") eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) arg-20) arg-22) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Constraints " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) (List-Data-reverse 'erased arg-21))) (arg-2 (List-Data-reverse 'erased arg-23))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (Unify-Core-union e-6 e-8)))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unifying invertible") eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) arg-22) arg-20) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Constraints " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) (arg-2 (List-Data-reverse 'erased arg-23))) (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) (List-Data-reverse 'erased arg-21))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (Unify-Core-union e-6 e-8)))))))))))))))))))))))))) -(define Unify-Core-case--13085-12372 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (lambda (eta-0) (UnifyState-Core-tryUnify 'erased arg-13 arg-12 (Unify-Core-case--13152-12434 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-5 e-6 e-8 e-9 (Prelude-not arg-11)) (Unify-Core-postponeS arg-0 arg-13 arg-12 0 arg-11 arg-9 arg-10 "Postponing hole application [1]" arg-8 (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) arg-4) (arg-2 arg-1)) eta-0)))))(else (Unify-Core-postponeS arg-0 arg-13 arg-12 0 arg-11 arg-9 arg-10 "Postponing hole application [2]" arg-8 (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) arg-4) (arg-2 arg-1))))))))(else (Unify-Core-postponeS arg-0 arg-13 arg-12 0 arg-11 arg-9 arg-10 "Postponing hole application [2]" arg-8 (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) arg-4) (arg-2 arg-1))))))))(else (Unify-Core-postponeS arg-0 arg-13 arg-12 0 arg-11 arg-9 arg-10 "Postponing hole application [2]" arg-8 (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) arg-4) (arg-2 arg-1))))))) -(define Unify-Core-case--13003-12323 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (let ((bind-0 0)) (Unify-Core-case--13085-12372 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 bind-0 (vector 0 (List-Data-reverse 'erased arg-4) (List-Data-reverse 'erased arg-1))))) (else (lambda (eta-0) (Unify-Core-postpone arg-0 arg-13 arg-12 0 arg-9 arg-10 "Postponing hole application [3]" arg-8 (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) arg-4) (arg-2 arg-1) eta-0))))))) -(define Unify-Core-case--12542-12254 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf arg-0 arg-14 arg-8 (TT-Core-embed 'erased 'erased e-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Unify-Core-getArgTypes 'erased arg-14 e-5 (List-Prelude-C-43C-43 'erased arg-5 arg-4)) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (ty) (lambda (eta-1) (let ((act-25 ((Normalise-Core-nf arg-0 arg-14 arg-8 (TT-Core-embed 'erased 'erased ty)) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Unify-Core-getArgTypes 'erased arg-14 e-6 arg-1) eta-1))))))))) arg-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Unify-Core-headsConvert arg-0 arg-13 arg-8 e-5 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (let ((bind-0 0)) ((Unify-Core-case--13085-12372 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-1 _-0 e-5 e-6 bind-0 (vector 0 (List-Data-reverse 'erased arg-4) (List-Data-reverse 'erased arg-1))) eta-0))) (else (Unify-Core-postpone arg-0 arg-13 arg-12 0 arg-9 arg-10 "Postponing hole application [3]" arg-8 (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) arg-4) (arg-2 arg-1) eta-0))))))))))))))))))))))) (else (lambda (eta-0) (Unify-Core-ufail 'erased arg-9 (Strings-Prelude-C-43C-43 "No such metavariable " (Name-Core-show_Show__Name arg-7)) eta-0))))))) -(define Unify-Core-case--12539-12148 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Converting") arg-3 e-5 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 (Normalise-Core-logNF arg-0 arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "......with") arg-3 e-8 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (unbox arg-4))) (vector 1 act-26)))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc5 1))) (Normalise-Core-convert_Convert__NF arg-0 e-11 arg-3 e-5 e-8 eta-0)))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Unify-Core-case--12537-12052 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 arg-4 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Unify-Core-case--12621-11970 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-postpone arg-0 arg-8 arg-7 0 arg-5 arg-4 (Strings-Prelude-C-43C-43 "Postponing unifyIfEq " (Prelude-show_Show__Bool (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)))) arg-3 arg-2 arg-1 eta-0))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-8 arg-5 arg-3 arg-2 arg-1 eta-0))))))) -(define Unify-Core-case--12533-11925 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (let ((sc1 arg-6)) (cond ((equal? sc1 0) (lambda (eta-0) (Unify-Core-postpone arg-0 arg-8 arg-7 0 arg-5 arg-4 (Strings-Prelude-C-43C-43 "Postponing unifyIfEq " (Prelude-show_Show__Bool (let ((sc2 arg-4)) (let ((e-0 (vector-ref sc2 1))) e-0)))) arg-3 arg-2 arg-1 eta-0))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-8 arg-5 arg-3 arg-2 arg-1 eta-0)))))))))) -(define Unify-Core-case--12480-11747 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (let ((sc1 e-1)) (let ((e-14 (vector-ref sc1 15))) e-14)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 (vector 9 arg-0)) eta-0))))))) -(define Unify-Core-case--12238-11606 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unify-Core-instantiate arg-8 arg-7 arg-0 arg-13 arg-4 (Unify-Core-inTerm) arg-6 arg-3 arg-2 (List-Data-length 'erased arg-1) e-1 arg-14 arg-5 arg-17 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 0)))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen: no definition") eta-0))))))) -(define Unify-Core-case--12151-11521 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 arg-2) (let ((sc1 arg-9)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 (Unify-Core-instantiate arg-8 arg-7 arg-0 arg-13 arg-4 (Unify-Core-inTerm) arg-6 arg-3 arg-2 (List-Data-length 'erased arg-1) e-1 arg-14 arg-5 e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (vector 1 0))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen: no definition") eta-0)))))))))))))))) -(define Unify-Core-case--12104-11450 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((bind-0 (vector 1 (vector 0 e-5 (vector 0 e-9 e-10))))) (Unify-Core-case--12151-11521 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 e-9 e-10 bind-0 (TT-Core-shrinkTerm 'erased 'erased arg-5 e-10))))))))))))))) -(define Unify-Core-case--12072-11412 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Unify-Core-patternEnvTm arg-8 arg-7 arg-0 arg-6 arg-1 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((_-0 (vector 1 (vector 7 e-2 e-3)))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (vector 1 1)) (else (let ((e-4 (vector-ref sc3 1))) (let ((sc4 e-4)) (let ((e-7 (vector-ref sc4 1))) (let ((e-6 (vector-ref sc4 2))) (let ((sc5 e-6)) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((bind-0 (vector 1 (vector 0 e-7 (vector 0 e-9 e-10))))) ((Unify-Core-case--12151-11521 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-3 _-0 e-7 e-9 e-10 bind-0 (TT-Core-shrinkTerm 'erased 'erased arg-5 e-10)) eta-0))))))))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Unify-Core-case--10058-11325 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 arg-23 (vector 0 ) (vector 1 0 arg-21) (vector 1 0 arg-21) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) -(define Unify-Core-case--10058-11230 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 3 arg-0 arg-11 arg-9 (vector 3 e-0 e-1) arg-3) eta-0)))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Unify-Core-case--10082-10992 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-1)))) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-1)))) d-0 x-0)))) d x)))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-15 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-15 d x))))) (vector 0 (Unify-Core-getIVars 'erased 'erased arg-18) arg-17))))) eta-0))))))) -(define Unify-Core-case--10082-10862 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (vector 1 (vector 3 arg-22 arg-16 arg-21 arg-26)))))))) -(define Unify-Core-case--10827-10339 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-29)) (cond ((equal? sc0 0) (vector 2 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-27 arg-28)) (else (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-27 arg-28)))))) -(define Unify-Core-case--10690-10265 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (cond ((equal? sc0 0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-26 arg-23) (lambda (tC-39) (Prelude-pure_Applicative__Maybe 'erased (Unify-Core-case--10827-10339 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 tC-39 (Unify-Core-inLam arg-10)))))) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-26 arg-23) (lambda (bind-0) (vector 1 (vector 2 arg-25 arg-27 bind-0))))))))) -(define Unify-Core-case--10081-10028 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (vector 1 (vector 0 arg-20 arg-19 arg-22)))) -(define Unify-Core-case--10292-9926 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (vector 1 (+ 1 arg-24)))) -(define Unify-Core-case--10080-9806 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (cond ((equal? sc0 0) (vector 1 0)) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9620-updateIVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased arg-22 'erased 'erased arg-21 'erased) (lambda (_-0) (vector 1 (+ 1 _-0))))))))) -(define Unify-Core-case--10080-9726 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (vector 1 (+ 1 arg-21)))) -(define Unify-Core-case--9743-9376 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--9493-9091-failOnStrongRigid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 4 arg-0 arg-5 arg-4 arg-2 arg-10) eta-1)) arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-10)))))))) -(define Unify-Core-case--9493-9309 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 arg-1))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Normalise-Core-normalise arg-0 e-5 arg-4 arg-1 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Unify-Core-getMetaNames 'erased arg-6 e-6) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((Unify-Core-case--9743-9376 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 e-6 e-7 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-2 e-7)) eta-0)))))))))))))))))))))) -(define Unify-Core-case--9505-9170 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 0 ))))(else (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Unify-Core-n--9493-9091-failOnStrongRigid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 arg-8 eta-0)) e-3))))))(else (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Unify-Core-n--9493-9091-failOnStrongRigid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-8 eta-0)) e-3)))))))))))) -(define Unify-Core-case--9505-9109 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) arg-11) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Unify-Core-case--9400-9046 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 (vector 0 (Unify-Core-n--9280-8907-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-7 e-3) e-3)))))))))) -(define Unify-Core-case--9280-9005 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (Unify-Core-case--9400-9046 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 (Unify-Core-toSubVars arg-0 e-2)))))))) -(define Unify-Core-case--9291-8932 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (Unify-Core-n--9280-8907-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10)) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 (Unify-Core-n--9280-8907-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10)))))))) -(define Unify-Core-case--9181-8834 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 0 )) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-getVarsTm 'erased (vector 1 arg-2 arg-7) arg-6) (lambda (xsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 arg-2 xsC-39))))))))) -(define Unify-Core-case--9080-8775 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 (vector 0 (Unify-Core-n--8951-8621-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-8 e-3) e-3)))))))))) -(define Unify-Core-case--8951-8730 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (Unify-Core-case--9080-8775 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 (Unify-Core-toSubVars arg-0 e-2)))))))) -(define Unify-Core-case--8962-8646 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (Unify-Core-n--8951-8621-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10)) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 (Unify-Core-n--8951-8621-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10)))))))) -(define Unify-Core-case--8888-8574 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 0 (vector 1 arg-0 arg-3) (vector 2 arg-4))) (else (vector 0 arg-3 (vector 1 arg-4))))))) -(define Unify-Core-case--8837-8558 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--8888-8574 arg-0 arg-1 arg-2 e-2 e-3 (Unify-Core-n--8837-8524-anyFirst arg-0 arg-1 arg-2 arg-2))))))) -(define Unify-Core-case--8647-8429 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 0 )) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-getVars arg-0 (vector 1 arg-2 arg-7) arg-6) (lambda (xsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 arg-2 xsC-39))))))))) -(define Unify-Core-case--8675-8380 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) 0) (else (Unify-Core-n--8647-8366-inArgs arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-10 arg-9)))))) -(define Unify-Core-case--8499-8225 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-postpone arg-0 arg-10 arg-9 arg-8 arg-6 (Unify-Core-lower arg-5) arg-4 arg-3 arg-1 arg-2 eta-0))) (else (lambda (eta-0) (Unify-Core-postpone arg-0 arg-10 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0))))))) -(define Unify-Core-case--7967-8134 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (let ((xmetas (TT-Core-getMetas 'erased arg-15))) (Unify-Core-chaseMetas arg-9 (NameMap-Data-keys 'erased (TT-Core-addMetas 'erased xmetas arg-16)) (NameMap-Data-empty 'erased)))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Unify-Core-case--7984-7838 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (vector 1 0))) ((8) (lambda (eta-0) (vector 1 0))) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Unify-Core-case--7983-7742 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-6 arg-13) eta-0))))))) -(define Unify-Core-case--7847-7642 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 3))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 2))) (let ((sns (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-9)))) (Unify-Core-chaseMetas arg-3 (List-Prelude-C-43C-43 'erased sns arg-1) (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)))))(else (Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)))))))(else (Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)))))))(else (Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2))))))) -(define Unify-Core-case--7830-7600 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (Unify-Core-chaseMetas arg-3 arg-1 arg-2))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-lookupDefExact arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 3))) (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((sns (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-9)))) ((Unify-Core-chaseMetas arg-3 (List-Prelude-C-43C-43 'erased sns arg-1) (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)) eta-0))))(else ((Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)) eta-0))))))(else ((Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)) eta-0))))))(else ((Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)) eta-0)))))))))))))))))))) -(define Unify-Core-case--7771-7550 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-convertError 'erased arg-1 arg-7 arg-5 arg-4 arg-2 arg-3 eta-0))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-1 arg-7 arg-5 arg-4 arg-3 arg-2 eta-0))))))) -(define Unify-Core-case--7358-7060 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 1 e-1 e-2)))))) -(define Unify-Core-case--7349-7049 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 0 e-2)))))) -(define Unify-Core-n--9280-8907-updateVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--9291-8932 arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-2 'erased e-3 arg-7 (TT-Core-subElem 'erased 'erased 'erased e-2 'erased arg-7))))))))) -(define Unify-Core-n--8951-8621-updateVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--8962-8646 arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-2 'erased e-3 arg-7 (TT-Core-subElem 'erased 'erased 'erased e-2 'erased arg-7))))))))) -(define Unify-Core-n--10081-10124-updateIVarsPi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((1) (vector 1 (vector 1 ))) ((0) (vector 1 (vector 0 ))) ((2) (vector 1 (vector 2 ))) (else (let ((e-4 (vector-ref sc0 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-4) (lambda (tC-39) (vector 1 (vector 3 tC-39)))))))))) -(define Unify-Core-n--10081-10125-updateIVarsB (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10081-10124-updateIVarsPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-2) (lambda (pC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-3) (lambda (bind-0) (vector 1 (vector 0 e-1 pC-39 bind-0)))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-6) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-7) (lambda (bind-1) (vector 1 (vector 1 e-5 bind-0 bind-1)))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10081-10124-updateIVarsPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-10) (lambda (pC-39) (Unify-Core-case--10690-10265 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 e-11 e-10 e-9 arg-23 pC-39 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-9)))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10081-10124-updateIVarsPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-14) (lambda (pC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-15) (lambda (bind-0) (vector 1 (vector 3 e-13 pC-39 bind-0)))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-18) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-19) (lambda (bind-1) (vector 1 (vector 4 e-17 bind-0 bind-1)))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-22) (lambda (bind-0) (vector 1 (vector 5 e-21 bind-0))))))))))) -(define Unify-Core-n--10058-9621-updateIVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9620-updateIVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-4 'erased 'erased arg-16 'erased) (lambda (_-0) (vector 1 (vector 0 e-2 e-3 _-0)))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 e-7 e-8 e-9)))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Prelude-pure_Applicative__Maybe 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3503 arg-3505)))))) (lambda (eta-0) (Unify-Core-n--10058-9621-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 eta-0)) e-14) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 2 e-11 e-12 e-13 bind-0))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10081-10125-updateIVarsB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-15 e-17 e-19 e-18 e-16 arg-14 arg-16 arg-14 arg-15 arg-16 e-18) (lambda (bC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 1 e-17 arg-14) (vector 1 e-17 arg-15) (vector 1 (vector 1 0) (Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 'erased e-17 arg-15 arg-16)) e-19) (lambda (scC-39) (vector 1 (vector 3 e-16 e-17 bC-39 scC-39))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-22) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-23) (lambda (bind-1) (vector 1 (vector 4 e-21 bind-0 bind-1)))))))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-27) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-28) (lambda (bind-1) (vector 1 (vector 5 e-25 e-26 bind-0 bind-1))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-32) (lambda (bind-0) (vector 1 (vector 6 e-30 e-31 bind-0)))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-36) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-37) (lambda (bind-1) (vector 1 (vector 7 e-34 e-35 bind-0 bind-1))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-41) (lambda (bind-0) (vector 1 (vector 8 e-39 e-40 bind-0)))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (vector 1 (vector 9 e-43 e-44))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (vector 1 (vector 10 e-46 e-47))))) (else (let ((e-49 (vector-ref sc0 1))) (vector 1 (vector 11 e-49)))))))) -(define Unify-Core-n--10058-9620-updateIVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9620-updateIVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased arg-15 'erased 'erased e-4 'erased) (lambda (_-0) (vector 1 (+ 1 _-0))))) ((1) (let ((e-7 (vector-ref sc1 1))) (Unify-Core-case--10080-9806 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased 'erased 'erased 'erased 'erased e-7 'erased e-4 arg-15 'erased (Prelude-C-61C-61_Eq__Nat arg-15 e-7))))(else (vector 0 )))))))(else (vector 0 )))))) -(define Unify-Core-n--7967-7721-undefinedN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-lookupDefExact arg-10 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((7) (vector 1 0)) ((8) (vector 1 0)) ((9) (vector 1 0))(else (vector 1 1))))))(else (vector 1 1)))))))))))))))) -(define Unify-Core-n--12554-13148-solutionHeadSame (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 2))) (Prelude-C-61C-61_Eq__Int e-6 arg-9)))(else 1)))))(else 1))))) -(define Unify-Core-n--12567-15143-pv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((3) 0)(else 1))))) -(define Unify-Core-n--10058-9622-mkDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((sc1 arg-19)) (case (vector-ref sc1 0) ((3) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((e-16 (vector-ref sc1 3))) (let ((e-17 (vector-ref sc1 4))) (let ((sc2 e-16)) (case (vector-ref sc2 0) ((2) (let ((e-19 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--10058-9622-mkDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 1 e-15 arg-14) arg-15 e-12 (vector 1 (vector 1 e-11) arg-17) arg-18 e-17) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 3 e-14 e-15 (vector 0 e-19 (vector 1 ) (vector 10 e-14 1)) e-5))))))))))(else (let ((sc2 arg-19)) (case (vector-ref sc2 0) ((3) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (let ((e-5 (vector-ref sc2 4))) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((e-9 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--10058-9622-mkDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 1 e-3 arg-14) arg-15 arg-16 (vector 1 (vector 0 ) arg-17) arg-18 e-5) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((b (vector 1 e-7 e-8 e-9))) ((Unify-Core-case--10082-10862 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3 e-5 e-8 e-9 e-7 b e-2 arg-18 arg-17 arg-16 e-6 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 )))) eta-0))))))))))))(else (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (Unify-Core-case--10082-10992 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 arg-18 arg-17 (Unify-Core-n--10058-9621-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0)))))))))))))(else (let ((sc2 arg-16)) (case (vector-ref sc2 0) ((0) (Unify-Core-case--10082-10992 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 arg-18 arg-17 (Unify-Core-n--10058-9621-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0))))))))))))))))(else (let ((sc1 arg-19)) (case (vector-ref sc1 0) ((3) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 4))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--10058-9622-mkDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 1 e-3 arg-14) arg-15 arg-16 (vector 1 (vector 0 ) arg-17) arg-18 e-5) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((b (vector 1 e-7 e-8 e-9))) ((Unify-Core-case--10082-10862 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3 e-5 e-8 e-9 e-7 b e-2 arg-18 arg-17 arg-16 e-6 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 )))) eta-0))))))))))))(else (let ((sc2 arg-16)) (case (vector-ref sc2 0) ((0) (Unify-Core-case--10082-10992 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 arg-18 arg-17 (Unify-Core-n--10058-9621-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0)))))))))))))(else (let ((sc1 arg-16)) (case (vector-ref sc1 0) ((0) (Unify-Core-case--10082-10992 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 arg-18 arg-17 (Unify-Core-n--10058-9621-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0))))))))))))))(else (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--10058-9622-mkDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 1 e-3 arg-14) arg-15 arg-16 (vector 1 (vector 0 ) arg-17) arg-18 e-5) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((b (vector 1 e-7 e-8 e-9))) ((Unify-Core-case--10082-10862 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3 e-5 e-8 e-9 e-7 b e-2 arg-18 arg-17 arg-16 e-6 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 )))) eta-0))))))))))))(else (let ((sc1 arg-16)) (case (vector-ref sc1 0) ((0) (Unify-Core-case--10082-10992 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 arg-18 arg-17 (Unify-Core-n--10058-9621-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0)))))))))))))(else (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (Unify-Core-case--10082-10992 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 arg-18 arg-17 (Unify-Core-n--10058-9621-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0))))))))))))) -(define Unify-Core-n--12567-15144-localsIn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-15))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 e-5 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Unify-Core-n--12567-15144-localsIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (+ 1 e-10))))))))(else ((Unify-Core-n--12567-15144-localsIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3) eta-0))))))(else ((Unify-Core-n--12567-15144-localsIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3) eta-0)))))))))))))))))))))) -(define Unify-Core-n--10058-9619-isSimple (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) 0) ((1) 0) ((2) 0) ((3) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 e-18)) (case (vector-ref sc1 0) ((0) (Unify-Core-n--10058-9619-isSimple arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-19))(else 1)))))) ((9) 0) ((11) 0)(else 1))))) -(define Unify-Core-n--12546-12849-isPatName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((3) 0)(else 1))))) -(define Unify-Core-n--12579-17061-isDelay (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((5) 0)(else 1))))) -(define Unify-Core-n--8647-8366-inArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--8675-8380 arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 e-2 e-3 arg-8 (Prelude-C-61C-61_Eq__Integer arg-8 e-2))))))))) -(define Unify-Core-n--9493-9091-failOnStrongRigid (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (Unify-Core-case--9505-9109 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 e-3 e-4 e-2 arg-8 arg-7 (Prelude-C-38C-38 arg-7 (lambda () (Name-Core-C-61C-61_Eq__Name e-2 arg-2)))))))))(else (Unify-Core-case--9505-9170 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-8 arg-7 (TT-Core-getFnArgs 'erased arg-9))))))) -(define Unify-Core-n--20241-18829-definedN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((2) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-4 (let ((sc3 e-5)) (let ((e-30 (vector-ref sc3 1))) e-30))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((n (vector 0 e-0 (vector 2 e-2 e-3)))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-4))) ((Unify-Core-case--20272-18877 arg-0 arg-1 arg-2 arg-3 e-0 e-2 e-3 n e-5 e-4 _-0 (let ((sc5 e-4)) (let ((e-17 (vector-ref sc5 18))) e-17))) eta-0))))(else (vector 1 1)))))))))))))))))))(else (lambda (eta-0) (vector 1 0))))))))(else (lambda (eta-0) (vector 1 0))))))) -(define Unify-Core-n--22660-20958-constraintToHole (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-lookupDefExact (vector 9 e-2) (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((8) (Context-Core-updateDef arg-1 (vector 9 e-2) (lambda (eta-1) (vector 1 (vector 7 0 1))) eta-0)) ((9) (Context-Core-updateDef arg-1 (vector 9 e-2) (lambda (eta-1) (vector 1 (vector 7 0 1))) eta-0))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))))))))))))) -(define Unify-Core-n--7967-7720-checkDefined (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-6 (let ((sc2 arg-10)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (vector 1 (vector 0 )))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-6 e-6) eta-0))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Unify-Core-n--23093-21345-checkConstraint (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 5))) (let ((e-13 (vector-ref sc2 6))) (let ((e-14 (vector-ref sc2 7))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF e-8 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Dot") e-12 e-14 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 (Normalise-Core-logTermNF e-8 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () " =") e-12 e-13 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc5 1))) (UnifyState-Core-handleUnify 'erased arg-0 arg-1 (lambda (eta-1) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc6 1))) (let ((act-28 (Context-Core-lookupDefExact e-2 (let ((sc7 e-17)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-1))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc7 1))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((act-29 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-2)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-2))))))))))) e-8 arg-0 arg-1) (Unify-Core-inMatch)) e-9) e-12) e-13) e-14) eta-1))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc9 1))) (let ((act-30 (let ((act-30 (unbox arg-0))) (vector 1 act-30)))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc10 1))) (let ((act-31 (Context-Core-lookupDefExact e-2 (let ((sc11 e-20)) (let ((e-0 (vector-ref sc11 1))) e-0)) eta-1))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc11 1))) (let ((sc12 e-21)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((hBefore (let ((sc13 e-1)) (case (vector-ref sc13 0) ((7) 0)(else 1))))) (let ((h (let ((sc13 e-4)) (case (vector-ref sc13 0) ((7) 0)(else 1))))) (let ((act-32 ((Unify-Core-checkArgsSame arg-1 arg-0 (let ((sc13 e-19)) (let ((e-23 (vector-ref sc13 3))) e-23))) eta-1))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-22 (vector-ref sc13 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc13 1))) (let ((sc14 (Prelude-C-124C-124 (Prelude-not (List-Data-isNil 'erased (let ((sc15 e-19)) (let ((e-0 (vector-ref sc15 1))) e-0)))) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 hBefore (lambda () (Prelude-not h))) (lambda () e-22)))))) (cond ((equal? sc14 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Dot pattern match fail") eta-1)) (else (vector 1 (vector 0 )))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-9 e-2) eta-1))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-9 e-2) eta-1))))))))))))))) (lambda (err) (let ((sc6 err)) (case (vector-ref sc6 0) ((54) (lambda (eta-1) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc7 1))) (let ((act-28 (Context-Core-lookupTyExact e-2 (let ((sc8 e-17)) (let ((e-41 (vector-ref sc8 1))) e-41)) eta-1))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc8 1))) (let ((sc9 e-18)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((act-29 (Normalise-Core-logTermNF (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Dot type") (vector 0 ) e-1 eta-1))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (set-box! arg-1 (let ((sc11 e-16)) (let ((e-28 (vector-ref sc11 1))) (let ((e-27 (vector-ref sc11 2))) (let ((e-26 (vector-ref sc11 3))) (let ((e-25 (vector-ref sc11 4))) (let ((e-4 (vector-ref sc11 5))) (let ((e-23 (vector-ref sc11 7))) (let ((e-22 (vector-ref sc11 8))) (let ((e-21 (vector-ref sc11 9))) (let ((e-20 (vector-ref sc11 10))) (vector 0 e-28 e-27 e-26 e-25 e-4 (vector 0 ) e-23 e-22 e-21 e-20)))))))))))))) (vector 1 act-30)))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-31 (Normalise-Core-normaliseHoles e-8 e-17 e-12 e-13 eta-1))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc12 1))) (let ((act-32 (Normalise-Core-normaliseHoles e-8 e-17 e-12 e-14 eta-1))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc13 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 44 e-8 e-9 e-12 e-6 e-21 e-22) eta-1))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-9 e-2) eta-1))))))))))))))))(else (lambda (eta-1) (let ((act-27 (let ((act-27 (set-box! arg-1 (let ((sc6 e-16)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-23 (vector-ref sc6 3))) (let ((e-22 (vector-ref sc6 4))) (let ((e-4 (vector-ref sc6 5))) (let ((e-20 (vector-ref sc6 7))) (let ((e-19 (vector-ref sc6 8))) (let ((e-18 (vector-ref sc6 9))) (let ((e-17 (vector-ref sc6 10))) (vector 0 e-0 e-1 e-23 e-22 e-4 (vector 0 ) e-20 e-19 e-18 e-17)))))))))))))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))) eta-0)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Unify-Core-n--22788-21089-anySame (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupDefExact (vector 9 e-2) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((e-4 (vector-ref sc4 3))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((1) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 e-12)) (cond ((equal? sc7 0) (let ((act-26 (Normalise-Core-convert_Convert__Term (vector 0 ) e-5 (vector 0 ) arg-4 e-11 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (cond ((equal? sc9 0) (vector 1 0)) (else ((Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))))))))))(else ((Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))))(else ((Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))(else ((Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))))(else ((Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))))))(else ((Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))))))))))))))))))) -(define Unify-Core-n--8837-8524-anyFirst (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) 0)(else (Unify-Core-n--8837-8524-anyFirst arg-0 arg-1 arg-2 e-3))))))))))) -(define Unify-Core-n--22612-20915-afterStart (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (Prelude-C-62C-61_Ord__Int e-2 arg-2))))) +(define Unify-Core-case--23306-22362 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-9))))))))))))) +(define Unify-Core-case--23830-22269 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-13)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-9))))))))))))) +(define Unify-Core-case--23890-22131 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-13)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-9))))))))))))) +(define Unify-Core-case--23830-22042 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Dot type") (vector 0 ) e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (set-box! arg-1 (let ((sc2 arg-13)) (let ((e-0 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-0 e-11 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-9)))))))))))))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Normalise-Core-normaliseHoles arg-2 arg-16 arg-7 arg-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Normalise-Core-normaliseHoles arg-2 arg-16 arg-7 arg-5 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 44 arg-2 arg-10 arg-7 arg-4 e-7 e-8) eta-0)))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0))))))) +(define Unify-Core-case--23311-21995 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((54) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact arg-3 (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 1))) e-27)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-logTermNF (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Dot type") (vector 0 ) e-1 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (set-box! arg-1 (let ((sc5 arg-13)) (let ((e-14 (vector-ref sc5 1))) (let ((e-13 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-11 (vector-ref sc5 7))) (let ((e-10 (vector-ref sc5 8))) (let ((e-8 (vector-ref sc5 9))) (let ((e-9 (vector-ref sc5 10))) (vector 0 e-14 e-13 e-2 e-3 e-4 (vector 0 ) e-11 e-10 e-8 e-9)))))))))))))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-28 (Normalise-Core-normaliseHoles arg-2 e-5 arg-7 arg-6 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (Normalise-Core-normaliseHoles arg-2 e-5 arg-7 arg-5 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 44 arg-2 arg-10 arg-7 arg-4 e-9 e-10) eta-0))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-1 (let ((sc0 arg-13)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-9)))))))))))))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased arg-14 eta-0))))))))))) +(define Unify-Core-case--23451-21812 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((7) 0)(else 1))))) +(define Unify-Core-case--23451-21721 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((7) 0)(else 1))))) +(define Unify-Core-case--23376-21677 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((hBefore (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((7) 0)(else 1))))) (let ((h (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) 0)(else 1))))) (lambda (eta-0) (let ((act-24 ((Unify-Core-checkArgsSame arg-1 arg-0 (let ((sc1 arg-17)) (let ((e-2 (vector-ref sc1 3))) e-2))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 (Prelude-C-124C-124 (Prelude-not (List-Data-isNil 'erased (let ((sc3 arg-17)) (let ((e-0 (vector-ref sc3 1))) e-0)))) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 hBefore (lambda () (Prelude-not h))) (lambda () e-5)))))) (cond ((equal? sc2 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Dot pattern match fail") eta-0)) (else (vector 1 (vector 0 ))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0))))))) +(define Unify-Core-case--23311-21617 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-1))))))))))) arg-2 arg-0 arg-1) (Unify-Core-inMatch)) arg-10) arg-7) arg-6) arg-5) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-lookupDefExact arg-3 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) (let ((hBefore (let ((sc5 e-1)) (case (vector-ref sc5 0) ((7) 0)(else 1))))) (let ((h (let ((sc5 e-2)) (case (vector-ref sc5 0) ((7) 0)(else 1))))) (let ((act-27 ((Unify-Core-checkArgsSame arg-1 arg-0 (let ((sc5 e-5)) (let ((e-4 (vector-ref sc5 3))) e-4))) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 (Prelude-C-124C-124 (Prelude-not (List-Data-isNil 'erased (let ((sc7 e-5)) (let ((e-0 (vector-ref sc7 1))) e-0)))) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 hBefore (lambda () (Prelude-not h))) (lambda () e-8)))))) (cond ((equal? sc6 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Dot pattern match fail") eta-0)) (else (vector 1 (vector 0 )))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0)))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0))))))) +(define Unify-Core-case--23198-21494 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1)))))) +(define Unify-Core-case--23001-21462 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-9)) (cond ((equal? sc4 0) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--23001-21299-anySame arg-0 arg-1 arg-2 arg-3 e-10 arg-1) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (cond ((equal? sc6 0) (vector 1 0)) (else ((Unify-Core-checkArgsSame arg-3 arg-2 arg-1) eta-0)))))))))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1)))))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1)))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1)))))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1))))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1)))))) +(define Unify-Core-case--23042-21372 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Unify-Core-n--23001-21299-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))) +(define Unify-Core-case--23015-21327 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-9)) (cond ((equal? sc4 0) (lambda (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__Term (vector 0 ) arg-7 (vector 0 ) arg-6 e-10 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (cond ((equal? sc6 0) (vector 1 0)) (else ((Unify-Core-n--23001-21299-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5) eta-0)))))))))))(else (Unify-Core-n--23001-21299-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))))(else (Unify-Core-n--23001-21299-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))(else (Unify-Core-n--23001-21299-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))))(else (Unify-Core-n--23001-21299-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5))))))(else (Unify-Core-n--23001-21299-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))) +(define Unify-Core-case--22878-21200 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((8) (lambda (eta-0) (Context-Core-updateDef arg-1 (vector 9 arg-4) (lambda (eta-1) (vector 1 (vector 7 0 (Context-Core-holeInit 1)))) eta-0))) ((9) (lambda (eta-0) (Context-Core-updateDef arg-1 (vector 9 arg-4) (lambda (eta-1) (vector 1 (vector 7 0 (Context-Core-holeInit 1)))) eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Unify-Core-case--22498-21038 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 9 arg-12 arg-11 arg-16) e-18 e-19 e-20)))))))))))))))))))))))) +(define Unify-Core-case--22498-20928 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 arg-12) (vector 1 0 arg-12) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) +(define Unify-Core-case--21354-20839 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (let ((gdef (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 arg-12) (vector 1 0 arg-12) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved " (Name-Core-show_Show__Name arg-2))) arg-12 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (UnifyState-Core-removeGuess arg-5 arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (let ((sc4 arg-15)) (let ((e-1 (vector-ref sc4 2))) e-1))))))))))))))))))(else (let ((gdef (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 9 arg-12 arg-11 arg-16) e-18 e-19 e-20)))))))))))))))))))))))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 1)))))))))))) +(define Unify-Core-case--21354-20773 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (Unify-Core-inMatch))(else arg-4))))) +(define Unify-Core-case--21830-20716 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 9 arg-16 arg-11 arg-15) e-18 e-19 e-20)))))))))))))))))))))))) +(define Unify-Core-case--21830-20559 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-12))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Unify-Core-forceMeta 'erased e-0 arg-11 arg-12))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((GetType-Core-getType (vector 0 ) arg-6 (vector 0 ) arg-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retry Delay (constrained)") arg-12 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Normalise-Core-getTerm 'erased e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Unify-Core-delayMeta (vector 0 ) e-1 arg-11 e-7 arg-12))))))))))))))))))))))) +(define Unify-Core-case--21830-20468 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 arg-15) (vector 1 0 arg-15) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) +(define Unify-Core-case--21830-20317 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-12))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Unify-Core-forceMeta 'erased e-0 arg-11 arg-12))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((GetType-Core-getType (vector 0 ) arg-6 (vector 0 ) arg-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retry Delay") arg-12 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Normalise-Core-getTerm 'erased e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Unify-Core-delayMeta (vector 0 ) e-1 arg-11 e-7 arg-12))))))))))))))))))))))) +(define Unify-Core-case--21354-20246 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Unify-Core-case--21830-20317 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (let ((sc1 arg-14)) (let ((e-3 (vector-ref sc1 4))) e-3))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((gdef (let ((sc2 arg-8)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-21 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-21 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 e-5) (vector 1 0 e-5) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved " (Name-Core-show_Show__Name arg-2))) e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (UnifyState-Core-removeGuess arg-5 arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (let ((sc5 arg-14)) (let ((e-1 (vector-ref sc5 2))) e-1)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Unify-Core-case--21830-20559 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (let ((sc0 arg-14)) (let ((e-3 (vector-ref sc0 4))) e-3))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((gdef (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-21 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-21 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 9 e-5 arg-11 arg-15) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-25 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 1))))))))))))))))) +(define Unify-Core-case--21354-20185 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (Unify-Core-inMatch))(else arg-4))))) +(define Unify-Core-case--21354-20117 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (Context-Core-defaultPI) (vector 0 ) (vector 1 0 arg-13) (vector 1 0 arg-13) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) +(define Unify-Core-case--21439-20023 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (lambda (eta-0) (let ((act-24 ((Normalise-Core-normaliseErr arg-6 arg-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-5 eta-0))))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Unify-Core-case--21354-19908 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((30) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Failed (det " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) ")"))))) (let ((sc1 arg-8)) (let ((e-24 (vector-ref sc1 3))) e-24)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((act-25 (Unify-Core-setInvertible arg-6 arg-1 (vector 9 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (vector 1 1)))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Search failed at " (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega arg-12) (Strings-Prelude-C-43C-43 " for " (Name-Core-show_Show__Name arg-2))))) (vector 0 ) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 3))) e-2)) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((act-25 ((Normalise-Core-normaliseErr arg-6 arg-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-6 eta-0)))))))(else (vector 1 1)))))))))))))) +(define Unify-Core-case--21305-19831 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-6 arg-5 (lambda (eta-1) (let ((act-24 (Unify-Core-search (vector 0 ) arg-6 arg-5 arg-1 e-0 (Unify-Core-C-61C-61_Eq__SolveMode arg-3 (vector 1 )) e-1 e-2 (let ((sc1 arg-8)) (let ((e-21 (vector-ref sc1 3))) e-21)) (vector 0 ) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((gdef (let ((sc2 arg-8)) (let ((e-24 (vector-ref sc2 1))) (let ((e-23 (vector-ref sc2 2))) (let ((e-22 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-21 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (vector 0 e-24 e-23 e-22 e-3 e-4 e-21 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (Context-Core-defaultPI) (vector 0 ) (vector 1 0 e-5) (vector 1 0 e-5) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Solved " (Name-Core-show_Show__Name arg-2))) (vector 0 ) e-5 eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-27 (UnifyState-Core-removeGuess arg-5 arg-0 eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 0)))))))))))))))))))) (lambda (err) (let ((sc1 err)) (case (vector-ref sc1 0) ((30) (let ((e-6 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (lambda (eta-1) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Failed (det " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) ")"))))) (let ((sc2 arg-8)) (let ((e-27 (vector-ref sc2 3))) e-27)) eta-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 1))) (vector 0 e-9))) (else (let ((act-25 (Unify-Core-setInvertible arg-6 arg-1 (vector 9 e-3) eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (vector 1 1)))))))))))))(else (lambda (eta-1) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Search failed at " (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-0) (Strings-Prelude-C-43C-43 " for " (Name-Core-show_Show__Name arg-2))))) (vector 0 ) (let ((sc1 arg-8)) (let ((e-21 (vector-ref sc1 3))) e-21)) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((act-25 ((Normalise-Core-normaliseErr arg-6 err) eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-6 eta-1)))))))(else (vector 1 1))))))))))))) eta-0)))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((0) (let ((umode (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((2) (Unify-Core-inMatch))(else arg-4))))) (lambda (eta-0) (let ((act-24 (Unify-Core-retry arg-6 arg-5 umode e-7 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((Unify-Core-case--21354-20246 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-7 e-4 e-3 umode e-6 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0)))))))))(else (let ((umode (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((2) (Unify-Core-inMatch))(else arg-4))))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Unify-Core-retry arg-6 arg-5 umode eta-1 eta-2))) e-5) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((csAll (Unify-Core-unionAll e-6))) ((Unify-Core-case--21354-20839 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5 e-4 e-3 umode e-6 csAll (let ((sc3 csAll)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0)))))))))))))))(else (let ((umode (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (Unify-Core-inMatch))(else arg-4))))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Unify-Core-retry arg-6 arg-5 umode eta-1 eta-2))) e-5) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((csAll (Unify-Core-unionAll e-6))) ((Unify-Core-case--21354-20839 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5 e-4 e-3 umode e-6 csAll (let ((sc2 csAll)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))))))))))))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Unify-Core-case--21271-19791 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-2))) (Unify-Core-case--21305-19831 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 bind-0 (let ((sc1 e-2)) (let ((e-17 (vector-ref sc1 18))) e-17)))))))))) +(define Unify-Core-case--20685-19665 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-deleteConstraint arg-3 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-10)))))))(else (lambda (eta-0) (vector 1 arg-10))))))) +(define Unify-Core-case--20752-19511 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda () "(lazy allowed)")) (else (lambda () "(no lazy)")))))) +(define Unify-Core-case--20752-19401 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Success " (Unify-Core-show_Show__AddLazy (let ((sc1 arg-16)) (let ((e-3 (vector-ref sc1 4))) e-3))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (UnifyState-Core-deleteConstraint arg-3 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 arg-16)))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Constraints " (Unify-Core-show_Show__AddLazy (let ((sc0 arg-16)) (let ((e-3 (vector-ref sc0 4))) e-3))))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 arg-16))))))))))) +(define Unify-Core-case--20685-19302 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Normalise-Core-logTermNF arg-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Retrying " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-1) (Strings-Prelude-C-43C-43 " " (Unify-Core-show_Show__UnifyMode (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2))))))) arg-8 arg-7 eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logTermNF arg-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "....with") arg-8 arg-6 eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (let ((sc3 arg-10)) (cond ((equal? sc3 0) (lambda () "(lazy allowed)")) (else (lambda () "(no lazy)")))) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Unify-Core-ifThenElse 'erased arg-10 (lambda () ((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-2)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-2))))))))))) arg-5 arg-0 arg-3) arg-2) arg-11) arg-8) arg-7) arg-6)) (lambda () ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-2)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-2))))))))))) arg-5 arg-0 arg-3) (Unify-Core-lower arg-2)) arg-11) arg-8) arg-7) arg-6))) eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((Unify-Core-case--20752-19401 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 e-6 e-7 e-8 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) e-0))) eta-1)))))))))))))))))))))) (lambda (err) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 5 arg-5 arg-11 arg-8 arg-7 arg-6 err) eta-1))) eta-0))) (else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-1) (Strings-Prelude-C-43C-43 " still blocked on " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-9)))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Normalise-Core-logTermNF arg-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "X") arg-8 arg-7 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Normalise-Core-logTermNF arg-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Y") arg-8 arg-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (Unify-Core-constrain arg-1)))))))))))))))))))) +(define Unify-Core-case--20454-19244 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (Unify-Core-success)))) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (let ((e-6 (vector-ref sc1 4))) (let ((e-7 (vector-ref sc1 5))) (let ((e-8 (vector-ref sc1 6))) (let ((e-9 (vector-ref sc1 7))) (lambda (eta-0) (let ((act-24 ((Core-Core-anyM 'erased (lambda (eta-1) (Unify-Core-n--20454-19039-definedN arg-0 arg-1 arg-2 arg-3 eta-1)) e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc2 1))) ((Unify-Core-case--20685-19302 arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-9 e-8 e-7 e-6 e-5 e-4 e-10 (Prelude-C-124C-124 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-2)) (let ((e-11 (vector-ref sc3 3))) e-11)) (vector 1 )) (lambda () (Prelude-C-124C-124 e-10 (lambda () (List-Data-isNil 'erased e-6)))))) eta-0))))))))))))))) (else (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((e-13 (vector-ref sc1 4))) (let ((e-14 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6783) (lambda (arg-6784) (lambda (arg-6786) (lambda (eta-1) (Normalise-Core-quote_Quote__Term vars arg-6783 arg-6784 arg-6786 eta-1)))))) (lambda (vars) (lambda (arg-6788) (lambda (arg-6790) (lambda (arg-6791) (lambda (arg-6793) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Term vars arg-6788 arg-6790 arg-6791 arg-6793 eta-1))))))))) e-10 arg-0 arg-3 arg-2 e-11 e-12 e-13 e-14) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) ((Unify-Core-case--20685-19665 arg-0 arg-1 arg-2 arg-3 arg-4 e-10 e-14 e-13 e-12 e-11 e-5 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))))))))))))))))))))) +(define Unify-Core-case--20485-19087 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((7) (lambda (eta-0) (vector 1 (let ((sc1 arg-9)) (let ((e-14 (vector-ref sc1 15))) e-14))))) ((8) (lambda (eta-0) (vector 1 1))) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0))))))) +(define Unify-Core-case--20462-19064 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Unify-Core-case--20485-19087 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Unify-Core-case--20331-18970 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 0 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))))) +(define Unify-Core-case--20312-18926 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-2 arg-0 (let ((sc1 e-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 0 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))))))) +(define Unify-Core-case--20164-18827 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-8 arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-8 arg-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0))))))))))))))))) +(define Unify-Core-case--19881-18589 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Skipped unification (equal already): " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-4) (Strings-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-3))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (Unify-Core-success)))))))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-8 arg-5 arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf arg-0 arg-8 arg-5 arg-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0))))))))))))))))) +(define Unify-Core-case--19877-18477 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Skipped unification (equal already): " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-4) (Strings-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-3))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (Unify-Core-success)))))))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-8 arg-5 arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf arg-0 arg-8 arg-5 arg-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0))))))))))))))))) +(define Unify-Core-case--18969-18296 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 e-1 e-2 (vector 2 arg-5)))))))) +(define Unify-Core-case--19680-18243 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 e-1 e-2 (vector 1 arg-6)))))))) +(define Unify-Core-case--18969-18173 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-postpone arg-0 arg-1 arg-2 0 arg-9 arg-10 "Postponing in lazy" arg-8 arg-7 arg-4 eta-0))) (else (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-10)) arg-9) arg-8) arg-5) arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (vector 0 e-0 e-1 e-2 (vector 1 arg-6)))))))))))))))))) +(define Unify-Core-case--19360-17990 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-11 arg-10 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Normalise-Core-nf arg-0 arg-14 arg-11 (vector 3 arg-8 arg-7 (vector 0 arg-5 (vector 1 ) e-1) (vector 4 arg-8 (TT-Core-weaken_Weaken__Term arg-7 arg-0 e-5) (vector 0 arg-8 (vector 0 ) 0)))) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-11 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-13)) arg-12) arg-11) e-5) arg-9) eta-0)))))))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9)))))) +(define Unify-Core-case--18965-17889 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9)) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-11 arg-9 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Unify-Core-getEtaType arg-0 arg-1 arg-2 arg-11 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-11 arg-10 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) ((Normalise-Core-nf arg-0 arg-14 arg-11 (vector 3 arg-8 arg-7 (vector 0 arg-5 (vector 1 ) e-1) (vector 4 arg-8 (TT-Core-weaken_Weaken__Term arg-7 arg-0 e-7) (vector 0 arg-8 (vector 0 ) 0)))) eta-0)))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-11 e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-13)) arg-12) arg-11) e-7) arg-9) eta-0))))))))))))(else ((Unify-Core-unifyNoEta arg-1 arg-2 arg-0 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9) eta-0)))))))))))))))))))) +(define Unify-Core-case--19058-17716 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-11 arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Normalise-Core-nf arg-0 arg-14 arg-11 (vector 3 arg-9 arg-8 (vector 0 arg-6 (vector 1 ) e-1) (vector 4 arg-9 (TT-Core-weaken_Weaken__Term arg-8 arg-0 e-5) (vector 0 arg-9 (vector 0 ) 0)))) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-11 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-1 arg-2) arg-13) arg-12) arg-11) arg-10) e-5) eta-0)))))))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-13 arg-12 arg-11 arg-10 arg-3)))))) +(define Unify-Core-case--18965-17615 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-3)) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-11 arg-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Unify-Core-getEtaType arg-0 arg-1 arg-2 arg-11 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-11 arg-3 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) ((Normalise-Core-nf arg-0 arg-14 arg-11 (vector 3 arg-9 arg-8 (vector 0 arg-6 (vector 1 ) e-1) (vector 4 arg-9 (TT-Core-weaken_Weaken__Term arg-8 arg-0 e-7) (vector 0 arg-9 (vector 0 ) 0)))) eta-0)))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-11 e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-1 arg-2) arg-13) arg-12) arg-11) arg-10) e-7) eta-0))))))))))))(else ((Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-13 arg-12 arg-11 arg-10 arg-3) eta-0)))))))))))))))))))) +(define Unify-Core-case--12705-17349 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-9 arg-4 e-8 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (vector 1 e-10))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Unify-Core-case--12705-17269 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (TT-Core-shrinkTerm 'erased 'erased e-1 (vector 1 (vector 0 ))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Unify-Core-case--12701-17126 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Unify-Core-unifyApp arg-9 arg-8 arg-0 0 arg-7 arg-6 arg-5 arg-3 arg-2 arg-1 arg-4)) (else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unify if Eq due to something with app") eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-9 arg-8 arg-0 0 arg-6 arg-7 arg-5 arg-4 (vector 1 arg-3 arg-2 arg-1) eta-0))))))))))) +(define Unify-Core-case--12701-16923 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-14))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6783) (lambda (arg-6784) (lambda (arg-6786) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6783 arg-6784 arg-6786 eta-1)))))) (lambda (vars) (lambda (arg-6788) (lambda (arg-6790) (lambda (arg-6791) (lambda (arg-6793) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6788 arg-6790 arg-6791 arg-6793 eta-1))))))))) arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-1 arg-6) eta-0))))))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-15 arg-12 arg-11 (vector 3 arg-5 arg-4 arg-3 arg-2 arg-1) (vector 3 arg-10 arg-9 arg-8 arg-7 arg-6) eta-0))))))) +(define Unify-Core-case--12701-16818 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-14))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6783) (lambda (arg-6784) (lambda (arg-6786) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6783 arg-6784 arg-6786 eta-1)))))) (lambda (vars) (lambda (arg-6788) (lambda (arg-6790) (lambda (arg-6791) (lambda (arg-6793) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6788 arg-6790 arg-6791 arg-6793 eta-1))))))))) arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-1 arg-6) eta-0))))))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-15 arg-12 arg-11 (vector 2 arg-5 arg-4 arg-3 arg-2 arg-1) (vector 2 arg-10 arg-9 arg-8 arg-7 arg-6) eta-0))))))) +(define Unify-Core-case--12694-16507 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-17 arg-14 arg-13 (vector 0 arg-12 arg-11 (vector 0 arg-3 arg-2 arg-1) arg-10) (vector 0 arg-9 arg-8 (vector 0 arg-6 arg-5 arg-4) arg-7) eta-0))) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-18 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-17 arg-16) (Unify-Core-lower arg-15)) arg-14) arg-13) arg-1) arg-4) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (UnifyState-Core-genVarName arg-17 arg-16 "x" eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((envC-39 (vector 1 (vector 0 arg-3 (vector 1 ) e-6) arg-13))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 arg-1 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 arg-4 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-30 (((arg-10 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) e-8))) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (((arg-7 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) e-8))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 e-11 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 e-12 eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-1))))))))))) (vector 1 arg-11 arg-0) arg-17 arg-16) (Unify-Core-lower (Unify-Core-lam arg-15))) arg-14) envC-39) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 e-8 (vector 0 )) e-13)) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 e-8 (vector 0 )) e-14)) eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc11 1))) (vector 1 (Unify-Core-union e-7 e-15)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Unify-Core-case--17444-16211 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (((arg-10 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) arg-23))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (((arg-7 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) arg-23))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 e-5 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 e-6 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-1))))))))))) (vector 1 arg-11 arg-0) arg-17 arg-16) (Unify-Core-lower arg-15)) arg-14) arg-24) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 arg-23 (vector 0 )) e-7)) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 arg-23 (vector 0 )) e-8)) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 arg-1 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 arg-4 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((UnifyState-Core-newConstant arg-0 arg-16 arg-17 arg-14 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-13 (vector 3 arg-12 arg-11 (vector 0 arg-6 (vector 1 ) e-5) (vector 0 arg-12 (vector 0 ) 0)) (vector 3 arg-12 arg-11 (vector 2 arg-6 (vector 1 ) e-5) (TT-Core-weaken_Weaken__Term arg-11 arg-0 e-6)) arg-25) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (((arg-10 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) arg-23))) eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (((arg-7 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 4 arg-14 e-7 (vector 1 arg-14 (vector 0 ) arg-23)))) eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 e-8 eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 e-9 eta-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-1))))))))))) (vector 1 arg-11 arg-0) arg-17 arg-16) (Unify-Core-lower arg-15)) arg-14) arg-24) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 arg-23 (vector 0 )) e-10)) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 arg-23 (vector 0 )) e-11)) eta-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (vector 1 (Unify-Core-union arg-22 e-12)))))))))))))))))))))))))))))))))))))))))))))))) +(define Unify-Core-case--12694-16043 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-17 arg-14 arg-13 (vector 0 arg-12 arg-11 (vector 2 arg-3 arg-2 arg-1) arg-10) (vector 0 arg-9 arg-8 (vector 2 arg-6 arg-5 arg-4) arg-7) eta-0))) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-18 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-logC arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 arg-4 eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Unifying arg types " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-6) (Strings-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7))))))))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-17 arg-16) (Unify-Core-lower arg-15)) arg-14) arg-13) arg-1) arg-4) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (UnifyState-Core-genVarName arg-17 arg-16 "x" eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((envC-39 (vector 1 (vector 2 arg-6 (vector 1 ) e-6) arg-13))) ((Unify-Core-case--17444-16211 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 e-5 e-6 e-7 e-8 e-9 envC-39 (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0))))))))))))))))))))))))))))))))) +(define Unify-Core-case--12689-15855 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-logC arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-17))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (arg-19) (lambda (eta-2) (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-11 arg-19 eta-2))) arg-6) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (arg-19) (lambda (eta-2) (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-11 arg-19 eta-2))) arg-1) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Matching args " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-6) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-7))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6783) (lambda (arg-6784) (lambda (arg-6786) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6783 arg-6784 arg-6786 eta-1)))))) (lambda (vars) (lambda (arg-6788) (lambda (arg-6790) (lambda (arg-6791) (lambda (arg-6793) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6788 arg-6790 arg-6791 arg-6793 eta-1))))))))) arg-0 arg-17 arg-16 arg-15 arg-12 arg-11 arg-6 arg-1) eta-0))))))) (else (Unify-Core-unifyApp arg-17 arg-16 arg-0 1 arg-15 arg-12 arg-11 arg-10 arg-9 arg-6 (vector 1 arg-5 arg-4 arg-1))))))) +(define Unify-Core-case--12689-15756 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-0)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6783) (lambda (arg-6784) (lambda (arg-6786) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6783 arg-6784 arg-6786 eta-0)))))) (lambda (vars) (lambda (arg-6788) (lambda (arg-6790) (lambda (arg-6791) (lambda (arg-6793) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6788 arg-6790 arg-6791 arg-6793 eta-0))))))))) arg-0 arg-17 arg-16 arg-15 arg-12 arg-11 arg-6 arg-1)) (else (Unify-Core-unifyApp arg-17 arg-16 arg-0 1 arg-15 arg-12 arg-11 arg-10 arg-9 arg-6 (vector 1 arg-5 arg-4 arg-1))))))) +(define Unify-Core-case--12689-15676 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (Unify-Core-unifyApp arg-13 arg-12 arg-0 0 arg-11 arg-10 arg-9 arg-8 (vector 2 arg-3 arg-2 arg-1) arg-4 (vector 1 arg-8 arg-7 arg-6))) (else (Unify-Core-unifyApp arg-13 arg-12 arg-0 1 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 (vector 1 arg-5 (vector 2 arg-3 arg-2 arg-1) arg-4))))))) +(define Unify-Core-case--16743-15556 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (Unify-Core-unifyApp arg-15 arg-14 arg-0 1 arg-13 arg-12 arg-11 arg-10 (vector 2 arg-3 arg-2 arg-1) arg-9 (vector 1 arg-8 (vector 2 arg-6 arg-5 arg-4) arg-7))) (else (Unify-Core-unifyApp arg-15 arg-14 arg-0 0 arg-13 arg-12 arg-11 arg-8 (vector 2 arg-6 arg-5 arg-4) arg-7 (vector 1 arg-10 (vector 2 arg-3 arg-2 arg-1) arg-9))))))) +(define Unify-Core-case--12689-15447 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-0)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6783) (lambda (arg-6784) (lambda (arg-6786) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6783 arg-6784 arg-6786 eta-0)))))) (lambda (vars) (lambda (arg-6788) (lambda (arg-6790) (lambda (arg-6791) (lambda (arg-6793) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6788 arg-6790 arg-6791 arg-6793 eta-0))))))))) arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 (List-Prelude-C-43C-43 'erased arg-1 arg-9) (List-Prelude-C-43C-43 'erased arg-4 arg-7))) (else (lambda (eta-0) (let ((act-24 ((Unify-Core-n--12689-15296-localsIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Unify-Core-n--12689-15296-localsIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((xbigger (Prelude-C-124C-124 (Prelude-C-62_Ord__Nat e-5 e-6) (lambda () (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Nat e-5 e-6) (lambda () (Prelude-C-60C-61_Ord__Nat (List-Data-length 'erased arg-9) (List-Data-length 'erased arg-7)))))))) ((Unify-Core-case--16743-15556 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-5 e-6 xbigger (Prelude-C-38C-38 (Prelude-C-124C-124 xbigger (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc3 arg-13)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))) (lambda () (Prelude-not (Unify-Core-n--12689-15295-pv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-3))))) eta-0)))))))))))))))))) +(define Unify-Core-case--16575-15332 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--12689-15296-localsIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (+ 1 e-5)))))))))(else (Unify-Core-n--12689-15296-localsIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17))))))(else (Unify-Core-n--12689-15296-localsIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17)))))) +(define Unify-Core-case--12689-15160 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-0)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6783) (lambda (arg-6784) (lambda (arg-6786) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6783 arg-6784 arg-6786 eta-0)))))) (lambda (vars) (lambda (arg-6788) (lambda (arg-6790) (lambda (arg-6791) (lambda (arg-6793) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6788 arg-6790 arg-6791 arg-6793 eta-0))))))))) arg-0 arg-19 arg-18 arg-17 arg-14 arg-13 arg-11 arg-9)) (else (lambda (eta-0) (Unify-Core-postpone arg-0 arg-19 arg-18 0 arg-14 arg-17 "Postponing local app" arg-13 (vector 1 arg-12 (vector 0 arg-5 arg-3) arg-11) (vector 1 arg-10 (vector 0 arg-8 arg-6) arg-9) eta-0))))))) +(define Unify-Core-case--12689-15061 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-15 arg-12 arg-11 (vector 1 arg-10 (vector 0 arg-5 arg-3) (vector 0 )) (vector 1 arg-9 (vector 0 arg-8 arg-6) (vector 0 )) eta-0))))))) +(define Unify-Core-case--12685-14990 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (Unify-Core-postponeS arg-0 arg-9 arg-8 0 0 arg-6 arg-7 "Postponing constraint" arg-5 (vector 1 arg-4 arg-3 arg-2) arg-1)))))) +(define Unify-Core-case--12685-14916 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (Unify-Core-postponeS arg-0 arg-9 arg-8 0 1 arg-6 arg-7 "Postponing constraint" arg-5 (vector 1 arg-4 arg-3 arg-2) arg-1)))))) +(define Unify-Core-case--12685-14704 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (Unify-Core-postponeS arg-0 arg-16 arg-15 0 arg-14 arg-12 arg-13 "Postponing var" arg-11 (vector 1 arg-10 (vector 0 arg-5 arg-3) (vector 0 )) (vector 1 arg-9 (vector 0 arg-8 arg-6) (vector 0 )))))))) +(define Unify-Core-case--12685-14609 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-unifyIfEq arg-11 arg-10 arg-0 0 arg-7 arg-8 arg-6 (vector 1 arg-5 (vector 1 arg-2 arg-1) arg-4) arg-3 eta-0))) (else (lambda (eta-0) (Unify-Core-unifyIfEq arg-11 arg-10 arg-0 0 arg-7 arg-8 arg-6 arg-3 (vector 1 arg-5 (vector 1 arg-2 arg-1) arg-4) eta-0))))))) +(define Unify-Core-case--15235-14277 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-29)) (case (vector-ref sc0 0) ((0) (Unify-Core-postponeS arg-0 arg-12 arg-11 0 arg-10 arg-8 arg-9 "Can't shrink" arg-7 (vector 1 arg-8 (vector 2 arg-5 arg-4 arg-3) arg-2) arg-1)) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Unify-Core-solveHole arg-12 arg-11 arg-17 arg-0 arg-6 arg-9 arg-7 arg-5 arg-4 arg-3 arg-2 arg-18 arg-19 arg-26 e-2 arg-1 eta-0)))))))) +(define Unify-Core-case--15148-14144 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Unify-Core-solveHole arg-12 arg-11 arg-17 arg-0 arg-6 arg-9 arg-7 arg-5 arg-4 arg-3 arg-2 arg-18 arg-19 arg-26 e-1 arg-1 eta-0)))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-normalise arg-0 arg-13 arg-7 arg-26 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Unify-Core-case--15235-14277 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 e-5 (TT-Core-shrinkTerm 'erased 'erased e-5 arg-19)) eta-0)))))))))))) +(define Unify-Core-case--15056-14084 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Unify-Core-case--15148-14144 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 e-1 _-0 (TT-Core-shrinkTerm 'erased 'erased e-1 arg-19)))))(else (Unify-Core-postponeS arg-0 arg-12 arg-11 0 arg-10 arg-8 arg-9 "Occurs check failed" arg-7 (vector 1 arg-8 (vector 2 arg-5 arg-4 arg-3) arg-2) arg-1)))))) +(define Unify-Core-case--14987-14012 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-0 arg-14 arg-7 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Unify-Core-occursCheck arg-0 arg-12 arg-8 arg-7 arg-9 arg-5 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-2))) ((Unify-Core-case--15148-14144 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 e-0 e-1 e-5 e-2 _-0 (TT-Core-shrinkTerm 'erased 'erased e-2 arg-19)) eta-0))))(else ((Unify-Core-postponeS arg-0 arg-12 arg-11 0 arg-10 arg-8 arg-9 "Occurs check failed" arg-7 (vector 1 arg-8 (vector 2 arg-5 arg-4 arg-3) arg-2) arg-1) eta-0))))))))))))))))))(else (Unify-Core-postponeS arg-0 arg-12 arg-11 0 arg-10 arg-8 arg-9 "Delayed hole" arg-7 (vector 1 arg-8 (vector 2 arg-5 arg-4 arg-3) arg-2) arg-1)))))) +(define Unify-Core-case--14540-13965 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Unify-Core-case--14987-14012 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (Unify-Core-postponePatVar arg-12 arg-11 arg-0 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 arg-1)))))) +(define Unify-Core-case--14661-13729 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (Unify-Core-unifyHoleApp arg-12 arg-11 arg-0 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 arg-1)) (else (Unify-Core-postponePatVar arg-12 arg-11 arg-0 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 arg-1)))))) +(define Unify-Core-case--14601-13681 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Unify-Core-case--14661-13729 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-0 e-1 (let ((sc1 arg-18)) (let ((e-14 (vector-ref sc1 15))) e-14))))))(else (Unify-Core-postponePatVar arg-12 arg-11 arg-0 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 arg-1)))))) +(define Unify-Core-case--14540-13640 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Unify-Core-case--14601-13681 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (Unify-Core-postponePatVar arg-12 arg-11 arg-0 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 arg-1)))))) +(define Unify-Core-case--12681-13595 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 arg-4) (let ((sc1 arg-13)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((bind-0 (vector 0 ))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Unify-Core-case--14601-13681 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 bind-0 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0))))(else ((Unify-Core-postponePatVar arg-12 arg-11 arg-0 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 arg-1) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 arg-4) (let ((sc3 arg-13)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((bind-0 (vector 1 (vector 0 e-5 (vector 0 e-9 e-10))))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((Unify-Core-case--14987-14012 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-5 e-9 e-10 bind-0 e-1 _-0 (let ((sc5 e-1)) (let ((e-17 (vector-ref sc5 18))) e-17))) eta-0))))(else ((Unify-Core-postponePatVar arg-12 arg-11 arg-0 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 arg-1) eta-0))))))))))))))))))))))) +(define Unify-Core-case--14236-13420 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unify-Core-instantiate arg-15 arg-14 arg-1 arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 (List-Data-length 'erased arg-8) e-1 arg-6 arg-4 arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (Unify-Core-solvedHole arg-9))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't happen: Lost hole " (Name-Core-show_Show__Name arg-10))) eta-0))))))) +(define Unify-Core-case--12676-13334 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 arg-9) (let ((sc1 arg-16)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 (Unify-Core-instantiate arg-15 arg-14 arg-1 arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 (List-Data-length 'erased arg-8) e-1 arg-6 arg-4 arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (Unify-Core-solvedHole arg-9)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't happen: Lost hole " (Name-Core-show_Show__Name arg-10))) eta-0))))))))))))))) +(define Unify-Core-case--12672-13234 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (Unify-Core-postponeS arg-0 arg-11 arg-10 1 arg-9 arg-7 arg-8 "Not in pattern fragment" arg-6 arg-12 arg-1)))))) +(define Unify-Core-case--13849-13069 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-unifyInvertible arg-16 arg-15 arg-0 arg-14 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 (vector 0 ) (lambda (eta-1) (vector 1 arg-5 (vector 2 arg-3 arg-2 arg-1) eta-1)) arg-4 eta-0))) (else (Unify-Core-postponeS arg-0 arg-16 arg-15 0 arg-14 arg-12 arg-13 "Postponing hole application" arg-11 (vector 1 arg-12 (vector 2 arg-10 arg-9 arg-8) arg-7) arg-6)))))) +(define Unify-Core-case--12668-13027 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((inv (Prelude-C-124C-124 (Unify-Core-n--12668-13001-isPatName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-3) (lambda () (let ((sc1 e-1)) (let ((e-14 (vector-ref sc1 15))) e-14)))))) (let ((sc1 inv)) (cond ((equal? sc1 0) (lambda (eta-0) (Unify-Core-unifyInvertible arg-16 arg-15 arg-0 arg-14 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 (vector 0 ) (lambda (eta-1) (vector 1 arg-5 (vector 2 arg-3 arg-2 arg-1) eta-1)) arg-4 eta-0))) (else (Unify-Core-postponeS arg-0 arg-16 arg-15 0 arg-14 arg-12 arg-13 "Postponing hole application" arg-11 (vector 1 arg-12 (vector 2 arg-10 arg-9 arg-8) arg-7) arg-6))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-10) eta-0))))))) +(define Unify-Core-case--13295-12586 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unifying invertible") eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-1))))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) arg-20) arg-22) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Constraints " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) (List-Data-reverse 'erased arg-21))) (arg-2 (List-Data-reverse 'erased arg-23))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (Unify-Core-union e-6 e-8)))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unifying invertible") eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-1))))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) arg-22) arg-20) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Constraints " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) (arg-2 (List-Data-reverse 'erased arg-23))) (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) (List-Data-reverse 'erased arg-21))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (Unify-Core-union e-6 e-8)))))))))))))))))))))))))) +(define Unify-Core-case--13228-12524 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (lambda (eta-0) (UnifyState-Core-tryUnify 'erased arg-13 arg-12 (Unify-Core-case--13295-12586 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-5 e-6 e-8 e-9 (Prelude-not arg-11)) (Unify-Core-postponeS arg-0 arg-13 arg-12 0 arg-11 arg-9 arg-10 "Postponing hole application [1]" arg-8 (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) arg-4) (arg-2 arg-1)) eta-0)))))(else (Unify-Core-postponeS arg-0 arg-13 arg-12 0 arg-11 arg-9 arg-10 "Postponing hole application [2]" arg-8 (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) arg-4) (arg-2 arg-1))))))))(else (Unify-Core-postponeS arg-0 arg-13 arg-12 0 arg-11 arg-9 arg-10 "Postponing hole application [2]" arg-8 (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) arg-4) (arg-2 arg-1))))))))(else (Unify-Core-postponeS arg-0 arg-13 arg-12 0 arg-11 arg-9 arg-10 "Postponing hole application [2]" arg-8 (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) arg-4) (arg-2 arg-1))))))) +(define Unify-Core-case--13145-12475 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (let ((bind-0 0)) (Unify-Core-case--13228-12524 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 bind-0 (vector 0 (List-Data-reverse 'erased arg-4) (List-Data-reverse 'erased arg-1))))) (else (lambda (eta-0) (Unify-Core-postpone arg-0 arg-13 arg-12 0 arg-9 arg-10 "Postponing hole application [3]" arg-8 (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) arg-4) (arg-2 arg-1) eta-0))))))) +(define Unify-Core-case--12664-12405 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf arg-0 arg-14 arg-8 (TT-Core-embed 'erased 'erased e-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Unify-Core-getArgTypes 'erased arg-14 e-5 (List-Prelude-C-43C-43 'erased arg-5 arg-4)) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (ty) (lambda (eta-1) (let ((act-25 ((Normalise-Core-nf arg-0 arg-14 arg-8 (TT-Core-embed 'erased 'erased ty)) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Unify-Core-getArgTypes 'erased arg-14 e-6 arg-1) eta-1))))))))) arg-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Unify-Core-headsConvert arg-0 arg-13 arg-12 arg-10 arg-9 arg-8 e-5 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (let ((bind-0 0)) ((Unify-Core-case--13228-12524 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-1 _-0 e-5 e-6 bind-0 (vector 0 (List-Data-reverse 'erased arg-4) (List-Data-reverse 'erased arg-1))) eta-0))) (else (Unify-Core-postpone arg-0 arg-13 arg-12 0 arg-9 arg-10 "Postponing hole application [3]" arg-8 (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) arg-4) (arg-2 arg-1) eta-0))))))))))))))))))))))) (else (lambda (eta-0) (Unify-Core-ufail 'erased arg-9 (Strings-Prelude-C-43C-43 "No such metavariable " (Name-Core-show_Show__Name arg-7)) eta-0))))))) +(define Unify-Core-case--12660-12285 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-7 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unifying head") arg-3 e-5 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 (Normalise-Core-logNF arg-0 arg-7 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () ".........with") arg-3 e-8 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-26 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-7 arg-6) arg-5) arg-4) arg-3) e-5) e-8) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc5 1))) (vector 1 (List-Data-isNil 'erased (let ((sc6 e-11)) (let ((e-0 (vector-ref sc6 1))) e-0))))))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Unify-Core-case--12658-12189 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 arg-4 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Unify-Core-case--12743-12107 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-postpone arg-0 arg-8 arg-7 0 arg-5 arg-4 (Strings-Prelude-C-43C-43 "Postponing unifyIfEq " (Prelude-show_Show__Bool (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)))) arg-3 arg-2 arg-1 eta-0))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-8 arg-5 arg-3 arg-2 arg-1 eta-0))))))) +(define Unify-Core-case--12654-12062 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (let ((sc1 arg-6)) (cond ((equal? sc1 0) (lambda (eta-0) (Unify-Core-postpone arg-0 arg-8 arg-7 0 arg-5 arg-4 (Strings-Prelude-C-43C-43 "Postponing unifyIfEq " (Prelude-show_Show__Bool (let ((sc2 arg-4)) (let ((e-0 (vector-ref sc2 1))) e-0)))) arg-3 arg-2 arg-1 eta-0))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-8 arg-5 arg-3 arg-2 arg-1 eta-0)))))))))) +(define Unify-Core-case--12601-11881 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (let ((sc1 e-1)) (let ((e-14 (vector-ref sc1 15))) e-14)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 (vector 9 arg-0)) eta-0))))))) +(define Unify-Core-case--12359-11740 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unify-Core-instantiate arg-8 arg-7 arg-0 arg-13 arg-4 (Unify-Core-inTerm) arg-6 arg-3 arg-2 (List-Data-length 'erased arg-1) e-1 arg-14 arg-5 arg-17 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 0)))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen: no definition") eta-0))))))) +(define Unify-Core-case--12272-11655 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 arg-2) (let ((sc1 arg-9)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 (Unify-Core-instantiate arg-8 arg-7 arg-0 arg-13 arg-4 (Unify-Core-inTerm) arg-6 arg-3 arg-2 (List-Data-length 'erased arg-1) e-1 arg-14 arg-5 e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (vector 1 0))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen: no definition") eta-0)))))))))))))))) +(define Unify-Core-case--12225-11584 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((bind-0 (vector 1 (vector 0 e-5 (vector 0 e-9 e-10))))) (Unify-Core-case--12272-11655 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 e-9 e-10 bind-0 (TT-Core-shrinkTerm 'erased 'erased arg-5 e-10))))))))))))))) +(define Unify-Core-case--12193-11546 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Unify-Core-patternEnvTm arg-8 arg-7 arg-0 arg-6 arg-1 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((_-0 (vector 1 (vector 7 e-2 e-3)))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (vector 1 1)) (else (let ((e-4 (vector-ref sc3 1))) (let ((sc4 e-4)) (let ((e-7 (vector-ref sc4 1))) (let ((e-6 (vector-ref sc4 2))) (let ((sc5 e-6)) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((bind-0 (vector 1 (vector 0 e-7 (vector 0 e-9 e-10))))) ((Unify-Core-case--12272-11655 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-3 _-0 e-7 e-9 e-10 bind-0 (TT-Core-shrinkTerm 'erased 'erased arg-5 e-10)) eta-0))))))))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Unify-Core-case--10100-11459 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 arg-23 (vector 0 ) (vector 1 0 arg-21) (vector 1 0 arg-21) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) +(define Unify-Core-case--10100-11364 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 3 arg-0 arg-11 arg-9 (vector 3 e-0 e-1) arg-3) eta-0)))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Unify-Core-case--10125-11126 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-1)))) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-1)))) d-0 x-0)))) d x)))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-15 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-15 d x))))) (vector 0 (Unify-Core-getIVars 'erased 'erased arg-18) arg-17))))) eta-0))))))) +(define Unify-Core-case--10125-10996 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (vector 1 (vector 3 arg-22 arg-16 arg-21 arg-26)))))))) +(define Unify-Core-case--10948-10473 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-29)) (cond ((equal? sc0 0) (vector 2 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-27 arg-28)) (else (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-27 arg-28)))))) +(define Unify-Core-case--10811-10399 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (cond ((equal? sc0 0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10100-9691-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-26 arg-23) (lambda (tC-39) (Prelude-pure_Applicative__Maybe 'erased (Unify-Core-case--10948-10473 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 tC-39 (Prelude-C-124C-124 (Unify-Core-inLam arg-10) (lambda () (Unify-Core-n--10100-9688-precise arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13)))))))) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10100-9691-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-26 arg-23) (lambda (bind-0) (vector 1 (vector 2 arg-25 arg-27 bind-0))))))))) +(define Unify-Core-case--10124-10162 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (vector 1 (vector 0 arg-20 arg-19 arg-22)))) +(define Unify-Core-case--10413-10060 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (vector 1 (+ 1 arg-24)))) +(define Unify-Core-case--10123-9940 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (cond ((equal? sc0 0) (vector 1 0)) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10100-9690-updateIVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased arg-22 'erased 'erased arg-21 'erased) (lambda (_-0) (vector 1 (+ 1 _-0))))))))) +(define Unify-Core-case--10123-9860 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (vector 1 (+ 1 arg-21)))) +(define Unify-Core-case--10121-9695 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((7) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 2))) e-2))))(else 1))))) +(define Unify-Core-case--9785-9445 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--9535-9160-failOnStrongRigid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 4 arg-0 arg-5 arg-4 arg-2 arg-10) eta-1)) arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-10)))))))) +(define Unify-Core-case--9535-9378 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 arg-1))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Normalise-Core-normalise arg-0 e-5 arg-4 arg-1 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Unify-Core-getMetaNames 'erased arg-6 e-6) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((Unify-Core-case--9785-9445 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 e-6 e-7 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) arg-2 e-7)) eta-0)))))))))))))))))))))) +(define Unify-Core-case--9547-9239 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 0 ))))(else (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Unify-Core-n--9535-9160-failOnStrongRigid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 arg-8 eta-0)) e-3))))))(else (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Unify-Core-n--9535-9160-failOnStrongRigid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-8 eta-0)) e-3)))))))))))) +(define Unify-Core-case--9547-9178 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) arg-11) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Unify-Core-case--9442-9115 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 (vector 0 (Unify-Core-n--9322-8976-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-7 e-3) e-3)))))))))) +(define Unify-Core-case--9322-9074 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (Unify-Core-case--9442-9115 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 (Unify-Core-toSubVars arg-0 e-2)))))))) +(define Unify-Core-case--9333-9001 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (Unify-Core-n--9322-8976-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10)) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 (Unify-Core-n--9322-8976-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10)))))))) +(define Unify-Core-case--9223-8903 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 0 )) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-getVarsTm 'erased (vector 1 arg-2 arg-7) arg-6) (lambda (xsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 arg-2 xsC-39))))))))) +(define Unify-Core-case--9122-8844 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 (vector 0 (Unify-Core-n--8993-8690-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-8 e-3) e-3)))))))))) +(define Unify-Core-case--8993-8799 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (Unify-Core-case--9122-8844 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 (Unify-Core-toSubVars arg-0 e-2)))))))) +(define Unify-Core-case--9004-8715 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (Unify-Core-n--8993-8690-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10)) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 (Unify-Core-n--8993-8690-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10)))))))) +(define Unify-Core-case--8930-8643 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 0 (vector 1 arg-0 arg-3) (vector 2 arg-4))) (else (vector 0 arg-3 (vector 1 arg-4))))))) +(define Unify-Core-case--8879-8627 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--8930-8643 arg-0 arg-1 arg-2 e-2 e-3 (Unify-Core-n--8879-8593-anyFirst arg-0 arg-1 arg-2 arg-2))))))) +(define Unify-Core-case--8689-8498 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 0 )) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-getVars arg-0 (vector 1 arg-2 arg-7) arg-6) (lambda (xsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 arg-2 xsC-39))))))))) +(define Unify-Core-case--8717-8449 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) 0) (else (Unify-Core-n--8689-8435-inArgs arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-10 arg-9)))))) +(define Unify-Core-case--8541-8294 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-postpone arg-0 arg-10 arg-9 arg-8 arg-6 (Unify-Core-lower arg-5) arg-4 arg-3 arg-1 arg-2 eta-0))) (else (lambda (eta-0) (Unify-Core-postpone arg-0 arg-10 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0))))))) +(define Unify-Core-case--8009-8203 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (let ((xmetas (TT-Core-getMetas 'erased arg-15))) (Unify-Core-chaseMetas arg-9 ((NameMap-Data-keys 'erased) (TT-Core-addMetas 'erased xmetas arg-16)) (NameMap-Data-empty 'erased)))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Unify-Core-case--8026-7907 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (vector 1 0))) ((8) (lambda (eta-0) (vector 1 0))) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Unify-Core-case--8025-7811 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-6 arg-13) eta-0))))))) +(define Unify-Core-case--7889-7711 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 3))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 2))) (let ((sns ((NameMap-Data-keys 'erased) (TT-Core-getMetas 'erased e-9)))) (Unify-Core-chaseMetas arg-3 (List-Prelude-C-43C-43 'erased sns arg-1) (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)))))(else (Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)))))))(else (Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)))))))(else (Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2))))))) +(define Unify-Core-case--7872-7669 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (Unify-Core-chaseMetas arg-3 arg-1 arg-2))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-lookupDefExact arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 3))) (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((sns ((NameMap-Data-keys 'erased) (TT-Core-getMetas 'erased e-9)))) ((Unify-Core-chaseMetas arg-3 (List-Prelude-C-43C-43 'erased sns arg-1) (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)) eta-0))))(else ((Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)) eta-0))))))(else ((Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)) eta-0))))))(else ((Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)) eta-0)))))))))))))))))))) +(define Unify-Core-case--7813-7619 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-convertError 'erased arg-1 arg-7 arg-5 arg-4 arg-2 arg-3 eta-0))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-1 arg-7 arg-5 arg-4 arg-3 arg-2 eta-0))))))) +(define Unify-Core-case--7400-7129 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 1 e-1 e-2)))))) +(define Unify-Core-case--7391-7118 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 0 e-2)))))) +(define Unify-Core-n--9322-8976-updateVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--9333-9001 arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-2 'erased e-3 arg-7 (TT-Core-subElem 'erased 'erased 'erased e-2 'erased arg-7))))))))) +(define Unify-Core-n--8993-8690-updateVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--9004-8715 arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-2 'erased e-3 arg-7 (TT-Core-subElem 'erased 'erased 'erased e-2 'erased arg-7))))))))) +(define Unify-Core-n--10124-10258-updateIVarsPi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((1) (vector 1 (vector 1 ))) ((0) (vector 1 (vector 0 ))) ((2) (vector 1 (vector 2 ))) (else (let ((e-4 (vector-ref sc0 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10100-9691-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-4) (lambda (tC-39) (vector 1 (vector 3 tC-39)))))))))) +(define Unify-Core-n--10124-10259-updateIVarsB (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10124-10258-updateIVarsPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-2) (lambda (pC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10100-9691-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-3) (lambda (bind-0) (vector 1 (vector 0 e-1 pC-39 bind-0)))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10100-9691-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-6) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10100-9691-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-7) (lambda (bind-1) (vector 1 (vector 1 e-5 bind-0 bind-1)))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10124-10258-updateIVarsPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-10) (lambda (pC-39) (Unify-Core-case--10811-10399 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 e-11 e-10 e-9 arg-23 pC-39 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) e-9)))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10124-10258-updateIVarsPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-14) (lambda (pC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10100-9691-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-15) (lambda (bind-0) (vector 1 (vector 3 e-13 pC-39 bind-0)))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10100-9691-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-18) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10100-9691-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-19) (lambda (bind-1) (vector 1 (vector 4 e-17 bind-0 bind-1)))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10100-9691-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-22) (lambda (bind-0) (vector 1 (vector 5 e-21 bind-0))))))))))) +(define Unify-Core-n--10100-9691-updateIVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10100-9690-updateIVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-4 'erased 'erased arg-16 'erased) (lambda (_-0) (vector 1 (vector 0 e-2 e-3 _-0)))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 e-7 e-8 e-9)))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Prelude-pure_Applicative__Maybe 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3511 arg-3513)))))) (lambda (eta-0) (Unify-Core-n--10100-9691-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 eta-0)) e-14) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 2 e-11 e-12 e-13 bind-0))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10124-10259-updateIVarsB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-15 e-17 e-19 e-18 e-16 arg-14 arg-16 arg-14 arg-15 arg-16 e-18) (lambda (bC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10100-9691-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 1 e-17 arg-14) (vector 1 e-17 arg-15) (vector 1 (vector 1 0) (Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 'erased e-17 arg-15 arg-16)) e-19) (lambda (scC-39) (vector 1 (vector 3 e-16 e-17 bC-39 scC-39))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10100-9691-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-22) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10100-9691-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-23) (lambda (bind-1) (vector 1 (vector 4 e-21 bind-0 bind-1)))))))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10100-9691-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-27) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10100-9691-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-28) (lambda (bind-1) (vector 1 (vector 5 e-25 e-26 bind-0 bind-1))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10100-9691-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-32) (lambda (bind-0) (vector 1 (vector 6 e-30 e-31 bind-0)))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10100-9691-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-36) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10100-9691-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-37) (lambda (bind-1) (vector 1 (vector 7 e-34 e-35 bind-0 bind-1))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10100-9691-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-41) (lambda (bind-0) (vector 1 (vector 8 e-39 e-40 bind-0)))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (vector 1 (vector 9 e-43 e-44))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (vector 1 (vector 10 e-46 e-47))))) (else (let ((e-49 (vector-ref sc0 1))) (vector 1 (vector 11 e-49)))))))) +(define Unify-Core-n--10100-9690-updateIVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10100-9690-updateIVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased arg-15 'erased 'erased e-4 'erased) (lambda (_-0) (vector 1 (+ 1 _-0))))) ((1) (let ((e-7 (vector-ref sc1 1))) (Unify-Core-case--10123-9940 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased 'erased 'erased 'erased 'erased e-7 'erased e-4 arg-15 'erased (Prelude-C-61C-61_Eq__Nat arg-15 e-7))))(else (vector 0 )))))))(else (vector 0 )))))) +(define Unify-Core-n--8009-7790-undefinedN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-lookupDefExact arg-10 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((7) (vector 1 0)) ((8) (vector 1 0)) ((9) (vector 1 0))(else (vector 1 1))))))(else (vector 1 1)))))))))))))))) +(define Unify-Core-n--12676-13300-solutionHeadSame (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 2))) (Prelude-C-61C-61_Eq__Int e-6 arg-9)))(else 1)))))(else 1))))) +(define Unify-Core-n--12689-15295-pv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((3) 0)(else 1))))) +(define Unify-Core-n--10100-9688-precise (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (Unify-Core-case--10121-9695 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (let ((sc0 arg-5)) (let ((e-17 (vector-ref sc0 18))) e-17))))) +(define Unify-Core-n--10100-9692-mkDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((sc1 arg-19)) (case (vector-ref sc1 0) ((3) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((e-16 (vector-ref sc1 3))) (let ((e-17 (vector-ref sc1 4))) (let ((sc2 e-16)) (case (vector-ref sc2 0) ((2) (let ((e-19 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--10100-9692-mkDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 1 e-15 arg-14) arg-15 e-12 (vector 1 (vector 1 e-11) arg-17) arg-18 e-17) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 3 e-14 e-15 (vector 0 e-19 (vector 1 ) (vector 10 e-14 1)) e-5))))))))))(else (let ((sc2 arg-19)) (case (vector-ref sc2 0) ((3) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (let ((e-5 (vector-ref sc2 4))) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((e-9 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--10100-9692-mkDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 1 e-3 arg-14) arg-15 arg-16 (vector 1 (vector 0 ) arg-17) arg-18 e-5) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((b (vector 1 e-7 e-8 e-9))) ((Unify-Core-case--10125-10996 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3 e-5 e-8 e-9 e-7 b e-2 arg-18 arg-17 arg-16 e-6 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 )))) eta-0))))))))))))(else (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (Unify-Core-case--10125-11126 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 arg-18 arg-17 (Unify-Core-n--10100-9691-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0)))))))))))))(else (let ((sc2 arg-16)) (case (vector-ref sc2 0) ((0) (Unify-Core-case--10125-11126 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 arg-18 arg-17 (Unify-Core-n--10100-9691-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0))))))))))))))))(else (let ((sc1 arg-19)) (case (vector-ref sc1 0) ((3) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 4))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--10100-9692-mkDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 1 e-3 arg-14) arg-15 arg-16 (vector 1 (vector 0 ) arg-17) arg-18 e-5) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((b (vector 1 e-7 e-8 e-9))) ((Unify-Core-case--10125-10996 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3 e-5 e-8 e-9 e-7 b e-2 arg-18 arg-17 arg-16 e-6 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 )))) eta-0))))))))))))(else (let ((sc2 arg-16)) (case (vector-ref sc2 0) ((0) (Unify-Core-case--10125-11126 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 arg-18 arg-17 (Unify-Core-n--10100-9691-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0)))))))))))))(else (let ((sc1 arg-16)) (case (vector-ref sc1 0) ((0) (Unify-Core-case--10125-11126 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 arg-18 arg-17 (Unify-Core-n--10100-9691-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0))))))))))))))(else (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--10100-9692-mkDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 1 e-3 arg-14) arg-15 arg-16 (vector 1 (vector 0 ) arg-17) arg-18 e-5) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((b (vector 1 e-7 e-8 e-9))) ((Unify-Core-case--10125-10996 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3 e-5 e-8 e-9 e-7 b e-2 arg-18 arg-17 arg-16 e-6 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 )))) eta-0))))))))))))(else (let ((sc1 arg-16)) (case (vector-ref sc1 0) ((0) (Unify-Core-case--10125-11126 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 arg-18 arg-17 (Unify-Core-n--10100-9691-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0)))))))))))))(else (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (Unify-Core-case--10125-11126 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 arg-18 arg-17 (Unify-Core-n--10100-9691-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0))))))))))))) +(define Unify-Core-n--12689-15296-localsIn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-15))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 e-5 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Unify-Core-n--12689-15296-localsIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (+ 1 e-10))))))))(else ((Unify-Core-n--12689-15296-localsIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3) eta-0))))))(else ((Unify-Core-n--12689-15296-localsIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3) eta-0)))))))))))))))))))))) +(define Unify-Core-n--10100-9689-isSimple (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) 0) ((1) 0) ((2) 0) ((3) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 e-18)) (case (vector-ref sc1 0) ((0) (Unify-Core-n--10100-9689-isSimple arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-19))(else 1)))))) ((9) 0) ((11) 0)(else 1))))) +(define Unify-Core-n--12668-13001-isPatName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((3) 0)(else 1))))) +(define Unify-Core-n--12701-17213-isDelay (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((5) 0)(else 1))))) +(define Unify-Core-n--8689-8435-inArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--8717-8449 arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 e-2 e-3 arg-8 (Prelude-C-61C-61_Eq__Integer arg-8 e-2))))))))) +(define Unify-Core-n--9535-9160-failOnStrongRigid (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (Unify-Core-case--9547-9178 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 e-3 e-4 e-2 arg-8 arg-7 (Prelude-C-38C-38 arg-7 (lambda () (Name-Core-C-61C-61_Eq__Name e-2 arg-2)))))))))(else (Unify-Core-case--9547-9239 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-8 arg-7 (TT-Core-getFnArgs 'erased arg-9))))))) +(define Unify-Core-n--20454-19039-definedN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((2) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-4 (let ((sc3 e-5)) (let ((e-30 (vector-ref sc3 1))) e-30))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((n (vector 0 e-0 (vector 2 e-2 e-3)))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-4))) ((Unify-Core-case--20485-19087 arg-0 arg-1 arg-2 arg-3 e-0 e-2 e-3 n e-5 e-4 _-0 (let ((sc5 e-4)) (let ((e-17 (vector-ref sc5 18))) e-17))) eta-0))))(else (vector 1 1)))))))))))))))))))(else (lambda (eta-0) (vector 1 0))))))))(else (lambda (eta-0) (vector 1 0))))))) +(define Unify-Core-n--22873-21168-constraintToHole (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-lookupDefExact (vector 9 e-2) (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((8) (Context-Core-updateDef arg-1 (vector 9 e-2) (lambda (eta-1) (vector 1 (vector 7 0 (Context-Core-holeInit 1)))) eta-0)) ((9) (Context-Core-updateDef arg-1 (vector 9 e-2) (lambda (eta-1) (vector 1 (vector 7 0 (Context-Core-holeInit 1)))) eta-0))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))))))))))))) +(define Unify-Core-n--8009-7789-checkDefined (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-6 (let ((sc2 arg-10)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (vector 1 (vector 0 )))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-6 e-6) eta-0))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Unify-Core-n--23306-21555-checkConstraint (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 5))) (let ((e-13 (vector-ref sc2 6))) (let ((e-14 (vector-ref sc2 7))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF e-8 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Dot") e-12 e-14 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 (Normalise-Core-logTermNF e-8 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () " =") e-12 e-13 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc5 1))) (UnifyState-Core-handleUnify 'erased arg-0 arg-1 (lambda (eta-1) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc6 1))) (let ((act-28 (Context-Core-lookupDefExact e-2 (let ((sc7 e-17)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-1))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc7 1))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((act-29 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-2)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-2))))))))))) e-8 arg-0 arg-1) (Unify-Core-inMatch)) e-9) e-12) e-13) e-14) eta-1))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc9 1))) (let ((act-30 (let ((act-30 (unbox arg-0))) (vector 1 act-30)))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc10 1))) (let ((act-31 (Context-Core-lookupDefExact e-2 (let ((sc11 e-20)) (let ((e-0 (vector-ref sc11 1))) e-0)) eta-1))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc11 1))) (let ((sc12 e-21)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((hBefore (let ((sc13 e-1)) (case (vector-ref sc13 0) ((7) 0)(else 1))))) (let ((h (let ((sc13 e-4)) (case (vector-ref sc13 0) ((7) 0)(else 1))))) (let ((act-32 ((Unify-Core-checkArgsSame arg-1 arg-0 (let ((sc13 e-19)) (let ((e-23 (vector-ref sc13 3))) e-23))) eta-1))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-22 (vector-ref sc13 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc13 1))) (let ((sc14 (Prelude-C-124C-124 (Prelude-not (List-Data-isNil 'erased (let ((sc15 e-19)) (let ((e-0 (vector-ref sc15 1))) e-0)))) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 hBefore (lambda () (Prelude-not h))) (lambda () e-22)))))) (cond ((equal? sc14 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Dot pattern match fail") eta-1)) (else (vector 1 (vector 0 )))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-9 e-2) eta-1))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-9 e-2) eta-1))))))))))))))) (lambda (err) (let ((sc6 err)) (case (vector-ref sc6 0) ((54) (lambda (eta-1) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc7 1))) (let ((act-28 (Context-Core-lookupTyExact e-2 (let ((sc8 e-17)) (let ((e-41 (vector-ref sc8 1))) e-41)) eta-1))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc8 1))) (let ((sc9 e-18)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((act-29 (Normalise-Core-logTermNF (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Dot type") (vector 0 ) e-1 eta-1))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (set-box! arg-1 (let ((sc11 e-16)) (let ((e-28 (vector-ref sc11 1))) (let ((e-27 (vector-ref sc11 2))) (let ((e-26 (vector-ref sc11 3))) (let ((e-25 (vector-ref sc11 4))) (let ((e-4 (vector-ref sc11 5))) (let ((e-23 (vector-ref sc11 7))) (let ((e-22 (vector-ref sc11 8))) (let ((e-21 (vector-ref sc11 9))) (let ((e-20 (vector-ref sc11 10))) (vector 0 e-28 e-27 e-26 e-25 e-4 (vector 0 ) e-23 e-22 e-21 e-20)))))))))))))) (vector 1 act-30)))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-31 (Normalise-Core-normaliseHoles e-8 e-17 e-12 e-13 eta-1))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc12 1))) (let ((act-32 (Normalise-Core-normaliseHoles e-8 e-17 e-12 e-14 eta-1))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc13 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 44 e-8 e-9 e-12 e-6 e-21 e-22) eta-1))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-9 e-2) eta-1))))))))))))))))(else (lambda (eta-1) (let ((act-27 (let ((act-27 (set-box! arg-1 (let ((sc6 e-16)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-23 (vector-ref sc6 3))) (let ((e-22 (vector-ref sc6 4))) (let ((e-4 (vector-ref sc6 5))) (let ((e-20 (vector-ref sc6 7))) (let ((e-19 (vector-ref sc6 8))) (let ((e-18 (vector-ref sc6 9))) (let ((e-17 (vector-ref sc6 10))) (vector 0 e-0 e-1 e-23 e-22 e-4 (vector 0 ) e-20 e-19 e-18 e-17)))))))))))))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))) eta-0)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Unify-Core-n--23001-21299-anySame (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupDefExact (vector 9 e-2) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((e-4 (vector-ref sc4 3))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((1) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 e-12)) (cond ((equal? sc7 0) (let ((act-26 (Normalise-Core-convert_Convert__Term (vector 0 ) e-5 (vector 0 ) arg-4 e-11 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (cond ((equal? sc9 0) (vector 1 0)) (else ((Unify-Core-n--23001-21299-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))))))))))(else ((Unify-Core-n--23001-21299-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))))(else ((Unify-Core-n--23001-21299-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))(else ((Unify-Core-n--23001-21299-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))))(else ((Unify-Core-n--23001-21299-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))))))(else ((Unify-Core-n--23001-21299-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))))))))))))))))))) +(define Unify-Core-n--8879-8593-anyFirst (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) 0)(else (Unify-Core-n--8879-8593-anyFirst arg-0 arg-1 arg-2 e-3))))))))))) +(define Unify-Core-n--22825-21125-afterStart (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (Prelude-C-62C-61_Ord__Int e-2 arg-2))))) (define Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 0 ) (Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 'erased arg-1 arg-2 e-5))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 1 (TT-Core-weaken_Weaken__Var arg-1 arg-2 e-8)) (Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 'erased arg-1 arg-2 e-5))))))))))))) (define Unify-Core-weakenNs_Weaken__C-40IVarsC-32C-36vsC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 'erased e-2 (List-Prelude-C-43C-43 'erased e-3 arg-1) (Unify-Core-weakenNs_Weaken__C-40IVarsC-32C-36vsC-41 'erased arg-1 e-3 arg-3))))))))) -(define Unify-Core-unifyWithLazyD_Unify__Term (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Normalise-Core-convert_Convert__Term arg-0 e-6 arg-5 arg-6 arg-7 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Skipped unification (equal already): " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-6) (Strings-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-7))))) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (Unify-Core-success))))))) (else (let ((act-27 ((Normalise-Core-nf arg-0 e-5 arg-5 arg-6) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Normalise-Core-nf arg-0 e-5 arg-5 arg-7) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) e-8) e-9) ext-0))))))))))))))))))))))))))))))) -(define Unify-Core-unifyWithLazyD_Unify__NF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((5) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((5) (let ((e-11 (vector-ref sc1 3))) ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-3)) arg-4) arg-5) e-7) e-11)))(else (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-3)) arg-4) arg-5) e-7) arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (let ((sc2 e-8)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (vector 0 e-0 e-1 e-2 (vector 1 e-6)))))))))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((5) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-3)) arg-4) arg-5) arg-6) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((e-6 (vector-ref sc2 3))) (vector 0 e-0 e-7 e-6 (vector 2 e-2))))))))))))))))(else ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) arg-6) arg-7))))))))) +(define Unify-Core-unifyWithLazyD_Unify__Term (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Normalise-Core-convert_Convert__Term arg-0 e-6 arg-5 arg-6 arg-7 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Skipped unification (equal already): " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-6) (Strings-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-7))))) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (Unify-Core-success))))))) (else (let ((act-27 ((Normalise-Core-nf arg-0 e-5 arg-5 arg-6) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Normalise-Core-nf arg-0 e-5 arg-5 arg-7) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) e-8) e-9) ext-0))))))))))))))))))))))))))))))) +(define Unify-Core-unifyWithLazyD_Unify__NF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((5) (let ((e-11 (vector-ref sc1 3))) ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-3)) arg-4) arg-5) e-7) e-11)))(else (let ((x (vector 5 e-5 e-6 e-7))) (Unify-Core-case--18969-18173 arg-0 arg-1 arg-2 e-5 arg-7 e-7 e-6 x arg-5 arg-4 arg-3 (Prelude-C-38C-38 (Unify-Core-isHoleApp 'erased arg-7) (lambda () (Prelude-not (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 3))) e-2)) (vector 2 ))))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((5) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-3)) arg-4) arg-5) arg-6) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((e-6 (vector-ref sc2 3))) (vector 0 e-0 e-7 e-6 (vector 2 e-2))))))))))))))))(else ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) arg-6) arg-7))))))))) (define Unify-Core-unifyWithLazyD_Unify__Closure (lambda (arg-0 ext-7 ext-1 ext-2 ext-3 ext-4 ext-5 ext-6 ext-0) (Unify-Core-unifyD_Unify__Closure arg-0 ext-7 ext-1 ext-2 ext-3 ext-4 ext-5 ext-6 ext-0))) -(define Unify-Core-unifyD_Unify__Term (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Normalise-Core-convert_Convert__Term arg-0 e-6 arg-5 arg-6 arg-7 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Skipped unification (equal already): " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-6) (Strings-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-7))))) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (Unify-Core-success))))))) (else (let ((act-27 ((Normalise-Core-nf arg-0 e-5 arg-5 arg-6) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Normalise-Core-nf arg-0 e-5 arg-5 arg-7) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) e-8) e-9) ext-0))))))))))))))))))))))))))))))) -(define Unify-Core-unifyD_Unify__NF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (let ((e-22 (vector-ref sc1 4))) (Unify-Core-unifyBothBinders arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 e-10 e-11 e-12 e-13 e-19 e-20 e-21 e-22))))))(else (let ((sc1 e-12)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 1))) (let ((e-16 (vector-ref sc1 2))) (let ((e-17 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "EtaR") arg-5 arg-6 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...with") arg-5 arg-7 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((tmx (vector 0 e-10 e-11 (vector 0 e-15 e-16 e-17) e-13))) ((Unify-Core-case--18822-17463 arg-0 arg-1 arg-2 arg-7 e-17 e-16 e-15 e-13 e-11 e-10 tmx arg-5 arg-4 arg-3 e-5 e-6 e-7 (Unify-Core-isHoleApp 'erased arg-7)) eta-0))))))))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "EtaL") arg-5 arg-6 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...with") arg-5 arg-7 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-14 (vector-ref sc5 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc5 1))) (let ((tmy (vector 0 e-1 e-2 (vector 0 e-6 e-7 e-8) e-4))) ((Unify-Core-case--18822-17737 arg-0 arg-1 arg-2 e-8 e-7 e-6 e-4 e-2 e-1 tmy arg-6 arg-5 arg-4 arg-3 e-5 e-9 e-14 (Unify-Core-isHoleApp 'erased arg-6)) eta-0))))))))))))))))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7)))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7)))))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "EtaL") arg-5 arg-6 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...with") arg-5 arg-7 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (let ((tmy (vector 0 e-1 e-2 (vector 0 e-6 e-7 e-8) e-4))) ((Unify-Core-case--18822-17737 arg-0 arg-1 arg-2 e-8 e-7 e-6 e-4 e-2 e-1 tmy arg-6 arg-5 arg-4 arg-3 e-5 e-9 e-10 (Unify-Core-isHoleApp 'erased arg-6)) eta-0))))))))))))))))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7)))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7))))))))) -(define Unify-Core-unifyD_Unify__Closure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Normalise-Core-convert_Convert__Closure arg-0 e-6 arg-5 arg-6 arg-7 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (vector 1 (Unify-Core-success))) (else (let ((act-27 ((Normalise-Core-evalClosure arg-0 e-5 arg-6) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Normalise-Core-evalClosure arg-0 e-5 arg-7) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) e-8) e-9) ext-0))))))))))))))))))))))))))))))) +(define Unify-Core-unifyD_Unify__Term (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Normalise-Core-convert_Convert__Term arg-0 e-6 arg-5 arg-6 arg-7 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Skipped unification (equal already): " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-6) (Strings-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-7))))) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (Unify-Core-success))))))) (else (let ((act-27 ((Normalise-Core-nf arg-0 e-5 arg-5 arg-6) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Normalise-Core-nf arg-0 e-5 arg-5 arg-7) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) e-8) e-9) ext-0))))))))))))))))))))))))))))))) +(define Unify-Core-unifyD_Unify__NF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (let ((e-22 (vector-ref sc1 4))) (Unify-Core-unifyBothBinders arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 e-10 e-11 e-12 e-13 e-19 e-20 e-21 e-22))))))(else (let ((sc1 e-12)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 1))) (let ((e-16 (vector-ref sc1 2))) (let ((e-17 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "EtaR") arg-5 arg-6 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...with") arg-5 arg-7 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((tmx (vector 0 e-10 e-11 (vector 0 e-15 e-16 e-17) e-13))) ((Unify-Core-case--18965-17615 arg-0 arg-1 arg-2 arg-7 e-17 e-16 e-15 e-13 e-11 e-10 tmx arg-5 arg-4 arg-3 e-5 e-6 e-7 (Unify-Core-isHoleApp 'erased arg-7)) eta-0))))))))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "EtaL") arg-5 arg-6 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...with") arg-5 arg-7 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-14 (vector-ref sc5 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc5 1))) (let ((tmy (vector 0 e-1 e-2 (vector 0 e-6 e-7 e-8) e-4))) ((Unify-Core-case--18965-17889 arg-0 arg-1 arg-2 e-8 e-7 e-6 e-4 e-2 e-1 tmy arg-6 arg-5 arg-4 arg-3 e-5 e-9 e-14 (Unify-Core-isHoleApp 'erased arg-6)) eta-0))))))))))))))))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7)))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7)))))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "EtaL") arg-5 arg-6 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...with") arg-5 arg-7 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (let ((tmy (vector 0 e-1 e-2 (vector 0 e-6 e-7 e-8) e-4))) ((Unify-Core-case--18965-17889 arg-0 arg-1 arg-2 e-8 e-7 e-6 e-4 e-2 e-1 tmy arg-6 arg-5 arg-4 arg-3 e-5 e-9 e-10 (Unify-Core-isHoleApp 'erased arg-6)) eta-0))))))))))))))))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7)))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7))))))))) +(define Unify-Core-unifyD_Unify__Closure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Normalise-Core-convert_Convert__Closure arg-0 e-6 arg-5 arg-6 arg-7 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (vector 1 (Unify-Core-success))) (else (let ((act-27 ((Normalise-Core-evalClosure arg-0 e-5 arg-6) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Normalise-Core-evalClosure arg-0 e-5 arg-7) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) e-8) e-9) ext-0))))))))))))))))))))))))))))))) (define Unify-Core-show_Show__UnifyMode (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "InLHS") ((1) "InTerm") ((2) "InMatch") (else "InSearch"))))) (define Unify-Core-show_Show__AddLazy (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "NoLazy") ((1) "AddForce") (else "AddDelay"))))) -(define Unify-Core-__Impl_Weaken_C-40IVarsC-32C-36vsC-41 (lambda (arg-0) (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 'erased n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (Unify-Core-weakenNs_Weaken__C-40IVarsC-32C-36vsC-41 'erased vars ns arg-3271))))))) -(define Unify-Core-__Impl_Unify_Term (lambda () (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-0)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-0))))))))))))) -(define Unify-Core-__Impl_Unify_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))))) -(define Unify-Core-__Impl_Unify_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-0)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-0))))))))))))) -(define Unify-Core-__Impl_Eq_UnifyMode (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Unify-Core-C-61C-61_Eq__UnifyMode arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Unify-Core-C-47C-61_Eq__UnifyMode arg-430 arg-431)))))) +(define Unify-Core-__Impl_Weaken_C-40IVarsC-32C-36vsC-41 (lambda (arg-0) (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3275) (Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 'erased n vars arg-3275)))) (lambda (vars) (lambda (ns) (lambda (arg-3279) (Unify-Core-weakenNs_Weaken__C-40IVarsC-32C-36vsC-41 'erased vars ns arg-3279))))))) +(define Unify-Core-__Impl_Unify_Term (lambda () (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-0)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-0))))))))))))) +(define Unify-Core-__Impl_Unify_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))))) +(define Unify-Core-__Impl_Unify_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-0)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-0))))))))))))) +(define Unify-Core-__Impl_Eq_UnifyMode (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Unify-Core-C-61C-61_Eq__UnifyMode arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Unify-Core-C-47C-61_Eq__UnifyMode arg-438 arg-439)))))) (define Unify-Core-C-61C-61_Eq__UnifyMode (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0)(else 1)))) ((3) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) 0)(else 1))))(else 1))))) (define Unify-Core-C-61C-61_Eq__SolveMode (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((3) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) 0)(else 1))))(else 1))))) (define Unify-Core-C-47C-61_Eq__UnifyMode (lambda (arg-0 arg-1) (Prelude-not (Unify-Core-C-61C-61_Eq__UnifyMode arg-0 arg-1)))) (define Unify-Core-unionAll (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) 1 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) e-2)(else (Unify-Core-union e-2 (Unify-Core-unionAll e-3)))))))))))) -(define Unify-Core-union (lambda (arg-0 arg-1) (vector 0 (List-Data-union 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))) (Prelude-C-124C-124 (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)) (lambda () (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (List-Prelude-C-43C-43 'erased (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))) (vector 0 )))) +(define Unify-Core-union (lambda (arg-0 arg-1) (vector 0 (List-Data-union 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))) (Prelude-C-124C-124 (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)) (lambda () (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (List-Prelude-C-43C-43 'erased (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))) (vector 0 )))) (define Unify-Core-unifyWithLazyD (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-3) (lambda (arg-4) (lambda (arg-5) (lambda (arg-6) (lambda (arg-7) (lambda (arg-8) (lambda (arg-9) ((((((((e-2 arg-1) arg-3) arg-4) arg-5) arg-6) arg-7) arg-8) arg-9)))))))))))) (define Unify-Core-unifyWithLazy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-5) (lambda (arg-6) (lambda (arg-7) (lambda (arg-8) (lambda (arg-9) ((((((((e-2 arg-2) arg-3) arg-4) arg-5) arg-6) arg-7) arg-8) arg-9)))))))))) -(define Unify-Core-unifyNoEta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (let ((e-18 (vector-ref sc0 4))) (let ((e-19 (vector-ref sc0 5))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((2) (let ((e-45 (vector-ref sc1 1))) (let ((e-46 (vector-ref sc1 2))) (let ((e-47 (vector-ref sc1 3))) (let ((e-48 (vector-ref sc1 4))) (let ((e-49 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Unify-Core-case--12579-16666 arg-2 e-19 e-18 e-17 e-16 e-15 e-49 e-48 e-47 e-46 e-45 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-61C-61_Eq__Int e-17 e-47)) eta-0)))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (Unify-Core-case--12579-16974 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq") eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12579-17061-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12579-17061-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-7))) arg-4 arg-3 arg-5 arg-6 arg-7 eta-0)))))))))))))))))))))))))))))) ((3) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (let ((e-25 (vector-ref sc0 5))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((3) (let ((e-51 (vector-ref sc1 1))) (let ((e-52 (vector-ref sc1 2))) (let ((e-53 (vector-ref sc1 3))) (let ((e-54 (vector-ref sc1 4))) (let ((e-55 (vector-ref sc1 5))) (Unify-Core-case--12579-16771 arg-2 e-25 e-24 e-23 e-22 e-21 e-55 e-54 e-53 e-52 e-51 arg-5 arg-4 arg-3 arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-22 e-52))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (Unify-Core-case--12579-16974 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq") eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12579-17061-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12579-17061-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-7))) arg-4 arg-3 arg-5 arg-6 arg-7 eta-0)))))))))))))))))))))))))))))) ((5) (let ((e-29 (vector-ref sc0 3))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((5) (let ((e-59 (vector-ref sc1 3))) ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-2 arg-0 arg-1) (Unify-Core-lower arg-3)) arg-4) arg-5) e-29) e-59)))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (Unify-Core-case--12579-16974 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq") eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12579-17061-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12579-17061-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-7))) arg-4 arg-3 arg-5 arg-6 arg-7 eta-0)))))))))))))))))))))))))) ((6) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((6) (let ((e-63 (vector-ref sc1 3))) (let ((e-64 (vector-ref sc1 4))) (Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-0)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6775 arg-6776 arg-6778 eta-0)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6780 arg-6782 arg-6783 arg-6785 eta-0))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 (vector 1 e-33 (vector 1 e-34 (vector 0 ))) (vector 1 e-63 (vector 1 e-64 (vector 0 )))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (Unify-Core-case--12579-16974 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq") eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12579-17061-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12579-17061-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-7))) arg-4 arg-3 arg-5 arg-6 arg-7 eta-0))))))))))))))))))))))))))) ((7) (let ((e-38 (vector-ref sc0 3))) (let ((e-39 (vector-ref sc0 4))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((7) (let ((e-68 (vector-ref sc1 3))) (let ((e-69 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-2 arg-0 arg-1) (Unify-Core-lower arg-3)) arg-4) arg-5) e-38) e-68) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6775 arg-6776 arg-6778 eta-1)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6780 arg-6782 arg-6783 arg-6785 eta-1))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 e-39 e-69) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Unify-Core-union e-5 e-6))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (Unify-Core-case--12579-16974 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq") eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12579-17061-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12579-17061-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-7))) arg-4 arg-3 arg-5 arg-6 arg-7 eta-0))))))))))))))))))))))))))) ((1) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-71 (vector-ref sc1 1))) (let ((e-72 (vector-ref sc1 2))) (let ((e-73 (vector-ref sc1 3))) (Unify-Core-unifyBothApps arg-0 arg-1 arg-2 (Unify-Core-lower arg-3) arg-4 arg-5 e-41 e-42 e-43 e-71 e-72 e-73)))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 (Unify-Core-lower arg-3) arg-4 arg-5 e-41 e-42 e-43 arg-7))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (Unify-Core-case--12579-16974 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc0 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((4) (let ((e-4 (vector-ref sc0 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq") eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12579-17061-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12579-17061-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-7))) arg-4 arg-3 arg-5 arg-6 arg-7 eta-0)))))))))))))))))))))))))) -(define Unify-Core-unifyInvertible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-lookupTyExact (vector 9 arg-8) (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-nf arg-2 e-5 arg-6 (TT-Core-embed 'erased 'erased e-1)) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((Unify-Core-getArgTypes 'erased e-5 e-7 (List-Prelude-C-43C-43 'erased arg-9 arg-10)) ext-0)))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (ty) (lambda (eta-0) (let ((act-27 ((Normalise-Core-nf arg-2 e-5 arg-6 (TT-Core-embed 'erased 'erased ty)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((Unify-Core-getArgTypes 'erased e-5 e-8 arg-13) eta-0))))))))) arg-11) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Unify-Core-headsConvert arg-2 arg-0 arg-6 e-7 e-8) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-0 (vector 1 e-1))) (let ((sc6 e-9)) (cond ((equal? sc6 0) (let ((bind-0 0)) ((Unify-Core-case--13085-12372 arg-2 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 e-1 _-0 e-7 e-8 bind-0 (vector 0 (List-Data-reverse 'erased arg-10) (List-Data-reverse 'erased arg-13))) ext-0))) (else (Unify-Core-postpone arg-2 arg-0 arg-1 0 arg-5 arg-4 "Postponing hole application [3]" arg-6 (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) arg-10) (arg-12 arg-13) ext-0)))))))))))))))))))))) (else (Unify-Core-ufail 'erased arg-5 (Strings-Prelude-C-43C-43 "No such metavariable " (Name-Core-show_Show__Name arg-7)) ext-0)))))))))))))))) +(define Unify-Core-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--12701-16818 arg-2 e-19 e-18 e-17 e-16 e-15 e-49 e-48 e-47 e-46 e-45 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-61C-61_Eq__Int e-17 e-47)) eta-0)))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (Unify-Core-case--12701-17126 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq") eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12701-17213-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12701-17213-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-7))) arg-4 arg-3 arg-5 arg-6 arg-7 eta-0)))))))))))))))))))))))))))))) ((3) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (let ((e-25 (vector-ref sc0 5))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((3) (let ((e-51 (vector-ref sc1 1))) (let ((e-52 (vector-ref sc1 2))) (let ((e-53 (vector-ref sc1 3))) (let ((e-54 (vector-ref sc1 4))) (let ((e-55 (vector-ref sc1 5))) (Unify-Core-case--12701-16923 arg-2 e-25 e-24 e-23 e-22 e-21 e-55 e-54 e-53 e-52 e-51 arg-5 arg-4 arg-3 arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-22 e-52))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (Unify-Core-case--12701-17126 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq") eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12701-17213-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12701-17213-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-7))) arg-4 arg-3 arg-5 arg-6 arg-7 eta-0)))))))))))))))))))))))))))))) ((5) (let ((e-29 (vector-ref sc0 3))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((5) (let ((e-59 (vector-ref sc1 3))) ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-2 arg-0 arg-1) (Unify-Core-lower arg-3)) arg-4) arg-5) e-29) e-59)))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (Unify-Core-case--12701-17126 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq") eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12701-17213-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12701-17213-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-7))) arg-4 arg-3 arg-5 arg-6 arg-7 eta-0)))))))))))))))))))))))))) ((6) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((6) (let ((e-63 (vector-ref sc1 3))) (let ((e-64 (vector-ref sc1 4))) (Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-0)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6783) (lambda (arg-6784) (lambda (arg-6786) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6783 arg-6784 arg-6786 eta-0)))))) (lambda (vars) (lambda (arg-6788) (lambda (arg-6790) (lambda (arg-6791) (lambda (arg-6793) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6788 arg-6790 arg-6791 arg-6793 eta-0))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 (vector 1 e-33 (vector 1 e-34 (vector 0 ))) (vector 1 e-63 (vector 1 e-64 (vector 0 )))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (Unify-Core-case--12701-17126 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq") eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12701-17213-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12701-17213-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-7))) arg-4 arg-3 arg-5 arg-6 arg-7 eta-0))))))))))))))))))))))))))) ((7) (let ((e-38 (vector-ref sc0 3))) (let ((e-39 (vector-ref sc0 4))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((7) (let ((e-68 (vector-ref sc1 3))) (let ((e-69 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-2 arg-0 arg-1) (Unify-Core-lower arg-3)) arg-4) arg-5) e-38) e-68) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6783) (lambda (arg-6784) (lambda (arg-6786) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6783 arg-6784 arg-6786 eta-1)))))) (lambda (vars) (lambda (arg-6788) (lambda (arg-6790) (lambda (arg-6791) (lambda (arg-6793) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6788 arg-6790 arg-6791 arg-6793 eta-1))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 e-39 e-69) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Unify-Core-union e-5 e-6))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (Unify-Core-case--12701-17126 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq") eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12701-17213-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12701-17213-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-7))) arg-4 arg-3 arg-5 arg-6 arg-7 eta-0))))))))))))))))))))))))))) ((1) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-71 (vector-ref sc1 1))) (let ((e-72 (vector-ref sc1 2))) (let ((e-73 (vector-ref sc1 3))) (Unify-Core-unifyBothApps arg-0 arg-1 arg-2 (Unify-Core-lower arg-3) arg-4 arg-5 e-41 e-42 e-43 e-71 e-72 e-73)))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 (Unify-Core-lower arg-3) arg-4 arg-5 e-41 e-42 e-43 arg-7))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (Unify-Core-case--12701-17126 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc0 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((4) (let ((e-4 (vector-ref sc0 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq") eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12701-17213-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12701-17213-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-7))) arg-4 arg-3 arg-5 arg-6 arg-7 eta-0)))))))))))))))))))))))))) +(define Unify-Core-unifyInvertible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-lookupTyExact (vector 9 arg-8) (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-nf arg-2 e-5 arg-6 (TT-Core-embed 'erased 'erased e-1)) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((Unify-Core-getArgTypes 'erased e-5 e-7 (List-Prelude-C-43C-43 'erased arg-9 arg-10)) ext-0)))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (ty) (lambda (eta-0) (let ((act-27 ((Normalise-Core-nf arg-2 e-5 arg-6 (TT-Core-embed 'erased 'erased ty)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((Unify-Core-getArgTypes 'erased e-5 e-8 arg-13) eta-0))))))))) arg-11) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Unify-Core-headsConvert arg-2 arg-0 arg-1 arg-4 arg-5 arg-6 e-7 e-8) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-0 (vector 1 e-1))) (let ((sc6 e-9)) (cond ((equal? sc6 0) (let ((bind-0 0)) ((Unify-Core-case--13228-12524 arg-2 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 e-1 _-0 e-7 e-8 bind-0 (vector 0 (List-Data-reverse 'erased arg-10) (List-Data-reverse 'erased arg-13))) ext-0))) (else (Unify-Core-postpone arg-2 arg-0 arg-1 0 arg-5 arg-4 "Postponing hole application [3]" arg-6 (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) arg-10) (arg-12 arg-13) ext-0)))))))))))))))))))))) (else (Unify-Core-ufail 'erased arg-5 (Strings-Prelude-C-43C-43 "No such metavariable " (Name-Core-show_Show__Name arg-7)) ext-0)))))))))))))))) (define Unify-Core-unifyIfEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 arg-7 arg-8 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (vector 1 (Unify-Core-success))) (else (let ((sc3 arg-3)) (cond ((equal? sc3 0) (Unify-Core-postpone arg-2 arg-0 arg-1 0 arg-4 arg-5 (Strings-Prelude-C-43C-43 "Postponing unifyIfEq " (Prelude-show_Show__Bool (let ((sc4 arg-5)) (let ((e-0 (vector-ref sc4 1))) e-0)))) arg-6 arg-7 arg-8 ext-0)) (else (Unify-Core-convertError 'erased arg-2 arg-0 arg-4 arg-6 arg-7 arg-8 ext-0))))))))))))))))))) -(define Unify-Core-unifyHoleApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact e-2 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (Unify-Core-unifyInvertible arg-0 arg-1 arg-2 arg-3 (Unify-Core-lower arg-4) arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-7 (lambda (eta-1) (vector 3 e-1 e-2 e-3 e-4 eta-1)) e-5 eta-0)))))))))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact e-8 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Unify-Core-unifyInvertible arg-0 arg-1 arg-2 arg-3 (Unify-Core-lower arg-4) arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-6 (lambda (eta-1) (vector 3 e-7 e-8 e-9 e-10 eta-1)) e-11 eta-0)))))))))))))))))) ((1) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((sc1 e-14)) (case (vector-ref sc1 0) ((0) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (lambda (eta-0) (Unify-Core-unifyInvertible arg-0 arg-1 arg-2 arg-3 (Unify-Core-lower arg-4) arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 0 ) (lambda (eta-1) (vector 1 e-13 (vector 0 e-18 e-19) eta-1)) e-15 eta-0))))) ((2) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 9 e-23) (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((tm (vector 1 e-13 (vector 2 e-22 e-23 e-24) e-15))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((inv (Prelude-C-124C-124 (Unify-Core-n--12546-12849-isPatName arg-2 e-24 e-23 e-22 e-15 e-13 tm arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-22) (lambda () (let ((sc5 e-1)) (let ((e-25 (vector-ref sc5 15))) e-25)))))) (let ((sc5 inv)) (cond ((equal? sc5 0) (Unify-Core-unifyInvertible arg-0 arg-1 arg-2 arg-3 (Unify-Core-lower arg-4) arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 0 ) (lambda (eta-1) (vector 1 e-13 (vector 2 e-22 e-23 e-24) eta-1)) e-15 eta-0)) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 arg-3 arg-5 arg-4 "Postponing hole application" arg-6 (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) arg-10) tm) eta-0))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-13 arg-7) eta-0))))))))))))))))))))(else (Unify-Core-postponeS arg-2 arg-0 arg-1 0 arg-3 arg-5 arg-4 "Postponing hole application" arg-6 (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) arg-10) arg-11))))))))(else (Unify-Core-postponeS arg-2 arg-0 arg-1 0 arg-3 arg-5 arg-4 "Postponing hole application" arg-6 (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) arg-10) arg-11)))))) -(define Unify-Core-unifyHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((args (List-Prelude-C-43C-43 'erased arg-10 arg-11))) (let ((act-26 (Context-Core-logC arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-0) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalArg arg-2 e-6 eta-1)) args) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (arg-13) (lambda (eta-1) (Normalise-Core-quote_Quote__NF arg-2 e-6 arg-6 arg-13 eta-1))) e-7) eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-2 e-6 arg-6 arg-12 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (Strings-Prelude-C-43C-43 "Unifying: " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-2 d x)))) e-8) (Strings-Prelude-C-43C-43 " with " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-9))))))))))))))))))))))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Unify-Core-patternEnv arg-0 arg-1 arg-2 arg-6 args ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((act-28 ((Context-Core-lookupCtxtExact (vector 9 arg-9) (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0))) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((bind-0 (vector 0 ))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((_-0 (vector 1 e-1))) ((Unify-Core-case--14458-13529 arg-2 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 e-6 args e-7 bind-0 e-1 _-0 (let ((sc7 e-1)) (let ((e-17 (vector-ref sc7 18))) e-17))) ext-0))))(else ((Unify-Core-postponePatVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12) ext-0))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (let ((sc5 e-2)) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((act-28 ((Context-Core-lookupCtxtExact (vector 9 arg-9) (let ((sc7 e-5)) (let ((e-0 (vector-ref sc7 1))) e-0))) ext-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc7 1))) (let ((bind-0 (vector 1 (vector 0 e-10 (vector 0 e-12 e-11))))) (let ((sc8 e-13)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((_-0 (vector 1 e-1))) ((Unify-Core-case--14844-13860 arg-2 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 e-6 args e-7 e-10 e-12 e-11 bind-0 e-1 _-0 (let ((sc9 e-1)) (let ((e-17 (vector-ref sc9 18))) e-17))) ext-0))))(else ((Unify-Core-postponePatVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12) ext-0))))))))))))))))))))))))))))))))))))))))))) +(define Unify-Core-unifyHoleApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact e-2 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (Unify-Core-unifyInvertible arg-0 arg-1 arg-2 arg-3 (Unify-Core-lower arg-4) arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-7 (lambda (eta-1) (vector 3 e-1 e-2 e-3 e-4 eta-1)) e-5 eta-0)))))))))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact e-8 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Unify-Core-unifyInvertible arg-0 arg-1 arg-2 arg-3 (Unify-Core-lower arg-4) arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-6 (lambda (eta-1) (vector 3 e-7 e-8 e-9 e-10 eta-1)) e-11 eta-0)))))))))))))))))) ((1) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((sc1 e-14)) (case (vector-ref sc1 0) ((0) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (lambda (eta-0) (Unify-Core-unifyInvertible arg-0 arg-1 arg-2 arg-3 (Unify-Core-lower arg-4) arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 0 ) (lambda (eta-1) (vector 1 e-13 (vector 0 e-18 e-19) eta-1)) e-15 eta-0))))) ((2) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 9 e-23) (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((tm (vector 1 e-13 (vector 2 e-22 e-23 e-24) e-15))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((inv (Prelude-C-124C-124 (Unify-Core-n--12668-13001-isPatName arg-2 e-24 e-23 e-22 e-15 e-13 tm arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-22) (lambda () (let ((sc5 e-1)) (let ((e-25 (vector-ref sc5 15))) e-25)))))) (let ((sc5 inv)) (cond ((equal? sc5 0) (Unify-Core-unifyInvertible arg-0 arg-1 arg-2 arg-3 (Unify-Core-lower arg-4) arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 0 ) (lambda (eta-1) (vector 1 e-13 (vector 2 e-22 e-23 e-24) eta-1)) e-15 eta-0)) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 arg-3 arg-5 arg-4 "Postponing hole application" arg-6 (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) arg-10) tm) eta-0))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-13 arg-7) eta-0))))))))))))))))))))(else (Unify-Core-postponeS arg-2 arg-0 arg-1 0 arg-3 arg-5 arg-4 "Postponing hole application" arg-6 (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) arg-10) arg-11))))))))(else (Unify-Core-postponeS arg-2 arg-0 arg-1 0 arg-3 arg-5 arg-4 "Postponing hole application" arg-6 (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) arg-10) arg-11)))))) +(define Unify-Core-unifyHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((args (List-Prelude-C-43C-43 'erased arg-10 arg-11))) (let ((act-26 (Context-Core-logC arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-0) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalArg arg-2 e-6 eta-1)) args) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (arg-13) (lambda (eta-1) (Normalise-Core-quote_Quote__NF arg-2 e-6 arg-6 arg-13 eta-1))) e-7) eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-2 e-6 arg-6 arg-12 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (Strings-Prelude-C-43C-43 "Unifying: " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-2 d x)))) e-8) (Strings-Prelude-C-43C-43 " with " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-9))))))))))))))))))))))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Unify-Core-patternEnv arg-0 arg-1 arg-2 arg-6 args ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((act-28 ((Context-Core-lookupCtxtExact (vector 9 arg-9) (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0))) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((bind-0 (vector 0 ))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((_-0 (vector 1 e-1))) ((Unify-Core-case--14601-13681 arg-2 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 e-6 args e-7 bind-0 e-1 _-0 (let ((sc7 e-1)) (let ((e-17 (vector-ref sc7 18))) e-17))) ext-0))))(else ((Unify-Core-postponePatVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12) ext-0))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (let ((sc5 e-2)) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((act-28 ((Context-Core-lookupCtxtExact (vector 9 arg-9) (let ((sc7 e-5)) (let ((e-0 (vector-ref sc7 1))) e-0))) ext-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc7 1))) (let ((bind-0 (vector 1 (vector 0 e-10 (vector 0 e-12 e-11))))) (let ((sc8 e-13)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((_-0 (vector 1 e-1))) ((Unify-Core-case--14987-14012 arg-2 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 e-6 args e-7 e-10 e-12 e-11 bind-0 e-1 _-0 (let ((sc9 e-1)) (let ((e-17 (vector-ref sc9 18))) e-17))) ext-0))))(else ((Unify-Core-postponePatVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12) ext-0))))))))))))))))))))))))))))))))))))))))))) (define Unify-Core-unifyD (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-3) (lambda (arg-4) (lambda (arg-5) (lambda (arg-6) (lambda (arg-7) (lambda (arg-8) (lambda (arg-9) ((((((((e-1 arg-1) arg-3) arg-4) arg-5) arg-6) arg-7) arg-8) arg-9)))))))))))) -(define Unify-Core-unifyBothBinders (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((2) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((Unify-Core-case--12572-15891 arg-2 e-3 e-2 e-1 e-11 e-10 e-9 arg-13 arg-11 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-not (Unify-Core-subRig e-1 e-9))) eta-0)))))))))))(else (lambda (eta-0) (Unify-Core-convertError 'erased arg-2 arg-0 arg-4 arg-5 (vector 0 arg-6 arg-7 arg-8 arg-9) (vector 0 arg-10 arg-11 arg-12 arg-13) eta-0))))))))) ((0) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((0) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((e-15 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc2 1))) ((Unify-Core-case--12572-16355 arg-2 e-7 e-6 e-5 e-15 e-14 e-13 arg-13 arg-11 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-8 (Prelude-not (Unify-Core-subRig e-5 e-13))) eta-0)))))))))))(else (lambda (eta-0) (Unify-Core-convertError 'erased arg-2 arg-0 arg-4 arg-5 (vector 0 arg-6 arg-7 arg-8 arg-9) (vector 0 arg-10 arg-11 arg-12 arg-13) eta-0)))))))))(else (lambda (eta-0) (Unify-Core-convertError 'erased arg-2 arg-0 arg-4 arg-5 (vector 0 arg-6 arg-7 arg-8 arg-9) (vector 0 arg-10 arg-11 arg-12 arg-13) eta-0))))))) -(define Unify-Core-unifyBothApps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-52 (vector-ref sc0 1))) (let ((e-53 (vector-ref sc0 2))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-58 (vector-ref sc2 1))) (let ((e-59 (vector-ref sc2 2))) (let ((sc3 arg-11)) (case (vector-ref sc3 0) ((0) (Unify-Core-case--12567-14909 arg-2 'erased 'erased e-53 'erased e-52 e-59 'erased e-58 arg-9 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat e-53 e-59)))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-37 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((e-39 (vector-ref sc3 3))) (let ((sc4 e-39)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-42 (vector-ref sc5 1))) (let ((e-43 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((0) (let ((e-47 (vector-ref sc6 1))) (let ((e-48 (vector-ref sc6 2))) (let ((mode (vector 0 e-37 e-38 (vector 1 )))) (Unify-Core-case--12567-15008 arg-2 'erased 'erased e-43 'erased e-42 e-48 'erased e-47 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 e-38 e-37 mode arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat e-43 e-48))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((0) (let ((e-30 (vector-ref sc7 1))) (let ((e-31 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((2) (let ((e-16 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((e-18 (vector-ref sc7 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc8 arg-3)) (let ((e-2 (vector-ref sc8 3))) e-2)) (vector 2 )))))))(else (let ((sc7 arg-3)) (case (vector-ref sc7 0) ((0) (let ((e-0 (vector-ref sc7 1))) (let ((e-1 (vector-ref sc7 2))) (let ((e-2 (vector-ref sc7 3))) (let ((sc8 e-2)) (case (vector-ref sc8 0) ((3) (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 arg-10)) (case (vector-ref sc10 0) ((1) (let ((e-7 (vector-ref sc10 1))) (let ((e-8 (vector-ref sc10 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (let ((sc10 arg-10)) (case (vector-ref sc10 0) ((1) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc6 1))) (let ((e-26 (vector-ref sc6 2))) (let ((e-27 (vector-ref sc6 3))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((2) (let ((e-34 (vector-ref sc7 1))) (let ((e-35 (vector-ref sc7 2))) (let ((e-36 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc9 arg-3)) (let ((e-2 (vector-ref sc9 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-16 (vector-ref sc6 1))) (let ((e-17 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 2 )))))))(else (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((0) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-2 (vector-ref sc6 3))) (let ((sc7 e-2)) (case (vector-ref sc7 0) ((3) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-7 (vector-ref sc9 1))) (let ((e-8 (vector-ref sc9 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((0) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-16 (vector-ref sc6 1))) (let ((e-17 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 2 )))))))(else (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((0) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-2 (vector-ref sc6 3))) (let ((sc7 e-2)) (case (vector-ref sc7 0) ((3) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-7 (vector-ref sc9 1))) (let ((e-8 (vector-ref sc9 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (let ((e-27 (vector-ref sc5 3))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-34 (vector-ref sc6 1))) (let ((e-35 (vector-ref sc6 2))) (let ((e-36 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc8 arg-3)) (let ((e-2 (vector-ref sc8 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-16 (vector-ref sc5 1))) (let ((e-17 (vector-ref sc5 2))) (let ((e-18 (vector-ref sc5 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 2 )))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-7 (vector-ref sc8 1))) (let ((e-8 (vector-ref sc8 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-16 (vector-ref sc5 1))) (let ((e-17 (vector-ref sc5 2))) (let ((e-18 (vector-ref sc5 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 2 )))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-7 (vector-ref sc8 1))) (let ((e-8 (vector-ref sc8 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-27 (vector-ref sc4 3))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((e-36 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((e-36 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-37 (vector-ref sc2 1))) (let ((e-38 (vector-ref sc2 2))) (let ((e-39 (vector-ref sc2 3))) (let ((sc3 e-39)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-42 (vector-ref sc4 1))) (let ((e-43 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-47 (vector-ref sc5 1))) (let ((e-48 (vector-ref sc5 2))) (let ((mode (vector 0 e-37 e-38 (vector 1 )))) (Unify-Core-case--12567-15008 arg-2 'erased 'erased e-43 'erased e-42 e-48 'erased e-47 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 e-38 e-37 mode arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat e-43 e-48))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((0) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-16 (vector-ref sc6 1))) (let ((e-17 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 2 )))))))(else (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((0) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-2 (vector-ref sc6 3))) (let ((sc7 e-2)) (case (vector-ref sc7 0) ((3) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-7 (vector-ref sc9 1))) (let ((e-8 (vector-ref sc9 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (let ((e-27 (vector-ref sc5 3))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-34 (vector-ref sc6 1))) (let ((e-35 (vector-ref sc6 2))) (let ((e-36 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc8 arg-3)) (let ((e-2 (vector-ref sc8 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-16 (vector-ref sc5 1))) (let ((e-17 (vector-ref sc5 2))) (let ((e-18 (vector-ref sc5 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 2 )))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-7 (vector-ref sc8 1))) (let ((e-8 (vector-ref sc8 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-16 (vector-ref sc5 1))) (let ((e-17 (vector-ref sc5 2))) (let ((e-18 (vector-ref sc5 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 2 )))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-7 (vector-ref sc8 1))) (let ((e-8 (vector-ref sc8 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-27 (vector-ref sc4 3))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((e-36 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((e-36 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (let ((e-30 (vector-ref sc3 1))) (let ((e-31 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-34 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-7 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-37 (vector-ref sc1 1))) (let ((e-38 (vector-ref sc1 2))) (let ((e-39 (vector-ref sc1 3))) (let ((sc2 e-39)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-42 (vector-ref sc3 1))) (let ((e-43 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-47 (vector-ref sc4 1))) (let ((e-48 (vector-ref sc4 2))) (let ((mode (vector 0 e-37 e-38 (vector 1 )))) (Unify-Core-case--12567-15008 arg-2 'erased 'erased e-43 'erased e-42 e-48 'erased e-47 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 e-38 e-37 mode arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat e-43 e-48))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-16 (vector-ref sc5 1))) (let ((e-17 (vector-ref sc5 2))) (let ((e-18 (vector-ref sc5 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 2 )))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-7 (vector-ref sc8 1))) (let ((e-8 (vector-ref sc8 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-27 (vector-ref sc4 3))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((e-36 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((e-36 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (let ((e-30 (vector-ref sc3 1))) (let ((e-31 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-34 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-7 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-30 (vector-ref sc2 1))) (let ((e-31 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-7 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((2) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 )))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((3) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-7 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (let ((e-39 (vector-ref sc0 3))) (let ((sc1 e-39)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-42 (vector-ref sc2 1))) (let ((e-43 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (let ((e-47 (vector-ref sc3 1))) (let ((e-48 (vector-ref sc3 2))) (let ((mode (vector 0 e-37 e-38 (vector 1 )))) (Unify-Core-case--12567-15008 arg-2 'erased 'erased e-43 'erased e-42 e-48 'erased e-47 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 e-38 e-37 mode arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat e-43 e-48))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((e-36 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (let ((e-30 (vector-ref sc3 1))) (let ((e-31 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-34 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-7 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-30 (vector-ref sc2 1))) (let ((e-31 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-7 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((2) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 )))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((3) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-7 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (let ((e-30 (vector-ref sc1 1))) (let ((e-31 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((2) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 )))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((3) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-7 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((2) (let ((e-34 (vector-ref sc1 1))) (let ((e-35 (vector-ref sc1 2))) (let ((e-36 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((2) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 3))) e-2)) (vector 2 )))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((1) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))))) +(define Unify-Core-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--12694-16043 arg-2 e-3 e-2 e-1 e-11 e-10 e-9 arg-13 arg-11 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-not (Unify-Core-subRig e-1 e-9))) eta-0)))))))))))(else (lambda (eta-0) (Unify-Core-convertError 'erased arg-2 arg-0 arg-4 arg-5 (vector 0 arg-6 arg-7 arg-8 arg-9) (vector 0 arg-10 arg-11 arg-12 arg-13) eta-0))))))))) ((0) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((0) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((e-15 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc2 1))) ((Unify-Core-case--12694-16507 arg-2 e-7 e-6 e-5 e-15 e-14 e-13 arg-13 arg-11 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-8 (Prelude-not (Unify-Core-subRig e-5 e-13))) eta-0)))))))))))(else (lambda (eta-0) (Unify-Core-convertError 'erased arg-2 arg-0 arg-4 arg-5 (vector 0 arg-6 arg-7 arg-8 arg-9) (vector 0 arg-10 arg-11 arg-12 arg-13) eta-0)))))))))(else (lambda (eta-0) (Unify-Core-convertError 'erased arg-2 arg-0 arg-4 arg-5 (vector 0 arg-6 arg-7 arg-8 arg-9) (vector 0 arg-10 arg-11 arg-12 arg-13) eta-0))))))) +(define Unify-Core-unifyBothApps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-52 (vector-ref sc0 1))) (let ((e-53 (vector-ref sc0 2))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-58 (vector-ref sc2 1))) (let ((e-59 (vector-ref sc2 2))) (let ((sc3 arg-11)) (case (vector-ref sc3 0) ((0) (Unify-Core-case--12689-15061 arg-2 'erased 'erased e-53 'erased e-52 e-59 'erased e-58 arg-9 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat e-53 e-59)))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-37 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((e-39 (vector-ref sc3 3))) (let ((sc4 e-39)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-42 (vector-ref sc5 1))) (let ((e-43 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((0) (let ((e-47 (vector-ref sc6 1))) (let ((e-48 (vector-ref sc6 2))) (let ((mode (vector 0 e-37 e-38 (vector 1 )))) (Unify-Core-case--12689-15160 arg-2 'erased 'erased e-43 'erased e-42 e-48 'erased e-47 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 e-38 e-37 mode arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat e-43 e-48))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((0) (let ((e-30 (vector-ref sc7 1))) (let ((e-31 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((2) (let ((e-16 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((e-18 (vector-ref sc7 3))) (Unify-Core-case--12689-15676 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc8 arg-3)) (let ((e-2 (vector-ref sc8 3))) e-2)) (vector 2 )))))))(else (let ((sc7 arg-3)) (case (vector-ref sc7 0) ((0) (let ((e-0 (vector-ref sc7 1))) (let ((e-1 (vector-ref sc7 2))) (let ((e-2 (vector-ref sc7 3))) (let ((sc8 e-2)) (case (vector-ref sc8 0) ((3) (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 arg-10)) (case (vector-ref sc10 0) ((1) (let ((e-7 (vector-ref sc10 1))) (let ((e-8 (vector-ref sc10 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12689-15756 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (let ((sc10 arg-10)) (case (vector-ref sc10 0) ((1) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12689-15855 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc6 1))) (let ((e-26 (vector-ref sc6 2))) (let ((e-27 (vector-ref sc6 3))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((2) (let ((e-34 (vector-ref sc7 1))) (let ((e-35 (vector-ref sc7 2))) (let ((e-36 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) ((Unify-Core-case--12689-15447 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc9 arg-3)) (let ((e-2 (vector-ref sc9 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-16 (vector-ref sc6 1))) (let ((e-17 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (Unify-Core-case--12689-15676 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 2 )))))))(else (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((0) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-2 (vector-ref sc6 3))) (let ((sc7 e-2)) (case (vector-ref sc7 0) ((3) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-7 (vector-ref sc9 1))) (let ((e-8 (vector-ref sc9 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12689-15756 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12689-15855 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((0) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-16 (vector-ref sc6 1))) (let ((e-17 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (Unify-Core-case--12689-15676 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 2 )))))))(else (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((0) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-2 (vector-ref sc6 3))) (let ((sc7 e-2)) (case (vector-ref sc7 0) ((3) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-7 (vector-ref sc9 1))) (let ((e-8 (vector-ref sc9 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12689-15756 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12689-15855 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (let ((e-27 (vector-ref sc5 3))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-34 (vector-ref sc6 1))) (let ((e-35 (vector-ref sc6 2))) (let ((e-36 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) ((Unify-Core-case--12689-15447 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc8 arg-3)) (let ((e-2 (vector-ref sc8 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-16 (vector-ref sc5 1))) (let ((e-17 (vector-ref sc5 2))) (let ((e-18 (vector-ref sc5 3))) (Unify-Core-case--12689-15676 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 2 )))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-7 (vector-ref sc8 1))) (let ((e-8 (vector-ref sc8 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12689-15756 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12689-15855 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-16 (vector-ref sc5 1))) (let ((e-17 (vector-ref sc5 2))) (let ((e-18 (vector-ref sc5 3))) (Unify-Core-case--12689-15676 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 2 )))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-7 (vector-ref sc8 1))) (let ((e-8 (vector-ref sc8 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12689-15756 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12689-15855 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-27 (vector-ref sc4 3))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((e-36 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((Unify-Core-case--12689-15447 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12689-15676 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12689-15756 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12689-15855 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12689-15676 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12689-15756 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12689-15855 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((e-36 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((Unify-Core-case--12689-15447 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (Unify-Core-case--12689-15676 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12689-15756 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12689-15855 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-37 (vector-ref sc2 1))) (let ((e-38 (vector-ref sc2 2))) (let ((e-39 (vector-ref sc2 3))) (let ((sc3 e-39)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-42 (vector-ref sc4 1))) (let ((e-43 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-47 (vector-ref sc5 1))) (let ((e-48 (vector-ref sc5 2))) (let ((mode (vector 0 e-37 e-38 (vector 1 )))) (Unify-Core-case--12689-15160 arg-2 'erased 'erased e-43 'erased e-42 e-48 'erased e-47 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 e-38 e-37 mode arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat e-43 e-48))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((0) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-16 (vector-ref sc6 1))) (let ((e-17 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (Unify-Core-case--12689-15676 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 2 )))))))(else (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((0) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-2 (vector-ref sc6 3))) (let ((sc7 e-2)) (case (vector-ref sc7 0) ((3) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-7 (vector-ref sc9 1))) (let ((e-8 (vector-ref sc9 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12689-15756 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12689-15855 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (let ((e-27 (vector-ref sc5 3))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-34 (vector-ref sc6 1))) (let ((e-35 (vector-ref sc6 2))) (let ((e-36 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) ((Unify-Core-case--12689-15447 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc8 arg-3)) (let ((e-2 (vector-ref sc8 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-16 (vector-ref sc5 1))) (let ((e-17 (vector-ref sc5 2))) (let ((e-18 (vector-ref sc5 3))) (Unify-Core-case--12689-15676 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 2 )))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-7 (vector-ref sc8 1))) (let ((e-8 (vector-ref sc8 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12689-15756 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12689-15855 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-16 (vector-ref sc5 1))) (let ((e-17 (vector-ref sc5 2))) (let ((e-18 (vector-ref sc5 3))) (Unify-Core-case--12689-15676 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 2 )))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-7 (vector-ref sc8 1))) (let ((e-8 (vector-ref sc8 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12689-15756 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12689-15855 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-27 (vector-ref sc4 3))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((e-36 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((Unify-Core-case--12689-15447 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12689-15676 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12689-15756 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12689-15855 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12689-15676 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12689-15756 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12689-15855 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((e-36 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((Unify-Core-case--12689-15447 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (Unify-Core-case--12689-15676 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12689-15756 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12689-15855 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (let ((e-30 (vector-ref sc3 1))) (let ((e-31 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (Unify-Core-case--12689-15676 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12689-15756 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12689-15855 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-34 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((Unify-Core-case--12689-15447 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (Unify-Core-case--12689-15676 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-7 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12689-15756 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12689-15855 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-37 (vector-ref sc1 1))) (let ((e-38 (vector-ref sc1 2))) (let ((e-39 (vector-ref sc1 3))) (let ((sc2 e-39)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-42 (vector-ref sc3 1))) (let ((e-43 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-47 (vector-ref sc4 1))) (let ((e-48 (vector-ref sc4 2))) (let ((mode (vector 0 e-37 e-38 (vector 1 )))) (Unify-Core-case--12689-15160 arg-2 'erased 'erased e-43 'erased e-42 e-48 'erased e-47 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 e-38 e-37 mode arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat e-43 e-48))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-16 (vector-ref sc5 1))) (let ((e-17 (vector-ref sc5 2))) (let ((e-18 (vector-ref sc5 3))) (Unify-Core-case--12689-15676 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 2 )))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-7 (vector-ref sc8 1))) (let ((e-8 (vector-ref sc8 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12689-15756 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12689-15855 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-27 (vector-ref sc4 3))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((e-36 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((Unify-Core-case--12689-15447 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12689-15676 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12689-15756 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12689-15855 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12689-15676 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12689-15756 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12689-15855 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((e-36 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((Unify-Core-case--12689-15447 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (Unify-Core-case--12689-15676 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12689-15756 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12689-15855 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (let ((e-30 (vector-ref sc3 1))) (let ((e-31 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (Unify-Core-case--12689-15676 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12689-15756 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12689-15855 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-34 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((Unify-Core-case--12689-15447 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (Unify-Core-case--12689-15676 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-7 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12689-15756 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12689-15855 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-30 (vector-ref sc2 1))) (let ((e-31 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (Unify-Core-case--12689-15676 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-7 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12689-15756 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12689-15855 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Unify-Core-case--12689-15447 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((2) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (Unify-Core-case--12689-15676 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 )))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((3) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-7 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12689-15756 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12689-15855 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (let ((e-39 (vector-ref sc0 3))) (let ((sc1 e-39)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-42 (vector-ref sc2 1))) (let ((e-43 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (let ((e-47 (vector-ref sc3 1))) (let ((e-48 (vector-ref sc3 2))) (let ((mode (vector 0 e-37 e-38 (vector 1 )))) (Unify-Core-case--12689-15160 arg-2 'erased 'erased e-43 'erased e-42 e-48 'erased e-47 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 e-38 e-37 mode arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat e-43 e-48))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12689-15676 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12689-15756 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12689-15855 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((e-36 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((Unify-Core-case--12689-15447 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (Unify-Core-case--12689-15676 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12689-15756 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12689-15855 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (let ((e-30 (vector-ref sc3 1))) (let ((e-31 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (Unify-Core-case--12689-15676 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12689-15756 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12689-15855 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-34 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((Unify-Core-case--12689-15447 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (Unify-Core-case--12689-15676 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-7 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12689-15756 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12689-15855 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-30 (vector-ref sc2 1))) (let ((e-31 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (Unify-Core-case--12689-15676 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-7 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12689-15756 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12689-15855 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Unify-Core-case--12689-15447 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((2) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (Unify-Core-case--12689-15676 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 )))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((3) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-7 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12689-15756 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12689-15855 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (let ((e-30 (vector-ref sc1 1))) (let ((e-31 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((2) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (Unify-Core-case--12689-15676 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 )))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((3) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-7 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12689-15756 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12689-15855 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((2) (let ((e-34 (vector-ref sc1 1))) (let ((e-35 (vector-ref sc1 2))) (let ((e-36 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Unify-Core-case--12689-15447 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((2) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (Unify-Core-case--12689-15676 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 3))) e-2)) (vector 2 )))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12689-15756 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((1) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12689-15855 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))))) (define Unify-Core-unifyArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (Unify-Core-success))))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-6 "" eta-0)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Unify-Core-unifyArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-7) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((((((Unify-Core-unify 'erased (Builtin-fst 'erased 'erased arg-1) arg-2 arg-3 arg-4) (Unify-Core-lower arg-5)) arg-6) arg-7) e-2) e-6) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Unify-Core-union e-8 e-5))))))))))))))))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-6 "" eta-0))))))))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-6 "" eta-0))))))) -(define Unify-Core-unifyApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((2) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (lambda (eta-0) (Unify-Core-unifyHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-50 e-51 e-52 arg-9 arg-10 eta-0))))))(else (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (let ((sc1 e-43)) (case (vector-ref sc1 0) ((2) (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (let ((e-48 (vector-ref sc1 3))) (lambda (eta-0) (Unify-Core-unifyHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-42 e-46 e-47 e-48 e-44 (vector 1 arg-7 arg-8 arg-9) eta-0))))))(else (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Name against app, unifyIfEq") eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) ((Unify-Core-case--12563-14457 arg-2 e-2 e-1 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-not arg-3)) eta-0)))))))))) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((1) (let ((e-32 (vector-ref sc3 1))) (let ((e-33 (vector-ref sc3 2))) (let ((e-34 (vector-ref sc3 3))) (let ((sc4 e-33)) (case (vector-ref sc4 0) ((0) (let ((e-37 (vector-ref sc4 1))) (let ((e-38 (vector-ref sc4 2))) (let ((sc5 e-34)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) ((Unify-Core-case--12563-14552 arg-2 'erased 'erased e-6 'erased e-5 e-38 'erased e-37 e-32 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-7 (Prelude-C-61C-61_Eq__Nat e-6 e-38)) eta-0))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc5 arg-3)) (cond ((equal? sc5 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (cond ((equal? sc8 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (cond ((equal? sc8 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))))))))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc4 arg-3)) (cond ((equal? sc4 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0))))))))))))))))))))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc3 arg-3)) (cond ((equal? sc3 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc2 arg-3)) (cond ((equal? sc2 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (cond ((equal? sc5 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (cond ((equal? sc5 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (cond ((equal? sc1 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (cond ((equal? sc4 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (cond ((equal? sc4 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0))))))))))))))))))))))))))))(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Name against app, unifyIfEq") eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((Unify-Core-case--12563-14457 arg-2 e-2 e-1 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-not arg-3)) eta-0)))))))))) ((0) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((1) (let ((e-32 (vector-ref sc2 1))) (let ((e-33 (vector-ref sc2 2))) (let ((e-34 (vector-ref sc2 3))) (let ((sc3 e-33)) (case (vector-ref sc3 0) ((0) (let ((e-37 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((sc4 e-34)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) ((Unify-Core-case--12563-14552 arg-2 'erased 'erased e-6 'erased e-5 e-38 'erased e-37 e-32 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-7 (Prelude-C-61C-61_Eq__Nat e-6 e-38)) eta-0))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc4 arg-3)) (cond ((equal? sc4 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc3 arg-3)) (cond ((equal? sc3 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0))))))))))))))))))))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc2 arg-3)) (cond ((equal? sc2 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (cond ((equal? sc5 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (cond ((equal? sc5 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))))))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc1 arg-3)) (cond ((equal? sc1 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))))))))))))))(else (let ((sc0 arg-3)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0))))))))))))))))))))))))))))) +(define Unify-Core-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--12685-14609 arg-2 e-2 e-1 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-not arg-3)) eta-0)))))))))) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((1) (let ((e-32 (vector-ref sc3 1))) (let ((e-33 (vector-ref sc3 2))) (let ((e-34 (vector-ref sc3 3))) (let ((sc4 e-33)) (case (vector-ref sc4 0) ((0) (let ((e-37 (vector-ref sc4 1))) (let ((e-38 (vector-ref sc4 2))) (let ((sc5 e-34)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) ((Unify-Core-case--12685-14704 arg-2 'erased 'erased e-6 'erased e-5 e-38 'erased e-37 e-32 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-7 (Prelude-C-61C-61_Eq__Nat e-6 e-38)) eta-0))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc5 arg-3)) (cond ((equal? sc5 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (cond ((equal? sc8 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (cond ((equal? sc8 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))))))))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc4 arg-3)) (cond ((equal? sc4 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0))))))))))))))))))))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc3 arg-3)) (cond ((equal? sc3 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc2 arg-3)) (cond ((equal? sc2 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (cond ((equal? sc5 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (cond ((equal? sc5 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (cond ((equal? sc1 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (cond ((equal? sc4 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (cond ((equal? sc4 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0))))))))))))))))))))))))))))(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Name against app, unifyIfEq") eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((Unify-Core-case--12685-14609 arg-2 e-2 e-1 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-not arg-3)) eta-0)))))))))) ((0) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((1) (let ((e-32 (vector-ref sc2 1))) (let ((e-33 (vector-ref sc2 2))) (let ((e-34 (vector-ref sc2 3))) (let ((sc3 e-33)) (case (vector-ref sc3 0) ((0) (let ((e-37 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((sc4 e-34)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) ((Unify-Core-case--12685-14704 arg-2 'erased 'erased e-6 'erased e-5 e-38 'erased e-37 e-32 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-7 (Prelude-C-61C-61_Eq__Nat e-6 e-38)) eta-0))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc4 arg-3)) (cond ((equal? sc4 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc3 arg-3)) (cond ((equal? sc3 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0))))))))))))))))))))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc2 arg-3)) (cond ((equal? sc2 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (cond ((equal? sc5 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (cond ((equal? sc5 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))))))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc1 arg-3)) (cond ((equal? sc1 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))))))))))))))(else (let ((sc0 arg-3)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0))))))))))))))))))))))))))))) (define Unify-Core-unify (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-5) (lambda (arg-6) (lambda (arg-7) (lambda (arg-8) (lambda (arg-9) ((((((((e-1 arg-2) arg-3) arg-4) arg-5) arg-6) arg-7) arg-8) arg-9)))))))))) (define UnifyInfo-Unify-Core-umode (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) (define Unify-Core-ufail (lambda (arg-0 arg-1 arg-2 ext-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 arg-2) ext-0))) -(define Unify-Core-toSubVars (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--8837-8558 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--8879-8627 e-2 e-3 arg-1 (Unify-Core-toSubVars e-3 (TT-Core-dropFirst 'erased 'erased arg-1)))))))))) (define Unify-Core-success (lambda () (vector 0 (vector 0 ) 1 (vector 0 ) (vector 0 )))) -(define Unify-Core-subRig (lambda (arg-0 arg-1) (Prelude-C-124C-124 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-0) (lambda () (Semiring-Algebra-isRigOther 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-1))) (lambda () (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-0 arg-1))))) +(define Unify-Core-subRig (lambda (arg-0 arg-1) (Prelude-C-124C-124 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-0) (lambda () (Semiring-Algebra-isRigOther 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-1))) (lambda () (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-0 arg-1))))) (define Unify-Core-solvedHole (lambda (arg-0) (vector 0 (vector 0 ) 0 (vector 1 arg-0 (vector 0 )) (vector 0 )))) -(define Unify-Core-solveIfUndefined (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupDefExact (vector 9 e-3) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((7) (let ((e-9 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((act-26 (Unify-Core-patternEnvTm arg-1 arg-2 arg-0 arg-3 e-4 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((_-0 (vector 1 (vector 7 e-9 e-8)))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((0) (vector 1 1)) (else (let ((e-11 (vector-ref sc6 1))) (let ((sc7 e-11)) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (let ((e-15 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((bind-0 (vector 1 (vector 0 e-13 (vector 0 e-15 e-14))))) ((Unify-Core-case--12151-11521 arg-0 e-4 e-3 e-2 e-1 arg-5 arg-3 arg-2 arg-1 e-5 e-9 e-8 _-0 e-13 e-15 e-14 bind-0 (TT-Core-shrinkTerm 'erased 'erased arg-5 e-14)) eta-0)))))))))))))))))))))(else (vector 1 1))))))(else (vector 1 1))))))))))))))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Unify-Core-solveHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Unify-Core-case--12554-13182 arg-2 arg-3 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-0 e-5 e-6 (Unify-Core-n--12554-13148-solutionHeadSame arg-2 arg-3 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-0 arg-15)) ext-0))))))))))))) -(define Unify-Core-solveConstraintsAfter (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Unify-Core-retryGuess arg-0 arg-1 arg-3 arg-4 eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Unify-Core-n--22612-20915-afterStart arg-4 arg-3 arg-2 arg-1 arg-0 'erased eta-0)) (IntMap-Data-toList 'erased (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 (Extra-Bool-Data-anyTrue e-6))) (cond ((equal? sc2 0) (Unify-Core-solveConstraintsAfter arg-0 arg-1 arg-2 arg-3 (vector 0 ) ext-0)) (else (vector 1 (vector 0 ))))))))))))))))) +(define Unify-Core-solveIfUndefined (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupDefExact (vector 9 e-3) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((7) (let ((e-9 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((act-26 (Unify-Core-patternEnvTm arg-1 arg-2 arg-0 arg-3 e-4 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((_-0 (vector 1 (vector 7 e-9 e-8)))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((0) (vector 1 1)) (else (let ((e-11 (vector-ref sc6 1))) (let ((sc7 e-11)) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (let ((e-15 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((bind-0 (vector 1 (vector 0 e-13 (vector 0 e-15 e-14))))) ((Unify-Core-case--12272-11655 arg-0 e-4 e-3 e-2 e-1 arg-5 arg-3 arg-2 arg-1 e-5 e-9 e-8 _-0 e-13 e-15 e-14 bind-0 (TT-Core-shrinkTerm 'erased 'erased arg-5 e-14)) eta-0)))))))))))))))))))))(else (vector 1 1))))))(else (vector 1 1))))))))))))))))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Unify-Core-solveHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Unify-Core-case--12676-13334 arg-2 arg-3 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-0 e-5 e-6 (Unify-Core-n--12676-13300-solutionHeadSame arg-2 arg-3 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-0 arg-15)) ext-0))))))))))))) +(define Unify-Core-solveConstraintsAfter (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Unify-Core-retryGuess arg-0 arg-1 arg-3 arg-4 eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Unify-Core-n--22825-21125-afterStart arg-4 arg-3 arg-2 arg-1 arg-0 'erased eta-0)) (IntMap-Data-toList 'erased (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 (Extra-Bool-Data-anyTrue e-6))) (cond ((equal? sc2 0) (Unify-Core-solveConstraintsAfter arg-0 arg-1 arg-2 arg-3 (vector 0 ) ext-0)) (else (vector 1 (vector 0 ))))))))))))))))) (define Unify-Core-solveConstraints (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Unify-Core-retryGuess arg-0 arg-1 arg-2 arg-3 eta-0)) (IntMap-Data-toList 'erased (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1)))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 (Extra-Bool-Data-anyTrue e-6))) (cond ((equal? sc2 0) (Unify-Core-solveConstraints arg-0 arg-1 arg-2 (vector 0 ) ext-0)) (else (vector 1 (vector 0 ))))))))))))))))) (define Unify-Core-setInvertible (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (Context-Core-addDef arg-0 arg-2 (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (let ((e-21 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (vector 0 e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 e-11 e-12 e-13 0 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) (define Unify-Core-search (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "Initial target: ") arg-9 arg-8 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Running search with defaults " (Prelude-show_Show__Bool arg-5))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 ((AutoSearch-Core-searchType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-6 arg-7 0 (Env-Core-abstractEnvType arg-0 arg-3 arg-9 arg-8) arg-9 arg-8) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "Result") arg-9 e-8 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 (unbox arg-1))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 e-8)))))))))))))))))))))))))))) -(define Unify-Core-retryGuess (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 9 e-2) (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (vector 1 1)) (else (let ((e-4 (vector-ref sc4 1))) (let ((bind-0 (vector 1 e-4))) ((Unify-Core-case--21092-19621 e-2 e-6 e-7 arg-3 arg-2 arg-1 arg-0 e-5 e-4 bind-0 (let ((sc5 e-4)) (let ((e-17 (vector-ref sc5 18))) e-17))) eta-0))))))))))))))))))))))))) -(define Unify-Core-retry (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Unify-Core-case--20241-19034 arg-0 arg-3 arg-2 arg-1 e-5 (IntMap-Data-lookup 'erased arg-3 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)))) ext-0)))))))) +(define Unify-Core-retryGuess (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 9 e-2) (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (vector 1 1)) (else (let ((e-4 (vector-ref sc4 1))) (let ((bind-0 (vector 1 e-4))) ((Unify-Core-case--21305-19831 e-2 e-6 e-7 arg-3 arg-2 arg-1 arg-0 e-5 e-4 bind-0 (let ((sc5 e-4)) (let ((e-17 (vector-ref sc5 18))) e-17))) eta-0))))))))))))))))))))))))) +(define Unify-Core-retry (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Unify-Core-case--20454-19244 arg-0 arg-3 arg-2 arg-1 e-5 (IntMap-Data-lookup 'erased arg-3 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)))) ext-0)))))))) (define UnifyInfo-Unify-Core-precise (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (define Unify-Core-postponeS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-postpone arg-0 arg-1 arg-2 arg-3 arg-5 (Unify-Core-lower arg-6) arg-7 arg-8 arg-10 arg-9 eta-0))) (else (lambda (eta-0) (Unify-Core-postpone arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-0))))))) (define Unify-Core-postponePatVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((x (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) arg-10))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 x arg-11 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 1 arg-3 arg-5 arg-4 "Not in pattern fragment" arg-6 x arg-11) eta-0)))))))))))))))))) -(define Unify-Core-postpone (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-logC arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-0) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-7 arg-8 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-7 arg-9 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-7 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-8 eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (Strings-Prelude-C-43C-43 arg-6 (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-9) (Strings-Prelude-C-43C-43 " =?= " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-10))))))))))))))))))))))))))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 ((Unify-Core-n--7967-7720-checkDefined arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 arg-8) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 ((Unify-Core-n--7967-7720-checkDefined arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 arg-9) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-7 arg-8 ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-7 arg-9 ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (let ((sc7 arg-3)) (cond ((equal? sc7 0) (let ((xmetas (TT-Core-getMetas 'erased e-10))) ((Unify-Core-chaseMetas arg-1 (NameMap-Data-keys 'erased (TT-Core-addMetas 'erased xmetas e-11)) (NameMap-Data-empty 'erased)) ext-0))) (else (vector 1 (vector 0 ))))))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Unify-Core-n--7967-7721-undefinedN arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0 eta-1))) e-12) ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-33 (UnifyState-Core-addConstraint arg-2 arg-1 (vector 0 arg-0 arg-4 (let ((sc9 arg-5)) (let ((e-0 (vector-ref sc9 1))) e-0)) e-13 arg-7 e-10 e-11) ext-0))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-34 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-14) (Strings-Prelude-C-43C-43 " NEW CONSTRAINT " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-4) (Strings-Prelude-C-43C-43 " blocked on " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-12)))))) ext-0))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-35 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "X") e-10 ext-0))) (let ((sc11 act-35)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((act-36 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Y") e-11 ext-0))) (let ((sc12 act-36)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (vector 1 (Unify-Core-constrain e-14))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Unify-Core-patternEnvTm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Unify-Core-case--9280-9005 arg-2 arg-4 arg-3 arg-1 arg-0 e-5 e-6 (Unify-Core-getVarsTm 'erased (vector 0 ) arg-4)) ext-0))))))))))))) -(define Unify-Core-patternEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Normalise-Core-evalArg arg-2 e-6 eta-0)) arg-4) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((Unify-Core-case--8951-8730 arg-2 arg-4 arg-3 arg-1 arg-0 e-5 e-6 e-7 (Unify-Core-getVars arg-2 (vector 0 ) e-7)) ext-0)))))))))))))))))) -(define Unify-Core-occursCheck (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((Unify-Core-getMetaNames 'erased arg-1 arg-6) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Unify-Core-case--9493-9309 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-5 e-5)) ext-0)))))))) +(define Unify-Core-postpone (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-logC arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-0) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-7 arg-8 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-7 arg-9 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-7 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-8 eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (Strings-Prelude-C-43C-43 arg-6 (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-9) (Strings-Prelude-C-43C-43 " =?= " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-10))))))))))))))))))))))))))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 ((Unify-Core-n--8009-7789-checkDefined arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 arg-8) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 ((Unify-Core-n--8009-7789-checkDefined arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 arg-9) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-7 arg-8 ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-7 arg-9 ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (let ((sc7 arg-3)) (cond ((equal? sc7 0) (let ((xmetas (TT-Core-getMetas 'erased e-10))) ((Unify-Core-chaseMetas arg-1 ((NameMap-Data-keys 'erased) (TT-Core-addMetas 'erased xmetas e-11)) (NameMap-Data-empty 'erased)) ext-0))) (else (vector 1 (vector 0 ))))))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Unify-Core-n--8009-7790-undefinedN arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0 eta-1))) e-12) ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-33 (UnifyState-Core-addConstraint arg-2 arg-1 (vector 0 arg-0 arg-4 (let ((sc9 arg-5)) (let ((e-0 (vector-ref sc9 1))) e-0)) e-13 arg-7 e-10 e-11) ext-0))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-34 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-14) (Strings-Prelude-C-43C-43 " NEW CONSTRAINT " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-4) (Strings-Prelude-C-43C-43 " blocked on " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-12)))))) ext-0))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-35 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "X") e-10 ext-0))) (let ((sc11 act-35)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((act-36 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Y") e-11 ext-0))) (let ((sc12 act-36)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (vector 1 (Unify-Core-constrain e-14))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Unify-Core-patternEnvTm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Unify-Core-case--9322-9074 arg-2 arg-4 arg-3 arg-1 arg-0 e-5 e-6 (Unify-Core-getVarsTm 'erased (vector 0 ) arg-4)) ext-0))))))))))))) +(define Unify-Core-patternEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Normalise-Core-evalArg arg-2 e-6 eta-0)) arg-4) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((Unify-Core-case--8993-8799 arg-2 arg-4 arg-3 arg-1 arg-0 e-5 e-6 e-7 (Unify-Core-getVars arg-2 (vector 0 ) e-7)) ext-0)))))))))))))))))) +(define Unify-Core-occursCheck (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((Unify-Core-getMetaNames 'erased arg-1 arg-6) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Unify-Core-case--9535-9378 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) arg-5 e-5)) ext-0)))))))) (define UnifyResult-Unify-Core-namesSolved (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) (define Unify-Core-lower (lambda (ext-0) (let ((sc0 ext-0)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 1 e-1 e-2)))))) (define Unify-Core-lam (lambda (ext-0) (let ((sc0 ext-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 0 e-2)))))) (define Unify-Core-isHoleApp (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) 0)(else 1)))))(else 1))))) (define Unify-Core-isDefInvertible (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 9 arg-2) (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (let ((sc3 e-1)) (let ((e-14 (vector-ref sc3 15))) e-14))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 (vector 9 arg-2)) ext-0)))))))))))))))) -(define Unify-Core-instantiate (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((act-24 (Context-Core-logTerm arg-3 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Instantiating in " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-3))) arg-13 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Unify-Core-case--10058-11230 arg-2 arg-3 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-0 e-5 (let ((sc1 arg-10)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((ty (let ((sc2 arg-10)) (let ((e-2 (vector-ref sc2 3))) e-2)))) (let ((act-26 (Context-Core-logTerm (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Type: " (Name-Core-show_Show__Name arg-7))) ty ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "With locs: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x)))) arg-11))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "From vars: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-3))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 (unbox arg-0))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 ((Unify-Core-n--10058-9622-mkDef arg-2 arg-3 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-0 (vector 0 ) arg-3 arg-11 (vector 0 ) arg-13 ty) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (Context-Core-logTerm (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Definition") e-11 ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((simpleDef (vector 0 (vector 1 arg-9) (Unify-Core-n--10058-9619-isSimple arg-2 arg-3 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-0 'erased e-11)))) (let ((newdef (let ((sc8 arg-10)) (let ((e-0 (vector-ref sc8 1))) (let ((e-1 (vector-ref sc8 2))) (let ((e-2 (vector-ref sc8 3))) (let ((e-3 (vector-ref sc8 4))) (let ((e-4 (vector-ref sc8 5))) (let ((e-28 (vector-ref sc8 6))) (let ((e-27 (vector-ref sc8 7))) (let ((e-26 (vector-ref sc8 8))) (let ((e-25 (vector-ref sc8 9))) (let ((e-24 (vector-ref sc8 10))) (let ((e-23 (vector-ref sc8 11))) (let ((e-22 (vector-ref sc8 12))) (let ((e-21 (vector-ref sc8 13))) (let ((e-13 (vector-ref sc8 14))) (let ((e-14 (vector-ref sc8 15))) (let ((e-15 (vector-ref sc8 16))) (let ((e-16 (vector-ref sc8 17))) (let ((e-18 (vector-ref sc8 19))) (let ((e-19 (vector-ref sc8 20))) (let ((e-20 (vector-ref sc8 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-27 e-26 e-25 e-24 e-23 e-22 e-21 e-13 e-14 e-15 e-16 (vector 1 simpleDef (vector 0 ) (vector 1 0 e-11) (vector 1 0 e-11) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-32 (Context-Core-addDef arg-0 (vector 9 arg-8) newdef ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (UnifyState-Core-removeHole arg-1 arg-8 ext-0)))))))))))))))))))))))))))))))))))))))))))) +(define Unify-Core-instantiate (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((act-24 (Context-Core-logTerm arg-3 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Instantiating in " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-3))) arg-13 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Unify-Core-case--10100-11364 arg-2 arg-3 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-0 e-5 (let ((sc1 arg-10)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((ty (let ((sc2 arg-10)) (let ((e-2 (vector-ref sc2 3))) e-2)))) (let ((act-26 (Context-Core-logTerm (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Type: " (Name-Core-show_Show__Name arg-7))) ty ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "With locs: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x)))) arg-11))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "From vars: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-3))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 (unbox arg-0))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 ((Unify-Core-n--10100-9692-mkDef arg-2 arg-3 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-0 (vector 0 ) arg-3 arg-11 (vector 0 ) arg-13 ty) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (Context-Core-logTerm (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Definition") e-11 ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((simpleDef (vector 0 (vector 1 arg-9) (Unify-Core-n--10100-9689-isSimple arg-2 arg-3 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-0 'erased e-11)))) (let ((newdef (let ((sc8 arg-10)) (let ((e-0 (vector-ref sc8 1))) (let ((e-1 (vector-ref sc8 2))) (let ((e-2 (vector-ref sc8 3))) (let ((e-3 (vector-ref sc8 4))) (let ((e-4 (vector-ref sc8 5))) (let ((e-28 (vector-ref sc8 6))) (let ((e-27 (vector-ref sc8 7))) (let ((e-26 (vector-ref sc8 8))) (let ((e-25 (vector-ref sc8 9))) (let ((e-24 (vector-ref sc8 10))) (let ((e-23 (vector-ref sc8 11))) (let ((e-22 (vector-ref sc8 12))) (let ((e-21 (vector-ref sc8 13))) (let ((e-13 (vector-ref sc8 14))) (let ((e-14 (vector-ref sc8 15))) (let ((e-15 (vector-ref sc8 16))) (let ((e-16 (vector-ref sc8 17))) (let ((e-18 (vector-ref sc8 19))) (let ((e-19 (vector-ref sc8 20))) (let ((e-20 (vector-ref sc8 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-27 e-26 e-25 e-24 e-23 e-22 e-21 e-13 e-14 e-15 e-16 (vector 1 simpleDef (vector 0 ) (vector 1 0 e-11) (vector 1 0 e-11) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-32 (Context-Core-addDef arg-0 (vector 9 arg-8) newdef ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (UnifyState-Core-removeHole arg-1 arg-8 ext-0)))))))))))))))))))))))))))))))))))))))))))) (define Unify-Core-inTermP (lambda (arg-0) (vector 0 0 arg-0 (vector 1 )))) (define Unify-Core-inTerm (lambda () (vector 0 0 0 (vector 1 )))) (define Unify-Core-inSearch (lambda () (vector 0 0 0 (vector 3 )))) @@ -4329,11 +4375,11 @@ (define Unify-Core-inLHS (lambda () (vector 0 0 0 (vector 0 )))) (define Unify-Core-ifThenElse (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (arg-2)) (else (arg-3)))))) (define UnifyResult-Unify-Core-holesSolved (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) -(define Unify-Core-headsConvert (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (Unify-Core-case--12539-12148 arg-0 e-1 e-3 arg-2 arg-1 (vector 0 (List-Data-reverse 'erased e-1) (List-Data-reverse 'erased e-3)))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing to convert") eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 0)))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing to convert") eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 0))))))))))) -(define Unify-Core-giveUpConstraints (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Unify-Core-n--22660-20958-constraintToHole arg-1 arg-0 eta-0)) (IntMap-Data-toList 'erased (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1)))) ext-0)))))))) -(define Unify-Core-getVarsTm (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (Unify-Core-case--9181-8834 'erased 'erased e-8 'erased e-7 e-6 e-3 arg-1 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) e-8 arg-1))))))(else (vector 0 ))))))))))) -(define Unify-Core-getVars (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-15 (vector-ref sc2 1))) (let ((e-16 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (Unify-Core-case--8647-8429 arg-0 'erased e-16 'erased e-15 e-5 e-3 arg-1 (Unify-Core-n--8647-8366-inArgs arg-0 'erased e-16 'erased e-15 e-5 e-3 arg-1 e-16 arg-1)))(else (vector 0 )))))))(else (vector 0 )))))))) ((4) (let ((e-12 (vector-ref sc1 4))) (Unify-Core-getVars arg-0 arg-1 (vector 1 e-12 e-3))))(else (vector 0 ))))))))))) -(define Unify-Core-getMetaNames (lambda (arg-0 arg-1 arg-2) (let ((metas (TT-Core-getMetas 'erased arg-2))) (Unify-Core-chaseMetas arg-1 (NameMap-Data-keys 'erased metas) (NameMap-Data-empty 'erased))))) +(define Unify-Core-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--12660-12285 arg-0 e-1 e-3 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 (List-Data-reverse 'erased e-1) (List-Data-reverse 'erased e-3)))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing to convert") eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 0)))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing to convert") eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 0))))))))))) +(define Unify-Core-giveUpConstraints (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Unify-Core-n--22873-21168-constraintToHole arg-1 arg-0 eta-0)) (IntMap-Data-toList 'erased (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1)))) ext-0)))))))) +(define Unify-Core-getVarsTm (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (Unify-Core-case--9223-8903 'erased 'erased e-8 'erased e-7 e-6 e-3 arg-1 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) e-8 arg-1))))))(else (vector 0 ))))))))))) +(define Unify-Core-getVars (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-15 (vector-ref sc2 1))) (let ((e-16 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (Unify-Core-case--8689-8498 arg-0 'erased e-16 'erased e-15 e-5 e-3 arg-1 (Unify-Core-n--8689-8435-inArgs arg-0 'erased e-16 'erased e-15 e-5 e-3 arg-1 e-16 arg-1)))(else (vector 0 )))))))(else (vector 0 )))))))) ((4) (let ((e-12 (vector-ref sc1 4))) (Unify-Core-getVars arg-0 arg-1 (vector 1 e-12 e-3))))(else (vector 0 ))))))))))) +(define Unify-Core-getMetaNames (lambda (arg-0 arg-1 arg-2) (let ((metas (TT-Core-getMetas 'erased arg-2))) (Unify-Core-chaseMetas arg-1 ((NameMap-Data-keys 'erased) metas) (NameMap-Data-empty 'erased))))) (define Unify-Core-getIVars (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (vector 1 e-4 (Unify-Core-getIVars 'erased 'erased e-5))))))))) (define Unify-Core-getEtaType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Unify-Core-getEtaType (vector 1 e-2 arg-0) arg-1 arg-2 (vector 1 e-3 arg-3) e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (vector 1 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 )))))) (else (vector 1 (vector 0 ))))))))))))))) ((4) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((GetType-Core-getType arg-0 arg-1 arg-3 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-3 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Normalise-Core-getNF 'erased arg-1 e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc3 1))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 3))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-11 (vector-ref sc5 3))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-14 (vector-ref sc6 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc6 1))) (let ((act-28 (Context-Core-clearDefs e-14 eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-15 (vector-ref sc7 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc7 1))) (let ((act-29 (Normalise-Core-quote_Quote__NF arg-0 e-15 arg-3 e-11 eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-16 (vector-ref sc8 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc8 1))) (vector 1 (vector 1 e-16)))))))))))))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 ))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define Unify-Core-getArgTypes (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((2) (let ((e-9 (vector-ref sc1 3))) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (((e-5 arg-1) e-11) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) ((Unify-Core-getArgTypes 'erased arg-1 e-6 e-12) eta-0)))))))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (vector 1 (vector 1 (vector 1 e-9 e-1))))) (else (vector 1 (vector 0 ))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))) @@ -4343,46 +4389,46 @@ (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--23093-21345-checkConstraint arg-1 arg-0 eta-0)) (List-Data-reverse 'erased (let ((sc2 e-5)) (let ((e-11 (vector-ref sc2 6))) e-11)))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (UnifyState-Core-getCurrentHoles arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (unbox arg-0))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (set-box! arg-0 (let ((sc5 e-9)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-13 (vector-ref sc5 7))) (let ((e-12 (vector-ref sc5 8))) (let ((e-11 (vector-ref sc5 9))) (let ((e-10 (vector-ref sc5 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-13 e-12 e-11 e-10)))))))))))))) (vector 1 act-29)))))))))))))))))))))))))) -(define Unify-Core-checkArgsSame (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupDefExact (vector 9 e-2) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((e-4 (vector-ref sc4 3))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((1) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 e-12)) (cond ((equal? sc7 0) (let ((act-26 ((Unify-Core-n--22788-21089-anySame e-2 e-3 arg-1 arg-0 e-11 e-3) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (cond ((equal? sc9 0) (vector 1 0)) (else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0))))))))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0)))))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0)))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0)))))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0))))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0)))))))))))))))))))))) -(define Unify-Core-chaseMetas (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (NameMap-Data-keys 'erased arg-2)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--7830-7600 e-2 e-3 arg-2 arg-0 (NameMap-Data-lookup 'erased e-2 arg-2))))))))) +(define 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--23306-21555-checkConstraint arg-1 arg-0 eta-0)) (List-Data-reverse 'erased (let ((sc2 e-5)) (let ((e-11 (vector-ref sc2 6))) e-11)))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (UnifyState-Core-getCurrentHoles arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (unbox arg-0))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (set-box! arg-0 (let ((sc5 e-9)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-13 (vector-ref sc5 7))) (let ((e-12 (vector-ref sc5 8))) (let ((e-11 (vector-ref sc5 9))) (let ((e-10 (vector-ref sc5 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-13 e-12 e-11 e-10)))))))))))))) (vector 1 act-29)))))))))))))))))))))))))) +(define Unify-Core-checkArgsSame (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupDefExact (vector 9 e-2) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((e-4 (vector-ref sc4 3))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((1) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 e-12)) (cond ((equal? sc7 0) (let ((act-26 ((Unify-Core-n--23001-21299-anySame e-2 e-3 arg-1 arg-0 e-11 e-3) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (cond ((equal? sc9 0) (vector 1 0)) (else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0))))))))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0)))))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0)))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0)))))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0))))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0)))))))))))))))))))))) +(define Unify-Core-chaseMetas (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 ((NameMap-Data-keys 'erased) arg-2)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--7872-7669 e-2 e-3 arg-2 arg-0 (NameMap-Data-lookup 'erased e-2 arg-2))))))))) (define UnifyInfo-Unify-Core-atTop (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (define UnifyResult-Unify-Core-addLazy (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))) -(define GetType-Core-case--5754-3706 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((5) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-3))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a delayed type") eta-0))))))) -(define GetType-Core-case--5754-3561 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((GetType-Core-chk arg-0 arg-5 arg-4 arg-1) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-10))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 arg-3 arg-4 e-5) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-6) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 arg-3 arg-4 e-5) eta-0)))))))))))) -(define GetType-Core-case--5754-3448 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-7 arg-5 (TT-Core-embed 'erased 'erased e-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((GetType-Core-chkMeta arg-0 arg-6 arg-4 arg-5 e-5 arg-1) eta-0))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-3) eta-0))))))) -(define GetType-Core-case--5754-3386 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Normalise-Core-gnf arg-0 arg-4 (TT-Core-embed 'erased 'erased e-1)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-1) eta-0))))))) +(define GetType-Core-case--5796-3714 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((5) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-3))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a delayed type") eta-0))))))) +(define GetType-Core-case--5796-3569 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((GetType-Core-chk arg-0 arg-5 arg-4 arg-1) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-10))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 arg-3 arg-4 e-5) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-6) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 arg-3 arg-4 e-5) eta-0)))))))))))) +(define GetType-Core-case--5796-3456 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-7 arg-5 (TT-Core-embed 'erased 'erased e-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((GetType-Core-chkMeta arg-0 arg-6 arg-4 arg-5 e-5 arg-1) eta-0))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-3) eta-0))))))) +(define GetType-Core-case--5796-3394 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Normalise-Core-gnf arg-0 arg-4 (TT-Core-embed 'erased 'erased e-1)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-1) eta-0))))))) (define GetType-Core-getType (lambda (arg-0 arg-1 arg-2 arg-3) (GetType-Core-chk arg-0 arg-1 arg-2 arg-3))) (define GetType-Core-discharge (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (vector 3 arg-1 arg-2 (vector 2 e-1 e-2 e-3) arg-5))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 3 arg-1 arg-2 (vector 1 e-5 e-6 e-7) arg-5))))) ((2) arg-4) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 3))) (vector 3 arg-1 arg-2 (vector 5 e-13 e-15) arg-5)))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (vector 3 arg-1 arg-2 (vector 4 e-17 e-18 e-19) arg-5))))) (else arg-4))))) (define GetType-Core-chkMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-3 arg-4)))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((GetType-Core-chk arg-0 arg-1 arg-3 e-10) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 e-10)) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc5 1))) ((GetType-Core-chkMeta arg-0 arg-1 arg-2 arg-3 e-12 e-11) eta-0)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-4 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 arg-2 arg-3 e-9) eta-0))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-4 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 arg-2 arg-3 e-6) eta-0))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-4 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 arg-2 arg-3 e-6) eta-0)))))))))))))))))))) (define GetType-Core-chkConstant (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 9 arg-1 (vector 10 ))) ((1) (vector 9 arg-1 (vector 11 ))) ((2) (vector 9 arg-1 (vector 12 ))) ((3) (vector 9 arg-1 (vector 13 ))) ((4) (vector 9 arg-1 (vector 14 ))) ((5) (vector 9 arg-1 (vector 15 ))) ((6) (vector 9 arg-1 (vector 16 ))) ((7) (vector 9 arg-1 (vector 17 ))) ((8) (vector 9 arg-1 (vector 18 ))) ((9) (vector 9 arg-1 (vector 19 )))(else (vector 11 arg-1)))))) (define GetType-Core-chkBinder (lambda (arg-0 arg-1 arg-2 arg-3) (GetType-Core-chk arg-0 arg-1 arg-2 (TT-Core-binderType 'erased arg-3)))) -(define GetType-Core-chk (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (Normalise-Core-gnf arg-0 arg-2 (TT-Core-binderType 'erased (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (TT-Core-weaken_Weaken__Term n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (TT-Core-weakenNs_Weaken__Term vars ns arg-3271))))) arg-0 e-4 'erased arg-2))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact e-9 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-2 (TT-Core-embed 'erased 'erased e-1))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-7 e-9) eta-0)))))))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact (vector 9 e-13) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-2 (TT-Core-embed 'erased 'erased e-1)) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) ((GetType-Core-chkMeta arg-0 arg-1 e-11 arg-2 e-7 e-14) eta-0)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-11 e-12) eta-0)))))))))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((GetType-Core-chkBinder arg-0 arg-1 arg-2 e-18) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((GetType-Core-chk (vector 1 e-17 arg-0) arg-1 (vector 1 e-18 arg-2) e-19) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-2 (GetType-Core-discharge 'erased e-16 e-17 e-18 e-7 e-8))))))))))))))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((GetType-Core-chk arg-0 arg-1 arg-2 e-22) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-27 ((GetType-Core-chk arg-0 arg-1 arg-2 e-23) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((act-28 (((e-4 e-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-2 e-23)) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (vector 1 (Normalise-Core-glueBack arg-0 e-10 arg-2 e-12)))))))))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 e-21 arg-2 e-7) eta-0))))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 e-21 arg-2 e-7) eta-0)))))))))))))))))))))))) ((5) (let ((e-28 (vector-ref sc0 4))) (GetType-Core-chk arg-0 arg-1 arg-2 e-28))) ((6) (let ((e-30 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Normalise-Core-gType 'erased e-30))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((GetType-Core-chk arg-0 arg-1 arg-2 e-37) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Normalise-Core-glueBack arg-0 e-7 arg-2 (vector 5 e-34 e-35 e-6))))))))))))))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((GetType-Core-chk arg-0 arg-1 arg-2 e-41) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((5) (let ((e-3 (vector-ref sc3 3))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (Normalise-Core-glueBack arg-0 e-7 arg-2 e-3)))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-39 "Not a delayed type") eta-0)))))))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Normalise-Core-gnf arg-0 arg-2 (GetType-Core-chkConstant 'erased e-43 e-44))))))) ((11) (let ((e-46 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Normalise-Core-gType 'erased e-46))))) (else (let ((e-48 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Normalise-Core-gErased 'erased e-48))))))))) -(define Metadata-Core-case--9507-3563 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-1)))))) -(define Metadata-Core-case--9497-3540 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Metadata-Core-fromBuf_TTC__TTMFile e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) (vector 1 e-1)))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0)))))))) -(define Metadata-Core-case--9437-3486 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Metadata-Core-fromBuf_TTC__TTMFile e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (set-box! arg-1 (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) e-1))))) (vector 1 act-26))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0)))))))) -(define Metadata-Core-case--9312-3425 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0)))))))) -(define Metadata-Core-case--8823-2968 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 arg-4 e-2 e-3 e-4)))))))) -(define Metadata-Core-case--8677-2755 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-1 arg-2))) (else (Metadata-Core-findEntryWith 'erased arg-4 arg-3)))))) -(define Metadata-Core-case--8612-2708 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 (vector 0 arg-4 arg-5) e-4)))))))))) -(define Metadata-Core-case--8583-2669 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 e-2 (vector 0 ) e-4)))))))) -(define Metadata-Core-case--8549-2639 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 e-2 (vector 1 arg-0) e-4)))))))) -(define Metadata-Core-case--8462-2575 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 (vector 1 (vector 0 arg-4 (vector 0 arg-8 (vector 0 (Env-Core-length 'erased 'erased arg-2) (Env-Core-bindEnv arg-0 arg-4 arg-2 arg-1)))) e-2) e-3 e-4))))))))) -(define Metadata-Core-case--8375-2498 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 (vector 1 (vector 0 arg-4 (vector 0 arg-8 (vector 0 0 (Metadata-Core-substEnv arg-0 arg-4 arg-2 arg-1)))) e-1) e-2 e-3 e-4))))))))) -(define Metadata-Core-case--8223-2406 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 (vector 1 (vector 0 arg-4 (vector 0 arg-3 arg-8)) e-0) e-1 e-2 e-3 e-4))))))))) -(define Metadata-Core-n--8223-2335-toPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (vector 1 (vector 3 e-7 e-8 e-9) (Metadata-Core-n--8223-2335-toPat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-4))))))(else (vector 1 e-3 (Metadata-Core-n--8223-2335-toPat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-4)))))))) (else (vector 0 )))))) -(define Metadata-Core-n--8823-2892-nfType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseArgHoles (vector 0 ) arg-2 (vector 0 ) e-11 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 e-5))))))))))))))))))))) -(define Metadata-Core-n--9009-3074-fullTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-5 e-6) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-11) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-2 (vector 0 e-5 (vector 0 e-10 e-8)))))))))))))))))))))))))) -(define Metadata-Core-n--9009-3073-fullLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-7) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 e-2 (vector 0 e-6 e-5))))))))))))))))) -(define Metadata-Core-n--9009-3075-fullHLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-5 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))))))) +(define GetType-Core-chk (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (Normalise-Core-gnf arg-0 arg-2 (TT-Core-binderType 'erased (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3275) (TT-Core-weaken_Weaken__Term n vars arg-3275)))) (lambda (vars) (lambda (ns) (lambda (arg-3279) (TT-Core-weakenNs_Weaken__Term vars ns arg-3279))))) arg-0 e-4 'erased arg-2))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact e-9 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-2 (TT-Core-embed 'erased 'erased e-1))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-7 e-9) eta-0)))))))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact (vector 9 e-13) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-2 (TT-Core-embed 'erased 'erased e-1)) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) ((GetType-Core-chkMeta arg-0 arg-1 e-11 arg-2 e-7 e-14) eta-0)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-11 e-12) eta-0)))))))))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((GetType-Core-chkBinder arg-0 arg-1 arg-2 e-18) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((GetType-Core-chk (vector 1 e-17 arg-0) arg-1 (vector 1 e-18 arg-2) e-19) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-2 (GetType-Core-discharge 'erased e-16 e-17 e-18 e-7 e-8))))))))))))))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((GetType-Core-chk arg-0 arg-1 arg-2 e-22) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-27 ((GetType-Core-chk arg-0 arg-1 arg-2 e-23) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((act-28 (((e-4 e-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-2 e-23)) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (vector 1 (Normalise-Core-glueBack arg-0 e-10 arg-2 e-12)))))))))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 e-21 arg-2 e-7) eta-0))))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 e-21 arg-2 e-7) eta-0)))))))))))))))))))))))) ((5) (let ((e-28 (vector-ref sc0 4))) (GetType-Core-chk arg-0 arg-1 arg-2 e-28))) ((6) (let ((e-30 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Normalise-Core-gType 'erased e-30))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((GetType-Core-chk arg-0 arg-1 arg-2 e-37) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Normalise-Core-glueBack arg-0 e-7 arg-2 (vector 5 e-34 e-35 e-6))))))))))))))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((GetType-Core-chk arg-0 arg-1 arg-2 e-41) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((5) (let ((e-3 (vector-ref sc3 3))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (Normalise-Core-glueBack arg-0 e-7 arg-2 e-3)))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-39 "Not a delayed type") eta-0)))))))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Normalise-Core-gnf arg-0 arg-2 (GetType-Core-chkConstant 'erased e-43 e-44))))))) ((11) (let ((e-46 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Normalise-Core-gType 'erased e-46))))) (else (let ((e-48 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Normalise-Core-gErased 'erased e-48))))))))) +(define Metadata-Core-case--9535-3571 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-1)))))) +(define Metadata-Core-case--9525-3548 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Metadata-Core-fromBuf_TTC__TTMFile e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) (vector 1 e-1)))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0)))))))) +(define Metadata-Core-case--9465-3494 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Metadata-Core-fromBuf_TTC__TTMFile e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (set-box! arg-1 (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) e-1))))) (vector 1 act-26))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0)))))))) +(define Metadata-Core-case--9340-3433 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0)))))))) +(define Metadata-Core-case--8851-2976 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 arg-4 e-2 e-3 e-4)))))))) +(define Metadata-Core-case--8705-2763 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-1 arg-2))) (else (Metadata-Core-findEntryWith 'erased arg-4 arg-3)))))) +(define Metadata-Core-case--8640-2716 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 (vector 0 arg-4 arg-5) e-4)))))))))) +(define Metadata-Core-case--8611-2677 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 e-2 (vector 0 ) e-4)))))))) +(define Metadata-Core-case--8577-2647 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 e-2 (vector 1 arg-0) e-4)))))))) +(define Metadata-Core-case--8490-2583 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 (vector 1 (vector 0 arg-4 (vector 0 arg-8 (vector 0 (Env-Core-length 'erased 'erased arg-2) (Env-Core-bindEnv arg-0 arg-4 arg-2 arg-1)))) e-2) e-3 e-4))))))))) +(define Metadata-Core-case--8403-2506 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 (vector 1 (vector 0 arg-4 (vector 0 arg-8 (vector 0 0 (Metadata-Core-substEnv arg-0 arg-4 arg-2 arg-1)))) e-1) e-2 e-3 e-4))))))))) +(define Metadata-Core-case--8251-2414 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 (vector 1 (vector 0 arg-4 (vector 0 arg-3 arg-8)) e-0) e-1 e-2 e-3 e-4))))))))) +(define Metadata-Core-n--8251-2343-toPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (vector 1 (vector 3 e-7 e-8 e-9) (Metadata-Core-n--8251-2343-toPat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-4))))))(else (vector 1 e-3 (Metadata-Core-n--8251-2343-toPat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-4)))))))) (else (vector 0 )))))) +(define Metadata-Core-n--8851-2900-nfType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseArgHoles (vector 0 ) arg-2 (vector 0 ) e-11 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 e-5))))))))))))))))))))) +(define Metadata-Core-n--9037-3082-fullTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-5 e-6) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-11) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-2 (vector 0 e-5 (vector 0 e-10 e-8)))))))))))))))))))))))))) +(define Metadata-Core-n--9037-3081-fullLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-7) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 e-2 (vector 0 e-6 e-5))))))))))))))))) +(define Metadata-Core-n--9037-3083-fullHLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-5 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))))))) (define Metadata-Core-toBuf_TTC__TTMFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Binary-Utils-toBuf_TTC__String arg-0 "TTM") ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__Int arg-0 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Metadata-Core-toBuf_TTC__Metadata arg-0 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 2))) e-1)) ext-0))))))))))) -(define Metadata-Core-toBuf_TTC__Metadata (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__FC arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__FC arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0)))) arg-0 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__FC arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Nat arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2109 eta-0)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 eta-0))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__FC arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-2109 eta-3)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0)))) arg-0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__FC arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Nat arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2109 eta-0)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 eta-0))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__FC arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-2109 eta-3)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0)))) arg-0 (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 3))) e-2)) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2107 eta-1))))) arg-2106 eta-0)))) arg-0 (let ((sc3 arg-1)) (let ((e-4 (vector-ref sc3 5))) e-4)) ext-0))))))))))))))) +(define Metadata-Core-toBuf_TTC__Metadata (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__FC arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-0)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2125 eta-1))))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__FC arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 eta-0)))) arg-0 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__FC arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__Name arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-0)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__Nat arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2127 eta-0)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2127 eta-0))))) arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Nat arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-1))))) arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Nat arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-1))))) arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__FC arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Nat arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-1))))) arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-2))))) arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-2127 eta-3)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2127 eta-3))))) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 eta-0)))) arg-0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__FC arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__Name arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-0)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__Nat arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2127 eta-0)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2127 eta-0))))) arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Nat arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-1))))) arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Nat arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-1))))) arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__FC arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Nat arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-1))))) arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-2))))) arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-2127 eta-3)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2127 eta-3))))) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 eta-0)))) arg-0 (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 3))) e-2)) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2125 eta-1))))) arg-2124 eta-0)))) arg-0 (let ((sc3 arg-1)) (let ((e-4 (vector-ref sc3 5))) e-4)) ext-0))))))))))))))) (define Metadata-Core-show_Show__Metadata (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 "Metadata:\u000a" (Strings-Prelude-C-43C-43 " lhsApps: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__Nat d x-1)))) (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__Nat d-1 x-1)))) (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-1 x-1))))) d-0 x-0))))) d x)))) e-0) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 " names: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__Nat d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__Nat d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__Nat d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__Nat d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__Nat d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__Nat d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__Nat d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__Nat d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x)))) e-1) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 " type declarations: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__Nat d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__Nat d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__Nat d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__Nat d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__Nat d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__Nat d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__Nat d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__Nat d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x)))) e-2) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 " current LHS: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) e-3) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 " holes: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d-0) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-0))))) d x)))) e-4))))))))))))))))))))))) -(define Metadata-Core-full_HasNames__Metadata (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--9009-3073-fullLHS e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--9009-3074-fullTy e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--9009-3074-fullTy e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--9009-3075-fullHLHS e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-4) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-5 e-6 e-7 (vector 0 ) e-8))))))))))))))))))))))))))))))) +(define Metadata-Core-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--9037-3081-fullLHS e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--9037-3082-fullTy e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--9037-3082-fullTy e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--9037-3083-fullHLHS e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-4) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-5 e-6 e-7 (vector 0 ) e-8))))))))))))))))))))))))))))))) (define Metadata-Core-fromBuf_TTC__TTMFile (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((sc1 (Prelude-C-47C-61_Eq__String e-5 "TTM"))) (cond ((equal? sc1 0) (Binary-Utils-corrupt 'erased "TTM header" ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Binary-Core-checkTTCVersion "" e-7 (Binary-Core-ttcVersion)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (Metadata-Core-fromBuf_TTC__Metadata arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (vector 0 e-7 e-9))))))))))))))))))))))))))) -(define Metadata-Core-fromBuf_TTC__Metadata (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__FC arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__FC arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__FC arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Nat arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2109 eta-0)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 eta-0))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__FC arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-2109 eta-3)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__FC arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Nat arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2109 eta-0)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 eta-0))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__FC arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-2109 eta-3)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2107 eta-1))))) arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 e-6 e-7 (vector 0 ) e-8)))))))))))))))))))))))) -(define Metadata-Core-__Impl_TTC_TTMFile (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Metadata-Core-toBuf_TTC__TTMFile arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Metadata-Core-fromBuf_TTC__TTMFile arg-2106 eta-0)))))) -(define Metadata-Core-writeToTTM (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Metadata-Core-normaliseTypes arg-1 arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-initBinary ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 ((Metadata-Core-full_HasNames__Metadata (let ((sc4 e-8)) (let ((e-0 (vector-ref sc4 1))) e-0)) e-7) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (Metadata-Core-toBuf_TTC__TTMFile e-6 (vector 0 (Binary-Core-ttcVersion) e-9) ext-0)))))))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 (let ((act-29 (unbox e-6))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Binary-Utils-writeToFile arg-2 e-10 ext-0))) (vector 1 act-30))))))))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((1) (vector 1 (vector 0 ))) (else (let ((e-11 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-11)))) ext-0))))))))))))))))))))))))))))))))))) +(define Metadata-Core-fromBuf_TTC__Metadata (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__FC arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-0)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2125 eta-1))))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__FC arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__FC arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__Name arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-0)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__Nat arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2127 eta-0)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2127 eta-0))))) arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Nat arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-1))))) arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Nat arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-1))))) arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__FC arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Nat arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-1))))) arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-2))))) arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-2127 eta-3)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2127 eta-3))))) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__FC arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__Name arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-0)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__Nat arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2127 eta-0)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2127 eta-0))))) arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Nat arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-1))))) arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Nat arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-1))))) arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__FC arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Nat arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-1))))) arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-2))))) arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-2127 eta-3)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2127 eta-3))))) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2125 eta-1))))) arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 e-6 e-7 (vector 0 ) e-8)))))))))))))))))))))))) +(define Metadata-Core-__Impl_TTC_TTMFile (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Metadata-Core-toBuf_TTC__TTMFile arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Metadata-Core-fromBuf_TTC__TTMFile arg-2124 eta-0)))))) +(define Metadata-Core-writeToTTM (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Metadata-Core-normaliseTypes arg-1 arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-initBinary ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 ((Metadata-Core-full_HasNames__Metadata (let ((sc4 e-8)) (let ((e-0 (vector-ref sc4 1))) e-0)) e-7) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (Metadata-Core-toBuf_TTC__TTMFile e-6 (vector 0 (Binary-Core-ttcVersion) e-9) ext-0)))))))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 (let ((act-29 (unbox e-6))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 ((Binary-Utils-writeToFile arg-2 e-10) ext-0))) (vector 1 act-30))))))))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((1) (vector 1 (vector 0 ))) (else (let ((e-11 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-11)))) ext-0))))))))))))))))))))))))))))))))))) (define Metadata-Core-withCurrentLHS (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-getFullName arg-0 arg-2) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (lhs) (lambda (eta-0) (let ((act-26 (set-box! arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 (vector 0 e-6 lhs) e-4))))))))))) (vector 1 act-26))))) (let ((sc2 e-5)) (let ((e-3 (vector-ref sc2 4))) e-3))) ext-0))))))))))))) (define TTMFile-Metadata-Core-version (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (define Metadata-Metadata-Core-tydecls (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) @@ -4390,7 +4436,7 @@ (define Metadata-Core-setHoleLHS (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 5))) (vector 0 e-0 e-1 e-2 (vector 1 arg-1) e-4))))))))) (vector 1 act-25))))))))) (define Metadata-Core-readMetadata (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (Binary-Utils-readFromFile arg-0 ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Metadata-Core-fromBuf_TTC__TTMFile e-6 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-1 (vector-ref sc4 2))) (vector 1 e-1))))))))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-6)))) ext-0)))))))))))) (define Metadata-Core-readFromTTM (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (Binary-Utils-readFromFile arg-1 ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Metadata-Core-fromBuf_TTC__TTMFile e-6 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (set-box! arg-0 (let ((sc4 e-7)) (let ((e-1 (vector-ref sc4 2))) e-1))))) (vector 1 act-27)))))))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-6)))) ext-0)))))))))))) -(define Metadata-Core-normaliseTypes (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Metadata-Core-n--8823-2892-nfType arg-1 arg-0 e-6 eta-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (set-box! arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (vector 0 e-0 e-7 e-2 e-3 e-4))))))))) (vector 1 act-27))))))))))))))))))) +(define Metadata-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--8851-2900-nfType arg-1 arg-0 e-6 eta-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (set-box! arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (vector 0 e-0 e-7 e-2 e-3 e-4))))))))) (vector 1 act-27))))))))))))))))))) (define Metadata-Metadata-Core-names (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (define TTMFile-Metadata-Core-metadata (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (define Metadata-Metadata-Core-lhsApps (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) @@ -4400,66 +4446,66 @@ (define Metadata-Core-findTyDeclAt (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Metadata-Core-findEntryWith 'erased arg-1 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))))))))))) (define Metadata-Core-findLHSAt (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Metadata-Core-findEntryWith 'erased (lambda (loc) (lambda (tm) ((arg-1 loc) (Builtin-snd 'erased 'erased tm)))) (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))))))))))) (define Metadata-Core-findHoleLHS (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (List-Data-lookupBy 'erased 'erased (lambda (x) (lambda (y) (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS x) (Name-Core-dropNS y)))) arg-1 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4))))))))))) -(define Metadata-Core-findEntryWith (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Metadata-Core-case--8677-2755 'erased e-6 e-7 e-3 arg-1 ((arg-1 e-6) e-7)))))))))))) -(define Metadata-Core-dumpTTM (lambda (arg-0 ext-0) (let ((act-24 (Metadata-Core-readMetadata arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Metadata-Core-show_Show__Metadata e-5)) ext-0))) (vector 1 act-25))))))))) +(define Metadata-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--8705-2763 'erased e-6 e-7 e-3 arg-1 ((arg-1 e-6) e-7)))))))))))) +(define Metadata-Core-dumpTTM (lambda (arg-0 ext-0) (let ((act-24 (Metadata-Core-readMetadata arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Metadata-Core-show_Show__Metadata e-5)) ext-0))) (vector 1 act-25))))))))) (define Metadata-Metadata-Core-currentLHS (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))) (define Metadata-Core-clearHoleLHS (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 5))) (vector 0 e-0 e-1 e-2 (vector 0 ) e-4))))))))) (vector 1 act-25))))))))) (define Metadata-Core-addTyDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-getFullName arg-1 arg-4) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (vector 0 e-0 e-1 (vector 1 (vector 0 arg-3 (vector 0 e-6 (vector 0 (Env-Core-length 'erased 'erased arg-5) (Env-Core-bindEnv arg-0 arg-3 arg-5 arg-6)))) e-2) e-3 e-4)))))))))) (vector 1 act-26)))))))))))))) (define Metadata-Core-addNameType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-getFullName arg-1 arg-4) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (vector 0 e-0 (vector 1 (vector 0 arg-3 (vector 0 e-6 (vector 0 0 (Metadata-Core-substEnv arg-0 arg-3 arg-5 arg-6)))) e-1) e-2 e-3 e-4)))))))))) (vector 1 act-26)))))))))))))) -(define Metadata-Core-addLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) (Env-Core-bindEnv arg-0 arg-3 (Metadata-Core-n--8223-2335-toPat arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased arg-5) arg-6) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (vector 0 (vector 1 (vector 0 arg-3 (vector 0 arg-4 e-6)) e-0) e-1 e-2 e-3 e-4)))))))))) (vector 1 act-26)))))))))))))) -(define Rewrite-Elab-TTImp-case--9753-6878 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-29)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 3 arg-4 arg-25 arg-26 (vector 3 arg-4 arg-24 arg-27 e-2)) (Normalise-Core-gnf arg-0 arg-5 (vector 3 arg-4 arg-25 arg-26 (vector 3 arg-4 arg-24 arg-27 e-5)))))))))))))))) -(define Rewrite-Elab-TTImp-case--9673-6705 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-12 arg-10 "_" eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (UnifyState-Core-genVarName arg-12 arg-10 "_" eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((pbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-6 e-7))) (let ((rbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (TT-Core-weaken_Weaken__Term e-8 arg-0 arg-14) (TT-Core-weaken_Weaken__Term e-8 arg-0 arg-17)))) (let ((envC-39 (vector 1 rbind (vector 1 pbind arg-5)))) (let ((act-26 (Check-Elab-TTImp-inScope 'erased e-8 arg-0 arg-12 arg-9 arg-4 (vector 1 pbind arg-5) (lambda (eC-39) (lambda (eta-1) (Check-Elab-TTImp-inScope 'erased e-5 (vector 1 e-8 arg-0) arg-12 eC-39 arg-4 envC-39 (lambda (eC-39C-39) (Check-Elab-TTImp-check (vector 1 e-5 (vector 1 e-8 arg-0)) arg-12 arg-11 arg-10 eC-39C-39 arg-8 arg-7 (TTImp-TTImp-weaken_Weaken__NestedNames e-5 (vector 1 e-8 arg-0) (TTImp-TTImp-weaken_Weaken__NestedNames e-8 arg-0 arg-6)) envC-39 (TTImp-TTImp-apply (vector 0 arg-4 e-2) (vector 1 (vector 0 arg-4 e-8) (vector 1 (vector 0 arg-4 e-5) (vector 1 arg-2 (vector 0 ))))) (vector 1 (Normalise-Core-gnf (vector 1 e-5 (vector 1 e-8 arg-0)) envC-39 (TT-Core-weakenNs_Weaken__Term arg-0 (vector 1 e-5 (vector 1 e-8 (vector 0 ))) arg-18))))) eta-1))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (let ((e-10 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-27 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 0 (vector 3 arg-4 e-8 pbind (vector 3 arg-4 e-5 rbind e-10)) (Normalise-Core-gnf arg-0 arg-5 (vector 3 arg-4 e-8 pbind (vector 3 arg-4 e-5 rbind e-11)))))))))))))))))))))))))))))))))))))))) -(define Rewrite-Elab-TTImp-case--9620-6636 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 arg-13)) (cond ((equal? sc3 0) (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retrying rewrite") eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-27 (Rewrite-Elab-TTImp-elabRewrite arg-0 arg-12 arg-10 arg-4 arg-5 e-6 e-5 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((act-28 (UnifyState-Core-genVarName arg-12 arg-10 "_" eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-29 (UnifyState-Core-genVarName arg-12 arg-10 "_" eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((pbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-11 e-10))) (let ((rbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (TT-Core-weaken_Weaken__Term e-13 arg-0 e-2) (TT-Core-weaken_Weaken__Term e-13 arg-0 e-5)))) (let ((envC-39 (vector 1 rbind (vector 1 pbind arg-5)))) (let ((act-30 (Check-Elab-TTImp-inScope 'erased e-13 arg-0 arg-12 arg-9 arg-4 (vector 1 pbind arg-5) (lambda (eC-39) (lambda (eta-1) (Check-Elab-TTImp-inScope 'erased e-12 (vector 1 e-13 arg-0) arg-12 eC-39 arg-4 envC-39 (lambda (eC-39C-39) (Check-Elab-TTImp-check (vector 1 e-12 (vector 1 e-13 arg-0)) arg-12 arg-11 arg-10 eC-39C-39 arg-8 arg-7 (TTImp-TTImp-weaken_Weaken__NestedNames e-12 (vector 1 e-13 arg-0) (TTImp-TTImp-weaken_Weaken__NestedNames e-13 arg-0 arg-6)) envC-39 (TTImp-TTImp-apply (vector 0 arg-4 e-9) (vector 1 (vector 0 arg-4 e-13) (vector 1 (vector 0 arg-4 e-12) (vector 1 arg-2 (vector 0 ))))) (vector 1 (Normalise-Core-gnf (vector 1 e-12 (vector 1 e-13 arg-0)) envC-39 (TT-Core-weakenNs_Weaken__Term arg-0 (vector 1 e-12 (vector 1 e-13 (vector 0 ))) e-6))))) eta-1))) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (let ((sc10 e-14)) (let ((e-16 (vector-ref sc10 1))) (let ((e-15 (vector-ref sc10 2))) (let ((act-31 ((Normalise-Core-getTerm 'erased e-15) eta-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (vector 1 (vector 0 (vector 3 arg-4 e-13 pbind (vector 3 arg-4 e-12 rbind e-16)) (Normalise-Core-gnf arg-0 arg-5 (vector 3 arg-4 e-13 pbind (vector 3 arg-4 e-12 rbind e-17)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Rewrite-Elab-TTImp-case--9415-6418 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Rewrite-Elab-TTImp-findRewriteLemma 'erased arg-6 arg-4 arg-1 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf arg-0 arg-7 arg-3 arg-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewriting") arg-3 e-2 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-27 (Normalise-Core-logNF arg-0 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewriting in") arg-3 e-8 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (Normalise-Core-replace arg-0 arg-7 arg-3 e-2 (vector 1 arg-4 (vector 0 ) arg-8) e-8 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-29 (Context-Core-logTerm arg-0 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewritten to") e-11 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-30 (Context-Core-clearDefs arg-7 eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-31 (Normalise-Core-quote_Quote__NF arg-0 e-13 arg-3 e-7 eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc9 1))) (let ((pred (vector 3 arg-4 arg-8 (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-14) (TT-Core-refsToLocals 'erased (vector 1 arg-8 (vector 0 )) (vector 1 arg-8 arg-8 (vector 0 )) e-11)))) (let ((act-32 ((GetType-Core-getType arg-0 arg-6 arg-3 pred) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-33 ((Normalise-Core-getTerm 'erased e-15) eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-34 (Normalise-Core-quote_Quote__Term arg-0 arg-7 arg-3 arg-2 eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-35 (let ((act-35 (Normalise-Core-convert_Convert__Term arg-0 arg-7 arg-3 e-11 e-17 eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc13 1))) (let ((sc14 e-18)) (cond ((equal? sc14 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 40 arg-0 arg-4 arg-3 arg-1 e-17) eta-0)) (else (vector 1 (vector 0 )))))))))))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-5 (vector 0 pred e-16)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Rewrite-Elab-TTImp-case--9189-6200 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-4) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-1) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-10) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (vector 0 e-6 (vector 0 e-9 e-12)))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0))))))) -(define Rewrite-Elab-TTImp-case--9166-6175 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (let ((bind-0 0)) (Rewrite-Elab-TTImp-case--9189-6200 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 bind-0 (List-Data-reverse 'erased arg-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0))))))) -(define Rewrite-Elab-TTImp-case--9119-6132 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 "No rewrite lemma defined") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))))))) +(define Metadata-Core-addLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) (Env-Core-bindEnv arg-0 arg-3 (Metadata-Core-n--8251-2343-toPat arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased arg-5) arg-6) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (vector 0 (vector 1 (vector 0 arg-3 (vector 0 arg-4 e-6)) e-0) e-1 e-2 e-3 e-4)))))))))) (vector 1 act-26)))))))))))))) +(define Rewrite-Elab-TTImp-case--9804-6886 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-29)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 3 arg-4 arg-25 arg-26 (vector 3 arg-4 arg-24 arg-27 e-2)) (Normalise-Core-gnf arg-0 arg-5 (vector 3 arg-4 arg-25 arg-26 (vector 3 arg-4 arg-24 arg-27 e-5)))))))))))))))) +(define Rewrite-Elab-TTImp-case--9724-6713 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-12 arg-10 "_" eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (UnifyState-Core-genVarName arg-12 arg-10 "_" eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((pbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-6 e-7))) (let ((rbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (TT-Core-weaken_Weaken__Term e-8 arg-0 arg-14) (TT-Core-weaken_Weaken__Term e-8 arg-0 arg-17)))) (let ((envC-39 (vector 1 rbind (vector 1 pbind arg-5)))) (let ((act-26 (Check-Elab-TTImp-inScope 'erased e-8 arg-0 arg-12 arg-9 arg-4 (vector 1 pbind arg-5) (lambda (eC-39) (lambda (eta-1) (Check-Elab-TTImp-inScope 'erased e-5 (vector 1 e-8 arg-0) arg-12 eC-39 arg-4 envC-39 (lambda (eC-39C-39) (Check-Elab-TTImp-check (vector 1 e-5 (vector 1 e-8 arg-0)) arg-12 arg-11 arg-10 eC-39C-39 arg-8 arg-7 (TTImp-TTImp-weaken_Weaken__NestedNames e-5 (vector 1 e-8 arg-0) (TTImp-TTImp-weaken_Weaken__NestedNames e-8 arg-0 arg-6)) envC-39 (TTImp-TTImp-apply (vector 0 arg-4 e-2) (vector 1 (vector 0 arg-4 e-8) (vector 1 (vector 0 arg-4 e-5) (vector 1 arg-2 (vector 0 ))))) (vector 1 (Normalise-Core-gnf (vector 1 e-5 (vector 1 e-8 arg-0)) envC-39 (TT-Core-weakenNs_Weaken__Term arg-0 (vector 1 e-5 (vector 1 e-8 (vector 0 ))) arg-18))))) eta-1))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (let ((e-10 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-27 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 0 (vector 3 arg-4 e-8 pbind (vector 3 arg-4 e-5 rbind e-10)) (Normalise-Core-gnf arg-0 arg-5 (vector 3 arg-4 e-8 pbind (vector 3 arg-4 e-5 rbind e-11)))))))))))))))))))))))))))))))))))))))) +(define Rewrite-Elab-TTImp-case--9671-6644 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 arg-13)) (cond ((equal? sc3 0) (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retrying rewrite") eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-27 (Rewrite-Elab-TTImp-elabRewrite arg-0 arg-12 arg-10 arg-4 arg-5 e-6 e-5 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((act-28 (UnifyState-Core-genVarName arg-12 arg-10 "_" eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-29 (UnifyState-Core-genVarName arg-12 arg-10 "_" eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((pbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-11 e-10))) (let ((rbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (TT-Core-weaken_Weaken__Term e-13 arg-0 e-2) (TT-Core-weaken_Weaken__Term e-13 arg-0 e-5)))) (let ((envC-39 (vector 1 rbind (vector 1 pbind arg-5)))) (let ((act-30 (Check-Elab-TTImp-inScope 'erased e-13 arg-0 arg-12 arg-9 arg-4 (vector 1 pbind arg-5) (lambda (eC-39) (lambda (eta-1) (Check-Elab-TTImp-inScope 'erased e-12 (vector 1 e-13 arg-0) arg-12 eC-39 arg-4 envC-39 (lambda (eC-39C-39) (Check-Elab-TTImp-check (vector 1 e-12 (vector 1 e-13 arg-0)) arg-12 arg-11 arg-10 eC-39C-39 arg-8 arg-7 (TTImp-TTImp-weaken_Weaken__NestedNames e-12 (vector 1 e-13 arg-0) (TTImp-TTImp-weaken_Weaken__NestedNames e-13 arg-0 arg-6)) envC-39 (TTImp-TTImp-apply (vector 0 arg-4 e-9) (vector 1 (vector 0 arg-4 e-13) (vector 1 (vector 0 arg-4 e-12) (vector 1 arg-2 (vector 0 ))))) (vector 1 (Normalise-Core-gnf (vector 1 e-12 (vector 1 e-13 arg-0)) envC-39 (TT-Core-weakenNs_Weaken__Term arg-0 (vector 1 e-12 (vector 1 e-13 (vector 0 ))) e-6))))) eta-1))) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (let ((sc10 e-14)) (let ((e-16 (vector-ref sc10 1))) (let ((e-15 (vector-ref sc10 2))) (let ((act-31 ((Normalise-Core-getTerm 'erased e-15) eta-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (vector 1 (vector 0 (vector 3 arg-4 e-13 pbind (vector 3 arg-4 e-12 rbind e-16)) (Normalise-Core-gnf arg-0 arg-5 (vector 3 arg-4 e-13 pbind (vector 3 arg-4 e-12 rbind e-17)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Rewrite-Elab-TTImp-case--9466-6426 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Rewrite-Elab-TTImp-findRewriteLemma 'erased arg-6 arg-4 arg-1 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf arg-0 arg-7 arg-3 arg-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewriting") arg-3 e-2 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-27 (Normalise-Core-logNF arg-0 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewriting in") arg-3 e-8 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (Normalise-Core-replace arg-0 arg-7 arg-3 e-2 (vector 1 arg-4 (vector 0 ) arg-8) e-8 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-29 (Context-Core-logTerm arg-0 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewritten to") e-11 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-30 (Context-Core-clearDefs arg-7 eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-31 (Normalise-Core-quote_Quote__NF arg-0 e-13 arg-3 e-7 eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc9 1))) (let ((pred (vector 3 arg-4 arg-8 (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-14) (TT-Core-refsToLocals 'erased (vector 1 arg-8 (vector 0 )) (vector 1 arg-8 arg-8 (vector 0 )) e-11)))) (let ((act-32 ((GetType-Core-getType arg-0 arg-6 arg-3 pred) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-33 ((Normalise-Core-getTerm 'erased e-15) eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-34 (Normalise-Core-quote_Quote__Term arg-0 arg-7 arg-3 arg-2 eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-35 (let ((act-35 (Normalise-Core-convert_Convert__Term arg-0 arg-7 arg-3 e-11 e-17 eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc13 1))) (let ((sc14 e-18)) (cond ((equal? sc14 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 40 arg-0 arg-4 arg-3 arg-1 e-17) eta-0)) (else (vector 1 (vector 0 )))))))))))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-5 (vector 0 pred e-16)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Rewrite-Elab-TTImp-case--9240-6208 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-4) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-1) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-10) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (vector 0 e-6 (vector 0 e-9 e-12)))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0))))))) +(define Rewrite-Elab-TTImp-case--9217-6183 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (let ((bind-0 0)) (Rewrite-Elab-TTImp-case--9240-6208 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 bind-0 (List-Data-reverse 'erased arg-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0))))))) +(define Rewrite-Elab-TTImp-case--9170-6140 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 "No rewrite lemma defined") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))))))) (define Rewrite-Elab-TTImp-rewriteErr (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((41) 0) ((40) 0) ((56) (let ((e-11 (vector-ref sc0 3))) (Rewrite-Elab-TTImp-rewriteErr e-11))) ((57) (let ((e-14 (vector-ref sc0 3))) (Rewrite-Elab-TTImp-rewriteErr e-14))) ((58) (let ((e-17 (vector-ref sc0 3))) (Rewrite-Elab-TTImp-rewriteErr e-17))) ((59) (let ((e-20 (vector-ref sc0 3))) (Rewrite-Elab-TTImp-rewriteErr e-20))) ((5) (let ((e-26 (vector-ref sc0 6))) (Rewrite-Elab-TTImp-rewriteErr e-26)))(else 1))))) -(define Rewrite-Elab-TTImp-getRewriteTerms (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-isEqualTy arg-1 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (let ((bind-0 0)) ((Rewrite-Elab-TTImp-case--9189-6200 arg-0 e-5 e-4 e-3 e-2 e-1 arg-5 arg-3 arg-2 arg-1 bind-0 (List-Data-reverse 'erased e-5)) eta-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased arg-5 eta-0))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-5 eta-0))))))) +(define Rewrite-Elab-TTImp-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--9240-6208 arg-0 e-5 e-4 e-3 e-2 e-1 arg-5 arg-3 arg-2 arg-1 bind-0 (List-Data-reverse 'erased e-5)) eta-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased arg-5 eta-0))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-5 eta-0))))))) (define Rewrite-Elab-TTImp-findRewriteLemma (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-getRewrite arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 "No rewrite lemma defined") ext-0)) (else (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2)))))))))))) (define Rewrite-Elab-TTImp-elabRewrite (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (UnifyState-Core-genVarName arg-1 arg-2 "rwarg" ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-4 arg-6) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Rewrite-Elab-TTImp-getRewriteTerms arg-0 arg-1 arg-3 e-5 e-7 (vector 41 arg-0 arg-3 arg-4 arg-6)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (let ((e-9 (vector-ref sc5 2))) (let ((act-28 (Rewrite-Elab-TTImp-findRewriteLemma 'erased arg-1 arg-3 arg-6 ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-29 ((Normalise-Core-nf arg-0 e-5 arg-4 arg-5) ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-30 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewriting") arg-4 e-2 ext-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-31 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewriting in") arg-4 e-12 ext-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 (Normalise-Core-replace arg-0 e-5 arg-4 e-2 (vector 1 arg-3 (vector 0 ) e-6) e-12 ext-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-33 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewritten to") e-15 ext-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-34 (Context-Core-clearDefs e-5 ext-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-35 (Normalise-Core-quote_Quote__NF arg-0 e-17 arg-4 e-9 ext-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc13 1))) (let ((pred (vector 3 arg-3 e-6 (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-18) (TT-Core-refsToLocals 'erased (vector 1 e-6 (vector 0 )) (vector 1 e-6 e-6 (vector 0 )) e-15)))) (let ((act-36 ((GetType-Core-getType arg-0 arg-1 arg-4 pred) ext-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc14 1))) (let ((act-37 ((Normalise-Core-getTerm 'erased e-19) ext-0))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc15 1))) (let ((act-38 (Normalise-Core-quote_Quote__Term arg-0 e-5 arg-4 arg-5 ext-0))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc16 1))) (let ((act-39 (let ((act-39 (Normalise-Core-convert_Convert__Term arg-0 e-5 arg-4 e-15 e-21 ext-0))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc17 1))) (let ((sc18 e-22)) (cond ((equal? sc18 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 40 arg-0 arg-3 arg-4 arg-6 e-21) ext-0)) (else (vector 1 (vector 0 )))))))))))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-11 (vector 0 pred e-20))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Rewrite-Elab-TTImp-checkRewrite (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Can't infer a type for rewrite") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-2 (lambda (eta-1) (Rewrite-Elab-TTImp-rewriteErr eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (delayed) (lambda (eta-1) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-10 (vector 0 )) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-2) eta-1))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (let ((sc5 delayed)) (cond ((equal? sc5 0) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retrying rewrite") eta-1)) (else (vector 1 (vector 0 ))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((act-28 (Rewrite-Elab-TTImp-elabRewrite arg-0 arg-1 arg-3 arg-9 arg-8 e-7 e-6 eta-1))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (let ((e-11 (vector-ref sc7 1))) (let ((e-10 (vector-ref sc7 2))) (let ((sc8 e-10)) (let ((e-13 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((act-29 (UnifyState-Core-genVarName arg-1 arg-3 "_" eta-1))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-30 (UnifyState-Core-genVarName arg-1 arg-3 "_" eta-1))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc10 1))) (let ((pbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-13 e-12))) (let ((rbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (TT-Core-weaken_Weaken__Term e-15 arg-0 e-4) (TT-Core-weaken_Weaken__Term e-15 arg-0 e-6)))) (let ((envC-39 (vector 1 rbind (vector 1 pbind arg-8)))) (let ((act-31 (Check-Elab-TTImp-inScope 'erased e-15 arg-0 arg-1 arg-4 arg-9 (vector 1 pbind arg-8) (lambda (eC-39) (lambda (eta-2) (Check-Elab-TTImp-inScope 'erased e-14 (vector 1 e-15 arg-0) arg-1 eC-39 arg-9 envC-39 (lambda (eC-39C-39) (Check-Elab-TTImp-check (vector 1 e-14 (vector 1 e-15 arg-0)) arg-1 arg-2 arg-3 eC-39C-39 arg-5 arg-6 (TTImp-TTImp-weaken_Weaken__NestedNames e-14 (vector 1 e-15 arg-0) (TTImp-TTImp-weaken_Weaken__NestedNames e-15 arg-0 arg-7)) envC-39 (TTImp-TTImp-apply (vector 0 arg-9 e-11) (vector 1 (vector 0 arg-9 e-15) (vector 1 (vector 0 arg-9 e-14) (vector 1 arg-11 (vector 0 ))))) (vector 1 (Normalise-Core-gnf (vector 1 e-14 (vector 1 e-15 arg-0)) envC-39 (TT-Core-weakenNs_Weaken__Term arg-0 (vector 1 e-14 (vector 1 e-15 (vector 0 ))) e-7))))) eta-2))) eta-1))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) (let ((sc12 e-16)) (let ((e-18 (vector-ref sc12 1))) (let ((e-17 (vector-ref sc12 2))) (let ((act-32 ((Normalise-Core-getTerm 'erased e-17) eta-1))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-19 (vector-ref sc13 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc13 1))) (vector 1 (vector 0 (vector 3 arg-9 e-15 pbind (vector 3 arg-9 e-14 rbind e-18)) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-15 pbind (vector 3 arg-9 e-14 rbind e-19)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) eta-0)))))))) -(define Record-Elab-TTImp-case--10393-7439 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-3)))))) -(define Record-Elab-TTImp-case--10131-7370 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1))))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 (vector 0 )) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 2))) (vector 1 e-3)))))))))))))) -(define Record-Elab-TTImp-case--10131-7243 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (Normalise-Core-gnf arg-0 arg-5 arg-17)) (else arg-13))))) -(define Record-Elab-TTImp-case--10131-7157 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) -(define Record-Elab-TTImp-case--9950-7005 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Record-Elab-TTImp-genFieldName arg-10 "__fld" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Record-Elab-TTImp-getAllSides arg-11 arg-10 arg-6 arg-3 e-1 arg-2 (vector 0 e-5 (vector 0 arg-6 (vector 1 e-5)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 arg-6 arg-2 (vector 31 arg-6 1) (vector 1 (Record-Elab-TTImp-n--9950-6984-mkClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-6) (vector 0 ))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 22 arg-0 arg-6 arg-4) eta-0))))))) -(define Record-Elab-TTImp-case--9694-6779 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Record-Elab-TTImp-findPath arg-9 arg-8 arg-7 arg-1 arg-6 e-1 arg-4 arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 arg-3 (Record-Elab-TTImp-replace arg-0 e-5 arg-2))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 23 arg-7 arg-0 arg-5) eta-0))))))) -(define Record-Elab-TTImp-case--9645-6744 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Record-Elab-TTImp-case--9694-6779 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-1 _-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-0 e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-3 arg-2)))))))) -(define Record-Elab-TTImp-case--9381-6703 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Record-Elab-TTImp-findFields e-5 arg-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-2))) ((Record-Elab-TTImp-case--9694-6779 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 e-5 e-2 _-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-0 e-2)) eta-0)))) (else (vector 1 (vector 1 arg-3 arg-2)))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 23 arg-7 arg-0 arg-5) eta-0))))))) -(define Record-Elab-TTImp-case--9475-6587 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Record-Elab-TTImp-n--9381-6502-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((recC-39 (vector 1 arg-11 e-5))) ((Record-Elab-TTImp-findPath arg-9 arg-8 arg-7 (vector 1 arg-0 arg-1) arg-6 (vector 1 arg-2) arg-5 recC-39) eta-0)))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-7 arg-2) eta-0))))))) -(define Record-Elab-TTImp-case--9381-6553 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Record-Elab-TTImp-findFields arg-10 e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 ((Record-Elab-TTImp-n--9381-6502-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((recC-39 (vector 1 e-1 e-6))) ((Record-Elab-TTImp-findPath arg-9 arg-8 arg-7 (vector 1 arg-0 arg-1) arg-6 (vector 1 arg-2) arg-5 recC-39) eta-0))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-7 arg-2) eta-0)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-7 arg-2) eta-0))))))) -(define Record-Elab-TTImp-case--9319-6422 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-4 arg-3) arg-2)) (else (vector 1 (vector 0 arg-0 arg-1) (Record-Elab-TTImp-replace arg-4 arg-3 arg-2))))))) -(define Record-Elab-TTImp-case--9267-6392 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9)))))))))))))) -(define Record-Elab-TTImp-case--9131-6320 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-1 (vector 0 ) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Record-Elab-TTImp-n--9131-6228-getExpNames arg-0 arg-1 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Record-Elab-TTImp-case--9134-6256 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 (vector 0 (Name-Core-nameRoot arg-6) (Record-Elab-TTImp-getRecordType 'erased (vector 0 ) arg-3)) arg-8))))(else (lambda (eta-0) (vector 1 arg-8))))))) -(define Record-Elab-TTImp-case--9079-6187 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (let ((sc3 e-12)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 1 e-11))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Record-Elab-TTImp-n--9950-6984-mkClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (vector 0 arg-6 (Record-Elab-TTImp-toLHS arg-6 arg-12) (Record-Elab-TTImp-toRHS arg-6 arg-12)))) -(define Record-Elab-TTImp-n--9381-6502-mkArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Record-Elab-TTImp-genFieldName arg-8 e-6 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Record-Elab-TTImp-n--9381-6502-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-6 (vector 0 e-5 (vector 0 arg-7 (vector 1 e-5)))) e-8)))))))))))))))))))))) -(define Record-Elab-TTImp-n--9131-6228-getExpNames (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (((e-4 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((Record-Elab-TTImp-n--9131-6228-getExpNames arg-0 arg-1 e-5) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (vector 1 (vector 1 (vector 0 (Name-Core-nameRoot e-2) (Record-Elab-TTImp-getRecordType 'erased (vector 0 ) e-8)) e-5)))(else (vector 1 e-5)))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Rewrite-Elab-TTImp-checkRewrite (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Can't infer a type for rewrite") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-2 (lambda (eta-1) (Rewrite-Elab-TTImp-rewriteErr eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (delayed) (lambda (eta-1) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-10 (vector 0 )) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-2) eta-1))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (let ((sc5 delayed)) (cond ((equal? sc5 0) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retrying rewrite") eta-1)) (else (vector 1 (vector 0 ))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((act-28 (Rewrite-Elab-TTImp-elabRewrite arg-0 arg-1 arg-3 arg-9 arg-8 e-7 e-6 eta-1))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (let ((e-11 (vector-ref sc7 1))) (let ((e-10 (vector-ref sc7 2))) (let ((sc8 e-10)) (let ((e-13 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((act-29 (UnifyState-Core-genVarName arg-1 arg-3 "_" eta-1))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-30 (UnifyState-Core-genVarName arg-1 arg-3 "_" eta-1))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc10 1))) (let ((pbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-13 e-12))) (let ((rbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (TT-Core-weaken_Weaken__Term e-15 arg-0 e-4) (TT-Core-weaken_Weaken__Term e-15 arg-0 e-6)))) (let ((envC-39 (vector 1 rbind (vector 1 pbind arg-8)))) (let ((act-31 (Check-Elab-TTImp-inScope 'erased e-15 arg-0 arg-1 arg-4 arg-9 (vector 1 pbind arg-8) (lambda (eC-39) (lambda (eta-2) (Check-Elab-TTImp-inScope 'erased e-14 (vector 1 e-15 arg-0) arg-1 eC-39 arg-9 envC-39 (lambda (eC-39C-39) (Check-Elab-TTImp-check (vector 1 e-14 (vector 1 e-15 arg-0)) arg-1 arg-2 arg-3 eC-39C-39 arg-5 arg-6 (TTImp-TTImp-weaken_Weaken__NestedNames e-14 (vector 1 e-15 arg-0) (TTImp-TTImp-weaken_Weaken__NestedNames e-15 arg-0 arg-7)) envC-39 (TTImp-TTImp-apply (vector 0 arg-9 e-11) (vector 1 (vector 0 arg-9 e-15) (vector 1 (vector 0 arg-9 e-14) (vector 1 arg-11 (vector 0 ))))) (vector 1 (Normalise-Core-gnf (vector 1 e-14 (vector 1 e-15 arg-0)) envC-39 (TT-Core-weakenNs_Weaken__Term arg-0 (vector 1 e-14 (vector 1 e-15 (vector 0 ))) e-7))))) eta-2))) eta-1))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) (let ((sc12 e-16)) (let ((e-18 (vector-ref sc12 1))) (let ((e-17 (vector-ref sc12 2))) (let ((act-32 ((Normalise-Core-getTerm 'erased e-17) eta-1))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-19 (vector-ref sc13 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc13 1))) (vector 1 (vector 0 (vector 3 arg-9 e-15 pbind (vector 3 arg-9 e-14 rbind e-18)) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-15 pbind (vector 3 arg-9 e-14 rbind e-19)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) eta-0)))))))) +(define Record-Elab-TTImp-case--10444-7447 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-3)))))) +(define Record-Elab-TTImp-case--10182-7378 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1))))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 (vector 0 )) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 2))) (vector 1 e-3)))))))))))))) +(define Record-Elab-TTImp-case--10182-7251 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (Normalise-Core-gnf arg-0 arg-5 arg-17)) (else arg-13))))) +(define Record-Elab-TTImp-case--10182-7165 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) +(define Record-Elab-TTImp-case--10001-7013 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Record-Elab-TTImp-genFieldName arg-10 "__fld" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Record-Elab-TTImp-getAllSides arg-11 arg-10 arg-6 arg-3 e-1 arg-2 (vector 0 e-5 (vector 0 arg-6 (vector 1 e-5)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 arg-6 arg-2 (vector 31 arg-6 1) (vector 1 (Record-Elab-TTImp-n--10001-6992-mkClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-6) (vector 0 ))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 22 arg-0 arg-6 arg-4) eta-0))))))) +(define Record-Elab-TTImp-case--9745-6787 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Record-Elab-TTImp-findPath arg-9 arg-8 arg-7 arg-1 arg-6 e-1 arg-4 arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 arg-3 (Record-Elab-TTImp-replace arg-0 e-5 arg-2))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 23 arg-7 arg-0 arg-5) eta-0))))))) +(define Record-Elab-TTImp-case--9696-6752 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Record-Elab-TTImp-case--9745-6787 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-1 _-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-0 e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-3 arg-2)))))))) +(define Record-Elab-TTImp-case--9432-6711 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Record-Elab-TTImp-findFields e-5 arg-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-2))) ((Record-Elab-TTImp-case--9745-6787 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 e-5 e-2 _-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-0 e-2)) eta-0)))) (else (vector 1 (vector 1 arg-3 arg-2)))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 23 arg-7 arg-0 arg-5) eta-0))))))) +(define Record-Elab-TTImp-case--9526-6595 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Record-Elab-TTImp-n--9432-6510-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((recC-39 (vector 1 arg-11 e-5))) ((Record-Elab-TTImp-findPath arg-9 arg-8 arg-7 (vector 1 arg-0 arg-1) arg-6 (vector 1 arg-2) arg-5 recC-39) eta-0)))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-7 arg-2) eta-0))))))) +(define Record-Elab-TTImp-case--9432-6561 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Record-Elab-TTImp-findFields arg-10 e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 ((Record-Elab-TTImp-n--9432-6510-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((recC-39 (vector 1 e-1 e-6))) ((Record-Elab-TTImp-findPath arg-9 arg-8 arg-7 (vector 1 arg-0 arg-1) arg-6 (vector 1 arg-2) arg-5 recC-39) eta-0))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-7 arg-2) eta-0)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-7 arg-2) eta-0))))))) +(define Record-Elab-TTImp-case--9370-6430 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-4 arg-3) arg-2)) (else (vector 1 (vector 0 arg-0 arg-1) (Record-Elab-TTImp-replace arg-4 arg-3 arg-2))))))) +(define Record-Elab-TTImp-case--9318-6400 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9)))))))))))))) +(define Record-Elab-TTImp-case--9182-6328 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-1 (vector 0 ) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Record-Elab-TTImp-n--9182-6236-getExpNames arg-0 arg-1 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Record-Elab-TTImp-case--9185-6264 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 (vector 0 (Name-Core-nameRoot arg-6) (Record-Elab-TTImp-getRecordType 'erased (vector 0 ) arg-3)) arg-8))))(else (lambda (eta-0) (vector 1 arg-8))))))) +(define Record-Elab-TTImp-case--9130-6195 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (let ((sc3 e-12)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 1 e-11))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Record-Elab-TTImp-n--10001-6992-mkClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (vector 0 arg-6 (Record-Elab-TTImp-toLHS arg-6 arg-12) (Record-Elab-TTImp-toRHS arg-6 arg-12)))) +(define Record-Elab-TTImp-n--9432-6510-mkArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Record-Elab-TTImp-genFieldName arg-8 e-6 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Record-Elab-TTImp-n--9432-6510-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-6 (vector 0 e-5 (vector 0 arg-7 (vector 1 e-5)))) e-8)))))))))))))))))))))) +(define Record-Elab-TTImp-n--9182-6236-getExpNames (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (((e-4 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((Record-Elab-TTImp-n--9182-6236-getExpNames arg-0 arg-1 e-5) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (vector 1 (vector 1 (vector 0 (Name-Core-nameRoot e-2) (Record-Elab-TTImp-getRecordType 'erased (vector 0 ) e-8)) e-5)))(else (vector 1 e-5)))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define Record-Elab-TTImp-toRHS (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) e-1)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((argsC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (a) (Record-Elab-TTImp-toRHS arg-0 (Builtin-snd 'erased 'erased a))) e-3))) (TTImp-TTImp-apply (vector 0 arg-0 e-2) argsC-39))))))))) (define Record-Elab-TTImp-toLHS (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (vector 16 arg-0 e-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((argsC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (a) (Record-Elab-TTImp-toLHS arg-0 (Builtin-snd 'erased 'erased a))) e-3))) (TTImp-TTImp-apply (vector 0 arg-0 e-2) argsC-39))))))))) -(define Record-Elab-TTImp-replace (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Record-Elab-TTImp-case--9319-6422 e-6 e-7 e-3 arg-1 arg-0 (Prelude-C-61C-61_Eq__String arg-0 e-6)))))))))))) -(define Record-Elab-TTImp-recUpdate (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 arg-11) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Record-Elab-TTImp-case--9950-7005 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 (Record-Elab-TTImp-getRecordType 'erased arg-8 e-6)) ext-0))))))))))))) +(define Record-Elab-TTImp-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--9370-6430 e-6 e-7 e-3 arg-1 arg-0 (Prelude-C-61C-61_Eq__String arg-0 e-6)))))))))))) +(define Record-Elab-TTImp-recUpdate (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 arg-11) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Record-Elab-TTImp-case--10001-7013 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 (Record-Elab-TTImp-getRecordType 'erased arg-8 e-6)) ext-0))))))))))))) (define Record-Elab-TTImp-needType (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((22) 0) ((56) (let ((e-5 (vector-ref sc0 3))) (Record-Elab-TTImp-needType e-5))) ((57) (let ((e-8 (vector-ref sc0 3))) (Record-Elab-TTImp-needType e-8))) ((58) (let ((e-11 (vector-ref sc0 3))) (Record-Elab-TTImp-needType e-11))) ((59) (let ((e-14 (vector-ref sc0 3))) (Record-Elab-TTImp-needType e-14))) ((5) (let ((e-20 (vector-ref sc0 6))) (Record-Elab-TTImp-needType e-20)))(else 1))))) (define Record-Elab-TTImp-getSides (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Record-Elab-TTImp-findPath arg-0 arg-1 arg-2 e-0 e-0 (vector 1 arg-4) (lambda (eta-0) e-1) arg-6)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Record-Elab-TTImp-findPath arg-0 arg-1 arg-2 e-2 e-2 (vector 1 arg-4) (lambda (n) (TTImp-TTImp-apply e-3 (vector 1 (vector 0 arg-2 (vector 1 n)) (vector 0 )))) arg-6)))))))) (define Record-Elab-TTImp-getRecordType (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (vector 1 e-2)))(else (vector 0 )))))) (define Record-Elab-TTImp-getAllSides (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-6))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Record-Elab-TTImp-getSides arg-0 arg-1 arg-2 e-2 arg-4 arg-5 arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Record-Elab-TTImp-getAllSides arg-0 arg-1 arg-2 e-3 arg-4 arg-5 e-5) eta-0)))))))))))))) (define Record-Elab-TTImp-genFieldName (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-10 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (Strings-Prelude-C-43C-43 arg-1 (Prelude-show_Show__Int (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-10)))))))))))))))) -(define Record-Elab-TTImp-findPath (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 e-4 (arg-6 e-4))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 25 arg-2 arg-4) eta-0)))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 23 arg-2 e-2 (vector 0 )) eta-0)))(else (let ((sc2 arg-7)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (Record-Elab-TTImp-case--9381-6703 e-2 e-3 e-7 e-6 arg-6 arg-5 arg-4 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-2 e-7))))))))) ((1) (let ((e-10 (vector-ref sc1 1))) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Record-Elab-TTImp-findConName e-5 e-10 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((act-26 (Record-Elab-TTImp-findFields e-5 e-1 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc6 1))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((act-27 ((Record-Elab-TTImp-n--9381-6502-mkArgs e-2 e-3 e-10 e-14 e-13 arg-6 arg-4 arg-2 arg-1 arg-0 e-4) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((recC-39 (vector 1 e-1 e-8))) ((Record-Elab-TTImp-findPath arg-0 arg-1 arg-2 (vector 1 e-2 e-3) arg-4 (vector 1 e-10) arg-6 recC-39) eta-0))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-2 e-10) eta-0))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-2 e-10) eta-0))))))))))))))))))(else (let ((sc2 arg-7)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (Record-Elab-TTImp-case--9381-6703 e-2 e-3 e-7 e-6 arg-6 arg-5 arg-4 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-2 e-7))))))))))(else (let ((sc1 arg-7)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Record-Elab-TTImp-case--9381-6703 e-2 e-3 e-7 e-6 arg-6 arg-5 arg-4 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-2 e-7))))))))))))))) -(define Record-Elab-TTImp-findFields (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-lookupTyExact arg-1 (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-0 (vector 0 ) e-1) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Record-Elab-TTImp-n--9131-6228-getExpNames arg-1 arg-0 e-6) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-7))))))))))))))(else (vector 1 (vector 0 )))))))))))) +(define Record-Elab-TTImp-findPath (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 e-4 (arg-6 e-4))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 25 arg-2 arg-4) eta-0)))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 23 arg-2 e-2 (vector 0 )) eta-0)))(else (let ((sc2 arg-7)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (Record-Elab-TTImp-case--9432-6711 e-2 e-3 e-7 e-6 arg-6 arg-5 arg-4 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) e-2 e-7))))))))) ((1) (let ((e-10 (vector-ref sc1 1))) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Record-Elab-TTImp-findConName e-5 e-10 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((act-26 (Record-Elab-TTImp-findFields e-5 e-1 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc6 1))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((act-27 ((Record-Elab-TTImp-n--9432-6510-mkArgs e-2 e-3 e-10 e-14 e-13 arg-6 arg-4 arg-2 arg-1 arg-0 e-4) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((recC-39 (vector 1 e-1 e-8))) ((Record-Elab-TTImp-findPath arg-0 arg-1 arg-2 (vector 1 e-2 e-3) arg-4 (vector 1 e-10) arg-6 recC-39) eta-0))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-2 e-10) eta-0))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-2 e-10) eta-0))))))))))))))))))(else (let ((sc2 arg-7)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (Record-Elab-TTImp-case--9432-6711 e-2 e-3 e-7 e-6 arg-6 arg-5 arg-4 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) e-2 e-7))))))))))(else (let ((sc1 arg-7)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Record-Elab-TTImp-case--9432-6711 e-2 e-3 e-7 e-6 arg-6 arg-5 arg-4 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) e-2 e-7))))))))))))))) +(define Record-Elab-TTImp-findFields (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-lookupTyExact arg-1 (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-0 (vector 0 ) e-1) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Record-Elab-TTImp-n--9182-6236-getExpNames arg-1 arg-0 e-6) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-7))))))))))))))(else (vector 1 (vector 0 )))))))))))) (define Record-Elab-TTImp-findConName (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-lookupDefExact arg-1 (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((6) (let ((e-8 (vector-ref sc2 7))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-11 (vector-ref sc3 1))) (let ((e-12 (vector-ref sc3 2))) (let ((sc4 e-12)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 1 e-11)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))) -(define Record-Elab-TTImp-checkUpdate (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 e-1)))(else (let ((act-24 ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-11 (vector 0 )) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 2))) (vector 1 e-3))))))))))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((solvemode (Record-Elab-TTImp-case--10131-7157 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-5 (lambda (eta-0) (Record-Elab-TTImp-needType eta-0)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-0) (let ((act-25 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((Normalise-Core-getTerm 'erased e-5) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((rectyC-39 (let ((sc3 delayed)) (cond ((equal? sc3 0) (Normalise-Core-gnf arg-0 arg-8 e-7)) (else e-5))))) (let ((act-27 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool delayed) (Strings-Prelude-C-43C-43 " record type " (TTImp-TTImp-show_Show__RawImp arg-11)))) arg-8 rectyC-39 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (Record-Elab-TTImp-recUpdate arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-9 arg-7 arg-8 arg-10 arg-11 rectyC-39 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Record update: " (TTImp-TTImp-show_Show__RawImp e-9))) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-9 arg-12) eta-0)))))))))))))))))))))))))) ext-0))))))))) -(define Quote-Elab-TTImp-case--11073-12616 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-bindUnqs arg-0 arg-13 arg-12 arg-11 arg-10 arg-4 arg-9 arg-8 arg-7 arg-6 arg-5) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 arg-2 arg-1 (vector 1 (ZeroOneOmega-Algebra-rigMult (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-9) e-2 e-6) (TT-Core-refToLocal 'erased arg-1 arg-1 e-5))))))))))))))))))) -(define Quote-Elab-TTImp-case--11012-12556 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-6 (vector 1 arg-2 (vector 3 0 0) (vector 9 e-4))))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-25 ((Quote-Elab-TTImp-bindUnqs arg-0 arg-13 arg-12 arg-11 arg-10 arg-4 arg-9 arg-8 arg-7 arg-6 arg-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (vector 3 arg-2 arg-1 (vector 1 (ZeroOneOmega-Algebra-rigMult (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-9) e-2 e-8) (TT-Core-refToLocal 'erased arg-1 arg-1 e-7))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 (Reflect-Core-reflectionttimp "TTImp")) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 (Reflect-Core-reflectionttimp "TTImp")) eta-0))))))) -(define Quote-Elab-TTImp-n--10294-12415-unqPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-5 arg-4 arg-3 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-2 e-5))))))))))))) -(define Quote-Elab-TTImp-n--10286-12289-unqPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-7 arg-6 arg-5 e-11) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 e-5))))))))))))))))))))) +(define 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--10182-7165 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-5 (lambda (eta-0) (Record-Elab-TTImp-needType eta-0)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-0) (let ((act-25 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((Normalise-Core-getTerm 'erased e-5) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((rectyC-39 (let ((sc3 delayed)) (cond ((equal? sc3 0) (Normalise-Core-gnf arg-0 arg-8 e-7)) (else e-5))))) (let ((act-27 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool delayed) (Strings-Prelude-C-43C-43 " record type " (TTImp-TTImp-show_Show__RawImp arg-11)))) arg-8 rectyC-39 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (Record-Elab-TTImp-recUpdate arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-9 arg-7 arg-8 arg-10 arg-11 rectyC-39 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Record update: " (TTImp-TTImp-show_Show__RawImp e-9))) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-9 arg-12) eta-0)))))))))))))))))))))))))) ext-0))))))))) +(define Quote-Elab-TTImp-case--11124-12624 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-bindUnqs arg-0 arg-13 arg-12 arg-11 arg-10 arg-4 arg-9 arg-8 arg-7 arg-6 arg-5) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 arg-2 arg-1 (vector 1 (ZeroOneOmega-Algebra-rigMult (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-9) e-2 e-6) (TT-Core-refToLocal 'erased arg-1 arg-1 e-5))))))))))))))))))) +(define Quote-Elab-TTImp-case--11063-12564 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-6 (vector 1 arg-2 (vector 3 0 0) (vector 9 e-4))))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-25 ((Quote-Elab-TTImp-bindUnqs arg-0 arg-13 arg-12 arg-11 arg-10 arg-4 arg-9 arg-8 arg-7 arg-6 arg-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (vector 3 arg-2 arg-1 (vector 1 (ZeroOneOmega-Algebra-rigMult (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-9) e-2 e-8) (TT-Core-refToLocal 'erased arg-1 arg-1 e-7))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 (Reflect-Core-reflectionttimp "TTImp")) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 (Reflect-Core-reflectionttimp "TTImp")) eta-0))))))) +(define Quote-Elab-TTImp-n--10345-12423-unqPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-5 arg-4 arg-3 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-2 e-5))))))))))))) +(define Quote-Elab-TTImp-n--10337-12297-unqPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-7 arg-6 arg-5 e-11) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 e-5))))))))))))))))))))) (define Quote-Elab-TTImp-onLHS (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) 0)(else 1))))) (define Quote-Elab-TTImp-getUnquoteUpdate (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-5))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-2 e-5))))))))))))))) (define Quote-Elab-TTImp-getUnquoteTy (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 e-5)))))))))))))) -(define Quote-Elab-TTImp-getUnquoteRecord (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-n--10286-12289-unqPair e-4 e-3 e-2 e-1 e-0 arg-2 arg-1 arg-0 eta-1)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteField arg-0 arg-1 arg-2 eta-1)) e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-1 e-5 e-3 e-6))))))))))))))))))))) +(define Quote-Elab-TTImp-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--10337-12297-unqPair e-4 e-3 e-2 e-1 e-0 arg-2 arg-1 arg-0 eta-1)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteField arg-0 arg-1 arg-2 eta-1)) e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-1 e-5 e-3 e-6))))))))))))))))))))) (define Quote-Elab-TTImp-getUnquoteField (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 e-2 e-3 e-5)))))))))))))))) -(define Quote-Elab-TTImp-getUnquoteDecl (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquoteTy arg-0 arg-1 arg-2 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 e-2 e-3 e-5)))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquoteData arg-0 arg-1 arg-2 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-6 e-8)))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteClause arg-0 arg-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-8 e-9 e-5)))))))))))) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-n--10294-12415-unqPair e-13 e-12 e-11 arg-2 arg-1 arg-0 eta-1)) e-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteDecl arg-0 arg-1 arg-2 eta-1)) e-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-11 e-5 e-6))))))))))))))))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquoteRecord arg-0 arg-1 arg-2 e-17) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 4 e-14 e-15 e-16 e-5))))))))))))) ((5) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteDecl arg-0 arg-1 arg-2 eta-1)) e-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-18 e-19 e-5)))))))))))) ((6) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-23) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-24) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 6 e-21 e-22 e-5 e-6))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-3))))))) +(define Quote-Elab-TTImp-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--10345-12423-unqPair e-13 e-12 e-11 arg-2 arg-1 arg-0 eta-1)) e-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteDecl arg-0 arg-1 arg-2 eta-1)) e-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-11 e-5 e-6))))))))))))))))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquoteRecord arg-0 arg-1 arg-2 e-17) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 4 e-14 e-15 e-16 e-5))))))))))))) ((5) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteDecl arg-0 arg-1 arg-2 eta-1)) e-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-18 e-19 e-5)))))))))))) ((6) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-23) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-24) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 6 e-21 e-22 e-5 e-6))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-3))))))) (define Quote-Elab-TTImp-getUnquoteData (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteTy arg-0 arg-1 arg-2 eta-1)) e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-1 e-5 e-3 e-6))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-6 e-8)))))))))))))))) (define Quote-Elab-TTImp-getUnquoteClause (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-5 e-6))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteClause arg-0 arg-1 arg-2 eta-1)) e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (vector 1 e-3 e-8 e-9 e-6 e-10)))))))))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-8 e-5))))))))))))))) (define Quote-Elab-TTImp-getUnquote (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 1 e-0 e-1 e-2 e-3 e-6 e-7)))))))))))))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-11) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc2 1))) (vector 1 (vector 2 e-6 e-7 e-8 e-9 e-5 e-12)))))))))))))))))))) ((3) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (let ((e-16 (vector-ref sc0 5))) (let ((e-17 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-16) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-17) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-12 e-13 e-14 e-5 e-6 e-7))))))))))))))))))))))))) ((4) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((e-21 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-19) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-20) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteClause arg-0 arg-1 arg-2 eta-1)) e-21) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 4 e-18 e-5 e-6 e-7))))))))))))))))))))))) ((5) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteDecl arg-0 arg-1 arg-2 eta-1)) e-23) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-24) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-22 e-5 e-6))))))))))))))))) ((7) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteUpdate arg-0 arg-1 arg-2 eta-1)) e-26) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-27) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-25 e-5 e-6))))))))))))))))) ((8) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-29) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-30) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 8 e-28 e-5 e-6))))))))))))))))) ((9) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-32) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-34) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 9 e-31 e-5 e-33 e-6)))))))))))))))))) ((10) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-36) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-37) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 10 e-35 e-5 e-6))))))))))))))))) ((12) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 eta-1)) e-40) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 12 e-38 e-39 e-5)))))))))))) ((13) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-42) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-43) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 13 e-41 e-5 e-6))))))))))))))))) ((14) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-45) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 14 e-44 e-5))))))))))) ((15) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (let ((e-48 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-48) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 15 e-46 e-47 e-5)))))))))))) ((17) (let ((e-49 (vector-ref sc0 1))) (let ((e-50 (vector-ref sc0 2))) (let ((e-51 (vector-ref sc0 3))) (let ((e-52 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-52) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 17 e-49 e-50 e-51 e-5))))))))))))) ((18) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (let ((e-55 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-55) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 18 e-53 e-54 e-5)))))))))))) ((19) (let ((e-56 (vector-ref sc0 1))) (let ((e-57 (vector-ref sc0 2))) (let ((e-58 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-58) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 19 e-56 e-57 e-5)))))))))))) ((20) (let ((e-59 (vector-ref sc0 1))) (let ((e-60 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-60) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 20 e-59 e-5))))))))))) ((21) (let ((e-61 (vector-ref sc0 1))) (let ((e-62 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-62) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 21 e-61 e-5))))))))))) ((22) (let ((e-63 (vector-ref sc0 1))) (let ((e-64 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-64) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 22 e-63 e-5))))))))))) ((25) (let ((e-65 (vector-ref sc0 1))) (let ((e-66 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-0 arg-2 "q" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (set-box! arg-1 (vector 1 (vector 0 e-5 (vector 0 e-65 e-66)) e-6)))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 25 e-65 (vector 0 e-65 e-5)))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-3))))))) @@ -4468,525 +4514,528 @@ (define Quote-Elab-TTImp-checkQuote (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "TTImp.Elab.Quote.Unq" ) (vector 0 ) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Quote-Elab-TTImp-getUnquote arg-1 e-6 arg-3 arg-10) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-9 e-5 (Quote-Elab-TTImp-onLHS (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) arg-8 e-7) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (unbox e-6))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (Reflect-Core-getCon arg-0 arg-9 e-5 (Reflect-Core-reflectionttimp "TTImp") ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 ((Quote-Elab-TTImp-bindUnqs arg-0 arg-1 arg-2 arg-3 arg-4 e-9 arg-5 arg-6 arg-7 arg-8 e-8) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (Normalise-Core-normalise arg-0 e-5 arg-8 e-11 ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 e-12 (Normalise-Core-gnf arg-0 arg-8 e-10) arg-11) ext-0))))))))))))))))))))))))))))))))))))))))))) (define Quote-Elab-TTImp-bindUnqs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-10))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-lookupCtxtExactI (Reflect-Core-reflectionttimp "TTImp") (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (let ((act-26 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 e-11 (vector 1 (Normalise-Core-gnf arg-0 arg-9 (vector 1 e-10 (vector 3 0 0) (vector 9 e-4))))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (let ((sc8 e-12)) (let ((e-14 (vector-ref sc8 1))) (let ((e-13 (vector-ref sc8 2))) (let ((act-27 ((Quote-Elab-TTImp-bindUnqs arg-0 arg-1 arg-2 arg-3 arg-4 e-3 arg-6 arg-7 arg-8 arg-9 arg-10) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-15 (vector-ref sc9 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc9 1))) (let ((act-28 ((Normalise-Core-getTerm 'erased e-13) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-16 (vector-ref sc10 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc10 1))) (vector 1 (vector 3 e-10 e-6 (vector 1 (ZeroOneOmega-Algebra-rigMult (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-6) e-14 e-16) (TT-Core-refToLocal 'erased e-6 e-6 e-15)))))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-10 (Reflect-Core-reflectionttimp "TTImp")) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-10 (Reflect-Core-reflectionttimp "TTImp")) eta-0)))))))))))))))))))))))))))) (define Prim-Elab-TTImp-checkPrim (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 0 e-0)) (vector 9 arg-1 (vector 10 ))))) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 1 e-1)) (vector 9 arg-1 (vector 11 ))))) ((2) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 2 e-2)) (vector 9 arg-1 (vector 12 ))))) ((3) (let ((e-3 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 3 e-3)) (vector 9 arg-1 (vector 13 ))))) ((4) (let ((e-4 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 4 e-4)) (vector 9 arg-1 (vector 14 ))))) ((5) (let ((e-5 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 5 e-5)) (vector 9 arg-1 (vector 15 ))))) ((6) (let ((e-6 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 6 e-6)) (vector 9 arg-1 (vector 16 ))))) ((7) (let ((e-7 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 7 e-7)) (vector 9 arg-1 (vector 17 ))))) ((8) (let ((e-8 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 8 e-8)) (vector 9 arg-1 (vector 18 ))))) ((9) (vector 0 (vector 9 arg-1 (vector 9 )) (vector 9 arg-1 (vector 19 )))) ((10) (vector 0 (vector 9 arg-1 (vector 10 )) (vector 11 arg-1))) ((11) (vector 0 (vector 9 arg-1 (vector 11 )) (vector 11 arg-1))) ((12) (vector 0 (vector 9 arg-1 (vector 12 )) (vector 11 arg-1))) ((13) (vector 0 (vector 9 arg-1 (vector 13 )) (vector 11 arg-1))) ((14) (vector 0 (vector 9 arg-1 (vector 14 )) (vector 11 arg-1))) ((15) (vector 0 (vector 9 arg-1 (vector 15 )) (vector 11 arg-1))) ((16) (vector 0 (vector 9 arg-1 (vector 16 )) (vector 11 arg-1))) ((17) (vector 0 (vector 9 arg-1 (vector 17 )) (vector 11 arg-1))) ((18) (vector 0 (vector 9 arg-1 (vector 18 )) (vector 11 arg-1))) (else (vector 0 (vector 9 arg-1 (vector 19 )) (vector 11 arg-1))))))) -(define Local-Elab-TTImp-case--10454-7428 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (vector 1 (vector 0 arg-5 (vector 0 (vector 1 arg-4) (vector 0 arg-20 (lambda (fc) (lambda (nt) arg-19))))) arg-8))) -(define Local-Elab-TTImp-case--10189-7338 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updating case local " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-5) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x)))) e-3))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (Normalise-Core-logTermNF arg-0 arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "To") arg-7 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((nestC-39 (vector 1 (vector 0 arg-5 (vector 0 (vector 1 arg-4) (vector 0 e-3 (lambda (fc) (lambda (nt) e-2))))) arg-8))) ((Check-Elab-TTImp-check arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 nestC-39 arg-7 arg-2 arg-1) eta-0)))))))))))))))) -(define Local-Elab-TTImp-case--10189-7146 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (vector 1 arg-6 (vector 1 ) arg-4)) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (vector 1 arg-6 (vector 2 e-5 e-6) arg-4)))) ((6) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (vector 1 arg-6 (vector 3 e-8 e-9) arg-4))))(else (vector 1 arg-6 (vector 1 ) arg-4)))))) -(define Local-Elab-TTImp-case--10154-7108 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((name (let ((_-0 (vector 1 e-1))) (Local-Elab-TTImp-case--10189-7146 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (lambda (eta-0) (let ((act-24 ((Local-Elab-TTImp-getLocalTerm arg-0 arg-14 arg-6 arg-7 name arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updating case local " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-5) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x)))) e-3))))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (Normalise-Core-logTermNF arg-0 arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "To") arg-7 e-2 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((nestC-39 (vector 1 (vector 0 arg-5 (vector 0 (vector 1 arg-4) (vector 0 e-3 (lambda (fc) (lambda (nt) e-2))))) arg-8))) ((Check-Elab-TTImp-check arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 nestC-39 arg-7 arg-2 arg-1) eta-0)))))))))))))))))))))) (else (Check-Elab-TTImp-check arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-2 arg-1)))))) -(define Local-Elab-TTImp-case--10040-7020 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 1 arg-7 e-3))))))))) -(define Local-Elab-TTImp-case--10011-6982 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Local-Elab-TTImp-getLocalTerm arg-0 arg-6 arg-5 arg-4 (vector 4 arg-5 arg-3 (vector 0 arg-5 (vector 0 ) e-5)) arg-2) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (vector 1 (vector 0 e-2 (vector 1 e-5 e-3)))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Case Local failed") eta-0))))))) -(define Local-Elab-TTImp-case--9026-6908 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (List-Prelude-C-43C-43 'erased arg-20 arg-6))) -(define Local-Elab-TTImp-case--9026-6852 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-23)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9))))))))))))) -(define Local-Elab-TTImp-case--9026-6784 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-24 e-9))))))))))))) -(define Local-Elab-TTImp-case--9026-6595 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--9026-6137-setPublic arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 eta-0)) arg-3)) (else arg-3))))) -(define Local-Elab-TTImp-case--9026-6518 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9)))) (else (vector 2 )))))) -(define Local-Elab-TTImp-case--9047-6374 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) e-7))(else arg-13)))))(else arg-13)))))(else arg-13))))) -(define Local-Elab-TTImp-case--9046-6326 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9)))))))))))))) -(define Local-Elab-TTImp-case--9045-6162 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (vector 1 (TT-Core-setMultiplicity 'erased arg-16 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (Local-Elab-TTImp-n--9026-6131-dropLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-15))) (else (vector 1 arg-16 (Local-Elab-TTImp-n--9026-6131-dropLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-15))))))) -(define Local-Elab-TTImp-n--9026-6134-updateTyName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 (Local-Elab-TTImp-n--9026-6133-newName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-1) e-2))))))) -(define Local-Elab-TTImp-n--9026-6136-updateName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 e-2 e-3 (Local-Elab-TTImp-n--9026-6134-updateTyName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-4)))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 2 e-5 (Local-Elab-TTImp-n--9026-6133-newName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-6) e-7))))) ((1) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (vector 1 e-8 e-9 (Local-Elab-TTImp-n--9026-6135-updateDataName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-10))))))(else arg-14))))) -(define Local-Elab-TTImp-n--9026-6135-updateDataName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 (Local-Elab-TTImp-n--9026-6133-newName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-1) e-2 e-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--9026-6134-updateTyName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) e-4)))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 1 e-5 (Local-Elab-TTImp-n--9026-6133-newName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-6) e-7))))))))) -(define Local-Elab-TTImp-n--9026-6137-setPublic (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 (vector 2 ) e-3 e-4)))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (vector 1 e-5 (vector 2 ) e-7)))) ((4) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 4))) (vector 4 e-8 e-9 (vector 2 ) e-11))))) ((3) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (vector 3 e-12 e-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--9026-6137-setPublic arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 eta-0)) e-14)))))) ((5) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (vector 5 e-15 e-16 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--9026-6137-setPublic arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 eta-0)) e-17))))))(else arg-13))))) -(define Local-Elab-TTImp-n--9026-6133-newName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (Local-Elab-TTImp-case--9047-6374 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14 arg-13 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-14 arg-13)))) -(define Local-Elab-TTImp-n--9026-6131-dropLinear (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (Local-Elab-TTImp-case--9045-6162 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased 'erased e-5 e-4 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (TT-Core-multiplicity 'erased e-4)))))))))) -(define Local-Elab-TTImp-n--9026-6132-applyEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((act-24 (let ((act-24 (unbox arg-10))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-10 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-10 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((nestedName_in (vector 6 (vector 0 arg-13 (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-10))) arg-14))) (let ((act-26 ((Context-Core-inCurrentNS arg-12 nestedName_in) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Context-Core-addName arg-12 e-7) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 0 arg-14 (vector 0 (vector 1 e-7) (vector 0 (List-Data-reverse 'erased (Env-Core-allVars arg-0 arg-5)) (lambda (fc) (lambda (nt) (UnifyState-Core-applyToFull arg-0 fc (vector 1 fc nt (vector 9 e-8)) arg-5))))))))))))))))))))))))))))) -(define Local-Elab-TTImp-getLocalTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 arg-4 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Local-Elab-TTImp-case--10011-6982 arg-0 e-2 e-3 arg-4 arg-3 arg-2 arg-1 (Env-Core-defined arg-0 e-2 arg-3))))))))) -(define Local-Elab-TTImp-checkLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((f (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 2))) e-2)))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Context-Core-lookupCtxtExact (vector 9 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 2))) e-2))) (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((vis (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (let ((e-9 (vector-ref sc4 10))) e-9)))) (else (vector 2 )))))) (let ((nestdecls (Local-Elab-TTImp-case--9026-6595 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 f e-6 e-7 vis (TT-Core-C-61C-61_Eq__Visibility vis (vector 2 ))))) (let ((defNames (TTImp-TTImp-definedInBlock (vector 0 ) nestdecls))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Local-Elab-TTImp-n--9026-6132-applyEnv arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 f eta-0 eta-1))) (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) defNames)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((nestC-39 (List-Prelude-C-43C-43 'erased e-8 arg-7))) (let ((envC-39 (Local-Elab-TTImp-n--9026-6131-dropLinear arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased arg-8))) (let ((act-28 (let ((act-28 (unbox arg-3))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((olddelayed (let ((sc5 e-9)) (let ((e-11 (vector-ref sc5 9))) e-11)))) (let ((act-29 (let ((act-29 (set-box! arg-3 (let ((sc5 e-9)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-14 (vector-ref sc5 6))) (let ((e-13 (vector-ref sc5 7))) (let ((e-12 (vector-ref sc5 8))) (let ((e-10 (vector-ref sc5 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-14 e-13 e-12 (vector 0 ) e-10)))))))))))))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-processDecl arg-0 arg-1 arg-2 arg-3 (vector 0 ) nestC-39 envC-39 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--9026-6136-updateName arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 nestC-39 eta-0)) nestdecls)) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-31 (let ((act-31 (unbox arg-3))) (vector 1 act-31)))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 (let ((act-32 (set-box! arg-3 (let ((sc8 e-12)) (let ((e-0 (vector-ref sc8 1))) (let ((e-1 (vector-ref sc8 2))) (let ((e-2 (vector-ref sc8 3))) (let ((e-3 (vector-ref sc8 4))) (let ((e-4 (vector-ref sc8 5))) (let ((e-17 (vector-ref sc8 6))) (let ((e-16 (vector-ref sc8 7))) (let ((e-15 (vector-ref sc8 8))) (let ((e-13 (vector-ref sc8 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-17 e-16 e-15 olddelayed e-13)))))))))))))) (vector 1 act-32)))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 nestC-39 arg-8 arg-11 arg-12) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Local-Elab-TTImp-checkCaseLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-11 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((name (let ((_-0 (vector 1 e-1))) (Local-Elab-TTImp-case--10189-7146 arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)))))) (let ((act-26 ((Local-Elab-TTImp-getLocalTerm arg-0 arg-1 arg-9 arg-8 name arg-12) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updating case local " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x)))) e-3))))) ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "To") arg-8 e-2 ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((nestC-39 (vector 1 (vector 0 arg-10 (vector 0 (vector 1 arg-11) (vector 0 e-3 (lambda (fc) (lambda (nt) e-2))))) arg-7))) ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 nestC-39 arg-8 arg-13 arg-14) ext-0))))))))))))))))))))) (else ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 arg-14) ext-0)))))))))))))))) -(define Utils-Elab-TTImp-case--7240-12499 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (TT-Core-refToLocal 'erased (vector 2 "arg" arg-8) arg-0 e-3))))))) -(define Utils-Elab-TTImp-case--7240-12438 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (TT-Core-refToLocal 'erased (vector 2 "arg" arg-6) arg-0 e-3))))))) -(define Utils-Elab-TTImp-case--7180-12344 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) eta-0)) (else (lambda (eta-0) (lambda (eta-1) (Core-Core-wrapError 'erased arg-1 eta-0 eta-1)))))))) -(define Utils-Elab-TTImp-case--7095-12308 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 arg-5 arg-6 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))) -(define Utils-Elab-TTImp-case--7073-12260 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-1 arg-0 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-22 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-1 e-22 e-2 e-3 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))))))))) -(define Utils-Elab-TTImp-case--7055-12241 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Utils-Elab-TTImp-findErased arg-1 (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Context-Core-addDef arg-1 arg-0 (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) (let ((e-24 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (let ((e-21 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (vector 0 e-0 e-24 e-23 e-2 e-3 e-21 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (vector 0 ))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Utils-Elab-TTImp-case--6824-12122 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (vector 0 (vector 1 arg-6 arg-9) arg-13)) (else (vector 0 arg-9 arg-13)))))) -(define Utils-Elab-TTImp-case--6824-12055 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (vector 1 arg-6 arg-10)) (else arg-10))))) -(define Utils-Elab-TTImp-case--6783-12024 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Utils-Elab-TTImp-detagSafe arg-7 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((dtC-39 (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 arg-6 e-3)) (else e-3))))) (vector 1 (let ((_-0 (vector 0 e-2 e-3))) (Utils-Elab-TTImp-case--6824-12122 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 _-0 e-5 dtC-39 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-2)))))))))))))))) -(define Utils-Elab-TTImp-case--6604-11919 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-9 (vector-ref sc1 8))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-5 eta-1)) arg-3) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (Utils-Elab-TTImp-n--6604-11832-notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 e-11 e-10))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Utils-Elab-TTImp-case--6617-11864 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) 0) (else (Utils-Elab-TTImp-n--6604-11832-notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Prelude-C-43_Num__Nat arg-9 (+ 1 0)) arg-8 arg-7)))))) -(define Utils-Elab-TTImp-n--7447-12579-notLets (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) arg-6) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (Utils-Elab-TTImp-n--7447-12579-notLets arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 e-3 e-8))(else (Utils-Elab-TTImp-n--7447-12579-notLets arg-0 arg-1 arg-2 arg-3 arg-4 'erased (vector 1 e-2 arg-6) e-3 e-8)))))))))))))) -(define Utils-Elab-TTImp-n--6604-11832-notErased (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) 0)(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (Utils-Elab-TTImp-n--6604-11832-notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Prelude-C-43_Num__Nat arg-6 (+ 1 0)) arg-7 e-3))(else (Utils-Elab-TTImp-case--6617-11864 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-7 arg-6 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-6 arg-7)))))))(else (Utils-Elab-TTImp-case--6617-11864 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-7 arg-6 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-6 arg-7))))))))))))))) -(define Utils-Elab-TTImp-wrapErrorC (lambda (arg-0 arg-1 arg-2) (Utils-Elab-TTImp-case--7180-12344 'erased arg-2 arg-1 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 1 ) arg-1)))) +(define Local-Elab-TTImp-case--10505-7436 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (vector 1 (vector 0 arg-5 (vector 0 (vector 1 arg-4) (vector 0 arg-20 (lambda (fc) (lambda (nt) arg-19))))) arg-8))) +(define Local-Elab-TTImp-case--10240-7346 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updating case local " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-5) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x)))) e-3))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (Normalise-Core-logTermNF arg-0 arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "To") arg-7 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((nestC-39 (vector 1 (vector 0 arg-5 (vector 0 (vector 1 arg-4) (vector 0 e-3 (lambda (fc) (lambda (nt) e-2))))) arg-8))) ((Check-Elab-TTImp-check arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 nestC-39 arg-7 arg-2 arg-1) eta-0)))))))))))))))) +(define Local-Elab-TTImp-case--10240-7154 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (vector 1 arg-6 (vector 1 ) arg-4)) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (vector 1 arg-6 (vector 2 e-5 e-6) arg-4)))) ((6) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (vector 1 arg-6 (vector 3 e-8 e-9) arg-4))))(else (vector 1 arg-6 (vector 1 ) arg-4)))))) +(define Local-Elab-TTImp-case--10205-7116 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((name (let ((_-0 (vector 1 e-1))) (Local-Elab-TTImp-case--10240-7154 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (lambda (eta-0) (let ((act-24 ((Local-Elab-TTImp-getLocalTerm arg-0 arg-14 arg-6 arg-7 name arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updating case local " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-5) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x)))) e-3))))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (Normalise-Core-logTermNF arg-0 arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "To") arg-7 e-2 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((nestC-39 (vector 1 (vector 0 arg-5 (vector 0 (vector 1 arg-4) (vector 0 e-3 (lambda (fc) (lambda (nt) e-2))))) arg-8))) ((Check-Elab-TTImp-check arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 nestC-39 arg-7 arg-2 arg-1) eta-0)))))))))))))))))))))) (else (Check-Elab-TTImp-check arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-2 arg-1)))))) +(define Local-Elab-TTImp-case--10091-7028 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 1 arg-7 e-3))))))))) +(define Local-Elab-TTImp-case--10062-6990 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Local-Elab-TTImp-getLocalTerm arg-0 arg-6 arg-5 arg-4 (vector 4 arg-5 arg-3 (vector 0 arg-5 (vector 0 ) e-5)) arg-2) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (vector 1 (vector 0 e-2 (vector 1 e-5 e-3)))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Case Local failed") eta-0))))))) +(define Local-Elab-TTImp-case--9077-6916 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (List-Prelude-C-43C-43 'erased arg-20 arg-6))) +(define Local-Elab-TTImp-case--9077-6860 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-23)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9))))))))))))) +(define Local-Elab-TTImp-case--9077-6792 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-24 e-9))))))))))))) +(define Local-Elab-TTImp-case--9077-6603 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--9077-6145-setPublic arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 eta-0)) arg-3)) (else arg-3))))) +(define Local-Elab-TTImp-case--9077-6526 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9)))) (else (vector 2 )))))) +(define Local-Elab-TTImp-case--9098-6382 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) e-7))(else arg-13)))))(else arg-13)))))(else arg-13))))) +(define Local-Elab-TTImp-case--9097-6334 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9)))))))))))))) +(define Local-Elab-TTImp-case--9096-6170 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (vector 1 (TT-Core-setMultiplicity 'erased arg-16 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (Local-Elab-TTImp-n--9077-6139-dropLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-15))) (else (vector 1 arg-16 (Local-Elab-TTImp-n--9077-6139-dropLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-15))))))) +(define Local-Elab-TTImp-n--9077-6142-updateTyName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 (Local-Elab-TTImp-n--9077-6141-newName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-1) e-2))))))) +(define Local-Elab-TTImp-n--9077-6144-updateName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 e-2 e-3 (Local-Elab-TTImp-n--9077-6142-updateTyName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-4)))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 2 e-5 (Local-Elab-TTImp-n--9077-6141-newName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-6) e-7))))) ((1) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (vector 1 e-8 e-9 (Local-Elab-TTImp-n--9077-6143-updateDataName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-10))))))(else arg-14))))) +(define Local-Elab-TTImp-n--9077-6143-updateDataName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 (Local-Elab-TTImp-n--9077-6141-newName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-1) e-2 e-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--9077-6142-updateTyName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) e-4)))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 1 e-5 (Local-Elab-TTImp-n--9077-6141-newName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-6) e-7))))))))) +(define Local-Elab-TTImp-n--9077-6145-setPublic (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 (vector 2 ) e-3 e-4)))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (vector 1 e-5 (vector 2 ) e-7)))) ((4) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 4))) (vector 4 e-8 e-9 (vector 2 ) e-11))))) ((3) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (vector 3 e-12 e-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--9077-6145-setPublic arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 eta-0)) e-14)))))) ((5) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (vector 5 e-15 e-16 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--9077-6145-setPublic arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 eta-0)) e-17))))))(else arg-13))))) +(define Local-Elab-TTImp-n--9077-6141-newName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (Local-Elab-TTImp-case--9098-6382 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14 arg-13 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) arg-14 arg-13)))) +(define Local-Elab-TTImp-n--9077-6139-dropLinear (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (Local-Elab-TTImp-case--9096-6170 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased 'erased e-5 e-4 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (TT-Core-multiplicity 'erased e-4)))))))))) +(define Local-Elab-TTImp-n--9077-6140-applyEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((act-24 (let ((act-24 (unbox arg-10))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-10 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-10 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((nestedName_in (vector 6 (vector 0 arg-13 (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-10))) arg-14))) (let ((act-26 ((Context-Core-inCurrentNS arg-12 nestedName_in) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Context-Core-addName arg-12 e-7) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 0 arg-14 (vector 0 (vector 1 e-7) (vector 0 (List-Data-reverse 'erased (Env-Core-allVars arg-0 arg-5)) (lambda (fc) (lambda (nt) (UnifyState-Core-applyToFull arg-0 fc (vector 1 fc nt (vector 9 e-8)) arg-5))))))))))))))))))))))))))))) +(define Local-Elab-TTImp-getLocalTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 arg-4 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Local-Elab-TTImp-case--10062-6990 arg-0 e-2 e-3 arg-4 arg-3 arg-2 arg-1 (Env-Core-defined arg-0 e-2 arg-3))))))))) +(define Local-Elab-TTImp-checkLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((f (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 2))) e-2)))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Context-Core-lookupCtxtExact (vector 9 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 2))) e-2))) (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((vis (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (let ((e-9 (vector-ref sc4 10))) e-9)))) (else (vector 2 )))))) (let ((nestdecls (Local-Elab-TTImp-case--9077-6603 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 f e-6 e-7 vis (TT-Core-C-61C-61_Eq__Visibility vis (vector 2 ))))) (let ((defNames (TTImp-TTImp-definedInBlock (vector 0 ) nestdecls))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Local-Elab-TTImp-n--9077-6140-applyEnv arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 f eta-0 eta-1))) (List-Data-nub 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) defNames)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((nestC-39 (List-Prelude-C-43C-43 'erased e-8 arg-7))) (let ((envC-39 (Local-Elab-TTImp-n--9077-6139-dropLinear arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased arg-8))) (let ((act-28 (let ((act-28 (unbox arg-3))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((olddelayed (let ((sc5 e-9)) (let ((e-11 (vector-ref sc5 9))) e-11)))) (let ((act-29 (let ((act-29 (set-box! arg-3 (let ((sc5 e-9)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-14 (vector-ref sc5 6))) (let ((e-13 (vector-ref sc5 7))) (let ((e-12 (vector-ref sc5 8))) (let ((e-10 (vector-ref sc5 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-14 e-13 e-12 (vector 0 ) e-10)))))))))))))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-processDecl arg-0 arg-1 arg-2 arg-3 (vector 0 ) nestC-39 envC-39 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--9077-6144-updateName arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 nestC-39 eta-0)) nestdecls)) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-31 (let ((act-31 (unbox arg-3))) (vector 1 act-31)))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 (let ((act-32 (set-box! arg-3 (let ((sc8 e-12)) (let ((e-0 (vector-ref sc8 1))) (let ((e-1 (vector-ref sc8 2))) (let ((e-2 (vector-ref sc8 3))) (let ((e-3 (vector-ref sc8 4))) (let ((e-4 (vector-ref sc8 5))) (let ((e-17 (vector-ref sc8 6))) (let ((e-16 (vector-ref sc8 7))) (let ((e-15 (vector-ref sc8 8))) (let ((e-13 (vector-ref sc8 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-17 e-16 e-15 olddelayed e-13)))))))))))))) (vector 1 act-32)))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 nestC-39 arg-8 arg-11 arg-12) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Local-Elab-TTImp-checkCaseLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-11 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((name (let ((_-0 (vector 1 e-1))) (Local-Elab-TTImp-case--10240-7154 arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)))))) (let ((act-26 ((Local-Elab-TTImp-getLocalTerm arg-0 arg-1 arg-9 arg-8 name arg-12) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updating case local " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x)))) e-3))))) ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "To") arg-8 e-2 ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((nestC-39 (vector 1 (vector 0 arg-10 (vector 0 (vector 1 arg-11) (vector 0 e-3 (lambda (fc) (lambda (nt) e-2))))) arg-7))) ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 nestC-39 arg-8 arg-13 arg-14) ext-0))))))))))))))))))))) (else ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 arg-14) ext-0)))))))))))))))) +(define Utils-Elab-TTImp-case--7288-12507 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (TT-Core-refToLocal 'erased (vector 2 "arg" arg-8) arg-0 e-3))))))) +(define Utils-Elab-TTImp-case--7288-12446 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (TT-Core-refToLocal 'erased (vector 2 "arg" arg-6) arg-0 e-3))))))) +(define Utils-Elab-TTImp-case--7228-12352 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) eta-0)) (else (lambda (eta-0) (lambda (eta-1) (Core-Core-wrapError 'erased arg-1 eta-0 eta-1)))))))) +(define Utils-Elab-TTImp-case--7143-12316 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 arg-5 arg-6 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))) +(define Utils-Elab-TTImp-case--7121-12268 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-1 arg-0 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-22 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-1 e-22 e-2 e-3 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))))))))) +(define Utils-Elab-TTImp-case--7103-12249 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Utils-Elab-TTImp-findErased arg-1 (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Context-Core-addDef arg-1 arg-0 (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) (let ((e-24 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (let ((e-21 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (vector 0 e-0 e-24 e-23 e-2 e-3 e-21 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (vector 0 ))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Utils-Elab-TTImp-case--6872-12130 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (vector 0 (vector 1 arg-6 arg-9) arg-13)) (else (vector 0 arg-9 arg-13)))))) +(define Utils-Elab-TTImp-case--6872-12063 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (vector 1 arg-6 arg-10)) (else arg-10))))) +(define Utils-Elab-TTImp-case--6831-12032 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Utils-Elab-TTImp-detagSafe arg-7 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((dtC-39 (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 arg-6 e-3)) (else e-3))))) (vector 1 (let ((_-0 (vector 0 e-2 e-3))) (Utils-Elab-TTImp-case--6872-12130 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 _-0 e-5 dtC-39 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-2)))))))))))))))) +(define Utils-Elab-TTImp-case--6652-11927 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-9 (vector-ref sc1 8))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-5 eta-1)) arg-3) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (Utils-Elab-TTImp-n--6652-11840-notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 e-11 e-10))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Utils-Elab-TTImp-case--6665-11872 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) 0) (else (Utils-Elab-TTImp-n--6652-11840-notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Prelude-C-43_Num__Nat arg-9 (+ 1 0)) arg-8 arg-7)))))) +(define Utils-Elab-TTImp-n--7495-12587-notLets (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) arg-6) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (Utils-Elab-TTImp-n--7495-12587-notLets arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 e-3 e-8))(else (Utils-Elab-TTImp-n--7495-12587-notLets arg-0 arg-1 arg-2 arg-3 arg-4 'erased (vector 1 e-2 arg-6) e-3 e-8)))))))))))))) +(define Utils-Elab-TTImp-n--6652-11840-notErased (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) 0)(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (Utils-Elab-TTImp-n--6652-11840-notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Prelude-C-43_Num__Nat arg-6 (+ 1 0)) arg-7 e-3))(else (Utils-Elab-TTImp-case--6665-11872 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-7 arg-6 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-6 arg-7)))))))(else (Utils-Elab-TTImp-case--6665-11872 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-7 arg-6 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-6 arg-7))))))))))))))) +(define Utils-Elab-TTImp-wrapErrorC (lambda (arg-0 arg-1 arg-2) (Utils-Elab-TTImp-case--7228-12352 'erased arg-2 arg-1 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-438 arg-439)))) (vector 1 ) arg-1)))) (define Utils-Elab-TTImp-updateErasable (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (Utils-Elab-TTImp-findErased arg-0 (let ((sc3 e-1)) (let ((e-2 (vector-ref sc3 3))) e-2)) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-27 (Context-Core-addDef arg-0 arg-1 (let ((sc5 e-1)) (let ((e-0 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (let ((e-25 (vector-ref sc5 3))) (let ((e-23 (vector-ref sc5 6))) (let ((e-22 (vector-ref sc5 7))) (let ((e-21 (vector-ref sc5 8))) (let ((e-8 (vector-ref sc5 9))) (let ((e-9 (vector-ref sc5 10))) (let ((e-10 (vector-ref sc5 11))) (let ((e-11 (vector-ref sc5 12))) (let ((e-12 (vector-ref sc5 13))) (let ((e-13 (vector-ref sc5 14))) (let ((e-14 (vector-ref sc5 15))) (let ((e-15 (vector-ref sc5 16))) (let ((e-16 (vector-ref sc5 17))) (let ((e-17 (vector-ref sc5 18))) (let ((e-18 (vector-ref sc5 19))) (let ((e-19 (vector-ref sc5 20))) (let ((e-20 (vector-ref sc5 21))) (vector 0 e-0 e-26 e-25 e-2 e-3 e-23 e-22 e-21 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))) ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))) (define Utils-Elab-TTImp-plicit (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-2 (vector-ref sc0 2))) (TT-Core-forgetDef 'erased 'erased e-2))) ((3) (let ((e-6 (vector-ref sc0 2))) (TT-Core-forgetDef 'erased 'erased e-6)))(else (vector 1 )))))) -(define Utils-Elab-TTImp-findErasedFrom (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-6)))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Utils-Elab-TTImp-findErasedFrom arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) e-5) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((sc4 e-9)) (let ((e-11 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((act-26 ((Utils-Elab-TTImp-detagSafe arg-0 e-8) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc5 1))) (let ((dtC-39 (let ((sc6 e-12)) (cond ((equal? sc6 0) (vector 1 arg-1 e-10)) (else e-10))))) (vector 1 (let ((_-0 (vector 0 e-11 e-10))) (Utils-Elab-TTImp-case--6824-12122 e-7 e-8 e-6 e-4 e-2 e-1 arg-1 arg-0 e-5 e-11 e-10 _-0 e-12 dtC-39 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-6))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 0 ))))))))) +(define Utils-Elab-TTImp-findErasedFrom (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) e-6)))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Utils-Elab-TTImp-findErasedFrom arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) e-5) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((sc4 e-9)) (let ((e-11 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((act-26 ((Utils-Elab-TTImp-detagSafe arg-0 e-8) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc5 1))) (let ((dtC-39 (let ((sc6 e-12)) (cond ((equal? sc6 0) (vector 1 arg-1 e-10)) (else e-10))))) (vector 1 (let ((_-0 (vector 0 e-11 e-10))) (Utils-Elab-TTImp-case--6872-12130 e-7 e-8 e-6 e-4 e-2 e-1 arg-1 arg-0 e-5 e-11 e-10 _-0 e-12 dtC-39 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) e-6))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 0 ))))))))) (define Utils-Elab-TTImp-findErased (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-1) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Utils-Elab-TTImp-findErasedFrom e-5 0 e-6) ext-0))))))))))))) -(define Utils-Elab-TTImp-detagSafe (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((6) (let ((e-9 (vector-ref sc3 8))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (let ((e-16 (vector-ref sc4 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 eta-1)) e-5) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-17 (vector-ref sc5 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc5 1))) (vector 1 (Utils-Elab-TTImp-n--6604-11832-notErased e-1 e-3 e-4 e-5 e-2 arg-0 0 e-16 e-17)))))))))(else (vector 1 1))))))(else (vector 1 1))))))(else (vector 1 1))))))))))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Utils-Elab-TTImp-bindReq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-5 (vector 0 (Utils-Elab-TTImp-n--7447-12579-notLets arg-1 arg-6 arg-5 arg-3 arg-2 'erased (vector 0 ) arg-1 arg-3) (Env-Core-abstractEnvType arg-1 arg-2 arg-3 arg-6)))))(else (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((2) (let ((e-11 (vector-ref sc2 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkBinder 'erased 'erased e-6 e-11) (lambda (bC-39) (Utils-Elab-TTImp-bindReq 'erased e-2 arg-2 e-7 e-11 (vector 1 (vector 0 (Utils-Elab-TTImp-plicit 'erased e-6) e-1) arg-5) (vector 3 arg-2 e-1 (vector 2 (TT-Core-multiplicity 'erased e-6) (vector 1 ) (TT-Core-binderType 'erased bC-39)) arg-6)))))) (else (let ((e-15 (vector-ref sc2 1))) (Utils-Elab-TTImp-bindReq 'erased e-2 arg-2 e-7 e-15 arg-5 arg-6)))))))))))))))) -(define Utils-Elab-TTImp-bindNotReq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (let ((sc2 arg-5)) (vector 0 arg-6 (TT-Core-embed 'erased 'erased arg-7))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((0) (let ((tmptm (SubstEnv-TT-Core-subst e-3 e-2 (vector 1 arg-2 (vector 0 ) (vector 2 "arg" arg-3)) arg-7))) (let ((vs (vector 1 e-2 e-3))) (Utils-Elab-TTImp-case--7240-12438 e-2 e-3 e-10 e-9 arg-7 arg-6 arg-3 arg-2 vs 'erased tmptm (Utils-Elab-TTImp-bindNotReq 'erased e-3 arg-2 (b+ 1 arg-3 63) e-10 (vector 0 ) arg-6 tmptm))))) ((2) (let ((e-15 (vector-ref sc2 1))) (let ((tmptm (SubstEnv-TT-Core-subst e-3 e-2 (vector 1 arg-2 (vector 0 ) (vector 2 "arg" arg-3)) arg-7))) (let ((vs (vector 1 e-2 e-3))) (Utils-Elab-TTImp-case--7240-12499 e-2 e-3 'erased e-10 e-9 e-15 arg-7 arg-6 arg-3 arg-2 vs 'erased tmptm (Utils-Elab-TTImp-bindNotReq 'erased e-3 arg-2 (b+ 1 arg-3 63) e-10 e-15 arg-6 tmptm)))))) (else (let ((e-19 (vector-ref sc2 1))) (Utils-Elab-TTImp-bindNotReq 'erased e-3 arg-2 arg-3 e-10 e-19 (vector 1 (vector 0 (Utils-Elab-TTImp-plicit 'erased e-9) e-2) arg-6) (vector 3 arg-2 e-2 (vector 2 (TT-Core-multiplicity 'erased e-9) (vector 1 ) (TT-Core-binderType 'erased e-9)) arg-7)))))))))))))))) -(define Lazy-Elab-TTImp-case--9207-12306 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((5) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 (vector 8 arg-3 e-2 arg-14) (Normalise-Core-glueBack arg-0 arg-12 arg-4 e-3)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Forcing a non-delayed type") eta-0))))))) -(define Lazy-Elab-TTImp-case--9158-12263 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-11 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((5) (let ((e-6 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 1 (vector 0 (vector 8 arg-3 e-6 e-2) (Normalise-Core-glueBack arg-0 arg-12 arg-4 e-4))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Forcing a non-delayed type") eta-0))))))))))))))) -(define Lazy-Elab-TTImp-case--8924-12075 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-11 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 7 arg-3 arg-18 e-6 e-2) (Normalise-Core-glueBack arg-0 arg-20 arg-4 (vector 5 arg-3 arg-18 e-5)))))))))))))))))))) -(define Lazy-Elab-TTImp-case--8791-12014 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((5) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-11))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Check-Elab-TTImp-check arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-3))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((act-26 ((Normalise-Core-getNF 'erased arg-11 e-4) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-27 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 (vector 7 arg-3 e-2 e-9 e-7) (Normalise-Core-glueBack arg-0 e-5 arg-4 (vector 5 arg-3 e-2 e-8)))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected delay type") arg-4 arg-16 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Can't infer delay type") eta-0))))))))))) -(define Lazy-Elab-TTImp-case--8791-11927 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) -(define Lazy-Elab-TTImp-case--8702-11853 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 6 arg-4 arg-3 e-2) e-3)))))))) -(define Lazy-Elab-TTImp-n--8791-11906-delayError (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((47) 0)(else 1))))) +(define 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--6652-11840-notErased e-1 e-3 e-4 e-5 e-2 arg-0 0 e-16 e-17)))))))))(else (vector 1 1))))))(else (vector 1 1))))))(else (vector 1 1))))))))))))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Utils-Elab-TTImp-bindReq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-5 (vector 0 (Utils-Elab-TTImp-n--7495-12587-notLets arg-1 arg-6 arg-5 arg-3 arg-2 'erased (vector 0 ) arg-1 arg-3) (Env-Core-abstractEnvType arg-1 arg-2 arg-3 arg-6)))))(else (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((2) (let ((e-11 (vector-ref sc2 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkBinder 'erased 'erased e-6 e-11) (lambda (bC-39) (Utils-Elab-TTImp-bindReq 'erased e-2 arg-2 e-7 e-11 (vector 1 (vector 0 (Utils-Elab-TTImp-plicit 'erased e-6) e-1) arg-5) (vector 3 arg-2 e-1 (vector 2 (TT-Core-multiplicity 'erased e-6) (vector 1 ) (TT-Core-binderType 'erased bC-39)) arg-6)))))) (else (let ((e-15 (vector-ref sc2 1))) (Utils-Elab-TTImp-bindReq 'erased e-2 arg-2 e-7 e-15 arg-5 arg-6)))))))))))))))) +(define Utils-Elab-TTImp-bindNotReq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (let ((sc2 arg-5)) (vector 0 arg-6 (TT-Core-embed 'erased 'erased arg-7))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((0) (let ((tmptm (SubstEnv-TT-Core-subst e-3 e-2 (vector 1 arg-2 (vector 0 ) (vector 2 "arg" arg-3)) arg-7))) (let ((vs (vector 1 e-2 e-3))) (Utils-Elab-TTImp-case--7288-12446 e-2 e-3 e-10 e-9 arg-7 arg-6 arg-3 arg-2 vs 'erased tmptm (Utils-Elab-TTImp-bindNotReq 'erased e-3 arg-2 (b+ 1 arg-3 63) e-10 (vector 0 ) arg-6 tmptm))))) ((2) (let ((e-15 (vector-ref sc2 1))) (let ((tmptm (SubstEnv-TT-Core-subst e-3 e-2 (vector 1 arg-2 (vector 0 ) (vector 2 "arg" arg-3)) arg-7))) (let ((vs (vector 1 e-2 e-3))) (Utils-Elab-TTImp-case--7288-12507 e-2 e-3 'erased e-10 e-9 e-15 arg-7 arg-6 arg-3 arg-2 vs 'erased tmptm (Utils-Elab-TTImp-bindNotReq 'erased e-3 arg-2 (b+ 1 arg-3 63) e-10 e-15 arg-6 tmptm)))))) (else (let ((e-19 (vector-ref sc2 1))) (Utils-Elab-TTImp-bindNotReq 'erased e-3 arg-2 arg-3 e-10 e-19 (vector 1 (vector 0 (Utils-Elab-TTImp-plicit 'erased e-9) e-2) arg-6) (vector 3 arg-2 e-2 (vector 2 (TT-Core-multiplicity 'erased e-9) (vector 1 ) (TT-Core-binderType 'erased e-9)) arg-7)))))))))))))))) +(define Lazy-Elab-TTImp-case--9258-12314 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((5) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 (vector 8 arg-3 e-2 arg-14) (Normalise-Core-glueBack arg-0 arg-12 arg-4 e-3)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Forcing a non-delayed type") eta-0))))))) +(define Lazy-Elab-TTImp-case--9209-12271 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-11 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((5) (let ((e-6 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 1 (vector 0 (vector 8 arg-3 e-6 e-2) (Normalise-Core-glueBack arg-0 arg-12 arg-4 e-4))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Forcing a non-delayed type") eta-0))))))))))))))) +(define Lazy-Elab-TTImp-case--8975-12083 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-11 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 7 arg-3 arg-18 e-6 e-2) (Normalise-Core-glueBack arg-0 arg-20 arg-4 (vector 5 arg-3 arg-18 e-5)))))))))))))))))))) +(define Lazy-Elab-TTImp-case--8842-12022 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((5) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-11))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Check-Elab-TTImp-check arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-3))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((act-26 ((Normalise-Core-getNF 'erased arg-11 e-4) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-27 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 (vector 7 arg-3 e-2 e-9 e-7) (Normalise-Core-glueBack arg-0 e-5 arg-4 (vector 5 arg-3 e-2 e-8)))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected delay type") arg-4 arg-16 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Can't infer delay type") eta-0))))))))))) +(define Lazy-Elab-TTImp-case--8842-11935 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) +(define Lazy-Elab-TTImp-case--8753-11861 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 6 arg-4 arg-3 e-2) e-3)))))))) +(define Lazy-Elab-TTImp-n--8842-11914-delayError (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((47) 0)(else 1))))) (define Lazy-Elab-TTImp-checkForce (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (gty) (lambda (eta-0) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 gty) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-8 (vector 5 arg-9 (vector 2 ) e-6)))))))))))) arg-11) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 e-6) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-27 ((Normalise-Core-getNF 'erased arg-1 e-3) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((5) (let ((e-9 (vector-ref sc5 2))) (let ((e-4 (vector-ref sc5 3))) (vector 1 (vector 0 (vector 8 arg-9 e-9 e-2) (Normalise-Core-glueBack arg-0 e-5 arg-8 e-4))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Forcing a non-delayed type") ext-0))))))))))))))))))))))))))))) (define Lazy-Elab-TTImp-checkDelayed (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-11 (vector 1 (Normalise-Core-gType 'erased arg-9))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 1 (vector 0 (vector 6 arg-9 arg-10 e-2) e-3)))))))))))) -(define Lazy-Elab-TTImp-checkDelay (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-1 arg-3 "delayTy" eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-5 (vector 11 arg-9) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-6)))))))))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) arg-11) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((solvemode (Lazy-Elab-TTImp-case--8791-11927 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (let ((act-25 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-5 (lambda (eta-0) (Lazy-Elab-TTImp-n--8791-11906-delayError arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-0) (let ((act-26 ((Normalise-Core-getNF 'erased arg-1 e-5) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((5) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 (vector 1 (Normalise-Core-glueBack arg-0 e-8 arg-8 e-3))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (let ((e-10 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((act-29 ((Normalise-Core-getNF 'erased arg-1 e-4) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-30 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (vector 1 (vector 0 (vector 7 arg-9 e-2 e-12 e-10) (Normalise-Core-glueBack arg-0 e-8 arg-8 (vector 5 arg-9 e-2 e-11))))))))))))))))))))))))))))))(else (let ((act-27 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected delay type") arg-8 e-7 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Can't infer delay type") eta-0))))))))))))))) ext-0))))))))))))) -(define ImplicitBind-Elab-TTImp-case--13629-11643 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 arg-3 e-2 0 e-4 e-5)))))))) -(define ImplicitBind-Elab-TTImp-case--13703-11585 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9))))))))))))) -(define ImplicitBind-Elab-TTImp-case--13703-11476 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) -(define ImplicitBind-Elab-TTImp-case--13703-11374 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) -(define ImplicitBind-Elab-TTImp-case--13703-11300 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32) (let ((sc0 arg-32)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (vector 0 e-1 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))) -(define ImplicitBind-Elab-TTImp-case--13703-11191 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36) (let ((sc0 arg-36)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ImplicitBind-Elab-TTImp-implicitBind arg-12 arg-10 eta-1 eta-2))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-30)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-12 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 e-2 (Normalise-Core-gnf arg-0 arg-5 e-3) arg-1) eta-0))))))))))) -(define ImplicitBind-Elab-TTImp-case--13629-10958 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Unify-Core-solveConstraints arg-12 arg-10 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--13703-11476 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-2 e-3 _-0 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0)))) (vector 0 ) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Unify-Core-solveConstraintsAfter arg-12 arg-10 arg-19 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--13703-11374 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-2 e-3 _-0 e-5 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (vector 1 ) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (unbox arg-10))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (Delayed-Elab-TTImp-retryDelayed arg-0 arg-12 arg-11 arg-10 arg-9 (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 9))) e-8)) eta-1)) (lambda (err) (lambda (eta-1) (let ((act-27 (let ((act-27 (unbox arg-10))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (set-box! arg-10 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-15 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-13 (vector-ref sc5 6))) (let ((e-12 (vector-ref sc5 7))) (let ((e-11 (vector-ref sc5 8))) (let ((e-9 (vector-ref sc5 10))) (vector 0 e-0 e-1 e-15 e-14 e-4 e-13 e-12 e-11 (vector 0 ) e-9)))))))))))))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-28 (Unify-Core-checkDots arg-10 arg-12 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-29 (Context-Core-logTerm arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Binding names") e-2 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 (Normalise-Core-logTermNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") arg-5 e-2 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 ((ImplicitBind-Elab-TTImp-getToBind arg-0 arg-12 arg-9 arg-10 arg-4 (let ((sc8 arg-7)) (let ((e-0 (vector-ref sc8 1))) e-0)) arg-3 arg-5 arg-17) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Check-Elab-TTImp-clearToBind 'erased arg-9 arg-17 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-33 (let ((act-33 (unbox arg-9))) (vector 1 act-33)))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 (let ((act-34 (set-box! arg-9 (Check-Elab-TTImp-updateEnv 'erased (let ((sc11 arg-13)) (let ((e-1 (vector-ref sc11 1))) e-1)) arg-14 arg-15 arg-16 (let ((sc11 e-14)) (let ((e-1 (vector-ref sc11 1))) (let ((e-25 (vector-ref sc11 2))) (let ((e-24 (vector-ref sc11 3))) (let ((e-4 (vector-ref sc11 4))) (let ((e-22 (vector-ref sc11 6))) (let ((e-21 (vector-ref sc11 7))) (let ((e-20 (vector-ref sc11 8))) (let ((e-19 (vector-ref sc11 9))) (let ((e-18 (vector-ref sc11 10))) (let ((e-17 (vector-ref sc11 11))) (let ((e-16 (vector-ref sc11 12))) (let ((e-15 (vector-ref sc11 13))) (vector 0 e-1 e-25 e-24 e-4 (vector 0 ) e-22 e-21 e-20 e-19 e-18 e-17 e-16 e-15)))))))))))))))))) (vector 1 act-34)))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-35 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-36 (let ((act-36 (unbox arg-12))) (vector 1 act-36)))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc13 1))) (let ((act-37 (let ((act-37 (Normalise-Core-normaliseHoles arg-0 e-17 arg-5 e-2 eta-0))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc14 1))) (let ((act-38 (Normalise-Core-normaliseHoles arg-0 e-17 arg-5 e-16 eta-0))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc15 1))) ((ImplicitBind-Elab-TTImp-bindImplicits arg-0 arg-4 arg-3 e-17 arg-5 e-12 e-18 e-19) eta-0))))))))))))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc14 1))) (let ((sc15 e-18)) (let ((e-19 (vector-ref sc15 1))) (let ((e-4 (vector-ref sc15 2))) (let ((act-38 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ImplicitBind-Elab-TTImp-implicitBind arg-12 arg-10 eta-1 eta-2))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-12)) eta-0))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-20 (vector-ref sc16 1))) (vector 0 e-20))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-12 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 e-19 (Normalise-Core-gnf arg-0 arg-5 e-4) arg-1) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define ImplicitBind-Elab-TTImp-case--13134-10699 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (vector 0 e-1 e-2 e-3 e-4 (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) arg-18 arg-19)) e-5) (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) arg-18 arg-20)) e-6) e-7 e-8 e-9 e-10 e-11 e-12 e-13))))))))))))))))) -(define ImplicitBind-Elab-TTImp-case--13134-10586 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Unify-Core-setInvertible arg-11 arg-3 arg-14 eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ImplicitBind-Elab-TTImp-case--13067-10435 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ImplicitBind-Elab-TTImp-case--13134-10586 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-2 e-6 e-7 _-0 (let ((sc2 arg-6)) (let ((e-1 (vector-ref sc2 2))) e-1))) eta-0)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-25 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added Bound implicit " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-14 (vector 0 arg-7 (vector 0 e-2 (vector 0 e-6 e-7))))))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (unbox arg-8))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 (set-box! arg-8 (let ((sc5 e-9)) (let ((e-1 (vector-ref sc5 1))) (let ((e-20 (vector-ref sc5 2))) (let ((e-19 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-18 (vector-ref sc5 5))) (let ((e-17 (vector-ref sc5 6))) (let ((e-16 (vector-ref sc5 7))) (let ((e-15 (vector-ref sc5 8))) (let ((e-14 (vector-ref sc5 9))) (let ((e-10 (vector-ref sc5 10))) (let ((e-11 (vector-ref sc5 11))) (let ((e-12 (vector-ref sc5 12))) (let ((e-13 (vector-ref sc5 13))) (vector 0 e-1 e-20 e-19 e-4 (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-6)) e-18) (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-7)) e-17) e-16 e-15 e-14 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (Metadata-Core-addNameType arg-0 arg-11 arg-10 arg-3 (vector 1 arg-2) arg-4 e-6 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-11 arg-9 arg-8 arg-7 arg-6 arg-4 arg-3 e-2 (Normalise-Core-gnf arg-0 arg-4 e-6) arg-1) eta-0))))))))))))))))))))))))))))))) -(define ImplicitBind-Elab-TTImp-case--12989-10384 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-mkPatternHole arg-0 arg-8 arg-11 arg-9 arg-3 arg-7 arg-14 arg-4 (let ((sc1 arg-6)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-25 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ImplicitBind-Elab-TTImp-case--13134-10586 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-2 e-6 e-7 _-0 (let ((sc4 arg-6)) (let ((e-1 (vector-ref sc4 2))) e-1))) eta-0)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-26 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added Bound implicit " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-14 (vector 0 arg-7 (vector 0 e-2 (vector 0 e-6 e-7))))))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-27 (let ((act-27 (unbox arg-8))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 (let ((act-28 (set-box! arg-8 (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((e-20 (vector-ref sc7 3))) (let ((e-4 (vector-ref sc7 4))) (let ((e-19 (vector-ref sc7 5))) (let ((e-18 (vector-ref sc7 6))) (let ((e-17 (vector-ref sc7 7))) (let ((e-16 (vector-ref sc7 8))) (let ((e-15 (vector-ref sc7 9))) (let ((e-14 (vector-ref sc7 10))) (let ((e-11 (vector-ref sc7 11))) (let ((e-12 (vector-ref sc7 12))) (let ((e-13 (vector-ref sc7 13))) (vector 0 e-1 e-21 e-20 e-4 (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-6)) e-19) (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-7)) e-18) e-17 e-16 e-15 e-14 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-28)))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-29 (Metadata-Core-addNameType arg-0 arg-11 arg-10 arg-3 (vector 1 arg-2) arg-4 e-6 eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-11 arg-9 arg-8 arg-7 arg-6 arg-4 arg-3 e-2 (Normalise-Core-gnf arg-0 arg-4 e-6) arg-1) eta-0))))))))))))))))))))))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-n--12626-10019-combine arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (vector 1 arg-2) arg-7 (Check-Elab-TTImp-bindingRig 'erased e-2)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((tm (Check-Elab-TTImp-bindingTerm 'erased e-2))) (let ((ty (Check-Elab-TTImp-bindingType 'erased e-2))) (let ((act-25 (Metadata-Core-addNameType arg-0 arg-11 arg-10 arg-3 (vector 1 arg-2) arg-4 ty eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-11 arg-9 arg-8 arg-7 arg-6 arg-4 arg-3 tm (Normalise-Core-gnf arg-0 arg-4 ty) arg-1) eta-0)))))))))))))))))) -(define ImplicitBind-Elab-TTImp-case--12626-10312 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((n (vector 3 (vector 1 arg-2) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 2))) e-2))))) (let ((act-25 ((Check-Elab-TTImp-noteLHSPatVar 'erased arg-8 arg-12 (vector 1 arg-2)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Check-Elab-TTImp-notePatVar 'erased arg-8 n eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (unbox arg-8))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((ImplicitBind-Elab-TTImp-case--12989-10384 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 n e-6 e-7 e-8 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) n (let ((sc5 e-8)) (let ((e-17 (vector-ref sc5 5))) e-17)))) eta-0))))))))))))))))))))))))(else (Check-Elab-TTImp-check arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (vector 0 arg-3 (vector 1 arg-2)) arg-1)))))) -(define ImplicitBind-Elab-TTImp-case--12626-10247 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (Prelude-maybe 'erased 'erased (lambda () 1) (lambda () (lambda (eta-0) 0)) (Env-Core-defined arg-0 (vector 1 arg-2) arg-4)))(else 1))))) -(define ImplicitBind-Elab-TTImp-case--11784-9962 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) -(define ImplicitBind-Elab-TTImp-case--11784-9915 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) -(define ImplicitBind-Elab-TTImp-case--11806-9676 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-9 arg-10) (vector 1 (vector 0 arg-11 arg-12) arg-13))) (else (vector 1 (vector 0 arg-11 arg-12) (ImplicitBind-Elab-TTImp-n--11784-9258-insert arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 0 arg-9 arg-10) arg-15 (vector 1 arg-11 arg-14) arg-13))))))) -(define ImplicitBind-Elab-TTImp-case--12004-9494 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-n--11784-9257-normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 (vector 1 arg-19 arg-12) arg-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ImplicitBind-Elab-TTImp-n--11784-9256-normBindingTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 arg-10) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 arg-19 e-6) e-5)))))))))))))) (else (ImplicitBind-Elab-TTImp-n--11784-9257-normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 arg-12 arg-11)))))) -(define ImplicitBind-Elab-TTImp-case--11805-9443 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-isCurrentHole arg-6 e-7 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc2 1))) ((ImplicitBind-Elab-TTImp-case--12004-9494 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-5 e-8 e-7 e-6 e-3 e-9 (Prelude-C-38C-38 e-9 (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-6 arg-12))))) eta-0))))))))))))(else (ImplicitBind-Elab-TTImp-n--11784-9257-normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 arg-12 arg-11)))))))(else (ImplicitBind-Elab-TTImp-n--11784-9257-normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 arg-12 arg-11)))))) -(define ImplicitBind-Elab-TTImp-case--11805-9324 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (ImplicitBind-Elab-TTImp-n--11784-9257-normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-14 arg-13 arg-12)) (else (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-n--11784-9257-normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-14 (vector 1 (vector 3 arg-10 arg-9) arg-13) arg-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ImplicitBind-Elab-TTImp-n--11784-9256-normBindingTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-14 arg-11) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 (vector 3 arg-10 arg-9) e-6) e-5)))))))))))))))))) -(define ImplicitBind-Elab-TTImp-case--11721-9201 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (let ((act-24 (Context-Core-updateDef arg-2 arg-0 (lambda (eta-1) (vector 1 (vector 10 ))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (UnifyState-Core-removeHoleName arg-2 arg-1 arg-0 eta-0)))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ImplicitBind-Elab-TTImp-case--11146-9045 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (ImplicitBind-Elab-TTImp-n--11146-8716-tidyName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2) (vector 0 e-2 e-3))))))) -(define ImplicitBind-Elab-TTImp-case--11163-8968 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((btyC-39 (TT-Core-refsToLocals 'erased arg-9 arg-20 arg-15))) (let ((bpatC-39 (TT-Core-refsToLocals 'erased arg-9 arg-20 arg-14))) (vector 0 (vector 3 arg-7 arg-12 (vector 4 arg-16 bpatC-39 btyC-39) e-2) (vector 3 arg-7 arg-12 (vector 4 arg-16 bpatC-39 btyC-39) e-3))))))))) -(define ImplicitBind-Elab-TTImp-case--11223-8818 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (vector 0 (vector 3 arg-7 arg-10 (vector 2 e-0 (vector 0 ) arg-22) arg-20) (vector 11 arg-7))))(else (vector 0 (vector 3 arg-7 arg-10 (vector 3 arg-14 (TT-Core-map_Functor__PiInfo 'erased 'erased (lambda (eta-0) (TT-Core-weakenNs_Weaken__Term arg-8 arg-18 eta-0)) arg-13) arg-22) arg-20) (vector 3 arg-7 arg-10 (vector 5 arg-14 arg-22) arg-21))))))) -(define ImplicitBind-Elab-TTImp-case--11163-8767 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((btyC-39 (TT-Core-refsToLocals 'erased arg-18 arg-19 arg-12))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (vector 0 (vector 3 arg-7 arg-10 (vector 2 e-0 (vector 0 ) btyC-39) e-2) (vector 11 arg-7))))(else (vector 0 (vector 3 arg-7 arg-10 (vector 3 arg-14 (TT-Core-map_Functor__PiInfo 'erased 'erased (lambda (eta-0) (TT-Core-weakenNs_Weaken__Term arg-8 arg-18 eta-0)) arg-13) btyC-39) e-2) (vector 3 arg-7 arg-10 (vector 5 arg-14 btyC-39) e-3))))))))))) -(define ImplicitBind-Elab-TTImp-case--10961-8569 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (vector 3 arg-10 arg-3 arg-9 arg-8)) (else (let ((e-2 (vector-ref sc0 1))) (vector 3 arg-7 (vector 3 arg-2 arg-1) (vector 2 arg-5 (vector 0 ) e-2) (ImplicitBind-Elab-TTImp-push (vector 1 (vector 3 arg-2 arg-1) arg-0) arg-10 arg-3 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term (vector 3 arg-2 arg-1) arg-0 eta-0)) arg-9) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased (vector 0 ) arg-6))))))))) -(define ImplicitBind-Elab-TTImp-case--10665-8317 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (vector 0 arg-8 arg-7 arg-9))) -(define ImplicitBind-Elab-TTImp-case--10534-8245 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (+ 1 arg-9))) -(define ImplicitBind-Elab-TTImp-case--10125-7885 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) -(define ImplicitBind-Elab-TTImp-case--9812-7798 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-normaliseHoles arg-10 arg-18 arg-11 arg-14 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((ImplicitBind-Elab-TTImp-n--9793-7515-makeBoundVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 arg-8 arg-9 arg-12 arg-17 arg-15 arg-16 e-5) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-logTerm arg-10 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Added unbound implicit") e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) arg-10 arg-6 arg-3) (let ((sc4 arg-1)) (case (vector-ref sc4 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))) arg-2) arg-11) arg-13) e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ImplicitBind-Elab-TTImp-case--9830-7688 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-19)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (vector 0 e-1 e-2 e-3 e-4 e-5 (vector 1 (vector 0 arg-17 (vector 0 arg-4 arg-14 arg-20 (TT-Core-embedSub 'erased 'erased arg-10 arg-18) (TT-Core-embedSub 'erased 'erased arg-10 arg-16))) e-6) e-7 e-8 e-9 e-10 e-11 e-12 e-13))))))))))))))))) -(define ImplicitBind-Elab-TTImp-case--9811-7536 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-6 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) arg-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 "Can't bind implicit " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-15) (Strings-Prelude-C-43C-43 " of type " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-8 e-5))))) eta-0)))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-6 arg-3 (Name-Core-nameRoot arg-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-7 arg-6 arg-3 arg-2 arg-14 arg-12 e-5 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-5))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((pC-39 (TT-Core-forgetDef 'erased 'erased arg-13))) (let ((act-27 (let ((act-27 (set-box! arg-5 (let ((sc4 e-7)) (let ((e-1 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((e-16 (vector-ref sc4 5))) (let ((e-15 (vector-ref sc4 6))) (let ((e-14 (vector-ref sc4 7))) (let ((e-8 (vector-ref sc4 8))) (let ((e-9 (vector-ref sc4 9))) (let ((e-10 (vector-ref sc4 10))) (let ((e-11 (vector-ref sc4 11))) (let ((e-12 (vector-ref sc4 12))) (let ((e-13 (vector-ref sc4 13))) (vector 0 e-1 e-17 e-3 e-4 e-16 (vector 1 (vector 0 e-5 (vector 0 arg-4 arg-14 pC-39 (TT-Core-embedSub 'erased 'erased arg-10 e-6) (TT-Core-embedSub 'erased 'erased arg-10 e-2))) e-15) e-14 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 (TT-Core-embedSub 'erased 'erased arg-11 e-6))))))))))))))))))))))))))))) -(define ImplicitBind-Elab-TTImp-case--9479-7395 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (ImplicitBind-Elab-TTImp-mkPatternHole arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Check-Elab-TTImp-implBindVar (let ((sc1 arg-10)) (let ((e-1 (vector-ref sc1 1))) e-1)) arg-8 arg-7 arg-6 arg-5 arg-12 arg-4 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (TT-Core-apply 'erased arg-6 (TT-Core-embedSub 'erased 'erased arg-11 e-5) (ImplicitBind-Elab-TTImp-n--9479-7283-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-0 arg-11)) (vector 0 arg-13 (TT-Core-embedSub 'erased 'erased arg-11 e-2)))))))))))))))) -(define ImplicitBind-Elab-TTImp-case--9479-7245 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 e-3 e-3))))))))) -(define ImplicitBind-Elab-TTImp-case--9266-7046 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (ImplicitBind-Elab-TTImp-mkOuterHole arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((env (let ((sc1 arg-9)) (let ((e-3 (vector-ref sc1 3))) e-3)))) (lambda (eta-0) (let ((act-24 (Check-Elab-TTImp-implBindVar (let ((sc1 arg-9)) (let ((e-1 (vector-ref sc1 1))) e-1)) arg-7 arg-6 arg-5 arg-4 env arg-3 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (TT-Core-embedSub 'erased 'erased arg-10 e-5) (TT-Core-embedSub 'erased 'erased arg-10 e-2)))))))))))))))) -(define ImplicitBind-Elab-TTImp-n--11146-8716-tidyName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (ImplicitBind-Elab-TTImp-n--11146-8716-tidyName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1))) ((3) (let ((e-2 (vector-ref sc0 1))) (ImplicitBind-Elab-TTImp-n--11146-8716-tidyName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2))) ((6) (let ((e-5 (vector-ref sc0 2))) (ImplicitBind-Elab-TTImp-n--11146-8716-tidyName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5)))(else arg-8))))) -(define ImplicitBind-Elab-TTImp-n--10437-8122-swapP (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (cond ((equal? sc0 0) 0)(else (let ((e-0 (- arg-8 1))) (+ 1 (+ 1 e-0)))))))) -(define ImplicitBind-Elab-TTImp-n--11784-9257-normImps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((3) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF arg-1 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Implicit pattern var " (Name-Core-show_Show__Name (vector 3 e-8 e-9)))) arg-2 (Check-Elab-TTImp-bindingType 'erased e-7) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) ((ImplicitBind-Elab-TTImp-case--11805-9324 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-9 e-8 e-7 e-3 arg-10 arg-9 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (vector 3 e-8 e-9) arg-10)) eta-0))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 (Check-Elab-TTImp-bindingTerm 'erased e-7) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-logTerm arg-1 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Normalising implicit " (Name-Core-show_Show__Name e-6))) e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((ImplicitBind-Elab-TTImp-case--11805-9443 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6 e-7 e-3 arg-10 arg-9 e-5 e-8 (TT-Core-getFnArgs 'erased e-5)) eta-0))))))))))))))))))))))))) -(define ImplicitBind-Elab-TTImp-n--11784-9256-normBindingTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 e-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 arg-1 e-1 e-2 e-3 e-5))))))))))))) (else (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (let ((e-10 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 e-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 e-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc2 1))) (vector 1 (vector 1 arg-1 e-6 e-7 e-8 e-11 e-12))))))))))))))))))))))) -(define ImplicitBind-Elab-TTImp-n--11648-9129-nHoles (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((e-8 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-normaliseHolesScope arg-0 arg-5 arg-4 e-8) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc2 1))) (vector 1 (vector 0 e-2 (vector 0 arg-0 e-5 e-6 e-7 e-9)))))))))))))) (else (let ((e-10 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (let ((e-12 (vector-ref sc1 4))) (let ((e-13 (vector-ref sc1 5))) (let ((e-14 (vector-ref sc1 6))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-normaliseHolesScope arg-0 arg-5 arg-4 e-13) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 e-2 (vector 1 arg-0 e-10 e-11 e-12 e-5 e-14)))))))))))))))))))))) -(define ImplicitBind-Elab-TTImp-n--9793-7516-mkImplicit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((sc6 e-23)) (let ((e-26 (vector-ref sc6 1))) (let ((e-27 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc7 arg-8)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc7 1))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((sc9 e-1)) (case (vector-ref sc9 0) ((7) (let ((act-25 (let ((act-25 (Normalise-Core-normaliseHoles e-10 arg-8 e-14 e-26 eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((ImplicitBind-Elab-TTImp-n--9793-7515-makeBoundVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-10 e-2 e-6 e-18 arg-9 e-27 arg-10 e-9) eta-0)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (let ((act-26 (Context-Core-logTerm e-10 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Added unbound implicit") e-9 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 1))) (vector 0 e-12))) (else (let ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) e-10 arg-6 arg-3) (let ((sc12 arg-1)) (case (vector-ref sc12 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))) arg-2) e-14) e-22) e-9) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (vector 1 (vector 0 ))))))))))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))) -(define ImplicitBind-Elab-TTImp-n--9479-7283-mkArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 arg-6 (vector 0 ) 0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-1 e-2 eta-0)) (ImplicitBind-Elab-TTImp-n--9479-7283-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased e-2 e-6)))))(else (vector 0 )))))))(else (vector 0 ))))))))) -(define ImplicitBind-Elab-TTImp-n--9793-7515-makeBoundVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (ImplicitBind-Elab-TTImp-case--9811-7536 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 (TT-Core-shrinkTerm 'erased 'erased arg-15 arg-13)))) -(define ImplicitBind-Elab-TTImp-n--11081-8660-liftImpsC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((e-14 (vector-ref sc2 3))) (let ((sc3 e-13)) (case (vector-ref sc3 0) ((0) (vector 3 e-1 (vector 3 e-9 e-10) (vector 2 e-12 (vector 0 ) e-14) (ImplicitBind-Elab-TTImp-n--11081-8660-liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (vector 1 (vector 3 e-9 e-10) arg-4) e-4)))(else (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((e-8 (vector-ref sc3 3))) (ImplicitBind-Elab-TTImp-push arg-4 e-1 e-2 (vector 2 e-6 e-7 e-8) (ImplicitBind-Elab-TTImp-n--11081-8660-liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (vector 1 e-2 arg-4) e-4))))))(else arg-5))))))))))(else (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (ImplicitBind-Elab-TTImp-push arg-4 e-1 e-2 (vector 2 e-6 e-7 e-8) (ImplicitBind-Elab-TTImp-n--11081-8660-liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (vector 1 e-2 arg-4) e-4))))))(else arg-5)))))))))(else (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (ImplicitBind-Elab-TTImp-push arg-4 e-1 e-2 (vector 2 e-6 e-7 e-8) (ImplicitBind-Elab-TTImp-n--11081-8660-liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (vector 1 e-2 arg-4) e-4))))))(else arg-5)))))))))))(else arg-5))))) -(define ImplicitBind-Elab-TTImp-n--12626-10018-isIncompatible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (Prelude-C-38C-38 (Prelude-C-124C-124 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-12) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-13))) (lambda () (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-12 arg-13)))))) -(define ImplicitBind-Elab-TTImp-n--11784-9258-insert (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (vector 1 arg-9 (vector 0 )))(else (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-12)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((used (List-Data-filter 'erased (lambda (n) (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) n arg-10)) (NameMap-Data-keys 'erased (Check-Elab-TTImp-bindingMetas 'erased e-10))))) (ImplicitBind-Elab-TTImp-case--11806-9676 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 e-9 e-10 e-6 arg-11 arg-10 used (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-2 used))))))))))))))))) -(define ImplicitBind-Elab-TTImp-n--11146-8717-getBinds (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (vector 0 (TT-Core-refsToLocals 'erased arg-9 arg-11 arg-12) (TT-Core-refsToLocals 'erased arg-9 arg-11 arg-13))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (let ((e-16 (vector-ref sc3 5))) (ImplicitBind-Elab-TTImp-case--11163-8767 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-12 e-15 e-6 e-10 e-16 e-14 e-13 e-3 arg-13 arg-12 arg-9 arg-11 (ImplicitBind-Elab-TTImp-n--11146-8717-getBinds 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased (vector 1 e-6 arg-9) e-3 (vector 1 e-6 e-10 arg-11) arg-12 arg-13)))))))) (else (let ((e-17 (vector-ref sc3 1))) (let ((e-18 (vector-ref sc3 2))) (let ((e-19 (vector-ref sc3 3))) (let ((e-20 (vector-ref sc3 4))) (let ((e-21 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (ImplicitBind-Elab-TTImp-case--11163-8968 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-17 arg-9 e-19 e-20 e-6 e-10 e-22 e-21 e-18 e-3 arg-13 arg-12 arg-11 (ImplicitBind-Elab-TTImp-n--11146-8717-getBinds 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased (vector 1 e-6 arg-9) e-3 (vector 1 e-6 e-10 arg-11) arg-12 arg-13)))))))))))))))))))))))) -(define ImplicitBind-Elab-TTImp-n--11784-9259-depSort (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ImplicitBind-Elab-TTImp-n--11784-9258-insert arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 arg-9 (vector 0 ) (ImplicitBind-Elab-TTImp-n--11784-9259-depSort arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3))))))))) -(define ImplicitBind-Elab-TTImp-n--12626-10019-combine (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 (ImplicitBind-Elab-TTImp-n--12626-10018-isIncompatible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-13 arg-14))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-3 (+ 1 (+ 1 0)) arg-12) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ImplicitBind-Elab-TTImp-n--9479-7284-bindInner (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (vector 1 arg-13))(else (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (ImplicitBind-Elab-TTImp-n--9479-7284-bindInner arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased e-2 e-7 (vector 3 arg-6 e-1 e-6 arg-13) e-11)))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))))) -(define ImplicitBind-Elab-TTImp-swapVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (ImplicitBind-Elab-TTImp-case--10665-8317 'erased 'erased 'erased arg-3 'erased e-4 'erased e-3 e-2 (ImplicitBind-Elab-TTImp-swapIsVar 'erased 'erased 'erased 'erased arg-3 e-4 'erased)))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (vector 1 e-7 e-8 e-9))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (vector 2 e-11 e-12 e-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 eta-0)) e-14))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (vector 3 e-16 e-17 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 eta-0)) e-18) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased (vector 1 e-17 arg-3) e-19))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (vector 4 e-21 (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 e-22) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 e-23)))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (vector 5 e-25 e-26 (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 e-27) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 e-28))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (vector 6 e-30 e-31 (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 e-32)))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (vector 7 e-34 e-35 (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 e-36) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 e-37))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (vector 8 e-39 e-40 (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 e-41)))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (vector 9 e-43 e-44)))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (vector 10 e-46 e-47)))) (else (let ((e-49 (vector-ref sc0 1))) (vector 11 e-49))))))) -(define ImplicitBind-Elab-TTImp-swapIsVarH (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (+ 1 0))(else (let ((e-0 (- arg-4 1))) (ImplicitBind-Elab-TTImp-n--10437-8122-swapP 'erased 'erased 'erased 'erased e-0 'erased arg-4 'erased e-0 'erased))))))) -(define ImplicitBind-Elab-TTImp-swapIsVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (ImplicitBind-Elab-TTImp-swapIsVarH 'erased 'erased 'erased 'erased arg-5 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-5 1))) (let ((idx (+ 1 e-4))) (ImplicitBind-Elab-TTImp-case--10534-8245 'erased 'erased 'erased 'erased e-4 e-2 e-3 'erased idx (ImplicitBind-Elab-TTImp-swapIsVar 'erased 'erased 'erased 'erased e-3 e-4 'erased)))))))))))))) -(define ImplicitBind-Elab-TTImp-push (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((e-10 (vector-ref sc2 3))) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((0) (let ((tm (vector 3 e-1 (vector 3 e-5 e-6) (vector 2 e-8 (vector 0 ) e-10) e-4))) (ImplicitBind-Elab-TTImp-case--10961-8569 arg-0 e-6 e-5 arg-2 e-10 e-8 e-4 e-1 tm arg-3 arg-1 (TT-Core-shrinkTerm 'erased 'erased e-10 (vector 1 (vector 0 ))))))(else (vector 3 arg-1 arg-2 arg-3 arg-4))))))))(else (vector 3 arg-1 arg-2 arg-3 arg-4)))))))(else (vector 3 arg-1 arg-2 arg-3 arg-4)))))))))(else (vector 3 arg-1 arg-2 arg-3 arg-4)))))) +(define Lazy-Elab-TTImp-checkDelay (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-1 arg-3 "delayTy" eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-5 (vector 11 arg-9) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-6)))))))))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) arg-11) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((solvemode (Lazy-Elab-TTImp-case--8842-11935 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (let ((act-25 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-5 (lambda (eta-0) (Lazy-Elab-TTImp-n--8842-11914-delayError arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-0) (let ((act-26 ((Normalise-Core-getNF 'erased arg-1 e-5) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((5) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 (vector 1 (Normalise-Core-glueBack arg-0 e-8 arg-8 e-3))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (let ((e-10 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((act-29 ((Normalise-Core-getNF 'erased arg-1 e-4) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-30 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (vector 1 (vector 0 (vector 7 arg-9 e-2 e-12 e-10) (Normalise-Core-glueBack arg-0 e-8 arg-8 (vector 5 arg-9 e-2 e-11))))))))))))))))))))))))))))))(else (let ((act-27 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected delay type") arg-8 e-7 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Can't infer delay type") eta-0))))))))))))))) ext-0))))))))))))) +(define ImplicitBind-Elab-TTImp-case--13680-11712 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 arg-3 e-2 0 e-4 e-5)))))))) +(define ImplicitBind-Elab-TTImp-case--13754-11654 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9))))))))))))) +(define ImplicitBind-Elab-TTImp-case--13754-11545 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) +(define ImplicitBind-Elab-TTImp-case--13754-11443 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) +(define ImplicitBind-Elab-TTImp-case--13754-11369 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32) (let ((sc0 arg-32)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (vector 0 e-1 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))) +(define ImplicitBind-Elab-TTImp-case--13754-11260 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36) (let ((sc0 arg-36)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ImplicitBind-Elab-TTImp-implicitBind arg-12 arg-10 eta-1 eta-2))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-30)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-12 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 e-2 (Normalise-Core-gnf arg-0 arg-5 e-3) arg-1) eta-0))))))))))) +(define ImplicitBind-Elab-TTImp-case--13680-11027 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Unify-Core-solveConstraints arg-12 arg-10 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--13754-11545 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-2 e-3 _-0 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0)))) (vector 0 ) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Unify-Core-solveConstraintsAfter arg-12 arg-10 arg-19 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--13754-11443 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-2 e-3 _-0 e-5 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (vector 1 ) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (unbox arg-10))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (Delayed-Elab-TTImp-retryDelayed arg-0 arg-12 arg-11 arg-10 arg-9 (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 9))) e-8)) eta-1)) (lambda (err) (lambda (eta-1) (let ((act-27 (let ((act-27 (unbox arg-10))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (set-box! arg-10 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-15 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-13 (vector-ref sc5 6))) (let ((e-12 (vector-ref sc5 7))) (let ((e-11 (vector-ref sc5 8))) (let ((e-9 (vector-ref sc5 10))) (vector 0 e-0 e-1 e-15 e-14 e-4 e-13 e-12 e-11 (vector 0 ) e-9)))))))))))))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-28 (Unify-Core-checkDots arg-10 arg-12 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-29 (Context-Core-logTerm arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Binding names") e-2 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 (Normalise-Core-logTermNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") arg-5 e-2 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 ((ImplicitBind-Elab-TTImp-getToBind arg-0 arg-12 arg-9 arg-10 arg-4 (let ((sc8 arg-7)) (let ((e-0 (vector-ref sc8 1))) e-0)) arg-3 arg-5 arg-17) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Check-Elab-TTImp-clearToBind 'erased arg-9 arg-17 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-33 (let ((act-33 (unbox arg-9))) (vector 1 act-33)))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 (let ((act-34 (set-box! arg-9 (Check-Elab-TTImp-updateEnv 'erased (let ((sc11 arg-13)) (let ((e-1 (vector-ref sc11 1))) e-1)) arg-14 arg-15 arg-16 (let ((sc11 e-14)) (let ((e-1 (vector-ref sc11 1))) (let ((e-25 (vector-ref sc11 2))) (let ((e-24 (vector-ref sc11 3))) (let ((e-4 (vector-ref sc11 4))) (let ((e-22 (vector-ref sc11 6))) (let ((e-21 (vector-ref sc11 7))) (let ((e-20 (vector-ref sc11 8))) (let ((e-19 (vector-ref sc11 9))) (let ((e-18 (vector-ref sc11 10))) (let ((e-17 (vector-ref sc11 11))) (let ((e-16 (vector-ref sc11 12))) (let ((e-15 (vector-ref sc11 13))) (vector 0 e-1 e-25 e-24 e-4 (vector 0 ) e-22 e-21 e-20 e-19 e-18 e-17 e-16 e-15)))))))))))))))))) (vector 1 act-34)))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-35 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-36 (let ((act-36 (unbox arg-12))) (vector 1 act-36)))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc13 1))) (let ((act-37 (let ((act-37 (Normalise-Core-normaliseHoles arg-0 e-17 arg-5 e-2 eta-0))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc14 1))) (let ((act-38 (Normalise-Core-normaliseHoles arg-0 e-17 arg-5 e-16 eta-0))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc15 1))) ((ImplicitBind-Elab-TTImp-bindImplicits arg-0 arg-4 arg-3 e-17 arg-5 e-12 e-18 e-19) eta-0))))))))))))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc14 1))) (let ((sc15 e-18)) (let ((e-19 (vector-ref sc15 1))) (let ((e-4 (vector-ref sc15 2))) (let ((act-38 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ImplicitBind-Elab-TTImp-implicitBind arg-12 arg-10 eta-1 eta-2))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-12)) eta-0))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-20 (vector-ref sc16 1))) (vector 0 e-20))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-12 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 e-19 (Normalise-Core-gnf arg-0 arg-5 e-4) arg-1) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define ImplicitBind-Elab-TTImp-case--13185-10768 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (vector 0 e-1 e-2 e-3 e-4 (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) arg-18 arg-19)) e-5) (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) arg-18 arg-20)) e-6) e-7 e-8 e-9 e-10 e-11 e-12 e-13))))))))))))))))) +(define ImplicitBind-Elab-TTImp-case--13185-10655 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Unify-Core-setInvertible arg-11 arg-3 arg-14 eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ImplicitBind-Elab-TTImp-case--13118-10504 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ImplicitBind-Elab-TTImp-case--13185-10655 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-2 e-6 e-7 _-0 (let ((sc2 arg-6)) (let ((e-1 (vector-ref sc2 2))) e-1))) eta-0)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-25 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added Bound implicit " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-14 (vector 0 arg-7 (vector 0 e-2 (vector 0 e-6 e-7))))))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (unbox arg-8))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 (set-box! arg-8 (let ((sc5 e-9)) (let ((e-1 (vector-ref sc5 1))) (let ((e-20 (vector-ref sc5 2))) (let ((e-19 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-18 (vector-ref sc5 5))) (let ((e-17 (vector-ref sc5 6))) (let ((e-16 (vector-ref sc5 7))) (let ((e-15 (vector-ref sc5 8))) (let ((e-14 (vector-ref sc5 9))) (let ((e-10 (vector-ref sc5 10))) (let ((e-11 (vector-ref sc5 11))) (let ((e-12 (vector-ref sc5 12))) (let ((e-13 (vector-ref sc5 13))) (vector 0 e-1 e-20 e-19 e-4 (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-6)) e-18) (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-7)) e-17) e-16 e-15 e-14 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (Metadata-Core-addNameType arg-0 arg-11 arg-10 arg-3 (vector 1 arg-2) arg-4 e-6 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-11 arg-9 arg-8 arg-7 arg-6 arg-4 arg-3 e-2 (Normalise-Core-gnf arg-0 arg-4 e-6) arg-1) eta-0))))))))))))))))))))))))))))))) +(define ImplicitBind-Elab-TTImp-case--13040-10453 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-mkPatternHole arg-0 arg-8 arg-11 arg-9 arg-3 arg-7 arg-14 arg-4 (let ((sc1 arg-6)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-25 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ImplicitBind-Elab-TTImp-case--13185-10655 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-2 e-6 e-7 _-0 (let ((sc4 arg-6)) (let ((e-1 (vector-ref sc4 2))) e-1))) eta-0)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-26 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added Bound implicit " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-14 (vector 0 arg-7 (vector 0 e-2 (vector 0 e-6 e-7))))))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-27 (let ((act-27 (unbox arg-8))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 (let ((act-28 (set-box! arg-8 (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((e-20 (vector-ref sc7 3))) (let ((e-4 (vector-ref sc7 4))) (let ((e-19 (vector-ref sc7 5))) (let ((e-18 (vector-ref sc7 6))) (let ((e-17 (vector-ref sc7 7))) (let ((e-16 (vector-ref sc7 8))) (let ((e-15 (vector-ref sc7 9))) (let ((e-14 (vector-ref sc7 10))) (let ((e-11 (vector-ref sc7 11))) (let ((e-12 (vector-ref sc7 12))) (let ((e-13 (vector-ref sc7 13))) (vector 0 e-1 e-21 e-20 e-4 (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-6)) e-19) (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-7)) e-18) e-17 e-16 e-15 e-14 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-28)))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-29 (Metadata-Core-addNameType arg-0 arg-11 arg-10 arg-3 (vector 1 arg-2) arg-4 e-6 eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-11 arg-9 arg-8 arg-7 arg-6 arg-4 arg-3 e-2 (Normalise-Core-gnf arg-0 arg-4 e-6) arg-1) eta-0))))))))))))))))))))))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-n--12677-10088-combine arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (vector 1 arg-2) arg-7 (Check-Elab-TTImp-bindingRig 'erased e-2)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((tm (Check-Elab-TTImp-bindingTerm 'erased e-2))) (let ((ty (Check-Elab-TTImp-bindingType 'erased e-2))) (let ((act-25 (Metadata-Core-addNameType arg-0 arg-11 arg-10 arg-3 (vector 1 arg-2) arg-4 ty eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-11 arg-9 arg-8 arg-7 arg-6 arg-4 arg-3 tm (Normalise-Core-gnf arg-0 arg-4 ty) arg-1) eta-0)))))))))))))))))) +(define ImplicitBind-Elab-TTImp-case--12677-10381 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((n (vector 3 (vector 1 arg-2) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 2))) e-2))))) (let ((act-25 ((Check-Elab-TTImp-noteLHSPatVar 'erased arg-8 arg-12 (vector 1 arg-2)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Check-Elab-TTImp-notePatVar 'erased arg-8 n eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (unbox arg-8))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((ImplicitBind-Elab-TTImp-case--13040-10453 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 n e-6 e-7 e-8 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) n (let ((sc5 e-8)) (let ((e-17 (vector-ref sc5 5))) e-17)))) eta-0))))))))))))))))))))))))(else (Check-Elab-TTImp-check arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (vector 0 arg-3 (vector 1 arg-2)) arg-1)))))) +(define ImplicitBind-Elab-TTImp-case--12677-10316 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (Prelude-maybe 'erased 'erased (lambda () 1) (lambda () (lambda (eta-0) 0)) (Env-Core-defined arg-0 (vector 1 arg-2) arg-4)))(else 1))))) +(define ImplicitBind-Elab-TTImp-case--11835-10031 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) +(define ImplicitBind-Elab-TTImp-case--11835-9984 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) +(define ImplicitBind-Elab-TTImp-case--11857-9745 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-9 arg-10) (vector 1 (vector 0 arg-11 arg-12) arg-13))) (else (vector 1 (vector 0 arg-11 arg-12) (ImplicitBind-Elab-TTImp-n--11835-9327-insert arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 0 arg-9 arg-10) arg-15 (vector 1 arg-11 arg-14) arg-13))))))) +(define ImplicitBind-Elab-TTImp-case--12055-9563 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-n--11835-9326-normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 (vector 1 arg-19 arg-12) arg-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ImplicitBind-Elab-TTImp-n--11835-9325-normBindingTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 arg-10) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 arg-19 e-6) e-5)))))))))))))) (else (ImplicitBind-Elab-TTImp-n--11835-9326-normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 arg-12 arg-11)))))) +(define ImplicitBind-Elab-TTImp-case--11856-9512 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-isCurrentHole arg-6 e-7 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc2 1))) ((ImplicitBind-Elab-TTImp-case--12055-9563 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-5 e-8 e-7 e-6 e-3 e-9 (Prelude-C-38C-38 e-9 (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-6 arg-12))))) eta-0))))))))))))(else (ImplicitBind-Elab-TTImp-n--11835-9326-normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 arg-12 arg-11)))))))(else (ImplicitBind-Elab-TTImp-n--11835-9326-normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 arg-12 arg-11)))))) +(define ImplicitBind-Elab-TTImp-case--11856-9393 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (ImplicitBind-Elab-TTImp-n--11835-9326-normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-14 arg-13 arg-12)) (else (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-n--11835-9326-normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-14 (vector 1 (vector 3 arg-10 arg-9) arg-13) arg-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ImplicitBind-Elab-TTImp-n--11835-9325-normBindingTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-14 arg-11) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 (vector 3 arg-10 arg-9) e-6) e-5)))))))))))))))))) +(define ImplicitBind-Elab-TTImp-case--11772-9270 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (let ((act-24 (Context-Core-updateDef arg-2 arg-0 (lambda (eta-1) (vector 1 (vector 10 ))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (UnifyState-Core-removeHoleName arg-2 arg-1 arg-0 eta-0)))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ImplicitBind-Elab-TTImp-case--11197-9114 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (ImplicitBind-Elab-TTImp-n--11197-8785-tidyName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2) (vector 0 e-2 e-3))))))) +(define ImplicitBind-Elab-TTImp-case--11214-9037 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((btyC-39 (TT-Core-refsToLocals 'erased arg-9 arg-20 arg-15))) (let ((bpatC-39 (TT-Core-refsToLocals 'erased arg-9 arg-20 arg-14))) (vector 0 (vector 3 arg-7 arg-12 (vector 4 arg-16 bpatC-39 btyC-39) e-2) (vector 3 arg-7 arg-12 (vector 4 arg-16 bpatC-39 btyC-39) e-3))))))))) +(define ImplicitBind-Elab-TTImp-case--11274-8887 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (vector 0 (vector 3 arg-7 arg-10 (vector 2 e-0 (vector 0 ) arg-22) arg-20) (vector 11 arg-7))))(else (vector 0 (vector 3 arg-7 arg-10 (vector 3 arg-14 (TT-Core-map_Functor__PiInfo 'erased 'erased (lambda (eta-0) (TT-Core-weakenNs_Weaken__Term arg-8 arg-18 eta-0)) arg-13) arg-22) arg-20) (vector 3 arg-7 arg-10 (vector 5 arg-14 arg-22) arg-21))))))) +(define ImplicitBind-Elab-TTImp-case--11214-8836 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((btyC-39 (TT-Core-refsToLocals 'erased arg-18 arg-19 arg-12))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (vector 0 (vector 3 arg-7 arg-10 (vector 2 e-0 (vector 0 ) btyC-39) e-2) (vector 11 arg-7))))(else (vector 0 (vector 3 arg-7 arg-10 (vector 3 arg-14 (TT-Core-map_Functor__PiInfo 'erased 'erased (lambda (eta-0) (TT-Core-weakenNs_Weaken__Term arg-8 arg-18 eta-0)) arg-13) btyC-39) e-2) (vector 3 arg-7 arg-10 (vector 5 arg-14 btyC-39) e-3))))))))))) +(define ImplicitBind-Elab-TTImp-case--11012-8638 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (vector 3 arg-10 arg-3 arg-9 arg-8)) (else (let ((e-2 (vector-ref sc0 1))) (vector 3 arg-7 (vector 3 arg-2 arg-1) (vector 2 arg-5 (vector 0 ) e-2) (ImplicitBind-Elab-TTImp-push (vector 1 (vector 3 arg-2 arg-1) arg-0) arg-10 arg-3 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term (vector 3 arg-2 arg-1) arg-0 eta-0)) arg-9) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased (vector 0 ) arg-6))))))))) +(define ImplicitBind-Elab-TTImp-case--10716-8386 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (vector 0 arg-8 arg-7 arg-9))) +(define ImplicitBind-Elab-TTImp-case--10585-8314 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (+ 1 arg-9))) +(define ImplicitBind-Elab-TTImp-case--10176-7954 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) +(define ImplicitBind-Elab-TTImp-case--9863-7867 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-normaliseHoles arg-10 arg-18 arg-11 arg-14 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((ImplicitBind-Elab-TTImp-n--9844-7584-makeBoundVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 arg-8 arg-9 arg-12 arg-17 arg-15 arg-16 e-5) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-logTerm arg-10 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Added unbound implicit") e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-1))))))))))) arg-10 arg-6 arg-3) (let ((sc4 arg-1)) (case (vector-ref sc4 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))) arg-2) arg-11) arg-13) e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ImplicitBind-Elab-TTImp-case--9881-7757 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-19)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (vector 0 e-1 e-2 e-3 e-4 e-5 (vector 1 (vector 0 arg-17 (vector 0 arg-4 arg-14 arg-20 (TT-Core-embedSub 'erased 'erased arg-10 arg-18) (TT-Core-embedSub 'erased 'erased arg-10 arg-16))) e-6) e-7 e-8 e-9 e-10 e-11 e-12 e-13))))))))))))))))) +(define ImplicitBind-Elab-TTImp-case--9862-7605 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-6 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) arg-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 "Can't bind implicit " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-15) (Strings-Prelude-C-43C-43 " of type " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-8 e-5))))) eta-0)))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-6 arg-3 (Name-Core-nameRoot arg-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-7 arg-6 arg-3 arg-2 arg-14 arg-12 e-5 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-5))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((pC-39 (TT-Core-forgetDef 'erased 'erased arg-13))) (let ((act-27 (let ((act-27 (set-box! arg-5 (let ((sc4 e-7)) (let ((e-1 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((e-16 (vector-ref sc4 5))) (let ((e-15 (vector-ref sc4 6))) (let ((e-14 (vector-ref sc4 7))) (let ((e-8 (vector-ref sc4 8))) (let ((e-9 (vector-ref sc4 9))) (let ((e-10 (vector-ref sc4 10))) (let ((e-11 (vector-ref sc4 11))) (let ((e-12 (vector-ref sc4 12))) (let ((e-13 (vector-ref sc4 13))) (vector 0 e-1 e-17 e-3 e-4 e-16 (vector 1 (vector 0 e-5 (vector 0 arg-4 arg-14 pC-39 (TT-Core-embedSub 'erased 'erased arg-10 e-6) (TT-Core-embedSub 'erased 'erased arg-10 e-2))) e-15) e-14 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 (TT-Core-embedSub 'erased 'erased arg-11 e-6))))))))))))))))))))))))))))) +(define ImplicitBind-Elab-TTImp-case--9530-7464 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (ImplicitBind-Elab-TTImp-mkPatternHole arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Check-Elab-TTImp-implBindVar (let ((sc1 arg-10)) (let ((e-1 (vector-ref sc1 1))) e-1)) arg-8 arg-7 arg-6 arg-5 arg-12 arg-4 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (TT-Core-apply 'erased arg-6 (TT-Core-embedSub 'erased 'erased arg-11 e-5) (ImplicitBind-Elab-TTImp-n--9530-7352-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-0 arg-11)) (vector 0 arg-13 (TT-Core-embedSub 'erased 'erased arg-11 e-2)))))))))))))))) +(define ImplicitBind-Elab-TTImp-case--9530-7314 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 e-3 e-3))))))))) +(define ImplicitBind-Elab-TTImp-case--9317-7115 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (ImplicitBind-Elab-TTImp-mkOuterHole arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((env (let ((sc1 arg-9)) (let ((e-3 (vector-ref sc1 3))) e-3)))) (lambda (eta-0) (let ((act-24 (Check-Elab-TTImp-implBindVar (let ((sc1 arg-9)) (let ((e-1 (vector-ref sc1 1))) e-1)) arg-7 arg-6 arg-5 arg-4 env arg-3 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (TT-Core-embedSub 'erased 'erased arg-10 e-5) (TT-Core-embedSub 'erased 'erased arg-10 e-2)))))))))))))))) +(define ImplicitBind-Elab-TTImp-n--11197-8785-tidyName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (ImplicitBind-Elab-TTImp-n--11197-8785-tidyName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1))) ((3) (let ((e-2 (vector-ref sc0 1))) (ImplicitBind-Elab-TTImp-n--11197-8785-tidyName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2))) ((6) (let ((e-5 (vector-ref sc0 2))) (ImplicitBind-Elab-TTImp-n--11197-8785-tidyName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5)))(else arg-8))))) +(define ImplicitBind-Elab-TTImp-n--10488-8191-swapP (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (cond ((equal? sc0 0) 0)(else (let ((e-0 (- arg-8 1))) (+ 1 (+ 1 e-0)))))))) +(define ImplicitBind-Elab-TTImp-n--11835-9326-normImps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((3) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF arg-1 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Implicit pattern var " (Name-Core-show_Show__Name (vector 3 e-8 e-9)))) arg-2 (Check-Elab-TTImp-bindingType 'erased e-7) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) ((ImplicitBind-Elab-TTImp-case--11856-9393 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-9 e-8 e-7 e-3 arg-10 arg-9 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (vector 3 e-8 e-9) arg-10)) eta-0))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 (Check-Elab-TTImp-bindingTerm 'erased e-7) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-logTerm arg-1 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Normalising implicit " (Name-Core-show_Show__Name e-6))) e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((ImplicitBind-Elab-TTImp-case--11856-9512 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6 e-7 e-3 arg-10 arg-9 e-5 e-8 (TT-Core-getFnArgs 'erased e-5)) eta-0))))))))))))))))))))))))) +(define ImplicitBind-Elab-TTImp-n--11835-9325-normBindingTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 e-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 arg-1 e-1 e-2 e-3 e-5))))))))))))) (else (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (let ((e-10 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 e-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 e-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc2 1))) (vector 1 (vector 1 arg-1 e-6 e-7 e-8 e-11 e-12))))))))))))))))))))))) +(define ImplicitBind-Elab-TTImp-n--11699-9198-nHoles (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((e-8 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-normaliseHolesScope arg-0 arg-5 arg-4 e-8) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc2 1))) (vector 1 (vector 0 e-2 (vector 0 arg-0 e-5 e-6 e-7 e-9)))))))))))))) (else (let ((e-10 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (let ((e-12 (vector-ref sc1 4))) (let ((e-13 (vector-ref sc1 5))) (let ((e-14 (vector-ref sc1 6))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-normaliseHolesScope arg-0 arg-5 arg-4 e-13) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 e-2 (vector 1 arg-0 e-10 e-11 e-12 e-5 e-14)))))))))))))))))))))) +(define ImplicitBind-Elab-TTImp-n--9844-7585-mkImplicit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((sc6 e-23)) (let ((e-26 (vector-ref sc6 1))) (let ((e-27 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc7 arg-8)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc7 1))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((sc9 e-1)) (case (vector-ref sc9 0) ((7) (let ((act-25 (let ((act-25 (Normalise-Core-normaliseHoles e-10 arg-8 e-14 e-26 eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((ImplicitBind-Elab-TTImp-n--9844-7584-makeBoundVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-10 e-2 e-6 e-18 arg-9 e-27 arg-10 e-9) eta-0)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (let ((act-26 (Context-Core-logTerm e-10 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Added unbound implicit") e-9 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 1))) (vector 0 e-12))) (else (let ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-1))))))))))) e-10 arg-6 arg-3) (let ((sc12 arg-1)) (case (vector-ref sc12 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))) arg-2) e-14) e-22) e-9) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (vector 1 (vector 0 ))))))))))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))) +(define ImplicitBind-Elab-TTImp-n--9530-7352-mkArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 arg-6 (vector 0 ) 0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-1 e-2 eta-0)) (ImplicitBind-Elab-TTImp-n--9530-7352-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased e-2 e-6)))))(else (vector 0 )))))))(else (vector 0 ))))))))) +(define ImplicitBind-Elab-TTImp-n--9844-7584-makeBoundVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (ImplicitBind-Elab-TTImp-case--9862-7605 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 (TT-Core-shrinkTerm 'erased 'erased arg-15 arg-13)))) +(define ImplicitBind-Elab-TTImp-n--11132-8729-liftImpsC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((e-14 (vector-ref sc2 3))) (let ((sc3 e-13)) (case (vector-ref sc3 0) ((0) (vector 3 e-1 (vector 3 e-9 e-10) (vector 2 e-12 (vector 0 ) e-14) (ImplicitBind-Elab-TTImp-n--11132-8729-liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (vector 1 (vector 3 e-9 e-10) arg-4) e-4)))(else (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((e-8 (vector-ref sc3 3))) (ImplicitBind-Elab-TTImp-push arg-4 e-1 e-2 (vector 2 e-6 e-7 e-8) (ImplicitBind-Elab-TTImp-n--11132-8729-liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (vector 1 e-2 arg-4) e-4))))))(else arg-5))))))))))(else (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (ImplicitBind-Elab-TTImp-push arg-4 e-1 e-2 (vector 2 e-6 e-7 e-8) (ImplicitBind-Elab-TTImp-n--11132-8729-liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (vector 1 e-2 arg-4) e-4))))))(else arg-5)))))))))(else (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (ImplicitBind-Elab-TTImp-push arg-4 e-1 e-2 (vector 2 e-6 e-7 e-8) (ImplicitBind-Elab-TTImp-n--11132-8729-liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (vector 1 e-2 arg-4) e-4))))))(else arg-5)))))))))))(else arg-5))))) +(define ImplicitBind-Elab-TTImp-n--12677-10087-isIncompatible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (Prelude-C-38C-38 (Prelude-C-124C-124 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-12) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-13))) (lambda () (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-256 arg-257))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-259) (lambda (arg-261) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-259 arg-261))))))) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-12 arg-13)))))) +(define ImplicitBind-Elab-TTImp-n--11835-9327-insert (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (vector 1 arg-9 (vector 0 )))(else (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-12)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((used (List-Data-filter 'erased (lambda (n) (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) n arg-10)) ((NameMap-Data-keys 'erased) (Check-Elab-TTImp-bindingMetas 'erased e-10))))) (ImplicitBind-Elab-TTImp-case--11857-9745 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 e-9 e-10 e-6 arg-11 arg-10 used (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-2 used))))))))))))))))) +(define ImplicitBind-Elab-TTImp-n--11197-8786-getBinds (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (vector 0 (TT-Core-refsToLocals 'erased arg-9 arg-11 arg-12) (TT-Core-refsToLocals 'erased arg-9 arg-11 arg-13))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (let ((e-16 (vector-ref sc3 5))) (ImplicitBind-Elab-TTImp-case--11214-8836 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-12 e-15 e-6 e-10 e-16 e-14 e-13 e-3 arg-13 arg-12 arg-9 arg-11 (ImplicitBind-Elab-TTImp-n--11197-8786-getBinds 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased (vector 1 e-6 arg-9) e-3 (vector 1 e-6 e-10 arg-11) arg-12 arg-13)))))))) (else (let ((e-17 (vector-ref sc3 1))) (let ((e-18 (vector-ref sc3 2))) (let ((e-19 (vector-ref sc3 3))) (let ((e-20 (vector-ref sc3 4))) (let ((e-21 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (ImplicitBind-Elab-TTImp-case--11214-9037 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-17 arg-9 e-19 e-20 e-6 e-10 e-22 e-21 e-18 e-3 arg-13 arg-12 arg-11 (ImplicitBind-Elab-TTImp-n--11197-8786-getBinds 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased (vector 1 e-6 arg-9) e-3 (vector 1 e-6 e-10 arg-11) arg-12 arg-13)))))))))))))))))))))))) +(define ImplicitBind-Elab-TTImp-n--11835-9328-depSort (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ImplicitBind-Elab-TTImp-n--11835-9327-insert arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 arg-9 (vector 0 ) (ImplicitBind-Elab-TTImp-n--11835-9328-depSort arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3))))))))) +(define ImplicitBind-Elab-TTImp-n--12677-10088-combine (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 (ImplicitBind-Elab-TTImp-n--12677-10087-isIncompatible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-13 arg-14))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-3 (+ 1 (+ 1 0)) arg-12) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ImplicitBind-Elab-TTImp-n--9530-7353-bindInner (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (vector 1 arg-13))(else (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (ImplicitBind-Elab-TTImp-n--9530-7353-bindInner arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased e-2 e-7 (vector 3 arg-6 e-1 e-6 arg-13) e-11)))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))))) +(define ImplicitBind-Elab-TTImp-swapVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (ImplicitBind-Elab-TTImp-case--10716-8386 'erased 'erased 'erased arg-3 'erased e-4 'erased e-3 e-2 (ImplicitBind-Elab-TTImp-swapIsVar 'erased 'erased 'erased 'erased arg-3 e-4 'erased)))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (vector 1 e-7 e-8 e-9))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (vector 2 e-11 e-12 e-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 eta-0)) e-14))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (vector 3 e-16 e-17 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 eta-0)) e-18) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased (vector 1 e-17 arg-3) e-19))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (vector 4 e-21 (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 e-22) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 e-23)))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (vector 5 e-25 e-26 (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 e-27) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 e-28))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (vector 6 e-30 e-31 (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 e-32)))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (vector 7 e-34 e-35 (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 e-36) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 e-37))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (vector 8 e-39 e-40 (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 e-41)))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (vector 9 e-43 e-44)))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (vector 10 e-46 e-47)))) (else (let ((e-49 (vector-ref sc0 1))) (vector 11 e-49))))))) +(define ImplicitBind-Elab-TTImp-swapIsVarH (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (+ 1 0))(else (let ((e-0 (- arg-4 1))) (ImplicitBind-Elab-TTImp-n--10488-8191-swapP 'erased 'erased 'erased 'erased e-0 'erased arg-4 'erased e-0 'erased))))))) +(define ImplicitBind-Elab-TTImp-swapIsVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (ImplicitBind-Elab-TTImp-swapIsVarH 'erased 'erased 'erased 'erased arg-5 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-5 1))) (let ((idx (+ 1 e-4))) (ImplicitBind-Elab-TTImp-case--10585-8314 'erased 'erased 'erased 'erased e-4 e-2 e-3 'erased idx (ImplicitBind-Elab-TTImp-swapIsVar 'erased 'erased 'erased 'erased e-3 e-4 'erased)))))))))))))) +(define ImplicitBind-Elab-TTImp-push (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((e-10 (vector-ref sc2 3))) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((0) (let ((tm (vector 3 e-1 (vector 3 e-5 e-6) (vector 2 e-8 (vector 0 ) e-10) e-4))) (ImplicitBind-Elab-TTImp-case--11012-8638 arg-0 e-6 e-5 arg-2 e-10 e-8 e-4 e-1 tm arg-3 arg-1 (TT-Core-shrinkTerm 'erased 'erased e-10 (vector 1 (vector 0 ))))))(else (vector 3 arg-1 arg-2 arg-3 arg-4))))))))(else (vector 3 arg-1 arg-2 arg-3 arg-4)))))))(else (vector 3 arg-1 arg-2 arg-3 arg-4)))))))))(else (vector 3 arg-1 arg-2 arg-3 arg-4)))))) (define ImplicitBind-Elab-TTImp-normaliseHolesScope (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-normaliseHolesScope (vector 1 e-2 arg-0) arg-1 (vector 1 (vector 0 (TT-Core-multiplicity 'erased e-3) (vector 1 ) (TT-Core-binderType 'erased e-3)) arg-2) e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-1 e-2 e-3 e-5)))))))))))))(else (lambda (eta-0) (Normalise-Core-normaliseHoles arg-0 arg-1 arg-2 arg-3 eta-0))))))) -(define ImplicitBind-Elab-TTImp-mkPatternHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-mkOuterHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-4 (vector 0 e-3 e-3)))))))))))))(else (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sub (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 4))) e-4)))) (let ((env (let ((sc2 e-5)) (let ((e-3 (vector-ref sc2 3))) e-3)))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((ImplicitBind-Elab-TTImp-case--9479-7395 arg-0 e-1 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 sub env e-6 (ImplicitBind-Elab-TTImp-n--9479-7284-bindInner arg-0 e-1 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased arg-0 arg-7 e-6 sub)) eta-0))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 (Strings-Prelude-C-43C-43 "Unknown type for pattern variable " (Name-Core-show_Show__Name arg-6))) eta-0)))))))))) -(define ImplicitBind-Elab-TTImp-mkOuterHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sub (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 4))) e-4)))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((ImplicitBind-Elab-TTImp-case--9266-7046 arg-0 e-1 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 sub e-6 (TT-Core-shrinkTerm 'erased 'erased e-6 sub)) eta-0))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sub (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 4))) e-4)))) (let ((env (let ((sc2 e-5)) (let ((e-3 (vector-ref sc2 3))) e-3)))) (let ((act-25 (UnifyState-Core-genName arg-2 arg-3 (Strings-Prelude-C-43C-43 "type_of_" (Name-Core-nameRoot arg-6)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Check-Elab-TTImp-metaVar (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 1))) e-1)) arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) env e-6 (vector 11 arg-4) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Made metavariable for type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-6) (Strings-Prelude-C-43C-43 ": " (Name-Core-show_Show__Name e-6))))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (set-box! arg-1 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-6 arg-5 (vector 1 ) arg-7 (TT-Core-embedSub 'erased 'erased sub e-7) (vector 11 arg-4) e-5)))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 (Check-Elab-TTImp-implBindVar (let ((sc6 e-5)) (let ((e-1 (vector-ref sc6 1))) e-1)) arg-2 arg-3 arg-4 arg-5 env arg-6 e-7 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 (TT-Core-embedSub 'erased 'erased sub e-10) (TT-Core-embedSub 'erased 'erased sub e-7))))))))))))))))))))))))))))))))))))))) -(define ImplicitBind-Elab-TTImp-liftImps (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((11) (let ((e-6 (vector-ref sc2 1))) (vector 0 (ImplicitBind-Elab-TTImp-n--11081-8660-liftImpsC-39 arg-0 e-0 e-3 e-6 arg-0 e-3) (vector 11 e-6))))(else arg-2))))))(else arg-2)))))(else arg-2))))) +(define ImplicitBind-Elab-TTImp-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--9530-7464 arg-0 e-1 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 sub env e-6 (ImplicitBind-Elab-TTImp-n--9530-7353-bindInner arg-0 e-1 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased arg-0 arg-7 e-6 sub)) eta-0))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 (Strings-Prelude-C-43C-43 "Unknown type for pattern variable " (Name-Core-show_Show__Name arg-6))) eta-0)))))))))) +(define ImplicitBind-Elab-TTImp-mkOuterHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sub (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 4))) e-4)))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((ImplicitBind-Elab-TTImp-case--9317-7115 arg-0 e-1 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 sub e-6 (TT-Core-shrinkTerm 'erased 'erased e-6 sub)) eta-0))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sub (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 4))) e-4)))) (let ((env (let ((sc2 e-5)) (let ((e-3 (vector-ref sc2 3))) e-3)))) (let ((act-25 (UnifyState-Core-genName arg-2 arg-3 (Strings-Prelude-C-43C-43 "type_of_" (Name-Core-nameRoot arg-6)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Check-Elab-TTImp-metaVar (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 1))) e-1)) arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) env e-6 (vector 11 arg-4) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Made metavariable for type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-6) (Strings-Prelude-C-43C-43 ": " (Name-Core-show_Show__Name e-6))))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (set-box! arg-1 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-6 arg-5 (vector 1 ) arg-7 (TT-Core-embedSub 'erased 'erased sub e-7) (vector 11 arg-4) e-5)))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 (Check-Elab-TTImp-implBindVar (let ((sc6 e-5)) (let ((e-1 (vector-ref sc6 1))) e-1)) arg-2 arg-3 arg-4 arg-5 env arg-6 e-7 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 (TT-Core-embedSub 'erased 'erased sub e-10) (TT-Core-embedSub 'erased 'erased sub e-7))))))))))))))))))))))))))))))))))))))) +(define ImplicitBind-Elab-TTImp-liftImps (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((11) (let ((e-6 (vector-ref sc2 1))) (vector 0 (ImplicitBind-Elab-TTImp-n--11132-8729-liftImpsC-39 arg-0 e-0 e-3 e-6 arg-0 e-3) (vector 11 e-6))))(else arg-2))))))(else arg-2)))))(else arg-2))))) (define ImplicitBind-Elab-TTImp-implicitBind (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-lookupDefExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((7) (let ((act-26 (Context-Core-updateDef arg-0 arg-2 (lambda (eta-0) (vector 1 (vector 10 ))) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (UnifyState-Core-removeHoleName arg-0 arg-1 arg-2 ext-0))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 ))))))))))))))))) -(define ImplicitBind-Elab-TTImp-getToBind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Unify-Core-solveConstraints arg-1 arg-3 (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))) (vector 0 ) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 ((ImplicitBind-Elab-TTImp-bindUnsolved arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (Unify-Core-solveConstraints arg-1 arg-3 (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))) (vector 0 ) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (unbox arg-2))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((tob (List-Data-reverse 'erased (List-Data-filter 'erased (lambda (x) (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (Builtin-fst 'erased 'erased x) arg-8))) (let ((sc5 e-9)) (let ((e-17 (vector-ref sc5 6))) e-17)))))) (let ((act-29 ((ImplicitBind-Elab-TTImp-n--11784-9257-normImps arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-8 (vector 0 ) tob) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((hnames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-10))) (let ((resC-39 (ImplicitBind-Elab-TTImp-n--11784-9259-depSort arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 hnames e-10))) (let ((act-30 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Bound names: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d-0) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d-0 x-0))))) d x)))) e-10))) eta-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-31 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Sorted: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d-0) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d-0 x-0))))) d x)))) resC-39))) eta-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (vector 1 resC-39))))))))))))))))))))))))))))))))))))))))))))) -(define ImplicitBind-Elab-TTImp-checkBindVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((elabmode (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (ImplicitBind-Elab-TTImp-case--12626-10312 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 elabmode (ImplicitBind-Elab-TTImp-case--12626-10247 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 elabmode (let ((sc0 arg-6)) (let ((e-1 (vector-ref sc0 2))) e-1))))))) -(define ImplicitBind-Elab-TTImp-checkBindHere (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((oldenv (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 3))) e-3)))) (let ((oldsub (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 4))) e-4)))) (let ((oldbif (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 7))) e-7)))) (let ((dontbind (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 6))) e-6))))) (let ((act-25 (let ((act-25 (set-box! arg-4 (Check-Elab-TTImp-updateEnv 'erased arg-0 arg-8 (vector 0 ) (vector 0 ) e-5)))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-getNextEntry arg-1 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 5))) (let ((e-8 (vector-ref sc3 6))) (vector 0 e-0 arg-10 e-2 0 e-4 e-8)))))) arg-7 arg-8 arg-11 arg-12) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-28 (Unify-Core-solveConstraints arg-1 arg-3 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--13703-11476 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 oldenv oldsub oldbif dontbind e-6 e-7 e-2 e-3 _-0 (let ((sc5 arg-6)) (let ((e-0 (vector-ref sc5 1))) e-0)))) (vector 0 ) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Unify-Core-solveConstraintsAfter arg-1 arg-3 e-7 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--13703-11374 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 oldenv oldsub oldbif dontbind e-6 e-7 e-2 e-3 _-0 e-9 (let ((sc6 arg-6)) (let ((e-0 (vector-ref sc6 1))) e-0)))) (vector 1 ) ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (unbox arg-3))) (vector 1 act-30)))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (Delayed-Elab-TTImp-retryDelayed arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc8 e-11)) (let ((e-13 (vector-ref sc8 9))) e-13)) eta-0)) (lambda (err) (lambda (eta-0) (let ((act-31 (let ((act-31 (unbox arg-3))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (let ((act-32 (set-box! arg-3 (let ((sc9 e-12)) (let ((e-0 (vector-ref sc9 1))) (let ((e-1 (vector-ref sc9 2))) (let ((e-19 (vector-ref sc9 3))) (let ((e-18 (vector-ref sc9 4))) (let ((e-4 (vector-ref sc9 5))) (let ((e-17 (vector-ref sc9 6))) (let ((e-16 (vector-ref sc9 7))) (let ((e-15 (vector-ref sc9 8))) (let ((e-13 (vector-ref sc9 10))) (vector 0 e-0 e-1 e-19 e-18 e-4 e-17 e-16 e-15 (vector 0 ) e-13)))))))))))))) (vector 1 act-32)))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-0)))))))))))) ext-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 (Unify-Core-checkDots arg-3 arg-1 ext-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-33 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Binding names") e-2 ext-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-34 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") arg-8 e-2 ext-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-35 ((ImplicitBind-Elab-TTImp-getToBind arg-0 arg-1 arg-4 arg-3 arg-9 (let ((sc12 arg-6)) (let ((e-0 (vector-ref sc12 1))) e-0)) arg-10 arg-8 dontbind) ext-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-36 (Check-Elab-TTImp-clearToBind 'erased arg-4 dontbind ext-0))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-37 (let ((act-37 (unbox arg-4))) (vector 1 act-37)))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc14 1))) (let ((act-38 (let ((act-38 (set-box! arg-4 (Check-Elab-TTImp-updateEnv 'erased (let ((sc15 e-5)) (let ((e-1 (vector-ref sc15 1))) e-1)) oldenv oldsub oldbif (let ((sc15 e-18)) (let ((e-1 (vector-ref sc15 1))) (let ((e-29 (vector-ref sc15 2))) (let ((e-28 (vector-ref sc15 3))) (let ((e-4 (vector-ref sc15 4))) (let ((e-26 (vector-ref sc15 6))) (let ((e-25 (vector-ref sc15 7))) (let ((e-24 (vector-ref sc15 8))) (let ((e-23 (vector-ref sc15 9))) (let ((e-22 (vector-ref sc15 10))) (let ((e-21 (vector-ref sc15 11))) (let ((e-20 (vector-ref sc15 12))) (let ((e-19 (vector-ref sc15 13))) (vector 0 e-1 e-29 e-28 e-4 (vector 0 ) e-26 e-25 e-24 e-23 e-22 e-21 e-20 e-19)))))))))))))))))) (vector 1 act-38)))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-39 ((Normalise-Core-getTerm 'erased e-3) ext-0))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-40 (let ((act-40 (unbox arg-1))) (vector 1 act-40)))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc17 1))) (let ((act-41 (let ((act-41 (Normalise-Core-normaliseHoles arg-0 e-21 arg-8 e-2 ext-0))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc18 1))) (let ((act-42 (Normalise-Core-normaliseHoles arg-0 e-21 arg-8 e-20 ext-0))) (let ((sc19 act-42)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (vector 0 e-4))) (else (let ((e-23 (vector-ref sc19 1))) ((ImplicitBind-Elab-TTImp-bindImplicits arg-0 arg-9 arg-10 e-21 arg-8 e-16 e-22 e-23) ext-0))))))))))))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc18 1))) (let ((sc19 e-22)) (let ((e-23 (vector-ref sc19 1))) (let ((e-4 (vector-ref sc19 2))) (let ((act-42 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ImplicitBind-Elab-TTImp-implicitBind arg-1 arg-3 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-16)) ext-0))) (let ((sc20 act-42)) (case (vector-ref sc20 0) ((0) (let ((e-24 (vector-ref sc20 1))) (vector 0 e-24))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 e-23 (Normalise-Core-gnf arg-0 arg-8 e-4) arg-12) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define ImplicitBind-Elab-TTImp-bindUnsolved (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((bifs (let ((sc2 e-5)) (let ((e-7 (vector-ref sc2 7))) e-7)))) (let ((act-26 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Bindable unsolved implicits: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) bifs)))) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ImplicitBind-Elab-TTImp-n--9793-7516-mkImplicit arg-6 arg-5 arg-4 arg-3 arg-0 arg-2 arg-1 (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 1))) e-1)) e-6 (let ((sc3 e-5)) (let ((e-3 (vector-ref sc3 3))) e-3)) (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 4))) e-4)) eta-1)) (let ((sc3 e-5)) (let ((e-14 (vector-ref sc3 7))) e-14))) eta-0)))))))))))))))))))))) -(define ImplicitBind-Elab-TTImp-bindImplicits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 arg-6 arg-7))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ImplicitBind-Elab-TTImp-n--11648-9129-nHoles arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-1)) arg-5) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (ImplicitBind-Elab-TTImp-liftImps arg-0 arg-2 (ImplicitBind-Elab-TTImp-bindImplVars 'erased arg-1 arg-2 arg-3 arg-4 e-5 arg-6 arg-7)))))))))))))) -(define ImplicitBind-Elab-TTImp-bindImplVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (vector 0 arg-6 arg-7))(else (let ((imps (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (ImplicitBind-Elab-TTImp-n--11146-8716-tidyName 'erased arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2) (vector 0 e-2 e-3)))))) arg-5))) (ImplicitBind-Elab-TTImp-n--11146-8717-getBinds 'erased arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased (vector 0 ) imps (vector 0 ) arg-6 arg-7))))))) -(define Hole-Elab-TTImp-case--8782-12124 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 9 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (Context-Core-addUserHole arg-11 arg-15 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-15 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 (Normalise-Core-gnf arg-0 arg-4 arg-14))))))))))))))))))))) -(define Hole-Elab-TTImp-case--8506-12077 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-metaVarI arg-0 arg-11 arg-9 arg-3 arg-7 arg-13 arg-15 arg-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 9 e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (Context-Core-addUserHole arg-11 arg-15 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-27 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-15 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 (Normalise-Core-gnf arg-0 arg-4 arg-14)))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-11 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-15) " already defined")) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-3 arg-15) eta-0))))))))))) -(define Hole-Elab-TTImp-case--8548-11911 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 9 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (Context-Core-addUserHole arg-11 arg-12 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-12 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 arg-1)))))))))))))))))))) -(define Hole-Elab-TTImp-case--8506-11862 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((envC-39 (Env-Core-letToLam 'erased arg-4))) (let ((act-25 ((Check-Elab-TTImp-metaVarI arg-0 arg-11 arg-9 arg-3 arg-7 envC-39 arg-12 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-26 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 9 e-2) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-27 (Context-Core-addUserHole arg-11 arg-12 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-12 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 arg-1))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-11 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) " already defined")) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-3 arg-12) eta-0))))))))))) -(define Hole-Elab-TTImp-checkHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 (vector 1 arg-10)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Context-Core-lookupCtxtExact e-5 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (let ((act-27 ((Normalise-Core-getTerm 'erased e-1) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((envC-39 (Env-Core-letToLam 'erased arg-8))) (let ((act-28 ((Check-Elab-TTImp-metaVarI arg-0 arg-1 arg-3 arg-9 arg-5 envC-39 e-5 e-8) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((act-29 (Metadata-Core-withCurrentLHS arg-1 arg-2 (vector 9 e-2) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-30 (Context-Core-addUserHole arg-1 e-5 eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-31 (Check-Elab-TTImp-saveHole 'erased arg-4 e-5 eta-0))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 e-1)))))))))))))))))))))))))))))(else (let ((act-27 (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) " already defined")) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-9 e-5) eta-0))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-1 arg-3 (Strings-Prelude-C-43C-43 "type_of_" arg-10) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((envC-39 (Env-Core-letToLam 'erased arg-8))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) envC-39 e-5 (vector 11 arg-9) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Context-Core-inCurrentNS arg-1 (vector 1 arg-10)) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 ((Context-Core-lookupCtxtExact e-7 (let ((sc4 e-8)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (let ((act-29 ((Check-Elab-TTImp-metaVarI arg-0 arg-1 arg-3 arg-9 arg-5 envC-39 e-7 e-6) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((act-30 (Metadata-Core-withCurrentLHS arg-1 arg-2 (vector 9 e-2) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-31 (Context-Core-addUserHole arg-1 e-7 eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 (Check-Elab-TTImp-saveHole 'erased arg-4 e-7 eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 (Normalise-Core-gnf arg-0 arg-8 e-6))))))))))))))))))))))))(else (let ((act-29 (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) " already defined")) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-9 e-7) eta-0)))))))))))))))))))))))))))))))))))))))) -(define Dot-Elab-TTImp-case--9303-7167 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-7)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 (vector 2 ) e-1 e-2 e-3 e-4 e-5))))))))) -(define Dot-Elab-TTImp-case--9303-7097 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-12 arg-10 "dotTm" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 arg-8 arg-5 e-5 e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (UnifyState-Core-addDot arg-0 arg-10 arg-4 arg-5 e-5 e-2 arg-3 e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-7 arg-1)))))))))))))))))))))))))) -(define Dot-Elab-TTImp-case--9265-7043 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (let ((sc1 arg-7)) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (vector 0 (vector 2 ) e-1 e-2 e-3 e-4 e-5))))))) arg-6 arg-5 arg-2 (vector 1 arg-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (UnifyState-Core-genName arg-12 arg-10 "dotTm" eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 arg-8 arg-5 e-6 e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (UnifyState-Core-addDot arg-0 arg-10 arg-4 arg-5 e-6 e-2 arg-3 e-8 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-8 arg-1))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 (Strings-Prelude-C-43C-43 "Dot pattern not valid here (Not LHS) " (TTImp-TTImp-show_Show__RawImp arg-2))) eta-0))))))) -(define Dot-Elab-TTImp-checkDot (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 "Dot pattern not valid here (unknown type) " (TTImp-TTImp-show_Show__RawImp arg-11))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (Dot-Elab-TTImp-case--9265-7043 arg-0 e-2 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))))))))) -(define Case-Elab-TTImp-case--13966-10855 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((14) (let ((e-2 (vector-ref sc0 3))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (lambda () (lambda (eta-0) (let ((act-24 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 arg-7 arg-6 arg-4 (vector 1 (Normalise-Core-gnf arg-0 arg-6 arg-15))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-21 eta-0))) e-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-21 eta-0))))))) -(define Case-Elab-TTImp-case--13966-10757 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Scrutinee type") arg-6 e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (unbox arg-13))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-nf arg-0 e-9 arg-6 e-5) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) ((Case-Elab-TTImp-n--13174-9871-checkConcrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-10) eta-0)))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (Case-Elab-TTImp-caseBlock arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-5 arg-7 arg-6 arg-4 e-2 e-5 e-7 arg-2 arg-1 eta-0)))))))))))))))))))))))))))) -(define Case-Elab-TTImp-case--13966-10598 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) -(define Case-Elab-TTImp-case--13174-10544 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected scrutinee type") e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((chrig (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--13966-10598 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-2 e-3 _-0 e-5 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-9))))) (let ((act-25 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-4) (Strings-Prelude-C-43C-43 " at " (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega chrig))))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (Check-Elab-TTImp-handle 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (lambda (eta-1) (let ((act-26 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 chrig arg-8 arg-7 arg-6 arg-4 (vector 1 (Normalise-Core-gnf arg-0 arg-6 e-2))) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-7) (vector 0 (Builtin-snd 'erased 'erased e-7) chrig))))))))) (lambda (err) (let ((sc3 err)) (case (vector-ref sc3 0) ((14) (let ((e-7 (vector-ref sc3 3))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (lambda () (lambda (eta-1) (let ((act-26 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 arg-7 arg-6 arg-4 (vector 1 (Normalise-Core-gnf arg-0 arg-6 e-2))) eta-1))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-8) (vector 0 (Builtin-snd 'erased 'erased e-8) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1))) e-7)))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-4)) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Normalise-Core-getTerm 'erased e-10) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-28 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Scrutinee type") arg-6 e-11 eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((act-29 (let ((act-29 (unbox arg-13))) (vector 1 act-29)))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-30 (let ((act-30 ((Normalise-Core-nf arg-0 e-13 arg-6 e-11) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) ((Case-Elab-TTImp-n--13174-9871-checkConcrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-14) eta-0)))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (Case-Elab-TTImp-caseBlock arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-5 arg-7 arg-6 arg-4 e-8 e-11 e-9 arg-2 arg-1 eta-0)))))))))))))))))))))))))))))))))))))))))))))) -(define Case-Elab-TTImp-case--13174-10481 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((31) (Case-Elab-TTImp-n--13174-9874-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-2))(else (lambda (eta-0) (vector 1 arg-3))))))) -(define Case-Elab-TTImp-case--13541-10252 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Case-Elab-TTImp-n--13174-9872-applyTo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-20 (vector 0 arg-5 e-4) e-5))))(else (Case-Elab-TTImp-n--13174-9874-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17))))))(else (Case-Elab-TTImp-n--13174-9874-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17)))))) -(define Case-Elab-TTImp-case--13468-10179 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-20 (vector 0 ) e-10) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) ((Case-Elab-TTImp-n--13174-9873-getRetTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-20 e-7) eta-0)))))))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) ((Case-Elab-TTImp-n--13174-9872-applyTo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-20 (vector 0 arg-5 e-4) e-8) eta-0))))(else ((Case-Elab-TTImp-n--13174-9874-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17) eta-0))))))(else ((Case-Elab-TTImp-n--13174-9874-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17) eta-0)))))))))))(else (Case-Elab-TTImp-n--13174-9874-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17))))))(else (Case-Elab-TTImp-n--13174-9874-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17))))))(else (Case-Elab-TTImp-n--13174-9874-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17)))))))(else (Case-Elab-TTImp-n--13174-9874-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17)))))) -(define Case-Elab-TTImp-case--13199-10123 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-13))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyName e-1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 1))) e-28)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-26 (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) e-10) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) ((Case-Elab-TTImp-n--13174-9873-getRetTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 e-11) eta-0)))))))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((sc8 e-11)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (let ((e-12 (vector-ref sc9 2))) ((Case-Elab-TTImp-n--13174-9872-applyTo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 (vector 0 arg-5 e-13) e-12) eta-0))))(else ((Case-Elab-TTImp-n--13174-9874-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17) eta-0))))))(else ((Case-Elab-TTImp-n--13174-9874-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17) eta-0))))))))))(else ((Case-Elab-TTImp-n--13174-9874-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17) eta-0))))))(else ((Case-Elab-TTImp-n--13174-9874-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17) eta-0))))))(else ((Case-Elab-TTImp-n--13174-9874-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17) eta-0)))))))(else ((Case-Elab-TTImp-n--13174-9874-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17) eta-0)))))))))))))))))(else (Case-Elab-TTImp-n--13174-9874-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17)))))) -(define Case-Elab-TTImp-case--13198-9999 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-19 (vector 0 ) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 0 arg-18 e-5))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Case-Elab-TTImp-case--10830-9736 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-getTerm 'erased e-1)))(else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-15 arg-13 "caseTy" eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Check-Elab-TTImp-metaVar arg-0 arg-15 arg-13 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-21 e-5 (vector 11 arg-9) eta-0)))))))))))) -(define Case-Elab-TTImp-case--12214-9637 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46) (let ((sc0 arg-45)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9))))))))))))) -(define Case-Elab-TTImp-case--12214-9525 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49) (let ((sc0 arg-49)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-46 e-9))))))))))))) -(define Case-Elab-TTImp-case--12214-9369 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34) (let ((sc0 arg-34)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) -(define Case-Elab-TTImp-case--10830-9046 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((casefnty (Env-Core-abstractFullEnvType arg-0 arg-9 (Case-Elab-TTImp-allow 'erased arg-25 (Case-Elab-TTImp-explicitPi 'erased arg-21)) (Prelude-maybe 'erased 'erased (lambda () (vector 3 arg-9 arg-19 (vector 2 arg-3 (vector 1 ) arg-4) (TT-Core-weaken_Weaken__Term arg-19 arg-0 e-2))) (lambda () (lambda (eta-0) e-2)) arg-25)))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logEnv arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) "Case env" arg-21 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-15 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Case function type: " (Name-Core-show_Show__Name arg-20))) (vector 0 ) casefnty eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 (Prelude-not (List-Data-isNil 'erased arg-17)))) (cond ((equal? sc3 0) ((Case-Elab-TTImp-findImpsIn (vector 0 ) arg-9 (vector 0 ) (vector 0 ) casefnty) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-addDef arg-15 arg-20 (Context-Core-newDef arg-9 arg-20 (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--12214-9369 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-25 arg-26 e-3 arg-24 e-2 _-0 casefnty e-5 e-6 e-7 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-11))) (vector 0 ) casefnty arg-24 (vector 0 )) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-setFlag arg-15 arg-9 (vector 9 e-8) (vector 4 (vector 2 )) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((caseRef (vector 1 arg-9 (vector 1 ) (vector 9 e-8)))) (let ((act-29 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Context-Core-setFlag arg-15 arg-9 arg-20 (vector 0 ) eta-2)))) arg-25) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((applyEnv (UnifyState-Core-applyToFull arg-0 arg-9 caseRef arg-21))) (let ((appTm (Prelude-maybe 'erased 'erased (lambda () (vector 4 arg-9 applyEnv arg-5)) (lambda () (lambda (eta-1) applyEnv)) arg-25))) (let ((altsC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Case-Elab-TTImp-n--10830-7916-updateClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-20 arg-25 arg-8 arg-21 eta-1)) arg-2))) (let ((act-30 (Context-Core-log arg-15 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Nested: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d) (lambda (x-2) (Name-Core-showPrec_Show__Name d x-2)))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x-2)))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-2) (lambda (x-2) (Name-Core-showPrec_Show__Name d-2 x-2)))) d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-2 x-2)))) d-1 x-1))))) d-0 x-0))))) d x)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Case-Elab-TTImp-getNestData 'erased 'erased eta-1)) arg-8)))) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 (Context-Core-log arg-15 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Generated alts: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) altsC-39))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 0)) (lambda () "Case application") arg-21 appTm eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((nestC-39 (vector 0 ))) (let ((act-33 (let ((act-33 (unbox arg-13))) (vector 1 act-33)))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((olddelayed (let ((sc11 e-14)) (let ((e-16 (vector-ref sc11 9))) e-16)))) (let ((act-34 (let ((act-34 (set-box! arg-13 (let ((sc11 e-14)) (let ((e-0 (vector-ref sc11 1))) (let ((e-1 (vector-ref sc11 2))) (let ((e-21 (vector-ref sc11 3))) (let ((e-20 (vector-ref sc11 4))) (let ((e-4 (vector-ref sc11 5))) (let ((e-19 (vector-ref sc11 6))) (let ((e-18 (vector-ref sc11 7))) (let ((e-17 (vector-ref sc11 8))) (let ((e-15 (vector-ref sc11 10))) (vector 0 e-0 e-1 e-21 e-20 e-4 e-19 e-18 e-17 (vector 0 ) e-15)))))))))))))) (vector 1 act-34)))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-35 ((Check-Elab-TTImp-processDecl (vector 0 ) arg-15 arg-14 arg-13 (vector 1 (vector 1 ) (vector 0 )) nestC-39 (vector 0 ) (vector 2 arg-9 arg-20 altsC-39)) eta-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((act-36 (let ((act-36 (unbox arg-13))) (vector 1 act-36)))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc13 1))) (let ((act-37 (let ((act-37 (set-box! arg-13 (let ((sc14 e-17)) (let ((e-0 (vector-ref sc14 1))) (let ((e-1 (vector-ref sc14 2))) (let ((e-24 (vector-ref sc14 3))) (let ((e-23 (vector-ref sc14 4))) (let ((e-4 (vector-ref sc14 5))) (let ((e-22 (vector-ref sc14 6))) (let ((e-21 (vector-ref sc14 7))) (let ((e-20 (vector-ref sc14 8))) (let ((e-18 (vector-ref sc14 10))) (vector 0 e-0 e-1 e-24 e-23 e-4 e-22 e-21 e-20 olddelayed e-18)))))))))))))) (vector 1 act-37)))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (vector 1 (vector 0 appTm (Normalise-Core-gnf arg-0 arg-21 e-2)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Case-Elab-TTImp-case--11922-8848 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (cond ((equal? sc0 0) (vector 2 )) (else (vector 0 )))))) -(define Case-Elab-TTImp-case--10830-8793 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-1))) (Case-Elab-TTImp-case--11922-8848 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 e-1 bind-0 (TT-Core-C-61C-61_Eq__Visibility (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9)) (vector 2 )))))) (else (vector 2 )))))) -(define Case-Elab-TTImp-case--10860-8680 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-3 (vector-ref sc0 2))) (let ((argsC-39 (Case-Elab-TTImp-n--10830-7912-mkSplit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased arg-20 arg-16 e-3))) (let ((lhsC-39 (TTImp-TTImp-apply (vector 0 arg-17 arg-21) argsC-39))) (vector 2 arg-17 (Case-Elab-TTImp-n--10830-7915-applyNested arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 lhsC-39)))))))) -(define Case-Elab-TTImp-case--10860-8612 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (let ((e-3 (vector-ref sc0 2))) (let ((argsC-39 (Case-Elab-TTImp-n--10830-7912-mkSplit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased arg-23 arg-19 e-3))) (let ((lhsC-39 (TTImp-TTImp-apply (vector 0 arg-20 arg-24) argsC-39))) (vector 1 arg-20 (Case-Elab-TTImp-n--10830-7915-applyNested arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-22 lhsC-39) arg-18 arg-17 arg-16))))))) -(define Case-Elab-TTImp-case--10860-8540 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((argsC-39 (Case-Elab-TTImp-n--10830-7912-mkSplit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased arg-21 arg-17 e-3))) (let ((lhsC-39 (TTImp-TTImp-apply (vector 0 arg-18 arg-22) argsC-39))) (vector 0 arg-18 (Case-Elab-TTImp-n--10830-7915-applyNested arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-20 lhsC-39) (Case-Elab-TTImp-bindCaseLocals 'erased arg-18 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-getNestData 'erased 'erased eta-0)) arg-20) e-2 arg-16))))))))) -(define Case-Elab-TTImp-case--10855-8333 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((17) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 17 e-0 e-1 e-2 arg-18)))))(else arg-18))))) -(define Case-Elab-TTImp-case--10854-8259 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((nsC-39 (vector 1 arg-22 e-2))) (vector 0 nsC-39 (vector 1 (vector 17 arg-9 (vector 0 ) (Builtin-snd 'erased 'erased arg-22) (vector 31 arg-9 0)) e-3)))))))) -(define Case-Elab-TTImp-case--10853-8137 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (vector 0 arg-17 (vector 2 "_cn" arg-18))) (else (vector 0 arg-17 arg-17)))))) -(define Case-Elab-TTImp-case--10853-8041 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (vector 0 arg-18 (vector 2 arg-17 arg-19))) (else (vector 0 arg-18 arg-18)))))) -(define Case-Elab-TTImp-case--10727-7833 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc0 1))) e-2)))))) -(define Case-Elab-TTImp-case--10574-7715 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 1 (+ 1 arg-6)))) -(define Case-Elab-TTImp-case--10533-7670 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 1 0)) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Case-Elab-TTImp-findScrutinee arg-0 arg-2 (vector 0 arg-5 arg-4)) (lambda (_-0) (vector 1 (+ 1 _-0))))))))) -(define Case-Elab-TTImp-case--10115-7251 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 1 (TT-Core-setMultiplicity 'erased arg-3 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-2)) (else (vector 1 arg-3 arg-2)))))) -(define Case-Elab-TTImp-n--10830-7913-usedIn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((16) (let ((e-1 (vector-ref sc0 2))) (vector 1 (vector 1 e-1) (vector 0 )))) ((8) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Case-Elab-TTImp-n--10830-7913-usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3) (Case-Elab-TTImp-n--10830-7913-usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-4))))) ((17) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 1 e-7 (Case-Elab-TTImp-n--10830-7913-usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-8))))) ((12) (let ((e-11 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Case-Elab-TTImp-n--10830-7913-usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 eta-0))) e-11)))(else (vector 0 )))))) -(define Case-Elab-TTImp-n--10830-7916-updateClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (Case-Elab-TTImp-case--10860-8540 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-2 e-1 e-0 arg-19 arg-18 arg-17 arg-16 (Case-Elab-TTImp-n--10830-7910-addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-0 0 arg-19 (Case-Elab-TTImp-n--10830-7913-usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-1))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (Case-Elab-TTImp-case--10860-8612 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-7 e-6 e-5 e-4 e-3 arg-19 arg-18 arg-17 arg-16 (Case-Elab-TTImp-n--10830-7910-addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-0 0 arg-19 (Case-Elab-TTImp-n--10830-7913-usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-4))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (Case-Elab-TTImp-case--10860-8680 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-9 e-8 arg-19 arg-18 arg-17 arg-16 (Case-Elab-TTImp-n--10830-7910-addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-0 0 arg-19 (Case-Elab-TTImp-n--10830-7913-usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-9)))))))))) -(define Case-Elab-TTImp-n--10830-7911-replace (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (let ((sc1 arg-18)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((lhsC-39 (let ((sc2 e-2)) (case (vector-ref sc2 0) ((17) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 3))) (vector 17 e-0 e-1 e-5 arg-17)))))(else arg-17))))) (vector 1 lhsC-39 e-3)))))(else arg-18))))(else (let ((e-0 (- arg-16 1))) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (vector 1 e-5 (Case-Elab-TTImp-n--10830-7911-replace arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-0 arg-17 e-6)))))(else arg-18))))))))) -(define Case-Elab-TTImp-n--10533-7645-notLet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) 1)(else 0))))) -(define Case-Elab-TTImp-n--10830-7914-nestLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-2 (TTImp-TTImp-apply (vector 0 arg-17 (Maybe-Data-fromMaybe 'erased (lambda () e-2) e-6)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 31 arg-17 1)) e-10))))))))))))) -(define Case-Elab-TTImp-n--10830-7912-mkSplit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (List-Data-reverse 'erased (vector 1 arg-18 arg-19))) (else (let ((e-2 (vector-ref sc0 1))) (List-Data-reverse 'erased (Case-Elab-TTImp-n--10830-7911-replace arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-2 arg-18 arg-19)))))))) -(define Case-Elab-TTImp-n--13174-9874-guessScrType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 31 arg-5 1)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (Case-Elab-TTImp-case--13199-10123 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-4 e-6 e-5 e-3 (TTImp-TTImp-getFn e-5))))))(else (Case-Elab-TTImp-n--13174-9874-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-3))))))))))) -(define Case-Elab-TTImp-n--13174-9873-getRetTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((Case-Elab-TTImp-n--13174-9873-getRetTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-7 (let ((sc1 arg-14)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-14 (vector 0 ) e-1) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-7 e-11)))))))))) (else (vector 1 (vector 0 )))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Case-Elab-TTImp-n--10699-7799-getNameFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Case-Elab-TTImp-case--10727-7833 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-8 'erased (Case-Elab-TTImp-n--10699-7798-getArg 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-6 arg-8)))) -(define Case-Elab-TTImp-n--10830-7909-getBindName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((n (vector 1 e-0))) (Case-Elab-TTImp-case--10853-8041 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-18 e-0 n arg-16 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) n arg-18)))))(else (Case-Elab-TTImp-case--10853-8137 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-18 arg-17 arg-16 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-17 arg-18))))))) -(define Case-Elab-TTImp-n--10699-7798-getArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 arg-9)) (cond ((equal? sc2 0) (vector 1 e-8))(else (let ((sc2 arg-9)) (cond ((equal? sc2 0) (blodwen-error-quit "Nat case not covered"))(else (let ((e-4 (- arg-9 1))) (Case-Elab-TTImp-n--10699-7798-getArg 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-4))))))))))(else (let ((sc1 arg-9)) (cond ((equal? sc1 0) (blodwen-error-quit "Nat case not covered"))(else (let ((e-4 (- arg-9 1))) (Case-Elab-TTImp-n--10699-7798-getArg 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-4))))))))))))))) -(define Case-Elab-TTImp-n--13174-9871-checkConcrete (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TTImp-TTImp-getFC arg-4) "Can't infer type for case scrutinee") eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Case-Elab-TTImp-n--13174-9872-applyTo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) ((Case-Elab-TTImp-n--13174-9872-applyTo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (vector 8 e-1 arg-15 (vector 31 e-1 1)) e-5) eta-0))))))))(else (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((Case-Elab-TTImp-n--13174-9872-applyTo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (vector 9 arg-5 arg-15 (vector 1 e-2) (vector 31 arg-5 1)) e-5) eta-0))))))))))))(else (lambda (eta-0) (vector 1 arg-15))))))))))(else (lambda (eta-0) (vector 1 arg-15))))))) -(define Case-Elab-TTImp-n--10830-7915-applyNested (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((fc (TTImp-TTImp-getFC arg-17))) (Utils-TTImp-substNames (vector 0 ) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-n--10830-7914-nestLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased fc eta-0)) arg-16) arg-17)))) -(define Case-Elab-TTImp-n--10830-7910-addEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-18)) (vector 0 (vector 0 ) (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-18)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((n (Case-Elab-TTImp-n--10830-7909-getBindName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 e-2 arg-19))) (Case-Elab-TTImp-case--10854-8259 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-2 e-3 e-9 e-8 arg-19 arg-17 n (Case-Elab-TTImp-n--10830-7910-addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3 (b+ arg-17 1 63) e-9 (vector 1 (Builtin-snd 'erased 'erased n) arg-19)))))))))))))) +(define ImplicitBind-Elab-TTImp-getToBind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Unify-Core-solveConstraints arg-1 arg-3 (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))) (vector 0 ) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 ((ImplicitBind-Elab-TTImp-bindUnsolved arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (Unify-Core-solveConstraints arg-1 arg-3 (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))) (vector 0 ) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (unbox arg-2))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((tob (List-Data-reverse 'erased (List-Data-filter 'erased (lambda (x) (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (Builtin-fst 'erased 'erased x) arg-8))) (let ((sc5 e-9)) (let ((e-17 (vector-ref sc5 6))) e-17)))))) (let ((act-29 ((ImplicitBind-Elab-TTImp-n--11835-9326-normImps arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-8 (vector 0 ) tob) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((hnames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-10))) (let ((resC-39 (ImplicitBind-Elab-TTImp-n--11835-9328-depSort arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 hnames e-10))) (let ((act-30 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Bound names: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d-0) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d-0 x-0))))) d x)))) e-10))) eta-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-31 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Sorted: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d-0) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d-0 x-0))))) d x)))) resC-39))) eta-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (vector 1 resC-39))))))))))))))))))))))))))))))))))))))))))))) +(define ImplicitBind-Elab-TTImp-checkBindVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((elabmode (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (ImplicitBind-Elab-TTImp-case--12677-10381 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 elabmode (ImplicitBind-Elab-TTImp-case--12677-10316 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 elabmode (let ((sc0 arg-6)) (let ((e-1 (vector-ref sc0 2))) e-1))))))) +(define ImplicitBind-Elab-TTImp-checkBindHere (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((oldenv (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 3))) e-3)))) (let ((oldsub (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 4))) e-4)))) (let ((oldbif (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 7))) e-7)))) (let ((dontbind (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 6))) e-6))))) (let ((act-25 (let ((act-25 (set-box! arg-4 (Check-Elab-TTImp-updateEnv 'erased arg-0 arg-8 (vector 0 ) (vector 0 ) e-5)))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-getNextEntry arg-1 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 5))) (let ((e-8 (vector-ref sc3 6))) (vector 0 e-0 arg-10 e-2 0 e-4 e-8)))))) arg-7 arg-8 arg-11 arg-12) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-28 (Unify-Core-solveConstraints arg-1 arg-3 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--13754-11545 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 oldenv oldsub oldbif dontbind e-6 e-7 e-2 e-3 _-0 (let ((sc5 arg-6)) (let ((e-0 (vector-ref sc5 1))) e-0)))) (vector 0 ) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Unify-Core-solveConstraintsAfter arg-1 arg-3 e-7 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--13754-11443 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 oldenv oldsub oldbif dontbind e-6 e-7 e-2 e-3 _-0 e-9 (let ((sc6 arg-6)) (let ((e-0 (vector-ref sc6 1))) e-0)))) (vector 1 ) ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (unbox arg-3))) (vector 1 act-30)))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (Delayed-Elab-TTImp-retryDelayed arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc8 e-11)) (let ((e-13 (vector-ref sc8 9))) e-13)) eta-0)) (lambda (err) (lambda (eta-0) (let ((act-31 (let ((act-31 (unbox arg-3))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (let ((act-32 (set-box! arg-3 (let ((sc9 e-12)) (let ((e-0 (vector-ref sc9 1))) (let ((e-1 (vector-ref sc9 2))) (let ((e-19 (vector-ref sc9 3))) (let ((e-18 (vector-ref sc9 4))) (let ((e-4 (vector-ref sc9 5))) (let ((e-17 (vector-ref sc9 6))) (let ((e-16 (vector-ref sc9 7))) (let ((e-15 (vector-ref sc9 8))) (let ((e-13 (vector-ref sc9 10))) (vector 0 e-0 e-1 e-19 e-18 e-4 e-17 e-16 e-15 (vector 0 ) e-13)))))))))))))) (vector 1 act-32)))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-0)))))))))))) ext-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 (Unify-Core-checkDots arg-3 arg-1 ext-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-33 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Binding names") e-2 ext-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-34 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") arg-8 e-2 ext-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-35 ((ImplicitBind-Elab-TTImp-getToBind arg-0 arg-1 arg-4 arg-3 arg-9 (let ((sc12 arg-6)) (let ((e-0 (vector-ref sc12 1))) e-0)) arg-10 arg-8 dontbind) ext-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-36 (Check-Elab-TTImp-clearToBind 'erased arg-4 dontbind ext-0))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-37 (let ((act-37 (unbox arg-4))) (vector 1 act-37)))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc14 1))) (let ((act-38 (let ((act-38 (set-box! arg-4 (Check-Elab-TTImp-updateEnv 'erased (let ((sc15 e-5)) (let ((e-1 (vector-ref sc15 1))) e-1)) oldenv oldsub oldbif (let ((sc15 e-18)) (let ((e-1 (vector-ref sc15 1))) (let ((e-29 (vector-ref sc15 2))) (let ((e-28 (vector-ref sc15 3))) (let ((e-4 (vector-ref sc15 4))) (let ((e-26 (vector-ref sc15 6))) (let ((e-25 (vector-ref sc15 7))) (let ((e-24 (vector-ref sc15 8))) (let ((e-23 (vector-ref sc15 9))) (let ((e-22 (vector-ref sc15 10))) (let ((e-21 (vector-ref sc15 11))) (let ((e-20 (vector-ref sc15 12))) (let ((e-19 (vector-ref sc15 13))) (vector 0 e-1 e-29 e-28 e-4 (vector 0 ) e-26 e-25 e-24 e-23 e-22 e-21 e-20 e-19)))))))))))))))))) (vector 1 act-38)))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-39 ((Normalise-Core-getTerm 'erased e-3) ext-0))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-40 (let ((act-40 (unbox arg-1))) (vector 1 act-40)))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc17 1))) (let ((act-41 (let ((act-41 (Normalise-Core-normaliseHoles arg-0 e-21 arg-8 e-2 ext-0))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc18 1))) (let ((act-42 (Normalise-Core-normaliseHoles arg-0 e-21 arg-8 e-20 ext-0))) (let ((sc19 act-42)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (vector 0 e-4))) (else (let ((e-23 (vector-ref sc19 1))) ((ImplicitBind-Elab-TTImp-bindImplicits arg-0 arg-9 arg-10 e-21 arg-8 e-16 e-22 e-23) ext-0))))))))))))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc18 1))) (let ((sc19 e-22)) (let ((e-23 (vector-ref sc19 1))) (let ((e-4 (vector-ref sc19 2))) (let ((act-42 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ImplicitBind-Elab-TTImp-implicitBind arg-1 arg-3 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-16)) ext-0))) (let ((sc20 act-42)) (case (vector-ref sc20 0) ((0) (let ((e-24 (vector-ref sc20 1))) (vector 0 e-24))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 e-23 (Normalise-Core-gnf arg-0 arg-8 e-4) arg-12) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define ImplicitBind-Elab-TTImp-bindUnsolved (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((bifs (let ((sc2 e-5)) (let ((e-7 (vector-ref sc2 7))) e-7)))) (let ((act-26 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Bindable unsolved implicits: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) bifs)))) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ImplicitBind-Elab-TTImp-n--9844-7585-mkImplicit arg-6 arg-5 arg-4 arg-3 arg-0 arg-2 arg-1 (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 1))) e-1)) e-6 (let ((sc3 e-5)) (let ((e-3 (vector-ref sc3 3))) e-3)) (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 4))) e-4)) eta-1)) (let ((sc3 e-5)) (let ((e-14 (vector-ref sc3 7))) e-14))) eta-0)))))))))))))))))))))) +(define ImplicitBind-Elab-TTImp-bindImplicits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 arg-6 arg-7))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ImplicitBind-Elab-TTImp-n--11699-9198-nHoles arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-1)) arg-5) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (ImplicitBind-Elab-TTImp-liftImps arg-0 arg-2 (ImplicitBind-Elab-TTImp-bindImplVars 'erased arg-1 arg-2 arg-3 arg-4 e-5 arg-6 arg-7)))))))))))))) +(define ImplicitBind-Elab-TTImp-bindImplVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (vector 0 arg-6 arg-7))(else (let ((imps (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (ImplicitBind-Elab-TTImp-n--11197-8785-tidyName 'erased arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2) (vector 0 e-2 e-3)))))) arg-5))) (ImplicitBind-Elab-TTImp-n--11197-8786-getBinds 'erased arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased (vector 0 ) imps (vector 0 ) arg-6 arg-7))))))) +(define Hole-Elab-TTImp-case--8967-12252 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 9 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (Context-Core-addUserHole arg-11 arg-15 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-15 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 (Normalise-Core-gnf arg-0 arg-4 arg-14))))))))))))))))))))) +(define Hole-Elab-TTImp-case--8662-12203 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Check-Elab-TTImp-metaVarI arg-0 arg-11 arg-9 arg-3 arg-7 arg-13 arg-15 arg-14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 9 e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (Context-Core-addUserHole arg-11 arg-15 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-27 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-15 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 (Normalise-Core-gnf arg-0 arg-4 arg-14)))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-11 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-15) " already defined")) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-3 arg-15) eta-0))))))))))) +(define Hole-Elab-TTImp-case--8704-12002 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-getNF 'erased arg-11 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Hole-Elab-TTImp-mkPrecise 'erased arg-11 e-5) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 9 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (Context-Core-addUserHole arg-11 arg-12 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-27 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-12 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 arg-1)))))))))))))))))))))))) +(define Hole-Elab-TTImp-case--8662-11953 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((envC-39 (Env-Core-letToLam 'erased arg-4))) (let ((act-25 (Check-Elab-TTImp-metaVarI arg-0 arg-11 arg-9 arg-3 arg-7 envC-39 arg-12 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-26 (let ((act-26 ((Normalise-Core-getNF 'erased arg-11 arg-1) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) ((Hole-Elab-TTImp-mkPrecise 'erased arg-11 e-7) eta-0)))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-27 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 9 e-2) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (Context-Core-addUserHole arg-11 arg-12 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-29 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-12 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 arg-1))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-11 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) " already defined")) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-3 arg-12) eta-0))))))))))) +(define Hole-Elab-TTImp-case--8580-11872 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (vector 0 e-0 0))))) +(define Hole-Elab-TTImp-case--8557-11849 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 1 (vector 7 e-0 (let ((sc1 e-1)) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3 0))))))))(else (vector 0 )))))) +(define Hole-Elab-TTImp-mkPrecise (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (Context-Core-updateDef arg-1 (vector 9 e-6) (lambda (lcase-0) (let ((sc2 lcase-0)) (case (vector-ref sc2 0) ((7) (let ((e-0 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (vector 1 (vector 7 e-0 (let ((sc3 e-4)) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9 0))))))))(else (vector 0 ))))) eta-0))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Hole-Elab-TTImp-checkHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 (vector 1 arg-10)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Context-Core-lookupCtxtExact e-5 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (let ((act-27 ((Normalise-Core-getTerm 'erased e-1) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((envC-39 (Env-Core-letToLam 'erased arg-8))) (let ((act-28 (Check-Elab-TTImp-metaVarI arg-0 arg-1 arg-3 arg-9 arg-5 envC-39 e-5 e-8 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((act-29 (let ((act-29 ((Normalise-Core-getNF 'erased arg-1 e-1) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc8 1))) ((Hole-Elab-TTImp-mkPrecise 'erased arg-1 e-10) eta-0)))))))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-30 (Metadata-Core-withCurrentLHS arg-1 arg-2 (vector 9 e-2) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-31 (Context-Core-addUserHole arg-1 e-5 eta-0))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-32 (Check-Elab-TTImp-saveHole 'erased arg-4 e-5 eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 e-1)))))))))))))))))))))))))))))))))(else (let ((act-27 (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) " already defined")) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-9 e-5) eta-0))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-1 arg-3 (Strings-Prelude-C-43C-43 "type_of_" arg-10) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((envC-39 (Env-Core-letToLam 'erased arg-8))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) envC-39 e-5 (vector 11 arg-9) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Context-Core-inCurrentNS arg-1 (vector 1 arg-10)) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-nf arg-0 e-8 envC-39 e-6) eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) ((Hole-Elab-TTImp-mkPrecise 'erased arg-1 e-9) eta-0)))))))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 ((Context-Core-lookupCtxtExact e-7 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) e-0))) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((0) (let ((act-30 (Check-Elab-TTImp-metaVarI arg-0 arg-1 arg-3 arg-9 arg-5 envC-39 e-7 e-6 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((sc8 e-11)) (let ((e-2 (vector-ref sc8 1))) (let ((e-3 (vector-ref sc8 2))) (let ((act-31 (Metadata-Core-withCurrentLHS arg-1 arg-2 (vector 9 e-2) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 (Context-Core-addUserHole arg-1 e-7 eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-33 (Check-Elab-TTImp-saveHole 'erased arg-4 e-7 eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 (Normalise-Core-gnf arg-0 arg-8 e-6))))))))))))))))))))))))(else (let ((act-30 (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) " already defined")) eta-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-9 e-7) eta-0)))))))))))))))))))))))))))))))))))))))))))) +(define Dot-Elab-TTImp-case--9354-7236 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-7)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 (vector 2 ) e-1 e-2 e-3 e-4 e-5))))))))) +(define Dot-Elab-TTImp-case--9354-7166 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-12 arg-10 "dotTm" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 arg-8 arg-5 e-5 e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (UnifyState-Core-addDot arg-0 arg-10 arg-4 arg-5 e-5 e-2 arg-3 e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-7 arg-1)))))))))))))))))))))))))) +(define Dot-Elab-TTImp-case--9316-7112 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (let ((sc1 arg-7)) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (vector 0 (vector 2 ) e-1 e-2 e-3 e-4 e-5))))))) arg-6 arg-5 arg-2 (vector 1 arg-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (UnifyState-Core-genName arg-12 arg-10 "dotTm" eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 arg-8 arg-5 e-6 e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (UnifyState-Core-addDot arg-0 arg-10 arg-4 arg-5 e-6 e-2 arg-3 e-8 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-8 arg-1))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 (Strings-Prelude-C-43C-43 "Dot pattern not valid here (Not LHS) " (TTImp-TTImp-show_Show__RawImp arg-2))) eta-0))))))) +(define Dot-Elab-TTImp-checkDot (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 "Dot pattern not valid here (unknown type) " (TTImp-TTImp-show_Show__RawImp arg-11))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (Dot-Elab-TTImp-case--9316-7112 arg-0 e-2 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))))))))) +(define Case-Elab-TTImp-case--14035-10924 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((14) (let ((e-2 (vector-ref sc0 3))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (lambda () (lambda (eta-0) (let ((act-24 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 arg-7 arg-6 arg-4 (vector 1 (Normalise-Core-gnf arg-0 arg-6 arg-15))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-21 eta-0))) e-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-21 eta-0))))))) +(define Case-Elab-TTImp-case--14035-10826 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Scrutinee type") arg-6 e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (unbox arg-13))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-nf arg-0 e-9 arg-6 e-5) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) ((Case-Elab-TTImp-n--13243-9940-checkConcrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-10) eta-0)))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (Case-Elab-TTImp-caseBlock arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-5 arg-7 arg-6 arg-4 e-2 e-5 e-7 arg-2 arg-1 eta-0)))))))))))))))))))))))))))) +(define Case-Elab-TTImp-case--14035-10667 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) +(define Case-Elab-TTImp-case--13243-10613 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected scrutinee type") e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((chrig (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--14035-10667 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-2 e-3 _-0 e-5 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-9))))) (let ((act-25 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-4) (Strings-Prelude-C-43C-43 " at " (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega chrig))))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (Check-Elab-TTImp-handle 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (lambda (eta-1) (let ((act-26 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 chrig arg-8 arg-7 arg-6 arg-4 (vector 1 (Normalise-Core-gnf arg-0 arg-6 e-2))) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-7) (vector 0 (Builtin-snd 'erased 'erased e-7) chrig))))))))) (lambda (err) (let ((sc3 err)) (case (vector-ref sc3 0) ((14) (let ((e-7 (vector-ref sc3 3))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (lambda () (lambda (eta-1) (let ((act-26 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 arg-7 arg-6 arg-4 (vector 1 (Normalise-Core-gnf arg-0 arg-6 e-2))) eta-1))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-8) (vector 0 (Builtin-snd 'erased 'erased e-8) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1))) e-7)))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-4)) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Normalise-Core-getTerm 'erased e-10) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-28 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Scrutinee type") arg-6 e-11 eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((act-29 (let ((act-29 (unbox arg-13))) (vector 1 act-29)))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-30 (let ((act-30 ((Normalise-Core-nf arg-0 e-13 arg-6 e-11) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) ((Case-Elab-TTImp-n--13243-9940-checkConcrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-14) eta-0)))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (Case-Elab-TTImp-caseBlock arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-5 arg-7 arg-6 arg-4 e-8 e-11 e-9 arg-2 arg-1 eta-0)))))))))))))))))))))))))))))))))))))))))))))) +(define Case-Elab-TTImp-case--13243-10550 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((31) (Case-Elab-TTImp-n--13243-9943-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-2))(else (lambda (eta-0) (vector 1 arg-3))))))) +(define Case-Elab-TTImp-case--13610-10321 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Case-Elab-TTImp-n--13243-9941-applyTo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-20 (vector 0 arg-5 e-4) e-5))))(else (Case-Elab-TTImp-n--13243-9943-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17))))))(else (Case-Elab-TTImp-n--13243-9943-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17)))))) +(define Case-Elab-TTImp-case--13537-10248 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-20 (vector 0 ) e-10) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) ((Case-Elab-TTImp-n--13243-9942-getRetTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-20 e-7) eta-0)))))))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) ((Case-Elab-TTImp-n--13243-9941-applyTo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-20 (vector 0 arg-5 e-4) e-8) eta-0))))(else ((Case-Elab-TTImp-n--13243-9943-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17) eta-0))))))(else ((Case-Elab-TTImp-n--13243-9943-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17) eta-0)))))))))))(else (Case-Elab-TTImp-n--13243-9943-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17))))))(else (Case-Elab-TTImp-n--13243-9943-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17))))))(else (Case-Elab-TTImp-n--13243-9943-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17)))))))(else (Case-Elab-TTImp-n--13243-9943-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17)))))) +(define Case-Elab-TTImp-case--13268-10192 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-13))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyName e-1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 1))) e-28)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-26 (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) e-10) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) ((Case-Elab-TTImp-n--13243-9942-getRetTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 e-11) eta-0)))))))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((sc8 e-11)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (let ((e-12 (vector-ref sc9 2))) ((Case-Elab-TTImp-n--13243-9941-applyTo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 (vector 0 arg-5 e-13) e-12) eta-0))))(else ((Case-Elab-TTImp-n--13243-9943-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17) eta-0))))))(else ((Case-Elab-TTImp-n--13243-9943-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17) eta-0))))))))))(else ((Case-Elab-TTImp-n--13243-9943-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17) eta-0))))))(else ((Case-Elab-TTImp-n--13243-9943-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17) eta-0))))))(else ((Case-Elab-TTImp-n--13243-9943-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17) eta-0)))))))(else ((Case-Elab-TTImp-n--13243-9943-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17) eta-0)))))))))))))))))(else (Case-Elab-TTImp-n--13243-9943-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17)))))) +(define Case-Elab-TTImp-case--13267-10068 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-19 (vector 0 ) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 0 arg-18 e-5))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Case-Elab-TTImp-case--10899-9805 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-getTerm 'erased e-1)))(else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-15 arg-13 "caseTy" eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Check-Elab-TTImp-metaVar arg-0 arg-15 arg-13 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-21 e-5 (vector 11 arg-9) eta-0)))))))))))) +(define Case-Elab-TTImp-case--12283-9706 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46) (let ((sc0 arg-45)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9))))))))))))) +(define Case-Elab-TTImp-case--12283-9594 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49) (let ((sc0 arg-49)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-46 e-9))))))))))))) +(define Case-Elab-TTImp-case--12283-9438 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34) (let ((sc0 arg-34)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) +(define Case-Elab-TTImp-case--10899-9115 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((casefnty (Env-Core-abstractFullEnvType arg-0 arg-9 (Case-Elab-TTImp-allow 'erased arg-25 (Case-Elab-TTImp-explicitPi 'erased arg-21)) (Prelude-maybe 'erased 'erased (lambda () (vector 3 arg-9 arg-19 (vector 2 arg-3 (vector 1 ) arg-4) (TT-Core-weaken_Weaken__Term arg-19 arg-0 e-2))) (lambda () (lambda (eta-0) e-2)) arg-25)))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logEnv arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) "Case env" arg-21 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-15 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Case function type: " (Name-Core-show_Show__Name arg-20))) (vector 0 ) casefnty eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 (Prelude-not (List-Data-isNil 'erased arg-17)))) (cond ((equal? sc3 0) ((Case-Elab-TTImp-findImpsIn (vector 0 ) arg-9 (vector 0 ) (vector 0 ) casefnty) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-addDef arg-15 arg-20 (Context-Core-newDef arg-9 arg-20 (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--12283-9438 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-25 arg-26 e-3 arg-24 e-2 _-0 casefnty e-5 e-6 e-7 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-11))) (vector 0 ) casefnty arg-24 (vector 0 )) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-setFlag arg-15 arg-9 (vector 9 e-8) (vector 4 (vector 2 )) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((caseRef (vector 1 arg-9 (vector 1 ) (vector 9 e-8)))) (let ((act-29 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Context-Core-setFlag arg-15 arg-9 arg-20 (vector 0 ) eta-2)))) arg-25) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((applyEnv (UnifyState-Core-applyToFull arg-0 arg-9 caseRef arg-21))) (let ((appTm (Prelude-maybe 'erased 'erased (lambda () (vector 4 arg-9 applyEnv arg-5)) (lambda () (lambda (eta-1) applyEnv)) arg-25))) (let ((altsC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Case-Elab-TTImp-n--10899-7985-updateClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-20 arg-25 arg-8 arg-21 eta-1)) arg-2))) (let ((act-30 (Context-Core-log arg-15 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Nested: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d) (lambda (x-2) (Name-Core-showPrec_Show__Name d x-2)))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x-2)))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-2) (lambda (x-2) (Name-Core-showPrec_Show__Name d-2 x-2)))) d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-2 x-2)))) d-1 x-1))))) d-0 x-0))))) d x)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Case-Elab-TTImp-getNestData 'erased 'erased eta-1)) arg-8)))) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 (Context-Core-log arg-15 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Generated alts: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) altsC-39))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 0)) (lambda () "Case application") arg-21 appTm eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((nestC-39 (vector 0 ))) (let ((act-33 (let ((act-33 (unbox arg-13))) (vector 1 act-33)))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((olddelayed (let ((sc11 e-14)) (let ((e-16 (vector-ref sc11 9))) e-16)))) (let ((act-34 (let ((act-34 (set-box! arg-13 (let ((sc11 e-14)) (let ((e-0 (vector-ref sc11 1))) (let ((e-1 (vector-ref sc11 2))) (let ((e-21 (vector-ref sc11 3))) (let ((e-20 (vector-ref sc11 4))) (let ((e-4 (vector-ref sc11 5))) (let ((e-19 (vector-ref sc11 6))) (let ((e-18 (vector-ref sc11 7))) (let ((e-17 (vector-ref sc11 8))) (let ((e-15 (vector-ref sc11 10))) (vector 0 e-0 e-1 e-21 e-20 e-4 e-19 e-18 e-17 (vector 0 ) e-15)))))))))))))) (vector 1 act-34)))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-35 ((Check-Elab-TTImp-processDecl (vector 0 ) arg-15 arg-14 arg-13 (vector 1 (vector 1 ) (vector 0 )) nestC-39 (vector 0 ) (vector 2 arg-9 arg-20 altsC-39)) eta-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((act-36 (let ((act-36 (unbox arg-13))) (vector 1 act-36)))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc13 1))) (let ((act-37 (let ((act-37 (set-box! arg-13 (let ((sc14 e-17)) (let ((e-0 (vector-ref sc14 1))) (let ((e-1 (vector-ref sc14 2))) (let ((e-24 (vector-ref sc14 3))) (let ((e-23 (vector-ref sc14 4))) (let ((e-4 (vector-ref sc14 5))) (let ((e-22 (vector-ref sc14 6))) (let ((e-21 (vector-ref sc14 7))) (let ((e-20 (vector-ref sc14 8))) (let ((e-18 (vector-ref sc14 10))) (vector 0 e-0 e-1 e-24 e-23 e-4 e-22 e-21 e-20 olddelayed e-18)))))))))))))) (vector 1 act-37)))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (vector 1 (vector 0 appTm (Normalise-Core-gnf arg-0 arg-21 e-2)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Case-Elab-TTImp-case--11991-8917 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (cond ((equal? sc0 0) (vector 2 )) (else (vector 0 )))))) +(define Case-Elab-TTImp-case--10899-8862 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-1))) (Case-Elab-TTImp-case--11991-8917 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 e-1 bind-0 (TT-Core-C-61C-61_Eq__Visibility (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9)) (vector 2 )))))) (else (vector 2 )))))) +(define Case-Elab-TTImp-case--10929-8749 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-3 (vector-ref sc0 2))) (let ((argsC-39 (Case-Elab-TTImp-n--10899-7981-mkSplit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased arg-20 arg-16 e-3))) (let ((lhsC-39 (TTImp-TTImp-apply (vector 0 arg-17 arg-21) argsC-39))) (vector 2 arg-17 (Case-Elab-TTImp-n--10899-7984-applyNested arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 lhsC-39)))))))) +(define Case-Elab-TTImp-case--10929-8681 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (let ((e-3 (vector-ref sc0 2))) (let ((argsC-39 (Case-Elab-TTImp-n--10899-7981-mkSplit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased arg-23 arg-19 e-3))) (let ((lhsC-39 (TTImp-TTImp-apply (vector 0 arg-20 arg-24) argsC-39))) (vector 1 arg-20 (Case-Elab-TTImp-n--10899-7984-applyNested arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-22 lhsC-39) arg-18 arg-17 arg-16))))))) +(define Case-Elab-TTImp-case--10929-8609 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((argsC-39 (Case-Elab-TTImp-n--10899-7981-mkSplit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased arg-21 arg-17 e-3))) (let ((lhsC-39 (TTImp-TTImp-apply (vector 0 arg-18 arg-22) argsC-39))) (vector 0 arg-18 (Case-Elab-TTImp-n--10899-7984-applyNested arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-20 lhsC-39) (Case-Elab-TTImp-bindCaseLocals 'erased arg-18 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-getNestData 'erased 'erased eta-0)) arg-20) e-2 arg-16))))))))) +(define Case-Elab-TTImp-case--10924-8402 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((17) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 17 e-0 e-1 e-2 arg-18)))))(else arg-18))))) +(define Case-Elab-TTImp-case--10923-8328 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((nsC-39 (vector 1 arg-22 e-2))) (vector 0 nsC-39 (vector 1 (vector 17 arg-9 (vector 0 ) (Builtin-snd 'erased 'erased arg-22) (vector 31 arg-9 0)) e-3)))))))) +(define Case-Elab-TTImp-case--10922-8206 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (vector 0 arg-17 (vector 2 "_cn" arg-18))) (else (vector 0 arg-17 arg-17)))))) +(define Case-Elab-TTImp-case--10922-8110 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (vector 0 arg-18 (vector 2 arg-17 arg-19))) (else (vector 0 arg-18 arg-18)))))) +(define Case-Elab-TTImp-case--10796-7902 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc0 1))) e-2)))))) +(define Case-Elab-TTImp-case--10643-7784 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 1 (+ 1 arg-6)))) +(define Case-Elab-TTImp-case--10602-7739 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 1 0)) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Case-Elab-TTImp-findScrutinee arg-0 arg-2 (vector 0 arg-5 arg-4)) (lambda (_-0) (vector 1 (+ 1 _-0))))))))) +(define Case-Elab-TTImp-case--10184-7320 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 1 (TT-Core-setMultiplicity 'erased arg-3 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-2)) (else (vector 1 arg-3 arg-2)))))) +(define Case-Elab-TTImp-n--10899-7982-usedIn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((16) (let ((e-1 (vector-ref sc0 2))) (vector 1 (vector 1 e-1) (vector 0 )))) ((8) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Case-Elab-TTImp-n--10899-7982-usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3) (Case-Elab-TTImp-n--10899-7982-usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-4))))) ((17) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 1 e-7 (Case-Elab-TTImp-n--10899-7982-usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-8))))) ((12) (let ((e-11 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Case-Elab-TTImp-n--10899-7982-usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 eta-0))) e-11)))(else (vector 0 )))))) +(define Case-Elab-TTImp-n--10899-7985-updateClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (Case-Elab-TTImp-case--10929-8609 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-2 e-1 e-0 arg-19 arg-18 arg-17 arg-16 (Case-Elab-TTImp-n--10899-7979-addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-0 0 arg-19 (Case-Elab-TTImp-n--10899-7982-usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-1))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (Case-Elab-TTImp-case--10929-8681 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-7 e-6 e-5 e-4 e-3 arg-19 arg-18 arg-17 arg-16 (Case-Elab-TTImp-n--10899-7979-addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-0 0 arg-19 (Case-Elab-TTImp-n--10899-7982-usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-4))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (Case-Elab-TTImp-case--10929-8749 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-9 e-8 arg-19 arg-18 arg-17 arg-16 (Case-Elab-TTImp-n--10899-7979-addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-0 0 arg-19 (Case-Elab-TTImp-n--10899-7982-usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-9)))))))))) +(define Case-Elab-TTImp-n--10899-7980-replace (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (let ((sc1 arg-18)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((lhsC-39 (let ((sc2 e-2)) (case (vector-ref sc2 0) ((17) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 3))) (vector 17 e-0 e-1 e-5 arg-17)))))(else arg-17))))) (vector 1 lhsC-39 e-3)))))(else arg-18))))(else (let ((e-0 (- arg-16 1))) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (vector 1 e-5 (Case-Elab-TTImp-n--10899-7980-replace arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-0 arg-17 e-6)))))(else arg-18))))))))) +(define Case-Elab-TTImp-n--10602-7714-notLet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) 1)(else 0))))) +(define Case-Elab-TTImp-n--10899-7983-nestLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-2 (TTImp-TTImp-apply (vector 0 arg-17 (Maybe-Data-fromMaybe 'erased (lambda () e-2) e-6)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 31 arg-17 1)) e-10))))))))))))) +(define Case-Elab-TTImp-n--10899-7981-mkSplit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (List-Data-reverse 'erased (vector 1 arg-18 arg-19))) (else (let ((e-2 (vector-ref sc0 1))) (List-Data-reverse 'erased (Case-Elab-TTImp-n--10899-7980-replace arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-2 arg-18 arg-19)))))))) +(define Case-Elab-TTImp-n--13243-9943-guessScrType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 31 arg-5 1)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (Case-Elab-TTImp-case--13268-10192 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-4 e-6 e-5 e-3 (TTImp-TTImp-getFn e-5))))))(else (Case-Elab-TTImp-n--13243-9943-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-3))))))))))) +(define Case-Elab-TTImp-n--13243-9942-getRetTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((Case-Elab-TTImp-n--13243-9942-getRetTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-7 (let ((sc1 arg-14)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-14 (vector 0 ) e-1) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-7 e-11)))))))))) (else (vector 1 (vector 0 )))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Case-Elab-TTImp-n--10768-7868-getNameFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Case-Elab-TTImp-case--10796-7902 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-8 'erased (Case-Elab-TTImp-n--10768-7867-getArg 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-6 arg-8)))) +(define Case-Elab-TTImp-n--10899-7978-getBindName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((n (vector 1 e-0))) (Case-Elab-TTImp-case--10922-8110 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-18 e-0 n arg-16 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) n arg-18)))))(else (Case-Elab-TTImp-case--10922-8206 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-18 arg-17 arg-16 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) arg-17 arg-18))))))) +(define Case-Elab-TTImp-n--10768-7867-getArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 arg-9)) (cond ((equal? sc2 0) (vector 1 e-8))(else (let ((sc2 arg-9)) (cond ((equal? sc2 0) (blodwen-error-quit "Nat case not covered"))(else (let ((e-4 (- arg-9 1))) (Case-Elab-TTImp-n--10768-7867-getArg 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-4))))))))))(else (let ((sc1 arg-9)) (cond ((equal? sc1 0) (blodwen-error-quit "Nat case not covered"))(else (let ((e-4 (- arg-9 1))) (Case-Elab-TTImp-n--10768-7867-getArg 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-4))))))))))))))) +(define Case-Elab-TTImp-n--13243-9940-checkConcrete (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TTImp-TTImp-getFC arg-4) "Can't infer type for case scrutinee") eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Case-Elab-TTImp-n--13243-9941-applyTo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) ((Case-Elab-TTImp-n--13243-9941-applyTo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (vector 8 e-1 arg-15 (vector 31 e-1 1)) e-5) eta-0))))))))(else (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((Case-Elab-TTImp-n--13243-9941-applyTo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (vector 9 arg-5 arg-15 (vector 1 e-2) (vector 31 arg-5 1)) e-5) eta-0))))))))))))(else (lambda (eta-0) (vector 1 arg-15))))))))))(else (lambda (eta-0) (vector 1 arg-15))))))) +(define Case-Elab-TTImp-n--10899-7984-applyNested (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((fc (TTImp-TTImp-getFC arg-17))) (Utils-TTImp-substNames (vector 0 ) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-n--10899-7983-nestLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased fc eta-0)) arg-16) arg-17)))) +(define Case-Elab-TTImp-n--10899-7979-addEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-18)) (vector 0 (vector 0 ) (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-18)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((n (Case-Elab-TTImp-n--10899-7978-getBindName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 e-2 arg-19))) (Case-Elab-TTImp-case--10923-8328 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-2 e-3 e-9 e-8 arg-19 arg-17 n (Case-Elab-TTImp-n--10899-7979-addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3 (b+ arg-17 1 63) e-9 (vector 1 (Builtin-snd 'erased 'erased n) arg-19)))))))))))))) (define Case-Elab-TTImp-updateMults (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Case-Elab-TTImp-updateMults 'erased e-3 (Case-Elab-TTImp-toRig0 'erased 'erased e-2 'erased arg-2))))))))) -(define Case-Elab-TTImp-toRig1 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((idx 0)) (Case-Elab-TTImp-case--10115-7251 'erased 'erased e-5 e-4 idx 'erased (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (TT-Core-multiplicity 'erased e-4))))))))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-4)) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (vector 1 e-9 (Case-Elab-TTImp-toRig1 'erased 'erased e-0 'erased e-10))))))))))) -(define Case-Elab-TTImp-toRig0 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (vector 1 (TT-Core-setMultiplicity 'erased e-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-5)))))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-4)) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (vector 1 e-9 (Case-Elab-TTImp-toRig0 'erased 'erased e-0 'erased e-10))))))))))) +(define Case-Elab-TTImp-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--10184-7320 'erased 'erased e-5 e-4 idx 'erased (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (TT-Core-multiplicity 'erased e-4))))))))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-4)) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (vector 1 e-9 (Case-Elab-TTImp-toRig1 'erased 'erased e-0 'erased e-10))))))))))) +(define Case-Elab-TTImp-toRig0 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (vector 1 (TT-Core-setMultiplicity 'erased e-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-5)))))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-4)) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (vector 1 e-9 (Case-Elab-TTImp-toRig0 'erased 'erased e-0 'erased e-10))))))))))) (define Case-Elab-TTImp-getNestData (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-2 (vector 0 e-6 e-10)))))))))))) -(define Case-Elab-TTImp-findScrutinee (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (Case-Elab-TTImp-case--10533-7670 e-2 e-1 e-7 e-6 e-9 e-8 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-1 e-9) (lambda () (Case-Elab-TTImp-n--10533-7645-notLet e-2 e-1 e-7 e-6 e-9 e-8 'erased e-6)))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))) +(define Case-Elab-TTImp-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--10602-7739 e-2 e-1 e-7 e-6 e-9 e-8 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-1 e-9) (lambda () (Case-Elab-TTImp-n--10602-7714-notLet e-2 e-1 e-7 e-6 e-9 e-8 'erased e-6)))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))) (define Case-Elab-TTImp-findImpsIn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (Case-Elab-TTImp-findImpsIn (vector 1 e-2 arg-0) arg-1 (vector 1 e-3 arg-2) (vector 1 (vector 0 e-2 (TT-Core-weaken_Weaken__Term e-2 arg-0 e-8)) (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 (Builtin-fst 'erased 'erased x) (TT-Core-weaken_Weaken__Term e-2 arg-0 (Builtin-snd 'erased 'erased x)))) arg-3)) e-4))(else (Case-Elab-TTImp-findImpsIn (vector 1 e-2 arg-0) arg-1 (vector 1 e-3 arg-2) (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 (Builtin-fst 'erased 'erased x) (TT-Core-weaken_Weaken__Term e-2 arg-0 (Builtin-snd 'erased 'erased x)))) arg-3) e-4)))))))(else (Case-Elab-TTImp-findImpsIn (vector 1 e-2 arg-0) arg-1 (vector 1 e-3 arg-2) (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 (Builtin-fst 'erased 'erased x) (TT-Core-weaken_Weaken__Term e-2 arg-0 (Builtin-snd 'erased 'erased x)))) arg-3) e-4))))))))(else (let ((sc0 (Prelude-not (List-Data-isNil 'erased arg-3)))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 27 arg-0 arg-1 arg-2 (List-Data-reverse 'erased arg-3)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))) (define Case-Elab-TTImp-explicitPi (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 3))) (vector 1 (vector 2 e-7 (vector 1 ) e-9) (Case-Elab-TTImp-explicitPi 'erased e-4)))))(else (vector 1 e-3 (Case-Elab-TTImp-explicitPi 'erased e-4)))))))) (else (vector 0 )))))) -(define Case-Elab-TTImp-checkCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (Delayed-Elab-TTImp-delayElab arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 arg-13 0 (lambda (eta-0) (let ((act-24 (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((31) ((Case-Elab-TTImp-n--13174-9874-guessScrType arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-12) eta-0))(else (vector 1 arg-11)))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 e-5 (vector 1 (Normalise-Core-gType 'erased arg-9))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-26 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected scrutinee type") e-2 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((chrig (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--13966-10598 arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-2 e-3 _-0 e-7 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-5))))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-10) (Strings-Prelude-C-43C-43 " at " (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega chrig))))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-28 (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (let ((act-28 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 chrig arg-6 arg-7 arg-8 arg-10 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-9) (vector 0 (Builtin-snd 'erased 'erased e-9) chrig))))))))) (lambda (err) (let ((sc5 err)) (case (vector-ref sc5 0) ((14) (let ((e-9 (vector-ref sc5 3))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (lambda () (lambda (eta-1) (let ((act-28 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-10 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-10) (vector 0 (Builtin-snd 'erased 'erased e-10) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1))) e-9)))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (let ((e-10 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-4)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((act-29 ((Normalise-Core-getTerm 'erased e-12) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-30 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Scrutinee type") arg-8 e-13 eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-32 (let ((act-32 ((Normalise-Core-nf arg-0 e-15 arg-8 e-13) eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) ((Case-Elab-TTImp-n--13174-9871-checkConcrete arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased e-16) eta-0)))))))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (Case-Elab-TTImp-caseBlock arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-7 arg-8 arg-10 e-10 e-13 e-11 arg-12 arg-13 eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))) ext-0))) -(define Case-Elab-TTImp-caseBlock (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((ImplicitBind-Elab-TTImp-getToBind arg-0 arg-1 arg-4 arg-3 arg-7 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-6)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-9 (vector 0 )) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Doing a case under unbound implicits " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d-0) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d-0 x-0))))) d x)))) e-6))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (UnifyState-Core-genVarName arg-1 arg-3 "scr" ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (UnifyState-Core-genCaseName arg-1 arg-3 (let ((sc4 e-5)) (let ((e-2 (vector-ref sc4 2))) e-2)) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((env (Case-Elab-TTImp-updateMults 'erased (let ((sc5 e-5)) (let ((e-11 (vector-ref sc5 11))) e-11)) arg-9))) (let ((act-29 (let ((act-29 (unbox arg-1))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 ((Context-Core-lookupCtxtExact (vector 9 (let ((sc6 e-5)) (let ((e-2 (vector-ref sc6 2))) e-2))) (let ((sc6 e-10)) (let ((e-0 (vector-ref sc6 1))) e-0))) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((vis (let ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((bind-0 (vector 1 e-1))) (Case-Elab-TTImp-case--11922-8848 arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 e-8 e-9 env e-10 e-1 bind-0 (TT-Core-C-61C-61_Eq__Visibility (let ((sc8 e-1)) (let ((e-23 (vector-ref sc8 10))) e-23)) (vector 2 )))))) (else (vector 2 )))))) (let ((splitOn (Case-Elab-TTImp-findScrutinee arg-0 env arg-10))) (let ((act-31 (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) ((Normalise-Core-getTerm 'erased e-1) ext-0)))(else (let ((act-31 (UnifyState-Core-genName arg-1 arg-3 "caseTy" ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-7 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) env e-12 (vector 11 arg-7) ext-0))))))))))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 ((ImplicitBind-Elab-TTImp-bindImplicits arg-0 arg-7 (let ((sc8 arg-6)) (let ((e-1 (vector-ref sc8 2))) e-1)) e-10 env e-6 e-12 (vector 11 arg-7)) ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (let ((e-2 (vector-ref sc9 1))) (let ((e-3 (vector-ref sc9 2))) (let ((casefnty (Env-Core-abstractFullEnvType arg-0 arg-7 (Case-Elab-TTImp-allow 'erased splitOn (Case-Elab-TTImp-explicitPi 'erased env)) (Prelude-maybe 'erased 'erased (lambda () (vector 3 arg-7 e-8 (vector 2 arg-13 (vector 1 ) arg-12) (TT-Core-weaken_Weaken__Term e-8 arg-0 e-2))) (lambda () (lambda (eta-0) e-2)) splitOn)))) (let ((act-33 (Normalise-Core-logEnv arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) "Case env" env ext-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Case function type: " (Name-Core-show_Show__Name e-9))) (vector 0 ) casefnty ext-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-35 (let ((sc12 (Prelude-not (List-Data-isNil 'erased e-6)))) (cond ((equal? sc12 0) ((Case-Elab-TTImp-findImpsIn (vector 0 ) arg-7 (vector 0 ) (vector 0 ) casefnty) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-36 (Context-Core-addDef arg-1 e-9 (Context-Core-newDef arg-7 e-9 (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--12214-9369 arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 e-8 e-9 env e-10 e-11 splitOn e-12 e-3 vis e-2 _-0 casefnty e-14 e-15 e-16 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-5))) (vector 0 ) casefnty vis (vector 0 )) ext-0))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc13 1))) (let ((act-37 (Context-Core-setFlag arg-1 arg-7 (vector 9 e-17) (vector 4 (vector 2 )) ext-0))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((caseRef (vector 1 arg-7 (vector 1 ) (vector 9 e-17)))) (let ((act-38 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (eta-0) (lambda (eta-1) (Context-Core-setFlag arg-1 arg-7 e-9 (vector 0 ) eta-1)))) splitOn) ext-0))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((applyEnv (UnifyState-Core-applyToFull arg-0 arg-7 caseRef env))) (let ((appTm (Prelude-maybe 'erased 'erased (lambda () (vector 4 arg-7 applyEnv arg-11)) (lambda () (lambda (eta-0) applyEnv)) splitOn))) (let ((altsC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-n--10830-7916-updateClause arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-9 splitOn arg-8 env eta-0)) arg-14))) (let ((act-39 (Context-Core-log arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Nested: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d) (lambda (x-2) (Name-Core-showPrec_Show__Name d x-2)))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x-2)))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-2) (lambda (x-2) (Name-Core-showPrec_Show__Name d-2 x-2)))) d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-2 x-2)))) d-1 x-1))))) d-0 x-0))))) d x)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-getNestData 'erased 'erased eta-0)) arg-8)))) ext-0))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((act-40 (Context-Core-log arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Generated alts: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) altsC-39))) ext-0))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((act-41 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 0)) (lambda () "Case application") env appTm ext-0))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((nestC-39 (vector 0 ))) (let ((act-42 (let ((act-42 (unbox arg-3))) (vector 1 act-42)))) (let ((sc19 act-42)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (vector 0 e-4))) (else (let ((e-23 (vector-ref sc19 1))) (let ((olddelayed (let ((sc20 e-23)) (let ((e-25 (vector-ref sc20 9))) e-25)))) (let ((act-43 (let ((act-43 (set-box! arg-3 (let ((sc20 e-23)) (let ((e-0 (vector-ref sc20 1))) (let ((e-1 (vector-ref sc20 2))) (let ((e-30 (vector-ref sc20 3))) (let ((e-29 (vector-ref sc20 4))) (let ((e-4 (vector-ref sc20 5))) (let ((e-28 (vector-ref sc20 6))) (let ((e-27 (vector-ref sc20 7))) (let ((e-26 (vector-ref sc20 8))) (let ((e-24 (vector-ref sc20 10))) (vector 0 e-0 e-1 e-30 e-29 e-4 e-28 e-27 e-26 (vector 0 ) e-24)))))))))))))) (vector 1 act-43)))) (let ((sc20 act-43)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (let ((act-44 ((Check-Elab-TTImp-processDecl (vector 0 ) arg-1 arg-2 arg-3 (vector 1 (vector 1 ) (vector 0 )) nestC-39 (vector 0 ) (vector 2 arg-7 e-9 altsC-39)) ext-0))) (let ((sc21 act-44)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (vector 0 e-4))) (else (let ((act-45 (let ((act-45 (unbox arg-3))) (vector 1 act-45)))) (let ((sc22 act-45)) (case (vector-ref sc22 0) ((0) (let ((e-4 (vector-ref sc22 1))) (vector 0 e-4))) (else (let ((e-26 (vector-ref sc22 1))) (let ((act-46 (let ((act-46 (set-box! arg-3 (let ((sc23 e-26)) (let ((e-0 (vector-ref sc23 1))) (let ((e-1 (vector-ref sc23 2))) (let ((e-33 (vector-ref sc23 3))) (let ((e-32 (vector-ref sc23 4))) (let ((e-4 (vector-ref sc23 5))) (let ((e-31 (vector-ref sc23 6))) (let ((e-30 (vector-ref sc23 7))) (let ((e-29 (vector-ref sc23 8))) (let ((e-27 (vector-ref sc23 10))) (vector 0 e-0 e-1 e-33 e-32 e-4 e-31 e-30 e-29 olddelayed e-27)))))))))))))) (vector 1 act-46)))) (let ((sc23 act-46)) (case (vector-ref sc23 0) ((0) (let ((e-4 (vector-ref sc23 1))) (vector 0 e-4))) (else (vector 1 (vector 0 appTm (Normalise-Core-gnf arg-0 env e-2))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Case-Elab-TTImp-bindCaseLocals (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 6 arg-1 e-6 (Maybe-Data-fromMaybe 'erased (lambda () e-6) e-10) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-n--10699-7799-getNameFrom 'erased e-6 e-10 e-11 e-3 arg-4 arg-3 arg-1 eta-0)) e-11) (Case-Elab-TTImp-bindCaseLocals 'erased arg-1 e-3 arg-3 arg-4))))))))))))))) +(define Case-Elab-TTImp-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--13243-9943-guessScrType arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-12) eta-0))(else (vector 1 arg-11)))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 e-5 (vector 1 (Normalise-Core-gType 'erased arg-9))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-26 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected scrutinee type") e-2 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((chrig (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--14035-10667 arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-2 e-3 _-0 e-7 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-5))))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-10) (Strings-Prelude-C-43C-43 " at " (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega chrig))))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-28 (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (let ((act-28 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 chrig arg-6 arg-7 arg-8 arg-10 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-9) (vector 0 (Builtin-snd 'erased 'erased e-9) chrig))))))))) (lambda (err) (let ((sc5 err)) (case (vector-ref sc5 0) ((14) (let ((e-9 (vector-ref sc5 3))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (lambda () (lambda (eta-1) (let ((act-28 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-10 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-10) (vector 0 (Builtin-snd 'erased 'erased e-10) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1))) e-9)))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (let ((e-10 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-4)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((act-29 ((Normalise-Core-getTerm 'erased e-12) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-30 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Scrutinee type") arg-8 e-13 eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-32 (let ((act-32 ((Normalise-Core-nf arg-0 e-15 arg-8 e-13) eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) ((Case-Elab-TTImp-n--13243-9940-checkConcrete arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased e-16) eta-0)))))))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (Case-Elab-TTImp-caseBlock arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-7 arg-8 arg-10 e-10 e-13 e-11 arg-12 arg-13 eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))) ext-0))) +(define Case-Elab-TTImp-caseBlock (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((ImplicitBind-Elab-TTImp-getToBind arg-0 arg-1 arg-4 arg-3 arg-7 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-6)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-9 (vector 0 )) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Doing a case under unbound implicits " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d-0) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d-0 x-0))))) d x)))) e-6))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (UnifyState-Core-genVarName arg-1 arg-3 "scr" ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (UnifyState-Core-genCaseName arg-1 arg-3 (let ((sc4 e-5)) (let ((e-2 (vector-ref sc4 2))) e-2)) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((env (Case-Elab-TTImp-updateMults 'erased (let ((sc5 e-5)) (let ((e-11 (vector-ref sc5 11))) e-11)) arg-9))) (let ((act-29 (let ((act-29 (unbox arg-1))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 ((Context-Core-lookupCtxtExact (vector 9 (let ((sc6 e-5)) (let ((e-2 (vector-ref sc6 2))) e-2))) (let ((sc6 e-10)) (let ((e-0 (vector-ref sc6 1))) e-0))) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((vis (let ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((bind-0 (vector 1 e-1))) (Case-Elab-TTImp-case--11991-8917 arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 e-8 e-9 env e-10 e-1 bind-0 (TT-Core-C-61C-61_Eq__Visibility (let ((sc8 e-1)) (let ((e-23 (vector-ref sc8 10))) e-23)) (vector 2 )))))) (else (vector 2 )))))) (let ((splitOn (Case-Elab-TTImp-findScrutinee arg-0 env arg-10))) (let ((act-31 (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) ((Normalise-Core-getTerm 'erased e-1) ext-0)))(else (let ((act-31 (UnifyState-Core-genName arg-1 arg-3 "caseTy" ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-7 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) env e-12 (vector 11 arg-7) ext-0))))))))))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 ((ImplicitBind-Elab-TTImp-bindImplicits arg-0 arg-7 (let ((sc8 arg-6)) (let ((e-1 (vector-ref sc8 2))) e-1)) e-10 env e-6 e-12 (vector 11 arg-7)) ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (let ((e-2 (vector-ref sc9 1))) (let ((e-3 (vector-ref sc9 2))) (let ((casefnty (Env-Core-abstractFullEnvType arg-0 arg-7 (Case-Elab-TTImp-allow 'erased splitOn (Case-Elab-TTImp-explicitPi 'erased env)) (Prelude-maybe 'erased 'erased (lambda () (vector 3 arg-7 e-8 (vector 2 arg-13 (vector 1 ) arg-12) (TT-Core-weaken_Weaken__Term e-8 arg-0 e-2))) (lambda () (lambda (eta-0) e-2)) splitOn)))) (let ((act-33 (Normalise-Core-logEnv arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) "Case env" env ext-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Case function type: " (Name-Core-show_Show__Name e-9))) (vector 0 ) casefnty ext-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-35 (let ((sc12 (Prelude-not (List-Data-isNil 'erased e-6)))) (cond ((equal? sc12 0) ((Case-Elab-TTImp-findImpsIn (vector 0 ) arg-7 (vector 0 ) (vector 0 ) casefnty) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-36 (Context-Core-addDef arg-1 e-9 (Context-Core-newDef arg-7 e-9 (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--12283-9438 arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 e-8 e-9 env e-10 e-11 splitOn e-12 e-3 vis e-2 _-0 casefnty e-14 e-15 e-16 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-5))) (vector 0 ) casefnty vis (vector 0 )) ext-0))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc13 1))) (let ((act-37 (Context-Core-setFlag arg-1 arg-7 (vector 9 e-17) (vector 4 (vector 2 )) ext-0))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((caseRef (vector 1 arg-7 (vector 1 ) (vector 9 e-17)))) (let ((act-38 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (eta-0) (lambda (eta-1) (Context-Core-setFlag arg-1 arg-7 e-9 (vector 0 ) eta-1)))) splitOn) ext-0))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((applyEnv (UnifyState-Core-applyToFull arg-0 arg-7 caseRef env))) (let ((appTm (Prelude-maybe 'erased 'erased (lambda () (vector 4 arg-7 applyEnv arg-11)) (lambda () (lambda (eta-0) applyEnv)) splitOn))) (let ((altsC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-n--10899-7985-updateClause arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-9 splitOn arg-8 env eta-0)) arg-14))) (let ((act-39 (Context-Core-log arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Nested: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d) (lambda (x-2) (Name-Core-showPrec_Show__Name d x-2)))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x-2)))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-2) (lambda (x-2) (Name-Core-showPrec_Show__Name d-2 x-2)))) d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-2 x-2)))) d-1 x-1))))) d-0 x-0))))) d x)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-getNestData 'erased 'erased eta-0)) arg-8)))) ext-0))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((act-40 (Context-Core-log arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Generated alts: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) altsC-39))) ext-0))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((act-41 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 0)) (lambda () "Case application") env appTm ext-0))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((nestC-39 (vector 0 ))) (let ((act-42 (let ((act-42 (unbox arg-3))) (vector 1 act-42)))) (let ((sc19 act-42)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (vector 0 e-4))) (else (let ((e-23 (vector-ref sc19 1))) (let ((olddelayed (let ((sc20 e-23)) (let ((e-25 (vector-ref sc20 9))) e-25)))) (let ((act-43 (let ((act-43 (set-box! arg-3 (let ((sc20 e-23)) (let ((e-0 (vector-ref sc20 1))) (let ((e-1 (vector-ref sc20 2))) (let ((e-30 (vector-ref sc20 3))) (let ((e-29 (vector-ref sc20 4))) (let ((e-4 (vector-ref sc20 5))) (let ((e-28 (vector-ref sc20 6))) (let ((e-27 (vector-ref sc20 7))) (let ((e-26 (vector-ref sc20 8))) (let ((e-24 (vector-ref sc20 10))) (vector 0 e-0 e-1 e-30 e-29 e-4 e-28 e-27 e-26 (vector 0 ) e-24)))))))))))))) (vector 1 act-43)))) (let ((sc20 act-43)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (let ((act-44 ((Check-Elab-TTImp-processDecl (vector 0 ) arg-1 arg-2 arg-3 (vector 1 (vector 1 ) (vector 0 )) nestC-39 (vector 0 ) (vector 2 arg-7 e-9 altsC-39)) ext-0))) (let ((sc21 act-44)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (vector 0 e-4))) (else (let ((act-45 (let ((act-45 (unbox arg-3))) (vector 1 act-45)))) (let ((sc22 act-45)) (case (vector-ref sc22 0) ((0) (let ((e-4 (vector-ref sc22 1))) (vector 0 e-4))) (else (let ((e-26 (vector-ref sc22 1))) (let ((act-46 (let ((act-46 (set-box! arg-3 (let ((sc23 e-26)) (let ((e-0 (vector-ref sc23 1))) (let ((e-1 (vector-ref sc23 2))) (let ((e-33 (vector-ref sc23 3))) (let ((e-32 (vector-ref sc23 4))) (let ((e-4 (vector-ref sc23 5))) (let ((e-31 (vector-ref sc23 6))) (let ((e-30 (vector-ref sc23 7))) (let ((e-29 (vector-ref sc23 8))) (let ((e-27 (vector-ref sc23 10))) (vector 0 e-0 e-1 e-33 e-32 e-4 e-31 e-30 e-29 olddelayed e-27)))))))))))))) (vector 1 act-46)))) (let ((sc23 act-46)) (case (vector-ref sc23 0) ((0) (let ((e-4 (vector-ref sc23 1))) (vector 0 e-4))) (else (vector 1 (vector 0 appTm (Normalise-Core-gnf arg-0 env e-2))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Case-Elab-TTImp-bindCaseLocals (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 6 arg-1 e-6 (Maybe-Data-fromMaybe 'erased (lambda () e-6) e-10) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-n--10768-7868-getNameFrom 'erased e-6 e-10 e-11 e-3 arg-4 arg-3 arg-1 eta-0)) e-11) (Case-Elab-TTImp-bindCaseLocals 'erased arg-1 e-3 arg-3 arg-4))))))))))))))) (define Case-Elab-TTImp-allow (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (Case-Elab-TTImp-toRig1 'erased 'erased e-2 'erased arg-2))))))) -(define Binders-Elab-TTImp-case--10519-13680 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (lambda () (lambda (eta-0) (let ((act-24 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-15 arg-14 arg-13 arg-12 0 (Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 arg-17))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 arg-17))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (ZeroOneOmega-Algebra-rigMult arg-6 arg-16))))))))))) e-1)))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 arg-17))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16))))))))))))))) -(define Binders-Elab-TTImp-case--10519-13639 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-10)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 e-1 e-2 e-3 0 e-5))))))))) -(define Binders-Elab-TTImp-case--10635-13558 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 3 arg-7 arg-5 (vector 1 arg-22 arg-20 arg-17) e-2) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-5 (vector 1 arg-22 arg-20 arg-17) e-5))))))))))))))) -(define Binders-Elab-TTImp-case--10519-13465 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((envC-39 (vector 1 (vector 0 e-7 (vector 1 ) arg-17) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-5 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-5 arg-9)))) (lambda (eta-0) (let ((act-24 ((Binders-Elab-TTImp-weakenExp arg-5 arg-0 envC-39 arg-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Check-Elab-TTImp-inScope 'erased arg-5 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-5 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 e-5)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-9 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (vector 0 (vector 3 arg-7 arg-5 (vector 1 e-7 e-2 arg-17) e-9) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-5 (vector 1 e-7 e-2 arg-17) e-10)))))))))))))))))))))))))))))))) -(define Binders-Elab-TTImp-case--10349-13359 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Check-Elab-TTImp-handle 'erased arg-0 arg-15 arg-14 arg-13 arg-12 (lambda (eta-1) (let ((act-24 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-15 arg-14 arg-13 arg-12 0 (Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16) (let ((sc1 arg-10)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-6 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 6))) (vector 0 e-0 e-1 e-7 e-6 0 e-5))))))) arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16)))))))))) (lambda (err) (let ((_-0 (vector 0 e-2 e-3))) (Binders-Elab-TTImp-case--10519-13680 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-2 e-3 _-0 err (Binders-Elab-TTImp-n--10349-13225-linearErr arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 err)))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-4)) (let ((e-7 (vector-ref sc3 2))) (let ((envC-39 (vector 1 (vector 0 e-7 (vector 1 ) e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-5 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-5 arg-9)))) (let ((act-25 ((Binders-Elab-TTImp-weakenExp arg-5 arg-0 envC-39 arg-1) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-26 (Check-Elab-TTImp-inScope 'erased arg-5 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-5 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 e-9)) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((sc6 e-10)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((act-27 ((Normalise-Core-getTerm 'erased e-11) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (vector 1 (vector 0 (vector 3 arg-7 arg-5 (vector 1 e-7 e-6 e-2) e-12) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-5 (vector 1 e-7 e-6 e-2) e-13)))))))))))))))))))))))))))))))))))))))) -(define Binders-Elab-TTImp-case--10349-13270 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) -(define Binders-Elab-TTImp-case--9950-13002 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36) (let ((sc0 arg-36)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 arg-27 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (Normalise-Core-logGlueNF (vector 1 arg-4 arg-0) arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") arg-33 e-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-16 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 arg-32 arg-31 arg-28) e-2) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 arg-32 arg-31 arg-28) e-7)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-24 (vector 2 arg-23 arg-31 arg-22) arg-25)))) eta-0)))))))))))))))))))) -(define Binders-Elab-TTImp-case--9858-12873 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-15 arg-14 arg-13 arg-12 arg-6 arg-10 arg-9 arg-8 arg-5 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) arg-6 arg-23))) (let ((envC-39 (vector 1 (vector 0 rigb e-5 e-2) arg-8))) (let ((act-25 ((Check-Elab-TTImp-convertP arg-0 arg-15 arg-13 arg-12 0 arg-7 arg-10 arg-8 (Normalise-Core-gnf arg-0 arg-8 e-2) (Normalise-Core-gnf arg-0 arg-8 arg-22)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-26 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 (vector 1 (Normalise-Core-gnf (vector 1 arg-4 arg-0) envC-39 (TT-Core-renameTop 'erased 'erased arg-4 arg-25))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-27 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 arg-27 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((act-28 (Normalise-Core-logGlueNF (vector 1 arg-4 arg-0) arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") envC-39 e-4 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((act-29 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-16 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 rigb e-5 e-2) e-8) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 rigb e-5 e-2) e-11)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-24 (vector 2 arg-23 e-5 arg-22) arg-25)))) eta-0))))))))))))))))))))))))))))))))))))))) -(define Binders-Elab-TTImp-case--9512-12806 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gType 'erased arg-7))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((exptynf (vector 3 e-1 e-2 (vector 2 e-6 e-7 e-8) e-4))) (let ((sc3 e-5)) (let ((e-10 (vector-ref sc3 1))) (let ((act-25 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-15 arg-14 arg-13 arg-12 arg-6 arg-10 arg-9 arg-8 arg-5 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-10))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) (let ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) arg-6 e-6))) (let ((envC-39 (vector 1 (vector 0 rigb e-11 e-10) arg-8))) (let ((act-26 ((Check-Elab-TTImp-convertP arg-0 arg-15 arg-13 arg-12 0 arg-7 arg-10 arg-8 (Normalise-Core-gnf arg-0 arg-8 e-10) (Normalise-Core-gnf arg-0 arg-8 e-8)) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-27 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 (vector 1 (Normalise-Core-gnf (vector 1 arg-4 arg-0) envC-39 (TT-Core-renameTop 'erased 'erased arg-4 e-4))))) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc6 1))) (let ((sc7 e-13)) (let ((e-15 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((act-28 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 exptynf eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-16 (vector-ref sc8 1))) (vector 0 e-16))) (else (let ((act-29 (Normalise-Core-logGlueNF (vector 1 arg-4 arg-0) arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") envC-39 e-14 eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((act-30 ((Normalise-Core-getTerm 'erased e-14) eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-18 (vector-ref sc10 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc10 1))) ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-16 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 rigb e-11 e-10) e-15) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 rigb e-11 e-10) e-18)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 e-2 (vector 2 e-6 e-11 e-8) e-4)))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Binders-Elab-TTImp-inferLambda arg-0 arg-15 arg-14 arg-13 arg-12 arg-16 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 1 arg-1) eta-0))))))))))(else (lambda (eta-0) (Binders-Elab-TTImp-inferLambda arg-0 arg-15 arg-14 arg-13 arg-12 arg-16 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 1 arg-1) eta-0))))))) -(define Binders-Elab-TTImp-case--9512-12700 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) -(define Binders-Elab-TTImp-case--9512-12625 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) -(define Binders-Elab-TTImp-case--9512-12536 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) -(define Binders-Elab-TTImp-case--9247-12370 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((lamty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 arg-17 arg-21 arg-18) e-5)))) (let ((act-25 (Normalise-Core-logGlue arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Inferred lambda type") arg-8 lamty eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlueNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected lambda type") arg-8 eta-1 eta-2)))) arg-1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-11 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 arg-17 arg-21 arg-18) e-2) lamty arg-1) eta-0))))))))))))))))))))) -(define Binders-Elab-TTImp-case--9198-12280 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-15 arg-14 arg-13 arg-12 arg-6 arg-10 arg-9 arg-8 arg-5 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((envC-39 (vector 1 (vector 0 arg-17 e-5 e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-25 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-11 arg-10 nestC-39 envC-39 arg-2 (vector 0 ))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((lamty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 arg-17 e-5 e-2) e-8)))) (let ((act-27 (Normalise-Core-logGlue arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Inferred lambda type") arg-8 lamty eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((act-28 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlueNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected lambda type") arg-8 eta-1 eta-2)))) arg-1) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-11 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 arg-17 e-5 e-2) e-7) lamty arg-1) eta-0))))))))))))))))))))))))))))))))))) -(define Binders-Elab-TTImp-case--9133-12203 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-6))))(else (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))))(else (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))))) -(define Binders-Elab-TTImp-case--8944-12120 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (let ((e-2 (vector-ref sc0 1))) (Check-Elab-TTImp-checkExp arg-0 arg-15 arg-13 arg-12 arg-11 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 2 arg-6 arg-20 arg-17) e-2) (Normalise-Core-gType 'erased arg-7) arg-1))))) -(define Binders-Elab-TTImp-case--8897-12030 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-15 arg-14 arg-13 arg-12 arg-6 arg-10 arg-9 arg-8 arg-5 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((envC-39 (vector 1 (vector 2 arg-6 e-5 e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-25 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 (vector 1 (Normalise-Core-gType 'erased arg-7)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-15 arg-13 arg-12 arg-11 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 2 arg-6 e-5 e-2) e-7) (Normalise-Core-gType 'erased arg-7) arg-1) eta-0)))))))))))))))))))) -(define Binders-Elab-TTImp-case--8797-11956 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 3 e-2))))))) -(define Binders-Elab-TTImp-case--8702-11896 (lambda (arg-0 arg-1 arg-2) (Binders-Elab-TTImp-n--8702-11825-drop 'erased arg-1 arg-2 'erased arg-1))) -(define Binders-Elab-TTImp-case--8708-11848 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (Binders-Elab-TTImp-n--8702-11825-drop 'erased arg-1 arg-2 'erased arg-6)) (else (vector 1 (vector 0 arg-4 arg-5) (Binders-Elab-TTImp-n--8702-11825-drop 'erased arg-1 arg-2 'erased arg-6))))))) -(define Binders-Elab-TTImp-n--10349-13225-linearErr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((14) (let ((e-2 (vector-ref sc0 3))) (vector 1 e-2))) ((56) (let ((e-6 (vector-ref sc0 3))) (Binders-Elab-TTImp-n--10349-13225-linearErr arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-6))) ((57) (let ((e-9 (vector-ref sc0 3))) (Binders-Elab-TTImp-n--10349-13225-linearErr arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-9))) ((58) (let ((e-12 (vector-ref sc0 3))) (Binders-Elab-TTImp-n--10349-13225-linearErr arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-12))) ((59) (let ((e-15 (vector-ref sc0 3))) (Binders-Elab-TTImp-n--10349-13225-linearErr arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-15)))(else (vector 0 )))))) -(define Binders-Elab-TTImp-n--8897-12004-getRig (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) arg-11)(else (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) -(define Binders-Elab-TTImp-n--8702-11825-drop (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Binders-Elab-TTImp-case--8708-11848 'erased arg-1 arg-2 'erased e-6 e-7 e-3 (Name-Core-C-61C-61_Eq__Name e-6 arg-2)))))))))))) +(define Binders-Elab-TTImp-case--10570-13688 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (lambda () (lambda (eta-0) (let ((act-24 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-15 arg-14 arg-13 arg-12 0 (Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 arg-17))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 arg-17))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (ZeroOneOmega-Algebra-rigMult arg-6 arg-16))))))))))) e-1)))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 arg-17))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16))))))))))))))) +(define Binders-Elab-TTImp-case--10570-13647 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-10)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 e-1 e-2 e-3 0 e-5))))))))) +(define Binders-Elab-TTImp-case--10686-13566 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 3 arg-7 arg-5 (vector 1 arg-22 arg-20 arg-17) e-2) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-5 (vector 1 arg-22 arg-20 arg-17) e-5))))))))))))))) +(define Binders-Elab-TTImp-case--10570-13473 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((envC-39 (vector 1 (vector 0 e-7 (vector 1 ) arg-17) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-5 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-5 arg-9)))) (lambda (eta-0) (let ((act-24 ((Binders-Elab-TTImp-weakenExp arg-5 arg-0 envC-39 arg-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Check-Elab-TTImp-inScope 'erased arg-5 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-5 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 e-5)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-9 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (vector 0 (vector 3 arg-7 arg-5 (vector 1 e-7 e-2 arg-17) e-9) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-5 (vector 1 e-7 e-2 arg-17) e-10)))))))))))))))))))))))))))))))) +(define Binders-Elab-TTImp-case--10400-13367 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Check-Elab-TTImp-handle 'erased arg-0 arg-15 arg-14 arg-13 arg-12 (lambda (eta-1) (let ((act-24 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-15 arg-14 arg-13 arg-12 0 (Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16) (let ((sc1 arg-10)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-6 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 6))) (vector 0 e-0 e-1 e-7 e-6 0 e-5))))))) arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16)))))))))) (lambda (err) (let ((_-0 (vector 0 e-2 e-3))) (Binders-Elab-TTImp-case--10570-13688 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-2 e-3 _-0 err (Binders-Elab-TTImp-n--10400-13233-linearErr arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 err)))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-4)) (let ((e-7 (vector-ref sc3 2))) (let ((envC-39 (vector 1 (vector 0 e-7 (vector 1 ) e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-5 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-5 arg-9)))) (let ((act-25 ((Binders-Elab-TTImp-weakenExp arg-5 arg-0 envC-39 arg-1) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-26 (Check-Elab-TTImp-inScope 'erased arg-5 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-5 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 e-9)) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((sc6 e-10)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((act-27 ((Normalise-Core-getTerm 'erased e-11) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (vector 1 (vector 0 (vector 3 arg-7 arg-5 (vector 1 e-7 e-6 e-2) e-12) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-5 (vector 1 e-7 e-6 e-2) e-13)))))))))))))))))))))))))))))))))))))))) +(define Binders-Elab-TTImp-case--10400-13278 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) +(define Binders-Elab-TTImp-case--10001-13010 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36) (let ((sc0 arg-36)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 arg-27 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (Normalise-Core-logGlueNF (vector 1 arg-4 arg-0) arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") arg-33 e-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-16 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 arg-32 arg-31 arg-28) e-2) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 arg-32 arg-31 arg-28) e-7)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-24 (vector 2 arg-23 arg-31 arg-22) arg-25)))) eta-0)))))))))))))))))))) +(define Binders-Elab-TTImp-case--9909-12881 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-15 arg-14 arg-13 arg-12 arg-6 arg-10 arg-9 arg-8 arg-5 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-256 arg-257))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-259) (lambda (arg-261) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-259 arg-261))))))) arg-6 arg-23))) (let ((envC-39 (vector 1 (vector 0 rigb e-5 e-2) arg-8))) (let ((act-25 ((Check-Elab-TTImp-convertP arg-0 arg-15 arg-13 arg-12 0 arg-7 arg-10 arg-8 (Normalise-Core-gnf arg-0 arg-8 e-2) (Normalise-Core-gnf arg-0 arg-8 arg-22)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-26 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 (vector 1 (Normalise-Core-gnf (vector 1 arg-4 arg-0) envC-39 (TT-Core-renameTop 'erased 'erased arg-4 arg-25))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-27 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 arg-27 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((act-28 (Normalise-Core-logGlueNF (vector 1 arg-4 arg-0) arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") envC-39 e-4 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((act-29 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-16 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 rigb e-5 e-2) e-8) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 rigb e-5 e-2) e-11)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-24 (vector 2 arg-23 e-5 arg-22) arg-25)))) eta-0))))))))))))))))))))))))))))))))))))))) +(define Binders-Elab-TTImp-case--9563-12814 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gType 'erased arg-7))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((exptynf (vector 3 e-1 e-2 (vector 2 e-6 e-7 e-8) e-4))) (let ((sc3 e-5)) (let ((e-10 (vector-ref sc3 1))) (let ((act-25 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-15 arg-14 arg-13 arg-12 arg-6 arg-10 arg-9 arg-8 arg-5 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-10))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) (let ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-256 arg-257))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-259) (lambda (arg-261) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-259 arg-261))))))) arg-6 e-6))) (let ((envC-39 (vector 1 (vector 0 rigb e-11 e-10) arg-8))) (let ((act-26 ((Check-Elab-TTImp-convertP arg-0 arg-15 arg-13 arg-12 0 arg-7 arg-10 arg-8 (Normalise-Core-gnf arg-0 arg-8 e-10) (Normalise-Core-gnf arg-0 arg-8 e-8)) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-27 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 (vector 1 (Normalise-Core-gnf (vector 1 arg-4 arg-0) envC-39 (TT-Core-renameTop 'erased 'erased arg-4 e-4))))) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc6 1))) (let ((sc7 e-13)) (let ((e-15 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((act-28 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 exptynf eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-16 (vector-ref sc8 1))) (vector 0 e-16))) (else (let ((act-29 (Normalise-Core-logGlueNF (vector 1 arg-4 arg-0) arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") envC-39 e-14 eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((act-30 ((Normalise-Core-getTerm 'erased e-14) eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-18 (vector-ref sc10 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc10 1))) ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-16 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 rigb e-11 e-10) e-15) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 rigb e-11 e-10) e-18)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 e-2 (vector 2 e-6 e-11 e-8) e-4)))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Binders-Elab-TTImp-inferLambda arg-0 arg-15 arg-14 arg-13 arg-12 arg-16 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 1 arg-1) eta-0))))))))))(else (lambda (eta-0) (Binders-Elab-TTImp-inferLambda arg-0 arg-15 arg-14 arg-13 arg-12 arg-16 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 1 arg-1) eta-0))))))) +(define Binders-Elab-TTImp-case--9563-12708 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) +(define Binders-Elab-TTImp-case--9563-12633 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) +(define Binders-Elab-TTImp-case--9563-12544 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) +(define Binders-Elab-TTImp-case--9298-12378 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((lamty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 arg-17 arg-21 arg-18) e-5)))) (let ((act-25 (Normalise-Core-logGlue arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Inferred lambda type") arg-8 lamty eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlueNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected lambda type") arg-8 eta-1 eta-2)))) arg-1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-11 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 arg-17 arg-21 arg-18) e-2) lamty arg-1) eta-0))))))))))))))))))))) +(define Binders-Elab-TTImp-case--9249-12288 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-15 arg-14 arg-13 arg-12 arg-6 arg-10 arg-9 arg-8 arg-5 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((envC-39 (vector 1 (vector 0 arg-17 e-5 e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-25 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-11 arg-10 nestC-39 envC-39 arg-2 (vector 0 ))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((lamty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 arg-17 e-5 e-2) e-8)))) (let ((act-27 (Normalise-Core-logGlue arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Inferred lambda type") arg-8 lamty eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((act-28 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlueNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected lambda type") arg-8 eta-1 eta-2)))) arg-1) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-11 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 arg-17 e-5 e-2) e-7) lamty arg-1) eta-0))))))))))))))))))))))))))))))))))) +(define Binders-Elab-TTImp-case--9184-12211 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-6))))(else (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))))(else (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))))) +(define Binders-Elab-TTImp-case--8995-12128 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (let ((e-2 (vector-ref sc0 1))) (Check-Elab-TTImp-checkExp arg-0 arg-15 arg-13 arg-12 arg-11 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 2 arg-6 arg-20 arg-17) e-2) (Normalise-Core-gType 'erased arg-7) arg-1))))) +(define Binders-Elab-TTImp-case--8948-12038 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-15 arg-14 arg-13 arg-12 arg-6 arg-10 arg-9 arg-8 arg-5 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((envC-39 (vector 1 (vector 2 arg-6 e-5 e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-25 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 (vector 1 (Normalise-Core-gType 'erased arg-7)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-15 arg-13 arg-12 arg-11 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 2 arg-6 e-5 e-2) e-7) (Normalise-Core-gType 'erased arg-7) arg-1) eta-0)))))))))))))))))))) +(define Binders-Elab-TTImp-case--8848-11964 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 3 e-2))))))) +(define Binders-Elab-TTImp-case--8753-11904 (lambda (arg-0 arg-1 arg-2) (Binders-Elab-TTImp-n--8753-11833-drop 'erased arg-1 arg-2 'erased arg-1))) +(define Binders-Elab-TTImp-case--8759-11856 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (Binders-Elab-TTImp-n--8753-11833-drop 'erased arg-1 arg-2 'erased arg-6)) (else (vector 1 (vector 0 arg-4 arg-5) (Binders-Elab-TTImp-n--8753-11833-drop 'erased arg-1 arg-2 'erased arg-6))))))) +(define Binders-Elab-TTImp-n--10400-13233-linearErr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((14) (let ((e-2 (vector-ref sc0 3))) (vector 1 e-2))) ((56) (let ((e-6 (vector-ref sc0 3))) (Binders-Elab-TTImp-n--10400-13233-linearErr arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-6))) ((57) (let ((e-9 (vector-ref sc0 3))) (Binders-Elab-TTImp-n--10400-13233-linearErr arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-9))) ((58) (let ((e-12 (vector-ref sc0 3))) (Binders-Elab-TTImp-n--10400-13233-linearErr arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-12))) ((59) (let ((e-15 (vector-ref sc0 3))) (Binders-Elab-TTImp-n--10400-13233-linearErr arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-15)))(else (vector 0 )))))) +(define Binders-Elab-TTImp-n--8948-12012-getRig (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) arg-11)(else (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) +(define Binders-Elab-TTImp-n--8753-11833-drop (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Binders-Elab-TTImp-case--8759-11856 'erased arg-1 arg-2 'erased e-6 e-7 e-3 (Name-Core-C-61C-61_Eq__Name e-6 arg-2)))))))))))) (define Binders-Elab-TTImp-weakenExp (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 (Normalise-Core-gnf (vector 1 arg-0 arg-1) arg-2 (TT-Core-weaken_Weaken__Term arg-0 arg-1 e-5)))))))))))))))) -(define Binders-Elab-TTImp-inferLambda (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((act-24 ((Binders-Elab-TTImp-findLamRig 'erased arg-1 arg-15) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) e-5 arg-10))) (let ((act-25 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gType 'erased arg-9))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-2 (vector-ref sc2 1))) (let ((act-26 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 arg-6 arg-7 arg-8 arg-11 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((envC-39 (vector 1 (vector 0 rigb e-7 e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-12 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-12 arg-7)))) (let ((act-27 (Check-Elab-TTImp-inScope 'erased arg-12 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-12 arg-0) arg-1 arg-2 arg-3 eC-39 arg-5 arg-6 nestC-39 envC-39 arg-14 (vector 0 ))) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-28 ((Normalise-Core-getTerm 'erased e-4) ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((lamty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-12 (vector 2 rigb e-7 e-2) e-10)))) (let ((act-29 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Inferred lambda type") arg-8 lamty ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((act-30 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (eta-0) (lambda (eta-1) (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected lambda type") arg-8 eta-0 eta-1)))) arg-15) ext-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else ((Check-Elab-TTImp-checkExpP arg-0 arg-1 arg-3 arg-4 arg-5 0 arg-6 arg-8 arg-9 (vector 3 arg-9 arg-12 (vector 0 rigb e-7 e-2) e-9) lamty arg-15) ext-0))))))))))))))))))))))))))))))))))))))))))))) +(define Binders-Elab-TTImp-inferLambda (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((act-24 ((Binders-Elab-TTImp-findLamRig 'erased arg-1 arg-15) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-256 arg-257))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-259) (lambda (arg-261) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-259 arg-261))))))) e-5 arg-10))) (let ((act-25 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gType 'erased arg-9))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-2 (vector-ref sc2 1))) (let ((act-26 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 arg-6 arg-7 arg-8 arg-11 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((envC-39 (vector 1 (vector 0 rigb e-7 e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-12 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-12 arg-7)))) (let ((act-27 (Check-Elab-TTImp-inScope 'erased arg-12 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-12 arg-0) arg-1 arg-2 arg-3 eC-39 arg-5 arg-6 nestC-39 envC-39 arg-14 (vector 0 ))) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-28 ((Normalise-Core-getTerm 'erased e-4) ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((lamty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-12 (vector 2 rigb e-7 e-2) e-10)))) (let ((act-29 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Inferred lambda type") arg-8 lamty ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((act-30 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (eta-0) (lambda (eta-1) (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected lambda type") arg-8 eta-0 eta-1)))) arg-15) ext-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else ((Check-Elab-TTImp-checkExpP arg-0 arg-1 arg-3 arg-4 arg-5 0 arg-6 arg-8 arg-9 (vector 3 arg-9 arg-12 (vector 0 rigb e-7 e-2) e-9) lamty arg-15) ext-0))))))))))))))))))))))))))))))))))))))))))))) (define Binders-Elab-TTImp-getTyNF (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (lambda (eta-0) (vector 1 arg-3)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Normalise-Core-nf arg-0 e-5 arg-2 arg-3) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-2 e-6 eta-0)))))))))))))))))))))) (define Binders-Elab-TTImp-findLamRig (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-1 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 3))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-9 (vector-ref sc3 1))) (vector 1 e-9)))(else (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))))(else (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))))))))))))) -(define Binders-Elab-TTImp-dropName (lambda (arg-0 arg-1 arg-2) (Binders-Elab-TTImp-n--8702-11825-drop 'erased arg-2 arg-1 'erased arg-2))) +(define Binders-Elab-TTImp-dropName (lambda (arg-0 arg-1 arg-2) (Binders-Elab-TTImp-n--8753-11833-drop 'erased arg-2 arg-1 'erased arg-2))) (define Binders-Elab-TTImp-checkPiInfo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-4 arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (vector 1 (vector 3 e-2)))))))))))))))) -(define Binders-Elab-TTImp-checkPi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((pirig (Binders-Elab-TTImp-n--8897-12004-getRig arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0))))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 pirig arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gType 'erased arg-9))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((act-25 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 arg-6 arg-7 arg-8 arg-11 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((envC-39 (vector 1 (vector 2 arg-10 e-6 e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-12 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-12 arg-7)))) (let ((act-26 (Check-Elab-TTImp-inScope 'erased arg-12 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-12 arg-0) arg-1 arg-2 arg-3 eC-39 pirig arg-6 nestC-39 envC-39 arg-14 (vector 1 (Normalise-Core-gType 'erased arg-9)))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 (vector 3 arg-9 arg-12 (vector 2 arg-10 e-6 e-2) e-8) (Normalise-Core-gType 'erased arg-9) arg-15) eta-0)))))))))))))))))))))))))) -(define Binders-Elab-TTImp-checkLet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((rigc (Binders-Elab-TTImp-case--10349-13270 arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-5)))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-12 (vector 1 (Normalise-Core-gType 'erased arg-9))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-25 (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (let ((act-25 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 0 (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-10 rigc) (let ((sc2 arg-6)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (let ((e-7 (vector-ref sc2 4))) (let ((e-6 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-8 e-7 0 e-6))))))) arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-6) (vector 0 (Builtin-snd 'erased 'erased e-6) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-10 rigc)))))))))) (lambda (err) (let ((_-0 (vector 0 e-2 e-3))) (Binders-Elab-TTImp-case--10519-13680 arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 rigc e-2 e-3 _-0 err (Binders-Elab-TTImp-n--10349-13225-linearErr arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 err)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-8 (vector-ref sc4 2))) (let ((envC-39 (vector 1 (vector 0 e-8 (vector 1 ) e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-11 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-11 arg-7)))) (let ((act-26 ((Binders-Elab-TTImp-weakenExp arg-11 arg-0 envC-39 arg-15) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-27 (Check-Elab-TTImp-inScope 'erased arg-11 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-11 arg-0) arg-1 arg-2 arg-3 eC-39 rigc arg-6 nestC-39 envC-39 arg-14 e-10)) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((sc7 e-11)) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((act-28 ((Normalise-Core-getTerm 'erased e-12) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (vector 0 (vector 3 arg-9 arg-11 (vector 1 e-8 e-7 e-2) e-13) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-11 (vector 1 e-8 e-7 e-2) e-14)))))))))))))))))))))))))))))))))))))))))))))) -(define Binders-Elab-TTImp-checkLambda (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (let ((rig (Binders-Elab-TTImp-case--9512-12536 arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-5)))) (lambda (eta-0) (Binders-Elab-TTImp-inferLambda arg-0 arg-1 arg-2 arg-3 arg-4 rig arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (vector 0 ) eta-0)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((rig (Binders-Elab-TTImp-case--9512-12625 arg-0 e-2 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-5)))) (let ((solvemode (Binders-Elab-TTImp-case--9512-12700 arg-0 e-2 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 rig (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (lambda (eta-0) (let ((act-24 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 ((Normalise-Core-getTerm 'erased e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Binders-Elab-TTImp-getTyNF arg-0 arg-1 arg-8 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((sc5 e-7)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((e-3 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((2) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((e-10 (vector-ref sc6 3))) (let ((act-28 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gType 'erased arg-9))) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((exptynf (vector 3 e-1 e-9 (vector 2 e-12 e-11 e-10) e-4))) (let ((sc8 e-13)) (let ((e-15 (vector-ref sc8 1))) (let ((act-29 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 arg-6 arg-7 arg-8 arg-11 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-15))) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc9 1))) (let ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) arg-10 e-12))) (let ((envC-39 (vector 1 (vector 0 rigb e-16 e-15) arg-8))) (let ((act-30 ((Check-Elab-TTImp-convertP arg-0 arg-1 arg-3 arg-4 0 arg-9 arg-6 arg-8 (Normalise-Core-gnf arg-0 arg-8 e-15) (Normalise-Core-gnf arg-0 arg-8 e-10)) eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-12 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-12 arg-7)))) (let ((act-31 (Check-Elab-TTImp-inScope 'erased arg-12 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-12 arg-0) arg-1 arg-2 arg-3 eC-39 rig arg-6 nestC-39 envC-39 arg-14 (vector 1 (Normalise-Core-gnf (vector 1 arg-12 arg-0) envC-39 (TT-Core-renameTop 'erased 'erased arg-12 e-4))))) eta-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (let ((sc12 e-18)) (let ((e-20 (vector-ref sc12 1))) (let ((e-19 (vector-ref sc12 2))) (let ((act-32 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 exptynf eta-0))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-21 (vector-ref sc13 1))) (vector 0 e-21))) (else (let ((act-33 (Normalise-Core-logGlueNF (vector 1 arg-12 arg-0) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") envC-39 e-19 eta-0))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-22 (vector-ref sc14 1))) (vector 0 e-22))) (else (let ((act-34 ((Normalise-Core-getTerm 'erased e-19) eta-0))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-23 (vector-ref sc15 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc15 1))) ((Check-Elab-TTImp-checkExpP arg-0 arg-1 arg-3 arg-4 rig 0 arg-6 arg-8 arg-9 (vector 3 arg-9 arg-12 (vector 0 rigb e-16 e-15) e-20) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-12 (vector 2 rigb e-16 e-15) e-23)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 e-12 e-16 e-10) e-4)))) eta-0))))))))))))))))))))))))))))))))))))))))))))))(else (Binders-Elab-TTImp-inferLambda arg-0 arg-1 arg-2 arg-3 arg-4 rig arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (vector 1 e-2) eta-0)))))))))(else (Binders-Elab-TTImp-inferLambda arg-0 arg-1 arg-2 arg-3 arg-4 rig arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (vector 1 e-2) eta-0))))))))))))))))))))))))))))))) -(define As-Elab-TTImp-case--10170-7751 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-29)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (vector 0 e-1 e-2 e-3 e-4 (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9578-7029-rigAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 ) arg-23 arg-24 arg-20)) e-5) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9578-7029-rigAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 ) arg-23 arg-25 arg-20)) e-6) e-7 e-8 e-9 e-10 e-11 e-12 e-13))))))))))))))))) -(define As-Elab-TTImp-case--10170-7661 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31) (let ((sc0 arg-31)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 5 arg-5 arg-4 e-2 arg-20) arg-21))))))) -(define As-Elab-TTImp-case--10092-7498 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added as pattern name " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-17 (vector 0 (As-Elab-TTImp-n--9578-7029-rigAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 0 e-2 (vector 0 e-6 e-7))))))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (unbox arg-13))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (unbox arg-10))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 (set-box! arg-10 (let ((sc5 e-9)) (let ((e-1 (vector-ref sc5 1))) (let ((e-20 (vector-ref sc5 2))) (let ((e-19 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-18 (vector-ref sc5 5))) (let ((e-17 (vector-ref sc5 6))) (let ((e-16 (vector-ref sc5 7))) (let ((e-15 (vector-ref sc5 8))) (let ((e-14 (vector-ref sc5 9))) (let ((e-10 (vector-ref sc5 10))) (let ((e-11 (vector-ref sc5 11))) (let ((e-12 (vector-ref sc5 12))) (let ((e-13 (vector-ref sc5 13))) (vector 0 e-1 e-20 e-19 e-4 (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9578-7029-rigAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 ) e-2 e-6 arg-20)) e-18) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9578-7029-rigAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 ) e-2 e-7 arg-20)) e-17) e-16 e-15 e-14 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 ((Check-Elab-TTImp-checkExp arg-0 arg-13 arg-11 arg-10 arg-9 arg-8 arg-6 arg-5 e-2 (Normalise-Core-gnf arg-0 arg-6 e-6) (vector 1 arg-21)) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((sc7 e-11)) (let ((e-12 (vector-ref sc7 1))) (vector 1 (vector 0 (vector 5 arg-5 arg-4 e-12 arg-20) arg-21))))))))))))))))))))))))))))))))))) -(define As-Elab-TTImp-case--10018-7441 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-mkPatternHole arg-0 arg-10 arg-13 arg-11 arg-5 arg-9 arg-17 arg-6 (let ((sc1 arg-8)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-4)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-25 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added as pattern name " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-17 (vector 0 (As-Elab-TTImp-n--9578-7029-rigAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 0 e-6 (vector 0 e-8 e-7))))))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((act-26 (let ((act-26 (unbox arg-13))) (vector 1 act-26)))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((act-27 (let ((act-27 (unbox arg-10))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-28 (let ((act-28 (set-box! arg-10 (let ((sc7 e-11)) (let ((e-1 (vector-ref sc7 1))) (let ((e-23 (vector-ref sc7 2))) (let ((e-22 (vector-ref sc7 3))) (let ((e-21 (vector-ref sc7 4))) (let ((e-20 (vector-ref sc7 5))) (let ((e-19 (vector-ref sc7 6))) (let ((e-18 (vector-ref sc7 7))) (let ((e-17 (vector-ref sc7 8))) (let ((e-16 (vector-ref sc7 9))) (let ((e-15 (vector-ref sc7 10))) (let ((e-14 (vector-ref sc7 11))) (let ((e-12 (vector-ref sc7 12))) (let ((e-13 (vector-ref sc7 13))) (vector 0 e-1 e-23 e-22 e-21 (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9578-7029-rigAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 ) e-6 e-8 e-2)) e-20) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9578-7029-rigAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 ) e-6 e-7 e-2)) e-19) e-18 e-17 e-16 e-15 e-14 e-12 e-13)))))))))))))))))) (vector 1 act-28)))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((act-29 ((Check-Elab-TTImp-checkExp arg-0 arg-13 arg-11 arg-10 arg-9 arg-8 arg-6 arg-5 e-6 (Normalise-Core-gnf arg-0 arg-6 e-8) (vector 1 e-3)) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (let ((e-15 (vector-ref sc9 1))) (vector 1 (vector 0 (vector 5 arg-5 arg-4 e-15 e-2) e-3))))))))))))))))))))))))))))))))))))))))))) -(define As-Elab-TTImp-case--9943-7385 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 (As-Elab-TTImp-n--9578-7027-rigPat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) arg-8 arg-7 arg-6 arg-2 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 ((ImplicitBind-Elab-TTImp-mkPatternHole arg-0 arg-10 arg-13 arg-11 arg-5 arg-9 arg-17 arg-6 (let ((sc3 arg-8)) (let ((e-1 (vector-ref sc3 2))) e-1)) arg-1) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-7 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-4)) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((act-26 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added as pattern name " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-17 (vector 0 (As-Elab-TTImp-n--9578-7029-rigAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 0 e-7 (vector 0 e-9 e-8))))))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((act-27 (let ((act-27 (unbox arg-13))) (vector 1 act-27)))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((act-28 (let ((act-28 (unbox arg-10))) (vector 1 act-28)))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-29 (let ((act-29 (set-box! arg-10 (let ((sc9 e-12)) (let ((e-1 (vector-ref sc9 1))) (let ((e-24 (vector-ref sc9 2))) (let ((e-23 (vector-ref sc9 3))) (let ((e-22 (vector-ref sc9 4))) (let ((e-21 (vector-ref sc9 5))) (let ((e-20 (vector-ref sc9 6))) (let ((e-19 (vector-ref sc9 7))) (let ((e-18 (vector-ref sc9 8))) (let ((e-17 (vector-ref sc9 9))) (let ((e-16 (vector-ref sc9 10))) (let ((e-15 (vector-ref sc9 11))) (let ((e-14 (vector-ref sc9 12))) (let ((e-13 (vector-ref sc9 13))) (vector 0 e-1 e-24 e-23 e-22 (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9578-7029-rigAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 ) e-7 e-9 e-2)) e-21) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9578-7029-rigAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 ) e-7 e-8 e-2)) e-20) e-19 e-18 e-17 e-16 e-15 e-14 e-13)))))))))))))))))) (vector 1 act-29)))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((act-30 ((Check-Elab-TTImp-checkExp arg-0 arg-13 arg-11 arg-10 arg-9 arg-8 arg-6 arg-5 e-7 (Normalise-Core-gnf arg-0 arg-6 e-9) (vector 1 e-3)) eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (let ((sc11 e-14)) (let ((e-16 (vector-ref sc11 1))) (vector 1 (vector 0 (vector 5 arg-5 arg-4 e-16 e-2) e-3))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 35 arg-5 arg-3) eta-0))))))) -(define As-Elab-TTImp-case--9578-7320 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-10))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((n (vector 3 arg-3 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 2))) e-2))))) (let ((act-25 ((Check-Elab-TTImp-noteLHSPatVar 'erased arg-10 arg-14 arg-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Check-Elab-TTImp-notePatVar 'erased arg-10 n eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((elabmode (vector 1 e-0))) ((As-Elab-TTImp-case--9943-7385 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-0 elabmode e-5 n e-6 e-7 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) n (let ((sc4 e-5)) (let ((e-16 (vector-ref sc4 5))) e-16)))) eta-0)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Bad @-pattern " (TTImp-TTImp-show_Show__RawImp arg-2))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-5 "@-patterns only allowed in pattern clauses") eta-0))))))))))) -(define As-Elab-TTImp-case--9602-7255 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9))))) -(define As-Elab-TTImp-case--9602-7184 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9))))) -(define As-Elab-TTImp-case--9600-7112 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9))))) -(define As-Elab-TTImp-case--9600-7041 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9))))) -(define As-Elab-TTImp-n--9578-7026-rigPatC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (As-Elab-TTImp-case--9600-7041 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-9))) (else (As-Elab-TTImp-case--9600-7112 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-9))))))) -(define As-Elab-TTImp-n--9578-7027-rigPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (As-Elab-TTImp-n--9578-7026-rigPatC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-4))) -(define As-Elab-TTImp-n--9578-7028-rigAsC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (As-Elab-TTImp-case--9602-7184 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-9))) (else (As-Elab-TTImp-case--9602-7255 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-9))))))) -(define As-Elab-TTImp-n--9578-7029-rigAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (As-Elab-TTImp-n--9578-7028-rigAsC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-4))) -(define As-Elab-TTImp-checkAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((elabmode (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (let ((sc0 elabmode)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((n (vector 3 arg-11 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 2))) e-2))))) (let ((act-25 ((Check-Elab-TTImp-noteLHSPatVar 'erased arg-4 elabmode arg-11) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Check-Elab-TTImp-notePatVar 'erased arg-4 n eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((elabmode-0 (vector 1 e-0))) ((As-Elab-TTImp-case--9943-7385 arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-0 elabmode-0 e-5 n e-6 e-7 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) n (let ((sc4 e-5)) (let ((e-16 (vector-ref sc4 5))) e-16)))) eta-0)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Bad @-pattern " (TTImp-TTImp-show_Show__RawImp arg-12))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "@-patterns only allowed in pattern clauses") eta-0)))))))))))) -(define App-Elab-TTImp-case--16233-13547 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-13 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((App-Elab-TTImp-checkAppWith arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 e-2 e-5 (vector 0 (vector 0 ) 0) arg-3 arg-2 1 arg-1) eta-0)))))))))))) -(define App-Elab-TTImp-case--16931-13356 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) e-7))(else arg-1)))))(else arg-1)))))(else arg-1))))) -(define App-Elab-TTImp-case--16233-13185 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-14 e-7) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-fromIntegerName arg-14 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (Context-Core-fromStringName arg-14 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (Context-Core-fromCharName arg-14 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (let ((prims (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 ))))))) (let ((act-28 ((App-Elab-TTImp-n--16233-12641-updateElabInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 prims (let ((sc6 arg-9)) (let ((e-0 (vector-ref sc6 1))) e-0)) arg-1 arg-5 arg-9) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-29 (Context-Core-logC arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-29 (let ((act-29 (unbox arg-14))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-30 (Normalise-Core-quote_Quote__NF arg-0 e-12 arg-7 e-5 eta-1))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-31 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (vector 1 (vector 0 )))) (lambda () (lambda (t) (lambda (eta-2) (let ((act-31 ((Normalise-Core-getTerm 'erased t) eta-2))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-32 (Normalise-Core-normaliseHoles arg-0 e-12 arg-7 e-14 eta-2))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-33 (Context-Core-toFullNames 'erased arg-14 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-15 eta-2))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc11 1))) (vector 1 (vector 1 e-16)))))))))))))))))))) arg-3) eta-1))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-32 ((Context-Core-getFullName arg-14 arg-1) eta-1))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-33 (Context-Core-toFullNames 'erased arg-14 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-13 eta-1))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc11 1))) (vector 1 (Strings-Prelude-C-43C-43 "Checking application of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-15) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 ")" (Strings-Prelude-C-43C-43 " to " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) arg-5) (Strings-Prelude-C-43C-43 "\u000a\u0009Function type " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-16) (Strings-Prelude-C-43C-43 "\u000a\u0009Expected app type " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-14)))))))))))))))))))))))))))))))))))))) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (let ((fn (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (App-Elab-TTImp-case--16931-13356 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-2 e-6 e-7 _-0 e-5 e-8 e-9 e-10 prims e-11 e-12 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-1 arg-8))))) (let ((act-30 ((App-Elab-TTImp-checkAppWith arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 e-11 arg-8 arg-7 arg-6 e-2 e-5 (vector 0 (vector 1 fn) e-6) arg-5 arg-4 1 arg-3) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (App-Elab-TTImp-n--16233-12640-normalisePrims arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-0 prims arg-7 e-13 eta-0))))))))))))))))))))))))))))))))))))))))))))))) -(define App-Elab-TTImp-case--16721-13073 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-18)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 (vector 2 ) e-1 e-2 e-3 e-4 e-5))))))))) -(define App-Elab-TTImp-case--16289-13016 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (let ((sc1 arg-18)) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (vector 0 (vector 2 ) e-1 e-2 e-3 e-4 e-5)))))))))) (else (lambda (eta-0) (vector 1 arg-18))))))) -(define App-Elab-TTImp-case--16401-12786 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-14))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normalise arg-15 e-5 arg-17 (Builtin-fst 'erased 'erased arg-16) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-6 (Builtin-snd 'erased 'erased arg-16))))))))))))))) (else (lambda (eta-0) (vector 1 arg-16))))))) -(define App-Elab-TTImp-case--16336-12736 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((27) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (App-Elab-TTImp-case--16401-12786 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-2 e-3 e-4 (App-Elab-TTImp-n--16233-12639-boundSafe arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-4 (let ((sc2 arg-9)) (let ((e-0 (vector-ref sc2 1))) e-0)))))))(else (lambda (eta-0) (vector 1 arg-16))))))))(else (lambda (eta-0) (vector 1 arg-16))))))) -(define App-Elab-TTImp-case--16288-12690 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (App-Elab-TTImp-case--16336-12736 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 (List-Data-reverse 'erased arg-5))) (else (lambda (eta-0) (vector 1 arg-16))))))) -(define App-Elab-TTImp-case--15855-12418 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37) (let ((sc0 arg-37)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-35)))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-32) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((UnifyState-Core-newConstant arg-4 arg-16 arg-18 arg-10 arg-14 arg-11 (Builtin-fst 'erased 'erased arg-35) e-5 arg-37) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 e-6 (Normalise-Core-gnf arg-4 arg-11 arg-25))))))))))))))))))) -(define App-Elab-TTImp-case--10320-12275 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((fntm (vector 4 arg-10 arg-9 e-2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-18))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf arg-4 e-5 arg-11 arg-25) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((expfnty (Normalise-Core-gnf arg-4 arg-11 (vector 3 arg-10 arg-21 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) arg-23) (TT-Core-weaken_Weaken__Term arg-21 arg-4 arg-25))))) (let ((act-26 (Normalise-Core-logGlue arg-4 arg-18 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-11 expfnty eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-4 arg-18 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-11 eta-1 eta-2)))) arg-5) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((App-Elab-TTImp-checkAppWith arg-4 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 fntm e-6 (vector 0 arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1)) arg-3 arg-7 arg-6 arg-5) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((Check-Elab-TTImp-convert arg-4 arg-18 arg-16 arg-15 arg-10 arg-13 arg-11 (Normalise-Core-glueBack arg-4 e-5 arg-11 arg-8) expfnty) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((_-0 (vector 0 e-2 e-3))) ((App-Elab-TTImp-case--15855-12418 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 e-2 e-3 _-0 fntm e-5 e-6 expfnty e-7 e-8 e-9 e-10 (let ((sc7 e-10)) (let ((e-0 (vector-ref sc7 1))) e-0))) eta-0)))))))))))))))))))))))))))))))))))))))) -(define App-Elab-TTImp-case--10320-12100 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (App-Elab-TTImp-checkAppWith arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (vector 0 ) (vector 0 ) arg-2 arg-1))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 26 arg-0 arg-7 arg-8 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-16) arg-6) eta-0))))))) -(define App-Elab-TTImp-case--10320-11924 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((0) (App-Elab-TTImp-makeDefImplicit arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-22 arg-16 arg-15 arg-14 arg-13 arg-12 arg-5 arg-1 arg-2 arg-4 arg-11 arg-10 arg-9 arg-8 arg-7)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (App-Elab-TTImp-checkRestApp arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-22 arg-16 arg-15 arg-14 arg-13 arg-12 arg-5 arg-2 arg-4 arg-11 e-5 arg-10 e-6 arg-8 arg-7)))))))))) -(define App-Elab-TTImp-case--15292-11785 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-23 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-25) arg-24)))) (else (App-Elab-TTImp-n--10320-11764-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 (vector 1 (vector 0 (vector 1 arg-22) arg-23) arg-25) arg-24)))))) -(define App-Elab-TTImp-case--10320-11641 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (App-Elab-TTImp-makeImplicit arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-21 arg-15 arg-14 arg-13 arg-12 arg-11 arg-4 arg-1 arg-3 arg-10 arg-9 arg-8 arg-7 arg-6)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (App-Elab-TTImp-checkRestApp arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-21 arg-15 arg-14 arg-13 arg-12 arg-11 arg-4 arg-1 arg-3 arg-10 e-5 arg-9 e-6 arg-7 arg-6)))))))))) -(define App-Elab-TTImp-case--14968-11504 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-22 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-24) arg-23)))) (else (App-Elab-TTImp-n--10320-11483-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 (vector 1 (vector 0 (vector 1 arg-21) arg-22) arg-24) arg-23)))))) -(define App-Elab-TTImp-case--10320-11361 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (App-Elab-TTImp-makeAutoImplicit arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-21 arg-15 arg-14 arg-13 arg-12 arg-11 arg-4 arg-1 arg-3 arg-10 arg-9 arg-8 arg-7 arg-6)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (App-Elab-TTImp-checkRestApp arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-21 arg-15 arg-14 arg-13 arg-12 arg-11 arg-4 arg-1 arg-3 arg-10 e-5 arg-9 e-6 arg-7 arg-6)))))))))) -(define App-Elab-TTImp-case--14628-11224 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-22 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-24) arg-23)))) (else (App-Elab-TTImp-n--10320-11186-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 (vector 1 (vector 0 (vector 1 arg-21) arg-22) arg-24) arg-23)))))) -(define App-Elab-TTImp-case--14295-10971 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30) (let ((sc0 arg-30)) (cond ((equal? sc0 0) (Check-Elab-TTImp-checkExp arg-0 arg-20 arg-18 arg-17 arg-16 arg-15 arg-13 arg-12 arg-11 (Normalise-Core-glueBack arg-0 arg-22 arg-13 arg-10) (vector 1 arg-1))) (else (App-Elab-TTImp-makeAutoImplicit arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-21 arg-15 arg-14 arg-13 arg-12 arg-11 arg-8 arg-5 arg-7 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1))))))) -(define App-Elab-TTImp-case--10320-10903 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((3) (let ((e-10 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__NF arg-0 arg-23 arg-13 arg-4 e-10 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (cond ((equal? sc4 0) ((Check-Elab-TTImp-checkExp arg-0 arg-20 arg-18 arg-17 arg-16 arg-15 arg-13 arg-12 arg-11 (Normalise-Core-glueBack arg-0 arg-23 arg-13 arg-10) (vector 1 arg-1)) eta-0)) (else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-21 arg-15 arg-14 arg-13 arg-12 arg-11 arg-8 arg-5 arg-7 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)) eta-0))))))))))))(else (App-Elab-TTImp-makeAutoImplicit arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-21 arg-15 arg-14 arg-13 arg-12 arg-11 arg-8 arg-5 arg-7 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))(else (App-Elab-TTImp-makeAutoImplicit arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-21 arg-15 arg-14 arg-13 arg-12 arg-11 arg-8 arg-5 arg-7 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))(else (App-Elab-TTImp-makeAutoImplicit arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-21 arg-15 arg-14 arg-13 arg-12 arg-11 arg-8 arg-5 arg-7 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1))))))) -(define App-Elab-TTImp-case--10320-10748 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((2) (Check-Elab-TTImp-checkExp arg-0 arg-19 arg-17 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 (Normalise-Core-glueBack arg-0 arg-22 arg-12 arg-9) (vector 1 arg-1)))(else (App-Elab-TTImp-makeAutoImplicit arg-0 arg-19 arg-18 arg-17 arg-16 arg-15 arg-20 arg-14 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))(else (App-Elab-TTImp-makeAutoImplicit arg-0 arg-19 arg-18 arg-17 arg-16 arg-15 arg-20 arg-14 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))(else (App-Elab-TTImp-makeAutoImplicit arg-0 arg-19 arg-18 arg-17 arg-16 arg-15 arg-20 arg-14 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1))))))) -(define App-Elab-TTImp-case--13796-10574 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (App-Elab-TTImp-makeImplicit arg-0 arg-19 arg-18 arg-17 arg-16 arg-15 arg-20 arg-14 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1))) (else (lambda (eta-0) (Check-Elab-TTImp-handle 'erased arg-0 arg-19 arg-18 arg-17 arg-16 (Check-Elab-TTImp-checkExp arg-0 arg-19 arg-17 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 (Normalise-Core-glueBack arg-0 arg-22 arg-12 arg-9) (vector 1 arg-1)) (lambda (err) (App-Elab-TTImp-makeImplicit arg-0 arg-19 arg-18 arg-17 arg-16 arg-15 arg-20 arg-14 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1))) eta-0))))))) -(define App-Elab-TTImp-case--10320-10465 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (Check-Elab-TTImp-checkExp arg-0 arg-19 arg-17 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 (Normalise-Core-glueBack arg-0 arg-22 arg-12 arg-9) (vector 1 arg-1)))(else (App-Elab-TTImp-case--13796-10574 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 (Prelude-not (let ((sc2 arg-14)) (let ((e-9 (vector-ref sc2 5))) e-9)))))))))(else (App-Elab-TTImp-case--13796-10574 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 (Prelude-not (let ((sc1 arg-14)) (let ((e-6 (vector-ref sc1 5))) e-6)))))))))(else (App-Elab-TTImp-case--13796-10574 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 (Prelude-not (let ((sc0 arg-14)) (let ((e-4 (vector-ref sc0 5))) e-4))))))))) -(define App-Elab-TTImp-case--12005-10249 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-29)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logGlueNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got arg type") arg-13 e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (unbox arg-21))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((fntm (vector 4 arg-12 arg-11 e-2))) (let ((act-26 (((arg-8 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-2)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-7 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-24 arg-3) eta-0)))))))))))))))))))))) -(define App-Elab-TTImp-case--12419-9890 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49 arg-50) (let ((sc0 arg-50)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-updateDef arg-21 (vector 9 arg-29) (lambda (eta-1) (vector 1 (vector 7 0 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 arg-30 arg-42) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define App-Elab-TTImp-case--12614-9570 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49 arg-50) (let ((sc0 arg-50)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-36)))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-37) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((UnifyState-Core-newConstant arg-0 arg-19 arg-21 arg-12 arg-17 arg-13 arg-36 e-5 arg-50) eta-0)))))))))))) -(define App-Elab-TTImp-case--12419-9455 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49) (let ((sc0 arg-49)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-convert arg-0 arg-21 arg-19 arg-18 arg-12 arg-15 arg-13 (Normalise-Core-gnf arg-0 arg-13 arg-30) (Normalise-Core-gnf arg-0 arg-13 arg-42)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((App-Elab-TTImp-case--12614-9570 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0)))))))) (else (lambda (eta-0) (vector 1 arg-36))))))) -(define App-Elab-TTImp-case--12259-9292 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42) (let ((sc0 arg-42)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 (App-Elab-TTImp-onLHS (let ((sc2 arg-15)) (let ((e-0 (vector-ref sc2 1))) e-0))))) (cond ((equal? sc1 0) ((App-Elab-TTImp-checkPatTyValid arg-0 arg-21 arg-12 arg-39 arg-13 arg-40 e-2 e-3) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-21))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Solving " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-30) " with"))) e-2 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 arg-30 e-2) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((_-0 (vector 0 e-2 e-3))) ((App-Elab-TTImp-case--12419-9455 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 e-2 e-3 _-0 e-5 e-6 e-7 e-8 (Prelude-not e-8)) eta-0)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (let ((_-0 (vector 0 e-2 e-3))) ((App-Elab-TTImp-case--12419-9890 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 e-2 e-3 _-0 e-5 e-6 e-7 e-8 e-9 (let ((sc6 arg-15)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 (UnifyState-Core-removeHole arg-19 arg-29 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-9 arg-37))))))))))))))))))))))))))))))))))))))))) -(define App-Elab-TTImp-case--12112-9164 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36) (let ((sc0 arg-36)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-21))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf arg-0 e-5 arg-13 arg-28) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Now trying " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-26) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Check-Elab-TTImp-check arg-0 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 arg-23 (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-13 e-6))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-28 (let ((sc6 (App-Elab-TTImp-onLHS (let ((sc7 arg-15)) (let ((e-0 (vector-ref sc7 1))) e-0))))) (cond ((equal? sc6 0) ((App-Elab-TTImp-checkPatTyValid arg-0 arg-21 arg-12 e-5 arg-13 e-6 e-9 e-4) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-29 (let ((act-29 (unbox arg-21))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-30 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Solving " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-30) " with"))) e-9 eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-31 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 arg-30 e-9) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-32 (let ((_-1 (vector 0 e-9 e-4))) ((App-Elab-TTImp-case--12419-9455 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 e-2 e-3 _-0 e-5 e-6 e-7 e-9 e-4 _-1 e-10 e-11 e-12 e-13 (Prelude-not e-13)) eta-0)))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-33 (let ((_-1 (vector 0 e-9 e-4))) ((App-Elab-TTImp-case--12419-9890 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 e-2 e-3 _-0 e-5 e-6 e-7 e-9 e-4 _-1 e-10 e-11 e-12 e-13 e-14 (let ((sc11 arg-15)) (let ((e-0 (vector-ref sc11 1))) e-0))) eta-0)))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-15 (vector-ref sc11 1))) (vector 0 e-15))) (else (let ((act-34 (UnifyState-Core-removeHole arg-19 arg-29 eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-16 (vector-ref sc12 1))) (vector 0 e-16))) (else (vector 1 (vector 0 e-14 e-3))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define App-Elab-TTImp-case--12005-9041 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-29)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((fntm (vector 4 arg-12 arg-11 e-3))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Delaying " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-26) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 arg-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...as") e-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (((arg-8 arg-22) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-3)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-7 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-24 arg-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-28 (let ((act-28 (unbox arg-21))) (vector 1 act-28)))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-29 ((Normalise-Core-nf arg-0 e-10 arg-13 arg-28) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-30 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Now trying " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-26) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 e-11 eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-31 ((Check-Elab-TTImp-check arg-0 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 arg-23 (vector 1 (Normalise-Core-glueBack arg-0 e-10 arg-13 e-11))) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((_-1 (vector 0 e-9 e-4))) (let ((sc10 e-13)) (let ((e-15 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((act-32 (let ((sc11 (App-Elab-TTImp-onLHS (let ((sc12 arg-15)) (let ((e-0 (vector-ref sc12 1))) e-0))))) (cond ((equal? sc11 0) ((App-Elab-TTImp-checkPatTyValid arg-0 arg-21 arg-12 e-10 arg-13 e-11 e-15 e-14) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-33 (let ((act-33 (unbox arg-21))) (vector 1 act-33)))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-34 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Solving " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-3) " with"))) e-15 eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-18 (vector-ref sc13 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc13 1))) (let ((act-35 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 e-3 e-15) eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (let ((act-36 (let ((_-2 (vector 0 e-15 e-14))) ((App-Elab-TTImp-case--12419-9455 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 e-2 e-3 _-0 fntm e-5 e-6 e-7 e-9 e-4 _-1 e-10 e-11 e-12 e-15 e-14 _-2 e-16 e-17 e-18 e-19 (Prelude-not e-19)) eta-0)))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-20 (vector-ref sc15 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc15 1))) (let ((act-37 (let ((_-2 (vector 0 e-15 e-14))) ((App-Elab-TTImp-case--12419-9890 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 e-2 e-3 _-0 fntm e-5 e-6 e-7 e-9 e-4 _-1 e-10 e-11 e-12 e-15 e-14 _-2 e-16 e-17 e-18 e-19 e-20 (let ((sc16 arg-15)) (let ((e-0 (vector-ref sc16 1))) e-0))) eta-0)))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-21 (vector-ref sc16 1))) (vector 0 e-21))) (else (let ((act-38 (UnifyState-Core-removeHole arg-19 e-2 eta-0))) (let ((sc17 act-38)) (case (vector-ref sc17 0) ((0) (let ((e-22 (vector-ref sc17 1))) (vector 0 e-22))) (else (vector 1 (vector 0 e-20 e-4)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define App-Elab-TTImp-case--10314-8954 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((UnifyState-Core-genMVName arg-21 arg-19 arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs arg-22 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-13 arg-9 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Check-Elab-TTImp-argVar arg-0 arg-21 arg-19 (TTImp-TTImp-getFC arg-23) arg-16 arg-13 e-5 e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((fntm (vector 4 arg-12 arg-11 e-3))) (let ((act-28 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Delaying " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 arg-9 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...as") e-3 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 (((arg-8 arg-22) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-3)) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-31 ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-11 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-24 arg-3) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc9 1))) (let ((_-0 (vector 0 e-2 e-3))) (let ((sc10 e-12)) (let ((e-13 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((act-32 (let ((act-32 (unbox arg-21))) (vector 1 act-32)))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-33 ((Normalise-Core-nf arg-0 e-14 arg-13 e-7) eta-0))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-15 (vector-ref sc12 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc12 1))) (let ((act-34 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Now trying " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 e-15 eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (let ((act-35 ((Check-Elab-TTImp-check arg-0 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 arg-23 (vector 1 (Normalise-Core-glueBack arg-0 e-14 arg-13 e-15))) eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-17 (vector-ref sc14 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc14 1))) (let ((_-1 (vector 0 e-13 e-4))) (let ((sc15 e-17)) (let ((e-19 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((act-36 (let ((sc16 (App-Elab-TTImp-onLHS (let ((sc17 arg-15)) (let ((e-0 (vector-ref sc17 1))) e-0))))) (cond ((equal? sc16 0) ((App-Elab-TTImp-checkPatTyValid arg-0 arg-21 arg-12 e-14 arg-13 e-15 e-19 e-18) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-20 (vector-ref sc16 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-37 (let ((act-37 (unbox arg-21))) (vector 1 act-37)))) (let ((sc17 act-37)) (case (vector-ref sc17 0) ((0) (let ((e-21 (vector-ref sc17 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc17 1))) (let ((act-38 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Solving " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-3) " with"))) e-19 eta-0))) (let ((sc18 act-38)) (case (vector-ref sc18 0) ((0) (let ((e-22 (vector-ref sc18 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc18 1))) (let ((act-39 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 e-3 e-19) eta-0))) (let ((sc19 act-39)) (case (vector-ref sc19 0) ((0) (let ((e-23 (vector-ref sc19 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc19 1))) (let ((act-40 (let ((_-2 (vector 0 e-19 e-18))) ((App-Elab-TTImp-case--12419-9455 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 e-5 e-6 e-7 e-2 e-3 _-0 fntm e-9 e-10 e-11 e-13 e-4 _-1 e-14 e-15 e-16 e-19 e-18 _-2 e-20 e-21 e-22 e-23 (Prelude-not e-23)) eta-0)))) (let ((sc20 act-40)) (case (vector-ref sc20 0) ((0) (let ((e-24 (vector-ref sc20 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc20 1))) (let ((act-41 (let ((_-2 (vector 0 e-19 e-18))) ((App-Elab-TTImp-case--12419-9890 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 e-5 e-6 e-7 e-2 e-3 _-0 fntm e-9 e-10 e-11 e-13 e-4 _-1 e-14 e-15 e-16 e-19 e-18 _-2 e-20 e-21 e-22 e-23 e-24 (let ((sc21 arg-15)) (let ((e-0 (vector-ref sc21 1))) e-0))) eta-0)))) (let ((sc21 act-41)) (case (vector-ref sc21 0) ((0) (let ((e-25 (vector-ref sc21 1))) (vector 0 e-25))) (else (let ((act-42 (UnifyState-Core-removeHole arg-19 e-2 eta-0))) (let ((sc22 act-42)) (case (vector-ref sc22 0) ((0) (let ((e-26 (vector-ref sc22 1))) (vector 0 e-26))) (else (vector 1 (vector 0 e-24 e-4))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Argument type " (Name-Core-show_Show__Name arg-10))) arg-13 arg-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Full function type") arg-13 (vector 0 arg-12 arg-10 (vector 2 arg-16 (vector 1 ) arg-9) arg-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-logC arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (vector 1 (vector 0 )))) (lambda () (lambda (t) (lambda (eta-2) (let ((act-26 ((Normalise-Core-getTerm 'erased t) eta-2))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-toFullNames 'erased arg-21 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-7 eta-2))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 e-8))))))))))))))) arg-3) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Overall expected type: " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-7))))))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((Check-Elab-TTImp-check arg-0 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 arg-23 (vector 1 (Normalise-Core-glueBack arg-0 arg-22 arg-13 arg-9))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((act-28 (Normalise-Core-logGlueNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got arg type") arg-13 e-3 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-29 (let ((act-29 (unbox arg-21))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc7 1))) (let ((fntm (vector 4 arg-12 arg-11 e-2))) (let ((act-30 (((arg-8 e-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-2)) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-11 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-24 arg-3) eta-0)))))))))))))))))))))))))))))))))))))))))) -(define App-Elab-TTImp-case--10314-8846 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (lambda (eta-0) (let ((act-24 (((arg-8 arg-22) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 10 arg-12 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((App-Elab-TTImp-concrete 'erased arg-22 arg-13 e-5) eta-0)))))))))))) -(define App-Elab-TTImp-case--11696-8721 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-1))) (else (lambda (eta-0) (vector 1 (App-Elab-TTImp-n--10312-8521-dotTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-1)))))))) -(define App-Elab-TTImp-case--11658-8699 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (App-Elab-TTImp-case--11696-8721 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-3 (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 5))) e-4))))))) (else (lambda (eta-0) (vector 1 (App-Elab-TTImp-n--10312-8521-dotTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-1)))))))) -(define App-Elab-TTImp-case--10312-8664 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (n) (Context-Core-lookupCtxtExact n (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))))) arg-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((App-Elab-TTImp-case--11696-8721 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5 e-1 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-3 (let ((sc4 e-1)) (let ((e-4 (vector-ref sc4 5))) e-4)))) eta-0)))) (else (vector 1 (App-Elab-TTImp-n--10312-8521-dotTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-1))))))))))))))))) (else (lambda (eta-0) (vector 1 arg-1))))))) -(define App-Elab-TTImp-case--11506-8525 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((18) arg-6) ((16) arg-6) ((31) arg-6) ((17) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((sc1 e-10)) (case (vector-ref sc1 0) ((16) arg-6) ((31) arg-6)(else (vector 17 e-7 e-8 e-9 (vector 18 e-7 (vector 3 ) arg-6))))))))))(else (vector 18 (TTImp-TTImp-getFC arg-6) (vector 3 ) arg-6)))))) -(define App-Elab-TTImp-case--11291-8384 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 43 arg-0 arg-10 arg-8 arg-7) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define App-Elab-TTImp-case--11242-8340 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-11 arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((App-Elab-TTImp-concrete 'erased arg-9 arg-8 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 43 arg-0 arg-10 arg-8 arg-7) eta-0)) (else (vector 1 (vector 0 ))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define App-Elab-TTImp-case--10309-8304 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (App-Elab-TTImp-case--11242-8340 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-1 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define App-Elab-TTImp-case--10302-8085 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0)))))))(else (lambda (eta-0) (vector 1 0))))))) -(define App-Elab-TTImp-case--10296-7842 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-21))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((UnifyState-Core-genMVName arg-21 arg-19 arg-10) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-13 arg-8 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-21 arg-19 arg-12 arg-16 arg-13 e-6 e-8 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((fntm (vector 4 arg-12 arg-11 e-9))) (let ((act-29 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-9)) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((act-30 (unbox arg-18))) (vector 1 act-30)))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (let ((act-31 (set-box! arg-18 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-6 arg-16 (vector 2 ) arg-13 e-9 e-8 e-11)))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-10 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-4 arg-3) eta-0))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-21))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-13 arg-9 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((fntm (vector 4 arg-12 arg-11 e-7))) (let ((act-27 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-7)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-8 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-4 arg-3) eta-0)))))))))))))))))))))))))))) -(define App-Elab-TTImp-case--10290-7581 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-20))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((UnifyState-Core-genMVName arg-20 arg-18 arg-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-12 arg-8 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-20 arg-18 arg-11 arg-15 arg-12 e-6 e-8 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((fntm (vector 4 arg-11 arg-10 e-9))) (let ((act-29 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 e-9)) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((act-30 (unbox arg-17))) (vector 1 act-30)))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (let ((act-31 (set-box! arg-17 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-6 arg-15 (vector 2 ) arg-12 e-9 e-8 e-11)))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else ((App-Elab-TTImp-checkAppWith arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-14 arg-13 arg-12 arg-11 fntm e-10 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-4 arg-3) eta-0))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-20))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((UnifyState-Core-genMVName arg-20 arg-18 arg-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-12 arg-8 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (unbox arg-17))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-getAutoImplicitLimit arg-20 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Check-Elab-TTImp-searchVar arg-0 arg-20 arg-18 arg-11 arg-15 e-9 (vector 9 (let ((sc6 e-8)) (let ((e-2 (vector-ref sc6 2))) e-2))) arg-12 e-6 e-7 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((fntm (vector 4 arg-11 arg-10 e-10))) (let ((act-30 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 e-10)) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) ((App-Elab-TTImp-checkAppWith arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-14 arg-13 arg-12 arg-11 fntm e-11 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-4 arg-3) eta-0))))))))))))))))))))))))))))))))))))))))))) -(define App-Elab-TTImp-case--9856-7034 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (vector 1 )) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (vector 2 e-5 e-6)))) ((6) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (vector 3 e-8 e-9))))(else (vector 1 )))))) -(define App-Elab-TTImp-case--9717-6961 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-14) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((nt (let ((bind-0 (vector 1 e-2))) (App-Elab-TTImp-case--9856-7034 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-2 bind-0 (let ((sc1 e-2)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (let ((tm ((arg-11 arg-2) nt))) (let ((tyenv (App-Elab-TTImp-n--9627-6768-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-0 (TT-Core-getArgs 'erased tm) (TT-Core-embed 'erased 'erased (let ((sc1 e-2)) (let ((e-21 (vector-ref sc1 3))) e-21)))))) (lambda (eta-0) (let ((act-24 ((App-Elab-TTImp-checkVisibleNS arg-8 arg-2 (let ((sc1 e-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) (let ((sc1 e-2)) (let ((e-9 (vector-ref sc1 10))) e-9))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 (Context-Core-logTerm arg-0 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Type of " (Name-Core-show_Show__Name arg-14))) tyenv eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 (Context-Core-logTerm arg-0 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expands to") tm eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-27 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Arg length " (Prelude-show_Show__Nat arg-13))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 (vector 0 tm (vector 0 arg-13 (Normalise-Core-gnf arg-0 arg-3 tyenv)))))))))))))))))))))))))))))) -(define App-Elab-TTImp-case--9717-6872 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 0 e-3))))))))) -(define App-Elab-TTImp-case--9627-6839 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((App-Elab-TTImp-getNameType arg-0 arg-8 arg-7 arg-6 arg-5 arg-3 arg-2 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-2 (vector 0 0 e-3))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((arglen (List-Data-length 'erased e-9))) (let ((nC-39 (Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (eta-1) eta-1)) e-5))) (let ((act-25 ((Context-Core-lookupCtxtExact nC-39 (let ((sc4 e-7)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 nC-39) eta-0)) (else (let ((e-3 (vector-ref sc5 1))) (let ((nt (let ((bind-0 (vector 1 e-3))) (App-Elab-TTImp-case--9856-7034 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 e-9 e-10 e-7 arglen nC-39 e-3 bind-0 (let ((sc6 e-3)) (let ((e-17 (vector-ref sc6 18))) e-17)))))) (let ((tm ((e-10 arg-2) nt))) (let ((tyenv (App-Elab-TTImp-n--9627-6768-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-0 (TT-Core-getArgs 'erased tm) (TT-Core-embed 'erased 'erased (let ((sc6 e-3)) (let ((e-28 (vector-ref sc6 3))) e-28)))))) (let ((act-26 ((App-Elab-TTImp-checkVisibleNS arg-8 arg-2 (let ((sc6 e-3)) (let ((e-1 (vector-ref sc6 2))) e-1)) (let ((sc6 e-3)) (let ((e-22 (vector-ref sc6 10))) e-22))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-27 (Context-Core-logTerm arg-0 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Type of " (Name-Core-show_Show__Name nC-39))) tyenv eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-28 (Context-Core-logTerm arg-0 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expands to") tm eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-29 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Arg length " (Prelude-show_Show__Nat arglen))) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (vector 1 (vector 0 tm (vector 0 arglen (Normalise-Core-gnf arg-0 arg-3 tyenv)))))))))))))))))))))))))))))))))))))))))))))))))))) -(define App-Elab-TTImp-case--9324-6524 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (vector 1 )) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (vector 2 e-5 e-6)))) ((6) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (vector 3 e-8 e-9))))(else (vector 1 )))))) -(define App-Elab-TTImp-case--9121-6478 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-7 e-6) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc4 1))) ((App-Elab-TTImp-checkVisibleNS arg-7 arg-2 e-5 (let ((sc5 e-11)) (let ((e-9 (vector-ref sc5 10))) e-9))) eta-0)))))))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (App-Elab-TTImp-n--9063-6246-rigSafe arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc5 e-11)) (let ((e-23 (vector-ref sc5 8))) e-23)) arg-4 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (let ((nt (let ((_-0 (vector 1 (vector 0 e-6 (vector 0 e-10 e-11)) (vector 0 )))) (App-Elab-TTImp-case--9324-6524 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6 e-10 e-11 _-0 e-5 e-8 (let ((sc6 e-11)) (let ((e-17 (vector-ref sc6 18))) e-17)))))) (vector 1 (vector 0 (vector 1 arg-2 nt (vector 9 e-10)) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased (let ((sc6 e-11)) (let ((e-27 (vector-ref sc6 3))) e-27)))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-9)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-9)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-9)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-9)) eta-0))))))) -(define App-Elab-TTImp-case--9121-6397 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (vector 0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 (vector 1 arg-8 e-11) e-12 e-13))))))))))))))))) -(define App-Elab-TTImp-case--9063-6289 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (App-Elab-TTImp-n--9063-6246-rigSafe arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-6 arg-4 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((binder (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (TT-Core-weaken_Weaken__Term n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (TT-Core-weakenNs_Weaken__Term vars ns arg-3271))))) arg-0 e-5 'erased arg-3))) (let ((bty (TT-Core-binderType 'erased binder))) (let ((act-25 (Metadata-Core-addNameType arg-0 arg-7 arg-6 arg-2 arg-1 arg-3 bty eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-26 (let ((sc4 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-6))) (cond ((equal? sc4 0) (let ((act-26 (let ((act-26 (unbox arg-5))) (vector 1 act-26)))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 (set-box! arg-5 (let ((sc6 e-9)) (let ((e-19 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((e-3 (vector-ref sc6 3))) (let ((e-4 (vector-ref sc6 4))) (let ((e-18 (vector-ref sc6 5))) (let ((e-17 (vector-ref sc6 6))) (let ((e-16 (vector-ref sc6 7))) (let ((e-15 (vector-ref sc6 8))) (let ((e-14 (vector-ref sc6 9))) (let ((e-10 (vector-ref sc6 10))) (let ((e-11 (vector-ref sc6 11))) (let ((e-12 (vector-ref sc6 12))) (let ((e-13 (vector-ref sc6 13))) (vector 0 e-19 e-2 e-3 e-4 e-18 e-17 e-16 e-15 e-14 e-10 (vector 1 e-5 e-11) e-12 e-13)))))))))))))))))) (vector 1 act-27)))))))) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 0 (vector 0 arg-2 (vector 1 (App-Elab-TTImp-n--9063-6245-isLet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased binder)) e-5) (Normalise-Core-gnf arg-0 arg-3 bty))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtName arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-7 e-8) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc7 1))) ((App-Elab-TTImp-checkVisibleNS arg-7 arg-2 e-9 (let ((sc8 e-11)) (let ((e-23 (vector-ref sc8 10))) e-23))) eta-0)))))))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 (App-Elab-TTImp-n--9063-6246-rigSafe arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc8 e-11)) (let ((e-25 (vector-ref sc8 8))) e-25)) arg-4 eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc8 1))) (let ((nt (let ((_-0 (vector 1 (vector 0 e-8 (vector 0 e-10 e-11)) (vector 0 )))) (App-Elab-TTImp-case--9324-6524 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 e-8 e-10 e-11 _-0 e-9 e-12 (let ((sc9 e-11)) (let ((e-17 (vector-ref sc9 18))) e-17)))))) (vector 1 (vector 0 (vector 1 arg-2 nt (vector 9 e-10)) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased (let ((sc9 e-11)) (let ((e-29 (vector-ref sc9 3))) e-29))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))))))))))))))) -(define App-Elab-TTImp-case--8948-6164 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 8 arg-3 (vector 0 arg-1 arg-0) (vector 0 )) eta-0))))))) -(define App-Elab-TTImp-case--8934-6131 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-isAllPublic arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-getNS arg-4 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-getNestedNS arg-4 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((bind-0 0)) ((App-Elab-TTImp-case--8948-6164 arg-0 arg-1 arg-2 arg-3 arg-4 bind-0 e-5 e-6 e-7 (Prelude-C-124C-124 e-5 (lambda () (Context-Core-visibleInAny (vector 1 e-6 e-7) (vector 0 arg-1 arg-0) arg-2)))) eta-0))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 8 arg-3 (vector 0 arg-1 arg-0) (vector 1 arg-1)) eta-0))))))) -(define App-Elab-TTImp-n--9627-6768-useVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) arg-11) ((1) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((3) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((e-16 (vector-ref sc1 3))) (let ((e-17 (vector-ref sc1 4))) (let ((sc2 e-16)) (case (vector-ref sc2 0) ((2) (let ((e-19 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 3))) (vector 3 e-14 e-15 (vector 1 e-19 e-11 e-21) (App-Elab-TTImp-n--9627-6768-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-15 arg-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-15 arg-9 eta-0)) e-12) e-17)))))(else (let ((sc2 arg-11)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((e-8 (vector-ref sc3 3))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (App-Elab-TTImp-n--9627-6768-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-2 arg-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-2 arg-9 eta-0)) arg-10) e-4))))))(else arg-11))))))))(else arg-11)))))))))))(else (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (App-Elab-TTImp-n--9627-6768-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-2 arg-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-2 arg-9 eta-0)) arg-10) e-4))))))(else arg-11))))))))(else arg-11)))))))))(else (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (App-Elab-TTImp-n--9627-6768-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-2 arg-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-2 arg-9 eta-0)) arg-10) e-4))))))(else arg-11))))))))(else arg-11)))))))) -(define App-Elab-TTImp-n--10320-11764-useImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (App-Elab-TTImp-case--15292-11785 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 e-9 e-7 e-3 arg-22 (Name-Core-C-61C-61_Eq__Name arg-5 e-9))))(else (App-Elab-TTImp-n--10320-11764-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 (vector 1 e-2 arg-22) e-3)))))))(else (App-Elab-TTImp-n--10320-11764-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 (vector 1 e-2 arg-22) e-3))))))))))) -(define App-Elab-TTImp-n--10320-11483-useImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (App-Elab-TTImp-case--14968-11504 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 e-9 e-7 e-3 arg-21 (Name-Core-C-61C-61_Eq__Name arg-4 e-9))))(else (App-Elab-TTImp-n--10320-11483-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 (vector 1 e-2 arg-21) e-3)))))))(else (App-Elab-TTImp-n--10320-11483-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 (vector 1 e-2 arg-21) e-3))))))))))) -(define App-Elab-TTImp-n--10320-11186-useAutoImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 e-7 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-21) e-3)))) ((1) (let ((e-10 (vector-ref sc2 1))) (App-Elab-TTImp-case--14628-11224 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 e-10 e-7 e-3 arg-21 (Name-Core-C-61C-61_Eq__Name arg-4 e-10))))(else (App-Elab-TTImp-n--10320-11186-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 (vector 1 e-2 arg-21) e-3)))))))(else (App-Elab-TTImp-n--10320-11186-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 (vector 1 e-2 arg-21) e-3))))))))))) -(define App-Elab-TTImp-n--16233-12641-updateElabInfo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-18)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-14 arg-17) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) ((App-Elab-TTImp-case--16289-13016 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-0 e-5 e-4 arg-19 arg-17 arg-15 e-6 (App-Elab-TTImp-n--16233-12638-isPrimName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-6)) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-19))))))))(else (lambda (eta-0) (vector 1 arg-19))))))))(else (lambda (eta-0) (vector 1 arg-19)))))))(else (lambda (eta-0) (vector 1 arg-19))))))) -(define App-Elab-TTImp-n--9063-6246-rigSafe (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 ((Context-Core-getFullName arg-7 arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-8 arg-9))) (cond ((equal? sc1 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 14 arg-2 e-5 arg-8 arg-9) ext-0)) (else (vector 1 (vector 0 )))))))))))) -(define App-Elab-TTImp-n--10320-12064-notInfer (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((31) 1) ((17) (let ((e-9 (vector-ref sc1 4))) (App-Elab-TTImp-n--10320-12064-notInfer arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (vector 0 e-2 e-9))))(else 0))))))(else 0))))) -(define App-Elab-TTImp-n--16233-12640-normalisePrims (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 ext-0) (let ((act-24 ((Context-Core-getFullName arg-14 arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((App-Elab-TTImp-case--16288-12690 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-18 arg-17 arg-16 e-5 (App-Elab-TTImp-n--16233-12638-isPrimName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-16 e-5)) ext-0)))))))) -(define App-Elab-TTImp-n--10296-7832-metavarImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((1) 0) ((3) 0)(else 1))))) -(define App-Elab-TTImp-n--10290-7571-metavarImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((1) 0) ((3) 0)(else 1))))) -(define App-Elab-TTImp-n--16233-12638-isPrimName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-124C-124 (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS arg-16) e-2) (lambda () (App-Elab-TTImp-n--16233-12638-isPrimName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-3 arg-16)))))))))) -(define App-Elab-TTImp-n--9063-6245-isLet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) 0)(else 1))))) -(define App-Elab-TTImp-n--10312-8521-dotTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((18) arg-6) ((16) arg-6) ((31) arg-6) ((17) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((sc1 e-10)) (case (vector-ref sc1 0) ((16) arg-6) ((31) arg-6)(else (vector 17 e-7 e-8 e-9 (vector 18 e-7 (vector 3 ) arg-6))))))))))(else (vector 18 (TTImp-TTImp-getFC arg-6) (vector 3 ) arg-6)))))) -(define App-Elab-TTImp-n--16233-12639-boundSafe (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) 0)(else (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (Prelude-C-60_Ord__Integer (Prelude-abs_Abs__Integer e-0) 100)))(else 0)))))))) +(define 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--8948-12012-getRig arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0))))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 pirig arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gType 'erased arg-9))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((act-25 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 arg-6 arg-7 arg-8 arg-11 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((envC-39 (vector 1 (vector 2 arg-10 e-6 e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-12 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-12 arg-7)))) (let ((act-26 (Check-Elab-TTImp-inScope 'erased arg-12 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-12 arg-0) arg-1 arg-2 arg-3 eC-39 pirig arg-6 nestC-39 envC-39 arg-14 (vector 1 (Normalise-Core-gType 'erased arg-9)))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 (vector 3 arg-9 arg-12 (vector 2 arg-10 e-6 e-2) e-8) (Normalise-Core-gType 'erased arg-9) arg-15) eta-0)))))))))))))))))))))))))) +(define Binders-Elab-TTImp-checkLet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((rigc (Binders-Elab-TTImp-case--10400-13278 arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-5)))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-12 (vector 1 (Normalise-Core-gType 'erased arg-9))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-25 (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (let ((act-25 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 0 (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-10 rigc) (let ((sc2 arg-6)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (let ((e-7 (vector-ref sc2 4))) (let ((e-6 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-8 e-7 0 e-6))))))) arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-6) (vector 0 (Builtin-snd 'erased 'erased e-6) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-10 rigc)))))))))) (lambda (err) (let ((_-0 (vector 0 e-2 e-3))) (Binders-Elab-TTImp-case--10570-13688 arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 rigc e-2 e-3 _-0 err (Binders-Elab-TTImp-n--10400-13233-linearErr arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 err)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-8 (vector-ref sc4 2))) (let ((envC-39 (vector 1 (vector 0 e-8 (vector 1 ) e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-11 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-11 arg-7)))) (let ((act-26 ((Binders-Elab-TTImp-weakenExp arg-11 arg-0 envC-39 arg-15) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-27 (Check-Elab-TTImp-inScope 'erased arg-11 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-11 arg-0) arg-1 arg-2 arg-3 eC-39 rigc arg-6 nestC-39 envC-39 arg-14 e-10)) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((sc7 e-11)) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((act-28 ((Normalise-Core-getTerm 'erased e-12) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (vector 0 (vector 3 arg-9 arg-11 (vector 1 e-8 e-7 e-2) e-13) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-11 (vector 1 e-8 e-7 e-2) e-14)))))))))))))))))))))))))))))))))))))))))))))) +(define Binders-Elab-TTImp-checkLambda (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (let ((rig (Binders-Elab-TTImp-case--9563-12544 arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-5)))) (lambda (eta-0) (Binders-Elab-TTImp-inferLambda arg-0 arg-1 arg-2 arg-3 arg-4 rig arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (vector 0 ) eta-0)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((rig (Binders-Elab-TTImp-case--9563-12633 arg-0 e-2 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-5)))) (let ((solvemode (Binders-Elab-TTImp-case--9563-12708 arg-0 e-2 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 rig (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (lambda (eta-0) (let ((act-24 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 ((Normalise-Core-getTerm 'erased e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Binders-Elab-TTImp-getTyNF arg-0 arg-1 arg-8 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((sc5 e-7)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((e-3 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((2) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((e-10 (vector-ref sc6 3))) (let ((act-28 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gType 'erased arg-9))) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((exptynf (vector 3 e-1 e-9 (vector 2 e-12 e-11 e-10) e-4))) (let ((sc8 e-13)) (let ((e-15 (vector-ref sc8 1))) (let ((act-29 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 arg-6 arg-7 arg-8 arg-11 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-15))) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc9 1))) (let ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-256 arg-257))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-259) (lambda (arg-261) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-259 arg-261))))))) arg-10 e-12))) (let ((envC-39 (vector 1 (vector 0 rigb e-16 e-15) arg-8))) (let ((act-30 ((Check-Elab-TTImp-convertP arg-0 arg-1 arg-3 arg-4 0 arg-9 arg-6 arg-8 (Normalise-Core-gnf arg-0 arg-8 e-15) (Normalise-Core-gnf arg-0 arg-8 e-10)) eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-12 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-12 arg-7)))) (let ((act-31 (Check-Elab-TTImp-inScope 'erased arg-12 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-12 arg-0) arg-1 arg-2 arg-3 eC-39 rig arg-6 nestC-39 envC-39 arg-14 (vector 1 (Normalise-Core-gnf (vector 1 arg-12 arg-0) envC-39 (TT-Core-renameTop 'erased 'erased arg-12 e-4))))) eta-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (let ((sc12 e-18)) (let ((e-20 (vector-ref sc12 1))) (let ((e-19 (vector-ref sc12 2))) (let ((act-32 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 exptynf eta-0))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-21 (vector-ref sc13 1))) (vector 0 e-21))) (else (let ((act-33 (Normalise-Core-logGlueNF (vector 1 arg-12 arg-0) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") envC-39 e-19 eta-0))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-22 (vector-ref sc14 1))) (vector 0 e-22))) (else (let ((act-34 ((Normalise-Core-getTerm 'erased e-19) eta-0))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-23 (vector-ref sc15 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc15 1))) ((Check-Elab-TTImp-checkExpP arg-0 arg-1 arg-3 arg-4 rig 0 arg-6 arg-8 arg-9 (vector 3 arg-9 arg-12 (vector 0 rigb e-16 e-15) e-20) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-12 (vector 2 rigb e-16 e-15) e-23)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 e-12 e-16 e-10) e-4)))) eta-0))))))))))))))))))))))))))))))))))))))))))))))(else (Binders-Elab-TTImp-inferLambda arg-0 arg-1 arg-2 arg-3 arg-4 rig arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (vector 1 e-2) eta-0)))))))))(else (Binders-Elab-TTImp-inferLambda arg-0 arg-1 arg-2 arg-3 arg-4 rig arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (vector 1 e-2) eta-0))))))))))))))))))))))))))))))) +(define As-Elab-TTImp-case--10221-7820 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-29)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (vector 0 e-1 e-2 e-3 e-4 (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9629-7098-rigAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 ) arg-23 arg-24 arg-20)) e-5) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9629-7098-rigAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 ) arg-23 arg-25 arg-20)) e-6) e-7 e-8 e-9 e-10 e-11 e-12 e-13))))))))))))))))) +(define As-Elab-TTImp-case--10221-7730 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31) (let ((sc0 arg-31)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 5 arg-5 arg-4 e-2 arg-20) arg-21))))))) +(define As-Elab-TTImp-case--10143-7567 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added as pattern name " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-17 (vector 0 (As-Elab-TTImp-n--9629-7098-rigAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 0 e-2 (vector 0 e-6 e-7))))))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (unbox arg-13))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (unbox arg-10))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 (set-box! arg-10 (let ((sc5 e-9)) (let ((e-1 (vector-ref sc5 1))) (let ((e-20 (vector-ref sc5 2))) (let ((e-19 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-18 (vector-ref sc5 5))) (let ((e-17 (vector-ref sc5 6))) (let ((e-16 (vector-ref sc5 7))) (let ((e-15 (vector-ref sc5 8))) (let ((e-14 (vector-ref sc5 9))) (let ((e-10 (vector-ref sc5 10))) (let ((e-11 (vector-ref sc5 11))) (let ((e-12 (vector-ref sc5 12))) (let ((e-13 (vector-ref sc5 13))) (vector 0 e-1 e-20 e-19 e-4 (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9629-7098-rigAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 ) e-2 e-6 arg-20)) e-18) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9629-7098-rigAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 ) e-2 e-7 arg-20)) e-17) e-16 e-15 e-14 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 ((Check-Elab-TTImp-checkExp arg-0 arg-13 arg-11 arg-10 arg-9 arg-8 arg-6 arg-5 e-2 (Normalise-Core-gnf arg-0 arg-6 e-6) (vector 1 arg-21)) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((sc7 e-11)) (let ((e-12 (vector-ref sc7 1))) (vector 1 (vector 0 (vector 5 arg-5 arg-4 e-12 arg-20) arg-21))))))))))))))))))))))))))))))))))) +(define As-Elab-TTImp-case--10069-7510 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-mkPatternHole arg-0 arg-10 arg-13 arg-11 arg-5 arg-9 arg-17 arg-6 (let ((sc1 arg-8)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-4)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-25 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added as pattern name " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-17 (vector 0 (As-Elab-TTImp-n--9629-7098-rigAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 0 e-6 (vector 0 e-8 e-7))))))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((act-26 (let ((act-26 (unbox arg-13))) (vector 1 act-26)))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((act-27 (let ((act-27 (unbox arg-10))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-28 (let ((act-28 (set-box! arg-10 (let ((sc7 e-11)) (let ((e-1 (vector-ref sc7 1))) (let ((e-23 (vector-ref sc7 2))) (let ((e-22 (vector-ref sc7 3))) (let ((e-21 (vector-ref sc7 4))) (let ((e-20 (vector-ref sc7 5))) (let ((e-19 (vector-ref sc7 6))) (let ((e-18 (vector-ref sc7 7))) (let ((e-17 (vector-ref sc7 8))) (let ((e-16 (vector-ref sc7 9))) (let ((e-15 (vector-ref sc7 10))) (let ((e-14 (vector-ref sc7 11))) (let ((e-12 (vector-ref sc7 12))) (let ((e-13 (vector-ref sc7 13))) (vector 0 e-1 e-23 e-22 e-21 (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9629-7098-rigAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 ) e-6 e-8 e-2)) e-20) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9629-7098-rigAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 ) e-6 e-7 e-2)) e-19) e-18 e-17 e-16 e-15 e-14 e-12 e-13)))))))))))))))))) (vector 1 act-28)))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((act-29 ((Check-Elab-TTImp-checkExp arg-0 arg-13 arg-11 arg-10 arg-9 arg-8 arg-6 arg-5 e-6 (Normalise-Core-gnf arg-0 arg-6 e-8) (vector 1 e-3)) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (let ((e-15 (vector-ref sc9 1))) (vector 1 (vector 0 (vector 5 arg-5 arg-4 e-15 e-2) e-3))))))))))))))))))))))))))))))))))))))))))) +(define As-Elab-TTImp-case--9994-7454 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 (As-Elab-TTImp-n--9629-7096-rigPat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) arg-8 arg-7 arg-6 arg-2 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 ((ImplicitBind-Elab-TTImp-mkPatternHole arg-0 arg-10 arg-13 arg-11 arg-5 arg-9 arg-17 arg-6 (let ((sc3 arg-8)) (let ((e-1 (vector-ref sc3 2))) e-1)) arg-1) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-7 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-4)) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((act-26 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added as pattern name " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-17 (vector 0 (As-Elab-TTImp-n--9629-7098-rigAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 0 e-7 (vector 0 e-9 e-8))))))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((act-27 (let ((act-27 (unbox arg-13))) (vector 1 act-27)))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((act-28 (let ((act-28 (unbox arg-10))) (vector 1 act-28)))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-29 (let ((act-29 (set-box! arg-10 (let ((sc9 e-12)) (let ((e-1 (vector-ref sc9 1))) (let ((e-24 (vector-ref sc9 2))) (let ((e-23 (vector-ref sc9 3))) (let ((e-22 (vector-ref sc9 4))) (let ((e-21 (vector-ref sc9 5))) (let ((e-20 (vector-ref sc9 6))) (let ((e-19 (vector-ref sc9 7))) (let ((e-18 (vector-ref sc9 8))) (let ((e-17 (vector-ref sc9 9))) (let ((e-16 (vector-ref sc9 10))) (let ((e-15 (vector-ref sc9 11))) (let ((e-14 (vector-ref sc9 12))) (let ((e-13 (vector-ref sc9 13))) (vector 0 e-1 e-24 e-23 e-22 (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9629-7098-rigAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 ) e-7 e-9 e-2)) e-21) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9629-7098-rigAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 ) e-7 e-8 e-2)) e-20) e-19 e-18 e-17 e-16 e-15 e-14 e-13)))))))))))))))))) (vector 1 act-29)))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((act-30 ((Check-Elab-TTImp-checkExp arg-0 arg-13 arg-11 arg-10 arg-9 arg-8 arg-6 arg-5 e-7 (Normalise-Core-gnf arg-0 arg-6 e-9) (vector 1 e-3)) eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (let ((sc11 e-14)) (let ((e-16 (vector-ref sc11 1))) (vector 1 (vector 0 (vector 5 arg-5 arg-4 e-16 e-2) e-3))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 35 arg-5 arg-3) eta-0))))))) +(define As-Elab-TTImp-case--9629-7389 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-10))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((n (vector 3 arg-3 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 2))) e-2))))) (let ((act-25 ((Check-Elab-TTImp-noteLHSPatVar 'erased arg-10 arg-14 arg-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Check-Elab-TTImp-notePatVar 'erased arg-10 n eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((elabmode (vector 1 e-0))) ((As-Elab-TTImp-case--9994-7454 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-0 elabmode e-5 n e-6 e-7 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) n (let ((sc4 e-5)) (let ((e-16 (vector-ref sc4 5))) e-16)))) eta-0)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Bad @-pattern " (TTImp-TTImp-show_Show__RawImp arg-2))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-5 "@-patterns only allowed in pattern clauses") eta-0))))))))))) +(define As-Elab-TTImp-case--9653-7324 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9))))) +(define As-Elab-TTImp-case--9653-7253 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9))))) +(define As-Elab-TTImp-case--9651-7181 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9))))) +(define As-Elab-TTImp-case--9651-7110 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9))))) +(define As-Elab-TTImp-n--9629-7095-rigPatC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (As-Elab-TTImp-case--9651-7110 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-9))) (else (As-Elab-TTImp-case--9651-7181 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-9))))))) +(define As-Elab-TTImp-n--9629-7096-rigPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (As-Elab-TTImp-n--9629-7095-rigPatC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-4))) +(define As-Elab-TTImp-n--9629-7097-rigAsC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (As-Elab-TTImp-case--9653-7253 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-9))) (else (As-Elab-TTImp-case--9653-7324 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-9))))))) +(define As-Elab-TTImp-n--9629-7098-rigAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (As-Elab-TTImp-n--9629-7097-rigAsC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-4))) +(define As-Elab-TTImp-checkAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((elabmode (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (let ((sc0 elabmode)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((n (vector 3 arg-11 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 2))) e-2))))) (let ((act-25 ((Check-Elab-TTImp-noteLHSPatVar 'erased arg-4 elabmode arg-11) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Check-Elab-TTImp-notePatVar 'erased arg-4 n eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((elabmode-0 (vector 1 e-0))) ((As-Elab-TTImp-case--9994-7454 arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-0 elabmode-0 e-5 n e-6 e-7 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) n (let ((sc4 e-5)) (let ((e-16 (vector-ref sc4 5))) e-16)))) eta-0)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Bad @-pattern " (TTImp-TTImp-show_Show__RawImp arg-12))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "@-patterns only allowed in pattern clauses") eta-0)))))))))))) +(define App-Elab-TTImp-case--16284-13555 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-13 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((App-Elab-TTImp-checkAppWith arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 e-2 e-5 (vector 0 (vector 0 ) 0) arg-3 arg-2 1 arg-1) eta-0)))))))))))) +(define App-Elab-TTImp-case--16982-13364 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) e-7))(else arg-1)))))(else arg-1)))))(else arg-1))))) +(define App-Elab-TTImp-case--16284-13193 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-14 e-7) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-fromIntegerName arg-14 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (Context-Core-fromStringName arg-14 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (Context-Core-fromCharName arg-14 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (let ((prims (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 ))))))) (let ((act-28 ((App-Elab-TTImp-n--16284-12649-updateElabInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 prims (let ((sc6 arg-9)) (let ((e-0 (vector-ref sc6 1))) e-0)) arg-1 arg-5 arg-9) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-29 (Context-Core-logC arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-29 (let ((act-29 (unbox arg-14))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-30 (Normalise-Core-quote_Quote__NF arg-0 e-12 arg-7 e-5 eta-1))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-31 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (vector 1 (vector 0 )))) (lambda () (lambda (t) (lambda (eta-2) (let ((act-31 ((Normalise-Core-getTerm 'erased t) eta-2))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-32 (Normalise-Core-normaliseHoles arg-0 e-12 arg-7 e-14 eta-2))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-33 (Context-Core-toFullNames 'erased arg-14 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-15 eta-2))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc11 1))) (vector 1 (vector 1 e-16)))))))))))))))))))) arg-3) eta-1))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-32 ((Context-Core-getFullName arg-14 arg-1) eta-1))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-33 (Context-Core-toFullNames 'erased arg-14 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-13 eta-1))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc11 1))) (vector 1 (Strings-Prelude-C-43C-43 "Checking application of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-15) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 ")" (Strings-Prelude-C-43C-43 " to " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) arg-5) (Strings-Prelude-C-43C-43 "\u000a\u0009Function type " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-16) (Strings-Prelude-C-43C-43 "\u000a\u0009Expected app type " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-14)))))))))))))))))))))))))))))))))))))) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (let ((fn (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (App-Elab-TTImp-case--16982-13364 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-2 e-6 e-7 _-0 e-5 e-8 e-9 e-10 prims e-11 e-12 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) arg-1 arg-8))))) (let ((act-30 ((App-Elab-TTImp-checkAppWith arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 e-11 arg-8 arg-7 arg-6 e-2 e-5 (vector 0 (vector 1 fn) e-6) arg-5 arg-4 1 arg-3) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (App-Elab-TTImp-n--16284-12648-normalisePrims arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-0 prims arg-7 e-13 eta-0))))))))))))))))))))))))))))))))))))))))))))))) +(define App-Elab-TTImp-case--16772-13081 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-18)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 (vector 2 ) e-1 e-2 e-3 e-4 e-5))))))))) +(define App-Elab-TTImp-case--16340-13024 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (let ((sc1 arg-18)) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (vector 0 (vector 2 ) e-1 e-2 e-3 e-4 e-5)))))))))) (else (lambda (eta-0) (vector 1 arg-18))))))) +(define App-Elab-TTImp-case--16452-12794 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-14))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normalise arg-15 e-5 arg-17 (Builtin-fst 'erased 'erased arg-16) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-6 (Builtin-snd 'erased 'erased arg-16))))))))))))))) (else (lambda (eta-0) (vector 1 arg-16))))))) +(define App-Elab-TTImp-case--16387-12744 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((27) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (App-Elab-TTImp-case--16452-12794 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-2 e-3 e-4 (App-Elab-TTImp-n--16284-12647-boundSafe arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-4 (let ((sc2 arg-9)) (let ((e-0 (vector-ref sc2 1))) e-0)))))))(else (lambda (eta-0) (vector 1 arg-16))))))))(else (lambda (eta-0) (vector 1 arg-16))))))) +(define App-Elab-TTImp-case--16339-12698 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (App-Elab-TTImp-case--16387-12744 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 (List-Data-reverse 'erased arg-5))) (else (lambda (eta-0) (vector 1 arg-16))))))) +(define App-Elab-TTImp-case--15906-12426 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37) (let ((sc0 arg-37)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-35)))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-32) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((UnifyState-Core-newConstant arg-4 arg-16 arg-18 arg-10 arg-14 arg-11 (Builtin-fst 'erased 'erased arg-35) e-5 arg-37) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 e-6 (Normalise-Core-gnf arg-4 arg-11 arg-25))))))))))))))))))) +(define App-Elab-TTImp-case--10371-12283 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((fntm (vector 4 arg-10 arg-9 e-2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-18))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf arg-4 e-5 arg-11 arg-25) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((expfnty (Normalise-Core-gnf arg-4 arg-11 (vector 3 arg-10 arg-21 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) arg-23) (TT-Core-weaken_Weaken__Term arg-21 arg-4 arg-25))))) (let ((act-26 (Normalise-Core-logGlue arg-4 arg-18 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-11 expfnty eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-4 arg-18 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-11 eta-1 eta-2)))) arg-5) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((App-Elab-TTImp-checkAppWith arg-4 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 fntm e-6 (vector 0 arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1)) arg-3 arg-7 arg-6 arg-5) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((Check-Elab-TTImp-convert arg-4 arg-18 arg-16 arg-15 arg-10 arg-13 arg-11 (Normalise-Core-glueBack arg-4 e-5 arg-11 arg-8) expfnty) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((_-0 (vector 0 e-2 e-3))) ((App-Elab-TTImp-case--15906-12426 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 e-2 e-3 _-0 fntm e-5 e-6 expfnty e-7 e-8 e-9 e-10 (let ((sc7 e-10)) (let ((e-0 (vector-ref sc7 1))) e-0))) eta-0)))))))))))))))))))))))))))))))))))))))) +(define App-Elab-TTImp-case--10371-12108 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (App-Elab-TTImp-checkAppWith arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (vector 0 ) (vector 0 ) arg-2 arg-1))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 26 arg-0 arg-7 arg-8 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-16) arg-6) eta-0))))))) +(define App-Elab-TTImp-case--10371-11932 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((0) (App-Elab-TTImp-makeDefImplicit arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-22 arg-16 arg-15 arg-14 arg-13 arg-12 arg-5 arg-1 arg-2 arg-4 arg-11 arg-10 arg-9 arg-8 arg-7)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (App-Elab-TTImp-checkRestApp arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-22 arg-16 arg-15 arg-14 arg-13 arg-12 arg-5 arg-2 arg-4 arg-11 e-5 arg-10 e-6 arg-8 arg-7)))))))))) +(define App-Elab-TTImp-case--15343-11793 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-23 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-25) arg-24)))) (else (App-Elab-TTImp-n--10371-11772-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 (vector 1 (vector 0 (vector 1 arg-22) arg-23) arg-25) arg-24)))))) +(define App-Elab-TTImp-case--10371-11649 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (App-Elab-TTImp-makeImplicit arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-21 arg-15 arg-14 arg-13 arg-12 arg-11 arg-4 arg-1 arg-3 arg-10 arg-9 arg-8 arg-7 arg-6)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (App-Elab-TTImp-checkRestApp arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-21 arg-15 arg-14 arg-13 arg-12 arg-11 arg-4 arg-1 arg-3 arg-10 e-5 arg-9 e-6 arg-7 arg-6)))))))))) +(define App-Elab-TTImp-case--15019-11512 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-22 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-24) arg-23)))) (else (App-Elab-TTImp-n--10371-11491-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 (vector 1 (vector 0 (vector 1 arg-21) arg-22) arg-24) arg-23)))))) +(define App-Elab-TTImp-case--10371-11369 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (App-Elab-TTImp-makeAutoImplicit arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-21 arg-15 arg-14 arg-13 arg-12 arg-11 arg-4 arg-1 arg-3 arg-10 arg-9 arg-8 arg-7 arg-6)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (App-Elab-TTImp-checkRestApp arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-21 arg-15 arg-14 arg-13 arg-12 arg-11 arg-4 arg-1 arg-3 arg-10 e-5 arg-9 e-6 arg-7 arg-6)))))))))) +(define App-Elab-TTImp-case--14679-11232 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-22 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-24) arg-23)))) (else (App-Elab-TTImp-n--10371-11194-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 (vector 1 (vector 0 (vector 1 arg-21) arg-22) arg-24) arg-23)))))) +(define App-Elab-TTImp-case--14346-10979 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30) (let ((sc0 arg-30)) (cond ((equal? sc0 0) (Check-Elab-TTImp-checkExp arg-0 arg-20 arg-18 arg-17 arg-16 arg-15 arg-13 arg-12 arg-11 (Normalise-Core-glueBack arg-0 arg-22 arg-13 arg-10) (vector 1 arg-1))) (else (App-Elab-TTImp-makeAutoImplicit arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-21 arg-15 arg-14 arg-13 arg-12 arg-11 arg-8 arg-5 arg-7 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1))))))) +(define App-Elab-TTImp-case--10371-10911 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((3) (let ((e-10 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__NF arg-0 arg-23 arg-13 arg-4 e-10 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (cond ((equal? sc4 0) ((Check-Elab-TTImp-checkExp arg-0 arg-20 arg-18 arg-17 arg-16 arg-15 arg-13 arg-12 arg-11 (Normalise-Core-glueBack arg-0 arg-23 arg-13 arg-10) (vector 1 arg-1)) eta-0)) (else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-21 arg-15 arg-14 arg-13 arg-12 arg-11 arg-8 arg-5 arg-7 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)) eta-0))))))))))))(else (App-Elab-TTImp-makeAutoImplicit arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-21 arg-15 arg-14 arg-13 arg-12 arg-11 arg-8 arg-5 arg-7 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))(else (App-Elab-TTImp-makeAutoImplicit arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-21 arg-15 arg-14 arg-13 arg-12 arg-11 arg-8 arg-5 arg-7 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))(else (App-Elab-TTImp-makeAutoImplicit arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-21 arg-15 arg-14 arg-13 arg-12 arg-11 arg-8 arg-5 arg-7 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1))))))) +(define App-Elab-TTImp-case--10371-10756 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((2) (Check-Elab-TTImp-checkExp arg-0 arg-19 arg-17 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 (Normalise-Core-glueBack arg-0 arg-22 arg-12 arg-9) (vector 1 arg-1)))(else (App-Elab-TTImp-makeAutoImplicit arg-0 arg-19 arg-18 arg-17 arg-16 arg-15 arg-20 arg-14 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))(else (App-Elab-TTImp-makeAutoImplicit arg-0 arg-19 arg-18 arg-17 arg-16 arg-15 arg-20 arg-14 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))(else (App-Elab-TTImp-makeAutoImplicit arg-0 arg-19 arg-18 arg-17 arg-16 arg-15 arg-20 arg-14 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1))))))) +(define App-Elab-TTImp-case--13847-10582 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (App-Elab-TTImp-makeImplicit arg-0 arg-19 arg-18 arg-17 arg-16 arg-15 arg-20 arg-14 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1))) (else (lambda (eta-0) (Check-Elab-TTImp-handle 'erased arg-0 arg-19 arg-18 arg-17 arg-16 (Check-Elab-TTImp-checkExp arg-0 arg-19 arg-17 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 (Normalise-Core-glueBack arg-0 arg-22 arg-12 arg-9) (vector 1 arg-1)) (lambda (err) (App-Elab-TTImp-makeImplicit arg-0 arg-19 arg-18 arg-17 arg-16 arg-15 arg-20 arg-14 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1))) eta-0))))))) +(define App-Elab-TTImp-case--10371-10473 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (Check-Elab-TTImp-checkExp arg-0 arg-19 arg-17 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 (Normalise-Core-glueBack arg-0 arg-22 arg-12 arg-9) (vector 1 arg-1)))(else (App-Elab-TTImp-case--13847-10582 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 (Prelude-not (let ((sc2 arg-14)) (let ((e-9 (vector-ref sc2 5))) e-9)))))))))(else (App-Elab-TTImp-case--13847-10582 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 (Prelude-not (let ((sc1 arg-14)) (let ((e-6 (vector-ref sc1 5))) e-6)))))))))(else (App-Elab-TTImp-case--13847-10582 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 (Prelude-not (let ((sc0 arg-14)) (let ((e-4 (vector-ref sc0 5))) e-4))))))))) +(define App-Elab-TTImp-case--12056-10257 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-29)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logGlueNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got arg type") arg-13 e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (unbox arg-21))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((fntm (vector 4 arg-12 arg-11 e-2))) (let ((act-26 (((arg-8 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-2)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-7 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-24 arg-3) eta-0)))))))))))))))))))))) +(define App-Elab-TTImp-case--12470-9898 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49 arg-50) (let ((sc0 arg-50)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-updateDef arg-21 (vector 9 arg-29) (lambda (eta-1) (vector 1 (vector 7 0 (Context-Core-holeInit 1)))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 arg-30 arg-42) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define App-Elab-TTImp-case--12665-9578 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49 arg-50) (let ((sc0 arg-50)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-36)))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-37) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((UnifyState-Core-newConstant arg-0 arg-19 arg-21 arg-12 arg-17 arg-13 arg-36 e-5 arg-50) eta-0)))))))))))) +(define App-Elab-TTImp-case--12470-9463 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49) (let ((sc0 arg-49)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-convert arg-0 arg-21 arg-19 arg-18 arg-12 arg-15 arg-13 (Normalise-Core-gnf arg-0 arg-13 arg-30) (Normalise-Core-gnf arg-0 arg-13 arg-42)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((App-Elab-TTImp-case--12665-9578 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0)))))))) (else (lambda (eta-0) (vector 1 arg-36))))))) +(define App-Elab-TTImp-case--12310-9300 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42) (let ((sc0 arg-42)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 (App-Elab-TTImp-onLHS (let ((sc2 arg-15)) (let ((e-0 (vector-ref sc2 1))) e-0))))) (cond ((equal? sc1 0) ((App-Elab-TTImp-checkPatTyValid arg-0 arg-21 arg-12 arg-39 arg-13 arg-40 e-2 e-3) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-21))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Solving " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-30) " with"))) e-2 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 arg-30 e-2) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((_-0 (vector 0 e-2 e-3))) ((App-Elab-TTImp-case--12470-9463 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 e-2 e-3 _-0 e-5 e-6 e-7 e-8 (Prelude-not e-8)) eta-0)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (let ((_-0 (vector 0 e-2 e-3))) ((App-Elab-TTImp-case--12470-9898 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 e-2 e-3 _-0 e-5 e-6 e-7 e-8 e-9 (let ((sc6 arg-15)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 (UnifyState-Core-removeHole arg-19 arg-29 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-9 arg-37))))))))))))))))))))))))))))))))))))))))) +(define App-Elab-TTImp-case--12163-9172 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36) (let ((sc0 arg-36)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-21))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf arg-0 e-5 arg-13 arg-28) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Now trying " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-26) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Check-Elab-TTImp-check arg-0 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 arg-23 (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-13 e-6))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-28 (let ((sc6 (App-Elab-TTImp-onLHS (let ((sc7 arg-15)) (let ((e-0 (vector-ref sc7 1))) e-0))))) (cond ((equal? sc6 0) ((App-Elab-TTImp-checkPatTyValid arg-0 arg-21 arg-12 e-5 arg-13 e-6 e-9 e-4) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-29 (let ((act-29 (unbox arg-21))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-30 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Solving " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-30) " with"))) e-9 eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-31 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 arg-30 e-9) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-32 (let ((_-1 (vector 0 e-9 e-4))) ((App-Elab-TTImp-case--12470-9463 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 e-2 e-3 _-0 e-5 e-6 e-7 e-9 e-4 _-1 e-10 e-11 e-12 e-13 (Prelude-not e-13)) eta-0)))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-33 (let ((_-1 (vector 0 e-9 e-4))) ((App-Elab-TTImp-case--12470-9898 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 e-2 e-3 _-0 e-5 e-6 e-7 e-9 e-4 _-1 e-10 e-11 e-12 e-13 e-14 (let ((sc11 arg-15)) (let ((e-0 (vector-ref sc11 1))) e-0))) eta-0)))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-15 (vector-ref sc11 1))) (vector 0 e-15))) (else (let ((act-34 (UnifyState-Core-removeHole arg-19 arg-29 eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-16 (vector-ref sc12 1))) (vector 0 e-16))) (else (vector 1 (vector 0 e-14 e-3))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define App-Elab-TTImp-case--12056-9049 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-29)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((fntm (vector 4 arg-12 arg-11 e-3))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Delaying " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-26) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 arg-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...as") e-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (((arg-8 arg-22) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-3)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-7 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-24 arg-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-28 (let ((act-28 (unbox arg-21))) (vector 1 act-28)))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-29 ((Normalise-Core-nf arg-0 e-10 arg-13 arg-28) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-30 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Now trying " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-26) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 e-11 eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-31 ((Check-Elab-TTImp-check arg-0 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 arg-23 (vector 1 (Normalise-Core-glueBack arg-0 e-10 arg-13 e-11))) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((_-1 (vector 0 e-9 e-4))) (let ((sc10 e-13)) (let ((e-15 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((act-32 (let ((sc11 (App-Elab-TTImp-onLHS (let ((sc12 arg-15)) (let ((e-0 (vector-ref sc12 1))) e-0))))) (cond ((equal? sc11 0) ((App-Elab-TTImp-checkPatTyValid arg-0 arg-21 arg-12 e-10 arg-13 e-11 e-15 e-14) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-33 (let ((act-33 (unbox arg-21))) (vector 1 act-33)))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-34 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Solving " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-3) " with"))) e-15 eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-18 (vector-ref sc13 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc13 1))) (let ((act-35 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 e-3 e-15) eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (let ((act-36 (let ((_-2 (vector 0 e-15 e-14))) ((App-Elab-TTImp-case--12470-9463 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 e-2 e-3 _-0 fntm e-5 e-6 e-7 e-9 e-4 _-1 e-10 e-11 e-12 e-15 e-14 _-2 e-16 e-17 e-18 e-19 (Prelude-not e-19)) eta-0)))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-20 (vector-ref sc15 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc15 1))) (let ((act-37 (let ((_-2 (vector 0 e-15 e-14))) ((App-Elab-TTImp-case--12470-9898 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 e-2 e-3 _-0 fntm e-5 e-6 e-7 e-9 e-4 _-1 e-10 e-11 e-12 e-15 e-14 _-2 e-16 e-17 e-18 e-19 e-20 (let ((sc16 arg-15)) (let ((e-0 (vector-ref sc16 1))) e-0))) eta-0)))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-21 (vector-ref sc16 1))) (vector 0 e-21))) (else (let ((act-38 (UnifyState-Core-removeHole arg-19 e-2 eta-0))) (let ((sc17 act-38)) (case (vector-ref sc17 0) ((0) (let ((e-22 (vector-ref sc17 1))) (vector 0 e-22))) (else (vector 1 (vector 0 e-20 e-4)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define App-Elab-TTImp-case--10365-8962 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((UnifyState-Core-genMVName arg-21 arg-19 arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs arg-22 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-13 arg-9 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Check-Elab-TTImp-argVar arg-0 arg-21 arg-19 (TTImp-TTImp-getFC arg-23) arg-16 arg-13 e-5 e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((fntm (vector 4 arg-12 arg-11 e-3))) (let ((act-28 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Delaying " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 arg-9 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...as") e-3 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 (((arg-8 arg-22) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-3)) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-31 ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-11 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-24 arg-3) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc9 1))) (let ((_-0 (vector 0 e-2 e-3))) (let ((sc10 e-12)) (let ((e-13 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((act-32 (let ((act-32 (unbox arg-21))) (vector 1 act-32)))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-33 ((Normalise-Core-nf arg-0 e-14 arg-13 e-7) eta-0))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-15 (vector-ref sc12 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc12 1))) (let ((act-34 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Now trying " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 e-15 eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (let ((act-35 ((Check-Elab-TTImp-check arg-0 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 arg-23 (vector 1 (Normalise-Core-glueBack arg-0 e-14 arg-13 e-15))) eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-17 (vector-ref sc14 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc14 1))) (let ((_-1 (vector 0 e-13 e-4))) (let ((sc15 e-17)) (let ((e-19 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((act-36 (let ((sc16 (App-Elab-TTImp-onLHS (let ((sc17 arg-15)) (let ((e-0 (vector-ref sc17 1))) e-0))))) (cond ((equal? sc16 0) ((App-Elab-TTImp-checkPatTyValid arg-0 arg-21 arg-12 e-14 arg-13 e-15 e-19 e-18) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-20 (vector-ref sc16 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-37 (let ((act-37 (unbox arg-21))) (vector 1 act-37)))) (let ((sc17 act-37)) (case (vector-ref sc17 0) ((0) (let ((e-21 (vector-ref sc17 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc17 1))) (let ((act-38 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Solving " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-3) " with"))) e-19 eta-0))) (let ((sc18 act-38)) (case (vector-ref sc18 0) ((0) (let ((e-22 (vector-ref sc18 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc18 1))) (let ((act-39 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 e-3 e-19) eta-0))) (let ((sc19 act-39)) (case (vector-ref sc19 0) ((0) (let ((e-23 (vector-ref sc19 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc19 1))) (let ((act-40 (let ((_-2 (vector 0 e-19 e-18))) ((App-Elab-TTImp-case--12470-9463 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 e-5 e-6 e-7 e-2 e-3 _-0 fntm e-9 e-10 e-11 e-13 e-4 _-1 e-14 e-15 e-16 e-19 e-18 _-2 e-20 e-21 e-22 e-23 (Prelude-not e-23)) eta-0)))) (let ((sc20 act-40)) (case (vector-ref sc20 0) ((0) (let ((e-24 (vector-ref sc20 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc20 1))) (let ((act-41 (let ((_-2 (vector 0 e-19 e-18))) ((App-Elab-TTImp-case--12470-9898 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 e-5 e-6 e-7 e-2 e-3 _-0 fntm e-9 e-10 e-11 e-13 e-4 _-1 e-14 e-15 e-16 e-19 e-18 _-2 e-20 e-21 e-22 e-23 e-24 (let ((sc21 arg-15)) (let ((e-0 (vector-ref sc21 1))) e-0))) eta-0)))) (let ((sc21 act-41)) (case (vector-ref sc21 0) ((0) (let ((e-25 (vector-ref sc21 1))) (vector 0 e-25))) (else (let ((act-42 (UnifyState-Core-removeHole arg-19 e-2 eta-0))) (let ((sc22 act-42)) (case (vector-ref sc22 0) ((0) (let ((e-26 (vector-ref sc22 1))) (vector 0 e-26))) (else (vector 1 (vector 0 e-24 e-4))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Argument type " (Name-Core-show_Show__Name arg-10))) arg-13 arg-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Full function type") arg-13 (vector 0 arg-12 arg-10 (vector 2 arg-16 (vector 1 ) arg-9) arg-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-logC arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (vector 1 (vector 0 )))) (lambda () (lambda (t) (lambda (eta-2) (let ((act-26 ((Normalise-Core-getTerm 'erased t) eta-2))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-toFullNames 'erased arg-21 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-7 eta-2))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 e-8))))))))))))))) arg-3) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Overall expected type: " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-7))))))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((Check-Elab-TTImp-check arg-0 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 arg-23 (vector 1 (Normalise-Core-glueBack arg-0 arg-22 arg-13 arg-9))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((act-28 (Normalise-Core-logGlueNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got arg type") arg-13 e-3 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-29 (let ((act-29 (unbox arg-21))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc7 1))) (let ((fntm (vector 4 arg-12 arg-11 e-2))) (let ((act-30 (((arg-8 e-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-2)) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-11 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-24 arg-3) eta-0)))))))))))))))))))))))))))))))))))))))))) +(define App-Elab-TTImp-case--10365-8854 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (lambda (eta-0) (let ((act-24 (((arg-8 arg-22) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 10 arg-12 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((App-Elab-TTImp-concrete 'erased arg-22 arg-13 e-5) eta-0)))))))))))) +(define App-Elab-TTImp-case--11747-8729 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-1))) (else (lambda (eta-0) (vector 1 (App-Elab-TTImp-n--10363-8529-dotTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-1)))))))) +(define App-Elab-TTImp-case--11709-8707 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (App-Elab-TTImp-case--11747-8729 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-3 (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 5))) e-4))))))) (else (lambda (eta-0) (vector 1 (App-Elab-TTImp-n--10363-8529-dotTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-1)))))))) +(define App-Elab-TTImp-case--10363-8672 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (n) (Context-Core-lookupCtxtExact n (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))))) arg-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((App-Elab-TTImp-case--11747-8729 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5 e-1 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-3 (let ((sc4 e-1)) (let ((e-4 (vector-ref sc4 5))) e-4)))) eta-0)))) (else (vector 1 (App-Elab-TTImp-n--10363-8529-dotTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-1))))))))))))))))) (else (lambda (eta-0) (vector 1 arg-1))))))) +(define App-Elab-TTImp-case--11557-8533 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((18) arg-6) ((16) arg-6) ((31) arg-6) ((17) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((sc1 e-10)) (case (vector-ref sc1 0) ((16) arg-6) ((31) arg-6)(else (vector 17 e-7 e-8 e-9 (vector 18 e-7 (vector 3 ) arg-6))))))))))(else (vector 18 (TTImp-TTImp-getFC arg-6) (vector 3 ) arg-6)))))) +(define App-Elab-TTImp-case--11342-8392 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 43 arg-0 arg-10 arg-8 arg-7) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define App-Elab-TTImp-case--11293-8348 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-11 arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((App-Elab-TTImp-concrete 'erased arg-9 arg-8 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 43 arg-0 arg-10 arg-8 arg-7) eta-0)) (else (vector 1 (vector 0 ))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define App-Elab-TTImp-case--10360-8312 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (App-Elab-TTImp-case--11293-8348 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-1 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define App-Elab-TTImp-case--10353-8093 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0)))))))(else (lambda (eta-0) (vector 1 0))))))) +(define App-Elab-TTImp-case--10347-7850 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-21))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((UnifyState-Core-genMVName arg-21 arg-19 arg-10) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-13 arg-8 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-21 arg-19 arg-12 arg-16 arg-13 e-6 e-8 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((fntm (vector 4 arg-12 arg-11 e-9))) (let ((act-29 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-9)) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((act-30 (unbox arg-18))) (vector 1 act-30)))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (let ((act-31 (set-box! arg-18 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-6 arg-16 (vector 2 ) arg-13 e-9 e-8 e-11)))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-10 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-4 arg-3) eta-0))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-21))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-13 arg-9 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((fntm (vector 4 arg-12 arg-11 e-7))) (let ((act-27 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-7)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-8 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-4 arg-3) eta-0)))))))))))))))))))))))))))) +(define App-Elab-TTImp-case--10341-7589 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-20))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((UnifyState-Core-genMVName arg-20 arg-18 arg-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-12 arg-8 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-20 arg-18 arg-11 arg-15 arg-12 e-6 e-8 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((fntm (vector 4 arg-11 arg-10 e-9))) (let ((act-29 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 e-9)) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((act-30 (unbox arg-17))) (vector 1 act-30)))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (let ((act-31 (set-box! arg-17 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-6 arg-15 (vector 2 ) arg-12 e-9 e-8 e-11)))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else ((App-Elab-TTImp-checkAppWith arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-14 arg-13 arg-12 arg-11 fntm e-10 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-4 arg-3) eta-0))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-20))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((UnifyState-Core-genMVName arg-20 arg-18 arg-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-12 arg-8 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (unbox arg-17))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-getAutoImplicitLimit arg-20 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Check-Elab-TTImp-searchVar arg-0 arg-20 arg-18 arg-11 arg-15 e-9 (vector 9 (let ((sc6 e-8)) (let ((e-2 (vector-ref sc6 2))) e-2))) arg-12 e-6 e-7 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((fntm (vector 4 arg-11 arg-10 e-10))) (let ((act-30 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 e-10)) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) ((App-Elab-TTImp-checkAppWith arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-14 arg-13 arg-12 arg-11 fntm e-11 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-4 arg-3) eta-0))))))))))))))))))))))))))))))))))))))))))) +(define App-Elab-TTImp-case--9907-7042 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (vector 1 )) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (vector 2 e-5 e-6)))) ((6) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (vector 3 e-8 e-9))))(else (vector 1 )))))) +(define App-Elab-TTImp-case--9768-6969 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-14) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((nt (let ((bind-0 (vector 1 e-2))) (App-Elab-TTImp-case--9907-7042 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-2 bind-0 (let ((sc1 e-2)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (let ((tm ((arg-11 arg-2) nt))) (let ((tyenv (App-Elab-TTImp-n--9678-6776-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-0 ((TT-Core-getArgs 'erased) tm) (TT-Core-embed 'erased 'erased (let ((sc1 e-2)) (let ((e-21 (vector-ref sc1 3))) e-21)))))) (lambda (eta-0) (let ((act-24 ((App-Elab-TTImp-checkVisibleNS arg-8 arg-2 (let ((sc1 e-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) (let ((sc1 e-2)) (let ((e-9 (vector-ref sc1 10))) e-9))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 (Context-Core-logTerm arg-0 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Type of " (Name-Core-show_Show__Name arg-14))) tyenv eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 (Context-Core-logTerm arg-0 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expands to") tm eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-27 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Arg length " (Prelude-show_Show__Nat arg-13))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 (vector 0 tm (vector 0 arg-13 (Normalise-Core-gnf arg-0 arg-3 tyenv)))))))))))))))))))))))))))))) +(define App-Elab-TTImp-case--9768-6880 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 0 e-3))))))))) +(define App-Elab-TTImp-case--9678-6847 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((App-Elab-TTImp-getNameType arg-0 arg-8 arg-7 arg-6 arg-5 arg-3 arg-2 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-2 (vector 0 0 e-3))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((arglen (List-Data-length 'erased e-9))) (let ((nC-39 (Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (eta-1) eta-1)) e-5))) (let ((act-25 ((Context-Core-lookupCtxtExact nC-39 (let ((sc4 e-7)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 nC-39) eta-0)) (else (let ((e-3 (vector-ref sc5 1))) (let ((nt (let ((bind-0 (vector 1 e-3))) (App-Elab-TTImp-case--9907-7042 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 e-9 e-10 e-7 arglen nC-39 e-3 bind-0 (let ((sc6 e-3)) (let ((e-17 (vector-ref sc6 18))) e-17)))))) (let ((tm ((e-10 arg-2) nt))) (let ((tyenv (App-Elab-TTImp-n--9678-6776-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-0 ((TT-Core-getArgs 'erased) tm) (TT-Core-embed 'erased 'erased (let ((sc6 e-3)) (let ((e-28 (vector-ref sc6 3))) e-28)))))) (let ((act-26 ((App-Elab-TTImp-checkVisibleNS arg-8 arg-2 (let ((sc6 e-3)) (let ((e-1 (vector-ref sc6 2))) e-1)) (let ((sc6 e-3)) (let ((e-22 (vector-ref sc6 10))) e-22))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-27 (Context-Core-logTerm arg-0 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Type of " (Name-Core-show_Show__Name nC-39))) tyenv eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-28 (Context-Core-logTerm arg-0 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expands to") tm eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-29 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Arg length " (Prelude-show_Show__Nat arglen))) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (vector 1 (vector 0 tm (vector 0 arglen (Normalise-Core-gnf arg-0 arg-3 tyenv)))))))))))))))))))))))))))))))))))))))))))))))))))) +(define App-Elab-TTImp-case--9375-6532 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (vector 1 )) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (vector 2 e-5 e-6)))) ((6) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (vector 3 e-8 e-9))))(else (vector 1 )))))) +(define App-Elab-TTImp-case--9172-6486 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-7 e-6) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc4 1))) ((App-Elab-TTImp-checkVisibleNS arg-7 arg-2 e-5 (let ((sc5 e-11)) (let ((e-9 (vector-ref sc5 10))) e-9))) eta-0)))))))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (App-Elab-TTImp-n--9114-6254-rigSafe arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc5 e-11)) (let ((e-23 (vector-ref sc5 8))) e-23)) arg-4 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (let ((nt (let ((_-0 (vector 1 (vector 0 e-6 (vector 0 e-10 e-11)) (vector 0 )))) (App-Elab-TTImp-case--9375-6532 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6 e-10 e-11 _-0 e-5 e-8 (let ((sc6 e-11)) (let ((e-17 (vector-ref sc6 18))) e-17)))))) (vector 1 (vector 0 (vector 1 arg-2 nt (vector 9 e-10)) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased (let ((sc6 e-11)) (let ((e-27 (vector-ref sc6 3))) e-27)))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-9)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-9)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-9)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-9)) eta-0))))))) +(define App-Elab-TTImp-case--9172-6405 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (vector 0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 (vector 1 arg-8 e-11) e-12 e-13))))))))))))))))) +(define App-Elab-TTImp-case--9114-6297 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (App-Elab-TTImp-n--9114-6254-rigSafe arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-6 arg-4 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((binder (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3275) (TT-Core-weaken_Weaken__Term n vars arg-3275)))) (lambda (vars) (lambda (ns) (lambda (arg-3279) (TT-Core-weakenNs_Weaken__Term vars ns arg-3279))))) arg-0 e-5 'erased arg-3))) (let ((bty (TT-Core-binderType 'erased binder))) (let ((act-25 (Metadata-Core-addNameType arg-0 arg-7 arg-6 arg-2 arg-1 arg-3 bty eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-26 (let ((sc4 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) e-6))) (cond ((equal? sc4 0) (let ((act-26 (let ((act-26 (unbox arg-5))) (vector 1 act-26)))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 (set-box! arg-5 (let ((sc6 e-9)) (let ((e-19 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((e-3 (vector-ref sc6 3))) (let ((e-4 (vector-ref sc6 4))) (let ((e-18 (vector-ref sc6 5))) (let ((e-17 (vector-ref sc6 6))) (let ((e-16 (vector-ref sc6 7))) (let ((e-15 (vector-ref sc6 8))) (let ((e-14 (vector-ref sc6 9))) (let ((e-10 (vector-ref sc6 10))) (let ((e-11 (vector-ref sc6 11))) (let ((e-12 (vector-ref sc6 12))) (let ((e-13 (vector-ref sc6 13))) (vector 0 e-19 e-2 e-3 e-4 e-18 e-17 e-16 e-15 e-14 e-10 (vector 1 e-5 e-11) e-12 e-13)))))))))))))))))) (vector 1 act-27)))))))) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 0 (vector 0 arg-2 (vector 1 (App-Elab-TTImp-n--9114-6253-isLet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased binder)) e-5) (Normalise-Core-gnf arg-0 arg-3 bty))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtName arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-7 e-8) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc7 1))) ((App-Elab-TTImp-checkVisibleNS arg-7 arg-2 e-9 (let ((sc8 e-11)) (let ((e-23 (vector-ref sc8 10))) e-23))) eta-0)))))))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 (App-Elab-TTImp-n--9114-6254-rigSafe arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc8 e-11)) (let ((e-25 (vector-ref sc8 8))) e-25)) arg-4 eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc8 1))) (let ((nt (let ((_-0 (vector 1 (vector 0 e-8 (vector 0 e-10 e-11)) (vector 0 )))) (App-Elab-TTImp-case--9375-6532 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 e-8 e-10 e-11 _-0 e-9 e-12 (let ((sc9 e-11)) (let ((e-17 (vector-ref sc9 18))) e-17)))))) (vector 1 (vector 0 (vector 1 arg-2 nt (vector 9 e-10)) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased (let ((sc9 e-11)) (let ((e-29 (vector-ref sc9 3))) e-29))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))))))))))))))) +(define App-Elab-TTImp-case--8999-6172 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 8 arg-3 (vector 0 arg-1 arg-0) (vector 0 )) eta-0))))))) +(define App-Elab-TTImp-case--8985-6139 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-isAllPublic arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-getNS arg-4 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-getNestedNS arg-4 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((bind-0 0)) ((App-Elab-TTImp-case--8999-6172 arg-0 arg-1 arg-2 arg-3 arg-4 bind-0 e-5 e-6 e-7 (Prelude-C-124C-124 e-5 (lambda () (Context-Core-visibleInAny (vector 1 e-6 e-7) (vector 0 arg-1 arg-0) arg-2)))) eta-0))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 8 arg-3 (vector 0 arg-1 arg-0) (vector 1 arg-1)) eta-0))))))) +(define App-Elab-TTImp-n--9678-6776-useVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) arg-11) ((1) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((3) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((e-16 (vector-ref sc1 3))) (let ((e-17 (vector-ref sc1 4))) (let ((sc2 e-16)) (case (vector-ref sc2 0) ((2) (let ((e-19 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 3))) (vector 3 e-14 e-15 (vector 1 e-19 e-11 e-21) (App-Elab-TTImp-n--9678-6776-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-15 arg-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-15 arg-9 eta-0)) e-12) e-17)))))(else (let ((sc2 arg-11)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((e-8 (vector-ref sc3 3))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (App-Elab-TTImp-n--9678-6776-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-2 arg-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-2 arg-9 eta-0)) arg-10) e-4))))))(else arg-11))))))))(else arg-11)))))))))))(else (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (App-Elab-TTImp-n--9678-6776-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-2 arg-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-2 arg-9 eta-0)) arg-10) e-4))))))(else arg-11))))))))(else arg-11)))))))))(else (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (App-Elab-TTImp-n--9678-6776-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-2 arg-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-2 arg-9 eta-0)) arg-10) e-4))))))(else arg-11))))))))(else arg-11)))))))) +(define App-Elab-TTImp-n--10371-11772-useImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (App-Elab-TTImp-case--15343-11793 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 e-9 e-7 e-3 arg-22 (Name-Core-C-61C-61_Eq__Name arg-5 e-9))))(else (App-Elab-TTImp-n--10371-11772-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 (vector 1 e-2 arg-22) e-3)))))))(else (App-Elab-TTImp-n--10371-11772-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 (vector 1 e-2 arg-22) e-3))))))))))) +(define App-Elab-TTImp-n--10371-11491-useImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (App-Elab-TTImp-case--15019-11512 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 e-9 e-7 e-3 arg-21 (Name-Core-C-61C-61_Eq__Name arg-4 e-9))))(else (App-Elab-TTImp-n--10371-11491-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 (vector 1 e-2 arg-21) e-3)))))))(else (App-Elab-TTImp-n--10371-11491-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 (vector 1 e-2 arg-21) e-3))))))))))) +(define App-Elab-TTImp-n--10371-11194-useAutoImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 e-7 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-21) e-3)))) ((1) (let ((e-10 (vector-ref sc2 1))) (App-Elab-TTImp-case--14679-11232 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 e-10 e-7 e-3 arg-21 (Name-Core-C-61C-61_Eq__Name arg-4 e-10))))(else (App-Elab-TTImp-n--10371-11194-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 (vector 1 e-2 arg-21) e-3)))))))(else (App-Elab-TTImp-n--10371-11194-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 (vector 1 e-2 arg-21) e-3))))))))))) +(define App-Elab-TTImp-n--16284-12649-updateElabInfo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-18)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-14 arg-17) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) ((App-Elab-TTImp-case--16340-13024 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-0 e-5 e-4 arg-19 arg-17 arg-15 e-6 (App-Elab-TTImp-n--16284-12646-isPrimName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-6)) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-19))))))))(else (lambda (eta-0) (vector 1 arg-19))))))))(else (lambda (eta-0) (vector 1 arg-19)))))))(else (lambda (eta-0) (vector 1 arg-19))))))) +(define App-Elab-TTImp-n--9114-6254-rigSafe (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 ((Context-Core-getFullName arg-7 arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-256 arg-257))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-259) (lambda (arg-261) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-259 arg-261))))))) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-8 arg-9))) (cond ((equal? sc1 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 14 arg-2 e-5 arg-8 arg-9) ext-0)) (else (vector 1 (vector 0 )))))))))))) +(define App-Elab-TTImp-n--10371-12072-notInfer (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((31) 1) ((17) (let ((e-9 (vector-ref sc1 4))) (App-Elab-TTImp-n--10371-12072-notInfer arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (vector 0 e-2 e-9))))(else 0))))))(else 0))))) +(define App-Elab-TTImp-n--16284-12648-normalisePrims (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 ext-0) (let ((act-24 ((Context-Core-getFullName arg-14 arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((App-Elab-TTImp-case--16339-12698 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-18 arg-17 arg-16 e-5 (App-Elab-TTImp-n--16284-12646-isPrimName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-16 e-5)) ext-0)))))))) +(define App-Elab-TTImp-n--10347-7840-metavarImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((1) 0) ((3) 0)(else 1))))) +(define App-Elab-TTImp-n--10341-7579-metavarImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((1) 0) ((3) 0)(else 1))))) +(define App-Elab-TTImp-n--16284-12646-isPrimName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-124C-124 (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS arg-16) e-2) (lambda () (App-Elab-TTImp-n--16284-12646-isPrimName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-3 arg-16)))))))))) +(define App-Elab-TTImp-n--9114-6253-isLet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) 0)(else 1))))) +(define App-Elab-TTImp-n--10363-8529-dotTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((18) arg-6) ((16) arg-6) ((31) arg-6) ((17) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((sc1 e-10)) (case (vector-ref sc1 0) ((16) arg-6) ((31) arg-6)(else (vector 17 e-7 e-8 e-9 (vector 18 e-7 (vector 3 ) arg-6))))))))))(else (vector 18 (TTImp-TTImp-getFC arg-6) (vector 3 ) arg-6)))))) +(define App-Elab-TTImp-n--16284-12647-boundSafe (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) 0)(else (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (Prelude-C-60_Ord__Integer (Prelude-abs_Abs__Integer e-0) 100)))(else 0)))))))) (define App-Elab-TTImp-onLHS (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) 0)(else 1))))) (define App-Elab-TTImp-needsDelayLHS (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) ((8) (let ((e-3 (vector-ref sc0 2))) (App-Elab-TTImp-needsDelayLHS arg-0 e-3))) ((9) (let ((e-6 (vector-ref sc0 2))) (App-Elab-TTImp-needsDelayLHS arg-0 e-6))) ((12) (lambda (eta-0) (vector 1 0))) ((11) (lambda (eta-0) (vector 1 0))) ((27) (lambda (eta-0) (vector 1 0))) ((28) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))) (define App-Elab-TTImp-needsDelayExpr (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 1) (lambda (eta-0) (vector 1 1))) (else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-1 (let ((sc3 e-5)) (let ((e-28 (vector-ref sc3 1))) e-28))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (vector 1 1)) ((1) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (vector 1 1))(else (vector 1 0))))))(else (vector 1 0))))))))))))))))) ((8) (let ((e-3 (vector-ref sc1 2))) (App-Elab-TTImp-needsDelayExpr arg-0 0 e-3))) ((9) (let ((e-6 (vector-ref sc1 2))) (App-Elab-TTImp-needsDelayExpr arg-0 0 e-6))) ((2) (lambda (eta-0) (vector 1 0))) ((4) (lambda (eta-0) (vector 1 0))) ((5) (lambda (eta-0) (vector 1 0))) ((7) (lambda (eta-0) (vector 1 0))) ((12) (lambda (eta-0) (vector 1 0))) ((11) (lambda (eta-0) (vector 1 0))) ((13) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))))) (define App-Elab-TTImp-needsDelay (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (App-Elab-TTImp-needsDelayLHS arg-0 arg-3))(else (App-Elab-TTImp-needsDelayExpr arg-0 arg-2 arg-3)))))) (define App-Elab-TTImp-makeImplicit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((UnifyState-Core-genMVName arg-1 arg-3 arg-12) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-9 arg-13 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-10 arg-6 arg-9 e-6 e-8 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((fntm (vector 4 arg-10 arg-11 e-9))) (let ((act-29 (((arg-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-9 e-9)) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((sc7 (let ((sc8 arg-7)) (let ((e-12 (vector-ref sc8 4))) e-12)))) (cond ((equal? sc7 0) (let ((act-30 (let ((act-30 (unbox arg-4))) (vector 1 act-30)))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-31 (set-box! arg-4 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-6 arg-6 (vector 0 ) arg-9 e-9 e-8 e-11)))) (vector 1 act-31)))))))) (else (vector 1 (vector 0 ))))))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9 arg-10 fntm e-10 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) arg-16 arg-17 arg-18 arg-19) eta-0)))))))))))))))))))))))))))))))))))))))))) -(define App-Elab-TTImp-makeDefImplicit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (App-Elab-TTImp-case--10296-7842 arg-0 e-2 e-3 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (App-Elab-TTImp-n--10296-7832-metavarImp arg-0 e-2 e-3 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))))))))) -(define App-Elab-TTImp-makeAutoImplicit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (App-Elab-TTImp-case--10290-7581 arg-0 e-2 e-3 arg-19 arg-18 arg-17 arg-16 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (App-Elab-TTImp-n--10290-7571-metavarImp arg-0 e-2 e-3 arg-19 arg-18 arg-17 arg-16 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))))))))) +(define App-Elab-TTImp-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--10347-7850 arg-0 e-2 e-3 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (App-Elab-TTImp-n--10347-7840-metavarImp arg-0 e-2 e-3 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))))))))) +(define App-Elab-TTImp-makeAutoImplicit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (App-Elab-TTImp-case--10341-7589 arg-0 e-2 e-3 arg-19 arg-18 arg-17 arg-16 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (App-Elab-TTImp-n--10341-7579-metavarImp arg-0 e-2 e-3 arg-19 arg-18 arg-17 arg-16 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))))))))) (define App-Elab-TTImp-isHole (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) 0)(else 1)))))(else 1))))) -(define App-Elab-TTImp-getVarType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (App-Elab-TTImp-case--9627-6839 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-8 arg-5)))) -(define App-Elab-TTImp-getNameType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (App-Elab-TTImp-case--9063-6289 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (Env-Core-defined arg-0 arg-7 arg-5)))) -(define App-Elab-TTImp-dotErased (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (App-Elab-TTImp-case--10312-8664 e-0 arg-5 arg-4 arg-2 arg-1 arg-0 (Prelude-C-38C-38 (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-0)) (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-4))))))(else (lambda (eta-0) (vector 1 arg-5))))))) +(define App-Elab-TTImp-getVarType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (App-Elab-TTImp-case--9678-6847 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) arg-8 arg-5)))) +(define App-Elab-TTImp-getNameType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (App-Elab-TTImp-case--9114-6297 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (Env-Core-defined arg-0 arg-7 arg-5)))) +(define App-Elab-TTImp-dotErased (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (App-Elab-TTImp-case--10363-8672 e-0 arg-5 arg-4 arg-2 arg-1 arg-0 (Prelude-C-38C-38 (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) e-0)) (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-4))))))(else (lambda (eta-0) (vector 1 arg-5))))))) (define App-Elab-TTImp-concrete (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-4 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-2 (vector 10 e-1 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((App-Elab-TTImp-concrete 'erased arg-1 arg-2 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 1))))))))) ((2) (lambda (eta-0) (vector 1 0))) ((3) (lambda (eta-0) (vector 1 0))) ((8) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))) -(define App-Elab-TTImp-checkVisibleNS (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-isVisible arg-0 e-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-25 (Context-Core-isAllPublic arg-0 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-getNS arg-0 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Context-Core-getNestedNS arg-0 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((bind-0 0)) ((App-Elab-TTImp-case--8948-6164 e-1 e-0 arg-3 arg-1 arg-0 bind-0 e-6 e-7 e-8 (Prelude-C-124C-124 e-6 (lambda () (Context-Core-visibleInAny (vector 1 e-7 e-8) (vector 0 e-0 e-1) arg-3)))) eta-0)))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 8 arg-1 (vector 0 e-0 e-1) (vector 1 e-0)) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define App-Elab-TTImp-checkRestApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((App-Elab-TTImp-dotErased arg-1 e-2 e-3 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-6 arg-16) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 arg-19)) (cond ((equal? sc3 0) (vector 1 0)) (else (let ((act-26 (((arg-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-9 (vector 10 arg-10 1))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) ((App-Elab-TTImp-concrete 'erased e-5 arg-9 e-7) eta-0))))))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((App-Elab-TTImp-needsDelay arg-1 (let ((sc4 arg-7)) (let ((e-0 (vector-ref sc4 1))) e-0)) e-7 arg-16) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) ((App-Elab-TTImp-case--10314-8954 arg-0 e-2 e-3 arg-20 arg-19 arg-18 arg-17 arg-16 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 e-8 (Prelude-C-124C-124 (Prelude-C-38C-38 (App-Elab-TTImp-isHole 'erased arg-13) (lambda () e-7)) (lambda () e-8))) eta-0))))))))))))))))))))))))))) -(define App-Elab-TTImp-checkPatTyValid (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 e-6) (let ((sc2 arg-3)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-4))) ((App-Elab-TTImp-case--11242-8340 arg-0 e-1 e-3 e-7 e-6 e-5 arg-7 arg-6 arg-4 arg-3 arg-2 arg-1 e-4 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (let ((sc4 e-4)) (let ((e-22 (vector-ref sc4 8))) e-22)))) eta-0)))) (else (vector 1 (vector 0 )))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define App-Elab-TTImp-checkAppWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((sc1 e-12)) (case (vector-ref sc1 0) ((2) (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (let ((sc2 e-20)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-checkRestApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 e-28 e-29 arg-14 arg-15 arg-16)))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10320-12100 arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10320-12064-notInfer arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-14))))))(else (let ((sc3 arg-12)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 arg-13)) (let ((e-5 (vector-ref sc4 1))) (let ((e-6 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc8 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc9 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-15))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-14 (vector 11 arg-9) eta-0))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc10 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc11 1))) (let ((sc12 e-17)) (let ((e-18 (vector-ref sc12 1))) (let ((e-4 (vector-ref sc12 2))) (let ((fntm (vector 4 arg-9 arg-10 e-18))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc13 act-31)) (case (vector-ref sc13 0) ((0) (let ((e-22 (vector-ref sc13 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc13 1))) (let ((act-32 ((Normalise-Core-nf arg-0 e-22 arg-8 e-16) eta-0))) (let ((sc14 act-32)) (case (vector-ref sc14 0) ((0) (let ((e-23 (vector-ref sc14 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc14 1))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-15) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-16))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc15 act-33)) (case (vector-ref sc15 0) ((0) (let ((e-24 (vector-ref sc15 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc15 1))) (let ((act-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc16 act-34)) (case (vector-ref sc16 0) ((0) (let ((e-25 (vector-ref sc16 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc16 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-23 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (let ((sc17 act-35)) (case (vector-ref sc17 0) ((0) (let ((e-26 (vector-ref sc17 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc17 1))) (let ((act-36 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-22 arg-8 arg-11) expfnty) eta-0))) (let ((sc18 act-36)) (case (vector-ref sc18 0) ((0) (let ((e-27 (vector-ref sc18 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc18 1))) (let ((_-0 (vector 0 e-18 e-4))) ((App-Elab-TTImp-case--15855-12418 e-2 e-3 e-5 e-6 arg-0 arg-16 arg-15 arg-14 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 e-8 e-9 e-14 e-15 argTyG e-16 e-18 e-4 _-0 fntm e-22 e-23 expfnty e-24 e-25 e-26 e-27 (let ((sc19 e-27)) (let ((e-0 (vector-ref sc19 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) ((0) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((1) (let ((e-33 (vector-ref sc5 1))) (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-1 e-33) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((ty (vector 0 e-10 e-11 (vector 2 e-19 (vector 0 ) e-21) e-13))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 3))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((2) (let ((e-7 (vector-ref sc9 2))) (let ((sc10 e-7)) (case (vector-ref sc10 0) ((0) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-6 arg-8 ty) (vector 1 e-33)) eta-0))(else ((App-Elab-TTImp-case--13796-10574 arg-0 e-33 arg-15 arg-12 e-21 e-19 e-13 e-11 e-10 ty arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig e-5 e-6 (Prelude-not (let ((sc10 arg-6)) (let ((e-15 (vector-ref sc10 5))) e-15)))) eta-0))))))(else ((App-Elab-TTImp-case--13796-10574 arg-0 e-33 arg-15 arg-12 e-21 e-19 e-13 e-11 e-10 ty arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig e-5 e-6 (Prelude-not (let ((sc9 arg-6)) (let ((e-8 (vector-ref sc9 5))) e-8)))) eta-0))))))(else ((App-Elab-TTImp-case--13796-10574 arg-0 e-33 arg-15 arg-12 e-21 e-19 e-13 e-11 e-10 ty arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig e-5 e-6 (Prelude-not (let ((sc8 arg-6)) (let ((e-4 (vector-ref sc8 5))) e-4)))) eta-0)))))))))))))))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10320-11641 arg-0 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig (App-Elab-TTImp-n--10320-11483-useImp arg-0 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10320-11641 arg-0 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig (App-Elab-TTImp-n--10320-11483-useImp arg-0 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10320-11641 arg-0 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig (App-Elab-TTImp-n--10320-11483-useImp arg-0 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) arg-14))))))) ((2) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 1))) (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-1 e-37) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((ty (vector 0 e-10 e-11 (vector 2 e-19 (vector 2 ) e-21) e-13))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 3))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((2) (let ((e-7 (vector-ref sc9 2))) (let ((sc10 e-7)) (case (vector-ref sc10 0) ((2) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-6 arg-8 ty) (vector 1 e-37)) eta-0))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-37)) eta-0))))))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-37)) eta-0))))))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-37)) eta-0)))))))))))))))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10320-11361 arg-0 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig (App-Elab-TTImp-n--10320-11186-useAutoImp arg-0 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10320-11361 arg-0 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig (App-Elab-TTImp-n--10320-11186-useAutoImp arg-0 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10320-11361 arg-0 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig (App-Elab-TTImp-n--10320-11186-useAutoImp arg-0 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) arg-14))))))) ((3) (let ((e-26 (vector-ref sc2 1))) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((1) (let ((e-41 (vector-ref sc5 1))) (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-5 e-19))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-1 e-41) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((ty (vector 0 e-10 e-11 (vector 2 e-19 (vector 3 e-26) e-21) e-13))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 3))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((2) (let ((e-7 (vector-ref sc9 2))) (let ((sc10 e-7)) (case (vector-ref sc10 0) ((3) (let ((e-14 (vector-ref sc10 1))) (let ((act-26 (Normalise-Core-convert_Convert__NF arg-0 e-6 arg-8 e-26 e-14 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-15 (vector-ref sc11 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-15)) (cond ((equal? sc12 0) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-6 arg-8 ty) (vector 1 e-41)) eta-0)) (else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-41)) eta-0)))))))))))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-41)) eta-0))))))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-41)) eta-0))))))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-41)) eta-0)))))))))))))))))))(else (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-5 e-19))) (App-Elab-TTImp-case--10320-11924 arg-0 e-26 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig (App-Elab-TTImp-n--10320-11764-useImp arg-0 e-26 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-5 e-19))) (App-Elab-TTImp-case--10320-11924 arg-0 e-26 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig (App-Elab-TTImp-n--10320-11764-useImp arg-0 e-26 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-5 e-19))) (App-Elab-TTImp-case--10320-11924 arg-0 e-26 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig (App-Elab-TTImp-n--10320-11764-useImp arg-0 e-26 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) arg-14))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10320-12100 arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10320-12064-notInfer arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-14))))))(else (let ((sc2 arg-12)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 arg-13)) (let ((e-5 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc7 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc8 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-15))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-14 (vector 11 arg-9) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc9 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc10 1))) (let ((sc11 e-17)) (let ((e-18 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((fntm (vector 4 arg-9 arg-10 e-18))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-22 (vector-ref sc12 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc12 1))) (let ((act-32 ((Normalise-Core-nf arg-0 e-22 arg-8 e-16) eta-0))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-23 (vector-ref sc13 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc13 1))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-15) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-16))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-24 (vector-ref sc14 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc14 1))) (let ((act-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-25 (vector-ref sc15 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc15 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-23 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (let ((sc16 act-35)) (case (vector-ref sc16 0) ((0) (let ((e-26 (vector-ref sc16 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc16 1))) (let ((act-36 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-22 arg-8 arg-11) expfnty) eta-0))) (let ((sc17 act-36)) (case (vector-ref sc17 0) ((0) (let ((e-27 (vector-ref sc17 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc17 1))) (let ((_-0 (vector 0 e-18 e-4))) ((App-Elab-TTImp-case--15855-12418 e-2 e-3 e-5 e-6 arg-0 arg-16 arg-15 arg-14 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 e-8 e-9 e-14 e-15 argTyG e-16 e-18 e-4 _-0 fntm e-22 e-23 expfnty e-24 e-25 e-26 e-27 (let ((sc18 e-27)) (let ((e-0 (vector-ref sc18 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10320-12100 arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10320-12064-notInfer arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-14))))))(else (let ((sc1 arg-12)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 arg-13)) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc6 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc7 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-15))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-14 (vector 11 arg-9) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc8 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc9 1))) (let ((sc10 e-17)) (let ((e-18 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((fntm (vector 4 arg-9 arg-10 e-18))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-19 (vector-ref sc11 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc11 1))) (let ((act-32 ((Normalise-Core-nf arg-0 e-19 arg-8 e-16) eta-0))) (let ((sc12 act-32)) (case (vector-ref sc12 0) ((0) (let ((e-20 (vector-ref sc12 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc12 1))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-15) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-16))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc13 act-33)) (case (vector-ref sc13 0) ((0) (let ((e-21 (vector-ref sc13 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc13 1))) (let ((act-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc14 act-34)) (case (vector-ref sc14 0) ((0) (let ((e-22 (vector-ref sc14 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc14 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-20 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-23 (vector-ref sc15 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc15 1))) (let ((act-36 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-19 arg-8 arg-11) expfnty) eta-0))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-24 (vector-ref sc16 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc16 1))) (let ((_-0 (vector 0 e-18 e-4))) ((App-Elab-TTImp-case--15855-12418 e-2 e-3 e-5 e-6 arg-0 arg-16 arg-15 arg-14 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 e-8 e-9 e-14 e-15 argTyG e-16 e-18 e-4 _-0 fntm e-19 e-20 expfnty e-21 e-22 e-23 e-24 (let ((sc17 e-24)) (let ((e-0 (vector-ref sc17 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) ((5) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (let ((sc1 e-17)) (case (vector-ref sc1 0) ((0) (let ((e-45 (vector-ref sc1 3))) (let ((sc2 e-45)) (case (vector-ref sc2 0) ((2) (App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 8 e-15 e-16 arg-10) e-17 arg-12 arg-13 arg-14 arg-15 arg-16))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10320-12100 arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10320-12064-notInfer arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-14))))))(else (let ((sc2 arg-12)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 arg-13)) (let ((e-5 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-11))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-10 (vector 11 arg-9) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc10 1))) (let ((sc11 e-13)) (let ((e-14 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((fntm (vector 4 arg-9 arg-10 e-14))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (let ((act-32 ((Normalise-Core-nf arg-0 e-18 arg-8 e-12) eta-0))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-19 (vector-ref sc13 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc13 1))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-11) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-12))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-20 (vector-ref sc14 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc14 1))) (let ((act-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-21 (vector-ref sc15 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc15 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-19 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (let ((sc16 act-35)) (case (vector-ref sc16 0) ((0) (let ((e-22 (vector-ref sc16 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc16 1))) (let ((act-36 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-18 arg-8 arg-11) expfnty) eta-0))) (let ((sc17 act-36)) (case (vector-ref sc17 0) ((0) (let ((e-23 (vector-ref sc17 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc17 1))) (let ((_-0 (vector 0 e-14 e-4))) ((App-Elab-TTImp-case--15855-12418 e-2 e-3 e-5 e-6 arg-0 arg-16 arg-15 arg-14 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 e-8 e-9 e-10 e-11 argTyG e-12 e-14 e-4 _-0 fntm e-18 e-19 expfnty e-20 e-21 e-22 e-23 (let ((sc18 e-23)) (let ((e-0 (vector-ref sc18 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10320-12100 arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10320-12064-notInfer arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-14))))))(else (let ((sc1 arg-12)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 arg-13)) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-11))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-10 (vector 11 arg-9) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((sc10 e-13)) (let ((e-14 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((fntm (vector 4 arg-9 arg-10 e-14))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (let ((act-32 ((Normalise-Core-nf arg-0 e-18 arg-8 e-12) eta-0))) (let ((sc12 act-32)) (case (vector-ref sc12 0) ((0) (let ((e-19 (vector-ref sc12 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc12 1))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-11) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-12))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc13 act-33)) (case (vector-ref sc13 0) ((0) (let ((e-20 (vector-ref sc13 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc13 1))) (let ((act-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc14 act-34)) (case (vector-ref sc14 0) ((0) (let ((e-21 (vector-ref sc14 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc14 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-19 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-22 (vector-ref sc15 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc15 1))) (let ((act-36 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-18 arg-8 arg-11) expfnty) eta-0))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-23 (vector-ref sc16 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc16 1))) (let ((_-0 (vector 0 e-14 e-4))) ((App-Elab-TTImp-case--15855-12418 e-2 e-3 e-5 e-6 arg-0 arg-16 arg-15 arg-14 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 e-8 e-9 e-10 e-11 argTyG e-12 e-14 e-4 _-0 fntm e-18 e-19 expfnty e-20 e-21 e-22 e-23 (let ((sc17 e-23)) (let ((e-0 (vector-ref sc17 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10320-12100 arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10320-12064-notInfer arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-14))))))(else (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-13)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-11))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-10 (vector 11 arg-9) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (let ((e-14 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((fntm (vector 4 arg-9 arg-10 e-14))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-32 ((Normalise-Core-nf arg-0 e-15 arg-8 e-12) eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-11) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-12))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-18 (vector-ref sc13 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc13 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-16 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (let ((act-36 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-15 arg-8 arg-11) expfnty) eta-0))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-20 (vector-ref sc15 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc15 1))) (let ((_-0 (vector 0 e-14 e-4))) ((App-Elab-TTImp-case--15855-12418 e-2 e-3 e-5 e-6 arg-0 arg-16 arg-15 arg-14 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 e-8 e-9 e-10 e-11 argTyG e-12 e-14 e-4 _-0 fntm e-15 e-16 expfnty e-17 e-18 e-19 e-20 (let ((sc16 e-20)) (let ((e-0 (vector-ref sc16 1))) e-0))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define App-Elab-TTImp-checkApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (App-Elab-TTImp-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-0 e-1 (vector 1 e-2 arg-11) arg-12 arg-13))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (App-Elab-TTImp-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3 e-4 arg-11 (vector 1 (vector 0 e-5 e-6) arg-12) arg-13)))))) ((0) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((App-Elab-TTImp-getVarType arg-0 arg-1 arg-2 arg-4 arg-5 arg-7 arg-8 arg-9 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 e-9) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc4 1))) (let ((act-26 (Context-Core-fromIntegerName arg-1 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 (Context-Core-fromStringName arg-1 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (let ((act-28 (Context-Core-fromCharName arg-1 eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc7 1))) (let ((prims (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) (vector 1 e-11 (vector 1 e-12 (vector 1 e-13 (vector 0 ))))))) (let ((act-29 ((App-Elab-TTImp-n--16233-12641-updateElabInfo arg-0 e-8 e-7 arg-13 arg-12 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 prims (let ((sc8 arg-6)) (let ((e-0 (vector-ref sc8 1))) e-0)) e-8 arg-11 arg-6) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc8 1))) (let ((act-30 (Context-Core-logC arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-30 (let ((act-30 (unbox arg-1))) (vector 1 act-30)))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc9 1))) (let ((act-31 (Normalise-Core-quote_Quote__NF arg-0 e-15 arg-8 e-10 eta-1))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc10 1))) (let ((act-32 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (vector 1 (vector 0 )))) (lambda () (lambda (t) (lambda (eta-2) (let ((act-32 ((Normalise-Core-getTerm 'erased t) eta-2))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-33 (Normalise-Core-normaliseHoles arg-0 e-15 arg-8 e-17 eta-2))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc12 1))) (let ((act-34 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-18 eta-2))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc13 1))) (vector 1 (vector 1 e-19)))))))))))))))))))) arg-13) eta-1))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-33 ((Context-Core-getFullName arg-1 e-8) eta-1))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc12 1))) (let ((act-34 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-16 eta-1))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc13 1))) (vector 1 (Strings-Prelude-C-43C-43 "Checking application of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Prelude-C-43C-43 ")" (Strings-Prelude-C-43C-43 " to " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) arg-11) (Strings-Prelude-C-43C-43 "\u000a\u0009Function type " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-19) (Strings-Prelude-C-43C-43 "\u000a\u0009Expected app type " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-17)))))))))))))))))))))))))))))))))))))) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc9 1))) (let ((fn (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-9)))) (App-Elab-TTImp-case--16931-13356 arg-0 e-8 e-7 arg-13 arg-12 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-6 e-9 _-0 e-10 e-11 e-12 e-13 prims e-14 e-15 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-8 arg-7))))) (let ((act-31 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-14 arg-7 arg-8 arg-9 e-2 e-10 (vector 0 (vector 1 fn) e-6) arg-11 arg-12 1 arg-13) eta-0))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc10 1))) (App-Elab-TTImp-n--16233-12640-normalisePrims arg-0 e-8 e-7 arg-13 arg-12 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 prims arg-8 e-16 eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 (vector 0 )) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-6 (vector 0 (vector 0 ) 0) arg-11 arg-12 1 arg-13) eta-0)))))))))))))))))))) -(define Ambiguity-Elab-TTImp-case--13035-6653 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Check-Elab-TTImp-anyOne arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 eta-0)))(else (lambda (eta-0) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 (Prelude-not arg-17) arg-4 arg-5 eta-0))))))) -(define Ambiguity-Elab-TTImp-case--13035-6541 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (Normalise-Core-gnf arg-0 arg-5 arg-19)) (else arg-15))))) -(define Ambiguity-Elab-TTImp-case--13035-6446 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) -(define Ambiguity-Elab-TTImp-case--12482-6366 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 e-1 arg-1))(else (lambda (eta-0) (let ((act-24 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-24 (UnifyState-Core-genName arg-12 arg-10 "altTy" eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 e-5 (vector 11 arg-4) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-5 e-6)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((solvemode (Ambiguity-Elab-TTImp-case--13035-6446 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-5 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 arg-8 arg-5 e-5 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-1) (let ((act-25 (let ((act-25 (unbox arg-12))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 ((Normalise-Core-getTerm 'erased e-5) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((expC-39 (let ((sc4 delayed)) (cond ((equal? sc4 0) (Normalise-Core-gnf arg-0 arg-5 e-7)) (else e-5))))) (let ((act-27 (let ((act-27 ((Normalise-Core-getNF 'erased arg-12 expC-39) eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-12 arg-10 arg-5 e-8 arg-2 eta-1)))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Normalise-Core-logGlueNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool delayed) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-8) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-4) "\u000aTarget type "))))))) arg-5 expC-39 eta-1))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((tryall (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((0) (lambda (eta-2) (Check-Elab-TTImp-anyOne arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 eta-2)))(else (lambda (eta-2) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 (Prelude-not delayed) arg-4 arg-5 eta-2))))))) ((tryall (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (lambda (eta-2) (let ((act-29 ((Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-8 (Ambiguity-Elab-TTImp-getName t)) arg-7) arg-6 arg-5 t (vector 1 expC-39)) eta-2))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((act-31 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-32 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Ambiguity-Elab-TTImp-getName t)) " success")) eta-2))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (vector 1 e-10))))))))))))))))))))) e-8)) eta-1))))))))))))))))))))))) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-24 (UnifyState-Core-genName arg-12 arg-10 "altTy" eta-1))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 e-5 (vector 11 arg-4) eta-1))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-5 e-6)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-1) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((solvemode (Ambiguity-Elab-TTImp-case--13035-6446 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-5 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 arg-8 arg-5 e-5 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-1) (let ((act-25 (let ((act-25 (unbox arg-12))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((Normalise-Core-getTerm 'erased e-5) eta-1))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((expC-39 (let ((sc3 delayed)) (cond ((equal? sc3 0) (Normalise-Core-gnf arg-0 arg-5 e-7)) (else e-5))))) (let ((act-27 (let ((act-27 ((Normalise-Core-getNF 'erased arg-12 expC-39) eta-1))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-12 arg-10 arg-5 e-8 arg-2 eta-1)))))))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Normalise-Core-logGlueNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool delayed) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-8) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-4) "\u000aTarget type "))))))) arg-5 expC-39 eta-1))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((tryall (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (lambda (eta-2) (Check-Elab-TTImp-anyOne arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 eta-2)))(else (lambda (eta-2) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 (Prelude-not delayed) arg-4 arg-5 eta-2))))))) ((tryall (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (lambda (eta-2) (let ((act-29 ((Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-8 (Ambiguity-Elab-TTImp-getName t)) arg-7) arg-6 arg-5 t (vector 1 expC-39)) eta-2))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-31 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-32 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Ambiguity-Elab-TTImp-getName t)) " success")) eta-2))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (vector 1 e-10))))))))))))))))))))) e-8)) eta-1))))))))))))))))))))))) eta-0))))))))))))) -(define Ambiguity-Elab-TTImp-case--12482-6132 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (lambda (eta-0) (Check-Elab-TTImp-try 'erased arg-0 arg-12 arg-11 arg-10 arg-9 (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 1 arg-4 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased arg-22 (Ambiguity-Elab-TTImp-getName t)) arg-7) arg-6 arg-5 t (vector 1 arg-20)))) arg-22)) (lambda (eta-1) (let ((act-24 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "All failed, running default") eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased arg-22 (Ambiguity-Elab-TTImp-getName arg-1)) arg-7) arg-6 arg-5 arg-1 (vector 1 arg-20)) eta-1)))))) eta-0))) (else (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 0 arg-4 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased arg-22 (Ambiguity-Elab-TTImp-getName t)) arg-7) arg-6 arg-5 t (vector 1 arg-20)))) arg-22))))))) -(define Ambiguity-Elab-TTImp-case--12482-5985 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (Normalise-Core-gnf arg-0 arg-5 arg-19)) (else arg-14))))) -(define Ambiguity-Elab-TTImp-case--12482-5887 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) -(define Ambiguity-Elab-TTImp-case--12420-5836 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 arg-2 e-5))))))))))) -(define Ambiguity-Elab-TTImp-case--12104-5678 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-1))) (else (lambda (eta-0) (vector 1 arg-11))))))) -(define Ambiguity-Elab-TTImp-case--12104-5576 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Ambiguity-Elab-TTImp-filterCore 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-notOverloadable arg-6 eta-1)) arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Keep " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Bool x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Bool d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Bool x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Bool d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) e-5))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-5))))))))))))) (else (lambda (eta-0) (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-8)))))))) -(define Ambiguity-Elab-TTImp-case--12031-5449 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 arg-1 arg-5)))) (else (lambda (eta-0) (vector 1 arg-5))))))) -(define Ambiguity-Elab-TTImp-case--11980-5380 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 1))) (else (lambda (eta-0) (vector 1 0))))))) -(define Ambiguity-Elab-TTImp-case--11709-5293 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 0 arg-1))))) ((1) (lambda (eta-0) (vector 1 (vector 1 (vector 0 1 arg-1))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Ambiguity-Elab-TTImp-case--11709-5227 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 0 arg-2))))) ((1) (lambda (eta-0) (vector 1 (vector 1 (vector 0 1 arg-2))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Ambiguity-Elab-TTImp-case--11709-5141 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 0 arg-5))))) ((1) (lambda (eta-0) (vector 1 (vector 1 (vector 0 1 arg-5))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Ambiguity-Elab-TTImp-case--11630-5063 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-3 (vector 0 ) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((Ambiguity-Elab-TTImp-mightMatchD arg-0 arg-3 arg-2 e-5) eta-0))))))))))))) -(define Ambiguity-Elab-TTImp-case--11017-4944 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) -(define Ambiguity-Elab-TTImp-case--11365-4848 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) -(define Ambiguity-Elab-TTImp-case--11017-4815 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Ambiguity-Elab-TTImp-mightMatchArgs arg-0 arg-11 arg-3 arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 (vector 0 ))) (else (vector 1 (vector 2 )))))))))))) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) -(define Ambiguity-Elab-TTImp-case--11213-4719 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) -(define Ambiguity-Elab-TTImp-case--11017-4686 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Ambiguity-Elab-TTImp-mightMatchArgs arg-0 arg-11 arg-3 arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 (vector 0 ))) (else (vector 1 (vector 2 )))))))))))) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) -(define Ambiguity-Elab-TTImp-case--11014-4608 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Ambiguity-Elab-TTImp-mightMatchArgs arg-0 arg-5 arg-2 arg-4)) (else (lambda (eta-0) (vector 1 1))))))) -(define Ambiguity-Elab-TTImp-case--11011-4554 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0))))))) -(define Ambiguity-Elab-TTImp-case--10611-4269 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Failed to find " (TTImp-TTImp-show_Show__RawImp arg-5))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-5))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Only one " (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased e-2)))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 (Ambiguity-Elab-TTImp-n--9271-3071-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 e-2))))))))(else (lambda (eta-0) (vector 1 (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--9271-3066-uniqType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14 arg-15 arg-1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--9271-3071-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 eta-1)) arg-19))))))))))(else (lambda (eta-0) (vector 1 (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--9271-3066-uniqType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14 arg-15 arg-1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--9271-3071-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 eta-1)) arg-19))))))))) -(define Ambiguity-Elab-TTImp-case--10414-4159 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "unambiguous: " (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased e-1)))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (Ambiguity-Elab-TTImp-n--9271-3071-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 e-1))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtName arg-1 (let ((sc1 arg-11)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-filterM 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--9271-3065-visible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-1)) e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((act-26 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Failed to find " (TTImp-TTImp-show_Show__RawImp arg-5))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 arg-5)))))) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((act-26 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Only one " (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased e-2)))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (Ambiguity-Elab-TTImp-n--9271-3071-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 e-2)))))))(else (vector 1 (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--9271-3066-uniqType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14 arg-15 arg-1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--9271-3071-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 eta-1)) e-6)))))))))(else (vector 1 (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--9271-3066-uniqType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14 arg-15 arg-1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--9271-3071-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 eta-1)) e-6)))))))))))))))))))))) -(define Ambiguity-Elab-TTImp-case--10414-4012 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Defined in env " (Name-Core-show_Show__Name arg-1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-5))))))) (else (lambda (eta-0) (vector 1 (vector 18 arg-2 (vector 1 ) arg-5)))))))) -(define Ambiguity-Elab-TTImp-case--10326-3979 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Ambiguity-Elab-TTImp-case--10414-4012 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-1 (Prelude-C-124C-124 (List-Data-isNil 'erased arg-4) (lambda () (Ambiguity-Elab-TTImp-n--9271-3072-notLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-8)))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-fromIntegerName arg-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-fromStringName arg-10 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-fromCharName arg-10 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((prims (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))))) (let ((primApp (Ambiguity-Elab-TTImp-n--9271-3068-isPrimName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 prims arg-1))) ((Ambiguity-Elab-TTImp-case--10414-4159 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 e-6 e-7 e-8 prims primApp (Ambiguity-Elab-TTImp-n--9271-3064-lookupUN arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased (Name-Core-userNameRoot arg-1) (let ((sc5 e-5)) (let ((e-13 (vector-ref sc5 13))) e-13)))) eta-0))))))))))))))))))))))))))))) -(define Ambiguity-Elab-TTImp-case--9271-3900 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Nested " (Name-Core-show_Show__Name arg-1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-5))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-10))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Ambiguity-Elab-TTImp-case--10326-3979 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 (Env-Core-defined arg-0 arg-1 arg-6)) eta-0)))))))))))) -(define Ambiguity-Elab-TTImp-case--10128-3768 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) arg-15)(else (vector 26 arg-2 (vector 14 arg-2 arg-15))))))) -(define Ambiguity-Elab-TTImp-case--9382-3731 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((1) arg-15)(else (vector 26 arg-2 (vector 14 arg-2 arg-15)))))) (else arg-15))))) -(define Ambiguity-Elab-TTImp-case--9381-3623 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) arg-14) (else (vector 18 arg-2 (vector 2 ) arg-14)))))) -(define Ambiguity-Elab-TTImp-case--9381-3534 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) arg-14) (else (vector 18 arg-2 (vector 2 ) arg-14)))))) -(define Ambiguity-Elab-TTImp-case--9466-3187 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (lambda (eta-0) (vector 1 1))))))) -(define Ambiguity-Elab-TTImp-case--9414-3137 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-getNS arg-10 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-getNestedNS arg-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((bind-0 0)) ((Ambiguity-Elab-TTImp-case--9466-3187 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 bind-0 e-5 e-6 (Context-Core-visibleInAny (vector 1 e-5 e-6) (vector 0 arg-15 arg-14) (let ((sc3 arg-13)) (let ((e-9 (vector-ref sc3 10))) e-9)))) eta-0)))))))))))))) (else (lambda (eta-0) (vector 1 1))))))) -(define Ambiguity-Elab-TTImp-case--9377-3100 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-isVisible arg-10 e-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-25 (Context-Core-getNS arg-10 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-getNestedNS arg-10 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((bind-0 0)) ((Ambiguity-Elab-TTImp-case--9466-3187 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-1 e-0 bind-0 e-6 e-7 (Context-Core-visibleInAny (vector 1 e-6 e-7) (vector 0 e-0 e-1) (let ((sc5 arg-13)) (let ((e-9 (vector-ref sc5 10))) e-9)))) eta-0))))))))))))) (else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 0))))))) -(define Ambiguity-Elab-TTImp-case--9271-3006 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 18 arg-3 (vector 0 ) arg-6)))) (else (lambda (eta-0) (vector 1 arg-6))))))) -(define Ambiguity-Elab-TTImp-n--9271-3069-wrapDot (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((5) arg-17) ((6) arg-17)(else (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (Ambiguity-Elab-TTImp-case--9381-3534 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-16 e-0 e-2 arg-17 arg-14 arg-12 arg-11 (Prelude-C-124C-124 (Name-Core-C-61C-61_Eq__Name arg-14 (vector 9 (let ((sc3 arg-12)) (let ((e-15 (vector-ref sc3 2))) e-15)))) (lambda () arg-11))))(else (Ambiguity-Elab-TTImp-case--9381-3623 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-15 arg-16 e-0 arg-17 arg-14 arg-12 arg-11 (Name-Core-C-61C-61_Eq__Name arg-14 (vector 9 (let ((sc2 arg-12)) (let ((e-15 (vector-ref sc2 2))) e-15)))))))))))(else (Ambiguity-Elab-TTImp-case--9381-3623 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-15 arg-16 e-0 arg-17 arg-14 arg-12 arg-11 (Name-Core-C-61C-61_Eq__Name arg-14 (vector 9 (let ((sc1 arg-12)) (let ((e-2 (vector-ref sc1 2))) e-2))))))))))(else arg-17)))))))) -(define Ambiguity-Elab-TTImp-n--9271-3065-visible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Ambiguity-Elab-TTImp-case--9377-3100 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2 e-6 e-7 (let ((sc2 e-7)) (let ((e-1 (vector-ref sc2 2))) e-1))))))))))) -(define Ambiguity-Elab-TTImp-n--9271-3066-uniqType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-37 (vector-ref sc1 1))) (let ((e-38 (vector-ref sc1 2))) (let ((sc2 e-37)) (case (vector-ref sc2 0) ((0) (let ((e-42 (vector-ref sc2 2))) (let ((sc3 e-42)) (case (vector-ref sc3 0) ((0) (let ((e-46 (vector-ref sc3 2))) (let ((sc4 e-46)) (case (vector-ref sc4 0) ((27) (let ((e-47 (vector-ref sc4 1))) (let ((e-48 (vector-ref sc4 2))) (let ((sc5 e-48)) (case (vector-ref sc5 0) ((1) (let ((e-49 (vector-ref sc5 1))) (let ((sc6 e-38)) (case (vector-ref sc6 0) ((0) (vector 2 (vector 27 e-47 (vector 1 e-49))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-29 (vector-ref sc9 2))) (let ((sc10 e-29)) (case (vector-ref sc10 0) ((27) (let ((e-30 (vector-ref sc10 1))) (let ((e-31 (vector-ref sc10 2))) (let ((sc11 e-31)) (case (vector-ref sc11 0) ((6) (let ((e-32 (vector-ref sc11 1))) (let ((sc12 e-21)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-15)) (case (vector-ref sc13 0) ((1) (let ((e-3 (vector-ref sc13 1))) (let ((e-4 (vector-ref sc13 2))) (let ((sc14 e-3)) (case (vector-ref sc14 0) ((0) (let ((e-8 (vector-ref sc14 2))) (let ((sc15 e-8)) (case (vector-ref sc15 0) ((0) (let ((e-12 (vector-ref sc15 2))) (let ((sc16 e-12)) (case (vector-ref sc16 0) ((27) (let ((e-13 (vector-ref sc16 1))) (let ((e-14 (vector-ref sc16 2))) (let ((sc17 e-14)) (case (vector-ref sc17 0) ((7) (let ((e-15 (vector-ref sc17 1))) (let ((sc18 e-4)) (case (vector-ref sc18 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-15)) (case (vector-ref sc12 0) ((1) (let ((e-3 (vector-ref sc12 1))) (let ((e-4 (vector-ref sc12 2))) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((0) (let ((e-8 (vector-ref sc13 2))) (let ((sc14 e-8)) (case (vector-ref sc14 0) ((0) (let ((e-12 (vector-ref sc14 2))) (let ((sc15 e-12)) (case (vector-ref sc15 0) ((27) (let ((e-13 (vector-ref sc15 1))) (let ((e-14 (vector-ref sc15 2))) (let ((sc16 e-14)) (case (vector-ref sc16 0) ((7) (let ((e-15 (vector-ref sc16 1))) (let ((sc17 e-4)) (case (vector-ref sc17 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-15)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 2))) (let ((sc13 e-8)) (case (vector-ref sc13 0) ((0) (let ((e-12 (vector-ref sc13 2))) (let ((sc14 e-12)) (case (vector-ref sc14 0) ((27) (let ((e-13 (vector-ref sc14 1))) (let ((e-14 (vector-ref sc14 2))) (let ((sc15 e-14)) (case (vector-ref sc15 0) ((7) (let ((e-15 (vector-ref sc15 1))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-15)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 2))) (let ((sc12 e-8)) (case (vector-ref sc12 0) ((0) (let ((e-12 (vector-ref sc12 2))) (let ((sc13 e-12)) (case (vector-ref sc13 0) ((27) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((7) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-29 (vector-ref sc8 2))) (let ((sc9 e-29)) (case (vector-ref sc9 0) ((27) (let ((e-30 (vector-ref sc9 1))) (let ((e-31 (vector-ref sc9 2))) (let ((sc10 e-31)) (case (vector-ref sc10 0) ((6) (let ((e-32 (vector-ref sc10 1))) (let ((sc11 e-21)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-15)) (case (vector-ref sc12 0) ((1) (let ((e-3 (vector-ref sc12 1))) (let ((e-4 (vector-ref sc12 2))) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((0) (let ((e-8 (vector-ref sc13 2))) (let ((sc14 e-8)) (case (vector-ref sc14 0) ((0) (let ((e-12 (vector-ref sc14 2))) (let ((sc15 e-12)) (case (vector-ref sc15 0) ((27) (let ((e-13 (vector-ref sc15 1))) (let ((e-14 (vector-ref sc15 2))) (let ((sc16 e-14)) (case (vector-ref sc16 0) ((7) (let ((e-15 (vector-ref sc16 1))) (let ((sc17 e-4)) (case (vector-ref sc17 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-15)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 2))) (let ((sc13 e-8)) (case (vector-ref sc13 0) ((0) (let ((e-12 (vector-ref sc13 2))) (let ((sc14 e-12)) (case (vector-ref sc14 0) ((27) (let ((e-13 (vector-ref sc14 1))) (let ((e-14 (vector-ref sc14 2))) (let ((sc15 e-14)) (case (vector-ref sc15 0) ((7) (let ((e-15 (vector-ref sc15 1))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-15)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 2))) (let ((sc12 e-8)) (case (vector-ref sc12 0) ((0) (let ((e-12 (vector-ref sc12 2))) (let ((sc13 e-12)) (case (vector-ref sc13 0) ((27) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((7) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-29 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((27) (let ((e-30 (vector-ref sc8 1))) (let ((e-31 (vector-ref sc8 2))) (let ((sc9 e-31)) (case (vector-ref sc9 0) ((6) (let ((e-32 (vector-ref sc9 1))) (let ((sc10 e-21)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-15)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 2))) (let ((sc13 e-8)) (case (vector-ref sc13 0) ((0) (let ((e-12 (vector-ref sc13 2))) (let ((sc14 e-12)) (case (vector-ref sc14 0) ((27) (let ((e-13 (vector-ref sc14 1))) (let ((e-14 (vector-ref sc14 2))) (let ((sc15 e-14)) (case (vector-ref sc15 0) ((7) (let ((e-15 (vector-ref sc15 1))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-15)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 2))) (let ((sc12 e-8)) (case (vector-ref sc12 0) ((0) (let ((e-12 (vector-ref sc12 2))) (let ((sc13 e-12)) (case (vector-ref sc13 0) ((27) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((7) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-29 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((27) (let ((e-30 (vector-ref sc7 1))) (let ((e-31 (vector-ref sc7 2))) (let ((sc8 e-31)) (case (vector-ref sc8 0) ((6) (let ((e-32 (vector-ref sc8 1))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-15)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 2))) (let ((sc12 e-8)) (case (vector-ref sc12 0) ((0) (let ((e-12 (vector-ref sc12 2))) (let ((sc13 e-12)) (case (vector-ref sc13 0) ((27) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((7) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((27) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))))(else (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-20)) (case (vector-ref sc4 0) ((0) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (let ((e-29 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((27) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-31)) (case (vector-ref sc7 0) ((6) (let ((e-32 (vector-ref sc7 1))) (let ((sc8 e-21)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((27) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((27) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((sc7 e-14)) (case (vector-ref sc7 0) ((7) (let ((e-15 (vector-ref sc7 1))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))))))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((sc3 e-20)) (case (vector-ref sc3 0) ((0) (let ((e-25 (vector-ref sc3 2))) (let ((sc4 e-25)) (case (vector-ref sc4 0) ((0) (let ((e-29 (vector-ref sc4 2))) (let ((sc5 e-29)) (case (vector-ref sc5 0) ((27) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (let ((sc6 e-31)) (case (vector-ref sc6 0) ((6) (let ((e-32 (vector-ref sc6 1))) (let ((sc7 e-21)) (case (vector-ref sc7 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((27) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((27) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((sc7 e-14)) (case (vector-ref sc7 0) ((7) (let ((e-15 (vector-ref sc7 1))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 2))) (let ((sc5 e-12)) (case (vector-ref sc5 0) ((27) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((7) (let ((e-15 (vector-ref sc6 1))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))))(else (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((sc2 e-20)) (case (vector-ref sc2 0) ((0) (let ((e-25 (vector-ref sc2 2))) (let ((sc3 e-25)) (case (vector-ref sc3 0) ((0) (let ((e-29 (vector-ref sc3 2))) (let ((sc4 e-29)) (case (vector-ref sc4 0) ((27) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (let ((sc5 e-31)) (case (vector-ref sc5 0) ((6) (let ((e-32 (vector-ref sc5 1))) (let ((sc6 e-21)) (case (vector-ref sc6 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((27) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((27) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((sc7 e-14)) (case (vector-ref sc7 0) ((7) (let ((e-15 (vector-ref sc7 1))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 2))) (let ((sc5 e-12)) (case (vector-ref sc5 0) ((27) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((7) (let ((e-15 (vector-ref sc6 1))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 2))) (let ((sc4 e-12)) (case (vector-ref sc4 0) ((27) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((7) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))))) -(define Ambiguity-Elab-TTImp-n--11964-5367-notOverloadableFn (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-1 (let ((sc1 arg-2)) (let ((e-27 (vector-ref sc1 1))) e-27))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (vector 1 1)) (else (vector 1 0))))))))))))(else (lambda (eta-0) (vector 1 0))))))) -(define Ambiguity-Elab-TTImp-n--9271-3072-notLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) 1)(else 0))))) -(define Ambiguity-Elab-TTImp-n--9271-3070-mkTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((tm (Ambiguity-Elab-TTImp-n--9271-3069-wrapDot arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-8 arg-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased eta-0))) arg-4) (let ((sc0 arg-14)) (let ((e-17 (vector-ref sc0 18))) e-17)) (Ambiguity-Elab-TTImp-n--9271-3067-buildAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 0 arg-2 arg-13) arg-4)))) (Ambiguity-Elab-TTImp-case--9382-3731 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-14 arg-13 arg-12 arg-11 tm (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__DefFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__DefFlag arg-430 arg-431)))) (vector 6 ) (let ((sc0 arg-14)) (let ((e-11 (vector-ref sc0 12))) e-11))))))) -(define Ambiguity-Elab-TTImp-n--9271-3071-mkAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Ambiguity-Elab-TTImp-n--9271-3070-mkTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (vector 9 e-6) e-7)))))))) -(define Ambiguity-Elab-TTImp-n--9271-3064-lookupUN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (StringMap-Data-lookup 'erased e-2 arg-13))))))) -(define Ambiguity-Elab-TTImp-n--9271-3068-isPrimName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-124C-124 (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS arg-12) e-2) (lambda () (Ambiguity-Elab-TTImp-n--9271-3068-isPrimName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3 arg-12)))))))))) -(define Ambiguity-Elab-TTImp-n--9271-3067-buildAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) arg-11) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (Ambiguity-Elab-TTImp-n--9271-3067-buildAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 e-6 arg-11 e-11) e-3)) (else (let ((e-14 (vector-ref sc3 1))) (Ambiguity-Elab-TTImp-n--9271-3067-buildAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 9 e-6 arg-11 e-14 e-11) e-3)))))))))))))))))) +(define 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--8999-6172 e-1 e-0 arg-3 arg-1 arg-0 bind-0 e-6 e-7 e-8 (Prelude-C-124C-124 e-6 (lambda () (Context-Core-visibleInAny (vector 1 e-7 e-8) (vector 0 e-0 e-1) arg-3)))) eta-0)))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 8 arg-1 (vector 0 e-0 e-1) (vector 1 e-0)) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define App-Elab-TTImp-checkRestApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((App-Elab-TTImp-dotErased arg-1 e-2 e-3 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-6 arg-16) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 arg-19)) (cond ((equal? sc3 0) (vector 1 0)) (else (let ((act-26 (((arg-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-9 (vector 10 arg-10 1))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) ((App-Elab-TTImp-concrete 'erased e-5 arg-9 e-7) eta-0))))))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((App-Elab-TTImp-needsDelay arg-1 (let ((sc4 arg-7)) (let ((e-0 (vector-ref sc4 1))) e-0)) e-7 arg-16) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) ((App-Elab-TTImp-case--10365-8962 arg-0 e-2 e-3 arg-20 arg-19 arg-18 arg-17 arg-16 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 e-8 (Prelude-C-124C-124 (Prelude-C-38C-38 (App-Elab-TTImp-isHole 'erased arg-13) (lambda () e-7)) (lambda () e-8))) eta-0))))))))))))))))))))))))))) +(define App-Elab-TTImp-checkPatTyValid (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 e-6) (let ((sc2 arg-3)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-4))) ((App-Elab-TTImp-case--11293-8348 arg-0 e-1 e-3 e-7 e-6 e-5 arg-7 arg-6 arg-4 arg-3 arg-2 arg-1 e-4 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (let ((sc4 e-4)) (let ((e-22 (vector-ref sc4 8))) e-22)))) eta-0)))) (else (vector 1 (vector 0 )))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define App-Elab-TTImp-checkAppWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((sc1 e-12)) (case (vector-ref sc1 0) ((2) (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (let ((sc2 e-20)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-checkRestApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 e-28 e-29 arg-14 arg-15 arg-16)))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10371-12108 arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10371-12072-notInfer arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-14))))))(else (let ((sc3 arg-12)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 arg-13)) (let ((e-5 (vector-ref sc4 1))) (let ((e-6 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc8 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc9 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-15))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-14 (vector 11 arg-9) eta-0))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc10 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc11 1))) (let ((sc12 e-17)) (let ((e-18 (vector-ref sc12 1))) (let ((e-4 (vector-ref sc12 2))) (let ((fntm (vector 4 arg-9 arg-10 e-18))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc13 act-31)) (case (vector-ref sc13 0) ((0) (let ((e-22 (vector-ref sc13 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc13 1))) (let ((act-32 ((Normalise-Core-nf arg-0 e-22 arg-8 e-16) eta-0))) (let ((sc14 act-32)) (case (vector-ref sc14 0) ((0) (let ((e-23 (vector-ref sc14 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc14 1))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-15) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-16))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc15 act-33)) (case (vector-ref sc15 0) ((0) (let ((e-24 (vector-ref sc15 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc15 1))) (let ((act-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc16 act-34)) (case (vector-ref sc16 0) ((0) (let ((e-25 (vector-ref sc16 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc16 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-23 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (let ((sc17 act-35)) (case (vector-ref sc17 0) ((0) (let ((e-26 (vector-ref sc17 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc17 1))) (let ((act-36 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-22 arg-8 arg-11) expfnty) eta-0))) (let ((sc18 act-36)) (case (vector-ref sc18 0) ((0) (let ((e-27 (vector-ref sc18 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc18 1))) (let ((_-0 (vector 0 e-18 e-4))) ((App-Elab-TTImp-case--15906-12426 e-2 e-3 e-5 e-6 arg-0 arg-16 arg-15 arg-14 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 e-8 e-9 e-14 e-15 argTyG e-16 e-18 e-4 _-0 fntm e-22 e-23 expfnty e-24 e-25 e-26 e-27 (let ((sc19 e-27)) (let ((e-0 (vector-ref sc19 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) ((0) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((1) (let ((e-33 (vector-ref sc5 1))) (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-1 e-33) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((ty (vector 0 e-10 e-11 (vector 2 e-19 (vector 0 ) e-21) e-13))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 3))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((2) (let ((e-7 (vector-ref sc9 2))) (let ((sc10 e-7)) (case (vector-ref sc10 0) ((0) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-6 arg-8 ty) (vector 1 e-33)) eta-0))(else ((App-Elab-TTImp-case--13847-10582 arg-0 e-33 arg-15 arg-12 e-21 e-19 e-13 e-11 e-10 ty arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig e-5 e-6 (Prelude-not (let ((sc10 arg-6)) (let ((e-15 (vector-ref sc10 5))) e-15)))) eta-0))))))(else ((App-Elab-TTImp-case--13847-10582 arg-0 e-33 arg-15 arg-12 e-21 e-19 e-13 e-11 e-10 ty arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig e-5 e-6 (Prelude-not (let ((sc9 arg-6)) (let ((e-8 (vector-ref sc9 5))) e-8)))) eta-0))))))(else ((App-Elab-TTImp-case--13847-10582 arg-0 e-33 arg-15 arg-12 e-21 e-19 e-13 e-11 e-10 ty arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig e-5 e-6 (Prelude-not (let ((sc8 arg-6)) (let ((e-4 (vector-ref sc8 5))) e-4)))) eta-0)))))))))))))))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10371-11649 arg-0 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig (App-Elab-TTImp-n--10371-11491-useImp arg-0 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10371-11649 arg-0 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig (App-Elab-TTImp-n--10371-11491-useImp arg-0 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10371-11649 arg-0 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig (App-Elab-TTImp-n--10371-11491-useImp arg-0 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) arg-14))))))) ((2) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 1))) (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-1 e-37) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((ty (vector 0 e-10 e-11 (vector 2 e-19 (vector 2 ) e-21) e-13))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 3))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((2) (let ((e-7 (vector-ref sc9 2))) (let ((sc10 e-7)) (case (vector-ref sc10 0) ((2) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-6 arg-8 ty) (vector 1 e-37)) eta-0))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-37)) eta-0))))))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-37)) eta-0))))))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-37)) eta-0)))))))))))))))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10371-11369 arg-0 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig (App-Elab-TTImp-n--10371-11194-useAutoImp arg-0 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10371-11369 arg-0 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig (App-Elab-TTImp-n--10371-11194-useAutoImp arg-0 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10371-11369 arg-0 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig (App-Elab-TTImp-n--10371-11194-useAutoImp arg-0 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) arg-14))))))) ((3) (let ((e-26 (vector-ref sc2 1))) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((1) (let ((e-41 (vector-ref sc5 1))) (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-5 e-19))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-1 e-41) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((ty (vector 0 e-10 e-11 (vector 2 e-19 (vector 3 e-26) e-21) e-13))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 3))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((2) (let ((e-7 (vector-ref sc9 2))) (let ((sc10 e-7)) (case (vector-ref sc10 0) ((3) (let ((e-14 (vector-ref sc10 1))) (let ((act-26 (Normalise-Core-convert_Convert__NF arg-0 e-6 arg-8 e-26 e-14 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-15 (vector-ref sc11 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-15)) (cond ((equal? sc12 0) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-6 arg-8 ty) (vector 1 e-41)) eta-0)) (else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-41)) eta-0)))))))))))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-41)) eta-0))))))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-41)) eta-0))))))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-41)) eta-0)))))))))))))))))))(else (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-5 e-19))) (App-Elab-TTImp-case--10371-11932 arg-0 e-26 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig (App-Elab-TTImp-n--10371-11772-useImp arg-0 e-26 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-5 e-19))) (App-Elab-TTImp-case--10371-11932 arg-0 e-26 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig (App-Elab-TTImp-n--10371-11772-useImp arg-0 e-26 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-5 e-19))) (App-Elab-TTImp-case--10371-11932 arg-0 e-26 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig (App-Elab-TTImp-n--10371-11772-useImp arg-0 e-26 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) arg-14))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10371-12108 arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10371-12072-notInfer arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-14))))))(else (let ((sc2 arg-12)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 arg-13)) (let ((e-5 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc7 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc8 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-15))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-14 (vector 11 arg-9) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc9 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc10 1))) (let ((sc11 e-17)) (let ((e-18 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((fntm (vector 4 arg-9 arg-10 e-18))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-22 (vector-ref sc12 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc12 1))) (let ((act-32 ((Normalise-Core-nf arg-0 e-22 arg-8 e-16) eta-0))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-23 (vector-ref sc13 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc13 1))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-15) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-16))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-24 (vector-ref sc14 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc14 1))) (let ((act-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-25 (vector-ref sc15 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc15 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-23 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (let ((sc16 act-35)) (case (vector-ref sc16 0) ((0) (let ((e-26 (vector-ref sc16 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc16 1))) (let ((act-36 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-22 arg-8 arg-11) expfnty) eta-0))) (let ((sc17 act-36)) (case (vector-ref sc17 0) ((0) (let ((e-27 (vector-ref sc17 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc17 1))) (let ((_-0 (vector 0 e-18 e-4))) ((App-Elab-TTImp-case--15906-12426 e-2 e-3 e-5 e-6 arg-0 arg-16 arg-15 arg-14 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 e-8 e-9 e-14 e-15 argTyG e-16 e-18 e-4 _-0 fntm e-22 e-23 expfnty e-24 e-25 e-26 e-27 (let ((sc18 e-27)) (let ((e-0 (vector-ref sc18 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10371-12108 arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10371-12072-notInfer arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-14))))))(else (let ((sc1 arg-12)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 arg-13)) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc6 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc7 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-15))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-14 (vector 11 arg-9) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc8 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc9 1))) (let ((sc10 e-17)) (let ((e-18 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((fntm (vector 4 arg-9 arg-10 e-18))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-19 (vector-ref sc11 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc11 1))) (let ((act-32 ((Normalise-Core-nf arg-0 e-19 arg-8 e-16) eta-0))) (let ((sc12 act-32)) (case (vector-ref sc12 0) ((0) (let ((e-20 (vector-ref sc12 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc12 1))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-15) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-16))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc13 act-33)) (case (vector-ref sc13 0) ((0) (let ((e-21 (vector-ref sc13 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc13 1))) (let ((act-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc14 act-34)) (case (vector-ref sc14 0) ((0) (let ((e-22 (vector-ref sc14 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc14 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-20 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-23 (vector-ref sc15 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc15 1))) (let ((act-36 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-19 arg-8 arg-11) expfnty) eta-0))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-24 (vector-ref sc16 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc16 1))) (let ((_-0 (vector 0 e-18 e-4))) ((App-Elab-TTImp-case--15906-12426 e-2 e-3 e-5 e-6 arg-0 arg-16 arg-15 arg-14 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 e-8 e-9 e-14 e-15 argTyG e-16 e-18 e-4 _-0 fntm e-19 e-20 expfnty e-21 e-22 e-23 e-24 (let ((sc17 e-24)) (let ((e-0 (vector-ref sc17 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) ((5) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (let ((sc1 e-17)) (case (vector-ref sc1 0) ((0) (let ((e-45 (vector-ref sc1 3))) (let ((sc2 e-45)) (case (vector-ref sc2 0) ((2) (App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 8 e-15 e-16 arg-10) e-17 arg-12 arg-13 arg-14 arg-15 arg-16))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10371-12108 arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10371-12072-notInfer arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-14))))))(else (let ((sc2 arg-12)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 arg-13)) (let ((e-5 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-11))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-10 (vector 11 arg-9) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc10 1))) (let ((sc11 e-13)) (let ((e-14 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((fntm (vector 4 arg-9 arg-10 e-14))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (let ((act-32 ((Normalise-Core-nf arg-0 e-18 arg-8 e-12) eta-0))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-19 (vector-ref sc13 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc13 1))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-11) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-12))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-20 (vector-ref sc14 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc14 1))) (let ((act-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-21 (vector-ref sc15 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc15 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-19 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (let ((sc16 act-35)) (case (vector-ref sc16 0) ((0) (let ((e-22 (vector-ref sc16 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc16 1))) (let ((act-36 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-18 arg-8 arg-11) expfnty) eta-0))) (let ((sc17 act-36)) (case (vector-ref sc17 0) ((0) (let ((e-23 (vector-ref sc17 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc17 1))) (let ((_-0 (vector 0 e-14 e-4))) ((App-Elab-TTImp-case--15906-12426 e-2 e-3 e-5 e-6 arg-0 arg-16 arg-15 arg-14 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 e-8 e-9 e-10 e-11 argTyG e-12 e-14 e-4 _-0 fntm e-18 e-19 expfnty e-20 e-21 e-22 e-23 (let ((sc18 e-23)) (let ((e-0 (vector-ref sc18 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10371-12108 arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10371-12072-notInfer arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-14))))))(else (let ((sc1 arg-12)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 arg-13)) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-11))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-10 (vector 11 arg-9) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((sc10 e-13)) (let ((e-14 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((fntm (vector 4 arg-9 arg-10 e-14))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (let ((act-32 ((Normalise-Core-nf arg-0 e-18 arg-8 e-12) eta-0))) (let ((sc12 act-32)) (case (vector-ref sc12 0) ((0) (let ((e-19 (vector-ref sc12 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc12 1))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-11) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-12))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc13 act-33)) (case (vector-ref sc13 0) ((0) (let ((e-20 (vector-ref sc13 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc13 1))) (let ((act-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc14 act-34)) (case (vector-ref sc14 0) ((0) (let ((e-21 (vector-ref sc14 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc14 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-19 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-22 (vector-ref sc15 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc15 1))) (let ((act-36 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-18 arg-8 arg-11) expfnty) eta-0))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-23 (vector-ref sc16 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc16 1))) (let ((_-0 (vector 0 e-14 e-4))) ((App-Elab-TTImp-case--15906-12426 e-2 e-3 e-5 e-6 arg-0 arg-16 arg-15 arg-14 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 e-8 e-9 e-10 e-11 argTyG e-12 e-14 e-4 _-0 fntm e-18 e-19 expfnty e-20 e-21 e-22 e-23 (let ((sc17 e-23)) (let ((e-0 (vector-ref sc17 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10371-12108 arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10371-12072-notInfer arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-14))))))(else (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-13)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-11))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-10 (vector 11 arg-9) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (let ((e-14 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((fntm (vector 4 arg-9 arg-10 e-14))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-32 ((Normalise-Core-nf arg-0 e-15 arg-8 e-12) eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-11) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-12))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-18 (vector-ref sc13 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc13 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-16 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (let ((act-36 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-15 arg-8 arg-11) expfnty) eta-0))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-20 (vector-ref sc15 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc15 1))) (let ((_-0 (vector 0 e-14 e-4))) ((App-Elab-TTImp-case--15906-12426 e-2 e-3 e-5 e-6 arg-0 arg-16 arg-15 arg-14 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 e-8 e-9 e-10 e-11 argTyG e-12 e-14 e-4 _-0 fntm e-15 e-16 expfnty e-17 e-18 e-19 e-20 (let ((sc16 e-20)) (let ((e-0 (vector-ref sc16 1))) e-0))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define App-Elab-TTImp-checkApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (App-Elab-TTImp-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-0 e-1 (vector 1 e-2 arg-11) arg-12 arg-13))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (App-Elab-TTImp-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3 e-4 arg-11 (vector 1 (vector 0 e-5 e-6) arg-12) arg-13)))))) ((0) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((App-Elab-TTImp-getVarType arg-0 arg-1 arg-2 arg-4 arg-5 arg-7 arg-8 arg-9 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 e-9) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc4 1))) (let ((act-26 (Context-Core-fromIntegerName arg-1 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 (Context-Core-fromStringName arg-1 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (let ((act-28 (Context-Core-fromCharName arg-1 eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc7 1))) (let ((prims (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) (vector 1 e-11 (vector 1 e-12 (vector 1 e-13 (vector 0 ))))))) (let ((act-29 ((App-Elab-TTImp-n--16284-12649-updateElabInfo arg-0 e-8 e-7 arg-13 arg-12 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 prims (let ((sc8 arg-6)) (let ((e-0 (vector-ref sc8 1))) e-0)) e-8 arg-11 arg-6) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc8 1))) (let ((act-30 (Context-Core-logC arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-30 (let ((act-30 (unbox arg-1))) (vector 1 act-30)))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc9 1))) (let ((act-31 (Normalise-Core-quote_Quote__NF arg-0 e-15 arg-8 e-10 eta-1))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc10 1))) (let ((act-32 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (vector 1 (vector 0 )))) (lambda () (lambda (t) (lambda (eta-2) (let ((act-32 ((Normalise-Core-getTerm 'erased t) eta-2))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-33 (Normalise-Core-normaliseHoles arg-0 e-15 arg-8 e-17 eta-2))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc12 1))) (let ((act-34 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-18 eta-2))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc13 1))) (vector 1 (vector 1 e-19)))))))))))))))))))) arg-13) eta-1))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-33 ((Context-Core-getFullName arg-1 e-8) eta-1))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc12 1))) (let ((act-34 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-16 eta-1))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc13 1))) (vector 1 (Strings-Prelude-C-43C-43 "Checking application of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Prelude-C-43C-43 ")" (Strings-Prelude-C-43C-43 " to " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) arg-11) (Strings-Prelude-C-43C-43 "\u000a\u0009Function type " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-19) (Strings-Prelude-C-43C-43 "\u000a\u0009Expected app type " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-17)))))))))))))))))))))))))))))))))))))) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc9 1))) (let ((fn (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-9)))) (App-Elab-TTImp-case--16982-13364 arg-0 e-8 e-7 arg-13 arg-12 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-6 e-9 _-0 e-10 e-11 e-12 e-13 prims e-14 e-15 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-8 arg-7))))) (let ((act-31 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-14 arg-7 arg-8 arg-9 e-2 e-10 (vector 0 (vector 1 fn) e-6) arg-11 arg-12 1 arg-13) eta-0))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc10 1))) (App-Elab-TTImp-n--16284-12648-normalisePrims arg-0 e-8 e-7 arg-13 arg-12 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 prims arg-8 e-16 eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 (vector 0 )) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-6 (vector 0 (vector 0 ) 0) arg-11 arg-12 1 arg-13) eta-0)))))))))))))))))))) +(define Ambiguity-Elab-TTImp-case--13086-6661 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Check-Elab-TTImp-anyOne arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 eta-0)))(else (lambda (eta-0) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 (Prelude-not arg-17) arg-4 arg-5 eta-0))))))) +(define Ambiguity-Elab-TTImp-case--13086-6549 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (Normalise-Core-gnf arg-0 arg-5 arg-19)) (else arg-15))))) +(define Ambiguity-Elab-TTImp-case--13086-6454 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) +(define Ambiguity-Elab-TTImp-case--12533-6374 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 e-1 arg-1))(else (lambda (eta-0) (let ((act-24 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-24 (UnifyState-Core-genName arg-12 arg-10 "altTy" eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 e-5 (vector 11 arg-4) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-5 e-6)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((solvemode (Ambiguity-Elab-TTImp-case--13086-6454 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-5 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 arg-8 arg-5 e-5 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-1) (let ((act-25 (let ((act-25 (unbox arg-12))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 ((Normalise-Core-getTerm 'erased e-5) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((expC-39 (let ((sc4 delayed)) (cond ((equal? sc4 0) (Normalise-Core-gnf arg-0 arg-5 e-7)) (else e-5))))) (let ((act-27 (let ((act-27 ((Normalise-Core-getNF 'erased arg-12 expC-39) eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-12 arg-10 arg-5 e-8 arg-2 eta-1)))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Normalise-Core-logGlueNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool delayed) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-8) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-4) "\u000aTarget type "))))))) arg-5 expC-39 eta-1))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((tryall (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((0) (lambda (eta-2) (Check-Elab-TTImp-anyOne arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 eta-2)))(else (lambda (eta-2) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 (Prelude-not delayed) arg-4 arg-5 eta-2))))))) ((tryall (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (lambda (eta-2) (let ((act-29 ((Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-8 (Ambiguity-Elab-TTImp-getName t)) arg-7) arg-6 arg-5 t (vector 1 expC-39)) eta-2))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((act-31 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-32 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Ambiguity-Elab-TTImp-getName t)) " success")) eta-2))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (vector 1 e-10))))))))))))))))))))) e-8)) eta-1))))))))))))))))))))))) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-24 (UnifyState-Core-genName arg-12 arg-10 "altTy" eta-1))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 e-5 (vector 11 arg-4) eta-1))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-5 e-6)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-1) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((solvemode (Ambiguity-Elab-TTImp-case--13086-6454 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-5 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 arg-8 arg-5 e-5 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-1) (let ((act-25 (let ((act-25 (unbox arg-12))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((Normalise-Core-getTerm 'erased e-5) eta-1))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((expC-39 (let ((sc3 delayed)) (cond ((equal? sc3 0) (Normalise-Core-gnf arg-0 arg-5 e-7)) (else e-5))))) (let ((act-27 (let ((act-27 ((Normalise-Core-getNF 'erased arg-12 expC-39) eta-1))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-12 arg-10 arg-5 e-8 arg-2 eta-1)))))))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Normalise-Core-logGlueNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool delayed) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-8) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-4) "\u000aTarget type "))))))) arg-5 expC-39 eta-1))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((tryall (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (lambda (eta-2) (Check-Elab-TTImp-anyOne arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 eta-2)))(else (lambda (eta-2) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 (Prelude-not delayed) arg-4 arg-5 eta-2))))))) ((tryall (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (lambda (eta-2) (let ((act-29 ((Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-8 (Ambiguity-Elab-TTImp-getName t)) arg-7) arg-6 arg-5 t (vector 1 expC-39)) eta-2))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-31 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-32 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Ambiguity-Elab-TTImp-getName t)) " success")) eta-2))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (vector 1 e-10))))))))))))))))))))) e-8)) eta-1))))))))))))))))))))))) eta-0))))))))))))) +(define Ambiguity-Elab-TTImp-case--12533-6140 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (lambda (eta-0) (Check-Elab-TTImp-try 'erased arg-0 arg-12 arg-11 arg-10 arg-9 (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 1 arg-4 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased arg-22 (Ambiguity-Elab-TTImp-getName t)) arg-7) arg-6 arg-5 t (vector 1 arg-20)))) arg-22)) (lambda (eta-1) (let ((act-24 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "All failed, running default") eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased arg-22 (Ambiguity-Elab-TTImp-getName arg-1)) arg-7) arg-6 arg-5 arg-1 (vector 1 arg-20)) eta-1)))))) eta-0))) (else (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 0 arg-4 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased arg-22 (Ambiguity-Elab-TTImp-getName t)) arg-7) arg-6 arg-5 t (vector 1 arg-20)))) arg-22))))))) +(define Ambiguity-Elab-TTImp-case--12533-5993 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (Normalise-Core-gnf arg-0 arg-5 arg-19)) (else arg-14))))) +(define Ambiguity-Elab-TTImp-case--12533-5895 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) +(define Ambiguity-Elab-TTImp-case--12471-5844 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 arg-2 e-5))))))))))) +(define Ambiguity-Elab-TTImp-case--12155-5686 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-1))) (else (lambda (eta-0) (vector 1 arg-11))))))) +(define Ambiguity-Elab-TTImp-case--12155-5584 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Ambiguity-Elab-TTImp-filterCore 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-notOverloadable arg-6 eta-1)) arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Keep " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Bool x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Bool d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Bool x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Bool d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) e-5))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-5))))))))))))) (else (lambda (eta-0) (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-8)))))))) +(define Ambiguity-Elab-TTImp-case--12082-5457 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 arg-1 arg-5)))) (else (lambda (eta-0) (vector 1 arg-5))))))) +(define Ambiguity-Elab-TTImp-case--12031-5388 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 1))) (else (lambda (eta-0) (vector 1 0))))))) +(define Ambiguity-Elab-TTImp-case--11760-5301 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 0 arg-1))))) ((1) (lambda (eta-0) (vector 1 (vector 1 (vector 0 1 arg-1))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Ambiguity-Elab-TTImp-case--11760-5235 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 0 arg-2))))) ((1) (lambda (eta-0) (vector 1 (vector 1 (vector 0 1 arg-2))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Ambiguity-Elab-TTImp-case--11760-5149 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 0 arg-5))))) ((1) (lambda (eta-0) (vector 1 (vector 1 (vector 0 1 arg-5))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Ambiguity-Elab-TTImp-case--11681-5071 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-3 (vector 0 ) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((Ambiguity-Elab-TTImp-mightMatchD arg-0 arg-3 arg-2 e-5) eta-0))))))))))))) +(define Ambiguity-Elab-TTImp-case--11068-4952 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) +(define Ambiguity-Elab-TTImp-case--11416-4856 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) +(define Ambiguity-Elab-TTImp-case--11068-4823 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Ambiguity-Elab-TTImp-mightMatchArgs arg-0 arg-11 arg-3 arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 (vector 0 ))) (else (vector 1 (vector 2 )))))))))))) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) +(define Ambiguity-Elab-TTImp-case--11264-4727 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) +(define Ambiguity-Elab-TTImp-case--11068-4694 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Ambiguity-Elab-TTImp-mightMatchArgs arg-0 arg-11 arg-3 arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 (vector 0 ))) (else (vector 1 (vector 2 )))))))))))) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) +(define Ambiguity-Elab-TTImp-case--11065-4616 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Ambiguity-Elab-TTImp-mightMatchArgs arg-0 arg-5 arg-2 arg-4)) (else (lambda (eta-0) (vector 1 1))))))) +(define Ambiguity-Elab-TTImp-case--11062-4562 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0))))))) +(define Ambiguity-Elab-TTImp-case--10662-4277 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Failed to find " (TTImp-TTImp-show_Show__RawImp arg-5))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-5))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Only one " (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased e-2)))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 (Ambiguity-Elab-TTImp-n--9322-3079-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 e-2))))))))(else (lambda (eta-0) (vector 1 (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--9322-3074-uniqType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14 arg-15 arg-1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--9322-3079-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 eta-1)) arg-19))))))))))(else (lambda (eta-0) (vector 1 (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--9322-3074-uniqType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14 arg-15 arg-1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--9322-3079-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 eta-1)) arg-19))))))))) +(define Ambiguity-Elab-TTImp-case--10465-4167 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "unambiguous: " (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased e-1)))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (Ambiguity-Elab-TTImp-n--9322-3079-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 e-1))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtName arg-1 (let ((sc1 arg-11)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-filterM 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--9322-3073-visible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-1)) e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((act-26 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Failed to find " (TTImp-TTImp-show_Show__RawImp arg-5))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 arg-5)))))) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((act-26 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Only one " (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased e-2)))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (Ambiguity-Elab-TTImp-n--9322-3079-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 e-2)))))))(else (vector 1 (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--9322-3074-uniqType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14 arg-15 arg-1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--9322-3079-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 eta-1)) e-6)))))))))(else (vector 1 (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--9322-3074-uniqType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14 arg-15 arg-1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--9322-3079-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 eta-1)) e-6)))))))))))))))))))))) +(define Ambiguity-Elab-TTImp-case--10465-4020 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Defined in env " (Name-Core-show_Show__Name arg-1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-5))))))) (else (lambda (eta-0) (vector 1 (vector 18 arg-2 (vector 1 ) arg-5)))))))) +(define Ambiguity-Elab-TTImp-case--10377-3987 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Ambiguity-Elab-TTImp-case--10465-4020 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-1 (Prelude-C-124C-124 (List-Data-isNil 'erased arg-4) (lambda () (Ambiguity-Elab-TTImp-n--9322-3080-notLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-8)))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-fromIntegerName arg-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-fromStringName arg-10 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-fromCharName arg-10 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((prims (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))))) (let ((primApp (Ambiguity-Elab-TTImp-n--9322-3076-isPrimName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 prims arg-1))) ((Ambiguity-Elab-TTImp-case--10465-4167 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 e-6 e-7 e-8 prims primApp (Ambiguity-Elab-TTImp-n--9322-3072-lookupUN arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased (Name-Core-userNameRoot arg-1) (let ((sc5 e-5)) (let ((e-13 (vector-ref sc5 13))) e-13)))) eta-0))))))))))))))))))))))))))))) +(define Ambiguity-Elab-TTImp-case--9322-3908 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Nested " (Name-Core-show_Show__Name arg-1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-5))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-10))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Ambiguity-Elab-TTImp-case--10377-3987 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 (Env-Core-defined arg-0 arg-1 arg-6)) eta-0)))))))))))) +(define Ambiguity-Elab-TTImp-case--10179-3776 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) arg-15)(else (vector 26 arg-2 (vector 14 arg-2 arg-15))))))) +(define Ambiguity-Elab-TTImp-case--9433-3739 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((1) arg-15)(else (vector 26 arg-2 (vector 14 arg-2 arg-15)))))) (else arg-15))))) +(define Ambiguity-Elab-TTImp-case--9432-3631 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) arg-14) (else (vector 18 arg-2 (vector 2 ) arg-14)))))) +(define Ambiguity-Elab-TTImp-case--9432-3542 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) arg-14) (else (vector 18 arg-2 (vector 2 ) arg-14)))))) +(define Ambiguity-Elab-TTImp-case--9517-3195 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (lambda (eta-0) (vector 1 1))))))) +(define Ambiguity-Elab-TTImp-case--9465-3145 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-getNS arg-10 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-getNestedNS arg-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((bind-0 0)) ((Ambiguity-Elab-TTImp-case--9517-3195 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 bind-0 e-5 e-6 (Context-Core-visibleInAny (vector 1 e-5 e-6) (vector 0 arg-15 arg-14) (let ((sc3 arg-13)) (let ((e-9 (vector-ref sc3 10))) e-9)))) eta-0)))))))))))))) (else (lambda (eta-0) (vector 1 1))))))) +(define Ambiguity-Elab-TTImp-case--9428-3108 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-isVisible arg-10 e-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-25 (Context-Core-getNS arg-10 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-getNestedNS arg-10 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((bind-0 0)) ((Ambiguity-Elab-TTImp-case--9517-3195 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-1 e-0 bind-0 e-6 e-7 (Context-Core-visibleInAny (vector 1 e-6 e-7) (vector 0 e-0 e-1) (let ((sc5 arg-13)) (let ((e-9 (vector-ref sc5 10))) e-9)))) eta-0))))))))))))) (else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 0))))))) +(define Ambiguity-Elab-TTImp-case--9322-3014 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 18 arg-3 (vector 0 ) arg-6)))) (else (lambda (eta-0) (vector 1 arg-6))))))) +(define Ambiguity-Elab-TTImp-n--9322-3077-wrapDot (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((5) arg-17) ((6) arg-17)(else (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (Ambiguity-Elab-TTImp-case--9432-3542 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-16 e-0 e-2 arg-17 arg-14 arg-12 arg-11 (Prelude-C-124C-124 (Name-Core-C-61C-61_Eq__Name arg-14 (vector 9 (let ((sc3 arg-12)) (let ((e-15 (vector-ref sc3 2))) e-15)))) (lambda () arg-11))))(else (Ambiguity-Elab-TTImp-case--9432-3631 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-15 arg-16 e-0 arg-17 arg-14 arg-12 arg-11 (Name-Core-C-61C-61_Eq__Name arg-14 (vector 9 (let ((sc2 arg-12)) (let ((e-15 (vector-ref sc2 2))) e-15)))))))))))(else (Ambiguity-Elab-TTImp-case--9432-3631 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-15 arg-16 e-0 arg-17 arg-14 arg-12 arg-11 (Name-Core-C-61C-61_Eq__Name arg-14 (vector 9 (let ((sc1 arg-12)) (let ((e-2 (vector-ref sc1 2))) e-2))))))))))(else arg-17)))))))) +(define Ambiguity-Elab-TTImp-n--9322-3073-visible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Ambiguity-Elab-TTImp-case--9428-3108 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2 e-6 e-7 (let ((sc2 e-7)) (let ((e-1 (vector-ref sc2 2))) e-1))))))))))) +(define Ambiguity-Elab-TTImp-n--9322-3074-uniqType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-37 (vector-ref sc1 1))) (let ((e-38 (vector-ref sc1 2))) (let ((sc2 e-37)) (case (vector-ref sc2 0) ((0) (let ((e-42 (vector-ref sc2 2))) (let ((sc3 e-42)) (case (vector-ref sc3 0) ((0) (let ((e-46 (vector-ref sc3 2))) (let ((sc4 e-46)) (case (vector-ref sc4 0) ((27) (let ((e-47 (vector-ref sc4 1))) (let ((e-48 (vector-ref sc4 2))) (let ((sc5 e-48)) (case (vector-ref sc5 0) ((1) (let ((e-49 (vector-ref sc5 1))) (let ((sc6 e-38)) (case (vector-ref sc6 0) ((0) (vector 2 (vector 27 e-47 (vector 1 e-49))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-29 (vector-ref sc9 2))) (let ((sc10 e-29)) (case (vector-ref sc10 0) ((27) (let ((e-30 (vector-ref sc10 1))) (let ((e-31 (vector-ref sc10 2))) (let ((sc11 e-31)) (case (vector-ref sc11 0) ((6) (let ((e-32 (vector-ref sc11 1))) (let ((sc12 e-21)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-15)) (case (vector-ref sc13 0) ((1) (let ((e-3 (vector-ref sc13 1))) (let ((e-4 (vector-ref sc13 2))) (let ((sc14 e-3)) (case (vector-ref sc14 0) ((0) (let ((e-8 (vector-ref sc14 2))) (let ((sc15 e-8)) (case (vector-ref sc15 0) ((0) (let ((e-12 (vector-ref sc15 2))) (let ((sc16 e-12)) (case (vector-ref sc16 0) ((27) (let ((e-13 (vector-ref sc16 1))) (let ((e-14 (vector-ref sc16 2))) (let ((sc17 e-14)) (case (vector-ref sc17 0) ((7) (let ((e-15 (vector-ref sc17 1))) (let ((sc18 e-4)) (case (vector-ref sc18 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-15)) (case (vector-ref sc12 0) ((1) (let ((e-3 (vector-ref sc12 1))) (let ((e-4 (vector-ref sc12 2))) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((0) (let ((e-8 (vector-ref sc13 2))) (let ((sc14 e-8)) (case (vector-ref sc14 0) ((0) (let ((e-12 (vector-ref sc14 2))) (let ((sc15 e-12)) (case (vector-ref sc15 0) ((27) (let ((e-13 (vector-ref sc15 1))) (let ((e-14 (vector-ref sc15 2))) (let ((sc16 e-14)) (case (vector-ref sc16 0) ((7) (let ((e-15 (vector-ref sc16 1))) (let ((sc17 e-4)) (case (vector-ref sc17 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-15)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 2))) (let ((sc13 e-8)) (case (vector-ref sc13 0) ((0) (let ((e-12 (vector-ref sc13 2))) (let ((sc14 e-12)) (case (vector-ref sc14 0) ((27) (let ((e-13 (vector-ref sc14 1))) (let ((e-14 (vector-ref sc14 2))) (let ((sc15 e-14)) (case (vector-ref sc15 0) ((7) (let ((e-15 (vector-ref sc15 1))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-15)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 2))) (let ((sc12 e-8)) (case (vector-ref sc12 0) ((0) (let ((e-12 (vector-ref sc12 2))) (let ((sc13 e-12)) (case (vector-ref sc13 0) ((27) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((7) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-29 (vector-ref sc8 2))) (let ((sc9 e-29)) (case (vector-ref sc9 0) ((27) (let ((e-30 (vector-ref sc9 1))) (let ((e-31 (vector-ref sc9 2))) (let ((sc10 e-31)) (case (vector-ref sc10 0) ((6) (let ((e-32 (vector-ref sc10 1))) (let ((sc11 e-21)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-15)) (case (vector-ref sc12 0) ((1) (let ((e-3 (vector-ref sc12 1))) (let ((e-4 (vector-ref sc12 2))) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((0) (let ((e-8 (vector-ref sc13 2))) (let ((sc14 e-8)) (case (vector-ref sc14 0) ((0) (let ((e-12 (vector-ref sc14 2))) (let ((sc15 e-12)) (case (vector-ref sc15 0) ((27) (let ((e-13 (vector-ref sc15 1))) (let ((e-14 (vector-ref sc15 2))) (let ((sc16 e-14)) (case (vector-ref sc16 0) ((7) (let ((e-15 (vector-ref sc16 1))) (let ((sc17 e-4)) (case (vector-ref sc17 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-15)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 2))) (let ((sc13 e-8)) (case (vector-ref sc13 0) ((0) (let ((e-12 (vector-ref sc13 2))) (let ((sc14 e-12)) (case (vector-ref sc14 0) ((27) (let ((e-13 (vector-ref sc14 1))) (let ((e-14 (vector-ref sc14 2))) (let ((sc15 e-14)) (case (vector-ref sc15 0) ((7) (let ((e-15 (vector-ref sc15 1))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-15)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 2))) (let ((sc12 e-8)) (case (vector-ref sc12 0) ((0) (let ((e-12 (vector-ref sc12 2))) (let ((sc13 e-12)) (case (vector-ref sc13 0) ((27) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((7) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-29 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((27) (let ((e-30 (vector-ref sc8 1))) (let ((e-31 (vector-ref sc8 2))) (let ((sc9 e-31)) (case (vector-ref sc9 0) ((6) (let ((e-32 (vector-ref sc9 1))) (let ((sc10 e-21)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-15)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 2))) (let ((sc13 e-8)) (case (vector-ref sc13 0) ((0) (let ((e-12 (vector-ref sc13 2))) (let ((sc14 e-12)) (case (vector-ref sc14 0) ((27) (let ((e-13 (vector-ref sc14 1))) (let ((e-14 (vector-ref sc14 2))) (let ((sc15 e-14)) (case (vector-ref sc15 0) ((7) (let ((e-15 (vector-ref sc15 1))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-15)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 2))) (let ((sc12 e-8)) (case (vector-ref sc12 0) ((0) (let ((e-12 (vector-ref sc12 2))) (let ((sc13 e-12)) (case (vector-ref sc13 0) ((27) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((7) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-29 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((27) (let ((e-30 (vector-ref sc7 1))) (let ((e-31 (vector-ref sc7 2))) (let ((sc8 e-31)) (case (vector-ref sc8 0) ((6) (let ((e-32 (vector-ref sc8 1))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-15)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 2))) (let ((sc12 e-8)) (case (vector-ref sc12 0) ((0) (let ((e-12 (vector-ref sc12 2))) (let ((sc13 e-12)) (case (vector-ref sc13 0) ((27) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((7) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((27) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))))(else (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-20)) (case (vector-ref sc4 0) ((0) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (let ((e-29 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((27) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-31)) (case (vector-ref sc7 0) ((6) (let ((e-32 (vector-ref sc7 1))) (let ((sc8 e-21)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((27) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((27) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((sc7 e-14)) (case (vector-ref sc7 0) ((7) (let ((e-15 (vector-ref sc7 1))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))))))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((sc3 e-20)) (case (vector-ref sc3 0) ((0) (let ((e-25 (vector-ref sc3 2))) (let ((sc4 e-25)) (case (vector-ref sc4 0) ((0) (let ((e-29 (vector-ref sc4 2))) (let ((sc5 e-29)) (case (vector-ref sc5 0) ((27) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (let ((sc6 e-31)) (case (vector-ref sc6 0) ((6) (let ((e-32 (vector-ref sc6 1))) (let ((sc7 e-21)) (case (vector-ref sc7 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((27) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((27) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((sc7 e-14)) (case (vector-ref sc7 0) ((7) (let ((e-15 (vector-ref sc7 1))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 2))) (let ((sc5 e-12)) (case (vector-ref sc5 0) ((27) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((7) (let ((e-15 (vector-ref sc6 1))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))))(else (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((sc2 e-20)) (case (vector-ref sc2 0) ((0) (let ((e-25 (vector-ref sc2 2))) (let ((sc3 e-25)) (case (vector-ref sc3 0) ((0) (let ((e-29 (vector-ref sc3 2))) (let ((sc4 e-29)) (case (vector-ref sc4 0) ((27) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (let ((sc5 e-31)) (case (vector-ref sc5 0) ((6) (let ((e-32 (vector-ref sc5 1))) (let ((sc6 e-21)) (case (vector-ref sc6 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((27) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((27) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((sc7 e-14)) (case (vector-ref sc7 0) ((7) (let ((e-15 (vector-ref sc7 1))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 2))) (let ((sc5 e-12)) (case (vector-ref sc5 0) ((27) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((7) (let ((e-15 (vector-ref sc6 1))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 2))) (let ((sc4 e-12)) (case (vector-ref sc4 0) ((27) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((7) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))))) +(define Ambiguity-Elab-TTImp-n--12015-5375-notOverloadableFn (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-1 (let ((sc1 arg-2)) (let ((e-27 (vector-ref sc1 1))) e-27))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (vector 1 1)) (else (vector 1 0))))))))))))(else (lambda (eta-0) (vector 1 0))))))) +(define Ambiguity-Elab-TTImp-n--9322-3080-notLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) 1)(else 0))))) +(define Ambiguity-Elab-TTImp-n--9322-3078-mkTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((tm (Ambiguity-Elab-TTImp-n--9322-3077-wrapDot arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-8 arg-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased eta-0))) arg-4) (let ((sc0 arg-14)) (let ((e-17 (vector-ref sc0 18))) e-17)) (Ambiguity-Elab-TTImp-n--9322-3075-buildAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 0 arg-2 arg-13) arg-4)))) (Ambiguity-Elab-TTImp-case--9433-3739 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-14 arg-13 arg-12 arg-11 tm (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Context-Core-C-61C-61_Eq__DefFlag arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Context-Core-C-47C-61_Eq__DefFlag arg-438 arg-439)))) (vector 6 ) (let ((sc0 arg-14)) (let ((e-11 (vector-ref sc0 12))) e-11))))))) +(define Ambiguity-Elab-TTImp-n--9322-3079-mkAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Ambiguity-Elab-TTImp-n--9322-3078-mkTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (vector 9 e-6) e-7)))))))) +(define Ambiguity-Elab-TTImp-n--9322-3072-lookupUN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (StringMap-Data-lookup 'erased e-2 arg-13))))))) +(define Ambiguity-Elab-TTImp-n--9322-3076-isPrimName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-124C-124 (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS arg-12) e-2) (lambda () (Ambiguity-Elab-TTImp-n--9322-3076-isPrimName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3 arg-12)))))))))) +(define Ambiguity-Elab-TTImp-n--9322-3075-buildAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) arg-11) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (Ambiguity-Elab-TTImp-n--9322-3075-buildAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 e-6 arg-11 e-11) e-3)) (else (let ((e-14 (vector-ref sc3 1))) (Ambiguity-Elab-TTImp-n--9322-3075-buildAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 9 e-6 arg-11 e-14 e-11) e-3)))))))))))))))))) (define Ambiguity-Elab-TTImp-stripDelay (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((5) (let ((e-3 (vector-ref sc0 3))) (Ambiguity-Elab-TTImp-stripDelay 'erased e-3)))(else arg-1))))) -(define Ambiguity-Elab-TTImp-pruneByType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Ambiguity-Elab-TTImp-couldBe arg-0 e-5 (Ambiguity-Elab-TTImp-stripDelay 'erased arg-4) eta-0)) arg-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((matches (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-6))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Prune by") arg-3 arg-4 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Bool x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Bool d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Bool x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Bool d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) matches)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 ((Ambiguity-Elab-TTImp-case--12104-5576 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 matches e-7 e-8 (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) matches))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) ((Ambiguity-Elab-TTImp-case--12104-5678 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 matches e-7 e-8 e-9 (List-Data-isNil 'erased e-9)) ext-0))))))))))))))))))))))))))))) -(define Ambiguity-Elab-TTImp-notOverloadable (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (lambda (eta-0) (vector 1 0)))(else (Ambiguity-Elab-TTImp-n--11964-5367-notOverloadableFn e-2 e-3 arg-0 (TTImp-TTImp-getFn e-3)))))))))) +(define Ambiguity-Elab-TTImp-pruneByType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Ambiguity-Elab-TTImp-couldBe arg-0 e-5 (Ambiguity-Elab-TTImp-stripDelay 'erased arg-4) eta-0)) arg-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((matches (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-6))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Prune by") arg-3 arg-4 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Bool x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Bool d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Bool x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Bool d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) matches)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 ((Ambiguity-Elab-TTImp-case--12155-5584 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 matches e-7 e-8 (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) matches))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) ((Ambiguity-Elab-TTImp-case--12155-5686 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 matches e-7 e-8 e-9 (List-Data-isNil 'erased e-9)) ext-0))))))))))))))))))))))))))))) +(define Ambiguity-Elab-TTImp-notOverloadable (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (lambda (eta-0) (vector 1 0)))(else (Ambiguity-Elab-TTImp-n--12015-5375-notOverloadableFn e-2 e-3 arg-0 (TTImp-TTImp-getFn e-3)))))))))) (define Ambiguity-Elab-TTImp-mightMatchD (lambda (arg-0 arg-1 arg-2 arg-3) (Ambiguity-Elab-TTImp-mightMatch arg-0 arg-1 (Ambiguity-Elab-TTImp-stripDelay 'erased arg-2) (Ambiguity-Elab-TTImp-stripDelay 'erased arg-3)))) (define Ambiguity-Elab-TTImp-mightMatchArgs (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Ambiguity-Elab-TTImp-mightMatchArg arg-0 arg-1 e-2 e-6 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 0) ((Ambiguity-Elab-TTImp-mightMatchArgs arg-0 arg-1 e-3 e-7) eta-0)) (else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1))))))) (define Ambiguity-Elab-TTImp-mightMatchArg (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-1 arg-2) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Normalise-Core-evalClosure (vector 0 ) arg-1 arg-3) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Ambiguity-Elab-TTImp-mightMatchD arg-0 arg-1 e-5 e-6) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((2) (vector 1 1))(else (vector 1 0))))))))))))))))))))) -(define Ambiguity-Elab-TTImp-mightMatch (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-49 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 3))) (let ((e-52 (vector-ref sc0 4))) (let ((sc1 e-51)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-52 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-49 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Ambiguity-Elab-TTImp-mightMatchD arg-0 arg-1 arg-2 e-5) eta-0))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((3) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (let ((e-11 (vector-ref sc1 4))) (let ((e-12 (vector-ref sc1 5))) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-32 (vector-ref sc2 1))) (let ((e-33 (vector-ref sc2 2))) (let ((e-34 (vector-ref sc2 3))) (let ((e-35 (vector-ref sc2 4))) (let ((e-36 (vector-ref sc2 5))) (Ambiguity-Elab-TTImp-case--11017-4686 arg-0 e-32 e-8 e-12 e-11 e-10 e-9 e-36 e-35 e-34 e-33 arg-1 (Name-Core-C-61C-61_Eq__Name e-9 e-33))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((2) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((e-16 (vector-ref sc1 3))) (let ((e-17 (vector-ref sc1 4))) (let ((e-18 (vector-ref sc1 5))) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((2) (let ((e-38 (vector-ref sc2 1))) (let ((e-39 (vector-ref sc2 2))) (let ((e-40 (vector-ref sc2 3))) (let ((e-41 (vector-ref sc2 4))) (let ((e-42 (vector-ref sc2 5))) (Ambiguity-Elab-TTImp-case--11017-4815 arg-0 e-38 e-14 e-18 e-17 e-16 e-15 e-42 e-41 e-40 e-39 arg-1 (Prelude-C-61C-61_Eq__Int e-16 e-40))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((8) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-44 (vector-ref sc2 1))) (let ((e-45 (vector-ref sc2 2))) (Ambiguity-Elab-TTImp-case--11017-4944 arg-0 e-44 e-20 e-21 e-45 arg-1 (TT-Core-C-61C-61_Eq__Constant e-21 e-45)))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))) ((10) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 (vector 0 ))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-32 (vector-ref sc1 1))) (let ((e-33 (vector-ref sc1 2))) (let ((e-34 (vector-ref sc1 3))) (let ((e-35 (vector-ref sc1 4))) (let ((e-36 (vector-ref sc1 5))) (Ambiguity-Elab-TTImp-case--11017-4686 arg-0 e-32 e-8 e-12 e-11 e-10 e-9 e-36 e-35 e-34 e-33 arg-1 (Name-Core-C-61C-61_Eq__Name e-9 e-33))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((2) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (let ((e-40 (vector-ref sc1 3))) (let ((e-41 (vector-ref sc1 4))) (let ((e-42 (vector-ref sc1 5))) (Ambiguity-Elab-TTImp-case--11017-4815 arg-0 e-38 e-14 e-18 e-17 e-16 e-15 e-42 e-41 e-40 e-39 arg-1 (Prelude-C-61C-61_Eq__Int e-16 e-40))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((8) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (Ambiguity-Elab-TTImp-case--11017-4944 arg-0 e-44 e-20 e-21 e-45 arg-1 (TT-Core-C-61C-61_Eq__Constant e-21 e-45)))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))) ((10) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 (vector 0 ))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))) +(define Ambiguity-Elab-TTImp-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--11068-4694 arg-0 e-32 e-8 e-12 e-11 e-10 e-9 e-36 e-35 e-34 e-33 arg-1 (Name-Core-C-61C-61_Eq__Name e-9 e-33))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((2) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((e-16 (vector-ref sc1 3))) (let ((e-17 (vector-ref sc1 4))) (let ((e-18 (vector-ref sc1 5))) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((2) (let ((e-38 (vector-ref sc2 1))) (let ((e-39 (vector-ref sc2 2))) (let ((e-40 (vector-ref sc2 3))) (let ((e-41 (vector-ref sc2 4))) (let ((e-42 (vector-ref sc2 5))) (Ambiguity-Elab-TTImp-case--11068-4823 arg-0 e-38 e-14 e-18 e-17 e-16 e-15 e-42 e-41 e-40 e-39 arg-1 (Prelude-C-61C-61_Eq__Int e-16 e-40))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((8) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-44 (vector-ref sc2 1))) (let ((e-45 (vector-ref sc2 2))) (Ambiguity-Elab-TTImp-case--11068-4952 arg-0 e-44 e-20 e-21 e-45 arg-1 (TT-Core-C-61C-61_Eq__Constant e-21 e-45)))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))) ((10) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 (vector 0 ))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-32 (vector-ref sc1 1))) (let ((e-33 (vector-ref sc1 2))) (let ((e-34 (vector-ref sc1 3))) (let ((e-35 (vector-ref sc1 4))) (let ((e-36 (vector-ref sc1 5))) (Ambiguity-Elab-TTImp-case--11068-4694 arg-0 e-32 e-8 e-12 e-11 e-10 e-9 e-36 e-35 e-34 e-33 arg-1 (Name-Core-C-61C-61_Eq__Name e-9 e-33))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((2) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (let ((e-40 (vector-ref sc1 3))) (let ((e-41 (vector-ref sc1 4))) (let ((e-42 (vector-ref sc1 5))) (Ambiguity-Elab-TTImp-case--11068-4823 arg-0 e-38 e-14 e-18 e-17 e-16 e-15 e-42 e-41 e-40 e-39 arg-1 (Prelude-C-61C-61_Eq__Int e-16 e-40))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((8) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (Ambiguity-Elab-TTImp-case--11068-4952 arg-0 e-44 e-20 e-21 e-45 arg-1 (TT-Core-C-61C-61_Eq__Constant e-21 e-45)))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))) ((10) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 (vector 0 ))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))) (define Ambiguity-Elab-TTImp-getName (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (vector 1 e-1))) ((8) (let ((e-3 (vector-ref sc0 2))) (Ambiguity-Elab-TTImp-getName e-3))) ((9) (let ((e-6 (vector-ref sc0 2))) (Ambiguity-Elab-TTImp-getName e-6)))(else (vector 0 )))))) (define Ambiguity-Elab-TTImp-filterCore (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((arg-1 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Ambiguity-Elab-TTImp-filterCore 'erased arg-1 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 0) (vector 1 (vector 1 e-2 e-6))) (else (vector 1 e-6)))))))))))))))))))))) -(define Ambiguity-Elab-TTImp-expandAmbigName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((16) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Ambiguity-Elab-TTImp-case--9271-3006 arg-0 e-9 e-11 e-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-2 arg-1 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (vector 1 e-11) (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 8))) e-8)))) eta-0))))))))))(else (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (Ambiguity-Elab-TTImp-case--9271-3900 arg-0 e-1 e-0 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-1 arg-4))))) ((8) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-2 (vector 0 (vector 0 ) e-4)) arg-7) e-3 arg-9))))) ((9) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-5 (vector 0 (vector 1 e-7) e-8)) arg-7) e-6 arg-9))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "No ambiguity " (TTImp-TTImp-show_Show__RawImp arg-6))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-6))))))))))))))(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Ambiguity-Elab-TTImp-case--9271-3900 arg-0 e-1 e-0 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-1 arg-4))))) ((8) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-2 (vector 0 (vector 0 ) e-4)) arg-7) e-3 arg-9))))) ((9) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-5 (vector 0 (vector 1 e-7) e-8)) arg-7) e-6 arg-9))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "No ambiguity " (TTImp-TTImp-show_Show__RawImp arg-6))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 arg-6)))))))))))))) +(define Ambiguity-Elab-TTImp-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--9322-3014 arg-0 e-9 e-11 e-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-2 arg-1 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (vector 1 e-11) (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 8))) e-8)))) eta-0))))))))))(else (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (Ambiguity-Elab-TTImp-case--9322-3908 arg-0 e-1 e-0 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-1 arg-4))))) ((8) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-2 (vector 0 (vector 0 ) e-4)) arg-7) e-3 arg-9))))) ((9) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-5 (vector 0 (vector 1 e-7) e-8)) arg-7) e-6 arg-9))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "No ambiguity " (TTImp-TTImp-show_Show__RawImp arg-6))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-6))))))))))))))(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Ambiguity-Elab-TTImp-case--9322-3908 arg-0 e-1 e-0 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-1 arg-4))))) ((8) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-2 (vector 0 (vector 0 ) e-4)) arg-7) e-3 arg-9))))) ((9) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-5 (vector 0 (vector 1 e-7) e-8)) arg-7) e-6 arg-9))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "No ambiguity " (TTImp-TTImp-show_Show__RawImp arg-6))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 arg-6)))))))))))))) (define Ambiguity-Elab-TTImp-couldBeName (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-lookupTyExact arg-3 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 1 ))) (else (let ((e-2 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-1 (vector 0 ) e-2) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) ((Ambiguity-Elab-TTImp-mightMatchD arg-0 arg-1 arg-2 e-6) ext-0))))))))))))))))) (define Ambiguity-Elab-TTImp-couldBeFn (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (Ambiguity-Elab-TTImp-couldBeName arg-0 arg-1 arg-2 e-1 eta-0)))) ((12) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 )))))))) (define Ambiguity-Elab-TTImp-couldBe (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (lambda (eta-0) (let ((act-24 ((Ambiguity-Elab-TTImp-couldBeFn arg-0 arg-1 arg-2 (TTImp-TTImp-getFn arg-3)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 1 (vector 0 0 arg-3)))) ((1) (vector 1 (vector 1 (vector 0 1 arg-3)))) (else (vector 1 (vector 0 )))))))))))) ((8) (lambda (eta-0) (let ((act-24 ((Ambiguity-Elab-TTImp-couldBeFn arg-0 arg-1 arg-2 (TTImp-TTImp-getFn arg-3)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 1 (vector 0 0 arg-3)))) ((1) (vector 1 (vector 1 (vector 0 1 arg-3)))) (else (vector 1 (vector 0 )))))))))))) ((10) (lambda (eta-0) (let ((act-24 ((Ambiguity-Elab-TTImp-couldBeFn arg-0 arg-1 arg-2 (TTImp-TTImp-getFn arg-3)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 1 (vector 0 0 arg-3)))) ((1) (vector 1 (vector 1 (vector 0 1 arg-3)))) (else (vector 1 (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 1 arg-3))))))))) (define Ambiguity-Elab-TTImp-checkAmbigDepth (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-getAmbigLimit arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((ambs (let ((sc1 arg-4)) (let ((e-6 (vector-ref sc1 6))) e-6)))) (let ((sc1 (Prelude-C-62_Ord__Nat (List-Data-length 'erased ambs) e-5))) (cond ((equal? sc1 0) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 20 arg-3 (vector 9 (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 2))) e-2))) ambs) ext-0))))))) (else (vector 1 (vector 0 ))))))))))))) -(define Ambiguity-Elab-TTImp-checkAlternative (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Ambiguity-Elab-TTImp-checkAmbigDepth 'erased arg-1 arg-4 arg-9 arg-6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-25 (UnifyState-Core-genName arg-1 arg-3 "altTy" eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-6 (vector 11 arg-9) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-7)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-12) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((solvemode (Ambiguity-Elab-TTImp-case--12482-5887 arg-0 e-0 arg-12 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 (let ((sc3 arg-6)) (let ((e-8 (vector-ref sc3 1))) e-8))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-6 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-1) (let ((act-26 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 ((Normalise-Core-getTerm 'erased e-6) eta-1))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((expC-39 (let ((sc6 delayed)) (cond ((equal? sc6 0) (Normalise-Core-gnf arg-0 arg-8 e-9)) (else e-6))))) (let ((act-29 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) arg-11) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-9) "\u000aWith default. Target type "))))) arg-8 expC-39 eta-1))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 ((Normalise-Core-getNF 'erased arg-1 expC-39) eta-1))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-1 arg-3 arg-8 e-11 arg-11 eta-1)))))))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Pruned alts (" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-11)) (Strings-Prelude-C-43C-43 ") " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-11))))) eta-1))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((sc9 delayed)) (cond ((equal? sc9 0) (Check-Elab-TTImp-try 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 1 arg-9 arg-8 (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-11 (Ambiguity-Elab-TTImp-getName t)) arg-6) arg-7 arg-8 t (vector 1 expC-39)))) e-11)) (lambda (eta-2) (let ((act-32 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "All failed, running default") eta-2))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-11 (Ambiguity-Elab-TTImp-getName e-0)) arg-6) arg-7 arg-8 e-0 (vector 1 expC-39)) eta-2)))))) eta-1)) (else ((Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 0 arg-9 arg-8 (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-11 (Ambiguity-Elab-TTImp-getName t)) arg-6) arg-7 arg-8 t (vector 1 expC-39)))) e-11)) eta-1))))))))))))))))))))))))))))))))) eta-0)))))))))))))))(else (lambda (eta-0) (let ((act-24 (Ambiguity-Elab-TTImp-checkAmbigDepth 'erased arg-1 arg-4 arg-9 arg-6 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (exp) (lambda (eta-1) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 exp) eta-1))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-1 arg-3 arg-8 e-6 arg-11 eta-1))))))))) arg-12) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 arg-12) eta-0))(else (let ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "altTy" eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-7 (vector 11 arg-9) eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-8)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-12) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((solvemode (Ambiguity-Elab-TTImp-case--13035-6446 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 (let ((sc4 arg-6)) (let ((e-0 (vector-ref sc4 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-7 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-1) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-28 ((Normalise-Core-getTerm 'erased e-7) eta-1))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((expC-39 (let ((sc6 delayed)) (cond ((equal? sc6 0) (Normalise-Core-gnf arg-0 arg-8 e-9)) (else e-7))))) (let ((act-29 (let ((act-29 ((Normalise-Core-getNF 'erased arg-1 expC-39) eta-1))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc6 1))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-1 arg-3 arg-8 e-10 arg-11 eta-1)))))))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool delayed) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-10) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-9) "\u000aTarget type "))))))) arg-8 expC-39 eta-1))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((tryall (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((0) (lambda (eta-2) (Check-Elab-TTImp-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 eta-2)))(else (lambda (eta-2) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (Prelude-not delayed) arg-9 arg-8 eta-2))))))) ((tryall (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (lambda (eta-2) (let ((act-31 ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-10 (Ambiguity-Elab-TTImp-getName t)) arg-6) arg-7 arg-8 t (vector 1 expC-39)) eta-2))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((act-33 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((act-34 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Ambiguity-Elab-TTImp-getName t)) " success")) eta-2))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (vector 1 e-12))))))))))))))))))))) e-10)) eta-1))))))))))))))))))))))) eta-0)))))))))))))(else (let ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "altTy" eta-1))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-7 (vector 11 arg-9) eta-1))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-8)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-12) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((solvemode (Ambiguity-Elab-TTImp-case--13035-6446 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-7 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-1) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 ((Normalise-Core-getTerm 'erased e-7) eta-1))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((expC-39 (let ((sc5 delayed)) (cond ((equal? sc5 0) (Normalise-Core-gnf arg-0 arg-8 e-9)) (else e-7))))) (let ((act-29 (let ((act-29 ((Normalise-Core-getNF 'erased arg-1 expC-39) eta-1))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-1 arg-3 arg-8 e-10 arg-11 eta-1)))))))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool delayed) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-10) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-9) "\u000aTarget type "))))))) arg-8 expC-39 eta-1))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((tryall (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((0) (lambda (eta-2) (Check-Elab-TTImp-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 eta-2)))(else (lambda (eta-2) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (Prelude-not delayed) arg-9 arg-8 eta-2))))))) ((tryall (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (lambda (eta-2) (let ((act-31 ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-10 (Ambiguity-Elab-TTImp-getName t)) arg-6) arg-7 arg-8 t (vector 1 expC-39)) eta-2))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-33 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((act-34 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Ambiguity-Elab-TTImp-getName t)) " success")) eta-2))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (vector 1 e-12))))))))))))))))))))) e-10)) eta-1))))))))))))))))))))))) eta-0)))))))))))))))))))))))))) +(define Ambiguity-Elab-TTImp-checkAlternative (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Ambiguity-Elab-TTImp-checkAmbigDepth 'erased arg-1 arg-4 arg-9 arg-6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-25 (UnifyState-Core-genName arg-1 arg-3 "altTy" eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-6 (vector 11 arg-9) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-7)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-12) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((solvemode (Ambiguity-Elab-TTImp-case--12533-5895 arg-0 e-0 arg-12 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 (let ((sc3 arg-6)) (let ((e-8 (vector-ref sc3 1))) e-8))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-6 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-1) (let ((act-26 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 ((Normalise-Core-getTerm 'erased e-6) eta-1))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((expC-39 (let ((sc6 delayed)) (cond ((equal? sc6 0) (Normalise-Core-gnf arg-0 arg-8 e-9)) (else e-6))))) (let ((act-29 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) arg-11) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-9) "\u000aWith default. Target type "))))) arg-8 expC-39 eta-1))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 ((Normalise-Core-getNF 'erased arg-1 expC-39) eta-1))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-1 arg-3 arg-8 e-11 arg-11 eta-1)))))))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Pruned alts (" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-11)) (Strings-Prelude-C-43C-43 ") " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-11))))) eta-1))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((sc9 delayed)) (cond ((equal? sc9 0) (Check-Elab-TTImp-try 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 1 arg-9 arg-8 (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-11 (Ambiguity-Elab-TTImp-getName t)) arg-6) arg-7 arg-8 t (vector 1 expC-39)))) e-11)) (lambda (eta-2) (let ((act-32 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "All failed, running default") eta-2))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-11 (Ambiguity-Elab-TTImp-getName e-0)) arg-6) arg-7 arg-8 e-0 (vector 1 expC-39)) eta-2)))))) eta-1)) (else ((Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 0 arg-9 arg-8 (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-11 (Ambiguity-Elab-TTImp-getName t)) arg-6) arg-7 arg-8 t (vector 1 expC-39)))) e-11)) eta-1))))))))))))))))))))))))))))))))) eta-0)))))))))))))))(else (lambda (eta-0) (let ((act-24 (Ambiguity-Elab-TTImp-checkAmbigDepth 'erased arg-1 arg-4 arg-9 arg-6 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (exp) (lambda (eta-1) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 exp) eta-1))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-1 arg-3 arg-8 e-6 arg-11 eta-1))))))))) arg-12) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 arg-12) eta-0))(else (let ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "altTy" eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-7 (vector 11 arg-9) eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-8)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-12) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((solvemode (Ambiguity-Elab-TTImp-case--13086-6454 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 (let ((sc4 arg-6)) (let ((e-0 (vector-ref sc4 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-7 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-1) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-28 ((Normalise-Core-getTerm 'erased e-7) eta-1))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((expC-39 (let ((sc6 delayed)) (cond ((equal? sc6 0) (Normalise-Core-gnf arg-0 arg-8 e-9)) (else e-7))))) (let ((act-29 (let ((act-29 ((Normalise-Core-getNF 'erased arg-1 expC-39) eta-1))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc6 1))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-1 arg-3 arg-8 e-10 arg-11 eta-1)))))))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool delayed) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-10) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-9) "\u000aTarget type "))))))) arg-8 expC-39 eta-1))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((tryall (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((0) (lambda (eta-2) (Check-Elab-TTImp-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 eta-2)))(else (lambda (eta-2) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (Prelude-not delayed) arg-9 arg-8 eta-2))))))) ((tryall (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (lambda (eta-2) (let ((act-31 ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-10 (Ambiguity-Elab-TTImp-getName t)) arg-6) arg-7 arg-8 t (vector 1 expC-39)) eta-2))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((act-33 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((act-34 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Ambiguity-Elab-TTImp-getName t)) " success")) eta-2))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (vector 1 e-12))))))))))))))))))))) e-10)) eta-1))))))))))))))))))))))) eta-0)))))))))))))(else (let ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "altTy" eta-1))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-7 (vector 11 arg-9) eta-1))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-8)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-12) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((solvemode (Ambiguity-Elab-TTImp-case--13086-6454 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-7 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-1) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 ((Normalise-Core-getTerm 'erased e-7) eta-1))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((expC-39 (let ((sc5 delayed)) (cond ((equal? sc5 0) (Normalise-Core-gnf arg-0 arg-8 e-9)) (else e-7))))) (let ((act-29 (let ((act-29 ((Normalise-Core-getNF 'erased arg-1 expC-39) eta-1))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-1 arg-3 arg-8 e-10 arg-11 eta-1)))))))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool delayed) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-10) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-9) "\u000aTarget type "))))))) arg-8 expC-39 eta-1))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((tryall (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((0) (lambda (eta-2) (Check-Elab-TTImp-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 eta-2)))(else (lambda (eta-2) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (Prelude-not delayed) arg-9 arg-8 eta-2))))))) ((tryall (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (lambda (eta-2) (let ((act-31 ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-10 (Ambiguity-Elab-TTImp-getName t)) arg-6) arg-7 arg-8 t (vector 1 expC-39)) eta-2))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-33 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((act-34 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Ambiguity-Elab-TTImp-getName t)) " success")) eta-2))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (vector 1 e-12))))))))))))))))))))) e-10)) eta-1))))))))))))))))))))))) eta-0)))))))))))))))))))))))))) (define Ambiguity-Elab-TTImp-addAmbig (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) eta-0))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) eta-0)) ((1) (let ((e-5 (vector-ref sc0 2))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) eta-0))(else (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) (lambda (rec-0) (let ((sc2 rec-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-7 (vector-ref sc2 5))) (let ((e-6 (vector-ref sc2 6))) (vector 0 e-0 e-8 e-2 e-3 e-7 (vector 1 e-1 e-6)))))))))))))))))(else (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (lambda (rec-0) (let ((sc1 rec-0)) (let ((e-0 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (vector 0 e-0 e-6 e-2 e-3 e-4 (vector 1 e-1 e-5)))))))))))))))))))) -(define LinearCheck-Core-case--15281-13669 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-7 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Used: " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased e-7))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-25 (let ((sc3 (Prelude-not arg-3))) (cond ((equal? sc3 0) ((LinearCheck-Core-checkEnvUsage arg-0 (vector 0 ) arg-7 arg-6 arg-5 arg-4 arg-2 e-7 e-2) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 e-2))))))))))))))))) -(define LinearCheck-Core-case--14987-13527 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (LinearCheck-Core-updateHoleUsage (List-Prelude-C-43C-43 'erased arg-4 (vector 1 arg-0 arg-1)) arg-10 arg-9 (Prelude-C-61C-61_Eq__Nat arg-12 (Prelude-fromInteger_Num__Nat 0)) arg-11 (vector 0 ) arg-5)) (else (lambda (eta-0) (vector 1 1))))))) -(define LinearCheck-Core-case--14987-13434 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (Prelude-fromInteger_Num__Nat 1)) (else arg-12))))) -(define LinearCheck-Core-case--14583-13213 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 e-6 (LinearCheck-Core-C-43C-43 'erased arg-21 e-7))))))))))))) -(define LinearCheck-Core-case--14583-13090 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (cond ((equal? sc0 0) (vector 10 arg-12 1)) (else arg-19))))) -(define LinearCheck-Core-case--8306-13019 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-17))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((arg-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-2)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((aerased (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--14583-13090 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 e-2 e-6 e-7 _-0 e-5 e-8 (Prelude-C-38C-38 arg-14 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-7))))))) (let ((act-26 ((LinearCheck-Core-lcheckMeta arg-0 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-5 (vector 1 aerased arg-9) e-8) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (let ((e-10 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (vector 1 (vector 0 e-10 (vector 0 e-12 (LinearCheck-Core-C-43C-43 'erased e-7 e-11))))))))))))))))))))))))))))))))))) -(define LinearCheck-Core-case--14149-12683 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-getArgUsage arg-6 arg-5 (TT-Core-getLoc 'erased (let ((sc1 arg-9)) (let ((e-23 (vector-ref sc1 3))) e-23))) arg-3 (let ((sc1 arg-9)) (let ((e-23 (vector-ref sc1 3))) e-23)) e-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Overall arg usage " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (LinearCheck-Core-show_Show__ArgUsage x)) (lambda (d) (lambda (x) (LinearCheck-Core-showPrec_Show__ArgUsage d x)))) e-5))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((tyC-39 (LinearCheck-Core-n--8298-12345-updateUsage 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-5 (let ((sc3 arg-9)) (let ((e-25 (vector-ref sc3 3))) e-25))))) (let ((act-26 (Context-Core-updateTy arg-6 arg-8 tyC-39 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((act-27 (Context-Core-setLinearCheck arg-6 arg-8 0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((act-28 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "New type of " (Name-Core-show_Show__Name (let ((sc5 arg-9)) (let ((e-28 (vector-ref sc5 2))) e-28))))) tyC-39 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((act-29 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updated from " (Name-Core-show_Show__Name (let ((sc6 arg-9)) (let ((e-29 (vector-ref sc6 2))) e-29))))) (let ((sc6 arg-9)) (let ((e-28 (vector-ref sc6 3))) e-28)) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (vector 1 tyC-39))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 3))) e-2))))))))) -(define LinearCheck-Core-case--14111-12628 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (let ((sc1 arg-9)) (let ((e-2 (vector-ref sc1 3))) e-2))))) (else (LinearCheck-Core-case--14149-12683 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (let ((sc1 arg-9)) (let ((e-17 (vector-ref sc1 18))) e-17)))))))) -(define LinearCheck-Core-case--14075-12599 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-n--8298-12346-rigSafe 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7)) arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((LinearCheck-Core-case--14111-12628 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 e-5 (let ((sc2 e-1)) (let ((e-16 (vector-ref sc2 17))) e-16))) eta-0)))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-1) eta-0))))))) -(define LinearCheck-Core-case--8298-12570 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 e-1) (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (LinearCheck-Core-n--8298-12346-rigSafe 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (let ((sc3 e-2)) (let ((e-7 (vector-ref sc3 8))) e-7)) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-2))) ((LinearCheck-Core-case--14111-12628 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 e-2 _-0 e-6 (let ((sc4 e-2)) (let ((e-16 (vector-ref sc4 17))) e-16))) eta-0))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-1) eta-0)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-1) eta-0))))))) -(define LinearCheck-Core-case--13828-12364 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((2) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((4) arg-12) ((3) arg-12) (else arg-12))))) -(define LinearCheck-Core-case--8298-12300 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-1) eta-0))))))) -(define LinearCheck-Core-case--12168-11968 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Used: " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased e-7))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((args (TT-Core-getArgs 'erased arg-8))) (let ((act-25 ((LinearCheck-Core-n--8293-10850-checkEnvUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-6 arg-2 arg-7 e-7 args e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 ((LinearCheck-Core-n--8293-10847-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-6 arg-10 arg-7 args e-7 arg-9) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Arg usage: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (LinearCheck-Core-show_Show__ArgUsage x-0)) (lambda (d) (lambda (x-0) (LinearCheck-Core-showPrec_Show__ArgUsage d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (LinearCheck-Core-show_Show__ArgUsage x-0)) (lambda (d-0) (lambda (x-0) (LinearCheck-Core-showPrec_Show__ArgUsage d-0 x-0))))) d x)))) e-9))) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 e-9))))))))))))))))))))))))))) -(define LinearCheck-Core-case--12167-11774 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (LinearCheck-Core-updateHoleUsage (List-Prelude-C-43C-43 'erased arg-10 (vector 1 arg-6 arg-7)) arg-5 arg-4 (Prelude-C-61C-61_Eq__Nat arg-16 (Prelude-fromInteger_Num__Nat 0)) arg-15 (vector 0 ) arg-11)) (else (lambda (eta-0) (vector 1 1))))))) -(define LinearCheck-Core-case--12167-11660 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (Prelude-fromInteger_Num__Nat 1)) (else arg-16))))) -(define LinearCheck-Core-case--12166-11519 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) 0) (else (LinearCheck-Core-n--8293-10849-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-13 arg-12)))))) -(define LinearCheck-Core-case--12518-11259 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (cond ((equal? sc0 0) (vector 1 )) (else (vector 2 )))))) -(define LinearCheck-Core-case--12419-11140 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (cond ((equal? sc0 0) (vector 4 )) (else (LinearCheck-Core-case--12518-11259 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 'erased arg-23 arg-24 arg-25 arg-26 (Prelude-C-61C-61_Eq__Nat arg-25 (Prelude-fromInteger_Num__Nat 0)))))))) -(define LinearCheck-Core-case--12358-11061 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8293-10847-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-13 arg-18 arg-15 arg-17 arg-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((used_in (LinearCheck-Core-count 'erased e-4 arg-17))) (let ((act-25 ((LinearCheck-Core-updateHoleUsage arg-7 arg-5 arg-4 (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)) e-4 (vector 0 ) arg-16) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((ause (let ((arg (vector 0 e-2 e-3 e-4))) (LinearCheck-Core-case--12419-11140 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-2 e-3 arg-15 arg-16 arg-17 arg-18 e-4 'erased arg e-5 used_in e-6 (Prelude-C-38C-38 e-6 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)))))))) (vector 1 (vector 1 (vector 0 arg-12 ause) e-5)))))))))))))))))))(else (lambda (eta-0) (LinearCheck-Core-n--12164-10895-elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0))))))) -(define LinearCheck-Core-case--12164-11018 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8293-10847-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-13 arg-18 arg-15 arg-17 arg-16) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((used_in (LinearCheck-Core-count 'erased e-4 arg-17))) (let ((act-25 ((LinearCheck-Core-updateHoleUsage arg-7 arg-5 arg-4 (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)) e-4 (vector 0 ) arg-16) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((ause (let ((arg (vector 0 e-2 e-3 e-4))) (LinearCheck-Core-case--12419-11140 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-2 e-3 arg-15 arg-16 arg-17 arg-18 e-4 'erased arg e-5 used_in e-6 (Prelude-C-38C-38 e-6 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)))))))) (vector 1 (vector 1 (vector 0 arg-12 ause) e-5)))))))))))))))))))(else (lambda (eta-0) (LinearCheck-Core-n--12164-10895-elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0)))))) (else (lambda (eta-0) (LinearCheck-Core-n--12164-10895-elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0))))))) -(define LinearCheck-Core-case--12218-10914 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-12 (vector 1 )) arg-19)) (else (vector 1 (vector 0 arg-12 (vector 3 )) arg-19)))))) -(define LinearCheck-Core-case--8281-10639 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 5 arg-3 e-2) (vector 0 e-6 (vector 0 )))))))))))) -(define LinearCheck-Core-case--11786-10571 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 4 arg-3 e-2 arg-10) (vector 0 arg-11 e-7))))))))))) -(define LinearCheck-Core-case--8281-10529 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-8 arg-7 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-3) arg-5 arg-4 arg-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-9 (vector-ref sc4 2))) (vector 1 (vector 0 (vector 4 arg-3 e-8 e-2) (vector 0 e-6 e-9))))))))))))))))))))) -(define LinearCheck-Core-case--8281-10469 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-4 arg-3 e-2) (vector 0 e-6 (vector 0 )))))))))))) -(define LinearCheck-Core-case--8281-10408 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 2 arg-4 arg-3 e-2) (vector 0 e-6 (vector 0 )))))))))))) -(define LinearCheck-Core-case--11509-10340 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-3 e-2 arg-10) (vector 0 arg-11 e-7))))))))))) -(define LinearCheck-Core-case--8281-10298 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-8 arg-7 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-3) arg-5 arg-4 arg-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-9 (vector-ref sc4 2))) (vector 1 (vector 0 (vector 1 arg-3 e-8 e-2) (vector 0 e-6 e-9))))))))))))))))))))) -(define LinearCheck-Core-case--8281-10238 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 0 arg-4 arg-3 e-2) (vector 0 e-6 (vector 0 )))))))))))) -(define LinearCheck-Core-case--11211-10082 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((5) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 8 arg-3 e-2 arg-9) (vector 0 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-3) arg-11))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a delayed tyoe") eta-0))))))) -(define LinearCheck-Core-case--8277-10045 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-8 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((5) (let ((e-8 (vector-ref sc3 2))) (let ((e-4 (vector-ref sc3 3))) (let ((act-25 (let ((act-25 (unbox arg-8))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 8 arg-3 e-8 e-2) (vector 0 (Normalise-Core-glueBack arg-0 e-9 arg-4 e-4) e-7)))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a delayed tyoe") eta-0)))))))))))))))))) -(define LinearCheck-Core-case--11071-9974 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 7 arg-4 arg-3 arg-12 e-2) (vector 0 (Normalise-Core-gnf arg-0 arg-5 (vector 6 arg-4 arg-3 e-5)) e-7))))))))))))))))) -(define LinearCheck-Core-case--8277-9930 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-10) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (vector 1 (vector 0 (vector 7 arg-4 arg-3 e-2 e-8) (vector 0 (Normalise-Core-gnf arg-0 arg-5 (vector 6 arg-4 arg-3 e-11)) e-9)))))))))))))))))))))))))) -(define LinearCheck-Core-case--8277-9872 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 6 arg-3 arg-2 e-2) (vector 0 (Normalise-Core-gType 'erased arg-3) e-7))))))))))) -(define LinearCheck-Core-case--10867-9809 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 5 arg-4 arg-3 arg-12 e-2) (vector 0 e-6 e-7)))))))))))) -(define LinearCheck-Core-case--8277-9765 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (vector 1 (vector 0 (vector 5 arg-4 arg-3 e-2 e-8) (vector 0 e-10 e-9))))))))))))))))))))) -(define LinearCheck-Core-case--10263-9589 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5) " not a function type)"))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-17) eta-0))))))) -(define LinearCheck-Core-case--10332-9359 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (cond ((equal? sc0 0) (vector 10 arg-3 1)) (else arg-22))))) -(define LinearCheck-Core-case--10263-9290 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (((arg-19 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 e-2)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((aerased (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--10332-9359 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 e-2 e-6 e-7 _-0 e-5 (Prelude-C-38C-38 arg-5 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-18))))))) (let ((act-25 (Context-Core-getSession arg-8 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (let ((sc4 (let ((sc5 e-8)) (let ((e-13 (vector-ref sc5 7))) e-13)))) (cond ((equal? sc4 0) (let ((act-26 ((Normalise-Core-getNF 'erased arg-8 e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 (Normalise-Core-convert_Convert__NF arg-0 arg-13 arg-4 e-9 arg-17 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 (Prelude-not e-10))) (cond ((equal? sc7 0) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 arg-17 eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-29 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 e-9 eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc9 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-0 arg-3 arg-4 e-11 e-12) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 4 arg-3 arg-9 aerased) (vector 0 (Normalise-Core-glueBack arg-0 arg-13 arg-4 e-5) (LinearCheck-Core-C-43C-43 'erased arg-11 e-7)))))))))))))))))))))))))))) -(define LinearCheck-Core-case--10207-9236 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-6))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-8 arg-7 checkRig arg-5 arg-4 arg-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((fty (vector 0 e-1 e-2 (vector 2 e-10 e-11 e-12) e-4))) (let ((sc3 e-5)) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((sc4 e-6)) (let ((e-9 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((act-25 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 e-7)) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-13 (vector-ref sc5 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc5 1))) (let ((aerased (let ((_-0 (vector 0 e-7 (vector 0 e-9 e-8)))) (LinearCheck-Core-case--10332-9359 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-1 e-2 e-11 e-12 e-10 e-4 fty checkRig e-7 e-9 e-8 _-0 e-13 (Prelude-C-38C-38 arg-5 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-10))))))) (let ((act-26 (Context-Core-getSession arg-8 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-14 (vector-ref sc6 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc6 1))) (let ((act-27 (let ((sc7 (let ((sc8 e-14)) (let ((e-19 (vector-ref sc8 7))) e-19)))) (cond ((equal? sc7 0) (let ((act-27 ((Normalise-Core-getNF 'erased arg-8 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-15 (vector-ref sc8 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc8 1))) (let ((act-28 (Normalise-Core-convert_Convert__NF arg-0 arg-13 arg-4 e-15 e-12 eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc9 1))) (let ((sc10 (Prelude-not e-16))) (cond ((equal? sc10 0) (let ((act-29 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 e-12 eta-0))) (let ((sc11 act-29)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-30 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 e-15 eta-0))) (let ((sc12 act-30)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-0 arg-3 arg-4 e-17 e-18) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-15 (vector-ref sc7 1))) (vector 0 e-15))) (else (vector 1 (vector 0 (vector 4 arg-3 arg-9 aerased) (vector 0 (Normalise-Core-glueBack arg-0 arg-13 arg-4 e-13) (LinearCheck-Core-C-43C-43 'erased arg-11 e-8)))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5) " not a function type)"))))) eta-0))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((1) (let ((e-15 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-15 (let ((sc2 arg-13)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((act-25 ((Normalise-Core-getTerm 'erased arg-10) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-9) " not a function type)"))))) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 e-15) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5) " not a function type)"))))) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-10) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5) " not a function type)"))))) eta-0)))))))))))) -(define LinearCheck-Core-case--8277-9190 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-8 e-6) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-1 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((e-9 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((2) (let ((e-13 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((e-12 (vector-ref sc5 3))) (let ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-13 arg-6))) (let ((act-26 ((LinearCheck-Core-lcheck arg-0 arg-8 arg-7 checkRig arg-5 arg-4 arg-1) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-14 (vector-ref sc6 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc6 1))) (let ((fty (vector 0 e-1 e-10 (vector 2 e-13 e-11 e-12) e-4))) (let ((sc7 e-14)) (let ((e-16 (vector-ref sc7 1))) (let ((e-15 (vector-ref sc7 2))) (let ((sc8 e-15)) (let ((e-18 (vector-ref sc8 1))) (let ((e-17 (vector-ref sc8 2))) (let ((act-27 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 e-16)) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-19 (vector-ref sc9 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc9 1))) (let ((aerased (let ((_-1 (vector 0 e-16 (vector 0 e-18 e-17)))) (LinearCheck-Core-case--10332-9359 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-6 e-7 _-0 e-5 e-1 e-10 e-11 e-12 e-13 e-4 fty checkRig e-16 e-18 e-17 _-1 e-19 (Prelude-C-38C-38 arg-5 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-13))))))) (let ((act-28 (Context-Core-getSession arg-8 eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-20 (vector-ref sc10 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc10 1))) (let ((act-29 (let ((sc11 (let ((sc12 e-20)) (let ((e-25 (vector-ref sc12 7))) e-25)))) (cond ((equal? sc11 0) (let ((act-29 ((Normalise-Core-getNF 'erased arg-8 e-18) eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-21 (vector-ref sc12 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc12 1))) (let ((act-30 (Normalise-Core-convert_Convert__NF arg-0 e-5 arg-4 e-21 e-12 eta-0))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-22 (vector-ref sc13 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc13 1))) (let ((sc14 (Prelude-not e-22))) (cond ((equal? sc14 0) (let ((act-31 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 e-12 eta-0))) (let ((sc15 act-31)) (case (vector-ref sc15 0) ((0) (let ((e-23 (vector-ref sc15 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc15 1))) (let ((act-32 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 e-21 eta-0))) (let ((sc16 act-32)) (case (vector-ref sc16 0) ((0) (let ((e-24 (vector-ref sc16 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc16 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-0 arg-3 arg-4 e-23 e-24) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc11 act-29)) (case (vector-ref sc11 0) ((0) (let ((e-21 (vector-ref sc11 1))) (vector 0 e-21))) (else (vector 1 (vector 0 (vector 4 arg-3 e-2 aerased) (vector 0 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-19) (LinearCheck-Core-C-43C-43 'erased e-7 e-17))))))))))))))))))))))))))))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-11) " not a function type)"))))) eta-0)))))))))))))) ((1) (let ((e-10 (vector-ref sc4 2))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((e-15 (vector-ref sc5 2))) (let ((act-26 ((Context-Core-lookupCtxtExact e-15 (let ((sc6 e-5)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((1) (let ((act-27 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-13) " not a function type)"))))) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 e-15) eta-0)))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-12) " not a function type)"))))) eta-0)))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-9) " not a function type)"))))) eta-0))))))))))))))))))))))))))))) -(define LinearCheck-Core-case--8277-9116 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((14) (LinearCheck-Core-lcheckBinder arg-0 arg-9 arg-8 (LinearCheck-Core-n--8277-8259-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) arg-6 arg-5 (TT-Core-setMultiplicity 'erased arg-3 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-10 eta-0))))))) -(define LinearCheck-Core-case--9968-9022 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (LinearCheck-Core-n--8277-8261-eraseLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-5))(else arg-5))))) -(define LinearCheck-Core-case--9528-8989 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (LinearCheck-Core-n--8277-8261-eraseLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-5))(else arg-5)))) (else arg-5))))) -(define LinearCheck-Core-case--9588-8868 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (cond ((equal? sc0 0) (LinearCheck-Core-updateHoleUsage (vector 1 arg-1 arg-0) arg-9 arg-8 (Prelude-C-61C-61_Eq__Nat arg-20 (Prelude-fromInteger_Num__Nat 0)) 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-1 arg-0 eta-0)) (LinearCheck-Core-n--8277-8260-getZeroes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-0 arg-14)) arg-15)) (else (lambda (eta-0) (vector 1 1))))))) -(define LinearCheck-Core-case--9588-8737 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (Prelude-fromInteger_Num__Nat 1)) (else arg-20))))) -(define LinearCheck-Core-case--9528-8662 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((used_in (LinearCheck-Core-count 'erased 0 e-7))) (let ((act-25 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((LinearCheck-Core-case--9588-8868 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-2 e-6 e-7 _-0 e-5 used_in (Prelude-C-38C-38 (Prelude-not arg-6) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (TT-Core-multiplicity 'erased arg-3))))) eta-0)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((used (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--9588-8737 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-2 e-6 e-7 _-0 e-5 used_in e-8 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased arg-3) (LinearCheck-Core-n--8277-8259-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) (lambda () (Prelude-C-38C-38 e-8 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)))))))))) (let ((act-26 (let ((sc4 (Prelude-not arg-6))) (cond ((equal? sc4 0) ((LinearCheck-Core-n--8277-8262-checkUsageOK arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 used (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased arg-3) (LinearCheck-Core-n--8277-8259-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-27 (let ((act-27 (unbox arg-9))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) ((LinearCheck-Core-discharge arg-0 e-10 arg-5 arg-4 arg-1 arg-10 arg-11 e-2 e-6 (LinearCheck-Core-C-43C-43 'erased arg-12 (LinearCheck-Core-doneScope 'erased 'erased e-7))) eta-0))))))))))))))))))))))))))))))) -(define LinearCheck-Core-case--8277-8614 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((envC-39 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--9528-8989 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-6 e-7 _-0 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-7 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck (vector 1 arg-1 arg-0) arg-9 arg-8 (LinearCheck-Core-n--8277-8259-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) arg-6 (vector 1 e-2 envC-39) arg-2) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (let ((used_in (LinearCheck-Core-count 'erased 0 e-9))) (let ((act-26 (let ((_-1 (vector 0 e-8 (vector 0 e-10 e-9)))) ((LinearCheck-Core-case--9588-8868 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-6 e-7 _-0 envC-39 e-8 e-10 e-9 _-1 e-11 used_in (Prelude-C-38C-38 (Prelude-not arg-6) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (TT-Core-multiplicity 'erased arg-3))))) eta-0)))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) (let ((used (let ((_-1 (vector 0 e-8 (vector 0 e-10 e-9)))) (LinearCheck-Core-case--9588-8737 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-6 e-7 _-0 envC-39 e-8 e-10 e-9 _-1 e-11 used_in e-12 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased arg-3) (LinearCheck-Core-n--8277-8259-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) (lambda () (Prelude-C-38C-38 e-12 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)))))))))) (let ((act-27 (let ((sc7 (Prelude-not arg-6))) (cond ((equal? sc7 0) ((LinearCheck-Core-n--8277-8262-checkUsageOK arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 used (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased arg-3) (LinearCheck-Core-n--8277-8259-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((act-28 (let ((act-28 (unbox arg-9))) (vector 1 act-28)))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) ((LinearCheck-Core-discharge arg-0 e-14 arg-5 arg-4 arg-1 e-2 e-6 e-8 e-10 (LinearCheck-Core-C-43C-43 'erased e-7 (LinearCheck-Core-doneScope 'erased 'erased e-9))) eta-0)))))))))))))))))))))))))))))))))))))))))))) -(define LinearCheck-Core-case--9135-8506 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (vector 1 (TT-Core-setMultiplicity 'erased arg-13 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (LinearCheck-Core-n--8277-8261-eraseLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-12))) (else (vector 1 arg-13 (LinearCheck-Core-n--8277-8261-eraseLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-12))))))) -(define LinearCheck-Core-case--9134-8395 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (vector 1 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-10 arg-11 eta-0)) (LinearCheck-Core-n--8277-8260-getZeroes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11 arg-12)))) (else (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-10 arg-11 eta-0)) (LinearCheck-Core-n--8277-8260-getZeroes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11 arg-12))))))) -(define LinearCheck-Core-case--9139-8324 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) -(define LinearCheck-Core-case--9133-8266 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))(else (LinearCheck-Core-case--9139-8324 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-7))))))) -(define LinearCheck-Core-case--8583-8137 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-7 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-1 e-5))))))))))(else (lambda (eta-0) (vector 1 ""))))))))(else (lambda (eta-0) (vector 1 ""))))))) -(define LinearCheck-Core-case--8819-8052 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((7) (LinearCheck-Core-n--8277-7724-unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased arg-1 (let ((sc1 arg-11)) (let ((e-2 (vector-ref sc1 3))) e-2))))(else (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 3))) e-2))))))) -(define LinearCheck-Core-case--8583-7990 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (LinearCheck-Core-expandMeta arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-3 arg-2 (let ((sc1 arg-11)) (let ((e-17 (vector-ref sc1 18))) e-17)) arg-1)) (else (let ((ty (let ((expand 1)) (LinearCheck-Core-case--8819-8052 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14 expand (let ((sc1 arg-11)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-10 arg-5 (TT-Core-embed 'erased 'erased ty)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((LinearCheck-Core-lcheckMeta arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) e-5) eta-0))))))))))))) -(define LinearCheck-Core-case--8583-7888 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (lambda () 0))(else (lambda () 1)))))) -(define LinearCheck-Core-case--8583-7826 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((10) (lambda () 0))(else (lambda () 1)))))) -(define LinearCheck-Core-case--8277-7789 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((expand (Semiring-Algebra-branchZero 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--8583-7826 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--8583-7888 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))) arg-7))) (lambda (eta-0) (let ((act-24 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-24 (let ((_-0 (vector 1 e-1))) ((LinearCheck-Core-case--8583-8137 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 expand (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))) eta-1)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega arg-7) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-4) (Strings-Prelude-C-43C-43 "\u000a" (Prelude-show_Show__String e-5)))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) (let ((sc2 expand)) (cond ((equal? sc2 0) ((LinearCheck-Core-expandMeta arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-3 arg-2 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)) arg-1) eta-0)) (else (let ((ty (let ((expand-0 1)) (LinearCheck-Core-case--8819-8052 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 e-5 expand-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)))))) (let ((act-25 ((Normalise-Core-nf arg-0 arg-10 arg-5 (TT-Core-embed 'erased 'erased ty)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((LinearCheck-Core-lcheckMeta arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) e-6) eta-0))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-3) eta-0))))))) -(define LinearCheck-Core-case--8325-7605 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (vector 1 arg-0 (vector 0 ))) (else (vector 0 )))))) -(define LinearCheck-Core-case--7073-7347 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (LinearCheck-Core-updateHoleUsageArgs arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-3))(else (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 1)))(else (LinearCheck-Core-updateHoleUsageArgs arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 1 e-2 e-3))))))))))))) -(define LinearCheck-Core-case--7942-7148 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((7) (let ((ty (let ((sc1 arg-11)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleType 'erased arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 ty arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-updateTy arg-9 arg-2 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-logTerm (vector 0 ) arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "New type of " (Name-Core-show_Show__Name (let ((sc3 arg-11)) (let ((e-23 (vector-ref sc3 2))) e-23))))) e-5 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (Context-Core-logTerm (vector 0 ) arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updated from " (Name-Core-show_Show__Name (let ((sc4 arg-11)) (let ((e-24 (vector-ref sc4 2))) e-24))))) (let ((sc4 arg-11)) (let ((e-2 (vector-ref sc4 3))) e-2)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 0)))))))))))))))))))))(else (LinearCheck-Core-updateHoleUsageArgs arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1)))))) -(define LinearCheck-Core-case--7073-7121 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--7942-7148 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (LinearCheck-Core-updateHoleUsageArgs arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1)))))) -(define LinearCheck-Core-case--7153-6602 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-18 arg-17 arg-16 arg-15 arg-11 arg-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 arg-12 arg-10 (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 arg-7) e-5))))))))) (else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-18 arg-17 arg-16 arg-15 arg-11 arg-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 arg-12 arg-10 (vector 2 arg-9 arg-8 arg-7) e-5))))))))))))) -(define LinearCheck-Core-case--7153-6466 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-17)) (cond ((equal? sc0 0) arg-9) (else (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) -(define LinearCheck-Core-case--7062-6415 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-18 1 arg-16 arg-15 arg-11 arg-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((cC-39 (let ((sc2 arg-17)) (cond ((equal? sc2 0) arg-9) (else (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (vector 1 (vector 3 arg-12 arg-10 (vector 2 cC-39 arg-8 arg-7) e-5)))))))))) (else (LinearCheck-Core-case--7153-6602 'erased arg-1 arg-2 'erased arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-varIdx 'erased eta-0)) arg-15)))))))) -(define LinearCheck-Core-case--7002-6311 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (+ 1 arg-4))) -(define LinearCheck-Core-case--6952-6261 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) (LinearCheck-Core-count 'erased arg-3 arg-1))) (else (LinearCheck-Core-count 'erased arg-3 arg-1)))))) -(define LinearCheck-Core-n--8277-7491-used (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (LinearCheck-Core-case--8325-7605 arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-11)))) -(define LinearCheck-Core-n--8298-12345-updateUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((3) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((2) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((e-11 (vector-ref sc2 3))) (let ((scC-39 (LinearCheck-Core-n--8298-12345-updateUsage 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-2 e-7))) (let ((cC-39 (let ((sc3 e-1)) (case (vector-ref sc3 0) ((1) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((2) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((4) e-9) ((3) e-9) (else e-9))))) (vector 3 e-4 e-5 (vector 2 cC-39 e-10 e-11) scC-39)))))))(else arg-9))))))))(else arg-9))))))(else arg-9))))) -(define LinearCheck-Core-n--8277-7724-unusedHoleArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((3) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((2) (let ((e-19 (vector-ref sc2 2))) (let ((e-20 (vector-ref sc2 3))) (vector 3 e-13 e-14 (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-19 e-20) (LinearCheck-Core-n--8277-7724-unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased e-11 e-16)))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((e-8 (vector-ref sc3 3))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (LinearCheck-Core-n--8277-7724-unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased arg-12 e-4))))))(else arg-13))))))))(else arg-13)))))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (LinearCheck-Core-n--8277-7724-unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased arg-12 e-4))))))(else arg-13))))))))(else arg-13))))))))(else (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (LinearCheck-Core-n--8277-7724-unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased arg-12 e-4))))))(else arg-13))))))))(else arg-13)))))))) -(define LinearCheck-Core-n--8302-12882-substMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((3) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-17)) (case (vector-ref sc2 0) ((1) (let ((e-15 (vector-ref sc2 1))) (let ((e-16 (vector-ref sc2 2))) (LinearCheck-Core-n--8302-12882-substMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 1 e-3 arg-14) arg-15 e-5 e-16 (vector 1 e-15 arg-18)))))(else (let ((sc2 arg-17)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (SubstEnv-TT-Core-substs arg-14 arg-15 arg-18 arg-16))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-5))))) eta-0))))))))) ((1) (let ((e-12 (vector-ref sc1 2))) (LinearCheck-Core-n--8302-12882-substMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (SubstEnv-TT-Core-subst (List-Prelude-C-43C-43 'erased arg-14 arg-15) e-3 e-12 e-5) arg-17 arg-18)))(else (let ((sc1 arg-17)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (SubstEnv-TT-Core-substs arg-14 arg-15 arg-18 arg-16))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-5))))) eta-0))))))))))))(else (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (SubstEnv-TT-Core-substs arg-14 arg-15 arg-18 arg-16))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-5))))) eta-0)))))))))) -(define LinearCheck-Core-n--6820-6139-showAll (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased e-2))(else (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased e-2) (Strings-Prelude-C-43C-43 ", " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased e-3))))))))))))) -(define LinearCheck-Core-n--8298-12346-rigSafe (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 ((Context-Core-getFullName arg-6 arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-7 arg-8))) (cond ((equal? sc1 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 14 arg-4 e-5 arg-7 arg-8) ext-0)) (else (vector 1 (vector 0 )))))))))))) -(define LinearCheck-Core-n--8277-7490-rigSafe (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-11 arg-12))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 14 arg-5 (LinearCheck-Core-n--8277-7489-getName arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-0 arg-2 'erased) arg-11 arg-12) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define LinearCheck-Core-n--8277-8259-rig (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))(else (LinearCheck-Core-case--9139-8324 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-7))))))) -(define LinearCheck-Core-n--8293-10849-isLocArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (LinearCheck-Core-case--12166-11519 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased 'erased e-6 e-7 e-8 'erased e-3 arg-7 (Prelude-C-61C-61_Eq__Nat e-8 (TT-Core-varIdx 'erased arg-7))))))) ((5) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (LinearCheck-Core-n--8293-10849-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 (vector 1 e-13 (vector 1 e-14 e-3))))))(else (LinearCheck-Core-n--8293-10849-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-3))))))))))) -(define LinearCheck-Core-n--8277-8260-getZeroes (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-11)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-11)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (LinearCheck-Core-case--9134-8395 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-3 e-9 e-8 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (TT-Core-multiplicity 'erased e-8))))))))))))) -(define LinearCheck-Core-n--8293-10851-getPUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logEnv e-2 arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) "Env" e-6 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 (Context-Core-logTerm e-2 arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "LHS") e-10 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-26 (Context-Core-logTerm e-2 arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Linear check in case RHS") e-11 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-27 ((LinearCheck-Core-lcheck e-2 arg-5 arg-4 arg-2 1 e-6 e-11) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (let ((sc7 e-12)) (let ((e-13 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-4)) (let ((e-14 (vector-ref sc8 2))) (let ((act-28 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Used: " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased e-14))) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((args (TT-Core-getArgs 'erased e-10))) (let ((act-29 ((LinearCheck-Core-n--8293-10850-checkEnvUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-2 arg-2 e-6 e-14 args e-13) eta-0))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((act-30 ((LinearCheck-Core-n--8293-10847-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-2 arg-6 e-6 args e-14 e-11) eta-0))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (let ((act-31 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Arg usage: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (LinearCheck-Core-show_Show__ArgUsage x-0)) (lambda (d) (lambda (x-0) (LinearCheck-Core-showPrec_Show__ArgUsage d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (LinearCheck-Core-show_Show__ArgUsage x-0)) (lambda (d-0) (lambda (x-0) (LinearCheck-Core-showPrec_Show__ArgUsage d-0 x-0))))) d x)))) e-18))) eta-0))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-19 (vector-ref sc12 1))) (vector 0 e-19))) (else (vector 1 e-18))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define LinearCheck-Core-n--8277-7489-getName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (let ((sc1 arg-13)) (let ((e-2 (vector-ref sc1 1))) e-2)))(else (let ((e-0 (- arg-12 1))) (let ((sc0 arg-13)) (let ((e-6 (vector-ref sc0 2))) (LinearCheck-Core-n--8277-7489-getName arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased e-0 e-6 'erased))))))))) -(define LinearCheck-Core-n--8293-10847-getCaseUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((5) (let ((e-19 (vector-ref sc1 4))) (LinearCheck-Core-n--8293-10847-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 (vector 1 e-19 e-14) arg-11 arg-12)))(else (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (LinearCheck-Core-case--12164-11018 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-1 e-8 e-7 e-6 e-2 e-4 e-10 e-11 arg-12 arg-11 arg-9 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-6)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (LinearCheck-Core-case--12164-11018 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-1 e-8 e-7 e-6 e-2 e-4 e-10 e-11 arg-12 arg-11 arg-9 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-6)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))) -(define LinearCheck-Core-n--8277-8261-eraseLinear (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (LinearCheck-Core-case--9135-8506 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased e-5 e-4 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (TT-Core-multiplicity 'erased e-4)))))))))) -(define LinearCheck-Core-n--12164-10895-elseCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 ext-0) (let ((act-24 ((LinearCheck-Core-n--8293-10847-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-13 arg-18 arg-15 arg-17 arg-16) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (LinearCheck-Core-case--12218-10914 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 e-5 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-11)))))))))) -(define LinearCheck-Core-n--8293-10853-combineUsages (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Argument usage lists inconsistent") eta-0)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8293-10852-combineUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((LinearCheck-Core-n--8293-10853-combineUsages arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 e-7) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 1 e-5 e-8))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Argument usage lists inconsistent") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Argument usage lists inconsistent") eta-0))))))) -(define LinearCheck-Core-n--8293-10852-combineUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((sc1 e-23)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((2) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Inconsistent usage of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-22) " in case branches"))) eta-0)))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-18 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 2))) (let ((sc4 e-19)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-14 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 2))) (let ((sc5 e-15)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc6 arg-6)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (let ((e-7 (vector-ref sc6 2))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((sc3 e-19)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))) ((2) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-31 (vector-ref sc2 2))) (let ((sc3 e-31)) (case (vector-ref sc3 0) ((1) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Inconsistent usage of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-22) " in case branches"))) eta-0)))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-18 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 2))) (let ((sc4 e-19)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-14 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 2))) (let ((sc5 e-15)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc6 arg-6)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (let ((e-7 (vector-ref sc6 2))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((sc3 e-19)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))) ((0) (lambda (eta-0) (vector 1 (vector 0 e-22 (vector 0 )))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((sc2 e-19)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((sc1 e-15)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))))))) -(define LinearCheck-Core-n--8293-10854-combine (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 e-2)))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8293-10854-combine arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((LinearCheck-Core-n--8293-10853-combineUsages arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-5) eta-0))))))))))))))))) -(define LinearCheck-Core-n--14987-13384-checkUsageOK (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-12) (lambda () (Prelude-C-47C-61_Eq__Nat arg-11 (Prelude-fromInteger_Num__Nat 1)))))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-8 arg-11 arg-0) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define LinearCheck-Core-n--8293-10848-checkUsageOK (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-10) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 arg-9 (lambda () (Prelude-C-62_Ord__Nat arg-7 (Prelude-fromInteger_Num__Nat 1)))) (lambda () (Prelude-C-38C-38 (Prelude-not arg-9) (lambda () (Prelude-C-47C-61_Eq__Nat arg-7 (Prelude-fromInteger_Num__Nat 1)))))))))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-6 arg-7 arg-8) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define LinearCheck-Core-n--8277-8262-checkUsageOK (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-11) (lambda () (Prelude-C-47C-61_Eq__Nat arg-10 (Prelude-fromInteger_Num__Nat 1)))))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-4 arg-10 arg-1) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define LinearCheck-Core-n--8293-10850-checkEnvUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-9)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-9)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((pos (LinearCheck-Core-localPrf 'erased 'erased arg-6))) (let ((used_in (LinearCheck-Core-count 'erased (TT-Core-varIdx 'erased pos) arg-10))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-case--12167-11774 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 e-9 e-8 arg-6 arg-12 arg-11 arg-10 arg-8 pos used_in (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (TT-Core-multiplicity 'erased e-8))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((used (LinearCheck-Core-case--12167-11660 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 e-9 e-8 arg-6 arg-12 arg-11 arg-10 arg-8 pos used_in e-5 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-8) arg-8)) (lambda () (Prelude-C-38C-38 e-5 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0))))))))) (let ((act-25 ((LinearCheck-Core-n--8293-10848-checkUsageOK arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (TT-Core-getLoc 'erased (TT-Core-binderType 'erased e-8)) used e-2 (LinearCheck-Core-n--8293-10849-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased pos arg-11) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-8) arg-8)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((LinearCheck-Core-n--8293-10850-checkEnvUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased arg-6 (vector 1 e-2 (vector 0 ))) e-3 arg-8 e-9 arg-10 arg-11 arg-12) eta-0)))))))))))))))))))))))) +(define LinearCheck-Core-case--15323-13677 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-7 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Used: " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased e-7))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-25 (let ((sc3 (Prelude-not arg-3))) (cond ((equal? sc3 0) ((LinearCheck-Core-checkEnvUsage arg-0 (vector 0 ) arg-7 arg-6 arg-5 arg-4 arg-2 e-7 e-2) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 e-2))))))))))))))))) +(define LinearCheck-Core-case--15029-13535 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (LinearCheck-Core-updateHoleUsage (List-Prelude-C-43C-43 'erased arg-4 (vector 1 arg-0 arg-1)) arg-10 arg-9 (Prelude-C-61C-61_Eq__Nat arg-12 (Prelude-fromInteger_Num__Nat 0)) arg-11 (vector 0 ) arg-5)) (else (lambda (eta-0) (vector 1 1))))))) +(define LinearCheck-Core-case--15029-13442 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (Prelude-fromInteger_Num__Nat 1)) (else arg-12))))) +(define LinearCheck-Core-case--14625-13221 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 e-6 (LinearCheck-Core-C-43C-43 'erased arg-21 e-7))))))))))))) +(define LinearCheck-Core-case--14625-13098 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (cond ((equal? sc0 0) (vector 10 arg-12 1)) (else arg-19))))) +(define LinearCheck-Core-case--8348-13027 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-17))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((arg-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-2)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((aerased (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--14625-13098 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 e-2 e-6 e-7 _-0 e-5 e-8 (Prelude-C-38C-38 arg-14 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-7))))))) (let ((act-26 ((LinearCheck-Core-lcheckMeta arg-0 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-5 (vector 1 aerased arg-9) e-8) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (let ((e-10 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (vector 1 (vector 0 e-10 (vector 0 e-12 (LinearCheck-Core-C-43C-43 'erased e-7 e-11))))))))))))))))))))))))))))))))))) +(define LinearCheck-Core-case--14191-12691 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-getArgUsage arg-6 arg-5 (TT-Core-getLoc 'erased (let ((sc1 arg-9)) (let ((e-23 (vector-ref sc1 3))) e-23))) arg-3 (let ((sc1 arg-9)) (let ((e-23 (vector-ref sc1 3))) e-23)) e-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Overall arg usage " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (LinearCheck-Core-show_Show__ArgUsage x)) (lambda (d) (lambda (x) (LinearCheck-Core-showPrec_Show__ArgUsage d x)))) e-5))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((tyC-39 (LinearCheck-Core-n--8340-12353-updateUsage 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-5 (let ((sc3 arg-9)) (let ((e-25 (vector-ref sc3 3))) e-25))))) (let ((act-26 (Context-Core-updateTy arg-6 arg-8 tyC-39 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((act-27 (Context-Core-setLinearCheck arg-6 arg-8 0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((act-28 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "New type of " (Name-Core-show_Show__Name (let ((sc5 arg-9)) (let ((e-28 (vector-ref sc5 2))) e-28))))) tyC-39 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((act-29 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updated from " (Name-Core-show_Show__Name (let ((sc6 arg-9)) (let ((e-29 (vector-ref sc6 2))) e-29))))) (let ((sc6 arg-9)) (let ((e-28 (vector-ref sc6 3))) e-28)) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (vector 1 tyC-39))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 3))) e-2))))))))) +(define LinearCheck-Core-case--14153-12636 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (let ((sc1 arg-9)) (let ((e-2 (vector-ref sc1 3))) e-2))))) (else (LinearCheck-Core-case--14191-12691 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (let ((sc1 arg-9)) (let ((e-17 (vector-ref sc1 18))) e-17)))))))) +(define LinearCheck-Core-case--14117-12607 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-n--8340-12354-rigSafe 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7)) arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((LinearCheck-Core-case--14153-12636 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 e-5 (let ((sc2 e-1)) (let ((e-16 (vector-ref sc2 17))) e-16))) eta-0)))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-1) eta-0))))))) +(define LinearCheck-Core-case--8340-12578 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 e-1) (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (LinearCheck-Core-n--8340-12354-rigSafe 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (let ((sc3 e-2)) (let ((e-7 (vector-ref sc3 8))) e-7)) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-2))) ((LinearCheck-Core-case--14153-12636 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 e-2 _-0 e-6 (let ((sc4 e-2)) (let ((e-16 (vector-ref sc4 17))) e-16))) eta-0))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-1) eta-0)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-1) eta-0))))))) +(define LinearCheck-Core-case--13870-12372 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((2) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((4) arg-12) ((3) arg-12) (else arg-12))))) +(define LinearCheck-Core-case--8340-12308 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-1) eta-0))))))) +(define LinearCheck-Core-case--12210-11976 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Used: " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased e-7))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((args ((TT-Core-getArgs 'erased) arg-8))) (let ((act-25 ((LinearCheck-Core-n--8335-10858-checkEnvUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-6 arg-2 arg-7 e-7 args e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 ((LinearCheck-Core-n--8335-10855-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-6 arg-10 arg-7 args e-7 arg-9) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Arg usage: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (LinearCheck-Core-show_Show__ArgUsage x-0)) (lambda (d) (lambda (x-0) (LinearCheck-Core-showPrec_Show__ArgUsage d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (LinearCheck-Core-show_Show__ArgUsage x-0)) (lambda (d-0) (lambda (x-0) (LinearCheck-Core-showPrec_Show__ArgUsage d-0 x-0))))) d x)))) e-9))) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 e-9))))))))))))))))))))))))))) +(define LinearCheck-Core-case--12209-11782 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (LinearCheck-Core-updateHoleUsage (List-Prelude-C-43C-43 'erased arg-10 (vector 1 arg-6 arg-7)) arg-5 arg-4 (Prelude-C-61C-61_Eq__Nat arg-16 (Prelude-fromInteger_Num__Nat 0)) arg-15 (vector 0 ) arg-11)) (else (lambda (eta-0) (vector 1 1))))))) +(define LinearCheck-Core-case--12209-11668 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (Prelude-fromInteger_Num__Nat 1)) (else arg-16))))) +(define LinearCheck-Core-case--12208-11527 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) 0) (else (LinearCheck-Core-n--8335-10857-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-13 arg-12)))))) +(define LinearCheck-Core-case--12560-11267 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (cond ((equal? sc0 0) (vector 1 )) (else (vector 2 )))))) +(define LinearCheck-Core-case--12461-11148 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (cond ((equal? sc0 0) (vector 4 )) (else (LinearCheck-Core-case--12560-11267 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 'erased arg-23 arg-24 arg-25 arg-26 (Prelude-C-61C-61_Eq__Nat arg-25 (Prelude-fromInteger_Num__Nat 0)))))))) +(define LinearCheck-Core-case--12400-11069 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8335-10855-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-13 arg-18 arg-15 arg-17 arg-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((used_in (LinearCheck-Core-count 'erased e-4 arg-17))) (let ((act-25 ((LinearCheck-Core-updateHoleUsage arg-7 arg-5 arg-4 (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)) e-4 (vector 0 ) arg-16) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((ause (let ((arg (vector 0 e-2 e-3 e-4))) (LinearCheck-Core-case--12461-11148 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-2 e-3 arg-15 arg-16 arg-17 arg-18 e-4 'erased arg e-5 used_in e-6 (Prelude-C-38C-38 e-6 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)))))))) (vector 1 (vector 1 (vector 0 arg-12 ause) e-5)))))))))))))))))))(else (lambda (eta-0) (LinearCheck-Core-n--12206-10903-elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0))))))) +(define LinearCheck-Core-case--12206-11026 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8335-10855-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-13 arg-18 arg-15 arg-17 arg-16) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((used_in (LinearCheck-Core-count 'erased e-4 arg-17))) (let ((act-25 ((LinearCheck-Core-updateHoleUsage arg-7 arg-5 arg-4 (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)) e-4 (vector 0 ) arg-16) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((ause (let ((arg (vector 0 e-2 e-3 e-4))) (LinearCheck-Core-case--12461-11148 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-2 e-3 arg-15 arg-16 arg-17 arg-18 e-4 'erased arg e-5 used_in e-6 (Prelude-C-38C-38 e-6 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)))))))) (vector 1 (vector 1 (vector 0 arg-12 ause) e-5)))))))))))))))))))(else (lambda (eta-0) (LinearCheck-Core-n--12206-10903-elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0)))))) (else (lambda (eta-0) (LinearCheck-Core-n--12206-10903-elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0))))))) +(define LinearCheck-Core-case--12260-10922 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-12 (vector 1 )) arg-19)) (else (vector 1 (vector 0 arg-12 (vector 3 )) arg-19)))))) +(define LinearCheck-Core-case--8323-10647 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 5 arg-3 e-2) (vector 0 e-6 (vector 0 )))))))))))) +(define LinearCheck-Core-case--11828-10579 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 4 arg-3 e-2 arg-10) (vector 0 arg-11 e-7))))))))))) +(define LinearCheck-Core-case--8323-10537 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-8 arg-7 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-3) arg-5 arg-4 arg-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-9 (vector-ref sc4 2))) (vector 1 (vector 0 (vector 4 arg-3 e-8 e-2) (vector 0 e-6 e-9))))))))))))))))))))) +(define LinearCheck-Core-case--8323-10477 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-4 arg-3 e-2) (vector 0 e-6 (vector 0 )))))))))))) +(define LinearCheck-Core-case--8323-10416 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 2 arg-4 arg-3 e-2) (vector 0 e-6 (vector 0 )))))))))))) +(define LinearCheck-Core-case--11551-10348 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-3 e-2 arg-10) (vector 0 arg-11 e-7))))))))))) +(define LinearCheck-Core-case--8323-10306 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-8 arg-7 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-3) arg-5 arg-4 arg-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-9 (vector-ref sc4 2))) (vector 1 (vector 0 (vector 1 arg-3 e-8 e-2) (vector 0 e-6 e-9))))))))))))))))))))) +(define LinearCheck-Core-case--8323-10246 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 0 arg-4 arg-3 e-2) (vector 0 e-6 (vector 0 )))))))))))) +(define LinearCheck-Core-case--11253-10090 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((5) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 8 arg-3 e-2 arg-9) (vector 0 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-3) arg-11))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a delayed tyoe") eta-0))))))) +(define LinearCheck-Core-case--8319-10053 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-8 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((5) (let ((e-8 (vector-ref sc3 2))) (let ((e-4 (vector-ref sc3 3))) (let ((act-25 (let ((act-25 (unbox arg-8))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 8 arg-3 e-8 e-2) (vector 0 (Normalise-Core-glueBack arg-0 e-9 arg-4 e-4) e-7)))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a delayed tyoe") eta-0)))))))))))))))))) +(define LinearCheck-Core-case--11113-9982 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 7 arg-4 arg-3 arg-12 e-2) (vector 0 (Normalise-Core-gnf arg-0 arg-5 (vector 6 arg-4 arg-3 e-5)) e-7))))))))))))))))) +(define LinearCheck-Core-case--8319-9938 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-10) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (vector 1 (vector 0 (vector 7 arg-4 arg-3 e-2 e-8) (vector 0 (Normalise-Core-gnf arg-0 arg-5 (vector 6 arg-4 arg-3 e-11)) e-9)))))))))))))))))))))))))) +(define LinearCheck-Core-case--8319-9880 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 6 arg-3 arg-2 e-2) (vector 0 (Normalise-Core-gType 'erased arg-3) e-7))))))))))) +(define LinearCheck-Core-case--10909-9817 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 5 arg-4 arg-3 arg-12 e-2) (vector 0 e-6 e-7)))))))))))) +(define LinearCheck-Core-case--8319-9773 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (vector 1 (vector 0 (vector 5 arg-4 arg-3 e-2 e-8) (vector 0 e-10 e-9))))))))))))))))))))) +(define LinearCheck-Core-case--10305-9597 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5) " not a function type)"))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-17) eta-0))))))) +(define LinearCheck-Core-case--10374-9367 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (cond ((equal? sc0 0) (vector 10 arg-3 1)) (else arg-22))))) +(define LinearCheck-Core-case--10305-9298 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (((arg-19 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 e-2)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((aerased (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--10374-9367 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 e-2 e-6 e-7 _-0 e-5 (Prelude-C-38C-38 arg-5 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-18))))))) (let ((act-25 (Context-Core-getSession arg-8 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (let ((sc4 (let ((sc5 e-8)) (let ((e-13 (vector-ref sc5 7))) e-13)))) (cond ((equal? sc4 0) (let ((act-26 ((Normalise-Core-getNF 'erased arg-8 e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 (Normalise-Core-convert_Convert__NF arg-0 arg-13 arg-4 e-9 arg-17 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 (Prelude-not e-10))) (cond ((equal? sc7 0) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 arg-17 eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-29 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 e-9 eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc9 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-0 arg-3 arg-4 e-11 e-12) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 4 arg-3 arg-9 aerased) (vector 0 (Normalise-Core-glueBack arg-0 arg-13 arg-4 e-5) (LinearCheck-Core-C-43C-43 'erased arg-11 e-7)))))))))))))))))))))))))))) +(define LinearCheck-Core-case--10249-9244 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-6))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-8 arg-7 checkRig arg-5 arg-4 arg-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((fty (vector 0 e-1 e-2 (vector 2 e-10 e-11 e-12) e-4))) (let ((sc3 e-5)) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((sc4 e-6)) (let ((e-9 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((act-25 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 e-7)) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-13 (vector-ref sc5 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc5 1))) (let ((aerased (let ((_-0 (vector 0 e-7 (vector 0 e-9 e-8)))) (LinearCheck-Core-case--10374-9367 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-1 e-2 e-11 e-12 e-10 e-4 fty checkRig e-7 e-9 e-8 _-0 e-13 (Prelude-C-38C-38 arg-5 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) e-10))))))) (let ((act-26 (Context-Core-getSession arg-8 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-14 (vector-ref sc6 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc6 1))) (let ((act-27 (let ((sc7 (let ((sc8 e-14)) (let ((e-19 (vector-ref sc8 7))) e-19)))) (cond ((equal? sc7 0) (let ((act-27 ((Normalise-Core-getNF 'erased arg-8 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-15 (vector-ref sc8 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc8 1))) (let ((act-28 (Normalise-Core-convert_Convert__NF arg-0 arg-13 arg-4 e-15 e-12 eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc9 1))) (let ((sc10 (Prelude-not e-16))) (cond ((equal? sc10 0) (let ((act-29 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 e-12 eta-0))) (let ((sc11 act-29)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-30 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 e-15 eta-0))) (let ((sc12 act-30)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-0 arg-3 arg-4 e-17 e-18) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-15 (vector-ref sc7 1))) (vector 0 e-15))) (else (vector 1 (vector 0 (vector 4 arg-3 arg-9 aerased) (vector 0 (Normalise-Core-glueBack arg-0 arg-13 arg-4 e-13) (LinearCheck-Core-C-43C-43 'erased arg-11 e-8)))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5) " not a function type)"))))) eta-0))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((1) (let ((e-15 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-15 (let ((sc2 arg-13)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((act-25 ((Normalise-Core-getTerm 'erased arg-10) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-9) " not a function type)"))))) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 e-15) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5) " not a function type)"))))) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-10) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5) " not a function type)"))))) eta-0)))))))))))) +(define LinearCheck-Core-case--8319-9198 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-8 e-6) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-1 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((e-9 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((2) (let ((e-13 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((e-12 (vector-ref sc5 3))) (let ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-13 arg-6))) (let ((act-26 ((LinearCheck-Core-lcheck arg-0 arg-8 arg-7 checkRig arg-5 arg-4 arg-1) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-14 (vector-ref sc6 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc6 1))) (let ((fty (vector 0 e-1 e-10 (vector 2 e-13 e-11 e-12) e-4))) (let ((sc7 e-14)) (let ((e-16 (vector-ref sc7 1))) (let ((e-15 (vector-ref sc7 2))) (let ((sc8 e-15)) (let ((e-18 (vector-ref sc8 1))) (let ((e-17 (vector-ref sc8 2))) (let ((act-27 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 e-16)) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-19 (vector-ref sc9 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc9 1))) (let ((aerased (let ((_-1 (vector 0 e-16 (vector 0 e-18 e-17)))) (LinearCheck-Core-case--10374-9367 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-6 e-7 _-0 e-5 e-1 e-10 e-11 e-12 e-13 e-4 fty checkRig e-16 e-18 e-17 _-1 e-19 (Prelude-C-38C-38 arg-5 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) e-13))))))) (let ((act-28 (Context-Core-getSession arg-8 eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-20 (vector-ref sc10 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc10 1))) (let ((act-29 (let ((sc11 (let ((sc12 e-20)) (let ((e-25 (vector-ref sc12 7))) e-25)))) (cond ((equal? sc11 0) (let ((act-29 ((Normalise-Core-getNF 'erased arg-8 e-18) eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-21 (vector-ref sc12 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc12 1))) (let ((act-30 (Normalise-Core-convert_Convert__NF arg-0 e-5 arg-4 e-21 e-12 eta-0))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-22 (vector-ref sc13 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc13 1))) (let ((sc14 (Prelude-not e-22))) (cond ((equal? sc14 0) (let ((act-31 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 e-12 eta-0))) (let ((sc15 act-31)) (case (vector-ref sc15 0) ((0) (let ((e-23 (vector-ref sc15 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc15 1))) (let ((act-32 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 e-21 eta-0))) (let ((sc16 act-32)) (case (vector-ref sc16 0) ((0) (let ((e-24 (vector-ref sc16 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc16 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-0 arg-3 arg-4 e-23 e-24) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc11 act-29)) (case (vector-ref sc11 0) ((0) (let ((e-21 (vector-ref sc11 1))) (vector 0 e-21))) (else (vector 1 (vector 0 (vector 4 arg-3 e-2 aerased) (vector 0 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-19) (LinearCheck-Core-C-43C-43 'erased e-7 e-17))))))))))))))))))))))))))))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-11) " not a function type)"))))) eta-0)))))))))))))) ((1) (let ((e-10 (vector-ref sc4 2))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((e-15 (vector-ref sc5 2))) (let ((act-26 ((Context-Core-lookupCtxtExact e-15 (let ((sc6 e-5)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((1) (let ((act-27 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-13) " not a function type)"))))) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 e-15) eta-0)))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-12) " not a function type)"))))) eta-0)))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-9) " not a function type)"))))) eta-0))))))))))))))))))))))))))))) +(define LinearCheck-Core-case--8319-9124 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((14) (LinearCheck-Core-lcheckBinder arg-0 arg-9 arg-8 (LinearCheck-Core-n--8319-8267-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) arg-6 arg-5 (TT-Core-setMultiplicity 'erased arg-3 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-10 eta-0))))))) +(define LinearCheck-Core-case--10010-9030 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (LinearCheck-Core-n--8319-8269-eraseLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-5))(else arg-5))))) +(define LinearCheck-Core-case--9570-8997 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (LinearCheck-Core-n--8319-8269-eraseLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-5))(else arg-5)))) (else arg-5))))) +(define LinearCheck-Core-case--9630-8876 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (cond ((equal? sc0 0) (LinearCheck-Core-updateHoleUsage (vector 1 arg-1 arg-0) arg-9 arg-8 (Prelude-C-61C-61_Eq__Nat arg-20 (Prelude-fromInteger_Num__Nat 0)) 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-1 arg-0 eta-0)) (LinearCheck-Core-n--8319-8268-getZeroes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-0 arg-14)) arg-15)) (else (lambda (eta-0) (vector 1 1))))))) +(define LinearCheck-Core-case--9630-8745 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (Prelude-fromInteger_Num__Nat 1)) (else arg-20))))) +(define LinearCheck-Core-case--9570-8670 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((used_in (LinearCheck-Core-count 'erased 0 e-7))) (let ((act-25 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((LinearCheck-Core-case--9630-8876 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-2 e-6 e-7 _-0 e-5 used_in (Prelude-C-38C-38 (Prelude-not arg-6) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (TT-Core-multiplicity 'erased arg-3))))) eta-0)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((used (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--9630-8745 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-2 e-6 e-7 _-0 e-5 used_in e-8 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased arg-3) (LinearCheck-Core-n--8319-8267-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) (lambda () (Prelude-C-38C-38 e-8 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)))))))))) (let ((act-26 (let ((sc4 (Prelude-not arg-6))) (cond ((equal? sc4 0) ((LinearCheck-Core-n--8319-8270-checkUsageOK arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 used (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased arg-3) (LinearCheck-Core-n--8319-8267-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-27 (let ((act-27 (unbox arg-9))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) ((LinearCheck-Core-discharge arg-0 e-10 arg-5 arg-4 arg-1 arg-10 arg-11 e-2 e-6 (LinearCheck-Core-C-43C-43 'erased arg-12 (LinearCheck-Core-doneScope 'erased 'erased e-7))) eta-0))))))))))))))))))))))))))))))) +(define LinearCheck-Core-case--8319-8622 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((envC-39 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--9570-8997 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-6 e-7 _-0 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-7 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck (vector 1 arg-1 arg-0) arg-9 arg-8 (LinearCheck-Core-n--8319-8267-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) arg-6 (vector 1 e-2 envC-39) arg-2) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (let ((used_in (LinearCheck-Core-count 'erased 0 e-9))) (let ((act-26 (let ((_-1 (vector 0 e-8 (vector 0 e-10 e-9)))) ((LinearCheck-Core-case--9630-8876 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-6 e-7 _-0 envC-39 e-8 e-10 e-9 _-1 e-11 used_in (Prelude-C-38C-38 (Prelude-not arg-6) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (TT-Core-multiplicity 'erased arg-3))))) eta-0)))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) (let ((used (let ((_-1 (vector 0 e-8 (vector 0 e-10 e-9)))) (LinearCheck-Core-case--9630-8745 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-6 e-7 _-0 envC-39 e-8 e-10 e-9 _-1 e-11 used_in e-12 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased arg-3) (LinearCheck-Core-n--8319-8267-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) (lambda () (Prelude-C-38C-38 e-12 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)))))))))) (let ((act-27 (let ((sc7 (Prelude-not arg-6))) (cond ((equal? sc7 0) ((LinearCheck-Core-n--8319-8270-checkUsageOK arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 used (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased arg-3) (LinearCheck-Core-n--8319-8267-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((act-28 (let ((act-28 (unbox arg-9))) (vector 1 act-28)))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) ((LinearCheck-Core-discharge arg-0 e-14 arg-5 arg-4 arg-1 e-2 e-6 e-8 e-10 (LinearCheck-Core-C-43C-43 'erased e-7 (LinearCheck-Core-doneScope 'erased 'erased e-9))) eta-0)))))))))))))))))))))))))))))))))))))))))))) +(define LinearCheck-Core-case--9177-8514 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (vector 1 (TT-Core-setMultiplicity 'erased arg-13 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (LinearCheck-Core-n--8319-8269-eraseLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-12))) (else (vector 1 arg-13 (LinearCheck-Core-n--8319-8269-eraseLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-12))))))) +(define LinearCheck-Core-case--9176-8403 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (vector 1 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-10 arg-11 eta-0)) (LinearCheck-Core-n--8319-8268-getZeroes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11 arg-12)))) (else (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-10 arg-11 eta-0)) (LinearCheck-Core-n--8319-8268-getZeroes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11 arg-12))))))) +(define LinearCheck-Core-case--9181-8332 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) +(define LinearCheck-Core-case--9175-8274 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))(else (LinearCheck-Core-case--9181-8332 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-7))))))) +(define LinearCheck-Core-case--8625-8145 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-7 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-1 e-5))))))))))(else (lambda (eta-0) (vector 1 ""))))))))(else (lambda (eta-0) (vector 1 ""))))))) +(define LinearCheck-Core-case--8861-8060 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((7) (LinearCheck-Core-n--8319-7732-unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased arg-1 (let ((sc1 arg-11)) (let ((e-2 (vector-ref sc1 3))) e-2))))(else (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 3))) e-2))))))) +(define LinearCheck-Core-case--8625-7998 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (LinearCheck-Core-expandMeta arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-3 arg-2 (let ((sc1 arg-11)) (let ((e-17 (vector-ref sc1 18))) e-17)) arg-1)) (else (let ((ty (let ((expand 1)) (LinearCheck-Core-case--8861-8060 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14 expand (let ((sc1 arg-11)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-10 arg-5 (TT-Core-embed 'erased 'erased ty)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((LinearCheck-Core-lcheckMeta arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) e-5) eta-0))))))))))))) +(define LinearCheck-Core-case--8625-7896 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (lambda () 0))(else (lambda () 1)))))) +(define LinearCheck-Core-case--8625-7834 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((10) (lambda () 0))(else (lambda () 1)))))) +(define LinearCheck-Core-case--8319-7797 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((expand (Semiring-Algebra-branchZero 'erased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--8625-7834 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--8625-7896 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))) arg-7))) (lambda (eta-0) (let ((act-24 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-24 (let ((_-0 (vector 1 e-1))) ((LinearCheck-Core-case--8625-8145 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 expand (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))) eta-1)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega arg-7) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-4) (Strings-Prelude-C-43C-43 "\u000a" (Prelude-show_Show__String e-5)))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) (let ((sc2 expand)) (cond ((equal? sc2 0) ((LinearCheck-Core-expandMeta arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-3 arg-2 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)) arg-1) eta-0)) (else (let ((ty (let ((expand-0 1)) (LinearCheck-Core-case--8861-8060 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 e-5 expand-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)))))) (let ((act-25 ((Normalise-Core-nf arg-0 arg-10 arg-5 (TT-Core-embed 'erased 'erased ty)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((LinearCheck-Core-lcheckMeta arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) e-6) eta-0))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-3) eta-0))))))) +(define LinearCheck-Core-case--8367-7613 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (vector 1 arg-0 (vector 0 ))) (else (vector 0 )))))) +(define LinearCheck-Core-case--7115-7355 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (LinearCheck-Core-updateHoleUsageArgs arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-3))(else (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 1)))(else (LinearCheck-Core-updateHoleUsageArgs arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 1 e-2 e-3))))))))))))) +(define LinearCheck-Core-case--7984-7156 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((7) (let ((ty (let ((sc1 arg-11)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleType 'erased arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 ty arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-updateTy arg-9 arg-2 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-logTerm (vector 0 ) arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "New type of " (Name-Core-show_Show__Name (let ((sc3 arg-11)) (let ((e-23 (vector-ref sc3 2))) e-23))))) e-5 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (Context-Core-logTerm (vector 0 ) arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updated from " (Name-Core-show_Show__Name (let ((sc4 arg-11)) (let ((e-24 (vector-ref sc4 2))) e-24))))) (let ((sc4 arg-11)) (let ((e-2 (vector-ref sc4 3))) e-2)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 0)))))))))))))))))))))(else (LinearCheck-Core-updateHoleUsageArgs arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1)))))) +(define LinearCheck-Core-case--7115-7129 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--7984-7156 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (LinearCheck-Core-updateHoleUsageArgs arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1)))))) +(define LinearCheck-Core-case--7195-6610 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-18 arg-17 arg-16 arg-15 arg-11 arg-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 arg-12 arg-10 (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 arg-7) e-5))))))))) (else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-18 arg-17 arg-16 arg-15 arg-11 arg-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 arg-12 arg-10 (vector 2 arg-9 arg-8 arg-7) e-5))))))))))))) +(define LinearCheck-Core-case--7195-6474 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-17)) (cond ((equal? sc0 0) arg-9) (else (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) +(define LinearCheck-Core-case--7104-6423 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-18 1 arg-16 arg-15 arg-11 arg-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((cC-39 (let ((sc2 arg-17)) (cond ((equal? sc2 0) arg-9) (else (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (vector 1 (vector 3 arg-12 arg-10 (vector 2 cC-39 arg-8 arg-7) e-5)))))))))) (else (LinearCheck-Core-case--7195-6610 'erased arg-1 arg-2 'erased arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-varIdx 'erased eta-0)) arg-15)))))))) +(define LinearCheck-Core-case--7044-6319 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (+ 1 arg-4))) +(define LinearCheck-Core-case--6994-6269 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) (LinearCheck-Core-count 'erased arg-3 arg-1))) (else (LinearCheck-Core-count 'erased arg-3 arg-1)))))) +(define LinearCheck-Core-n--8319-7499-used (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (LinearCheck-Core-case--8367-7613 arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-11)))) +(define LinearCheck-Core-n--8340-12353-updateUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((3) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((2) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((e-11 (vector-ref sc2 3))) (let ((scC-39 (LinearCheck-Core-n--8340-12353-updateUsage 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-2 e-7))) (let ((cC-39 (let ((sc3 e-1)) (case (vector-ref sc3 0) ((1) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((2) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((4) e-9) ((3) e-9) (else e-9))))) (vector 3 e-4 e-5 (vector 2 cC-39 e-10 e-11) scC-39)))))))(else arg-9))))))))(else arg-9))))))(else arg-9))))) +(define LinearCheck-Core-n--8319-7732-unusedHoleArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((3) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((2) (let ((e-19 (vector-ref sc2 2))) (let ((e-20 (vector-ref sc2 3))) (vector 3 e-13 e-14 (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-19 e-20) (LinearCheck-Core-n--8319-7732-unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased e-11 e-16)))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((e-8 (vector-ref sc3 3))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (LinearCheck-Core-n--8319-7732-unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased arg-12 e-4))))))(else arg-13))))))))(else arg-13)))))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (LinearCheck-Core-n--8319-7732-unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased arg-12 e-4))))))(else arg-13))))))))(else arg-13))))))))(else (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (LinearCheck-Core-n--8319-7732-unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased arg-12 e-4))))))(else arg-13))))))))(else arg-13)))))))) +(define LinearCheck-Core-n--8344-12890-substMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((3) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-17)) (case (vector-ref sc2 0) ((1) (let ((e-15 (vector-ref sc2 1))) (let ((e-16 (vector-ref sc2 2))) (LinearCheck-Core-n--8344-12890-substMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 1 e-3 arg-14) arg-15 e-5 e-16 (vector 1 e-15 arg-18)))))(else (let ((sc2 arg-17)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (SubstEnv-TT-Core-substs arg-14 arg-15 arg-18 arg-16))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-5))))) eta-0))))))))) ((1) (let ((e-12 (vector-ref sc1 2))) (LinearCheck-Core-n--8344-12890-substMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (SubstEnv-TT-Core-subst (List-Prelude-C-43C-43 'erased arg-14 arg-15) e-3 e-12 e-5) arg-17 arg-18)))(else (let ((sc1 arg-17)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (SubstEnv-TT-Core-substs arg-14 arg-15 arg-18 arg-16))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-5))))) eta-0))))))))))))(else (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (SubstEnv-TT-Core-substs arg-14 arg-15 arg-18 arg-16))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-5))))) eta-0)))))))))) +(define LinearCheck-Core-n--6862-6147-showAll (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased e-2))(else (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased e-2) (Strings-Prelude-C-43C-43 ", " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased e-3))))))))))))) +(define LinearCheck-Core-n--8340-12354-rigSafe (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 ((Context-Core-getFullName arg-6 arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-256 arg-257))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-259) (lambda (arg-261) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-259 arg-261))))))) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-7 arg-8))) (cond ((equal? sc1 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 14 arg-4 e-5 arg-7 arg-8) ext-0)) (else (vector 1 (vector 0 )))))))))))) +(define LinearCheck-Core-n--8319-7498-rigSafe (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-256 arg-257))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-259) (lambda (arg-261) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-259 arg-261))))))) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-11 arg-12))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 14 arg-5 (LinearCheck-Core-n--8319-7497-getName arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-0 arg-2 'erased) arg-11 arg-12) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define LinearCheck-Core-n--8319-8267-rig (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))(else (LinearCheck-Core-case--9181-8332 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-7))))))) +(define LinearCheck-Core-n--8335-10857-isLocArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (LinearCheck-Core-case--12208-11527 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased 'erased e-6 e-7 e-8 'erased e-3 arg-7 (Prelude-C-61C-61_Eq__Nat e-8 (TT-Core-varIdx 'erased arg-7))))))) ((5) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (LinearCheck-Core-n--8335-10857-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 (vector 1 e-13 (vector 1 e-14 e-3))))))(else (LinearCheck-Core-n--8335-10857-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-3))))))))))) +(define LinearCheck-Core-n--8319-8268-getZeroes (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-11)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-11)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (LinearCheck-Core-case--9176-8403 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-3 e-9 e-8 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (TT-Core-multiplicity 'erased e-8))))))))))))) +(define LinearCheck-Core-n--8335-10859-getPUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logEnv e-2 arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) "Env" e-6 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 (Context-Core-logTerm e-2 arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "LHS") e-10 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-26 (Context-Core-logTerm e-2 arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Linear check in case RHS") e-11 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-27 ((LinearCheck-Core-lcheck e-2 arg-5 arg-4 arg-2 1 e-6 e-11) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (let ((sc7 e-12)) (let ((e-13 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-4)) (let ((e-14 (vector-ref sc8 2))) (let ((act-28 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Used: " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased e-14))) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((args ((TT-Core-getArgs 'erased) e-10))) (let ((act-29 ((LinearCheck-Core-n--8335-10858-checkEnvUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-2 arg-2 e-6 e-14 args e-13) eta-0))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((act-30 ((LinearCheck-Core-n--8335-10855-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-2 arg-6 e-6 args e-14 e-11) eta-0))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (let ((act-31 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Arg usage: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (LinearCheck-Core-show_Show__ArgUsage x-0)) (lambda (d) (lambda (x-0) (LinearCheck-Core-showPrec_Show__ArgUsage d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (LinearCheck-Core-show_Show__ArgUsage x-0)) (lambda (d-0) (lambda (x-0) (LinearCheck-Core-showPrec_Show__ArgUsage d-0 x-0))))) d x)))) e-18))) eta-0))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-19 (vector-ref sc12 1))) (vector 0 e-19))) (else (vector 1 e-18))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define LinearCheck-Core-n--8319-7497-getName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (let ((sc1 arg-13)) (let ((e-2 (vector-ref sc1 1))) e-2)))(else (let ((e-0 (- arg-12 1))) (let ((sc0 arg-13)) (let ((e-6 (vector-ref sc0 2))) (LinearCheck-Core-n--8319-7497-getName arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased e-0 e-6 'erased))))))))) +(define LinearCheck-Core-n--8335-10855-getCaseUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((5) (let ((e-19 (vector-ref sc1 4))) (LinearCheck-Core-n--8335-10855-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 (vector 1 e-19 e-14) arg-11 arg-12)))(else (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (LinearCheck-Core-case--12206-11026 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-1 e-8 e-7 e-6 e-2 e-4 e-10 e-11 arg-12 arg-11 arg-9 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) e-6)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (LinearCheck-Core-case--12206-11026 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-1 e-8 e-7 e-6 e-2 e-4 e-10 e-11 arg-12 arg-11 arg-9 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) e-6)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))) +(define LinearCheck-Core-n--8319-8269-eraseLinear (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (LinearCheck-Core-case--9177-8514 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased e-5 e-4 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (TT-Core-multiplicity 'erased e-4)))))))))) +(define LinearCheck-Core-n--12206-10903-elseCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 ext-0) (let ((act-24 ((LinearCheck-Core-n--8335-10855-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-13 arg-18 arg-15 arg-17 arg-16) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (LinearCheck-Core-case--12260-10922 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 e-5 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-11)))))))))) +(define LinearCheck-Core-n--8335-10861-combineUsages (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Argument usage lists inconsistent") eta-0)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8335-10860-combineUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((LinearCheck-Core-n--8335-10861-combineUsages arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 e-7) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 1 e-5 e-8))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Argument usage lists inconsistent") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Argument usage lists inconsistent") eta-0))))))) +(define LinearCheck-Core-n--8335-10860-combineUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((sc1 e-23)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((2) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Inconsistent usage of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-22) " in case branches"))) eta-0)))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-18 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 2))) (let ((sc4 e-19)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-14 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 2))) (let ((sc5 e-15)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc6 arg-6)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (let ((e-7 (vector-ref sc6 2))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((sc3 e-19)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))) ((2) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-31 (vector-ref sc2 2))) (let ((sc3 e-31)) (case (vector-ref sc3 0) ((1) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Inconsistent usage of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-22) " in case branches"))) eta-0)))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-18 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 2))) (let ((sc4 e-19)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-14 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 2))) (let ((sc5 e-15)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc6 arg-6)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (let ((e-7 (vector-ref sc6 2))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((sc3 e-19)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))) ((0) (lambda (eta-0) (vector 1 (vector 0 e-22 (vector 0 )))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((sc2 e-19)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((sc1 e-15)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))))))) +(define LinearCheck-Core-n--8335-10862-combine (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 e-2)))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8335-10862-combine arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((LinearCheck-Core-n--8335-10861-combineUsages arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-5) eta-0))))))))))))))))) +(define LinearCheck-Core-n--15029-13392-checkUsageOK (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-12) (lambda () (Prelude-C-47C-61_Eq__Nat arg-11 (Prelude-fromInteger_Num__Nat 1)))))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-8 arg-11 arg-0) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define LinearCheck-Core-n--8335-10856-checkUsageOK (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-10) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 arg-9 (lambda () (Prelude-C-62_Ord__Nat arg-7 (Prelude-fromInteger_Num__Nat 1)))) (lambda () (Prelude-C-38C-38 (Prelude-not arg-9) (lambda () (Prelude-C-47C-61_Eq__Nat arg-7 (Prelude-fromInteger_Num__Nat 1)))))))))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-6 arg-7 arg-8) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define LinearCheck-Core-n--8319-8270-checkUsageOK (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-11) (lambda () (Prelude-C-47C-61_Eq__Nat arg-10 (Prelude-fromInteger_Num__Nat 1)))))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-4 arg-10 arg-1) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define LinearCheck-Core-n--8335-10858-checkEnvUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-9)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-9)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((pos (LinearCheck-Core-localPrf 'erased 'erased arg-6))) (let ((used_in (LinearCheck-Core-count 'erased (TT-Core-varIdx 'erased pos) arg-10))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-case--12209-11782 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 e-9 e-8 arg-6 arg-12 arg-11 arg-10 arg-8 pos used_in (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (TT-Core-multiplicity 'erased e-8))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((used (LinearCheck-Core-case--12209-11668 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 e-9 e-8 arg-6 arg-12 arg-11 arg-10 arg-8 pos used_in e-5 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-8) arg-8)) (lambda () (Prelude-C-38C-38 e-5 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0))))))))) (let ((act-25 ((LinearCheck-Core-n--8335-10856-checkUsageOK arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (TT-Core-getLoc 'erased (TT-Core-binderType 'erased e-8)) used e-2 (LinearCheck-Core-n--8335-10857-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased pos arg-11) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-8) arg-8)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((LinearCheck-Core-n--8335-10858-checkEnvUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased arg-6 (vector 1 e-2 (vector 0 ))) e-3 arg-8 e-9 arg-10 arg-11 arg-12) eta-0)))))))))))))))))))))))) (define LinearCheck-Core-show_Show__ArgUsage (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "any") ((1) "0") ((2) "1") ((3) "keep") (else "unknown"))))) -(define LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 (lambda (arg-0 arg-1) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (LinearCheck-Core-n--6820-6139-showAll 'erased arg-1 'erased arg-1) "]")))) +(define LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 (lambda (arg-0 arg-1) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (LinearCheck-Core-n--6862-6147-showAll 'erased arg-1 'erased arg-1) "]")))) (define LinearCheck-Core-showPrec_Show__ArgUsage (lambda (arg-0 arg-1) (LinearCheck-Core-show_Show__ArgUsage arg-1))) (define LinearCheck-Core-showPrec_Show__C-40UsageC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased arg-2))) (define LinearCheck-Core-__Impl_Show_ArgUsage (lambda () (vector 0 (lambda (x) (LinearCheck-Core-show_Show__ArgUsage x)) (lambda (d) (lambda (x) (LinearCheck-Core-showPrec_Show__ArgUsage d x)))))) (define LinearCheck-Core-__Impl_Show_C-40UsageC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (x) (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased x)) (lambda (d) (lambda (x) (LinearCheck-Core-showPrec_Show__C-40UsageC-32C-36varsC-41 'erased d x)))))) (define LinearCheck-Core-updateHoleUsageArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((LinearCheck-Core-updateHoleUsageArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Prelude-C-124C-124 e-5 (lambda () e-6))))))))))))))))))))) -(define LinearCheck-Core-updateHoleUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((3) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (let ((sc1 e-30)) (case (vector-ref sc1 0) ((1) (let ((e-34 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-34) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((LinearCheck-Core-updateHoleUsage (vector 1 e-29 arg-0) arg-1 arg-2 arg-3 (+ 1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (TT-Core-weaken_Weaken__Var e-29 arg-0 eta-1)) arg-5) e-31) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Prelude-C-124C-124 e-5 (lambda () e-6))))))))))))))))(else (LinearCheck-Core-updateHoleUsage (vector 1 e-29 arg-0) arg-1 arg-2 arg-3 (+ 1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var e-29 arg-0 eta-0)) arg-5) e-31))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 9 e-3) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-7))) ((LinearCheck-Core-case--7942-7148 arg-0 e-4 e-3 e-2 e-1 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-7 _-0 (let ((sc4 e-7)) (let ((e-17 (vector-ref sc4 18))) e-17))) eta-0)))) (else ((LinearCheck-Core-updateHoleUsageArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4) eta-0)))))))))))))))))))) ((5) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc2 1))) (vector 1 (Prelude-C-124C-124 e-5 (lambda () e-10)))))))))))))))) ((6) (let ((e-13 (vector-ref sc0 3))) (LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-13))) ((7) (let ((e-18 (vector-ref sc0 4))) (LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-18))) ((8) (let ((e-22 (vector-ref sc0 3))) (LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22)))(else (LinearCheck-Core-case--7073-7347 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-6)))))))))) -(define LinearCheck-Core-updateHoleType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((e-16 (vector-ref sc3 3))) (LinearCheck-Core-case--7062-6415 'erased arg-1 arg-2 'erased e-14 e-16 'erased e-8 e-7 e-6 e-2 e-4 e-1 e-15 e-11 arg-6 arg-5 arg-4 arg-3 (Prelude-C-61C-61_Eq__Nat (TT-Core-varIdx 'erased arg-5) e-16))))))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsage arg-1 arg-2 arg-3 1 arg-5 arg-6 e-10) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((act-25 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4 e-11) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (vector 3 e-1 e-2 (vector 2 e-6 e-7 e-8) e-9))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsageArgs arg-1 arg-2 arg-3 1 arg-5 arg-6 arg-8) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (vector 1 arg-7)))))))))))))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsageArgs arg-1 arg-2 arg-3 1 arg-5 arg-6 arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (vector 1 arg-7))))))))))))))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsageArgs arg-1 arg-2 arg-3 1 arg-5 arg-6 arg-8) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 arg-7))))))))))) -(define LinearCheck-Core-localPrf (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (LinearCheck-Core-case--7002-6311 e-2 e-3 'erased 'erased (LinearCheck-Core-localPrf 'erased 'erased e-3))))))))) +(define LinearCheck-Core-updateHoleUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((3) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (let ((sc1 e-30)) (case (vector-ref sc1 0) ((1) (let ((e-34 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-34) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((LinearCheck-Core-updateHoleUsage (vector 1 e-29 arg-0) arg-1 arg-2 arg-3 (+ 1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (TT-Core-weaken_Weaken__Var e-29 arg-0 eta-1)) arg-5) e-31) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Prelude-C-124C-124 e-5 (lambda () e-6))))))))))))))))(else (LinearCheck-Core-updateHoleUsage (vector 1 e-29 arg-0) arg-1 arg-2 arg-3 (+ 1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var e-29 arg-0 eta-0)) arg-5) e-31))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 9 e-3) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-7))) ((LinearCheck-Core-case--7984-7156 arg-0 e-4 e-3 e-2 e-1 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-7 _-0 (let ((sc4 e-7)) (let ((e-17 (vector-ref sc4 18))) e-17))) eta-0)))) (else ((LinearCheck-Core-updateHoleUsageArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4) eta-0)))))))))))))))))))) ((5) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc2 1))) (vector 1 (Prelude-C-124C-124 e-5 (lambda () e-10)))))))))))))))) ((6) (let ((e-13 (vector-ref sc0 3))) (LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-13))) ((7) (let ((e-18 (vector-ref sc0 4))) (LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-18))) ((8) (let ((e-22 (vector-ref sc0 3))) (LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22)))(else (LinearCheck-Core-case--7115-7355 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-6)))))))))) +(define LinearCheck-Core-updateHoleType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((e-16 (vector-ref sc3 3))) (LinearCheck-Core-case--7104-6423 'erased arg-1 arg-2 'erased e-14 e-16 'erased e-8 e-7 e-6 e-2 e-4 e-1 e-15 e-11 arg-6 arg-5 arg-4 arg-3 (Prelude-C-61C-61_Eq__Nat (TT-Core-varIdx 'erased arg-5) e-16))))))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsage arg-1 arg-2 arg-3 1 arg-5 arg-6 e-10) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((act-25 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4 e-11) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (vector 3 e-1 e-2 (vector 2 e-6 e-7 e-8) e-9))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsageArgs arg-1 arg-2 arg-3 1 arg-5 arg-6 arg-8) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (vector 1 arg-7)))))))))))))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsageArgs arg-1 arg-2 arg-3 1 arg-5 arg-6 arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (vector 1 arg-7))))))))))))))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsageArgs arg-1 arg-2 arg-3 1 arg-5 arg-6 arg-8) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 arg-7))))))))))) +(define LinearCheck-Core-localPrf (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (LinearCheck-Core-case--7044-6319 e-2 e-3 'erased 'erased (LinearCheck-Core-localPrf 'erased 'erased e-3))))))))) (define LinearCheck-Core-linearCheck (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Linearity check on ") arg-7 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (Normalise-Core-logEnv arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-6 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-4 arg-5 arg-6 arg-7) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (let ((e-8 (vector-ref sc4 2))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Used: " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased e-8))) ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (let ((sc6 (Prelude-not arg-5))) (cond ((equal? sc6 0) ((LinearCheck-Core-checkEnvUsage arg-0 (vector 0 ) arg-1 arg-2 arg-3 arg-4 arg-6 e-8 e-2) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 e-2))))))))))))))))))))))))))))) -(define LinearCheck-Core-lcheckMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((2) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (let ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 checkRig arg-4 arg-5 e-1) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc3 1))) (let ((sc4 e-9)) (let ((e-4 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (let ((e-14 (vector-ref sc5 1))) (let ((e-13 (vector-ref sc5 2))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-15 (vector-ref sc6 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc6 1))) (let ((act-26 (((e-8 e-15) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 e-4)) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-16 (vector-ref sc7 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc7 1))) (let ((aerased (let ((_-0 (vector 0 e-4 (vector 0 e-14 e-13)))) (LinearCheck-Core-case--14583-13090 arg-0 e-5 e-6 e-11 e-1 e-2 e-12 e-10 e-8 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 checkRig e-4 e-14 e-13 _-0 e-15 e-16 (Prelude-C-38C-38 arg-4 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-10))))))) (let ((act-27 ((LinearCheck-Core-lcheckMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 (vector 1 aerased arg-10) e-16) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc8 1))) (let ((sc9 e-17)) (let ((e-19 (vector-ref sc9 1))) (let ((e-18 (vector-ref sc9 2))) (let ((sc10 e-18)) (let ((e-21 (vector-ref sc10 1))) (let ((e-20 (vector-ref sc10 2))) (vector 1 (vector 0 e-19 (vector 0 e-21 (LinearCheck-Core-C-43C-43 'erased e-13 e-20)))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-25 (Context-Core-clearDefs e-9 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-10 arg-5 arg-11 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 (Strings-Prelude-C-43C-43 "Linearity checking failed on metavar\u000a " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-11) " not a function type)"))))) eta-0)))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-5 arg-11 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 (Strings-Prelude-C-43C-43 "Linearity checking failed on metavar\u000a " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7) " not a function type)"))))) eta-0))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 2 arg-6 arg-7 arg-8 (List-Data-reverse 'erased arg-10)) (vector 0 (Normalise-Core-glueBack arg-0 e-5 arg-5 arg-11) (vector 0 ))))))))))))))) -(define LinearCheck-Core-lcheckDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-7 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-7) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((LinearCheck-Core-case--8298-12570 'erased arg-7 arg-6 arg-4 arg-3 arg-2 arg-1 e-5 (Context-Core-getNameID arg-7 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) eta-0)))))))))))) -(define LinearCheck-Core-lcheckBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-4)) (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 0 e-1 e-2 e-6) (vector 0 e-8 (vector 0 ))))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((sc2 e-8)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-10 (vector-ref sc3 1))) (let ((act-25 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-3 e-5) arg-4 arg-5 e-6) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc4 1))) (let ((sc5 e-11)) (let ((e-12 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-13 (vector-ref sc6 2))) (vector 1 (vector 0 (vector 1 e-5 e-12 e-2) (vector 0 e-10 e-13)))))))))))))))))))))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 2 e-9 e-10 e-2) (vector 0 e-6 (vector 0 ))))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 3 e-13 e-14 e-2) (vector 0 e-6 (vector 0 ))))))))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-19) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((act-25 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-3 e-17) arg-4 arg-5 e-18) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-10 (vector-ref sc6 2))) (vector 1 (vector 0 (vector 4 e-17 e-9 e-2) (vector 0 e-6 e-10)))))))))))))))))))))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-22) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 5 e-21 e-2) (vector 0 e-6 (vector 0 )))))))))))))))))))))) -(define LinearCheck-Core-lcheck (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((b (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (TT-Core-weaken_Weaken__Term n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (TT-Core-weakenNs_Weaken__Term vars ns arg-3271))))) arg-0 e-4 'erased arg-5))) (let ((rigb (TT-Core-multiplicity 'erased b))) (let ((ty (TT-Core-binderType 'erased b))) (lambda (eta-0) (let ((act-24 (let ((sc1 (Prelude-not arg-4))) (cond ((equal? sc1 0) ((LinearCheck-Core-n--8277-7490-rigSafe e-4 'erased arg-0 'erased e-3 e-2 arg-5 arg-4 arg-3 arg-2 arg-1 rigb arg-3) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (vector 1 (vector 0 (vector 0 e-2 e-3 e-4) (vector 0 (Normalise-Core-gnf arg-0 arg-5 ty) (LinearCheck-Core-n--8277-7491-used e-4 'erased arg-0 'erased e-3 e-2 arg-5 arg-4 arg-3 arg-2 arg-1 arg-3)))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheckDef 'erased arg-1 arg-2 e-7 arg-3 arg-4 arg-5 e-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 1 e-7 e-8 e-9) (vector 0 (Normalise-Core-gnf arg-0 arg-5 (TT-Core-embed 'erased 'erased e-5)) (vector 0 )))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 9 e-13) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((expand (Semiring-Algebra-branchZero 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--8583-7826 arg-0 e-14 e-13 e-12 e-11 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-1 _-0 (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2)))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--8583-7888 arg-0 e-14 e-13 e-12 e-11 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-1 _-0 (let ((sc4 e-1)) (let ((e-17 (vector-ref sc4 18))) e-17)))) arg-3))) (let ((act-26 (Context-Core-logC arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-26 (let ((_-0 (vector 1 e-1))) ((LinearCheck-Core-case--8583-8137 arg-0 e-14 e-13 e-12 e-11 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-1 _-0 expand (let ((sc4 e-1)) (let ((e-17 (vector-ref sc4 18))) e-17))) eta-1)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega arg-3) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-12) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-11) (Strings-Prelude-C-43C-43 "\u000a" (Prelude-show_Show__String e-7)))))))))))))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) (let ((sc5 expand)) (cond ((equal? sc5 0) ((LinearCheck-Core-expandMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-12 e-13 (let ((sc6 e-1)) (let ((e-17 (vector-ref sc6 18))) e-17)) e-14) eta-0)) (else (let ((ty (let ((expand-0 1)) (LinearCheck-Core-case--8819-8052 arg-0 e-14 e-13 e-12 e-11 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-1 _-0 e-7 expand-0 (let ((sc6 e-1)) (let ((e-17 (vector-ref sc6 18))) e-17)))))) (let ((act-27 ((Normalise-Core-nf arg-0 e-5 arg-5 (TT-Core-embed 'erased 'erased ty)) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) ((LinearCheck-Core-lcheckMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-11 e-12 e-13 e-14 (vector 0 ) e-8) eta-0)))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-11 e-12) eta-0)))))))))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-handleUnify 'erased arg-1 arg-2 (LinearCheck-Core-lcheckBinder arg-0 arg-1 arg-2 (LinearCheck-Core-n--8277-8259-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1) arg-4 arg-5 e-18) (lambda (err) (let ((sc1 err)) (case (vector-ref sc1 0) ((14) (LinearCheck-Core-lcheckBinder arg-0 arg-1 arg-2 (LinearCheck-Core-n--8277-8259-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1) arg-4 arg-5 (TT-Core-setMultiplicity 'erased e-18 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((envC-39 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--9528-8989 arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-6 e-7 _-0 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) (let ((act-25 ((LinearCheck-Core-lcheck (vector 1 e-17 arg-0) arg-1 arg-2 (LinearCheck-Core-n--8277-8259-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1) arg-4 (vector 1 e-2 envC-39) e-19) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (let ((used_in (LinearCheck-Core-count 'erased 0 e-10))) (let ((act-27 (let ((_-1 (vector 0 e-9 (vector 0 e-11 e-10)))) ((LinearCheck-Core-case--9588-8868 arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-6 e-7 _-0 envC-39 e-9 e-11 e-10 _-1 e-12 used_in (Prelude-C-38C-38 (Prelude-not arg-4) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (TT-Core-multiplicity 'erased e-18))))) eta-0)))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((used (let ((_-1 (vector 0 e-9 (vector 0 e-11 e-10)))) (LinearCheck-Core-case--9588-8737 arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-6 e-7 _-0 envC-39 e-9 e-11 e-10 _-1 e-12 used_in e-13 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-18) (LinearCheck-Core-n--8277-8259-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1))) (lambda () (Prelude-C-38C-38 e-13 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)))))))))) (let ((act-28 (let ((sc9 (Prelude-not arg-4))) (cond ((equal? sc9 0) ((LinearCheck-Core-n--8277-8262-checkUsageOK arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1 used (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-18) (LinearCheck-Core-n--8277-8259-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((act-29 (let ((act-29 (unbox arg-1))) (vector 1 act-29)))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc10 1))) ((LinearCheck-Core-discharge arg-0 e-15 arg-5 e-16 e-17 e-2 e-6 e-9 e-11 (LinearCheck-Core-C-43C-43 'erased e-7 (LinearCheck-Core-doneScope 'erased 'erased e-10))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 ((Normalise-Core-getNF 'erased arg-1 e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((0) (let ((e-1 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((e-10 (vector-ref sc6 3))) (let ((e-4 (vector-ref sc6 4))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((2) (let ((e-14 (vector-ref sc7 1))) (let ((e-13 (vector-ref sc7 2))) (let ((e-12 (vector-ref sc7 3))) (let ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-14 arg-3))) (let ((act-27 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 checkRig arg-4 arg-5 e-23) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-15 (vector-ref sc8 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc8 1))) (let ((fty (vector 0 e-1 e-11 (vector 2 e-14 e-13 e-12) e-4))) (let ((sc9 e-15)) (let ((e-17 (vector-ref sc9 1))) (let ((e-16 (vector-ref sc9 2))) (let ((sc10 e-16)) (let ((e-19 (vector-ref sc10 1))) (let ((e-18 (vector-ref sc10 2))) (let ((act-28 (((e-4 e-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 e-17)) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-20 (vector-ref sc11 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc11 1))) (let ((aerased (let ((_-1 (vector 0 e-17 (vector 0 e-19 e-18)))) (LinearCheck-Core-case--10332-9359 arg-0 e-23 e-22 e-21 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-6 e-7 _-0 e-8 e-1 e-11 e-13 e-12 e-14 e-4 fty checkRig e-17 e-19 e-18 _-1 e-20 (Prelude-C-38C-38 arg-4 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-14))))))) (let ((act-29 (Context-Core-getSession arg-1 eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-24 (vector-ref sc12 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc12 1))) (let ((act-30 (let ((sc13 (let ((sc14 e-24)) (let ((e-29 (vector-ref sc14 7))) e-29)))) (cond ((equal? sc13 0) (let ((act-30 ((Normalise-Core-getNF 'erased arg-1 e-19) eta-0))) (let ((sc14 act-30)) (case (vector-ref sc14 0) ((0) (let ((e-25 (vector-ref sc14 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc14 1))) (let ((act-31 (Normalise-Core-convert_Convert__NF arg-0 e-8 arg-5 e-25 e-12 eta-0))) (let ((sc15 act-31)) (case (vector-ref sc15 0) ((0) (let ((e-26 (vector-ref sc15 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc15 1))) (let ((sc16 (Prelude-not e-26))) (cond ((equal? sc16 0) (let ((act-32 (Normalise-Core-quote_Quote__NF arg-0 e-8 arg-5 e-12 eta-0))) (let ((sc17 act-32)) (case (vector-ref sc17 0) ((0) (let ((e-27 (vector-ref sc17 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc17 1))) (let ((act-33 (Normalise-Core-quote_Quote__NF arg-0 e-8 arg-5 e-25 eta-0))) (let ((sc18 act-33)) (case (vector-ref sc18 0) ((0) (let ((e-28 (vector-ref sc18 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref sc18 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-0 e-21 arg-5 e-27 e-28) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-25 (vector-ref sc13 1))) (vector 0 e-25))) (else (vector 1 (vector 0 (vector 4 e-21 e-2 aerased) (vector 0 (Normalise-Core-glueBack arg-0 e-8 arg-5 e-20) (LinearCheck-Core-C-43C-43 'erased e-7 e-18))))))))))))))))))))))))))))))))))))(else (let ((act-27 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-12) " not a function type)"))))) eta-0)))))))))))))) ((1) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((e-15 (vector-ref sc7 2))) (let ((act-27 ((Context-Core-lookupCtxtExact e-15 (let ((sc8 e-8)) (let ((e-0 (vector-ref sc8 1))) e-0))) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (case (vector-ref sc9 0) ((1) (let ((act-28 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc10 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-16) " not a function type)"))))) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-21 e-15) eta-0)))))))))))(else (let ((act-27 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-13) " not a function type)"))))) eta-0)))))))))))(else (let ((act-27 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-10) " not a function type)"))))) eta-0)))))))))))))))))))))))))))))))))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-27) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((act-25 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (vector 1 (vector 0 (vector 5 e-25 e-26 e-2 e-9) (vector 0 e-11 e-10))))))))))))))))))))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-32) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-7 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 6 e-30 e-31 e-2) (vector 0 (Normalise-Core-gType 'erased e-30) e-7)))))))))))))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-36) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((act-25 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-37) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-11) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (vector 1 (vector 0 (vector 7 e-34 e-35 e-2 e-9) (vector 0 (Normalise-Core-gnf arg-0 arg-5 (vector 6 e-34 e-35 e-12)) e-10)))))))))))))))))))))))))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-41) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 e-6) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((5) (let ((e-9 (vector-ref sc5 2))) (let ((e-4 (vector-ref sc5 3))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 (vector 8 e-39 e-9 e-2) (vector 0 (Normalise-Core-glueBack arg-0 e-10 arg-5 e-4) e-7)))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-39 "Not a delayed tyoe") eta-0)))))))))))))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 9 e-43 e-44) (vector 0 (Normalise-Core-gErased 'erased e-43) (vector 0 )))))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 10 e-46 e-47) (vector 0 (Normalise-Core-gErased 'erased e-46) (vector 0 )))))))) (else (let ((e-49 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 11 e-49) (vector 0 (Normalise-Core-gType 'erased e-49) (vector 0 ))))))))))) -(define LinearCheck-Core-getArgUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (LinearCheck-Core-n--8293-10851-getPUsage arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-4 eta-0)) arg-5) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((LinearCheck-Core-n--8293-10854-combine arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-6)))))))))))))) -(define LinearCheck-Core-expandMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8302-12882-substMeta arg-0 e-0 e-3 e-4 e-7 e-8 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) arg-0 (TT-Core-embed 'erased 'erased e-8) arg-9 (vector 0 )) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5) eta-0))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-6) (Strings-Prelude-C-43C-43 " " (Context-Core-show_Show__Def arg-8))))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-6) (Strings-Prelude-C-43C-43 " " (Context-Core-show_Show__Def arg-8))))) eta-0)))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-6) (Strings-Prelude-C-43C-43 " " (Context-Core-show_Show__Def arg-8))))) eta-0))))))) +(define LinearCheck-Core-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--14625-13098 arg-0 e-5 e-6 e-11 e-1 e-2 e-12 e-10 e-8 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 checkRig e-4 e-14 e-13 _-0 e-15 e-16 (Prelude-C-38C-38 arg-4 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) e-10))))))) (let ((act-27 ((LinearCheck-Core-lcheckMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 (vector 1 aerased arg-10) e-16) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc8 1))) (let ((sc9 e-17)) (let ((e-19 (vector-ref sc9 1))) (let ((e-18 (vector-ref sc9 2))) (let ((sc10 e-18)) (let ((e-21 (vector-ref sc10 1))) (let ((e-20 (vector-ref sc10 2))) (vector 1 (vector 0 e-19 (vector 0 e-21 (LinearCheck-Core-C-43C-43 'erased e-13 e-20)))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-25 (Context-Core-clearDefs e-9 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-10 arg-5 arg-11 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 (Strings-Prelude-C-43C-43 "Linearity checking failed on metavar\u000a " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-11) " not a function type)"))))) eta-0)))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-5 arg-11 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 (Strings-Prelude-C-43C-43 "Linearity checking failed on metavar\u000a " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7) " not a function type)"))))) eta-0))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 2 arg-6 arg-7 arg-8 (List-Data-reverse 'erased arg-10)) (vector 0 (Normalise-Core-glueBack arg-0 e-5 arg-5 arg-11) (vector 0 ))))))))))))))) +(define LinearCheck-Core-lcheckDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-7 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-7) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((LinearCheck-Core-case--8340-12578 'erased arg-7 arg-6 arg-4 arg-3 arg-2 arg-1 e-5 (Context-Core-getNameID arg-7 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) eta-0)))))))))))) +(define LinearCheck-Core-lcheckBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-4)) (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 0 e-1 e-2 e-6) (vector 0 e-8 (vector 0 ))))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((sc2 e-8)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-10 (vector-ref sc3 1))) (let ((act-25 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-3 e-5) arg-4 arg-5 e-6) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc4 1))) (let ((sc5 e-11)) (let ((e-12 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-13 (vector-ref sc6 2))) (vector 1 (vector 0 (vector 1 e-5 e-12 e-2) (vector 0 e-10 e-13)))))))))))))))))))))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 2 e-9 e-10 e-2) (vector 0 e-6 (vector 0 ))))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 3 e-13 e-14 e-2) (vector 0 e-6 (vector 0 ))))))))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-19) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((act-25 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-3 e-17) arg-4 arg-5 e-18) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-10 (vector-ref sc6 2))) (vector 1 (vector 0 (vector 4 e-17 e-9 e-2) (vector 0 e-6 e-10)))))))))))))))))))))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-22) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 5 e-21 e-2) (vector 0 e-6 (vector 0 )))))))))))))))))))))) +(define LinearCheck-Core-lcheck (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((b (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3275) (TT-Core-weaken_Weaken__Term n vars arg-3275)))) (lambda (vars) (lambda (ns) (lambda (arg-3279) (TT-Core-weakenNs_Weaken__Term vars ns arg-3279))))) arg-0 e-4 'erased arg-5))) (let ((rigb (TT-Core-multiplicity 'erased b))) (let ((ty (TT-Core-binderType 'erased b))) (lambda (eta-0) (let ((act-24 (let ((sc1 (Prelude-not arg-4))) (cond ((equal? sc1 0) ((LinearCheck-Core-n--8319-7498-rigSafe e-4 'erased arg-0 'erased e-3 e-2 arg-5 arg-4 arg-3 arg-2 arg-1 rigb arg-3) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (vector 1 (vector 0 (vector 0 e-2 e-3 e-4) (vector 0 (Normalise-Core-gnf arg-0 arg-5 ty) (LinearCheck-Core-n--8319-7499-used e-4 'erased arg-0 'erased e-3 e-2 arg-5 arg-4 arg-3 arg-2 arg-1 arg-3)))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheckDef 'erased arg-1 arg-2 e-7 arg-3 arg-4 arg-5 e-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 1 e-7 e-8 e-9) (vector 0 (Normalise-Core-gnf arg-0 arg-5 (TT-Core-embed 'erased 'erased e-5)) (vector 0 )))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 9 e-13) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((expand (Semiring-Algebra-branchZero 'erased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--8625-7834 arg-0 e-14 e-13 e-12 e-11 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-1 _-0 (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2)))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--8625-7896 arg-0 e-14 e-13 e-12 e-11 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-1 _-0 (let ((sc4 e-1)) (let ((e-17 (vector-ref sc4 18))) e-17)))) arg-3))) (let ((act-26 (Context-Core-logC arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-26 (let ((_-0 (vector 1 e-1))) ((LinearCheck-Core-case--8625-8145 arg-0 e-14 e-13 e-12 e-11 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-1 _-0 expand (let ((sc4 e-1)) (let ((e-17 (vector-ref sc4 18))) e-17))) eta-1)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega arg-3) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-12) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-11) (Strings-Prelude-C-43C-43 "\u000a" (Prelude-show_Show__String e-7)))))))))))))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) (let ((sc5 expand)) (cond ((equal? sc5 0) ((LinearCheck-Core-expandMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-12 e-13 (let ((sc6 e-1)) (let ((e-17 (vector-ref sc6 18))) e-17)) e-14) eta-0)) (else (let ((ty (let ((expand-0 1)) (LinearCheck-Core-case--8861-8060 arg-0 e-14 e-13 e-12 e-11 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-1 _-0 e-7 expand-0 (let ((sc6 e-1)) (let ((e-17 (vector-ref sc6 18))) e-17)))))) (let ((act-27 ((Normalise-Core-nf arg-0 e-5 arg-5 (TT-Core-embed 'erased 'erased ty)) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) ((LinearCheck-Core-lcheckMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-11 e-12 e-13 e-14 (vector 0 ) e-8) eta-0)))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-11 e-12) eta-0)))))))))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-handleUnify 'erased arg-1 arg-2 (LinearCheck-Core-lcheckBinder arg-0 arg-1 arg-2 (LinearCheck-Core-n--8319-8267-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1) arg-4 arg-5 e-18) (lambda (err) (let ((sc1 err)) (case (vector-ref sc1 0) ((14) (LinearCheck-Core-lcheckBinder arg-0 arg-1 arg-2 (LinearCheck-Core-n--8319-8267-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1) arg-4 arg-5 (TT-Core-setMultiplicity 'erased e-18 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((envC-39 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--9570-8997 arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-6 e-7 _-0 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) (let ((act-25 ((LinearCheck-Core-lcheck (vector 1 e-17 arg-0) arg-1 arg-2 (LinearCheck-Core-n--8319-8267-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1) arg-4 (vector 1 e-2 envC-39) e-19) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (let ((used_in (LinearCheck-Core-count 'erased 0 e-10))) (let ((act-27 (let ((_-1 (vector 0 e-9 (vector 0 e-11 e-10)))) ((LinearCheck-Core-case--9630-8876 arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-6 e-7 _-0 envC-39 e-9 e-11 e-10 _-1 e-12 used_in (Prelude-C-38C-38 (Prelude-not arg-4) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (TT-Core-multiplicity 'erased e-18))))) eta-0)))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((used (let ((_-1 (vector 0 e-9 (vector 0 e-11 e-10)))) (LinearCheck-Core-case--9630-8745 arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-6 e-7 _-0 envC-39 e-9 e-11 e-10 _-1 e-12 used_in e-13 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-18) (LinearCheck-Core-n--8319-8267-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1))) (lambda () (Prelude-C-38C-38 e-13 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)))))))))) (let ((act-28 (let ((sc9 (Prelude-not arg-4))) (cond ((equal? sc9 0) ((LinearCheck-Core-n--8319-8270-checkUsageOK arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1 used (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-18) (LinearCheck-Core-n--8319-8267-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((act-29 (let ((act-29 (unbox arg-1))) (vector 1 act-29)))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc10 1))) ((LinearCheck-Core-discharge arg-0 e-15 arg-5 e-16 e-17 e-2 e-6 e-9 e-11 (LinearCheck-Core-C-43C-43 'erased e-7 (LinearCheck-Core-doneScope 'erased 'erased e-10))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 ((Normalise-Core-getNF 'erased arg-1 e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((0) (let ((e-1 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((e-10 (vector-ref sc6 3))) (let ((e-4 (vector-ref sc6 4))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((2) (let ((e-14 (vector-ref sc7 1))) (let ((e-13 (vector-ref sc7 2))) (let ((e-12 (vector-ref sc7 3))) (let ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-14 arg-3))) (let ((act-27 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 checkRig arg-4 arg-5 e-23) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-15 (vector-ref sc8 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc8 1))) (let ((fty (vector 0 e-1 e-11 (vector 2 e-14 e-13 e-12) e-4))) (let ((sc9 e-15)) (let ((e-17 (vector-ref sc9 1))) (let ((e-16 (vector-ref sc9 2))) (let ((sc10 e-16)) (let ((e-19 (vector-ref sc10 1))) (let ((e-18 (vector-ref sc10 2))) (let ((act-28 (((e-4 e-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 e-17)) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-20 (vector-ref sc11 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc11 1))) (let ((aerased (let ((_-1 (vector 0 e-17 (vector 0 e-19 e-18)))) (LinearCheck-Core-case--10374-9367 arg-0 e-23 e-22 e-21 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-6 e-7 _-0 e-8 e-1 e-11 e-13 e-12 e-14 e-4 fty checkRig e-17 e-19 e-18 _-1 e-20 (Prelude-C-38C-38 arg-4 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) e-14))))))) (let ((act-29 (Context-Core-getSession arg-1 eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-24 (vector-ref sc12 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc12 1))) (let ((act-30 (let ((sc13 (let ((sc14 e-24)) (let ((e-29 (vector-ref sc14 7))) e-29)))) (cond ((equal? sc13 0) (let ((act-30 ((Normalise-Core-getNF 'erased arg-1 e-19) eta-0))) (let ((sc14 act-30)) (case (vector-ref sc14 0) ((0) (let ((e-25 (vector-ref sc14 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc14 1))) (let ((act-31 (Normalise-Core-convert_Convert__NF arg-0 e-8 arg-5 e-25 e-12 eta-0))) (let ((sc15 act-31)) (case (vector-ref sc15 0) ((0) (let ((e-26 (vector-ref sc15 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc15 1))) (let ((sc16 (Prelude-not e-26))) (cond ((equal? sc16 0) (let ((act-32 (Normalise-Core-quote_Quote__NF arg-0 e-8 arg-5 e-12 eta-0))) (let ((sc17 act-32)) (case (vector-ref sc17 0) ((0) (let ((e-27 (vector-ref sc17 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc17 1))) (let ((act-33 (Normalise-Core-quote_Quote__NF arg-0 e-8 arg-5 e-25 eta-0))) (let ((sc18 act-33)) (case (vector-ref sc18 0) ((0) (let ((e-28 (vector-ref sc18 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref sc18 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-0 e-21 arg-5 e-27 e-28) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-25 (vector-ref sc13 1))) (vector 0 e-25))) (else (vector 1 (vector 0 (vector 4 e-21 e-2 aerased) (vector 0 (Normalise-Core-glueBack arg-0 e-8 arg-5 e-20) (LinearCheck-Core-C-43C-43 'erased e-7 e-18))))))))))))))))))))))))))))))))))))(else (let ((act-27 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-12) " not a function type)"))))) eta-0)))))))))))))) ((1) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((e-15 (vector-ref sc7 2))) (let ((act-27 ((Context-Core-lookupCtxtExact e-15 (let ((sc8 e-8)) (let ((e-0 (vector-ref sc8 1))) e-0))) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (case (vector-ref sc9 0) ((1) (let ((act-28 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc10 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-16) " not a function type)"))))) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-21 e-15) eta-0)))))))))))(else (let ((act-27 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-13) " not a function type)"))))) eta-0)))))))))))(else (let ((act-27 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-10) " not a function type)"))))) eta-0)))))))))))))))))))))))))))))))))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-27) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((act-25 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (vector 1 (vector 0 (vector 5 e-25 e-26 e-2 e-9) (vector 0 e-11 e-10))))))))))))))))))))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-32) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-7 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 6 e-30 e-31 e-2) (vector 0 (Normalise-Core-gType 'erased e-30) e-7)))))))))))))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-36) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((act-25 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-37) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-11) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (vector 1 (vector 0 (vector 7 e-34 e-35 e-2 e-9) (vector 0 (Normalise-Core-gnf arg-0 arg-5 (vector 6 e-34 e-35 e-12)) e-10)))))))))))))))))))))))))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-41) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 e-6) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((5) (let ((e-9 (vector-ref sc5 2))) (let ((e-4 (vector-ref sc5 3))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 (vector 8 e-39 e-9 e-2) (vector 0 (Normalise-Core-glueBack arg-0 e-10 arg-5 e-4) e-7)))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-39 "Not a delayed tyoe") eta-0)))))))))))))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 9 e-43 e-44) (vector 0 (Normalise-Core-gErased 'erased e-43) (vector 0 )))))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 10 e-46 e-47) (vector 0 (Normalise-Core-gErased 'erased e-46) (vector 0 )))))))) (else (let ((e-49 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 11 e-49) (vector 0 (Normalise-Core-gType 'erased e-49) (vector 0 ))))))))))) +(define LinearCheck-Core-getArgUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (LinearCheck-Core-n--8335-10859-getPUsage arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-4 eta-0)) arg-5) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((LinearCheck-Core-n--8335-10862-combine arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-6)))))))))))))) +(define LinearCheck-Core-expandMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8344-12890-substMeta arg-0 e-0 e-3 e-4 e-7 e-8 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) arg-0 (TT-Core-embed 'erased 'erased e-8) arg-9 (vector 0 )) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5) eta-0))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-6) (Strings-Prelude-C-43C-43 " " (Context-Core-show_Show__Def arg-8))))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-6) (Strings-Prelude-C-43C-43 " " (Context-Core-show_Show__Def arg-8))))) eta-0)))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-6) (Strings-Prelude-C-43C-43 " " (Context-Core-show_Show__Def arg-8))))) eta-0))))))) (define LinearCheck-Core-doneScope (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (LinearCheck-Core-doneScope 'erased 'erased e-3))(else (let ((e-8 (- e-2 1))) (vector 1 e-8 (LinearCheck-Core-doneScope 'erased 'erased e-3))))))))))))) (define LinearCheck-Core-discharge (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 3 arg-3 arg-4 (vector 0 e-1 e-2 e-3) arg-7) (vector 0 (Normalise-Core-gnf arg-0 arg-2 (vector 3 arg-3 arg-4 (vector 2 e-1 e-2 e-3) e-5)) arg-9))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 3 arg-3 arg-4 (vector 1 e-5 e-6 e-7) arg-7) (vector 0 (Normalise-Core-gnf arg-0 arg-2 (vector 3 arg-3 arg-4 (vector 1 e-5 e-6 e-7) e-8)) arg-9))))))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-3 arg-4 (vector 2 e-9 e-10 e-11) arg-7) (vector 0 arg-6 arg-9)))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 3 arg-3 arg-4 (vector 3 e-13 e-14 e-15) arg-7) (vector 0 (Normalise-Core-gnf arg-0 arg-2 (vector 3 arg-3 arg-4 (vector 5 e-13 e-15) e-5)) arg-9))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 3 arg-3 arg-4 (vector 4 e-17 e-18 e-19) arg-7) (vector 0 (Normalise-Core-gnf arg-0 arg-2 (vector 3 arg-3 arg-4 (vector 4 e-17 e-18 e-19) e-5)) arg-9))))))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-3 arg-4 (vector 5 e-21 e-22) arg-7) (vector 0 arg-6 arg-9))))))))))) -(define LinearCheck-Core-count (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (LinearCheck-Core-case--6952-6261 'erased e-3 e-2 arg-1 (Prelude-C-61C-61_Eq__Nat arg-1 (TT-Core-varIdx 'erased e-2)))))))))) -(define LinearCheck-Core-checkEnvUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-6)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((pos (LinearCheck-Core-localPrf 'erased 'erased arg-1))) (let ((used_in (LinearCheck-Core-count 'erased (TT-Core-varIdx 'erased pos) arg-7))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-case--14987-13527 e-2 e-3 e-9 e-8 arg-1 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 pos used_in (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (TT-Core-multiplicity 'erased e-8))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((used (LinearCheck-Core-case--14987-13434 e-2 e-3 e-9 e-8 arg-1 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 pos used_in e-5 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-8) arg-5)) (lambda () (Prelude-C-38C-38 e-5 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0))))))))) (let ((act-25 ((LinearCheck-Core-n--14987-13384-checkUsageOK e-2 e-3 e-9 e-8 arg-1 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 used (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-8) arg-5)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((LinearCheck-Core-checkEnvUsage e-3 (List-Prelude-C-43C-43 'erased arg-1 (vector 1 e-2 (vector 0 ))) arg-2 arg-3 arg-4 arg-5 e-9 arg-7 arg-8) eta-0)))))))))))))))))))))))) +(define LinearCheck-Core-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--6994-6269 'erased e-3 e-2 arg-1 (Prelude-C-61C-61_Eq__Nat arg-1 (TT-Core-varIdx 'erased e-2)))))))))) +(define LinearCheck-Core-checkEnvUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-6)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((pos (LinearCheck-Core-localPrf 'erased 'erased arg-1))) (let ((used_in (LinearCheck-Core-count 'erased (TT-Core-varIdx 'erased pos) arg-7))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-case--15029-13535 e-2 e-3 e-9 e-8 arg-1 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 pos used_in (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (TT-Core-multiplicity 'erased e-8))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((used (LinearCheck-Core-case--15029-13442 e-2 e-3 e-9 e-8 arg-1 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 pos used_in e-5 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-8) arg-5)) (lambda () (Prelude-C-38C-38 e-5 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0))))))))) (let ((act-25 ((LinearCheck-Core-n--15029-13392-checkUsageOK e-2 e-3 e-9 e-8 arg-1 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 used (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-8) arg-5)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((LinearCheck-Core-checkEnvUsage e-3 (List-Prelude-C-43C-43 'erased arg-1 (vector 1 e-2 (vector 0 ))) arg-2 arg-3 arg-4 arg-5 e-9 arg-7 arg-8) eta-0)))))))))))))))))))))))) (define LinearCheck-Core-C-43C-43 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (LinearCheck-Core-C-43C-43 'erased e-3 arg-2))))))))) -(define BindImplicits-TTImp-case--6269-7126 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 arg-0)))) (lambda (eta-0) (vector 1 (BindImplicits-TTImp-doBind ns arg-0))))) (else (lambda (eta-0) (vector 1 arg-0))))))) -(define BindImplicits-TTImp-case--6221-7084 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (Utils-TTImp-findBindableNames 0 arg-1 (vector 0 ) arg-0)))) (let ((btm (BindImplicits-TTImp-doBind ns arg-0))) (lambda (eta-0) (vector 1 (BindImplicits-TTImp-addUsing arg-2 btm)))))) (else (lambda (eta-0) (vector 1 arg-0))))))) -(define BindImplicits-TTImp-case--5980-6941 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-0 (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 (vector 2 ) (vector 0 (vector 0 ) arg-1)))) (BindImplicits-TTImp-getUsing arg-3 arg-2))) (else (BindImplicits-TTImp-getUsing arg-3 arg-2)))))) -(define BindImplicits-TTImp-case--5980-6875 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-0 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 0 ) (vector 0 (vector 1 arg-4) arg-2)))) (BindImplicits-TTImp-getUsing arg-4 arg-3))) (else (BindImplicits-TTImp-getUsing arg-4 arg-3)))))) -(define BindImplicits-TTImp-case--5915-6799 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (Utils-TTImp-findBindableNames arg-1 (vector 0 ) (vector 0 ) arg-0)))) (lambda (eta-0) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 1 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) ns)) (BindImplicits-TTImp-doBind ns arg-0)))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-0)))))))) -(define BindImplicits-TTImp-case--5762-6730 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (List-Data-filter 'erased (lambda (x) (Prelude-C-47C-61_Eq__String (Builtin-fst 'erased 'erased x) e-2)) arg-6)))(else arg-6)))))(else arg-6))))) -(define BindImplicits-TTImp-case--5762-6685 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (List-Data-filter 'erased (lambda (x) (Prelude-C-47C-61_Eq__String (Builtin-fst 'erased 'erased x) e-2)) arg-6)))(else arg-6)))))(else arg-6))))) -(define BindImplicits-TTImp-case--5214-6583 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((nC-39 (Utils-TTImp-getUnique (List-Prelude-C-43C-43 'erased arg-3 arg-2) arg-0))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (lambda (eta-1) (State-Monad-Control-get_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) eta-1)) (lambda (upds) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (lambda (eta-2) (State-Monad-Control-put_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 1 (vector 0 arg-0 nC-39) upds) eta-2)) (lambda (_-6607) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 16 arg-1 nC-39) eta-2))) eta-1))) eta-0)))) (else (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 16 arg-1 arg-0) eta-0))))))) -(define BindImplicits-TTImp-case--5214-6129 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (let ((nC-39 (Utils-TTImp-getUnique (List-Prelude-C-43C-43 'erased arg-7 arg-6) arg-0))) (let ((scC-39 (Utils-TTImp-substNames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (List-Data-filter 'erased (lambda (arg-9) (Prelude-C-47C-61_Eq__String arg-9 arg-0)) arg-6)) (vector 1 (vector 0 (vector 1 arg-0) (vector 0 arg-5 (vector 1 nC-39))) (vector 0 )) arg-1))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-7 (vector 1 nC-39 arg-6) scC-39) (lambda (scr) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-7 arg-6 arg-2) (lambda (tyC-39) (lambda (eta-2) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (lambda (eta-3) (State-Monad-Control-get_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) eta-3)) (lambda (upds) (lambda (eta-3) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (lambda (eta-4) (State-Monad-Control-put_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 1 (vector 0 arg-0 nC-39) upds) eta-4)) (lambda (_-6206) (lambda (eta-4) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 1 arg-5 arg-4 arg-3 (vector 1 (vector 1 nC-39)) tyC-39 scr) eta-4))) eta-3))) eta-2))) eta-1))) eta-0))))) (else (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-7 arg-6 arg-1) (lambda (scr) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-7 arg-6 arg-2) (lambda (tyC-39) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 1 arg-5 arg-4 arg-3 (vector 1 (vector 1 arg-0)) tyC-39 scr) eta-2))) eta-1))) eta-0))))))) -(define BindImplicits-TTImp-n--6162-7016-tag (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 0 arg-3 e-2) (BindImplicits-TTImp-n--6162-7016-tag arg-0 arg-1 'erased (b+ arg-3 1 63) e-3))))))))) -(define BindImplicits-TTImp-n--5214-6513-renameAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-4 arg-3 e-0) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 2 bind-0) eta-1))) eta-0))))(else (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) arg-5 eta-0))))))) -(define BindImplicits-TTImp-n--5762-6781-doBindAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (vector 2 (BindImplicits-TTImp-doBind arg-3 e-0))))(else arg-4))))) -(define BindImplicits-TTImp-renameIBinds (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (let ((e-42 (vector-ref sc1 1))) (let ((sc2 e-42)) (case (vector-ref sc2 0) ((1) (let ((e-43 (vector-ref sc2 1))) (BindImplicits-TTImp-case--5214-6129 e-43 e-5 e-4 e-2 e-1 e-0 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-43 arg-0))))(else (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-4) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-5) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 1 e-0 e-1 e-2 e-3 bind-0 bind-1) eta-2))) eta-1))) eta-0)))))))(else (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-4) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-5) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 1 e-0 e-1 e-2 e-3 bind-0 bind-1) eta-2))) eta-1))) eta-0)))))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-10) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-11) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 2 e-6 e-7 e-8 e-9 bind-0 bind-1) eta-2))) eta-1))) eta-0))))))))) ((8) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-13) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-14) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 8 e-12 bind-0 bind-1) eta-2))) eta-1))) eta-0)))))) ((9) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (let ((e-18 (vector-ref sc0 4))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-16) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-18) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 9 e-15 bind-0 e-17 bind-1) eta-2))) eta-1))) eta-0))))))) ((10) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-20) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-21) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 10 e-19 bind-0 bind-1) eta-2))) eta-1))) eta-0)))))) ((17) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-25) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 17 e-22 e-23 e-24 bind-0) eta-1))) eta-0))))))) ((18) (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-28) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 18 e-26 e-27 bind-0) eta-1))) eta-0)))))) ((19) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-31) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 19 e-29 e-30 bind-0) eta-1))) eta-0)))))) ((20) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-33) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 20 e-32 bind-0) eta-1))) eta-0))))) ((21) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-35) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 21 e-34 bind-0) eta-1))) eta-0))))) ((12) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-n--5214-6513-renameAlt e-38 e-37 e-36 arg-1 arg-0 e-37) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased (lambda (b-0) (lambda (a-0) (lambda (func-0) (lambda (arg-3436) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func-0 arg-3436))))) func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a-0) (lambda (arg-3503) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3503))) (lambda (b) (lambda (a-0) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a-0) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) arg-3502 eta-2)))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (State-Monad-Control-C-60C-42C-62_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b-0) (lambda (a-0) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a-0) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b-0) (lambda (a-0) (lambda (arg-3504) (lambda (arg-3506) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3504 arg-3506)))))) (lambda (b-0) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a-0) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) arg-3503 arg-3505 eta-2))))))) (lambda (eta-2) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 eta-2)) e-38) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 12 e-36 bind-0 bind-1) eta-2))) eta-1))) eta-0)))))) ((16) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (BindImplicits-TTImp-case--5214-6583 e-40 e-39 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-40 arg-0)))))(else (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) arg-2 eta-0))))))) +(define BindImplicits-TTImp-case--6329-7134 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 arg-0)))) (lambda (eta-0) (vector 1 (BindImplicits-TTImp-doBind ns arg-0))))) (else (lambda (eta-0) (vector 1 arg-0))))))) +(define BindImplicits-TTImp-case--6281-7092 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (Utils-TTImp-findBindableNames 0 arg-1 (vector 0 ) arg-0)))) (let ((btm (BindImplicits-TTImp-doBind ns arg-0))) (lambda (eta-0) (vector 1 (BindImplicits-TTImp-addUsing arg-2 btm)))))) (else (lambda (eta-0) (vector 1 arg-0))))))) +(define BindImplicits-TTImp-case--6040-6949 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-0 (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 (vector 2 ) (vector 0 (vector 0 ) arg-1)))) (BindImplicits-TTImp-getUsing arg-3 arg-2))) (else (BindImplicits-TTImp-getUsing arg-3 arg-2)))))) +(define BindImplicits-TTImp-case--6040-6883 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-0 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 0 ) (vector 0 (vector 1 arg-4) arg-2)))) (BindImplicits-TTImp-getUsing arg-4 arg-3))) (else (BindImplicits-TTImp-getUsing arg-4 arg-3)))))) +(define BindImplicits-TTImp-case--5975-6807 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (Utils-TTImp-findBindableNames arg-1 (vector 0 ) (vector 0 ) arg-0)))) (lambda (eta-0) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 1 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) ns)) (BindImplicits-TTImp-doBind ns arg-0)))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-0)))))))) +(define BindImplicits-TTImp-case--5822-6738 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (List-Data-filter 'erased (lambda (x) (Prelude-C-47C-61_Eq__String (Builtin-fst 'erased 'erased x) e-2)) arg-6)))(else arg-6)))))(else arg-6))))) +(define BindImplicits-TTImp-case--5822-6693 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (List-Data-filter 'erased (lambda (x) (Prelude-C-47C-61_Eq__String (Builtin-fst 'erased 'erased x) e-2)) arg-6)))(else arg-6)))))(else arg-6))))) +(define BindImplicits-TTImp-case--5274-6591 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((nC-39 (Utils-TTImp-getUnique (List-Prelude-C-43C-43 'erased arg-3 arg-2) arg-0))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (lambda (eta-1) (State-Monad-Control-get_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) eta-1)) (lambda (upds) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (lambda (eta-2) (State-Monad-Control-put_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (vector 1 (vector 0 arg-0 nC-39) upds) eta-2)) (lambda (_-6615) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (vector 16 arg-1 nC-39) eta-2))) eta-1))) eta-0)))) (else (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (vector 16 arg-1 arg-0) eta-0))))))) +(define BindImplicits-TTImp-case--5274-6137 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (let ((nC-39 (Utils-TTImp-getUnique (List-Prelude-C-43C-43 'erased arg-7 arg-6) arg-0))) (let ((scC-39 (Utils-TTImp-substNames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (List-Data-filter 'erased (lambda (arg-9) (Prelude-C-47C-61_Eq__String arg-9 arg-0)) arg-6)) (vector 1 (vector 0 (vector 1 arg-0) (vector 0 arg-5 (vector 1 nC-39))) (vector 0 )) arg-1))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (BindImplicits-TTImp-renameIBinds arg-7 (vector 1 nC-39 arg-6) scC-39) (lambda (scr) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (BindImplicits-TTImp-renameIBinds arg-7 arg-6 arg-2) (lambda (tyC-39) (lambda (eta-2) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (lambda (eta-3) (State-Monad-Control-get_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) eta-3)) (lambda (upds) (lambda (eta-3) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (lambda (eta-4) (State-Monad-Control-put_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (vector 1 (vector 0 arg-0 nC-39) upds) eta-4)) (lambda (_-6214) (lambda (eta-4) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (vector 1 arg-5 arg-4 arg-3 (vector 1 (vector 1 nC-39)) tyC-39 scr) eta-4))) eta-3))) eta-2))) eta-1))) eta-0))))) (else (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (BindImplicits-TTImp-renameIBinds arg-7 arg-6 arg-1) (lambda (scr) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (BindImplicits-TTImp-renameIBinds arg-7 arg-6 arg-2) (lambda (tyC-39) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (vector 1 arg-5 arg-4 arg-3 (vector 1 (vector 1 arg-0)) tyC-39 scr) eta-2))) eta-1))) eta-0))))))) +(define BindImplicits-TTImp-n--6222-7024-tag (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 0 arg-3 e-2) (BindImplicits-TTImp-n--6222-7024-tag arg-0 arg-1 'erased (b+ arg-3 1 63) e-3))))))))) +(define BindImplicits-TTImp-n--5274-6521-renameAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (BindImplicits-TTImp-renameIBinds arg-4 arg-3 e-0) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (vector 2 bind-0) eta-1))) eta-0))))(else (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) arg-5 eta-0))))))) +(define BindImplicits-TTImp-n--5822-6789-doBindAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (vector 2 (BindImplicits-TTImp-doBind arg-3 e-0))))(else arg-4))))) +(define BindImplicits-TTImp-renameIBinds (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (let ((e-42 (vector-ref sc1 1))) (let ((sc2 e-42)) (case (vector-ref sc2 0) ((1) (let ((e-43 (vector-ref sc2 1))) (BindImplicits-TTImp-case--5274-6137 e-43 e-5 e-4 e-2 e-1 e-0 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) e-43 arg-0))))(else (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-4) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-5) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (vector 1 e-0 e-1 e-2 e-3 bind-0 bind-1) eta-2))) eta-1))) eta-0)))))))(else (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-4) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-5) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (vector 1 e-0 e-1 e-2 e-3 bind-0 bind-1) eta-2))) eta-1))) eta-0)))))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-10) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-11) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (vector 2 e-6 e-7 e-8 e-9 bind-0 bind-1) eta-2))) eta-1))) eta-0))))))))) ((8) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-13) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-14) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (vector 8 e-12 bind-0 bind-1) eta-2))) eta-1))) eta-0)))))) ((9) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (let ((e-18 (vector-ref sc0 4))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-16) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-18) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (vector 9 e-15 bind-0 e-17 bind-1) eta-2))) eta-1))) eta-0))))))) ((10) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-20) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-21) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (vector 10 e-19 bind-0 bind-1) eta-2))) eta-1))) eta-0)))))) ((17) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-25) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (vector 17 e-22 e-23 e-24 bind-0) eta-1))) eta-0))))))) ((18) (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-28) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (vector 18 e-26 e-27 bind-0) eta-1))) eta-0)))))) ((19) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-31) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (vector 19 e-29 e-30 bind-0) eta-1))) eta-0)))))) ((20) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-33) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (vector 20 e-32 bind-0) eta-1))) eta-0))))) ((21) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-35) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (vector 21 e-34 bind-0) eta-1))) eta-0))))) ((12) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (BindImplicits-TTImp-n--5274-6521-renameAlt e-38 e-37 e-36 arg-1 arg-0 e-37) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-2) (State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased (lambda (b-0) (lambda (a-0) (lambda (func-0) (lambda (arg-3444) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func-0 arg-3444))))) func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a-0) (lambda (arg-3511) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3511))) (lambda (b) (lambda (a-0) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a-0) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a-0) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) arg-3510 eta-2)))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (State-Monad-Control-C-60C-42C-62_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b-0) (lambda (a-0) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a-0) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b-0) (lambda (a-0) (lambda (arg-3512) (lambda (arg-3514) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3512 arg-3514)))))) (lambda (b-0) (lambda (a-0) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a-0) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) arg-3511 arg-3513 eta-2))))))) (lambda (eta-2) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 eta-2)) e-38) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (vector 12 e-36 bind-0 bind-1) eta-2))) eta-1))) eta-0)))))) ((16) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (BindImplicits-TTImp-case--5274-6591 e-40 e-39 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) e-40 arg-0)))))(else (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) arg-2 eta-0))))))) (define BindImplicits-TTImp-getUsings (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Prelude-C-43C-43 'erased (BindImplicits-TTImp-getUsing e-2 arg-1) (BindImplicits-TTImp-getUsings e-3 arg-1))))))))) -(define BindImplicits-TTImp-getUsing (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((1) (let ((e-13 (vector-ref sc3 1))) (BindImplicits-TTImp-case--5980-6875 e-6 e-13 e-11 e-3 arg-0 (Name-Core-C-61C-61_Eq__Name arg-0 e-13)))) (else (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (Utils-TTImp-findIBindVars e-11)))) (BindImplicits-TTImp-case--5980-6941 e-6 e-11 e-3 arg-0 ns (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-0 ns))))))))))))))))))) -(define BindImplicits-TTImp-doBind (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) arg-1)(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-45 (vector-ref sc1 1))) (Prelude-maybe 'erased 'erased (lambda () (vector 0 e-0 (vector 1 e-45))) (lambda () (lambda (nC-39) (vector 16 e-0 nC-39))) (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-45 arg-0))))(else arg-1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (let ((nsC-39 (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (List-Data-filter 'erased (lambda (x) (Prelude-C-47C-61_Eq__String (Builtin-fst 'erased 'erased x) e-8)) arg-0)))(else arg-0)))))(else arg-0))))) (vector 1 e-2 e-3 e-4 e-5 (BindImplicits-TTImp-doBind nsC-39 e-6) (BindImplicits-TTImp-doBind nsC-39 e-7)))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (let ((nsC-39 (let ((sc1 e-11)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (List-Data-filter 'erased (lambda (x) (Prelude-C-47C-61_Eq__String (Builtin-fst 'erased 'erased x) e-2)) arg-0)))(else arg-0)))))(else arg-0))))) (vector 2 e-8 e-9 e-10 e-11 (BindImplicits-TTImp-doBind nsC-39 e-12) (BindImplicits-TTImp-doBind nsC-39 e-13)))))))))) ((8) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (vector 8 e-14 (BindImplicits-TTImp-doBind arg-0 e-15) (BindImplicits-TTImp-doBind arg-0 e-16)))))) ((9) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (let ((e-20 (vector-ref sc0 4))) (vector 9 e-17 (BindImplicits-TTImp-doBind arg-0 e-18) e-19 (BindImplicits-TTImp-doBind arg-0 e-20))))))) ((10) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (vector 10 e-21 (BindImplicits-TTImp-doBind arg-0 e-22) (BindImplicits-TTImp-doBind arg-0 e-23)))))) ((17) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (let ((e-27 (vector-ref sc0 4))) (vector 17 e-24 e-25 e-26 (BindImplicits-TTImp-doBind arg-0 e-27))))))) ((18) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (vector 18 e-28 e-29 (BindImplicits-TTImp-doBind arg-0 e-30)))))) ((19) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (vector 19 e-31 e-32 (BindImplicits-TTImp-doBind arg-0 e-33)))))) ((20) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (vector 20 e-34 (BindImplicits-TTImp-doBind arg-0 e-35))))) ((21) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (vector 21 e-36 (BindImplicits-TTImp-doBind arg-0 e-37))))) ((22) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (vector 22 e-38 (BindImplicits-TTImp-doBind arg-0 e-39))))) ((25) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 25 e-40 (BindImplicits-TTImp-doBind arg-0 e-41))))) ((12) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (vector 12 e-42 (BindImplicits-TTImp-n--5762-6781-doBindAlt e-44 e-43 e-42 arg-0 e-43) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (BindImplicits-TTImp-doBind arg-0 eta-0)) e-44))))))(else arg-1)))))))) +(define BindImplicits-TTImp-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--6040-6883 e-6 e-13 e-11 e-3 arg-0 (Name-Core-C-61C-61_Eq__Name arg-0 e-13)))) (else (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (Utils-TTImp-findIBindVars e-11)))) (BindImplicits-TTImp-case--6040-6949 e-6 e-11 e-3 arg-0 ns (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) arg-0 ns))))))))))))))))))) +(define BindImplicits-TTImp-doBind (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) arg-1)(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-45 (vector-ref sc1 1))) (Prelude-maybe 'erased 'erased (lambda () (vector 0 e-0 (vector 1 e-45))) (lambda () (lambda (nC-39) (vector 16 e-0 nC-39))) (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) e-45 arg-0))))(else arg-1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (let ((nsC-39 (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (List-Data-filter 'erased (lambda (x) (Prelude-C-47C-61_Eq__String (Builtin-fst 'erased 'erased x) e-8)) arg-0)))(else arg-0)))))(else arg-0))))) (vector 1 e-2 e-3 e-4 e-5 (BindImplicits-TTImp-doBind nsC-39 e-6) (BindImplicits-TTImp-doBind nsC-39 e-7)))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (let ((nsC-39 (let ((sc1 e-11)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (List-Data-filter 'erased (lambda (x) (Prelude-C-47C-61_Eq__String (Builtin-fst 'erased 'erased x) e-2)) arg-0)))(else arg-0)))))(else arg-0))))) (vector 2 e-8 e-9 e-10 e-11 (BindImplicits-TTImp-doBind nsC-39 e-12) (BindImplicits-TTImp-doBind nsC-39 e-13)))))))))) ((8) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (vector 8 e-14 (BindImplicits-TTImp-doBind arg-0 e-15) (BindImplicits-TTImp-doBind arg-0 e-16)))))) ((9) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (let ((e-20 (vector-ref sc0 4))) (vector 9 e-17 (BindImplicits-TTImp-doBind arg-0 e-18) e-19 (BindImplicits-TTImp-doBind arg-0 e-20))))))) ((10) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (vector 10 e-21 (BindImplicits-TTImp-doBind arg-0 e-22) (BindImplicits-TTImp-doBind arg-0 e-23)))))) ((17) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (let ((e-27 (vector-ref sc0 4))) (vector 17 e-24 e-25 e-26 (BindImplicits-TTImp-doBind arg-0 e-27))))))) ((18) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (vector 18 e-28 e-29 (BindImplicits-TTImp-doBind arg-0 e-30)))))) ((19) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (vector 19 e-31 e-32 (BindImplicits-TTImp-doBind arg-0 e-33)))))) ((20) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (vector 20 e-34 (BindImplicits-TTImp-doBind arg-0 e-35))))) ((21) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (vector 21 e-36 (BindImplicits-TTImp-doBind arg-0 e-37))))) ((22) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (vector 22 e-38 (BindImplicits-TTImp-doBind arg-0 e-39))))) ((25) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 25 e-40 (BindImplicits-TTImp-doBind arg-0 e-41))))) ((12) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (vector 12 e-42 (BindImplicits-TTImp-n--5822-6789-doBindAlt e-44 e-43 e-42 arg-0 e-43) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (BindImplicits-TTImp-doBind arg-0 eta-0)) e-44))))))(else arg-1)))))))) (define BindImplicits-TTImp-bindUsings (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (vector 1 (TTImp-TTImp-getFC e-15) e-6 e-10 e-14 e-15 (BindImplicits-TTImp-bindUsings e-3 arg-1)))))))))))))))))) -(define BindImplicits-TTImp-bindTypeNamesUsed (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-isUnboundImplicits arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (Utils-TTImp-findBindableNames 0 arg-2 arg-1 arg-3)))) (vector 1 (BindImplicits-TTImp-doBind ns arg-3)))) (else (vector 1 arg-3))))))))))) -(define BindImplicits-TTImp-bindTypeNames (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-isUnboundImplicits arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (Utils-TTImp-findBindableNames 0 arg-2 (vector 0 ) arg-3)))) (let ((btm (BindImplicits-TTImp-doBind ns arg-3))) (vector 1 (BindImplicits-TTImp-addUsing arg-1 btm))))) (else (vector 1 arg-3))))))))))) -(define BindImplicits-TTImp-bindNames (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-isUnboundImplicits arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (Utils-TTImp-findBindableNames arg-1 (vector 0 ) (vector 0 ) arg-2)))) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) ns)) (BindImplicits-TTImp-doBind ns arg-2))))) (else (vector 1 (vector 0 (vector 0 ) arg-2)))))))))))) -(define BindImplicits-TTImp-addUsing (lambda (arg-0 arg-1) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (Utils-TTImp-findIBindVars arg-1)))) (let ((bs (List-Data-nubBy 'erased (lambda (x) (lambda (y) (Prelude-C-61C-61_Eq__Int (Builtin-fst 'erased 'erased x) (Builtin-fst 'erased 'erased y)))) (BindImplicits-TTImp-getUsings ns (BindImplicits-TTImp-n--6162-7016-tag arg-1 arg-0 'erased 0 arg-0))))) (BindImplicits-TTImp-bindUsings (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) bs) arg-1))))) -(define State-Monad-Control-case--1886-836 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (arg-11 arg-9))) -(define State-Monad-Control-case--1810-800 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((_-0 (vector 0 e-2 e-3))) (State-Monad-Control-case--1886-836 'erased 'erased 'erased 'erased arg-4 arg-5 arg-6 arg-7 e-2 e-3 _-0 (arg-6 e-2)))))))) -(define State-Monad-Control-case--1697-639 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 (let ((sc2 arg-4)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (vector 0 (arg-8 e-2) e-3))))))))) -(define State-Monad-Control-case--1608-593 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-5 (vector-ref sc1 2))) ((((e-5 'erased) 'erased) (arg-6 e-3)) (lambda (_-0) (let ((sc2 _-0)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 (let ((sc4 arg-4)) (let ((e-10 (vector-ref sc4 1))) e-10)))) (let ((e-9 (vector-ref sc3 2))) ((e-9 'erased) (vector 0 (e-2 e-7) e-6)))))))))))))))) -(define State-Monad-Control-n--1539-440-mapFst (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (arg-9 e-2) e-3)))))) +(define BindImplicits-TTImp-bindTypeNamesUsed (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-isUnboundImplicits arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (Utils-TTImp-findBindableNames 0 arg-2 arg-1 arg-3)))) (vector 1 (BindImplicits-TTImp-doBind ns arg-3)))) (else (vector 1 arg-3))))))))))) +(define BindImplicits-TTImp-bindTypeNames (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-isUnboundImplicits arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (Utils-TTImp-findBindableNames 0 arg-2 (vector 0 ) arg-3)))) (let ((btm (BindImplicits-TTImp-doBind ns arg-3))) (vector 1 (BindImplicits-TTImp-addUsing arg-1 btm))))) (else (vector 1 arg-3))))))))))) +(define BindImplicits-TTImp-bindNames (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-isUnboundImplicits arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (Utils-TTImp-findBindableNames arg-1 (vector 0 ) (vector 0 ) arg-2)))) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) ns)) (BindImplicits-TTImp-doBind ns arg-2))))) (else (vector 1 (vector 0 (vector 0 ) arg-2)))))))))))) +(define BindImplicits-TTImp-addUsing (lambda (arg-0 arg-1) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (Utils-TTImp-findIBindVars arg-1)))) (let ((bs (List-Data-nubBy 'erased (lambda (x) (lambda (y) (Prelude-C-61C-61_Eq__Int (Builtin-fst 'erased 'erased x) (Builtin-fst 'erased 'erased y)))) (BindImplicits-TTImp-getUsings ns (BindImplicits-TTImp-n--6222-7024-tag arg-1 arg-0 'erased 0 arg-0))))) (BindImplicits-TTImp-bindUsings (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) bs) arg-1))))) +(define State-Monad-Control-case--1888-844 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (arg-11 arg-9))) +(define State-Monad-Control-case--1812-808 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((_-0 (vector 0 e-2 e-3))) (State-Monad-Control-case--1888-844 'erased 'erased 'erased 'erased arg-4 arg-5 arg-6 arg-7 e-2 e-3 _-0 (arg-6 e-2)))))))) +(define State-Monad-Control-case--1699-647 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 (let ((sc2 arg-4)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (vector 0 (arg-8 e-2) e-3))))))))) +(define State-Monad-Control-case--1610-601 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-5 (vector-ref sc1 2))) ((((e-5 'erased) 'erased) (arg-6 e-3)) (lambda (_-0) (let ((sc2 _-0)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 (let ((sc4 arg-4)) (let ((e-10 (vector-ref sc4 1))) e-10)))) (let ((e-9 (vector-ref sc3 2))) ((e-9 'erased) (vector 0 (e-2 e-7) e-6)))))))))))))))) +(define State-Monad-Control-n--1541-448-mapFst (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (arg-9 e-2) e-3)))))) (define State-Monad-Control-put_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (vector 0 (vector 0 ) arg-3)))))) (define State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 (let ((sc1 arg-3)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (vector 0 arg-4 ext-0)))))) -(define State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) ((((arg-4 'erased) 'erased) (lambda (eta-0) (State-Monad-Control-n--1539-440-mapFst 'erased 'erased 'erased 'erased arg-4 arg-6 arg-5 'erased 'erased arg-5 eta-0))) (arg-6 ext-0)))) +(define State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) ((((arg-4 'erased) 'erased) (lambda (eta-0) (State-Monad-Control-n--1541-448-mapFst 'erased 'erased 'erased 'erased arg-4 arg-6 arg-5 'erased 'erased arg-5 eta-0))) (arg-6 ext-0)))) (define State-Monad-Control-join_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased arg-3 arg-4 (lambda (eta-0) eta-0) ext-0))) (define State-Monad-Control-get_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (vector 0 ext-0 ext-0)))))) -(define State-Monad-Control-__Impl_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-1 (vector-ref sc0 1))) e-1)) func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-3502 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (State-Monad-Control-C-60C-42C-62_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased arg-2 arg-3503 arg-3505 eta-0))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased arg-2 arg-3664 arg-3665 eta-0)))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (State-Monad-Control-join_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased arg-2 arg-3667 eta-0))))))) -(define State-Monad-Control-__Impl_MonadState_C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-1 (vector-ref sc0 1))) e-1)) func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-3502 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (State-Monad-Control-C-60C-42C-62_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased arg-2 arg-3503 arg-3505 eta-0))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased arg-2 arg-3664 arg-3665 eta-0)))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (State-Monad-Control-join_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased arg-2 arg-3667 eta-0))))) (lambda (eta-0) (State-Monad-Control-get_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased arg-2 eta-0)) (lambda (arg-291) (lambda (eta-0) (State-Monad-Control-put_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased arg-2 arg-291 eta-0)))))) +(define State-Monad-Control-__Impl_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-1 (vector-ref sc0 1))) e-1)) func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-3510 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (State-Monad-Control-C-60C-42C-62_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased arg-2 arg-3511 arg-3513 eta-0))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased arg-2 arg-3672 arg-3673 eta-0)))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (State-Monad-Control-join_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased arg-2 arg-3675 eta-0))))))) +(define State-Monad-Control-__Impl_MonadState_C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-1 (vector-ref sc0 1))) e-1)) func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-3510 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (State-Monad-Control-C-60C-42C-62_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased arg-2 arg-3511 arg-3513 eta-0))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased arg-2 arg-3672 arg-3673 eta-0)))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (State-Monad-Control-join_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased arg-2 arg-3675 eta-0))))) (lambda (eta-0) (State-Monad-Control-get_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased arg-2 eta-0)) (lambda (arg-299) (lambda (eta-0) (State-Monad-Control-put_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased arg-2 arg-299 eta-0)))))) (define State-Monad-Control-__Impl_Functor_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (arg-0 arg-1 arg-2 ext-4 ext-1 ext-2 ext-3 ext-0) (State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased arg-2 ext-2 ext-3 ext-0))) -(define State-Monad-Control-__Impl_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-1 (vector-ref sc0 1))) e-1)) func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-3502 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (State-Monad-Control-C-60C-42C-62_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased arg-2 arg-3503 arg-3505 eta-0))))))))) -(define State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (arg-5 ext-0)) (lambda (_-0) (let ((sc1 _-0)) (let ((e-5 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((_-1 (vector 0 e-5 e-4))) (State-Monad-Control-case--1886-836 'erased 'erased 'erased 'erased arg-4 arg-5 arg-6 ext-0 e-5 e-4 _-1 (arg-6 e-5)))))))))))) +(define State-Monad-Control-__Impl_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-1 (vector-ref sc0 1))) e-1)) func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-3510 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (State-Monad-Control-C-60C-42C-62_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased arg-2 arg-3511 arg-3513 eta-0))))))))) +(define State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (arg-5 ext-0)) (lambda (_-0) (let ((sc1 _-0)) (let ((e-5 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((_-1 (vector 0 e-5 e-4))) (State-Monad-Control-case--1888-844 'erased 'erased 'erased 'erased arg-4 arg-5 arg-6 ext-0 e-5 e-4 _-1 (arg-6 e-5)))))))))))) (define State-Monad-Control-C-60C-42C-62_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (arg-5 ext-0)) (lambda (_-0) (let ((sc1 _-0)) (let ((e-5 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 arg-4)) (let ((e-7 (vector-ref sc2 2))) ((((e-7 'erased) 'erased) (arg-6 e-4)) (lambda (_-1) (let ((sc3 _-1)) (let ((e-10 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 (let ((sc5 arg-4)) (let ((e-13 (vector-ref sc5 1))) e-13)))) (let ((e-12 (vector-ref sc4 2))) ((e-12 'erased) (vector 0 (e-5 e-10) e-9)))))))))))))))))))) (define StateT-State-Monad-Control-runStateT (lambda (arg-0 arg-1 arg-2 arg-3) arg-3)) (define State-Monad-Control-runState (lambda (arg-0 arg-1 arg-2 ext-0) (arg-2 ext-0))) @@ -4995,1201 +5044,1205 @@ (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-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))))) +(define Identity-Monad-Control-__Impl_Monad_Identity (lambda () (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))))) (define Identity-Monad-Control-__Impl_Functor_Identity (lambda (ext-0 ext-1 ext-2 ext-3) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased ext-2 ext-3))) -(define Identity-Monad-Control-__Impl_Applicative_Identity (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))))) +(define Identity-Monad-Control-__Impl_Applicative_Identity (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))))) (define Identity-Monad-Control-C-62C-62C-61_Monad__Identity (lambda (arg-0 arg-1 arg-2 arg-3) (arg-3 arg-2))) (define Identity-Monad-Control-C-60C-42C-62_Applicative__Identity (lambda (arg-0 arg-1 arg-2 arg-3) (arg-2 arg-3))) (define Identity-Identity-Monad-Control-runIdentity (lambda (arg-0 arg-1) arg-1)) -(define ProcessTransform-TTImp-case--8252-11859 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm e-6 arg-10 (+ 1 (+ 1 (+ 1 0))) (lambda () "Transform LHS") e-22 eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-25 (Core-Core-wrapError 'erased (lambda (eta-1) (vector 59 arg-4 arg-3 eta-1)) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-0 e-6 arg-10 arg-9 arg-8 arg-12 (vector 2 ) (vector 1 (vector 3 ) arg-7) e-18 e-14 arg-5 e-10 arg-1 (Normalise-Core-gnf e-6 e-14 e-23) eta-1)) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc7 1))) (let ((act-26 (Metadata-Core-clearHoleLHS arg-9 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-27 (Context-Core-logTerm e-6 arg-10 (+ 1 (+ 1 (+ 1 0))) (lambda () "Transform RHS") e-8 eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (Context-Core-addTransform arg-10 arg-4 (vector 0 e-6 arg-11 e-14 e-22 e-8) eta-0)))))))))))))))))))))))))))))))))))))) +(define ProcessTransform-TTImp-case--8301-11867 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm e-6 arg-10 (+ 1 (+ 1 (+ 1 0))) (lambda () "Transform LHS") e-22 eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-25 (Core-Core-wrapError 'erased (lambda (eta-1) (vector 59 arg-4 arg-3 eta-1)) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-0 e-6 arg-10 arg-9 arg-8 arg-12 (vector 2 ) (vector 1 (vector 3 ) arg-7) e-18 e-14 arg-5 e-10 arg-1 (Normalise-Core-gnf e-6 e-14 e-23) eta-1)) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc7 1))) (let ((act-26 (Metadata-Core-clearHoleLHS arg-9 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-27 (Context-Core-logTerm e-6 arg-10 (+ 1 (+ 1 (+ 1 0))) (lambda () "Transform RHS") e-8 eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (Context-Core-addTransform arg-10 arg-4 (vector 0 e-6 arg-11 e-14 e-22 e-8) eta-0)))))))))))))))))))))))))))))))))))))) (define ProcessTransform-TTImp-processTransform (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 arg-8) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-resolveName arg-1 e-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (ProcessDef-TTImp-checkLHS arg-0 arg-1 arg-2 arg-3 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 0 e-6 arg-4 arg-5 arg-6 arg-7 arg-9 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (let ((e-9 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-11)) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (let ((e-18 (vector-ref sc7 1))) (let ((e-19 (vector-ref sc7 2))) (let ((sc8 e-19)) (let ((e-22 (vector-ref sc8 1))) (let ((e-23 (vector-ref sc8 2))) (let ((act-27 (Context-Core-logTerm e-9 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "Transform LHS") e-22 ext-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-28 (Core-Core-wrapError 'erased (lambda (eta-0) (vector 59 arg-7 arg-8 eta-0)) (lambda (eta-0) (Elab-TTImp-checkTermSub arg-0 e-9 arg-1 arg-2 arg-3 e-6 (vector 2 ) (vector 1 (vector 3 ) arg-4) e-18 e-14 arg-6 e-10 arg-10 (Normalise-Core-gnf e-9 e-14 e-23) eta-0)) ext-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-29 (Metadata-Core-clearHoleLHS arg-2 ext-0))) (let ((sc11 act-29)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-30 (Context-Core-logTerm e-9 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "Transform RHS") e-13 ext-0))) (let ((sc12 act-30)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (Context-Core-addTransform arg-1 arg-7 (vector 0 e-9 e-5 e-14 e-22 e-13) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-with--19775-13004 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) -(define ProcessDef-TTImp-with--19755-12997 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (ProcessDef-TTImp-with--19775-13004 arg-4 arg-3 (ProcessDef-TTImp-nameListEq arg-3 arg-4) arg-0)))) (else (vector 0 )))))) -(define ProcessDef-TTImp-with--13879-8053 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen: names don't match in pattern type") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (ProcessDef-TTImp-extendEnv 'erased (vector 1 arg-0 arg-4) (vector 1 (vector 1 arg-12 arg-10 arg-11) arg-17) (vector 1 arg-16) (TTImp-TTImp-weaken_Weaken__NestedNames arg-0 arg-4 arg-15) arg-13 arg-14)))))))) -(define ProcessDef-TTImp-with--13879-7980 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen: names don't match in pattern type") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (ProcessDef-TTImp-extendEnv 'erased (vector 1 arg-0 arg-4) (vector 1 (vector 3 arg-11 arg-10 arg-9) arg-16) (vector 1 arg-15) (TTImp-TTImp-weaken_Weaken__NestedNames arg-0 arg-4 arg-14) arg-12 arg-13)))))))) -(define ProcessDef-TTImp-case--22912-16093 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30) (let ((sc0 arg-30)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 (vector 1 arg-10 e-20) e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-case--22912-16013 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-12)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (Context-Core-defaultPI) arg-20 arg-21 arg-21 arg-19) e-18 e-19 e-20)))))))))))))))))))))))) -(define ProcessDef-TTImp-case--22732-15733 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-warnUnreachable arg-9 eta-1)) e-7) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-25 (Context-Core-logC arg-9 (+ 1 (+ 1 0)) (lambda (eta-1) (let ((act-25 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Case tree for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-2 e-8))))))))))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (Context-Core-addDef arg-9 (vector 9 arg-17) (let ((sc4 arg-12)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-26 (vector-ref sc4 3))) (let ((e-25 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-24 (vector-ref sc4 6))) (let ((e-23 (vector-ref sc4 7))) (let ((e-22 (vector-ref sc4 8))) (let ((e-21 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (vector 0 e-0 e-1 e-26 e-25 e-4 e-24 e-23 e-22 e-21 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (Context-Core-defaultPI) e-2 e-6 e-6 arg-19) e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-27 (let ((sc5 (TT-Core-C-61C-61_Eq__Visibility (let ((sc6 arg-12)) (let ((e-21 (vector-ref sc6 10))) e-21)) (vector 2 )))) (cond ((equal? sc5 0) (((let ((rmetas (CaseTree-Core-getMetas 'erased e-6))) (lambda () (lambda (eta-1) (let ((act-27 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased rmetas)))))) eta-1))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-addToSave arg-9 eta-2 eta-3))) (NameMap-Data-keys 'erased rmetas)) eta-1))))))))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (let ((sc6 (Prelude-C-38C-38 (Name-Core-isUserName arg-10) (lambda () (TT-Core-C-47C-61_Eq__Visibility (let ((sc7 arg-12)) (let ((e-22 (vector-ref sc7 10))) e-22)) (vector 0 )))))) (cond ((equal? sc6 0) (((let ((tymetas (TT-Core-getMetas 'erased (let ((sc7 arg-12)) (let ((e-28 (vector-ref sc7 3))) e-28))))) (lambda () (Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-9 eta-1 eta-2))) (NameMap-Data-keys 'erased tymetas))))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-29 (Context-Core-addToSave arg-9 arg-10 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (unbox arg-9))) (vector 1 act-30)))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-31 (let ((act-31 (set-box! arg-9 (let ((sc9 e-13)) (let ((e-0 (vector-ref sc9 1))) (let ((e-1 (vector-ref sc9 2))) (let ((e-36 (vector-ref sc9 3))) (let ((e-35 (vector-ref sc9 4))) (let ((e-4 (vector-ref sc9 5))) (let ((e-34 (vector-ref sc9 6))) (let ((e-33 (vector-ref sc9 7))) (let ((e-32 (vector-ref sc9 8))) (let ((e-31 (vector-ref sc9 9))) (let ((e-30 (vector-ref sc9 10))) (let ((e-29 (vector-ref sc9 11))) (let ((e-28 (vector-ref sc9 12))) (let ((e-27 (vector-ref sc9 13))) (let ((e-26 (vector-ref sc9 14))) (let ((e-14 (vector-ref sc9 15))) (let ((e-15 (vector-ref sc9 16))) (let ((e-16 (vector-ref sc9 17))) (let ((e-17 (vector-ref sc9 18))) (let ((e-18 (vector-ref sc9 19))) (let ((e-19 (vector-ref sc9 20))) (let ((e-20 (vector-ref sc9 21))) (let ((e-21 (vector-ref sc9 22))) (let ((e-22 (vector-ref sc9 23))) (let ((e-23 (vector-ref sc9 24))) (let ((e-24 (vector-ref sc9 25))) (let ((e-25 (vector-ref sc9 26))) (vector 0 e-0 e-1 e-36 e-35 e-4 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-14 e-15 e-16 e-17 e-18 e-19 (vector 1 arg-10 e-20) e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-31)))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 (Context-Core-toResolvedNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-33 (ProcessDef-TTImp-calcRefs arg-9 1 e-15 (vector 9 arg-17) eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-34 (let ((sc12 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 1 ) arg-6)))) (cond ((equal? sc12 0) (let ((act-34 (Termination-Core-calculateSizeChange arg-9 arg-3 arg-10 eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc13 1))) (let ((act-35 (Context-Core-setSizeChange arg-9 arg-3 arg-10 e-17 eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (Termination-Core-checkIfGuarded arg-9 arg-3 arg-10 eta-0))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((act-35 (let ((act-35 (unbox arg-8))) (vector 1 act-35)))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc13 1))) (let ((act-36 (ProcessDef-TTImp-n--21378-14389-checkCoverage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-17 arg-14 arg-16 arg-18 eta-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc14 1))) (let ((act-37 (Context-Core-setCovering arg-9 arg-3 arg-10 e-19 eta-0))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-38 (let ((act-38 (set-box! arg-8 e-18))) (vector 1 act-38)))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((sc17 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 1 ) arg-6)))) (cond ((equal? sc17 0) (ProcessDef-TTImp-compileRunTime arg-9 arg-8 arg-7 arg-3 e-15 eta-0)) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-case--22732-15624 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) -(define ProcessDef-TTImp-case--22689-15578 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((ty (let ((sc1 arg-12)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((hashit (TT-Core-C-61C-61_Eq__Visibility (let ((sc1 arg-12)) (let ((e-9 (vector-ref sc1 10))) e-9)) (vector 2 )))) (let ((mult (ProcessDef-TTImp-case--22732-15624 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ty hashit (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (let ((sc1 arg-12)) (let ((e-7 (vector-ref sc1 8))) e-7)))))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolveName arg-9 arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-checkClause arg-0 arg-9 arg-8 arg-7 mult (let ((sc2 arg-12)) (let ((e-9 (vector-ref sc2 10))) e-9)) hashit e-5 arg-6 arg-5 arg-4 eta-1)) arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((pats (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-toPats eta-1)) (Either-Data-rights 'erased 'erased e-6)))) (let ((act-26 ((CaseBuilder-Core-getPMDef arg-9 arg-3 (vector 0 mult) arg-10 ty (Either-Data-rights 'erased 'erased e-6)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-warnUnreachable arg-9 eta-1)) e-8) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-28 (Context-Core-logC arg-9 (+ 1 (+ 1 0)) (lambda (eta-1) (let ((act-28 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-9 eta-1))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (Strings-Prelude-C-43C-43 "Case tree for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-2 e-11))))))))))) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-29 (Context-Core-addDef arg-9 (vector 9 e-5) (let ((sc8 arg-12)) (let ((e-0 (vector-ref sc8 1))) (let ((e-1 (vector-ref sc8 2))) (let ((e-29 (vector-ref sc8 3))) (let ((e-28 (vector-ref sc8 4))) (let ((e-4 (vector-ref sc8 5))) (let ((e-27 (vector-ref sc8 6))) (let ((e-26 (vector-ref sc8 7))) (let ((e-25 (vector-ref sc8 8))) (let ((e-24 (vector-ref sc8 9))) (let ((e-23 (vector-ref sc8 10))) (let ((e-22 (vector-ref sc8 11))) (let ((e-21 (vector-ref sc8 12))) (let ((e-12 (vector-ref sc8 13))) (let ((e-13 (vector-ref sc8 14))) (let ((e-14 (vector-ref sc8 15))) (let ((e-15 (vector-ref sc8 16))) (let ((e-16 (vector-ref sc8 17))) (let ((e-18 (vector-ref sc8 19))) (let ((e-19 (vector-ref sc8 20))) (let ((e-20 (vector-ref sc8 21))) (vector 0 e-0 e-1 e-29 e-28 e-4 e-27 e-26 e-25 e-24 e-23 e-22 e-21 e-12 e-13 e-14 e-15 e-16 (vector 1 (Context-Core-defaultPI) e-2 e-9 e-9 pats) e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-30 (let ((sc9 (TT-Core-C-61C-61_Eq__Visibility (let ((sc10 arg-12)) (let ((e-24 (vector-ref sc10 10))) e-24)) (vector 2 )))) (cond ((equal? sc9 0) (((let ((rmetas (CaseTree-Core-getMetas 'erased e-9))) (lambda () (lambda (eta-1) (let ((act-30 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased rmetas)))))) eta-1))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-addToSave arg-9 eta-2 eta-3))) (NameMap-Data-keys 'erased rmetas)) eta-1))))))))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-31 (let ((sc10 (Prelude-C-38C-38 (Name-Core-isUserName arg-10) (lambda () (TT-Core-C-47C-61_Eq__Visibility (let ((sc11 arg-12)) (let ((e-25 (vector-ref sc11 10))) e-25)) (vector 0 )))))) (cond ((equal? sc10 0) (((let ((tymetas (TT-Core-getMetas 'erased (let ((sc11 arg-12)) (let ((e-31 (vector-ref sc11 3))) e-31))))) (lambda () (Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-9 eta-1 eta-2))) (NameMap-Data-keys 'erased tymetas))))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-32 (Context-Core-addToSave arg-9 arg-10 eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-33 (let ((act-33 (unbox arg-9))) (vector 1 act-33)))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-34 (let ((act-34 (set-box! arg-9 (let ((sc13 e-16)) (let ((e-0 (vector-ref sc13 1))) (let ((e-1 (vector-ref sc13 2))) (let ((e-39 (vector-ref sc13 3))) (let ((e-38 (vector-ref sc13 4))) (let ((e-4 (vector-ref sc13 5))) (let ((e-37 (vector-ref sc13 6))) (let ((e-36 (vector-ref sc13 7))) (let ((e-35 (vector-ref sc13 8))) (let ((e-34 (vector-ref sc13 9))) (let ((e-33 (vector-ref sc13 10))) (let ((e-32 (vector-ref sc13 11))) (let ((e-31 (vector-ref sc13 12))) (let ((e-30 (vector-ref sc13 13))) (let ((e-29 (vector-ref sc13 14))) (let ((e-28 (vector-ref sc13 15))) (let ((e-27 (vector-ref sc13 16))) (let ((e-26 (vector-ref sc13 17))) (let ((e-17 (vector-ref sc13 18))) (let ((e-18 (vector-ref sc13 19))) (let ((e-19 (vector-ref sc13 20))) (let ((e-20 (vector-ref sc13 21))) (let ((e-21 (vector-ref sc13 22))) (let ((e-22 (vector-ref sc13 23))) (let ((e-23 (vector-ref sc13 24))) (let ((e-24 (vector-ref sc13 25))) (let ((e-25 (vector-ref sc13 26))) (vector 0 e-0 e-1 e-39 e-38 e-4 e-37 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-17 e-18 e-19 (vector 1 arg-10 e-20) e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-34)))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-35 (Context-Core-toResolvedNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")) eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc14 1))) (let ((act-36 (ProcessDef-TTImp-calcRefs arg-9 1 e-18 (vector 9 e-5) eta-0))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-37 (let ((sc16 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 1 ) arg-6)))) (cond ((equal? sc16 0) (let ((act-37 (Termination-Core-calculateSizeChange arg-9 arg-3 arg-10 eta-0))) (let ((sc17 act-37)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc17 1))) (let ((act-38 (Context-Core-setSizeChange arg-9 arg-3 arg-10 e-20 eta-0))) (let ((sc18 act-38)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (Termination-Core-checkIfGuarded arg-9 arg-3 arg-10 eta-0))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((act-38 (let ((act-38 (unbox arg-8))) (vector 1 act-38)))) (let ((sc17 act-38)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc17 1))) (let ((act-39 (ProcessDef-TTImp-n--21378-14389-checkCoverage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5 ty mult e-6 eta-0))) (let ((sc18 act-39)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc18 1))) (let ((act-40 (Context-Core-setCovering arg-9 arg-3 arg-10 e-22 eta-0))) (let ((sc19 act-40)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (vector 0 e-4))) (else (let ((act-41 (let ((act-41 (set-box! arg-8 e-21))) (vector 1 act-41)))) (let ((sc20 act-41)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (let ((sc21 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 1 ) arg-6)))) (cond ((equal? sc21 0) (ProcessDef-TTImp-compileRunTime arg-9 arg-8 arg-7 arg-3 e-18 eta-0)) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-3 arg-10) eta-0))))))) -(define ProcessDef-TTImp-case--21378-15548 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (ProcessDef-TTImp-case--22689-15578 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 37 arg-3 arg-10) eta-0))))))) -(define ProcessDef-TTImp-case--22387-15360 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Covering arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Covering arg-5888 arg-5889)))) (vector 2 arg-26) eta-0))))))) -(define ProcessDef-TTImp-case--22095-15296 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Coverage-Core-getNonCoveringRefs arg-9 arg-3 (vector 9 arg-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 )))(else (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Covering arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Covering arg-5888 arg-5889)))) (vector 2 e-5) eta-0))))))))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-25)))))))) -(define ProcessDef-TTImp-case--22095-15185 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Catch all case in " (Prelude-show_Show__Int arg-13))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (Coverage-Core-getMissing arg-17 arg-9 arg-3 (vector 9 arg-13) arg-18 eta-0))))))) -(define ProcessDef-TTImp-case--21399-15028 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Working from " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-2 e-5))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ProcessDef-TTImp-case--22095-15185 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-7 e-2 e-6 _-0 e-5 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-1) (ProcessDef-TTImp-n--21378-14386-catchAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-1))) arg-15)) eta-0)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda (eta-1) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) eta-2 eta-3))) e-8) eta-1))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 ((Context-Core-getFullName arg-9 (vector 9 arg-13)) eta-1))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (Strings-Prelude-C-43C-43 "Initially missing in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-10) (Strings-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-17) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-17)) e-9))))))))))))))))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessDef-TTImp-n--21378-14387-checkImpossible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-13 arg-11 eta-1 eta-2))) e-8) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Coverage-Core-checkMatched arg-9 arg-15 eta-1 eta-2))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-10)) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((miss (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-11))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ProcessDef-TTImp-case--22095-15296 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-7 e-2 e-6 _-0 e-5 e-8 e-9 e-10 e-11 miss (List-Data-isNil 'erased miss)) eta-0))))))))))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-case--21397-14866 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 1 arg-10)))))))) -(define ProcessDef-TTImp-case--21643-14706 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-9 arg-14))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-26) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessDef-TTImp-n--21397-14445-closeEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (set-box! arg-9 arg-14))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 1 e-6)))))))))))))))))))))) -(define ProcessDef-TTImp-case--21556-14628 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((ProcessDef-TTImp-hasEmptyPat (vector 0 ) arg-9 e-5 (vector 0 ) e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (let ((act-27 (let ((act-27 (set-box! arg-9 arg-14))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (vector 0 ))))))) (else (let ((act-27 (Context-Core-clearDefs arg-14 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-nf (vector 0 ) e-8 (vector 0 ) e-6) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) ((ProcessDef-TTImp-n--21397-14445-closeEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-8 e-9) eta-0)))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (let ((act-29 (set-box! arg-9 arg-14))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (vector 1 (vector 1 e-9))))))))))))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-case--21397-14557 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-9 arg-16 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 ((Elab-TTImp-elabTerm (vector 0 ) arg-9 arg-8 arg-7 arg-12 (vector 1 arg-11) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 arg-3 (vector 1 ) e-3) (vector 0 )) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (unbox arg-9))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-27 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-28 ((ProcessDef-TTImp-hasEmptyPat (vector 0 ) arg-9 e-8 (vector 0 ) e-9) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (cond ((equal? sc7 0) (let ((act-29 (let ((act-29 (set-box! arg-9 arg-14))) (vector 1 act-29)))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (vector 1 (vector 0 ))))))) (else (let ((act-29 (Context-Core-clearDefs arg-14 eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-30 (let ((act-30 ((Normalise-Core-nf (vector 0 ) e-11 (vector 0 ) e-9) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc9 1))) ((ProcessDef-TTImp-n--21397-14445-closeEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-11 e-12) eta-0)))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-31 (let ((act-31 (set-box! arg-9 arg-14))) (vector 1 act-31)))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (vector 1 (vector 1 e-12)))))))))))))))))))))))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-case--21240-14326 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 (vector 0 ) e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-case--20962-14100 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 arg-14 arg-10 arg-13 arg-20 arg-12) e-18 e-19 e-20)))))))))))))))))))))))) -(define ProcessDef-TTImp-case--20867-14014 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-4 arg-0 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-5 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 arg-14 arg-10 arg-13 arg-21 arg-12) e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "WAT") eta-0))))))) -(define ProcessDef-TTImp-case--20717-13938 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Covering arg-9) (Strings-Prelude-C-43C-43 ":\u000aRuntime tree for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc2 arg-7)) (let ((e-1 (vector-ref sc2 2))) e-1))) (Strings-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-2 e-6)))))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ProcessDef-TTImp-case--20867-14014 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 e-7 e-2 e-6 _-0 e-5 (ProcessDef-TTImp-nameListEq arg-10 e-2)) eta-0)))))))))))))))) -(define ProcessDef-TTImp-case--20717-13851 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (ProcessDef-TTImp-n--20440-13562-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-17))(else arg-17))))) -(define ProcessDef-TTImp-case--20681-13816 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((ty (let ((sc1 arg-7)) (let ((e-23 (vector-ref sc1 3))) e-23)))) (lambda () (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--20440-13564-toErased arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc1 arg-7)) (let ((e-25 (vector-ref sc1 1))) e-25)) (ProcessDef-TTImp-n--20440-13563-getSpec arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc1 arg-7)) (let ((e-11 (vector-ref sc1 12))) e-11))) eta-1)) e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((clauses_init (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--20440-13565-toClause arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc2 arg-7)) (let ((e-26 (vector-ref sc2 1))) e-26)) eta-1)) e-5))) (let ((clauses (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (ProcessDef-TTImp-n--20440-13562-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 clauses_init))(else clauses_init))))) (let ((act-25 ((CaseBuilder-Core-getPMDef arg-4 (let ((sc2 arg-7)) (let ((e-26 (vector-ref sc2 1))) e-26)) (vector 1 ) arg-0 ty clauses) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-26 (Context-Core-log arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Covering arg-9) (Strings-Prelude-C-43C-43 ":\u000aRuntime tree for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc5 arg-7)) (let ((e-30 (vector-ref sc5 2))) e-30))) (Strings-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-8 e-10)))))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (let ((_-0 (vector 0 e-8 (vector 0 e-10 e-9)))) ((ProcessDef-TTImp-case--20867-14014 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 e-3 e-4 e-2 e-0 ty e-5 clauses_init clauses e-9 e-8 e-10 _-0 e-11 (ProcessDef-TTImp-nameListEq e-1 e-8)) eta-0))))))))))))))))))))))))))))))))))(else (lambda () (lambda (eta-0) (vector 1 (vector 0 ))))))))) -(define ProcessDef-TTImp-case--20440-13788 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((cov (let ((sc1 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((e-2 (vector-ref sc1 2))) e-2)))) (let ((sc1 (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 8))) e-7)))))) (cond ((equal? sc1 0) ((let ((_-0 (vector 1 e-1))) (ProcessDef-TTImp-case--20681-13816 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 cov (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessDef-TTImp-case--20087-13455 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (vector 1 arg-17) e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))))) -(define ProcessDef-TTImp-case--20087-13417 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (vector 1 arg-17) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))))) -(define ProcessDef-TTImp-case--20087-13281 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-9) (else arg-10))))) -(define ProcessDef-TTImp-case--19999-13253 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((tree (let ((sc1 arg-2)) (cond ((equal? sc1 0) arg-9) (else arg-10))))) (let ((metas (CaseTree-Core-getMetas 'erased tree))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-3 eta-1 eta-2))) (NameMap-Data-keys 'erased metas)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((refs_all (CaseTree-Core-addRefs 'erased arg-1 metas tree))) (let ((act-25 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (ProcessDef-TTImp-n--19825-13040-dropErased arg-0 arg-1 arg-2 arg-3 (NameMap-Data-keys 'erased refs_all) refs_all)) (lambda () (lambda (eta-1) (vector 1 refs_all)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (lambda (eta-1) (Context-Core-addDef arg-3 arg-0 (let ((sc3 arg-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (let ((e-21 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 e-11 e-12 (vector 1 e-6) e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-1))) (lambda () (lambda (eta-1) (Context-Core-addDef arg-3 arg-0 (let ((sc3 arg-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (let ((e-21 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 e-11 (vector 1 e-6) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-1)))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessDef-TTImp-calcRefs arg-3 arg-2 arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased e-6)) eta-0))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessDef-TTImp-case--19999-13205 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (let ((e-13 (vector-ref sc1 14))) e-13))) (else (let ((sc1 arg-5)) (let ((e-12 (vector-ref sc1 13))) e-12))))))) -(define ProcessDef-TTImp-case--19978-13187 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((refs (let ((sc1 arg-2)) (cond ((equal? sc1 0) (let ((sc2 arg-5)) (let ((e-13 (vector-ref sc2 14))) e-13))) (else (let ((sc2 arg-5)) (let ((e-12 (vector-ref sc2 13))) e-12))))))) (let ((sc1 refs)) (case (vector-ref sc1 0) ((0) (let ((tree (let ((sc2 arg-2)) (cond ((equal? sc2 0) e-3) (else e-2))))) (let ((metas (CaseTree-Core-getMetas 'erased tree))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-3 eta-1 eta-2))) (NameMap-Data-keys 'erased metas)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((refs_all (CaseTree-Core-addRefs 'erased arg-1 metas tree))) (let ((act-25 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (ProcessDef-TTImp-n--19825-13040-dropErased arg-0 arg-1 arg-2 arg-3 (NameMap-Data-keys 'erased refs_all) refs_all)) (lambda () (lambda (eta-1) (vector 1 refs_all)))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (lambda (eta-1) (Context-Core-addDef arg-3 arg-0 (let ((sc4 arg-5)) (let ((e-27 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-25 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((e-23 (vector-ref sc4 5))) (let ((e-22 (vector-ref sc4 6))) (let ((e-21 (vector-ref sc4 7))) (let ((e-7 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (vector 0 e-27 e-26 e-25 e-24 e-23 e-22 e-21 e-7 e-8 e-9 e-10 e-11 e-12 (vector 1 e-6) e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-1))) (lambda () (lambda (eta-1) (Context-Core-addDef arg-3 arg-0 (let ((sc4 arg-5)) (let ((e-27 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-25 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((e-23 (vector-ref sc4 5))) (let ((e-22 (vector-ref sc4 6))) (let ((e-21 (vector-ref sc4 7))) (let ((e-7 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (vector 0 e-27 e-26 e-25 e-24 e-23 e-22 e-21 e-7 e-8 e-9 e-10 e-11 (vector 1 e-6) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-1)))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessDef-TTImp-calcRefs arg-3 arg-2 arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased e-6)) eta-0))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessDef-TTImp-case--19825-13172 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (ProcessDef-TTImp-case--19978-13187 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessDef-TTImp-case--19856-13094 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (ProcessDef-TTImp-n--19825-13040-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 arg-6)) (else (ProcessDef-TTImp-n--19825-13040-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 (NameMap-Data-delete 'erased arg-4 arg-6))))))) -(define ProcessDef-TTImp-case--19831-13067 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (ProcessDef-TTImp-case--19856-13094 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (else (ProcessDef-TTImp-n--19825-13040-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 arg-6)))))) -(define ProcessDef-TTImp-case--17338-12883 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 2 )))))) -(define ProcessDef-TTImp-case--18423-12373 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49 arg-50 arg-51 arg-52 arg-53 arg-54 arg-55 arg-56 arg-57 arg-58 arg-59 arg-60 arg-61 arg-62 arg-63) (vector 1 arg-63 arg-7))) -(define ProcessDef-TTImp-case--18423-12133 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49 arg-50 arg-51 arg-52 arg-53 arg-54 arg-55 arg-56 arg-57) (let ((sc0 arg-57)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) -(define ProcessDef-TTImp-case--17971-11821 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49 arg-50) (let ((sc0 arg-50)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((wargNames (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) e-5) (vector 1 (vector 0 ) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) arg-45))))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-15 (+ 1 (+ 1 (+ 1 0))) (lambda () "With function type") e-10 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-log arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Argument names " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2)))) x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) d x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2)))) d-1 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1))))) d-0 x-0)))) d x)))) wargNames))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (UnifyState-Core-genWithName arg-15 arg-13 arg-9 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 (Context-Core-addDef arg-15 e-11 (Context-Core-newDef arg-4 e-11 (ProcessDef-TTImp-case--18423-12133 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49 e-5 e-9 e-10 wargNames e-7 e-8 e-11 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-12)) arg-5 e-10 arg-11 (vector 0 )) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((rhs_in (TTImp-TTImp-apply (vector 0 arg-4 e-11) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 0 arg-4 eta-1)) e-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Prelude-maybe 'erased 'erased (lambda () arg-2) (lambda () (lambda (pn) (vector 0 arg-4 (Builtin-snd 'erased 'erased pn)))) eta-1)) wargNames))))) (let ((act-28 (Context-Core-log arg-15 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Applying to with argument " (TTImp-TTImp-show_Show__RawImp rhs_in))) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 ((Context-Core-getFullName arg-15 (vector 9 arg-9)) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc8 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 59 arg-4 e-14 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-5 arg-17 arg-15 arg-14 arg-13 arg-9 arg-24 arg-8 arg-20 arg-19 arg-6 arg-18 rhs_in (Normalise-Core-gnf arg-17 arg-19 arg-22) eta-1))) eta-0)))))))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc8 1))) (let ((act-30 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--15777-10558-mkClauseWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (+ 1 0) e-11 wargNames arg-16 eta-1)) arg-0) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc9 1))) (let ((act-31 (Context-Core-log arg-15 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "With clauses: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-15))) eta-0))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-32 (ProcessDef-TTImp-applyEnv arg-5 arg-15 arg-6 e-11 eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc11 1))) (let ((nestC-39C-39 (vector 1 e-17 arg-7))) (let ((wdef (vector 2 arg-4 e-11 e-15))) (let ((act-33 ((Check-Elab-TTImp-processDecl arg-5 arg-15 arg-14 arg-13 (vector 0 ) nestC-39C-39 arg-6 wdef) eta-0))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (vector 1 (vector 1 (vector 0 arg-17 arg-19 arg-21 e-14)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Impossible happened: With abstraction failure #4") eta-0))))))) -(define ProcessDef-TTImp-case--17971-11622 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47) (let ((sc0 arg-47)) (cond ((equal? sc0 0) (lambda (eta-0) (Context-Core-clearDefs arg-32 eta-0))) (else (lambda (eta-0) (vector 1 arg-32))))))) -(define ProcessDef-TTImp-case--17842-11453 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41) (let ((sc0 arg-41)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((wargn (vector 2 "warg" 0))) (let ((scenv (vector 1 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) arg-40) e-1))) (let ((bnr (Utils-Elab-TTImp-bindNotReq 'erased arg-17 arg-4 0 arg-19 arg-36 (vector 0 ) arg-22))) (let ((notreqns (Builtin-fst 'erased 'erased bnr))) (let ((notreqty (Builtin-snd 'erased 'erased bnr))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-case--17971-11622 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 e-1 wargn scenv bnr notreqns notreqty (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TTImp-TTImp-C-61C-61_Eq__WithFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TTImp-TTImp-C-47C-61_Eq__WithFlag arg-430 arg-431)))) (vector 0 ) arg-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 1 wargn arg-35) e-5 scenv (TT-Core-weaken_Weaken__Term wargn arg-35 arg-39)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-nf (vector 1 wargn arg-35) e-5 scenv (TT-Core-weaken_Weaken__Term wargn arg-35 notreqty)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Normalise-Core-replace (vector 1 wargn arg-35) e-5 scenv e-6 (vector 0 arg-4 (vector 1 1) 0) e-7 eta-0))))))))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((bNotReq (vector 3 arg-4 wargn (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) arg-40) e-6))) ((ProcessDef-TTImp-case--17971-11821 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 e-1 wargn scenv bnr notreqns notreqty e-5 e-6 bNotReq (Utils-Elab-TTImp-bindReq 'erased arg-17 arg-4 arg-19 arg-36 (vector 0 ) bNotReq)) eta-0)))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Impossible happened: With abstraction failure #3") eta-0))))))) -(define ProcessDef-TTImp-case--17716-11364 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40) (let ((sc0 arg-40)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (ProcessDef-TTImp-case--17842-11453 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 e-1 (Env-Core-shrinkEnv 'erased 'erased arg-19 arg-36)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Impossible happened: With abstraction failure #2") eta-0))))))) -(define ProcessDef-TTImp-case--17577-11277 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39) (let ((sc0 arg-39)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (ProcessDef-TTImp-case--17716-11364 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 e-1 (TT-Core-shrinkTerm 'erased 'erased arg-34 arg-36)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Impossible happened: With abstraction failure #1") eta-0))))))) -(define ProcessDef-TTImp-case--17441-11171 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35) (let ((sc0 arg-35)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-17 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value type") arg-34 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-log arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Using vars " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-2))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessDef-TTImp-case--17577-11277 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 e-2 e-3 e-5 e-6 (TT-Core-shrinkTerm 'erased 'erased arg-33 e-3)) eta-0))))))))))))))))) -(define ProcessDef-TTImp-case--17338-11052 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Metadata-Core-clearHoleLHS arg-14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTerm arg-17 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value") e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-logTerm arg-17 arg-15 (+ 1 (+ 1 (+ 1 0))) (lambda () "Required type") arg-22 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (unbox arg-15))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Normalise-Core-normaliseHoles arg-17 e-9 arg-19 e-2 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Normalise-Core-normaliseHoles arg-17 e-9 arg-19 e-8 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((_-0 (vector 0 e-2 e-3))) ((ProcessDef-TTImp-case--17441-11171 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 e-2 e-3 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (ProcessDef-TTImp-n--15777-10557-keepOldEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased 'erased arg-17 arg-18 (let ((sc8 (Env-Core-findSubEnv arg-17 arg-19 e-10))) (let ((e-4 (vector-ref sc8 2))) e-4)))) eta-0))))))))))))))))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-case--15777-10970 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((wmode (let ((_-0 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--17338-12883 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-2 e-6 e-10 e-14 e-18 e-22 e-23 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-12))))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-15 (vector 9 arg-9)) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc6 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 59 arg-4 e-5 eta-1))) (Elab-TTImp-elabTermSub arg-5 e-6 arg-15 arg-14 arg-13 arg-9 wmode arg-8 e-18 e-14 arg-6 e-10 arg-2 (vector 0 ))) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc6 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (let ((sc7 e-5)) (let ((e-8 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((act-25 (Metadata-Core-clearHoleLHS arg-14 eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (Context-Core-logTerm e-6 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value") e-8 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-27 (Context-Core-logTerm e-6 arg-15 (+ 1 (+ 1 (+ 1 0))) (lambda () "Required type") e-23 eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-29 (let ((act-29 (unbox arg-15))) (vector 1 act-29)))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-30 (Normalise-Core-normaliseHoles e-6 e-17 e-14 e-8 eta-0))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-20 (vector-ref sc13 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc13 1))) (let ((act-31 (Normalise-Core-normaliseHoles e-6 e-17 e-14 e-16 eta-0))) (let ((sc14 act-31)) (case (vector-ref sc14 0) ((0) (let ((e-21 (vector-ref sc14 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc14 1))) (let ((_-1 (vector 0 e-8 e-4))) ((ProcessDef-TTImp-case--17441-11171 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-2 e-6 e-10 e-14 e-18 e-22 e-23 _-0 wmode e-8 e-4 _-1 e-9 e-12 e-13 e-16 e-17 e-20 e-21 (ProcessDef-TTImp-n--15777-10557-keepOldEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased 'erased e-6 e-10 (let ((sc15 (Env-Core-findSubEnv e-6 e-14 e-20))) (let ((e-24 (vector-ref sc15 2))) e-24)))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-case--16831-10849 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-16 e-2) (vector 2 e-3))))))) -(define ProcessDef-TTImp-case--16831-10767 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-17 e-2) (vector 2 e-3))))))) -(define ProcessDef-TTImp-case--16831-10685 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-17 e-2) (vector 2 e-3))))))) -(define ProcessDef-TTImp-case--16831-10603 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (vector 1 e-3))))))) -(define ProcessDef-TTImp-case--16376-10465 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 2 )))))) -(define ProcessDef-TTImp-case--16376-10325 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-25)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (Metadata-Core-addLHS arg-15 arg-13 arg-12 (TTImp-TTImp-getFC arg-1) (Env-Core-length 'erased 'erased arg-4) arg-17 arg-19 eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessDef-TTImp-case--15777-10159 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((rhsMode (let ((_-0 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--16376-10465 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-2 e-6 e-10 e-14 e-18 e-22 e-23 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-10))))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking RHS " (TTImp-TTImp-show_Show__RawImp arg-0))) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-25 (Normalise-Core-logEnv e-6 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" e-14 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-13 (vector 9 arg-7)) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc8 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-6 (lambda (eta-1) (vector 59 arg-2 e-9 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-3 e-6 arg-13 arg-12 arg-11 arg-7 rhsMode arg-6 e-18 e-14 arg-4 e-10 arg-0 (Normalise-Core-gnf e-6 e-14 e-23) eta-1))) eta-0)))))))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 (Metadata-Core-clearHoleLHS arg-12 eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-28 (Context-Core-logTerm e-6 arg-13 (+ 1 (+ 1 (+ 1 0))) (lambda () "RHS term") e-9 eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-29 (let ((sc11 arg-8)) (cond ((equal? sc11 0) (let ((act-29 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-22 eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-9 eta-0)))))) (else (vector 1 (vector 0 ))))))) (let ((sc11 act-29)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-30 (let ((sc12 e-9)) (case (vector-ref sc12 0) ((2) (Metadata-Core-addLHS e-6 arg-13 arg-12 (TTImp-TTImp-getFC arg-1) (Env-Core-length 'erased 'erased arg-4) e-14 e-22 eta-0))(else (vector 1 (vector 0 ))))))) (let ((sc12 act-30)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (vector 1 (vector 1 (vector 0 e-6 e-14 e-22 e-9)))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-case--16168-10068 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 arg-13)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 1 arg-14)) eta-0))))))) -(define ProcessDef-TTImp-case--15777-9981 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((6) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-14 eta-0)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((ProcessDef-TTImp-impossibleErrOK arg-12 e-5 arg-14) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (vector 1 (vector 0 arg-13))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 1 arg-14)) eta-0)))))))))))))))))))) -(define ProcessDef-TTImp-case--15924-9858 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 arg-13)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 0 arg-26)) eta-0))))))) -(define ProcessDef-TTImp-case--15828-9786 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles arg-0 e-5 arg-3 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((ProcessDef-TTImp-hasEmptyPat arg-0 arg-12 e-5 arg-3 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (vector 1 (vector 0 arg-13))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 0 e-6)) eta-0)))))))))))))))))))))))) -(define ProcessDef-TTImp-case--15777-9700 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-12 arg-14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking " (TTImp-TTImp-show_Show__RawImp e-3))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (Normalise-Core-logEnv arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-3 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-27 ((Elab-TTImp-elabTerm arg-0 arg-12 arg-11 arg-10 arg-6 (vector 1 arg-9) arg-5 arg-4 arg-3 (vector 15 arg-2 (vector 1 ) e-3) (vector 0 )) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 (unbox arg-12))) (vector 1 act-28)))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-29 (Normalise-Core-normaliseHoles arg-0 e-10 arg-3 e-9 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-30 ((ProcessDef-TTImp-hasEmptyPat arg-0 arg-12 e-10 arg-3 e-11) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (let ((sc9 e-12)) (cond ((equal? sc9 0) (vector 1 (vector 0 arg-13))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 0 e-11)) eta-0))))))))))))))))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-case--15133-9369 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Checked LHS term") e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-12))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((lhsenv (Env-Core-letToLam 'erased arg-3))) (let ((act-27 (Normalise-Core-normaliseHoles arg-2 e-7 lhsenv e-2 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Normalise-Core-normaliseHoles arg-2 e-7 arg-3 e-6 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((ProcessDef-TTImp-findLinear arg-2 arg-12 0 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-8) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Checked LHS term after normalise") e-8 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Linearity of names in " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-6) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x)))) e-10))))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 ((ProcessDef-TTImp-combineLinear arg-1 e-10) eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((lhstm_lin (ProcessDef-TTImp-setLinear 'erased e-13 e-8))) (let ((lhsty_lin (ProcessDef-TTImp-setLinear 'erased e-13 e-9))) (let ((act-33 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 0))) (lambda () "LHS term") lhstm_lin eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-34 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "LHS type") lhsty_lin eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-35 (Metadata-Core-setHoleLHS arg-11 (Env-Core-bindEnv arg-2 arg-1 arg-3 lhstm_lin) eta-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((act-36 ((ProcessDef-TTImp-extendEnv 'erased arg-2 arg-3 (vector 0 ) arg-4 lhstm_lin lhsty_lin) eta-0))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc13 1))) (vector 1 (vector 0 arg-21 e-17)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-case--15133-9284 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-18))) (else (TTImp-TTImp-implicitsAs arg-13 arg-2 arg-18)))))) -(define ProcessDef-TTImp-case--15133-9142 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (vector 3 )) (else (vector 1 arg-8)))))) -(define ProcessDef-TTImp-case--15011-9072 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-12 arg-15 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (let ((sc2 arg-9)) (cond ((equal? sc2 0) (vector 1 e-3)) (else ((TTImp-TTImp-implicitsAs arg-13 arg-2 e-3) eta-0)))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-12 (vector 9 arg-6)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking LHS of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp e-6))))) eta-0)))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-27 (Normalise-Core-logEnv arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-3 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((lhsMode (let ((sc5 arg-9)) (cond ((equal? sc5 0) (vector 3 )) (else (vector 1 arg-8)))))) (let ((act-28 (let ((act-28 ((Context-Core-getFullName arg-12 (vector 9 arg-6)) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-5 (lambda (eta-1) (vector 58 arg-1 e-9 eta-1))) (Elab-TTImp-elabTerm arg-2 arg-12 arg-11 arg-10 arg-6 lhsMode arg-5 arg-4 arg-3 (vector 15 arg-1 (vector 1 ) e-6) (vector 0 ))) eta-0)))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (let ((e-10 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((act-29 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Checked LHS term") e-10 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((act-30 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-31 (let ((act-31 (unbox arg-12))) (vector 1 act-31)))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((lhsenv (Env-Core-letToLam 'erased arg-3))) (let ((act-32 (Normalise-Core-normaliseHoles arg-2 e-13 lhsenv e-10 eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-33 (Normalise-Core-normaliseHoles arg-2 e-13 arg-3 e-12 eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-15 (vector-ref sc11 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-34 ((ProcessDef-TTImp-findLinear arg-2 arg-12 0 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-14) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-16 (vector-ref sc12 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-35 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Checked LHS term after normalise") e-14 eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-17 (vector-ref sc13 1))) (vector 0 e-17))) (else (let ((act-36 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Linearity of names in " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-6) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x)))) e-16))))) eta-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-18 (vector-ref sc14 1))) (vector 0 e-18))) (else (let ((act-37 ((ProcessDef-TTImp-combineLinear arg-1 e-16) eta-0))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-19 (vector-ref sc15 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc15 1))) (let ((lhstm_lin (ProcessDef-TTImp-setLinear 'erased e-19 e-14))) (let ((lhsty_lin (ProcessDef-TTImp-setLinear 'erased e-19 e-15))) (let ((act-38 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 0))) (lambda () "LHS term") lhstm_lin eta-0))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-20 (vector-ref sc16 1))) (vector 0 e-20))) (else (let ((act-39 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "LHS type") lhsty_lin eta-0))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-21 (vector-ref sc17 1))) (vector 0 e-21))) (else (let ((act-40 (Metadata-Core-setHoleLHS arg-11 (Env-Core-bindEnv arg-2 arg-1 arg-3 lhstm_lin) eta-0))) (let ((sc18 act-40)) (case (vector-ref sc18 0) ((0) (let ((e-22 (vector-ref sc18 1))) (vector 0 e-22))) (else (let ((act-41 ((ProcessDef-TTImp-extendEnv 'erased arg-2 arg-3 (vector 0 ) arg-4 lhstm_lin lhsty_lin) eta-0))) (let ((sc19 act-41)) (case (vector-ref sc19 0) ((0) (let ((e-23 (vector-ref sc19 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc19 1))) (vector 1 (vector 0 e-6 e-23))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-case--15011-9013 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-0))) (else (TTImp-TTImp-lhsInCurrentNS 'erased arg-12 arg-4 arg-0)))))) -(define ProcessDef-TTImp-case--14771-8907 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-combineLinear arg-3 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 0 arg-0 arg-1) e-5)))))))))(else (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-n--14771-8755-combineAll arg-0 arg-1 arg-2 arg-3 arg-1 arg-4) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((ProcessDef-TTImp-combineLinear arg-3 (List-Data-filter 'erased (lambda (eta-1) (ProcessDef-TTImp-n--14771-8752-notN arg-0 arg-1 arg-2 arg-3 eta-1)) arg-2)) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 0 arg-0 e-5) e-6)))))))))))))))))) -(define ProcessDef-TTImp-case--14790-8852 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-3 (+ 1 (+ 1 0)) arg-0) eta-0))) (else (lambda (eta-0) (vector 1 (Preorder-Algebra-lub 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) arg-5 arg-4)))))))) -(define ProcessDef-TTImp-case--14789-8786 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 1 arg-5 (ProcessDef-TTImp-n--14771-8753-lookupAll arg-0 arg-1 arg-2 arg-3 arg-7 arg-6))) (else (ProcessDef-TTImp-n--14771-8753-lookupAll arg-0 arg-1 arg-2 arg-3 arg-7 arg-6)))))) -(define ProcessDef-TTImp-case--14630-8694 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 3 arg-5 arg-3 (vector 5 e-1 arg-1) (ProcessDef-TTImp-setLinear 'erased arg-6 arg-4))))(else (vector 3 arg-5 arg-3 (vector 5 arg-2 arg-1) (ProcessDef-TTImp-setLinear 'erased arg-6 arg-4))))))) -(define ProcessDef-TTImp-case--14630-8636 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 3 arg-6 arg-4 (vector 3 e-1 arg-2 arg-1) (ProcessDef-TTImp-setLinear 'erased arg-7 arg-5))))(else (vector 3 arg-6 arg-4 (vector 3 arg-3 arg-2 arg-1) (ProcessDef-TTImp-setLinear 'erased arg-7 arg-5))))))) -(define ProcessDef-TTImp-case--14471-8543 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-10 (vector 0 ) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0 (ProcessDef-TTImp-n--14098-8158-accessible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-2) e-5 arg-9) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessDef-TTImp-case--14098-8479 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc2 1))) (let ((act-25 (Context-Core-lookupTyExact e-7 (let ((sc3 e-8)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc3 1))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-8 (vector 0 ) e-1) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0 (ProcessDef-TTImp-n--14098-8158-accessible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6 arg-2) e-10 e-3) eta-0)))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessDef-TTImp-case--14131-8263 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (((arg-12 arg-20) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 arg-17 (vector 0 ) arg-13))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-19 e-5 arg-18) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 arg-21 (ZeroOneOmega-Algebra-rigMult arg-11 arg-19)) e-6)))))))))))))) (else (lambda (eta-0) (let ((act-24 (((arg-12 arg-20) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 arg-17 (vector 0 ) arg-13))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-19 e-5 arg-18) eta-0)))))))))))) -(define ProcessDef-TTImp-case--14130-8165 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-6) (else (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) -(define ProcessDef-TTImp-case--13481-7693 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 1))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-anyM 'erased (lambda (eta-1) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-1)) (List-Data-zip 'erased 'erased arg-7 arg-9)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Prelude-not e-5))))))))))))) -(define ProcessDef-TTImp-case--13481-7605 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 1))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-anyM 'erased (lambda (eta-1) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-1)) (List-Data-zip 'erased 'erased arg-3 arg-7)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Prelude-not e-5))))))))))))) -(define ProcessDef-TTImp-case--13133-7370 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-7 arg-9))))))) -(define ProcessDef-TTImp-case--13133-7288 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-3 arg-7))) (else (lambda (eta-0) (vector 1 1))))))) -(define ProcessDef-TTImp-case--12845-7118 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-7 arg-9))))))) -(define ProcessDef-TTImp-case--12845-7036 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-5 arg-8))))))) -(define ProcessDef-TTImp-n--20440-13564-toErased (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-linearCheck e-2 arg-4 arg-2 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 e-6 e-10 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Transform-Core-applyTransforms 'erased arg-4 e-6 e-11) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 ((PartialEval-TTImp-applySpecialise e-2 arg-4 arg-3 arg-2 e-6 arg-6 e-8) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 (LinearCheck-Core-linearCheck e-2 arg-4 arg-2 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 e-6 e-9 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-5 e-12)))))))))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-n--20440-13565-toClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 e-6 e-10 e-11)))))))))))) -(define ProcessDef-TTImp-n--21378-14385-simplePat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) 0) ((10) 0) ((5) (let ((e-13 (vector-ref sc0 4))) (ProcessDef-TTImp-n--21378-14385-simplePat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased e-13)))(else 1))))) -(define ProcessDef-TTImp-n--14771-8752-notN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (Name-Core-C-47C-61_Eq__Name arg-0 e-2))))) -(define ProcessDef-TTImp-n--20440-13559-mkCrash (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (TT-Core-apply 'erased arg-1 (vector 1 arg-1 (vector 1 ) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "idris_crash"))) (vector 1 (vector 10 arg-1 1) (vector 1 (vector 9 arg-1 (vector 6 arg-6)) (vector 0 )))))) -(define ProcessDef-TTImp-n--15777-10558-mkClauseWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (WithClause-TTImp-getNewLHS 'erased arg-15 e-0 arg-16 arg-7 arg-17 arg-18 arg-19 e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-withRHS arg-15 e-0 arg-16 arg-17 arg-18 e-2 arg-19) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-5 e-6))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (WithClause-TTImp-getNewLHS 'erased arg-15 e-3 arg-16 arg-7 arg-17 arg-18 arg-19 e-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-withRHS arg-15 e-3 arg-16 arg-17 arg-18 e-5 arg-19) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--15777-10558-mkClauseWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (+ 1 arg-16) arg-17 arg-18 arg-19 eta-1)) e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (vector 1 e-3 e-8 e-9 e-6 e-10)))))))))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (WithClause-TTImp-getNewLHS 'erased arg-15 e-8 arg-16 arg-7 arg-17 arg-18 arg-19 e-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-8 e-5))))))))))))))) -(define ProcessDef-TTImp-n--20440-13560-matchAny (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (vector 4 e-1 (ProcessDef-TTImp-n--20440-13560-matchAny arg-0 arg-1 arg-2 arg-3 arg-4 'erased e-2) (vector 10 e-1 1)))))(else arg-6))))) -(define ProcessDef-TTImp-n--20440-13561-makeErrorClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 arg-5 arg-6 (ProcessDef-TTImp-n--20440-13560-matchAny arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-7) (ProcessDef-TTImp-n--20440-13559-mkCrash arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Strings-Prelude-C-43C-43 "Unhandled input for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) (Strings-Prelude-C-43C-43 " at " (FC-Core-show_Show__FC arg-1)))))))) -(define ProcessDef-TTImp-n--14771-8753-lookupAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ProcessDef-TTImp-case--14789-8786 arg-0 arg-1 arg-2 arg-3 e-6 e-7 e-3 arg-4 (Name-Core-C-61C-61_Eq__Name arg-4 e-6)))))))))))) -(define ProcessDef-TTImp-n--15777-10557-keepOldEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((0) (vector 0 arg-18 (vector 0 )))(else (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (vector 0 arg-18 (vector 0 )))(else (let ((sc0 arg-18)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-19)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((sc2 arg-20)) (case (vector-ref sc2 0) ((1) (let ((e-14 (vector-ref sc2 1))) (ProcessDef-TTImp-case--16831-10603 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased 'erased e-1 e-2 e-6 e-14 (ProcessDef-TTImp-n--15777-10557-keepOldEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased 'erased e-2 e-6 e-14)))) (else (let ((e-18 (vector-ref sc2 1))) (ProcessDef-TTImp-case--16831-10685 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased e-1 e-2 'erased e-6 e-18 (ProcessDef-TTImp-n--15777-10557-keepOldEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased 'erased e-2 e-6 e-18)))))))) (else (let ((e-10 (vector-ref sc1 1))) (let ((sc2 arg-20)) (case (vector-ref sc2 0) ((1) (let ((e-22 (vector-ref sc2 1))) (ProcessDef-TTImp-case--16831-10767 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased e-1 e-2 'erased e-10 e-22 (ProcessDef-TTImp-n--15777-10557-keepOldEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased 'erased e-2 e-10 e-22)))) (else (let ((e-26 (vector-ref sc2 1))) (ProcessDef-TTImp-case--16831-10849 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-1 e-2 'erased 'erased e-10 e-26 (ProcessDef-TTImp-n--15777-10557-keepOldEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased 'erased e-2 e-10 e-26))))))))))))))))))))) -(define ProcessDef-TTImp-n--20440-13563-getSpec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((7) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (ProcessDef-TTImp-n--20440-13563-getSpec arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))) -(define ProcessDef-TTImp-n--21378-14388-getClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Impossible-TTImp-getImpossibleTerm arg-0 arg-9 arg-4 e-2 eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Generated impossible LHS: " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5))) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (vector 1 (vector 1 (vector 0 (vector 0 ) (vector 0 ) e-5 (vector 10 (TTImp-TTImp-getFC e-2) 0)))))))))))))) (lambda (e) (lambda (eta-1) (vector 1 (vector 0 )))) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 e-5))))))))) -(define ProcessDef-TTImp-n--14098-8159-findLinArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((sc1 e-23)) (case (vector-ref sc1 0) ((5) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((0) (ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-29 e-24))) ((1) (ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-28 e-24)))(else (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((e-7 (vector-ref sc2 3))) (let ((e-8 (vector-ref sc2 4))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((2) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((e-12 (vector-ref sc3 3))) (let ((sc4 arg-9)) (case (vector-ref sc4 0) ((1) (let ((e-14 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 2))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((0) (let ((e-18 (vector-ref sc5 1))) (let ((e-19 (vector-ref sc5 2))) (let ((e-20 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((a (TT-Core-nameAt 'erased arg-6 e-20 'erased))) ((ProcessDef-TTImp-case--14131-8263 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-19 e-5 e-11 e-12 e-10 e-8 e-6 e-20 'erased 'erased e-18 e-15 arg-7 e-9 a (Prelude-C-60_Ord__Nat e-20 arg-3)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-25 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-7) e-14) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc6 1))) (let ((act-26 (((e-8 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-5 (vector 0 ) e-6))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc7 1))) (let ((act-27 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-16 e-15) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc8 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-13 e-17)))))))))))))))))))))))))))))(else (let ((sc4 arg-9)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-25 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc6 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-13)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))(else (let ((sc3 arg-9)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-25 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-10)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))(else (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-5 e-6)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))))(else (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((2) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-9)) (case (vector-ref sc3 0) ((1) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((0) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((e-20 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((a (TT-Core-nameAt 'erased arg-6 e-20 'erased))) ((ProcessDef-TTImp-case--14131-8263 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-19 e-5 e-11 e-12 e-10 e-8 e-6 e-20 'erased 'erased e-18 e-15 arg-7 e-9 a (Prelude-C-60_Ord__Nat e-20 arg-3)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-25 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-7) e-14) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc5 1))) (let ((act-26 (((e-8 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-5 (vector 0 ) e-6))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc6 1))) (let ((act-27 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-16 e-15) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc7 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-13 e-17)))))))))))))))))))))))))))))(else (let ((sc3 arg-9)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-25 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc5 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-13)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))(else (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-25 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-10)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))(else (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-5 e-6)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))))(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((2) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((0) (let ((e-18 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 2))) (let ((e-20 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((a (TT-Core-nameAt 'erased arg-6 e-20 'erased))) ((ProcessDef-TTImp-case--14131-8263 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-19 e-5 e-11 e-12 e-10 e-8 e-6 e-20 'erased 'erased e-18 e-15 arg-7 e-9 a (Prelude-C-60_Ord__Nat e-20 arg-3)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-25 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-7) e-14) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc4 1))) (let ((act-26 (((e-8 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-5 (vector 0 ) e-6))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc5 1))) (let ((act-27 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-16 e-15) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc6 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-13 e-17)))))))))))))))))))))))))))))(else (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-25 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc4 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-13)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))(else (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-25 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-10)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))(else (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-5 e-6)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))) -(define ProcessDef-TTImp-n--19825-13040-dropErased (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-5))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((ProcessDef-TTImp-case--19856-13094 arg-0 arg-1 arg-2 arg-3 e-2 e-3 arg-5 e-5 e-1 _-0 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc4 e-1)) (let ((e-7 (vector-ref sc4 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0)))) (else ((ProcessDef-TTImp-n--19825-13040-dropErased arg-0 arg-1 arg-2 arg-3 e-3 arg-5) eta-0)))))))))))))))))))))) -(define ProcessDef-TTImp-n--14771-8755-combineAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-n--14771-8754-combine arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessDef-TTImp-n--14771-8755-combineAll arg-0 arg-1 arg-2 arg-3 e-5 e-3) eta-0)))))))))))))) -(define ProcessDef-TTImp-n--14771-8754-combine (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (ProcessDef-TTImp-case--14790-8852 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-4 arg-5) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)) (lambda () (Prelude-C-38C-38 (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) arg-4 arg-5))) (lambda () (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) arg-4 arg-5) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))))) -(define ProcessDef-TTImp-n--21397-14445-closeEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (let ((act-24 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 arg-3 (vector 0 ) e-2))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((ProcessDef-TTImp-n--21397-14445-closeEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5) eta-0))))))))(else (lambda (eta-0) (Normalise-Core-quote_Quote__NF (vector 0 ) arg-13 (vector 0 ) arg-14 eta-0)))))))))(else (lambda (eta-0) (Normalise-Core-quote_Quote__NF (vector 0 ) arg-13 (vector 0 ) arg-14 eta-0))))))) -(define ProcessDef-TTImp-n--21378-14387-checkImpossible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (Unelab-TTImp-unelabNoPatvars (vector 0 ) arg-9 (vector 0 ) arg-12 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (UnifyState-Core-handleUnify 'erased arg-9 arg-7 (lambda (eta-0) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Checking for impossibility: " (TTImp-TTImp-show_Show__RawImp e-5))) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (Context-Core-isUnboundImplicits arg-9 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Context-Core-setUnboundImplicits arg-9 0 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (BindImplicits-TTImp-bindNames arg-9 1 e-5 eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((sc6 e-10)) (let ((e-3 (vector-ref sc6 2))) (let ((act-30 (Context-Core-setUnboundImplicits arg-9 e-8 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 ((Elab-TTImp-elabTerm (vector 0 ) arg-9 arg-8 arg-7 arg-10 (vector 1 arg-11) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 arg-3 (vector 1 ) e-3) (vector 0 )) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((sc9 e-12)) (let ((e-13 (vector-ref sc9 1))) (let ((act-32 (let ((act-32 (unbox arg-9))) (vector 1 act-32)))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-33 (Normalise-Core-normaliseHoles (vector 0 ) e-14 (vector 0 ) e-13 eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-15 (vector-ref sc11 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-34 ((ProcessDef-TTImp-hasEmptyPat (vector 0 ) arg-9 e-14 (vector 0 ) e-15) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-16 (vector-ref sc12 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc12 1))) (let ((sc13 e-16)) (cond ((equal? sc13 0) (let ((act-35 (let ((act-35 (set-box! arg-9 e-6))) (vector 1 act-35)))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-17 (vector-ref sc14 1))) (vector 0 e-17))) (else (vector 1 (vector 0 ))))))) (else (let ((act-35 (Context-Core-clearDefs e-6 eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-17 (vector-ref sc14 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc14 1))) (let ((act-36 (let ((act-36 ((Normalise-Core-nf (vector 0 ) e-17 (vector 0 ) e-15) eta-0))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-18 (vector-ref sc15 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc15 1))) ((ProcessDef-TTImp-n--21397-14445-closeEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-12 arg-11 arg-10 e-17 e-18) eta-0)))))))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-18 (vector-ref sc15 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc15 1))) (let ((act-37 (let ((act-37 (set-box! arg-9 e-6))) (vector 1 act-37)))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-19 (vector-ref sc16 1))) (vector 0 e-19))) (else (vector 1 (vector 1 e-18))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-0) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((ProcessDef-TTImp-recoverableErr arg-9 e-6 err) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((ProcessDef-TTImp-case--21397-14866 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-12 arg-11 arg-10 e-5 err e-6 e-7 (Prelude-not e-7)) eta-0))))))))))))) ext-0)))))))) -(define ProcessDef-TTImp-n--21378-14389-checkCoverage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (ProcessDef-TTImp-n--21378-14388-getClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-0)) arg-13) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((covcs (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-5))) (let ((act-25 ((CaseBuilder-Core-getPMDef arg-9 arg-3 (vector 0 arg-12) (vector 9 arg-10) arg-11 covcs) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-26 (let ((act-26 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-8 ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Working from " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-2 e-9))) ext-0)))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (let ((_-0 (vector 0 e-2 (vector 0 e-8 e-7)))) ((ProcessDef-TTImp-case--22095-15185 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-13 arg-12 arg-11 arg-10 e-5 covcs e-7 e-2 e-8 _-0 e-9 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (ProcessDef-TTImp-n--21378-14386-catchAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-0))) covcs)) ext-0)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-28 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda (eta-0) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) eta-1 eta-2))) e-10) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-29 ((Context-Core-getFullName arg-9 (vector 9 arg-10)) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (vector 1 (Strings-Prelude-C-43C-43 "Initially missing in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-12) (Strings-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-14) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-14)) e-11))))))))))))))))) ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-29 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ProcessDef-TTImp-n--21378-14387-checkImpossible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 eta-0 eta-1))) e-10) ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-30 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-checkMatched arg-9 covcs eta-0 eta-1))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-12)) ext-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (let ((miss (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-13))) (let ((_-0 (vector 0 e-2 (vector 0 e-8 e-7)))) ((ProcessDef-TTImp-case--22095-15296 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-13 arg-12 arg-11 arg-10 e-5 covcs e-7 e-2 e-8 _-0 e-9 e-10 e-11 e-12 e-13 miss (List-Data-isNil 'erased miss)) ext-0))))))))))))))))))))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-n--21378-14386-catchAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 3))) ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (ProcessDef-TTImp-n--21378-14385-simplePat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased eta-0))) (TT-Core-getArgs 'erased e-2)))))) -(define ProcessDef-TTImp-n--20440-13562-addErrorCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 e-4 e-5 e-6 e-7) (vector 1 (ProcessDef-TTImp-n--20440-13561-makeErrorClause arg-0 arg-1 arg-2 arg-3 arg-4 e-4 e-5 e-6) (vector 0 ))))(else (vector 1 e-2 (ProcessDef-TTImp-n--20440-13562-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))(else (vector 1 e-2 (ProcessDef-TTImp-n--20440-13562-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))))) -(define ProcessDef-TTImp-n--14098-8158-accessible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-4)) (cond ((equal? sc1 0) arg-7) (else (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))(else arg-7))))) +(define ProcessDef-TTImp-with--19845-13073 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) +(define ProcessDef-TTImp-with--19825-13066 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (ProcessDef-TTImp-with--19845-13073 arg-4 arg-3 (ProcessDef-TTImp-nameListEq arg-3 arg-4) arg-0)))) (else (vector 0 )))))) +(define ProcessDef-TTImp-with--13949-8122 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen: names don't match in pattern type") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (ProcessDef-TTImp-extendEnv 'erased (vector 1 arg-0 arg-4) (vector 1 (vector 1 arg-12 arg-10 arg-11) arg-17) (vector 1 arg-16) (TTImp-TTImp-weaken_Weaken__NestedNames arg-0 arg-4 arg-15) arg-13 arg-14)))))))) +(define ProcessDef-TTImp-with--13949-8049 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen: names don't match in pattern type") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (ProcessDef-TTImp-extendEnv 'erased (vector 1 arg-0 arg-4) (vector 1 (vector 3 arg-11 arg-10 arg-9) arg-16) (vector 1 arg-15) (TTImp-TTImp-weaken_Weaken__NestedNames arg-0 arg-4 arg-14) arg-12 arg-13)))))))) +(define ProcessDef-TTImp-case--22996-16178 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30) (let ((sc0 arg-30)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 (vector 1 arg-10 e-20) e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-case--22996-16098 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-12)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (Context-Core-defaultPI) arg-20 arg-21 arg-21 arg-19) e-18 e-19 e-20)))))))))))))))))))))))) +(define ProcessDef-TTImp-case--22816-15818 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-warnUnreachable arg-9 eta-1)) e-7) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-25 (Context-Core-logC arg-9 (+ 1 (+ 1 0)) (lambda (eta-1) (let ((act-25 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Case tree for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-2 e-8))))))))))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (Context-Core-addDef arg-9 (vector 9 arg-17) (let ((sc4 arg-12)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-26 (vector-ref sc4 3))) (let ((e-25 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-24 (vector-ref sc4 6))) (let ((e-23 (vector-ref sc4 7))) (let ((e-22 (vector-ref sc4 8))) (let ((e-21 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (vector 0 e-0 e-1 e-26 e-25 e-4 e-24 e-23 e-22 e-21 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (Context-Core-defaultPI) e-2 e-6 e-6 arg-19) e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-27 (let ((sc5 (TT-Core-C-61C-61_Eq__Visibility (let ((sc6 arg-12)) (let ((e-21 (vector-ref sc6 10))) e-21)) (vector 2 )))) (cond ((equal? sc5 0) (((let ((rmetas (CaseTree-Core-getMetas 'erased e-6))) (lambda () (lambda (eta-1) (let ((act-27 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) ((NameMap-Data-keys 'erased) rmetas)))))) eta-1))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-addToSave arg-9 eta-2 eta-3))) ((NameMap-Data-keys 'erased) rmetas)) eta-1))))))))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (let ((sc6 (Prelude-C-38C-38 (Name-Core-isUserName arg-10) (lambda () (TT-Core-C-47C-61_Eq__Visibility (let ((sc7 arg-12)) (let ((e-22 (vector-ref sc7 10))) e-22)) (vector 0 )))))) (cond ((equal? sc6 0) (((let ((tymetas (TT-Core-getMetas 'erased (let ((sc7 arg-12)) (let ((e-28 (vector-ref sc7 3))) e-28))))) (lambda () (Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-9 eta-1 eta-2))) ((NameMap-Data-keys 'erased) tymetas))))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-29 (Context-Core-addToSave arg-9 arg-10 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (unbox arg-9))) (vector 1 act-30)))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-31 (let ((act-31 (set-box! arg-9 (let ((sc9 e-13)) (let ((e-0 (vector-ref sc9 1))) (let ((e-1 (vector-ref sc9 2))) (let ((e-36 (vector-ref sc9 3))) (let ((e-35 (vector-ref sc9 4))) (let ((e-4 (vector-ref sc9 5))) (let ((e-34 (vector-ref sc9 6))) (let ((e-33 (vector-ref sc9 7))) (let ((e-32 (vector-ref sc9 8))) (let ((e-31 (vector-ref sc9 9))) (let ((e-30 (vector-ref sc9 10))) (let ((e-29 (vector-ref sc9 11))) (let ((e-28 (vector-ref sc9 12))) (let ((e-27 (vector-ref sc9 13))) (let ((e-26 (vector-ref sc9 14))) (let ((e-14 (vector-ref sc9 15))) (let ((e-15 (vector-ref sc9 16))) (let ((e-16 (vector-ref sc9 17))) (let ((e-17 (vector-ref sc9 18))) (let ((e-18 (vector-ref sc9 19))) (let ((e-19 (vector-ref sc9 20))) (let ((e-20 (vector-ref sc9 21))) (let ((e-21 (vector-ref sc9 22))) (let ((e-22 (vector-ref sc9 23))) (let ((e-23 (vector-ref sc9 24))) (let ((e-24 (vector-ref sc9 25))) (let ((e-25 (vector-ref sc9 26))) (vector 0 e-0 e-1 e-36 e-35 e-4 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-14 e-15 e-16 e-17 e-18 e-19 (vector 1 arg-10 e-20) e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-31)))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 (Context-Core-toResolvedNames 'erased arg-9 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-33 (ProcessDef-TTImp-calcRefs arg-9 1 e-15 (vector 9 arg-17) eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-34 (let ((sc12 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-438 arg-439)))) (vector 1 ) arg-6)))) (cond ((equal? sc12 0) (let ((act-34 (Termination-Core-calculateSizeChange arg-9 arg-3 arg-10 eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc13 1))) (let ((act-35 (Context-Core-setSizeChange arg-9 arg-3 arg-10 e-17 eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (Termination-Core-checkIfGuarded arg-9 arg-3 arg-10 eta-0))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((act-35 (let ((act-35 (unbox arg-8))) (vector 1 act-35)))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc13 1))) (let ((act-36 (ProcessDef-TTImp-n--21448-14458-checkCoverage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-17 arg-14 arg-16 arg-18 eta-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc14 1))) (let ((act-37 (Context-Core-setCovering arg-9 arg-3 arg-10 e-19 eta-0))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-38 (let ((act-38 (set-box! arg-8 e-18))) (vector 1 act-38)))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((sc17 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-438 arg-439)))) (vector 1 ) arg-6)))) (cond ((equal? sc17 0) (ProcessDef-TTImp-compileRunTime arg-9 arg-8 arg-7 arg-3 e-15 eta-0)) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-case--22816-15709 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) +(define ProcessDef-TTImp-case--22773-15663 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((ty (let ((sc1 arg-12)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((hashit (TT-Core-C-61C-61_Eq__Visibility (let ((sc1 arg-12)) (let ((e-9 (vector-ref sc1 10))) e-9)) (vector 2 )))) (let ((mult (ProcessDef-TTImp-case--22816-15709 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ty hashit (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (let ((sc1 arg-12)) (let ((e-7 (vector-ref sc1 8))) e-7)))))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolveName arg-9 arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-checkClause arg-0 arg-9 arg-8 arg-7 mult (let ((sc2 arg-12)) (let ((e-9 (vector-ref sc2 10))) e-9)) hashit e-5 arg-6 arg-5 arg-4 eta-1)) arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((pats (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-toPats eta-1)) (Either-Data-rights 'erased 'erased e-6)))) (let ((act-26 ((CaseBuilder-Core-getPMDef arg-9 arg-3 (vector 0 mult) arg-10 ty (Either-Data-rights 'erased 'erased e-6)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-warnUnreachable arg-9 eta-1)) e-8) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-28 (Context-Core-logC arg-9 (+ 1 (+ 1 0)) (lambda (eta-1) (let ((act-28 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-9 eta-1))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (Strings-Prelude-C-43C-43 "Case tree for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-2 e-11))))))))))) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-29 (Context-Core-addDef arg-9 (vector 9 e-5) (let ((sc8 arg-12)) (let ((e-0 (vector-ref sc8 1))) (let ((e-1 (vector-ref sc8 2))) (let ((e-29 (vector-ref sc8 3))) (let ((e-28 (vector-ref sc8 4))) (let ((e-4 (vector-ref sc8 5))) (let ((e-27 (vector-ref sc8 6))) (let ((e-26 (vector-ref sc8 7))) (let ((e-25 (vector-ref sc8 8))) (let ((e-24 (vector-ref sc8 9))) (let ((e-23 (vector-ref sc8 10))) (let ((e-22 (vector-ref sc8 11))) (let ((e-21 (vector-ref sc8 12))) (let ((e-12 (vector-ref sc8 13))) (let ((e-13 (vector-ref sc8 14))) (let ((e-14 (vector-ref sc8 15))) (let ((e-15 (vector-ref sc8 16))) (let ((e-16 (vector-ref sc8 17))) (let ((e-18 (vector-ref sc8 19))) (let ((e-19 (vector-ref sc8 20))) (let ((e-20 (vector-ref sc8 21))) (vector 0 e-0 e-1 e-29 e-28 e-4 e-27 e-26 e-25 e-24 e-23 e-22 e-21 e-12 e-13 e-14 e-15 e-16 (vector 1 (Context-Core-defaultPI) e-2 e-9 e-9 pats) e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-30 (let ((sc9 (TT-Core-C-61C-61_Eq__Visibility (let ((sc10 arg-12)) (let ((e-24 (vector-ref sc10 10))) e-24)) (vector 2 )))) (cond ((equal? sc9 0) (((let ((rmetas (CaseTree-Core-getMetas 'erased e-9))) (lambda () (lambda (eta-1) (let ((act-30 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) ((NameMap-Data-keys 'erased) rmetas)))))) eta-1))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-addToSave arg-9 eta-2 eta-3))) ((NameMap-Data-keys 'erased) rmetas)) eta-1))))))))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-31 (let ((sc10 (Prelude-C-38C-38 (Name-Core-isUserName arg-10) (lambda () (TT-Core-C-47C-61_Eq__Visibility (let ((sc11 arg-12)) (let ((e-25 (vector-ref sc11 10))) e-25)) (vector 0 )))))) (cond ((equal? sc10 0) (((let ((tymetas (TT-Core-getMetas 'erased (let ((sc11 arg-12)) (let ((e-31 (vector-ref sc11 3))) e-31))))) (lambda () (Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-9 eta-1 eta-2))) ((NameMap-Data-keys 'erased) tymetas))))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-32 (Context-Core-addToSave arg-9 arg-10 eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-33 (let ((act-33 (unbox arg-9))) (vector 1 act-33)))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-34 (let ((act-34 (set-box! arg-9 (let ((sc13 e-16)) (let ((e-0 (vector-ref sc13 1))) (let ((e-1 (vector-ref sc13 2))) (let ((e-39 (vector-ref sc13 3))) (let ((e-38 (vector-ref sc13 4))) (let ((e-4 (vector-ref sc13 5))) (let ((e-37 (vector-ref sc13 6))) (let ((e-36 (vector-ref sc13 7))) (let ((e-35 (vector-ref sc13 8))) (let ((e-34 (vector-ref sc13 9))) (let ((e-33 (vector-ref sc13 10))) (let ((e-32 (vector-ref sc13 11))) (let ((e-31 (vector-ref sc13 12))) (let ((e-30 (vector-ref sc13 13))) (let ((e-29 (vector-ref sc13 14))) (let ((e-28 (vector-ref sc13 15))) (let ((e-27 (vector-ref sc13 16))) (let ((e-26 (vector-ref sc13 17))) (let ((e-17 (vector-ref sc13 18))) (let ((e-18 (vector-ref sc13 19))) (let ((e-19 (vector-ref sc13 20))) (let ((e-20 (vector-ref sc13 21))) (let ((e-21 (vector-ref sc13 22))) (let ((e-22 (vector-ref sc13 23))) (let ((e-23 (vector-ref sc13 24))) (let ((e-24 (vector-ref sc13 25))) (let ((e-25 (vector-ref sc13 26))) (vector 0 e-0 e-1 e-39 e-38 e-4 e-37 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-17 e-18 e-19 (vector 1 arg-10 e-20) e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-34)))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-35 (Context-Core-toResolvedNames 'erased arg-9 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")) eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc14 1))) (let ((act-36 (ProcessDef-TTImp-calcRefs arg-9 1 e-18 (vector 9 e-5) eta-0))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-37 (let ((sc16 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-438 arg-439)))) (vector 1 ) arg-6)))) (cond ((equal? sc16 0) (let ((act-37 (Termination-Core-calculateSizeChange arg-9 arg-3 arg-10 eta-0))) (let ((sc17 act-37)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc17 1))) (let ((act-38 (Context-Core-setSizeChange arg-9 arg-3 arg-10 e-20 eta-0))) (let ((sc18 act-38)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (Termination-Core-checkIfGuarded arg-9 arg-3 arg-10 eta-0))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((act-38 (let ((act-38 (unbox arg-8))) (vector 1 act-38)))) (let ((sc17 act-38)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc17 1))) (let ((act-39 (ProcessDef-TTImp-n--21448-14458-checkCoverage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5 ty mult e-6 eta-0))) (let ((sc18 act-39)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc18 1))) (let ((act-40 (Context-Core-setCovering arg-9 arg-3 arg-10 e-22 eta-0))) (let ((sc19 act-40)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (vector 0 e-4))) (else (let ((act-41 (let ((act-41 (set-box! arg-8 e-21))) (vector 1 act-41)))) (let ((sc20 act-41)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (let ((sc21 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-438 arg-439)))) (vector 1 ) arg-6)))) (cond ((equal? sc21 0) (ProcessDef-TTImp-compileRunTime arg-9 arg-8 arg-7 arg-3 e-18 eta-0)) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-3 arg-10) eta-0))))))) +(define ProcessDef-TTImp-case--21448-15633 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (ProcessDef-TTImp-case--22773-15663 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 37 arg-3 arg-10) eta-0))))))) +(define ProcessDef-TTImp-case--22471-15445 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Covering arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Covering arg-6292 arg-6293)))) (vector 2 arg-26) eta-0))))))) +(define ProcessDef-TTImp-case--22179-15381 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Coverage-Core-getNonCoveringRefs arg-9 arg-3 (vector 9 arg-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 )))(else (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Covering arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Covering arg-6292 arg-6293)))) (vector 2 e-5) eta-0))))))))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-25)))))))) +(define ProcessDef-TTImp-case--22179-15270 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Catch all case in " (Prelude-show_Show__Int arg-13))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (Coverage-Core-getMissing arg-17 arg-9 arg-3 (vector 9 arg-13) arg-18 eta-0))))))) +(define ProcessDef-TTImp-case--21469-15113 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Working from " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-2 e-5))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ProcessDef-TTImp-case--22179-15270 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-7 e-2 e-6 _-0 e-5 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-1) (ProcessDef-TTImp-n--21448-14455-catchAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-1))) arg-15)) eta-0)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda (eta-1) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) eta-2 eta-3))) e-8) eta-1))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 ((Context-Core-getFullName arg-9 (vector 9 arg-13)) eta-1))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (Strings-Prelude-C-43C-43 "Initially missing in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-10) (Strings-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-17) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-17)) e-9))))))))))))))))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessDef-TTImp-n--21448-14456-checkImpossible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-13 arg-11 eta-1 eta-2))) e-8) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Coverage-Core-checkMatched arg-9 arg-15 eta-1 eta-2))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-10)) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((miss (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-11))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ProcessDef-TTImp-case--22179-15381 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-7 e-2 e-6 _-0 e-5 e-8 e-9 e-10 e-11 miss (List-Data-isNil 'erased miss)) eta-0))))))))))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-case--21467-14935 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 1 arg-10)))))))) +(define ProcessDef-TTImp-case--21713-14775 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-9 arg-14))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-26) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessDef-TTImp-n--21467-14514-closeEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (set-box! arg-9 arg-14))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 1 e-6)))))))))))))))))))))) +(define ProcessDef-TTImp-case--21626-14697 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((ProcessDef-TTImp-hasEmptyPat (vector 0 ) arg-9 e-5 (vector 0 ) e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (let ((act-27 (let ((act-27 (set-box! arg-9 arg-14))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (vector 0 ))))))) (else (let ((act-27 (Context-Core-clearDefs arg-14 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-nf (vector 0 ) e-8 (vector 0 ) e-6) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) ((ProcessDef-TTImp-n--21467-14514-closeEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-8 e-9) eta-0)))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (let ((act-29 (set-box! arg-9 arg-14))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (vector 1 (vector 1 e-9))))))))))))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-case--21467-14626 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-9 arg-16 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 ((Elab-TTImp-elabTerm (vector 0 ) arg-9 arg-8 arg-7 arg-12 (vector 1 arg-11) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 arg-3 (vector 1 ) e-3) (vector 0 )) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (unbox arg-9))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-27 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-28 ((ProcessDef-TTImp-hasEmptyPat (vector 0 ) arg-9 e-8 (vector 0 ) e-9) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (cond ((equal? sc7 0) (let ((act-29 (let ((act-29 (set-box! arg-9 arg-14))) (vector 1 act-29)))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (vector 1 (vector 0 ))))))) (else (let ((act-29 (Context-Core-clearDefs arg-14 eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-30 (let ((act-30 ((Normalise-Core-nf (vector 0 ) e-11 (vector 0 ) e-9) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc9 1))) ((ProcessDef-TTImp-n--21467-14514-closeEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-11 e-12) eta-0)))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-31 (let ((act-31 (set-box! arg-9 arg-14))) (vector 1 act-31)))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (vector 1 (vector 1 e-12)))))))))))))))))))))))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-case--21310-14395 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 (vector 0 ) e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-case--21032-14169 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 arg-14 arg-10 arg-13 arg-20 arg-12) e-18 e-19 e-20)))))))))))))))))))))))) +(define ProcessDef-TTImp-case--20937-14083 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-4 arg-0 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-5 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 arg-14 arg-10 arg-13 arg-21 arg-12) e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "WAT") eta-0))))))) +(define ProcessDef-TTImp-case--20787-14007 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Covering arg-9) (Strings-Prelude-C-43C-43 ":\u000aRuntime tree for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc2 arg-7)) (let ((e-1 (vector-ref sc2 2))) e-1))) (Strings-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-2 e-6)))))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ProcessDef-TTImp-case--20937-14083 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 e-7 e-2 e-6 _-0 e-5 (ProcessDef-TTImp-nameListEq arg-10 e-2)) eta-0)))))))))))))))) +(define ProcessDef-TTImp-case--20787-13920 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (ProcessDef-TTImp-n--20510-13631-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-17))(else arg-17))))) +(define ProcessDef-TTImp-case--20751-13885 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((ty (let ((sc1 arg-7)) (let ((e-23 (vector-ref sc1 3))) e-23)))) (lambda () (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--20510-13633-toErased arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc1 arg-7)) (let ((e-25 (vector-ref sc1 1))) e-25)) (ProcessDef-TTImp-n--20510-13632-getSpec arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc1 arg-7)) (let ((e-11 (vector-ref sc1 12))) e-11))) eta-1)) e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((clauses_init (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--20510-13634-toClause arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc2 arg-7)) (let ((e-26 (vector-ref sc2 1))) e-26)) eta-1)) e-5))) (let ((clauses (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (ProcessDef-TTImp-n--20510-13631-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 clauses_init))(else clauses_init))))) (let ((act-25 ((CaseBuilder-Core-getPMDef arg-4 (let ((sc2 arg-7)) (let ((e-26 (vector-ref sc2 1))) e-26)) (vector 1 ) arg-0 ty clauses) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-26 (Context-Core-log arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Covering arg-9) (Strings-Prelude-C-43C-43 ":\u000aRuntime tree for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc5 arg-7)) (let ((e-30 (vector-ref sc5 2))) e-30))) (Strings-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-8 e-10)))))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (let ((_-0 (vector 0 e-8 (vector 0 e-10 e-9)))) ((ProcessDef-TTImp-case--20937-14083 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 e-3 e-4 e-2 e-0 ty e-5 clauses_init clauses e-9 e-8 e-10 _-0 e-11 (ProcessDef-TTImp-nameListEq e-1 e-8)) eta-0))))))))))))))))))))))))))))))))))(else (lambda () (lambda (eta-0) (vector 1 (vector 0 ))))))))) +(define ProcessDef-TTImp-case--20510-13857 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((cov (let ((sc1 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((e-2 (vector-ref sc1 2))) e-2)))) (let ((sc1 (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 8))) e-7)))))) (cond ((equal? sc1 0) ((let ((_-0 (vector 1 e-1))) (ProcessDef-TTImp-case--20751-13885 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 cov (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessDef-TTImp-case--20157-13524 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (vector 1 arg-17) e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))))) +(define ProcessDef-TTImp-case--20157-13486 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (vector 1 arg-17) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))))) +(define ProcessDef-TTImp-case--20157-13350 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-9) (else arg-10))))) +(define ProcessDef-TTImp-case--20069-13322 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((tree (let ((sc1 arg-2)) (cond ((equal? sc1 0) arg-9) (else arg-10))))) (let ((metas (CaseTree-Core-getMetas 'erased tree))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-3 eta-1 eta-2))) ((NameMap-Data-keys 'erased) metas)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((refs_all (CaseTree-Core-addRefs 'erased arg-1 metas tree))) (let ((act-25 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (ProcessDef-TTImp-n--19895-13109-dropErased arg-0 arg-1 arg-2 arg-3 ((NameMap-Data-keys 'erased) refs_all) refs_all)) (lambda () (lambda (eta-1) (vector 1 refs_all)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (lambda (eta-1) (Context-Core-addDef arg-3 arg-0 (let ((sc3 arg-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (let ((e-21 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 e-11 e-12 (vector 1 e-6) e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-1))) (lambda () (lambda (eta-1) (Context-Core-addDef arg-3 arg-0 (let ((sc3 arg-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (let ((e-21 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 e-11 (vector 1 e-6) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-1)))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessDef-TTImp-calcRefs arg-3 arg-2 arg-1 eta-1 eta-2))) ((NameMap-Data-keys 'erased) e-6)) eta-0))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessDef-TTImp-case--20069-13274 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (let ((e-13 (vector-ref sc1 14))) e-13))) (else (let ((sc1 arg-5)) (let ((e-12 (vector-ref sc1 13))) e-12))))))) +(define ProcessDef-TTImp-case--20048-13256 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((refs (let ((sc1 arg-2)) (cond ((equal? sc1 0) (let ((sc2 arg-5)) (let ((e-13 (vector-ref sc2 14))) e-13))) (else (let ((sc2 arg-5)) (let ((e-12 (vector-ref sc2 13))) e-12))))))) (let ((sc1 refs)) (case (vector-ref sc1 0) ((0) (let ((tree (let ((sc2 arg-2)) (cond ((equal? sc2 0) e-3) (else e-2))))) (let ((metas (CaseTree-Core-getMetas 'erased tree))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-3 eta-1 eta-2))) ((NameMap-Data-keys 'erased) metas)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((refs_all (CaseTree-Core-addRefs 'erased arg-1 metas tree))) (let ((act-25 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (ProcessDef-TTImp-n--19895-13109-dropErased arg-0 arg-1 arg-2 arg-3 ((NameMap-Data-keys 'erased) refs_all) refs_all)) (lambda () (lambda (eta-1) (vector 1 refs_all)))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (lambda (eta-1) (Context-Core-addDef arg-3 arg-0 (let ((sc4 arg-5)) (let ((e-27 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-25 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((e-23 (vector-ref sc4 5))) (let ((e-22 (vector-ref sc4 6))) (let ((e-21 (vector-ref sc4 7))) (let ((e-7 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (vector 0 e-27 e-26 e-25 e-24 e-23 e-22 e-21 e-7 e-8 e-9 e-10 e-11 e-12 (vector 1 e-6) e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-1))) (lambda () (lambda (eta-1) (Context-Core-addDef arg-3 arg-0 (let ((sc4 arg-5)) (let ((e-27 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-25 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((e-23 (vector-ref sc4 5))) (let ((e-22 (vector-ref sc4 6))) (let ((e-21 (vector-ref sc4 7))) (let ((e-7 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (vector 0 e-27 e-26 e-25 e-24 e-23 e-22 e-21 e-7 e-8 e-9 e-10 e-11 (vector 1 e-6) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-1)))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessDef-TTImp-calcRefs arg-3 arg-2 arg-1 eta-1 eta-2))) ((NameMap-Data-keys 'erased) e-6)) eta-0))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessDef-TTImp-case--19895-13241 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (ProcessDef-TTImp-case--20048-13256 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessDef-TTImp-case--19926-13163 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (ProcessDef-TTImp-n--19895-13109-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 arg-6)) (else (ProcessDef-TTImp-n--19895-13109-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 (NameMap-Data-delete 'erased arg-4 arg-6))))))) +(define ProcessDef-TTImp-case--19901-13136 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (ProcessDef-TTImp-case--19926-13163 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (else (ProcessDef-TTImp-n--19895-13109-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 arg-6)))))) +(define ProcessDef-TTImp-case--17408-12952 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 2 )))))) +(define ProcessDef-TTImp-case--18493-12442 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49 arg-50 arg-51 arg-52 arg-53 arg-54 arg-55 arg-56 arg-57 arg-58 arg-59 arg-60 arg-61 arg-62 arg-63) (vector 1 arg-63 arg-7))) +(define ProcessDef-TTImp-case--18493-12202 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49 arg-50 arg-51 arg-52 arg-53 arg-54 arg-55 arg-56 arg-57) (let ((sc0 arg-57)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) +(define ProcessDef-TTImp-case--18041-11890 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49 arg-50) (let ((sc0 arg-50)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((wargNames (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) e-5) (vector 1 (vector 0 ) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) arg-45))))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-15 (+ 1 (+ 1 (+ 1 0))) (lambda () "With function type") e-10 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-log arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Argument names " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2)))) x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) d x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2)))) d-1 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1))))) d-0 x-0)))) d x)))) wargNames))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (UnifyState-Core-genWithName arg-15 arg-13 arg-9 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 (Context-Core-addDef arg-15 e-11 (Context-Core-newDef arg-4 e-11 (ProcessDef-TTImp-case--18493-12202 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49 e-5 e-9 e-10 wargNames e-7 e-8 e-11 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-12)) arg-5 e-10 arg-11 (vector 0 )) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((rhs_in (TTImp-TTImp-apply (vector 0 arg-4 e-11) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 0 arg-4 eta-1)) e-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Prelude-maybe 'erased 'erased (lambda () arg-2) (lambda () (lambda (pn) (vector 0 arg-4 (Builtin-snd 'erased 'erased pn)))) eta-1)) wargNames))))) (let ((act-28 (Context-Core-log arg-15 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Applying to with argument " (TTImp-TTImp-show_Show__RawImp rhs_in))) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 ((Context-Core-getFullName arg-15 (vector 9 arg-9)) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc8 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 59 arg-4 e-14 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-5 arg-17 arg-15 arg-14 arg-13 arg-9 arg-24 arg-8 arg-20 arg-19 arg-6 arg-18 rhs_in (Normalise-Core-gnf arg-17 arg-19 arg-22) eta-1))) eta-0)))))))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc8 1))) (let ((act-30 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--15847-10627-mkClauseWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (+ 1 0) e-11 wargNames arg-16 eta-1)) arg-0) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc9 1))) (let ((act-31 (Context-Core-log arg-15 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "With clauses: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-15))) eta-0))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-32 (ProcessDef-TTImp-applyEnv arg-5 arg-15 arg-6 e-11 eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc11 1))) (let ((nestC-39C-39 (vector 1 e-17 arg-7))) (let ((wdef (vector 2 arg-4 e-11 e-15))) (let ((act-33 ((Check-Elab-TTImp-processDecl arg-5 arg-15 arg-14 arg-13 (vector 0 ) nestC-39C-39 arg-6 wdef) eta-0))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (vector 1 (vector 1 (vector 0 arg-17 arg-19 arg-21 e-14)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Impossible happened: With abstraction failure #4") eta-0))))))) +(define ProcessDef-TTImp-case--18041-11691 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47) (let ((sc0 arg-47)) (cond ((equal? sc0 0) (lambda (eta-0) (Context-Core-clearDefs arg-32 eta-0))) (else (lambda (eta-0) (vector 1 arg-32))))))) +(define ProcessDef-TTImp-case--17912-11522 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41) (let ((sc0 arg-41)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((wargn (vector 2 "warg" 0))) (let ((scenv (vector 1 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) arg-40) e-1))) (let ((bnr (Utils-Elab-TTImp-bindNotReq 'erased arg-17 arg-4 0 arg-19 arg-36 (vector 0 ) arg-22))) (let ((notreqns (Builtin-fst 'erased 'erased bnr))) (let ((notreqty (Builtin-snd 'erased 'erased bnr))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-case--18041-11691 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 e-1 wargn scenv bnr notreqns notreqty (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (TTImp-TTImp-C-61C-61_Eq__WithFlag arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TTImp-TTImp-C-47C-61_Eq__WithFlag arg-438 arg-439)))) (vector 0 ) arg-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 1 wargn arg-35) e-5 scenv (TT-Core-weaken_Weaken__Term wargn arg-35 arg-39)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-nf (vector 1 wargn arg-35) e-5 scenv (TT-Core-weaken_Weaken__Term wargn arg-35 notreqty)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Normalise-Core-replace (vector 1 wargn arg-35) e-5 scenv e-6 (vector 0 arg-4 (vector 1 1) 0) e-7 eta-0))))))))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((bNotReq (vector 3 arg-4 wargn (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) arg-40) e-6))) ((ProcessDef-TTImp-case--18041-11890 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 e-1 wargn scenv bnr notreqns notreqty e-5 e-6 bNotReq (Utils-Elab-TTImp-bindReq 'erased arg-17 arg-4 arg-19 arg-36 (vector 0 ) bNotReq)) eta-0)))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Impossible happened: With abstraction failure #3") eta-0))))))) +(define ProcessDef-TTImp-case--17786-11433 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40) (let ((sc0 arg-40)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (ProcessDef-TTImp-case--17912-11522 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 e-1 (Env-Core-shrinkEnv 'erased 'erased arg-19 arg-36)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Impossible happened: With abstraction failure #2") eta-0))))))) +(define ProcessDef-TTImp-case--17647-11346 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39) (let ((sc0 arg-39)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (ProcessDef-TTImp-case--17786-11433 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 e-1 (TT-Core-shrinkTerm 'erased 'erased arg-34 arg-36)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Impossible happened: With abstraction failure #1") eta-0))))))) +(define ProcessDef-TTImp-case--17511-11240 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35) (let ((sc0 arg-35)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-17 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value type") arg-34 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-log arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Using vars " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-2))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessDef-TTImp-case--17647-11346 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 e-2 e-3 e-5 e-6 (TT-Core-shrinkTerm 'erased 'erased arg-33 e-3)) eta-0))))))))))))))))) +(define ProcessDef-TTImp-case--17408-11121 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Metadata-Core-clearHoleLHS arg-14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTerm arg-17 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value") e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-logTerm arg-17 arg-15 (+ 1 (+ 1 (+ 1 0))) (lambda () "Required type") arg-22 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (unbox arg-15))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Normalise-Core-normaliseHoles arg-17 e-9 arg-19 e-2 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Normalise-Core-normaliseHoles arg-17 e-9 arg-19 e-8 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((_-0 (vector 0 e-2 e-3))) ((ProcessDef-TTImp-case--17511-11240 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 e-2 e-3 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (ProcessDef-TTImp-n--15847-10626-keepOldEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased 'erased arg-17 arg-18 (let ((sc8 (Env-Core-findSubEnv arg-17 arg-19 e-10))) (let ((e-4 (vector-ref sc8 2))) e-4)))) eta-0))))))))))))))))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-case--15847-11039 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((wmode (let ((_-0 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--17408-12952 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-2 e-6 e-10 e-14 e-18 e-22 e-23 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-12))))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-15 (vector 9 arg-9)) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc6 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 59 arg-4 e-5 eta-1))) (Elab-TTImp-elabTermSub arg-5 e-6 arg-15 arg-14 arg-13 arg-9 wmode arg-8 e-18 e-14 arg-6 e-10 arg-2 (vector 0 ))) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc6 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (let ((sc7 e-5)) (let ((e-8 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((act-25 (Metadata-Core-clearHoleLHS arg-14 eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (Context-Core-logTerm e-6 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value") e-8 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-27 (Context-Core-logTerm e-6 arg-15 (+ 1 (+ 1 (+ 1 0))) (lambda () "Required type") e-23 eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-29 (let ((act-29 (unbox arg-15))) (vector 1 act-29)))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-30 (Normalise-Core-normaliseHoles e-6 e-17 e-14 e-8 eta-0))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-20 (vector-ref sc13 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc13 1))) (let ((act-31 (Normalise-Core-normaliseHoles e-6 e-17 e-14 e-16 eta-0))) (let ((sc14 act-31)) (case (vector-ref sc14 0) ((0) (let ((e-21 (vector-ref sc14 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc14 1))) (let ((_-1 (vector 0 e-8 e-4))) ((ProcessDef-TTImp-case--17511-11240 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-2 e-6 e-10 e-14 e-18 e-22 e-23 _-0 wmode e-8 e-4 _-1 e-9 e-12 e-13 e-16 e-17 e-20 e-21 (ProcessDef-TTImp-n--15847-10626-keepOldEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased 'erased e-6 e-10 (let ((sc15 (Env-Core-findSubEnv e-6 e-14 e-20))) (let ((e-24 (vector-ref sc15 2))) e-24)))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-case--16901-10918 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-16 e-2) (vector 2 e-3))))))) +(define ProcessDef-TTImp-case--16901-10836 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-17 e-2) (vector 2 e-3))))))) +(define ProcessDef-TTImp-case--16901-10754 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-17 e-2) (vector 2 e-3))))))) +(define ProcessDef-TTImp-case--16901-10672 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (vector 1 e-3))))))) +(define ProcessDef-TTImp-case--16446-10534 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 2 )))))) +(define ProcessDef-TTImp-case--16446-10394 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-25)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (Metadata-Core-addLHS arg-15 arg-13 arg-12 (TTImp-TTImp-getFC arg-1) (Env-Core-length 'erased 'erased arg-4) arg-17 arg-19 eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessDef-TTImp-case--15847-10228 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((rhsMode (let ((_-0 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--16446-10534 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-2 e-6 e-10 e-14 e-18 e-22 e-23 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-10))))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking RHS " (TTImp-TTImp-show_Show__RawImp arg-0))) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-25 (Normalise-Core-logEnv e-6 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" e-14 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-13 (vector 9 arg-7)) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc8 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-6 (lambda (eta-1) (vector 59 arg-2 e-9 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-3 e-6 arg-13 arg-12 arg-11 arg-7 rhsMode arg-6 e-18 e-14 arg-4 e-10 arg-0 (Normalise-Core-gnf e-6 e-14 e-23) eta-1))) eta-0)))))))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 (Metadata-Core-clearHoleLHS arg-12 eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-28 (Context-Core-logTerm e-6 arg-13 (+ 1 (+ 1 (+ 1 0))) (lambda () "RHS term") e-9 eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-29 (let ((sc11 arg-8)) (cond ((equal? sc11 0) (let ((act-29 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-22 eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-9 eta-0)))))) (else (vector 1 (vector 0 ))))))) (let ((sc11 act-29)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-30 (let ((sc12 e-9)) (case (vector-ref sc12 0) ((2) (Metadata-Core-addLHS e-6 arg-13 arg-12 (TTImp-TTImp-getFC arg-1) (Env-Core-length 'erased 'erased arg-4) e-14 e-22 eta-0))(else (vector 1 (vector 0 ))))))) (let ((sc12 act-30)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (vector 1 (vector 1 (vector 0 e-6 e-14 e-22 e-9)))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-case--16238-10137 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 arg-13)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 1 arg-14)) eta-0))))))) +(define ProcessDef-TTImp-case--15847-10050 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((6) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-14 eta-0)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((ProcessDef-TTImp-impossibleErrOK arg-12 e-5 arg-14) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (vector 1 (vector 0 arg-13))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 1 arg-14)) eta-0)))))))))))))))))))) +(define ProcessDef-TTImp-case--15994-9927 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 arg-13)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 0 arg-26)) eta-0))))))) +(define ProcessDef-TTImp-case--15898-9855 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles arg-0 e-5 arg-3 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((ProcessDef-TTImp-hasEmptyPat arg-0 arg-12 e-5 arg-3 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (vector 1 (vector 0 arg-13))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 0 e-6)) eta-0)))))))))))))))))))))))) +(define ProcessDef-TTImp-case--15847-9769 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-12 arg-14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking " (TTImp-TTImp-show_Show__RawImp e-3))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (Normalise-Core-logEnv arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-3 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-27 ((Elab-TTImp-elabTerm arg-0 arg-12 arg-11 arg-10 arg-6 (vector 1 arg-9) arg-5 arg-4 arg-3 (vector 15 arg-2 (vector 1 ) e-3) (vector 0 )) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 (unbox arg-12))) (vector 1 act-28)))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-29 (Normalise-Core-normaliseHoles arg-0 e-10 arg-3 e-9 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-30 ((ProcessDef-TTImp-hasEmptyPat arg-0 arg-12 e-10 arg-3 e-11) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (let ((sc9 e-12)) (cond ((equal? sc9 0) (vector 1 (vector 0 arg-13))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 0 e-11)) eta-0))))))))))))))))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-case--15203-9438 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Checked LHS term") e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-12))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((lhsenv (Env-Core-letToLam 'erased arg-3))) (let ((act-27 (Normalise-Core-normaliseHoles arg-2 e-7 lhsenv e-2 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Normalise-Core-normaliseHoles arg-2 e-7 arg-3 e-6 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((ProcessDef-TTImp-findLinear arg-2 arg-12 0 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-8) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Checked LHS term after normalise") e-8 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Linearity of names in " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-6) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x)))) e-10))))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 ((ProcessDef-TTImp-combineLinear arg-1 e-10) eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((lhstm_lin (ProcessDef-TTImp-setLinear 'erased e-13 e-8))) (let ((lhsty_lin (ProcessDef-TTImp-setLinear 'erased e-13 e-9))) (let ((act-33 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 0))) (lambda () "LHS term") lhstm_lin eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-34 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "LHS type") lhsty_lin eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-35 (Metadata-Core-setHoleLHS arg-11 (Env-Core-bindEnv arg-2 arg-1 arg-3 lhstm_lin) eta-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((act-36 ((ProcessDef-TTImp-extendEnv 'erased arg-2 arg-3 (vector 0 ) arg-4 lhstm_lin lhsty_lin) eta-0))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc13 1))) (vector 1 (vector 0 arg-21 e-17)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-case--15203-9353 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-18))) (else (TTImp-TTImp-implicitsAs arg-13 arg-2 arg-18)))))) +(define ProcessDef-TTImp-case--15203-9211 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (vector 3 )) (else (vector 1 arg-8)))))) +(define ProcessDef-TTImp-case--15081-9141 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-12 arg-15 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (let ((sc2 arg-9)) (cond ((equal? sc2 0) (vector 1 e-3)) (else ((TTImp-TTImp-implicitsAs arg-13 arg-2 e-3) eta-0)))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-12 (vector 9 arg-6)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking LHS of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp e-6))))) eta-0)))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-27 (Normalise-Core-logEnv arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-3 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((lhsMode (let ((sc5 arg-9)) (cond ((equal? sc5 0) (vector 3 )) (else (vector 1 arg-8)))))) (let ((act-28 (let ((act-28 ((Context-Core-getFullName arg-12 (vector 9 arg-6)) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-5 (lambda (eta-1) (vector 58 arg-1 e-9 eta-1))) (Elab-TTImp-elabTerm arg-2 arg-12 arg-11 arg-10 arg-6 lhsMode arg-5 arg-4 arg-3 (vector 15 arg-1 (vector 1 ) e-6) (vector 0 ))) eta-0)))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (let ((e-10 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((act-29 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Checked LHS term") e-10 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((act-30 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-31 (let ((act-31 (unbox arg-12))) (vector 1 act-31)))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((lhsenv (Env-Core-letToLam 'erased arg-3))) (let ((act-32 (Normalise-Core-normaliseHoles arg-2 e-13 lhsenv e-10 eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-33 (Normalise-Core-normaliseHoles arg-2 e-13 arg-3 e-12 eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-15 (vector-ref sc11 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-34 ((ProcessDef-TTImp-findLinear arg-2 arg-12 0 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-14) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-16 (vector-ref sc12 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-35 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Checked LHS term after normalise") e-14 eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-17 (vector-ref sc13 1))) (vector 0 e-17))) (else (let ((act-36 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Linearity of names in " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-6) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x)))) e-16))))) eta-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-18 (vector-ref sc14 1))) (vector 0 e-18))) (else (let ((act-37 ((ProcessDef-TTImp-combineLinear arg-1 e-16) eta-0))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-19 (vector-ref sc15 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc15 1))) (let ((lhstm_lin (ProcessDef-TTImp-setLinear 'erased e-19 e-14))) (let ((lhsty_lin (ProcessDef-TTImp-setLinear 'erased e-19 e-15))) (let ((act-38 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 0))) (lambda () "LHS term") lhstm_lin eta-0))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-20 (vector-ref sc16 1))) (vector 0 e-20))) (else (let ((act-39 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "LHS type") lhsty_lin eta-0))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-21 (vector-ref sc17 1))) (vector 0 e-21))) (else (let ((act-40 (Metadata-Core-setHoleLHS arg-11 (Env-Core-bindEnv arg-2 arg-1 arg-3 lhstm_lin) eta-0))) (let ((sc18 act-40)) (case (vector-ref sc18 0) ((0) (let ((e-22 (vector-ref sc18 1))) (vector 0 e-22))) (else (let ((act-41 ((ProcessDef-TTImp-extendEnv 'erased arg-2 arg-3 (vector 0 ) arg-4 lhstm_lin lhsty_lin) eta-0))) (let ((sc19 act-41)) (case (vector-ref sc19 0) ((0) (let ((e-23 (vector-ref sc19 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc19 1))) (vector 1 (vector 0 e-6 e-23))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-case--15081-9082 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-0))) (else (TTImp-TTImp-lhsInCurrentNS 'erased arg-12 arg-4 arg-0)))))) +(define ProcessDef-TTImp-case--14841-8976 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-combineLinear arg-3 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 0 arg-0 arg-1) e-5)))))))))(else (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-n--14841-8824-combineAll arg-0 arg-1 arg-2 arg-3 arg-1 arg-4) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((ProcessDef-TTImp-combineLinear arg-3 (List-Data-filter 'erased (lambda (eta-1) (ProcessDef-TTImp-n--14841-8821-notN arg-0 arg-1 arg-2 arg-3 eta-1)) arg-2)) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 0 arg-0 e-5) e-6)))))))))))))))))) +(define ProcessDef-TTImp-case--14860-8921 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-3 (+ 1 (+ 1 0)) arg-0) eta-0))) (else (lambda (eta-0) (vector 1 (Preorder-Algebra-lub 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-256 arg-257))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-259) (lambda (arg-261) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-259 arg-261))))))) arg-5 arg-4)))))))) +(define ProcessDef-TTImp-case--14859-8855 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 1 arg-5 (ProcessDef-TTImp-n--14841-8822-lookupAll arg-0 arg-1 arg-2 arg-3 arg-7 arg-6))) (else (ProcessDef-TTImp-n--14841-8822-lookupAll arg-0 arg-1 arg-2 arg-3 arg-7 arg-6)))))) +(define ProcessDef-TTImp-case--14700-8763 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 3 arg-5 arg-3 (vector 5 e-1 arg-1) (ProcessDef-TTImp-setLinear 'erased arg-6 arg-4))))(else (vector 3 arg-5 arg-3 (vector 5 arg-2 arg-1) (ProcessDef-TTImp-setLinear 'erased arg-6 arg-4))))))) +(define ProcessDef-TTImp-case--14700-8705 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 3 arg-6 arg-4 (vector 3 e-1 arg-2 arg-1) (ProcessDef-TTImp-setLinear 'erased arg-7 arg-5))))(else (vector 3 arg-6 arg-4 (vector 3 arg-3 arg-2 arg-1) (ProcessDef-TTImp-setLinear 'erased arg-7 arg-5))))))) +(define ProcessDef-TTImp-case--14541-8612 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-10 (vector 0 ) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessDef-TTImp-n--14168-8228-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0 (ProcessDef-TTImp-n--14168-8227-accessible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-2) e-5 arg-9) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessDef-TTImp-case--14168-8548 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc2 1))) (let ((act-25 (Context-Core-lookupTyExact e-7 (let ((sc3 e-8)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc3 1))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-8 (vector 0 ) e-1) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) ((ProcessDef-TTImp-n--14168-8228-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0 (ProcessDef-TTImp-n--14168-8227-accessible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6 arg-2) e-10 e-3) eta-0)))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessDef-TTImp-case--14201-8332 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (((arg-12 arg-20) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 arg-17 (vector 0 ) arg-13))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ProcessDef-TTImp-n--14168-8228-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-19 e-5 arg-18) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 arg-21 (ZeroOneOmega-Algebra-rigMult arg-11 arg-19)) e-6)))))))))))))) (else (lambda (eta-0) (let ((act-24 (((arg-12 arg-20) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 arg-17 (vector 0 ) arg-13))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessDef-TTImp-n--14168-8228-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-19 e-5 arg-18) eta-0)))))))))))) +(define ProcessDef-TTImp-case--14200-8234 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-6) (else (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) +(define ProcessDef-TTImp-case--13551-7762 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 1))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-anyM 'erased (lambda (eta-1) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-1)) (List-Data-zip 'erased 'erased arg-7 arg-9)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Prelude-not e-5))))))))))))) +(define ProcessDef-TTImp-case--13551-7674 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 1))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-anyM 'erased (lambda (eta-1) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-1)) (List-Data-zip 'erased 'erased arg-3 arg-7)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Prelude-not e-5))))))))))))) +(define ProcessDef-TTImp-case--13203-7439 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-7 arg-9))))))) +(define ProcessDef-TTImp-case--13203-7357 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-3 arg-7))) (else (lambda (eta-0) (vector 1 1))))))) +(define ProcessDef-TTImp-case--12915-7187 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-7 arg-9))))))) +(define ProcessDef-TTImp-case--12915-7105 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-5 arg-8))))))) +(define ProcessDef-TTImp-n--20510-13633-toErased (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-linearCheck e-2 arg-4 arg-2 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 e-6 e-10 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Transform-Core-applyTransforms 'erased arg-4 e-6 e-11) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 ((PartialEval-TTImp-applySpecialise e-2 arg-4 arg-3 arg-2 e-6 arg-6 e-8) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 (LinearCheck-Core-linearCheck e-2 arg-4 arg-2 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 e-6 e-9 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-5 e-12)))))))))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-n--20510-13634-toClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 e-6 e-10 e-11)))))))))))) +(define ProcessDef-TTImp-n--21448-14454-simplePat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) 0) ((10) 0) ((5) (let ((e-13 (vector-ref sc0 4))) (ProcessDef-TTImp-n--21448-14454-simplePat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased e-13)))(else 1))))) +(define ProcessDef-TTImp-n--14841-8821-notN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (Name-Core-C-47C-61_Eq__Name arg-0 e-2))))) +(define ProcessDef-TTImp-n--20510-13628-mkCrash (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (TT-Core-apply 'erased arg-1 (vector 1 arg-1 (vector 1 ) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "idris_crash"))) (vector 1 (vector 10 arg-1 1) (vector 1 (vector 9 arg-1 (vector 6 arg-6)) (vector 0 )))))) +(define ProcessDef-TTImp-n--15847-10627-mkClauseWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (WithClause-TTImp-getNewLHS 'erased arg-15 e-0 arg-16 arg-7 arg-17 arg-18 arg-19 e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-withRHS arg-15 e-0 arg-16 arg-17 arg-18 e-2 arg-19) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-5 e-6))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (WithClause-TTImp-getNewLHS 'erased arg-15 e-3 arg-16 arg-7 arg-17 arg-18 arg-19 e-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-withRHS arg-15 e-3 arg-16 arg-17 arg-18 e-5 arg-19) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--15847-10627-mkClauseWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (+ 1 arg-16) arg-17 arg-18 arg-19 eta-1)) e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (vector 1 e-3 e-8 e-9 e-6 e-10)))))))))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (WithClause-TTImp-getNewLHS 'erased arg-15 e-8 arg-16 arg-7 arg-17 arg-18 arg-19 e-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-8 e-5))))))))))))))) +(define ProcessDef-TTImp-n--20510-13629-matchAny (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (vector 4 e-1 (ProcessDef-TTImp-n--20510-13629-matchAny arg-0 arg-1 arg-2 arg-3 arg-4 'erased e-2) (vector 10 e-1 1)))))(else arg-6))))) +(define ProcessDef-TTImp-n--20510-13630-makeErrorClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 arg-5 arg-6 (ProcessDef-TTImp-n--20510-13629-matchAny arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-7) (ProcessDef-TTImp-n--20510-13628-mkCrash arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Strings-Prelude-C-43C-43 "Unhandled input for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) (Strings-Prelude-C-43C-43 " at " (FC-Core-show_Show__FC arg-1)))))))) +(define ProcessDef-TTImp-n--14841-8822-lookupAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ProcessDef-TTImp-case--14859-8855 arg-0 arg-1 arg-2 arg-3 e-6 e-7 e-3 arg-4 (Name-Core-C-61C-61_Eq__Name arg-4 e-6)))))))))))) +(define ProcessDef-TTImp-n--15847-10626-keepOldEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((0) (vector 0 arg-18 (vector 0 )))(else (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (vector 0 arg-18 (vector 0 )))(else (let ((sc0 arg-18)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-19)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((sc2 arg-20)) (case (vector-ref sc2 0) ((1) (let ((e-14 (vector-ref sc2 1))) (ProcessDef-TTImp-case--16901-10672 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased 'erased e-1 e-2 e-6 e-14 (ProcessDef-TTImp-n--15847-10626-keepOldEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased 'erased e-2 e-6 e-14)))) (else (let ((e-18 (vector-ref sc2 1))) (ProcessDef-TTImp-case--16901-10754 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased e-1 e-2 'erased e-6 e-18 (ProcessDef-TTImp-n--15847-10626-keepOldEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased 'erased e-2 e-6 e-18)))))))) (else (let ((e-10 (vector-ref sc1 1))) (let ((sc2 arg-20)) (case (vector-ref sc2 0) ((1) (let ((e-22 (vector-ref sc2 1))) (ProcessDef-TTImp-case--16901-10836 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased e-1 e-2 'erased e-10 e-22 (ProcessDef-TTImp-n--15847-10626-keepOldEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased 'erased e-2 e-10 e-22)))) (else (let ((e-26 (vector-ref sc2 1))) (ProcessDef-TTImp-case--16901-10918 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-1 e-2 'erased 'erased e-10 e-26 (ProcessDef-TTImp-n--15847-10626-keepOldEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased 'erased e-2 e-10 e-26))))))))))))))))))))) +(define ProcessDef-TTImp-n--20510-13632-getSpec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((7) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (ProcessDef-TTImp-n--20510-13632-getSpec arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))) +(define ProcessDef-TTImp-n--21448-14457-getClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Impossible-TTImp-getImpossibleTerm arg-0 arg-9 arg-4 arg-5 e-2 eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Generated impossible LHS: " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5))) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (vector 1 (vector 1 (vector 0 (vector 0 ) (vector 0 ) e-5 (vector 10 (TTImp-TTImp-getFC e-2) 0)))))))))))))) (lambda (e) (lambda (eta-1) (let ((act-24 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Error in getClause " (Core-Core-show_Show__Error e))) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))))) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 e-5))))))))) +(define ProcessDef-TTImp-n--14168-8228-findLinArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((sc1 e-23)) (case (vector-ref sc1 0) ((5) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((0) (ProcessDef-TTImp-n--14168-8228-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-29 e-24))) ((1) (ProcessDef-TTImp-n--14168-8228-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-28 e-24)))(else (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((e-7 (vector-ref sc2 3))) (let ((e-8 (vector-ref sc2 4))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((2) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((e-12 (vector-ref sc3 3))) (let ((sc4 arg-9)) (case (vector-ref sc4 0) ((1) (let ((e-14 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 2))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((0) (let ((e-18 (vector-ref sc5 1))) (let ((e-19 (vector-ref sc5 2))) (let ((e-20 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((a (TT-Core-nameAt 'erased arg-6 e-20 'erased))) ((ProcessDef-TTImp-case--14201-8332 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-19 e-5 e-11 e-12 e-10 e-8 e-6 e-20 'erased 'erased e-18 e-15 arg-7 e-9 a (Prelude-C-60_Ord__Nat e-20 arg-3)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-25 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-7) e-14) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc6 1))) (let ((act-26 (((e-8 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-5 (vector 0 ) e-6))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc7 1))) (let ((act-27 ((ProcessDef-TTImp-n--14168-8228-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-16 e-15) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc8 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-13 e-17)))))))))))))))))))))))))))))(else (let ((sc4 arg-9)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-25 ((ProcessDef-TTImp-n--14168-8228-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc6 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-13)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))(else (let ((sc3 arg-9)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-25 ((ProcessDef-TTImp-n--14168-8228-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-10)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))(else (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((ProcessDef-TTImp-n--14168-8228-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-5 e-6)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))))(else (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((2) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-9)) (case (vector-ref sc3 0) ((1) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((0) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((e-20 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((a (TT-Core-nameAt 'erased arg-6 e-20 'erased))) ((ProcessDef-TTImp-case--14201-8332 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-19 e-5 e-11 e-12 e-10 e-8 e-6 e-20 'erased 'erased e-18 e-15 arg-7 e-9 a (Prelude-C-60_Ord__Nat e-20 arg-3)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-25 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-7) e-14) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc5 1))) (let ((act-26 (((e-8 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-5 (vector 0 ) e-6))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc6 1))) (let ((act-27 ((ProcessDef-TTImp-n--14168-8228-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-16 e-15) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc7 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-13 e-17)))))))))))))))))))))))))))))(else (let ((sc3 arg-9)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-25 ((ProcessDef-TTImp-n--14168-8228-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc5 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-13)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))(else (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-25 ((ProcessDef-TTImp-n--14168-8228-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-10)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))(else (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((ProcessDef-TTImp-n--14168-8228-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-5 e-6)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))))(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((2) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((0) (let ((e-18 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 2))) (let ((e-20 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((a (TT-Core-nameAt 'erased arg-6 e-20 'erased))) ((ProcessDef-TTImp-case--14201-8332 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-19 e-5 e-11 e-12 e-10 e-8 e-6 e-20 'erased 'erased e-18 e-15 arg-7 e-9 a (Prelude-C-60_Ord__Nat e-20 arg-3)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-25 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-7) e-14) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc4 1))) (let ((act-26 (((e-8 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-5 (vector 0 ) e-6))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc5 1))) (let ((act-27 ((ProcessDef-TTImp-n--14168-8228-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-16 e-15) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc6 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-13 e-17)))))))))))))))))))))))))))))(else (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-25 ((ProcessDef-TTImp-n--14168-8228-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc4 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-13)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))(else (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-25 ((ProcessDef-TTImp-n--14168-8228-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-10)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))(else (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ProcessDef-TTImp-n--14168-8228-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-5 e-6)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))) +(define ProcessDef-TTImp-n--19895-13109-dropErased (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-5))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((ProcessDef-TTImp-case--19926-13163 arg-0 arg-1 arg-2 arg-3 e-2 e-3 arg-5 e-5 e-1 _-0 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc4 e-1)) (let ((e-7 (vector-ref sc4 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0)))) (else ((ProcessDef-TTImp-n--19895-13109-dropErased arg-0 arg-1 arg-2 arg-3 e-3 arg-5) eta-0)))))))))))))))))))))) +(define ProcessDef-TTImp-n--14841-8824-combineAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-n--14841-8823-combine arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessDef-TTImp-n--14841-8824-combineAll arg-0 arg-1 arg-2 arg-3 e-5 e-3) eta-0)))))))))))))) +(define ProcessDef-TTImp-n--14841-8823-combine (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (ProcessDef-TTImp-case--14860-8921 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-4 arg-5) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)) (lambda () (Prelude-C-38C-38 (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-256 arg-257))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-259) (lambda (arg-261) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-259 arg-261))))))) arg-4 arg-5))) (lambda () (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-256 arg-257))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-259) (lambda (arg-261) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-259 arg-261))))))) arg-4 arg-5) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))))) +(define ProcessDef-TTImp-n--21467-14514-closeEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (let ((act-24 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 arg-3 (vector 0 ) e-2))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((ProcessDef-TTImp-n--21467-14514-closeEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5) eta-0))))))))(else (lambda (eta-0) (Normalise-Core-quote_Quote__NF (vector 0 ) arg-13 (vector 0 ) arg-14 eta-0)))))))))(else (lambda (eta-0) (Normalise-Core-quote_Quote__NF (vector 0 ) arg-13 (vector 0 ) arg-14 eta-0))))))) +(define ProcessDef-TTImp-n--21448-14456-checkImpossible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (Unelab-TTImp-unelabNoPatvars (vector 0 ) arg-9 (vector 0 ) arg-12 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (UnifyState-Core-handleUnify 'erased arg-9 arg-7 (lambda (eta-0) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Checking for impossibility: " (TTImp-TTImp-show_Show__RawImp e-5))) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (Context-Core-isUnboundImplicits arg-9 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Context-Core-setUnboundImplicits arg-9 0 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (BindImplicits-TTImp-bindNames arg-9 1 e-5 eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((sc6 e-10)) (let ((e-3 (vector-ref sc6 2))) (let ((act-30 (Context-Core-setUnboundImplicits arg-9 e-8 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 ((Elab-TTImp-elabTerm (vector 0 ) arg-9 arg-8 arg-7 arg-10 (vector 1 arg-11) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 arg-3 (vector 1 ) e-3) (vector 0 )) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((sc9 e-12)) (let ((e-13 (vector-ref sc9 1))) (let ((act-32 (let ((act-32 (unbox arg-9))) (vector 1 act-32)))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-33 (Normalise-Core-normaliseHoles (vector 0 ) e-14 (vector 0 ) e-13 eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-15 (vector-ref sc11 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-34 ((ProcessDef-TTImp-hasEmptyPat (vector 0 ) arg-9 e-14 (vector 0 ) e-15) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-16 (vector-ref sc12 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc12 1))) (let ((sc13 e-16)) (cond ((equal? sc13 0) (let ((act-35 (let ((act-35 (set-box! arg-9 e-6))) (vector 1 act-35)))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-17 (vector-ref sc14 1))) (vector 0 e-17))) (else (vector 1 (vector 0 ))))))) (else (let ((act-35 (Context-Core-clearDefs e-6 eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-17 (vector-ref sc14 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc14 1))) (let ((act-36 (let ((act-36 ((Normalise-Core-nf (vector 0 ) e-17 (vector 0 ) e-15) eta-0))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-18 (vector-ref sc15 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc15 1))) ((ProcessDef-TTImp-n--21467-14514-closeEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-12 arg-11 arg-10 e-17 e-18) eta-0)))))))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-18 (vector-ref sc15 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc15 1))) (let ((act-37 (let ((act-37 (set-box! arg-9 e-6))) (vector 1 act-37)))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-19 (vector-ref sc16 1))) (vector 0 e-19))) (else (vector 1 (vector 1 e-18))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-0) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((ProcessDef-TTImp-recoverableErr arg-9 e-6 err) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((ProcessDef-TTImp-case--21467-14935 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-12 arg-11 arg-10 e-5 err e-6 e-7 (Prelude-not e-7)) eta-0))))))))))))) ext-0)))))))) +(define ProcessDef-TTImp-n--21448-14458-checkCoverage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (ProcessDef-TTImp-n--21448-14457-getClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-0)) arg-13) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((covcs (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-5))) (let ((act-25 ((CaseBuilder-Core-getPMDef arg-9 arg-3 (vector 0 arg-12) (vector 9 arg-10) arg-11 covcs) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-26 (let ((act-26 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-8 ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Working from " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-2 e-9))) ext-0)))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (let ((_-0 (vector 0 e-2 (vector 0 e-8 e-7)))) ((ProcessDef-TTImp-case--22179-15270 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-13 arg-12 arg-11 arg-10 e-5 covcs e-7 e-2 e-8 _-0 e-9 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (ProcessDef-TTImp-n--21448-14455-catchAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-0))) covcs)) ext-0)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-28 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda (eta-0) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) eta-1 eta-2))) e-10) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-29 ((Context-Core-getFullName arg-9 (vector 9 arg-10)) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (vector 1 (Strings-Prelude-C-43C-43 "Initially missing in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-12) (Strings-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-14) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-14)) e-11))))))))))))))))) ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-29 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ProcessDef-TTImp-n--21448-14456-checkImpossible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 eta-0 eta-1))) e-10) ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-30 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-checkMatched arg-9 covcs eta-0 eta-1))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-12)) ext-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (let ((miss (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-13))) (let ((_-0 (vector 0 e-2 (vector 0 e-8 e-7)))) ((ProcessDef-TTImp-case--22179-15381 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-13 arg-12 arg-11 arg-10 e-5 covcs e-7 e-2 e-8 _-0 e-9 e-10 e-11 e-12 e-13 miss (List-Data-isNil 'erased miss)) ext-0))))))))))))))))))))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-n--21448-14455-catchAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 3))) ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (ProcessDef-TTImp-n--21448-14454-simplePat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased eta-0))) ((TT-Core-getArgs 'erased) e-2)))))) +(define ProcessDef-TTImp-n--20510-13631-addErrorCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 e-4 e-5 e-6 e-7) (vector 1 (ProcessDef-TTImp-n--20510-13630-makeErrorClause arg-0 arg-1 arg-2 arg-3 arg-4 e-4 e-5 e-6) (vector 0 ))))(else (vector 1 e-2 (ProcessDef-TTImp-n--20510-13631-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))(else (vector 1 e-2 (ProcessDef-TTImp-n--20510-13631-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))))) +(define ProcessDef-TTImp-n--14168-8227-accessible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-4)) (cond ((equal? sc1 0) arg-7) (else (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))(else arg-7))))) (define ProcessDef-TTImp-warnUnreachable (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (Context-Core-recordWarning arg-0 (vector 0 e-0 (TT-Core-getLoc 'erased e-2) e-1 e-2) eta-0)))))))) (define ProcessDef-TTImp-toPats (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (vector 0 e-0 (vector 0 e-1 (vector 0 e-2 e-3)))))))))) -(define ProcessDef-TTImp-setLinear (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((3) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (ProcessDef-TTImp-case--14630-8636 'erased e-8 e-7 e-6 e-2 e-4 e-1 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-2 arg-1)))))) ((5) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (ProcessDef-TTImp-case--14630-8694 'erased e-11 e-10 e-2 e-4 e-1 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-2 arg-1)))))(else arg-2))))))))(else arg-2))))) +(define ProcessDef-TTImp-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--14700-8705 'erased e-8 e-7 e-6 e-2 e-4 e-1 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-2 arg-1)))))) ((5) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (ProcessDef-TTImp-case--14700-8763 'erased e-11 e-10 e-2 e-4 e-1 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-2 arg-1)))))(else arg-2))))))))(else arg-2))))) (define ProcessDef-TTImp-recoverableErr (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf e-0 arg-1 e-2 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf e-0 arg-1 e-2 e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessDef-TTImp-recoverable e-0 arg-1 e-5 e-6) eta-0))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf e-5 arg-1 e-7 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf e-5 arg-1 e-7 e-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc2 1))) ((ProcessDef-TTImp-recoverable e-5 arg-1 e-10 e-11) eta-0))))))))))))))))) ((44) (let ((e-13 (vector-ref sc0 4))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))) ((4) (lambda (eta-0) (vector 1 0))) ((21) (let ((e-21 (vector-ref sc0 1))) (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-recoverableErr arg-0 arg-1 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-21)))) ((5) (let ((e-27 (vector-ref sc0 6))) (ProcessDef-TTImp-recoverableErr arg-0 arg-1 e-27)))(else (lambda (eta-0) (vector 1 1))))))) -(define ProcessDef-TTImp-recoverable (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-22 (vector-ref sc1 3))) (let ((e-23 (vector-ref sc1 4))) (let ((e-24 (vector-ref sc1 5))) (ProcessDef-TTImp-case--13481-7605 arg-0 e-20 e-1 e-5 e-4 e-3 e-2 e-24 e-23 e-22 e-21 arg-1 (Name-Core-C-47C-61_Eq__Name e-2 e-21))))))))(else (lambda (eta-0) (vector 1 0))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (ProcessDef-TTImp-case--13481-7693 arg-0 e-26 e-27 e-29 e-7 e-8 e-10 e-11 e-9 e-30 e-28 arg-1 (Prelude-C-47C-61_Eq__Int e-9 e-28))))))))(else (lambda (eta-0) (vector 1 0))))))))))) ((1) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 e-14)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-36 (vector-ref sc2 2))) (let ((sc3 e-36)) (case (vector-ref sc3 0) ((1) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))) ((8) (let ((e-18 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-43 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-18 e-43))))) ((2) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) -(define ProcessDef-TTImp-processDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 arg-8) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Context-Core-lookupCtxtExact e-5 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((ProcessDef-TTImp-case--22689-15578 arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-1 _-0 (let ((sc4 e-1)) (let ((e-17 (vector-ref sc4 18))) e-17))) ext-0)))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 37 arg-7 e-5) ext-0))))))))))))))))))))) -(define ProcessDef-TTImp-nameListEq (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 0 )))(else (vector 0 ))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ProcessDef-TTImp-with--19755-12997 e-2 e-6 (Name-Core-nameEq e-2 e-6) e-3 e-7))))(else (vector 0 )))))))(else (vector 0 )))))) -(define ProcessDef-TTImp-mkRunTime (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-4 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Making run time definition for " (Name-Core-show_Show__Name e-5))) ext-0)))))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Context-Core-lookupCtxtExact arg-4 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((cov (let ((sc4 (let ((sc5 e-1)) (let ((e-10 (vector-ref sc5 11))) e-10)))) (let ((e-2 (vector-ref sc4 2))) e-2)))) (let ((sc4 (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (let ((sc5 e-1)) (let ((e-21 (vector-ref sc5 8))) e-21)))))) (cond ((equal? sc4 0) (((let ((_-0 (vector 1 e-1))) (ProcessDef-TTImp-case--20681-13816 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-1 _-0 cov (let ((sc5 e-1)) (let ((e-17 (vector-ref sc5 18))) e-17))))) ext-0)) (else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 )))))))))))))))))))))) -(define ProcessDef-TTImp-mismatchNF (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((e-28 (vector-ref sc1 4))) (let ((e-29 (vector-ref sc1 5))) (ProcessDef-TTImp-case--12845-7036 arg-0 e-25 e-28 e-1 e-4 e-5 e-3 e-2 e-29 e-27 e-26 arg-1 (Name-Core-C-47C-61_Eq__Name e-2 e-26))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (let ((e-35 (vector-ref sc1 5))) (ProcessDef-TTImp-case--12845-7118 arg-0 e-31 e-32 e-34 e-7 e-8 e-10 e-11 e-9 e-35 e-33 arg-1 (Prelude-C-47C-61_Eq__Int e-9 e-33))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-38 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-38)))))(else (lambda (eta-0) (vector 1 1))))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((5) (let ((e-42 (vector-ref sc1 3))) (ProcessDef-TTImp-mismatchNF arg-0 arg-1 e-18 e-42)))(else (lambda (eta-0) (vector 1 1))))))) ((6) (let ((e-23 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((6) (let ((e-47 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-1 e-23) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-1 e-47) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((ProcessDef-TTImp-mismatchNF arg-0 arg-1 e-5 e-6) eta-0))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) +(define ProcessDef-TTImp-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--13551-7674 arg-0 e-20 e-1 e-5 e-4 e-3 e-2 e-24 e-23 e-22 e-21 arg-1 (Name-Core-C-47C-61_Eq__Name e-2 e-21))))))))(else (lambda (eta-0) (vector 1 0))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (ProcessDef-TTImp-case--13551-7762 arg-0 e-26 e-27 e-29 e-7 e-8 e-10 e-11 e-9 e-30 e-28 arg-1 (Prelude-C-47C-61_Eq__Int e-9 e-28))))))))(else (lambda (eta-0) (vector 1 0))))))))))) ((1) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 e-14)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-36 (vector-ref sc2 2))) (let ((sc3 e-36)) (case (vector-ref sc3 0) ((1) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))) ((8) (let ((e-18 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-43 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-18 e-43))))) ((2) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) +(define ProcessDef-TTImp-processDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 arg-8) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Context-Core-lookupCtxtExact e-5 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((ProcessDef-TTImp-case--22773-15663 arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-1 _-0 (let ((sc4 e-1)) (let ((e-17 (vector-ref sc4 18))) e-17))) ext-0)))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 37 arg-7 e-5) ext-0))))))))))))))))))))) +(define ProcessDef-TTImp-nameListEq (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 0 )))(else (vector 0 ))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ProcessDef-TTImp-with--19825-13066 e-2 e-6 (Name-Core-nameEq e-2 e-6) e-3 e-7))))(else (vector 0 )))))))(else (vector 0 )))))) +(define ProcessDef-TTImp-mkRunTime (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) arg-4 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Making run time definition for " (Name-Core-show_Show__Name e-5))) ext-0)))))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Context-Core-lookupCtxtExact arg-4 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((cov (let ((sc4 (let ((sc5 e-1)) (let ((e-10 (vector-ref sc5 11))) e-10)))) (let ((e-2 (vector-ref sc4 2))) e-2)))) (let ((sc4 (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (let ((sc5 e-1)) (let ((e-21 (vector-ref sc5 8))) e-21)))))) (cond ((equal? sc4 0) (((let ((_-0 (vector 1 e-1))) (ProcessDef-TTImp-case--20751-13885 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-1 _-0 cov (let ((sc5 e-1)) (let ((e-17 (vector-ref sc5 18))) e-17))))) ext-0)) (else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 )))))))))))))))))))))) +(define ProcessDef-TTImp-mismatchNF (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((e-28 (vector-ref sc1 4))) (let ((e-29 (vector-ref sc1 5))) (ProcessDef-TTImp-case--12915-7105 arg-0 e-25 e-28 e-1 e-4 e-5 e-3 e-2 e-29 e-27 e-26 arg-1 (Name-Core-C-47C-61_Eq__Name e-2 e-26))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (let ((e-35 (vector-ref sc1 5))) (ProcessDef-TTImp-case--12915-7187 arg-0 e-31 e-32 e-34 e-7 e-8 e-10 e-11 e-9 e-35 e-33 arg-1 (Prelude-C-47C-61_Eq__Int e-9 e-33))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-38 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-38)))))(else (lambda (eta-0) (vector 1 1))))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((5) (let ((e-42 (vector-ref sc1 3))) (ProcessDef-TTImp-mismatchNF arg-0 arg-1 e-18 e-42)))(else (lambda (eta-0) (vector 1 1))))))) ((6) (let ((e-23 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((6) (let ((e-47 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-1 e-23) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-1 e-47) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((ProcessDef-TTImp-mismatchNF arg-0 arg-1 e-5 e-6) eta-0))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) (define ProcessDef-TTImp-mismatch (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-1 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-1 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessDef-TTImp-mismatchNF arg-0 arg-1 e-5 e-6) eta-0))))))))))))))))) -(define ProcessDef-TTImp-impossibleOK (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (let ((e-19 (vector-ref sc1 4))) (let ((e-20 (vector-ref sc1 5))) (ProcessDef-TTImp-case--13133-7288 arg-0 e-16 e-1 e-5 e-4 e-3 e-2 e-20 e-19 e-18 e-17 arg-1 (Name-Core-C-61C-61_Eq__Name e-2 e-17))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 4))) (let ((e-26 (vector-ref sc1 5))) (ProcessDef-TTImp-case--13133-7370 arg-0 e-22 e-23 e-25 e-7 e-8 e-10 e-11 e-9 e-26 e-24 arg-1 (Prelude-C-47C-61_Eq__Int e-9 e-24)))))))) ((8) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-32 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-32))))) ((2) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) +(define ProcessDef-TTImp-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--13203-7357 arg-0 e-16 e-1 e-5 e-4 e-3 e-2 e-20 e-19 e-18 e-17 arg-1 (Name-Core-C-61C-61_Eq__Name e-2 e-17))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 4))) (let ((e-26 (vector-ref sc1 5))) (ProcessDef-TTImp-case--13203-7439 arg-0 e-22 e-23 e-25 e-7 e-8 e-10 e-11 e-9 e-26 e-24 arg-1 (Prelude-C-47C-61_Eq__Int e-9 e-24)))))))) ((8) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-32 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-32))))) ((2) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) (define ProcessDef-TTImp-impossibleErrOK (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf e-0 arg-1 e-2 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf e-0 arg-1 e-2 e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessDef-TTImp-impossibleOK e-0 arg-1 e-5 e-6) eta-0))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf e-5 arg-1 e-7 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf e-5 arg-1 e-7 e-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc2 1))) ((ProcessDef-TTImp-impossibleOK e-5 arg-1 e-10 e-11) eta-0))))))))))))))))) ((44) (let ((e-13 (vector-ref sc0 4))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))) ((4) (lambda (eta-0) (vector 1 0))) ((21) (let ((e-21 (vector-ref sc0 1))) (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-impossibleErrOK arg-0 arg-1 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-21)))) ((5) (let ((e-27 (vector-ref sc0 6))) (ProcessDef-TTImp-impossibleErrOK arg-0 arg-1 e-27)))(else (lambda (eta-0) (vector 1 1))))))) (define ProcessDef-TTImp-ifThenElse (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (arg-2)) (else (arg-3)))))) (define ProcessDef-TTImp-hasEmptyPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((3) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-2 arg-3 e-8) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Coverage-Core-isEmpty arg-0 arg-1 arg-2 arg-3 e-5) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 ((ProcessDef-TTImp-hasEmptyPat (vector 1 e-2 arg-0) arg-1 arg-2 (vector 1 (vector 3 e-6 e-7 e-8) arg-3) e-4) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (Prelude-C-124C-124 e-9 (lambda () e-10)))))))))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define ProcessDef-TTImp-findLinear (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 4))) (ProcessDef-TTImp-findLinear (vector 1 e-2 arg-0) arg-1 arg-2 (+ 1 arg-3) arg-4 e-4)))) ((5) (let ((e-9 (vector-ref sc0 4))) (ProcessDef-TTImp-findLinear arg-0 arg-1 arg-2 arg-3 arg-4 e-9)))(else (ProcessDef-TTImp-case--14098-8479 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-5))))))) -(define ProcessDef-TTImp-extendEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((3) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((3) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((e-16 (vector-ref sc2 3))) (let ((e-17 (vector-ref sc2 4))) (let ((sc3 e-16)) (case (vector-ref sc3 0) ((5) (let ((e-19 (vector-ref sc3 1))) (let ((e-20 (vector-ref sc3 2))) (ProcessDef-TTImp-with--13879-7980 e-2 e-15 (Name-Core-nameEq e-2 e-15) 'erased arg-1 e-14 e-19 e-20 e-1 e-8 e-7 e-6 e-4 e-17 arg-4 arg-3 arg-2))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))))) ((4) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((3) (let ((e-22 (vector-ref sc2 1))) (let ((e-23 (vector-ref sc2 2))) (let ((e-24 (vector-ref sc2 3))) (let ((e-25 (vector-ref sc2 4))) (let ((sc3 e-24)) (case (vector-ref sc3 0) ((4) (let ((e-27 (vector-ref sc3 1))) (let ((e-28 (vector-ref sc3 2))) (let ((e-29 (vector-ref sc3 3))) (ProcessDef-TTImp-with--13879-8053 e-2 e-23 (Name-Core-nameEq e-2 e-23) 'erased arg-1 e-22 e-27 e-29 e-28 e-1 e-11 e-12 e-10 e-4 e-25 arg-4 arg-3 arg-2)))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))) +(define ProcessDef-TTImp-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--14168-8548 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-5))))))) +(define ProcessDef-TTImp-extendEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((3) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((3) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((e-16 (vector-ref sc2 3))) (let ((e-17 (vector-ref sc2 4))) (let ((sc3 e-16)) (case (vector-ref sc3 0) ((5) (let ((e-19 (vector-ref sc3 1))) (let ((e-20 (vector-ref sc3 2))) (ProcessDef-TTImp-with--13949-8049 e-2 e-15 (Name-Core-nameEq e-2 e-15) 'erased arg-1 e-14 e-19 e-20 e-1 e-8 e-7 e-6 e-4 e-17 arg-4 arg-3 arg-2))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))))) ((4) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((3) (let ((e-22 (vector-ref sc2 1))) (let ((e-23 (vector-ref sc2 2))) (let ((e-24 (vector-ref sc2 3))) (let ((e-25 (vector-ref sc2 4))) (let ((sc3 e-24)) (case (vector-ref sc3 0) ((4) (let ((e-27 (vector-ref sc3 1))) (let ((e-28 (vector-ref sc3 2))) (let ((e-29 (vector-ref sc3 3))) (ProcessDef-TTImp-with--13949-8122 e-2 e-23 (Name-Core-nameEq e-2 e-23) 'erased arg-1 e-22 e-27 e-29 e-28 e-1 e-11 e-12 e-10 e-4 e-25 arg-4 arg-3 arg-2)))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))) (define ProcessDef-TTImp-compileRunTime (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ProcessDef-TTImp-mkRunTime arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) (let ((sc1 e-5)) (let ((e-20 (vector-ref sc1 21))) e-20))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ProcessDef-TTImp-calcRefs arg-0 0 arg-4 eta-0 eta-1))) (let ((sc2 e-5)) (let ((e-20 (vector-ref sc2 21))) e-20))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (set-box! arg-0 (let ((sc4 e-8)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-29 (vector-ref sc4 6))) (let ((e-28 (vector-ref sc4 7))) (let ((e-27 (vector-ref sc4 8))) (let ((e-26 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-21 (vector-ref sc4 22))) (let ((e-22 (vector-ref sc4 23))) (let ((e-23 (vector-ref sc4 24))) (let ((e-24 (vector-ref sc4 25))) (let ((e-25 (vector-ref sc4 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-29 e-28 e-27 e-26 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 (vector 0 ) e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-28)))))))))))))))))))))) -(define ProcessDef-TTImp-combineLinear (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ProcessDef-TTImp-case--14771-8907 e-6 e-7 e-3 arg-0 (ProcessDef-TTImp-n--14771-8753-lookupAll e-6 e-7 e-3 arg-0 e-6 e-3)))))))))))) -(define ProcessDef-TTImp-checkLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((sc1 arg-4)) (cond ((equal? sc1 0) (vector 1 arg-12)) (else ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-9 arg-12) ext-0)))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-isUnboundImplicits arg-1 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Context-Core-setUnboundImplicits arg-1 0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (BindImplicits-TTImp-bindNames arg-1 1 e-6 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (let ((e-3 (vector-ref sc5 2))) (let ((act-29 (Context-Core-setUnboundImplicits arg-1 e-7 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 (let ((sc7 arg-4)) (cond ((equal? sc7 0) (vector 1 e-3)) (else ((TTImp-TTImp-implicitsAs e-5 arg-0 e-3) ext-0)))))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (let ((act-31 ((Context-Core-getFullName arg-1 (vector 9 arg-7)) ext-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking LHS of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-12) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp e-11))))) ext-0)))))))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 (Normalise-Core-logEnv arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-10 ext-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((lhsMode (let ((sc10 arg-4)) (cond ((equal? sc10 0) (vector 3 )) (else (vector 1 arg-5)))))) (let ((act-33 (let ((act-33 ((Context-Core-getFullName arg-1 (vector 9 arg-7)) ext-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-0) (vector 58 arg-11 e-14 eta-0))) (Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 arg-7 lhsMode arg-8 arg-9 arg-10 (vector 15 arg-11 (vector 1 ) e-11) (vector 0 ))) ext-0)))))))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((sc11 e-14)) (let ((e-15 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((act-34 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Checked LHS term") e-15 ext-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-16 (vector-ref sc12 1))) (vector 0 e-16))) (else (let ((act-35 ((Normalise-Core-getTerm 'erased e-4) ext-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-17 (vector-ref sc13 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc13 1))) (let ((act-36 (let ((act-36 (unbox arg-1))) (vector 1 act-36)))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-18 (vector-ref sc14 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc14 1))) (let ((lhsenv (Env-Core-letToLam 'erased arg-10))) (let ((act-37 (Normalise-Core-normaliseHoles arg-0 e-18 lhsenv e-15 ext-0))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-19 (vector-ref sc15 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc15 1))) (let ((act-38 (Normalise-Core-normaliseHoles arg-0 e-18 arg-10 e-17 ext-0))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-20 (vector-ref sc16 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-39 ((ProcessDef-TTImp-findLinear arg-0 arg-1 0 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-19) ext-0))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-21 (vector-ref sc17 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc17 1))) (let ((act-40 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Checked LHS term after normalise") e-19 ext-0))) (let ((sc18 act-40)) (case (vector-ref sc18 0) ((0) (let ((e-22 (vector-ref sc18 1))) (vector 0 e-22))) (else (let ((act-41 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Linearity of names in " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-7) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x)))) e-21))))) ext-0))) (let ((sc19 act-41)) (case (vector-ref sc19 0) ((0) (let ((e-23 (vector-ref sc19 1))) (vector 0 e-23))) (else (let ((act-42 ((ProcessDef-TTImp-combineLinear arg-11 e-21) ext-0))) (let ((sc20 act-42)) (case (vector-ref sc20 0) ((0) (let ((e-24 (vector-ref sc20 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc20 1))) (let ((lhstm_lin (ProcessDef-TTImp-setLinear 'erased e-24 e-19))) (let ((lhsty_lin (ProcessDef-TTImp-setLinear 'erased e-24 e-20))) (let ((act-43 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "LHS term") lhstm_lin ext-0))) (let ((sc21 act-43)) (case (vector-ref sc21 0) ((0) (let ((e-25 (vector-ref sc21 1))) (vector 0 e-25))) (else (let ((act-44 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "LHS type") lhsty_lin ext-0))) (let ((sc22 act-44)) (case (vector-ref sc22 0) ((0) (let ((e-26 (vector-ref sc22 1))) (vector 0 e-26))) (else (let ((act-45 (Metadata-Core-setHoleLHS arg-2 (Env-Core-bindEnv arg-0 arg-11 arg-10 lhstm_lin) ext-0))) (let ((sc23 act-45)) (case (vector-ref sc23 0) ((0) (let ((e-27 (vector-ref sc23 1))) (vector 0 e-27))) (else (let ((act-46 ((ProcessDef-TTImp-extendEnv 'erased arg-0 arg-10 (vector 0 ) arg-9 lhstm_lin lhsty_lin) ext-0))) (let ((sc24 act-46)) (case (vector-ref sc24 0) ((0) (let ((e-28 (vector-ref sc24 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref sc24 1))) (vector 1 (vector 0 e-11 e-28)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-checkClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-9 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (UnifyState-Core-handleUnify 'erased arg-1 arg-3 (lambda (eta-1) (let ((act-25 (Context-Core-isUnboundImplicits arg-1 eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-setUnboundImplicits arg-1 0 eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (BindImplicits-TTImp-bindNames arg-1 1 e-5 eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-3 (vector-ref sc5 2))) (let ((act-28 (Context-Core-setUnboundImplicits arg-1 e-6 eta-1))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-29 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking " (TTImp-TTImp-show_Show__RawImp e-3))) eta-1))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-30 (Normalise-Core-logEnv arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-10 eta-1))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-31 ((Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 arg-7 (vector 1 arg-4) arg-8 arg-9 arg-10 (vector 15 e-0 (vector 1 ) e-3) (vector 0 )) eta-1))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc9 1))) (let ((sc10 e-12)) (let ((e-13 (vector-ref sc10 1))) (let ((act-32 (let ((act-32 (unbox arg-1))) (vector 1 act-32)))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-33 (Normalise-Core-normaliseHoles arg-0 e-14 arg-10 e-13 eta-1))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-15 (vector-ref sc12 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc12 1))) (let ((act-34 ((ProcessDef-TTImp-hasEmptyPat arg-0 arg-1 e-14 arg-10 e-15) eta-1))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (let ((sc14 e-16)) (cond ((equal? sc14 0) (vector 1 (vector 0 e-5))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 e-0 arg-10 (vector 0 e-15)) eta-1))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (let ((sc2 err)) (case (vector-ref sc2 0) ((6) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))(else (lambda (eta-1) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((ProcessDef-TTImp-impossibleErrOK arg-1 e-6 err) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (vector 1 (vector 0 e-5))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 e-0 arg-10 (vector 1 err)) eta-1))))))))))))))))))) eta-0)))))))))) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (ProcessDef-TTImp-checkLHS arg-0 arg-1 arg-2 arg-3 1 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 e-2 e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (let ((e-14 (vector-ref sc5 1))) (let ((e-15 (vector-ref sc5 2))) (let ((sc6 e-15)) (let ((e-18 (vector-ref sc6 1))) (let ((e-19 (vector-ref sc6 2))) (let ((sc7 e-19)) (let ((e-22 (vector-ref sc7 1))) (let ((e-23 (vector-ref sc7 2))) (let ((rhsMode (let ((_-0 (vector 0 e-7 (vector 0 e-9 (vector 0 e-10 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--16376-10465 e-4 e-3 e-2 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 e-9 e-10 e-14 e-18 e-22 e-23 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-4))))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking RHS " (TTImp-TTImp-show_Show__RawImp e-4))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((act-26 (Normalise-Core-logEnv e-9 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" e-14 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((act-27 (let ((act-27 ((Context-Core-getFullName arg-1 (vector 9 arg-7)) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-16 (vector-ref sc10 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc10 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 59 e-2 e-16 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-0 e-9 arg-1 arg-2 arg-3 arg-7 rhsMode arg-8 e-18 e-14 arg-10 e-10 e-4 (Normalise-Core-gnf e-9 e-14 e-23) eta-1))) eta-0)))))))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-16 (vector-ref sc10 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc10 1))) (let ((act-28 (Metadata-Core-clearHoleLHS arg-2 eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((act-29 (Context-Core-logTerm e-9 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "RHS term") e-16 eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-20 (vector-ref sc12 1))) (vector 0 e-20))) (else (let ((act-30 (let ((sc13 arg-6)) (cond ((equal? sc13 0) (let ((act-30 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-22 eta-0))) (let ((sc14 act-30)) (case (vector-ref sc14 0) ((0) (let ((e-21 (vector-ref sc14 1))) (vector 0 e-21))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-16 eta-0)))))) (else (vector 1 (vector 0 ))))))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-21 (vector-ref sc13 1))) (vector 0 e-21))) (else (let ((act-31 (let ((sc14 e-16)) (case (vector-ref sc14 0) ((2) (Metadata-Core-addLHS e-9 arg-1 arg-2 (TTImp-TTImp-getFC e-3) (Env-Core-length 'erased 'erased arg-10) e-14 e-22 eta-0))(else (vector 1 (vector 0 ))))))) (let ((sc14 act-31)) (case (vector-ref sc14 0) ((0) (let ((e-24 (vector-ref sc14 1))) (vector 0 e-24))) (else (vector 1 (vector 1 (vector 0 e-9 e-14 e-22 e-16))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (ProcessDef-TTImp-checkLHS arg-0 arg-1 arg-2 arg-3 1 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 e-6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc1 1))) (let ((sc2 e-10)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-12 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (let ((e-14 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-13)) (let ((e-16 (vector-ref sc5 1))) (let ((e-15 (vector-ref sc5 2))) (let ((sc6 e-15)) (let ((e-18 (vector-ref sc6 1))) (let ((e-19 (vector-ref sc6 2))) (let ((sc7 e-19)) (let ((e-22 (vector-ref sc7 1))) (let ((e-23 (vector-ref sc7 2))) (let ((wmode (let ((_-0 (vector 0 e-2 (vector 0 e-12 (vector 0 e-14 (vector 0 e-16 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--17338-12883 e-9 e-8 e-7 e-6 e-5 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-12 e-14 e-16 e-18 e-22 e-23 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-4))))) (let ((act-25 (let ((act-25 ((Context-Core-getFullName arg-1 (vector 9 arg-7)) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc8 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 59 e-5 e-17 eta-1))) (Elab-TTImp-elabTermSub arg-0 e-12 arg-1 arg-2 arg-3 arg-7 wmode arg-8 e-18 e-16 arg-10 e-14 e-7 (vector 0 ))) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc8 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-12 (vector 0 e-14 (vector 0 e-16 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (let ((sc9 e-17)) (let ((e-20 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((act-26 (Metadata-Core-clearHoleLHS arg-2 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-21 (vector-ref sc10 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc10 1))) (let ((act-27 (Context-Core-logTerm e-12 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value") e-20 eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-24 (vector-ref sc11 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc11 1))) (let ((act-28 (Context-Core-logTerm e-12 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "Required type") e-23 eta-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-25 (vector-ref sc12 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc12 1))) (let ((act-29 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc13 act-29)) (case (vector-ref sc13 0) ((0) (let ((e-26 (vector-ref sc13 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc13 1))) (let ((act-30 (let ((act-30 (unbox arg-1))) (vector 1 act-30)))) (let ((sc14 act-30)) (case (vector-ref sc14 0) ((0) (let ((e-27 (vector-ref sc14 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc14 1))) (let ((act-31 (Normalise-Core-normaliseHoles e-12 e-27 e-16 e-20 eta-0))) (let ((sc15 act-31)) (case (vector-ref sc15 0) ((0) (let ((e-28 (vector-ref sc15 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref sc15 1))) (let ((act-32 (Normalise-Core-normaliseHoles e-12 e-27 e-16 e-26 eta-0))) (let ((sc16 act-32)) (case (vector-ref sc16 0) ((0) (let ((e-29 (vector-ref sc16 1))) (vector 0 e-29))) (else (let ((e-29 (vector-ref sc16 1))) (let ((_-1 (vector 0 e-20 e-4))) ((ProcessDef-TTImp-case--17441-11171 e-9 e-8 e-7 e-6 e-5 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-12 e-14 e-16 e-18 e-22 e-23 _-0 wmode e-20 e-4 _-1 e-21 e-24 e-25 e-26 e-27 e-28 e-29 (ProcessDef-TTImp-n--15777-10557-keepOldEnv e-9 e-8 e-7 e-6 e-5 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-12 e-14 (let ((sc17 (Env-Core-findSubEnv e-12 e-16 e-28))) (let ((e-30 (vector-ref sc17 2))) e-30)))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-calcRefs (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-3 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((ProcessDef-TTImp-case--19978-13187 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0))))(else (vector 1 (vector 0 ))))))))))))))))) +(define ProcessDef-TTImp-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--14841-8976 e-6 e-7 e-3 arg-0 (ProcessDef-TTImp-n--14841-8822-lookupAll e-6 e-7 e-3 arg-0 e-6 e-3)))))))))))) +(define ProcessDef-TTImp-checkLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((sc1 arg-4)) (cond ((equal? sc1 0) (vector 1 arg-12)) (else ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-9 arg-12) ext-0)))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-isUnboundImplicits arg-1 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Context-Core-setUnboundImplicits arg-1 0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (BindImplicits-TTImp-bindNames arg-1 1 e-6 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (let ((e-3 (vector-ref sc5 2))) (let ((act-29 (Context-Core-setUnboundImplicits arg-1 e-7 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 (let ((sc7 arg-4)) (cond ((equal? sc7 0) (vector 1 e-3)) (else ((TTImp-TTImp-implicitsAs e-5 arg-0 e-3) ext-0)))))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (let ((act-31 ((Context-Core-getFullName arg-1 (vector 9 arg-7)) ext-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking LHS of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-12) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp e-11))))) ext-0)))))))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 (Normalise-Core-logEnv arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-10 ext-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((lhsMode (let ((sc10 arg-4)) (cond ((equal? sc10 0) (vector 3 )) (else (vector 1 arg-5)))))) (let ((act-33 (let ((act-33 ((Context-Core-getFullName arg-1 (vector 9 arg-7)) ext-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-0) (vector 58 arg-11 e-14 eta-0))) (Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 arg-7 lhsMode arg-8 arg-9 arg-10 (vector 15 arg-11 (vector 1 ) e-11) (vector 0 ))) ext-0)))))))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((sc11 e-14)) (let ((e-15 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((act-34 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Checked LHS term") e-15 ext-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-16 (vector-ref sc12 1))) (vector 0 e-16))) (else (let ((act-35 ((Normalise-Core-getTerm 'erased e-4) ext-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-17 (vector-ref sc13 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc13 1))) (let ((act-36 (let ((act-36 (unbox arg-1))) (vector 1 act-36)))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-18 (vector-ref sc14 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc14 1))) (let ((lhsenv (Env-Core-letToLam 'erased arg-10))) (let ((act-37 (Normalise-Core-normaliseHoles arg-0 e-18 lhsenv e-15 ext-0))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-19 (vector-ref sc15 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc15 1))) (let ((act-38 (Normalise-Core-normaliseHoles arg-0 e-18 arg-10 e-17 ext-0))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-20 (vector-ref sc16 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-39 ((ProcessDef-TTImp-findLinear arg-0 arg-1 0 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-19) ext-0))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-21 (vector-ref sc17 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc17 1))) (let ((act-40 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Checked LHS term after normalise") e-19 ext-0))) (let ((sc18 act-40)) (case (vector-ref sc18 0) ((0) (let ((e-22 (vector-ref sc18 1))) (vector 0 e-22))) (else (let ((act-41 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Linearity of names in " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-7) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x)))) e-21))))) ext-0))) (let ((sc19 act-41)) (case (vector-ref sc19 0) ((0) (let ((e-23 (vector-ref sc19 1))) (vector 0 e-23))) (else (let ((act-42 ((ProcessDef-TTImp-combineLinear arg-11 e-21) ext-0))) (let ((sc20 act-42)) (case (vector-ref sc20 0) ((0) (let ((e-24 (vector-ref sc20 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc20 1))) (let ((lhstm_lin (ProcessDef-TTImp-setLinear 'erased e-24 e-19))) (let ((lhsty_lin (ProcessDef-TTImp-setLinear 'erased e-24 e-20))) (let ((act-43 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "LHS term") lhstm_lin ext-0))) (let ((sc21 act-43)) (case (vector-ref sc21 0) ((0) (let ((e-25 (vector-ref sc21 1))) (vector 0 e-25))) (else (let ((act-44 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "LHS type") lhsty_lin ext-0))) (let ((sc22 act-44)) (case (vector-ref sc22 0) ((0) (let ((e-26 (vector-ref sc22 1))) (vector 0 e-26))) (else (let ((act-45 (Metadata-Core-setHoleLHS arg-2 (Env-Core-bindEnv arg-0 arg-11 arg-10 lhstm_lin) ext-0))) (let ((sc23 act-45)) (case (vector-ref sc23 0) ((0) (let ((e-27 (vector-ref sc23 1))) (vector 0 e-27))) (else (let ((act-46 ((ProcessDef-TTImp-extendEnv 'erased arg-0 arg-10 (vector 0 ) arg-9 lhstm_lin lhsty_lin) ext-0))) (let ((sc24 act-46)) (case (vector-ref sc24 0) ((0) (let ((e-28 (vector-ref sc24 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref sc24 1))) (vector 1 (vector 0 e-11 e-28)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-checkClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-9 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (UnifyState-Core-handleUnify 'erased arg-1 arg-3 (lambda (eta-1) (let ((act-25 (Context-Core-isUnboundImplicits arg-1 eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-setUnboundImplicits arg-1 0 eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (BindImplicits-TTImp-bindNames arg-1 1 e-5 eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-3 (vector-ref sc5 2))) (let ((act-28 (Context-Core-setUnboundImplicits arg-1 e-6 eta-1))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-29 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking " (TTImp-TTImp-show_Show__RawImp e-3))) eta-1))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-30 (Normalise-Core-logEnv arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-10 eta-1))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-31 ((Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 arg-7 (vector 1 arg-4) arg-8 arg-9 arg-10 (vector 15 e-0 (vector 1 ) e-3) (vector 0 )) eta-1))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc9 1))) (let ((sc10 e-12)) (let ((e-13 (vector-ref sc10 1))) (let ((act-32 (let ((act-32 (unbox arg-1))) (vector 1 act-32)))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-33 (Normalise-Core-normaliseHoles arg-0 e-14 arg-10 e-13 eta-1))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-15 (vector-ref sc12 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc12 1))) (let ((act-34 ((ProcessDef-TTImp-hasEmptyPat arg-0 arg-1 e-14 arg-10 e-15) eta-1))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (let ((sc14 e-16)) (cond ((equal? sc14 0) (vector 1 (vector 0 e-5))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 e-0 arg-10 (vector 0 e-15)) eta-1))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (let ((sc2 err)) (case (vector-ref sc2 0) ((6) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))(else (lambda (eta-1) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((ProcessDef-TTImp-impossibleErrOK arg-1 e-6 err) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (vector 1 (vector 0 e-5))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 e-0 arg-10 (vector 1 err)) eta-1))))))))))))))))))) eta-0)))))))))) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (ProcessDef-TTImp-checkLHS arg-0 arg-1 arg-2 arg-3 1 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 e-2 e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (let ((e-14 (vector-ref sc5 1))) (let ((e-15 (vector-ref sc5 2))) (let ((sc6 e-15)) (let ((e-18 (vector-ref sc6 1))) (let ((e-19 (vector-ref sc6 2))) (let ((sc7 e-19)) (let ((e-22 (vector-ref sc7 1))) (let ((e-23 (vector-ref sc7 2))) (let ((rhsMode (let ((_-0 (vector 0 e-7 (vector 0 e-9 (vector 0 e-10 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--16446-10534 e-4 e-3 e-2 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 e-9 e-10 e-14 e-18 e-22 e-23 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-4))))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking RHS " (TTImp-TTImp-show_Show__RawImp e-4))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((act-26 (Normalise-Core-logEnv e-9 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" e-14 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((act-27 (let ((act-27 ((Context-Core-getFullName arg-1 (vector 9 arg-7)) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-16 (vector-ref sc10 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc10 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 59 e-2 e-16 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-0 e-9 arg-1 arg-2 arg-3 arg-7 rhsMode arg-8 e-18 e-14 arg-10 e-10 e-4 (Normalise-Core-gnf e-9 e-14 e-23) eta-1))) eta-0)))))))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-16 (vector-ref sc10 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc10 1))) (let ((act-28 (Metadata-Core-clearHoleLHS arg-2 eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((act-29 (Context-Core-logTerm e-9 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "RHS term") e-16 eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-20 (vector-ref sc12 1))) (vector 0 e-20))) (else (let ((act-30 (let ((sc13 arg-6)) (cond ((equal? sc13 0) (let ((act-30 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-22 eta-0))) (let ((sc14 act-30)) (case (vector-ref sc14 0) ((0) (let ((e-21 (vector-ref sc14 1))) (vector 0 e-21))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-16 eta-0)))))) (else (vector 1 (vector 0 ))))))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-21 (vector-ref sc13 1))) (vector 0 e-21))) (else (let ((act-31 (let ((sc14 e-16)) (case (vector-ref sc14 0) ((2) (Metadata-Core-addLHS e-9 arg-1 arg-2 (TTImp-TTImp-getFC e-3) (Env-Core-length 'erased 'erased arg-10) e-14 e-22 eta-0))(else (vector 1 (vector 0 ))))))) (let ((sc14 act-31)) (case (vector-ref sc14 0) ((0) (let ((e-24 (vector-ref sc14 1))) (vector 0 e-24))) (else (vector 1 (vector 1 (vector 0 e-9 e-14 e-22 e-16))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (ProcessDef-TTImp-checkLHS arg-0 arg-1 arg-2 arg-3 1 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 e-6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc1 1))) (let ((sc2 e-10)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-12 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (let ((e-14 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-13)) (let ((e-16 (vector-ref sc5 1))) (let ((e-15 (vector-ref sc5 2))) (let ((sc6 e-15)) (let ((e-18 (vector-ref sc6 1))) (let ((e-19 (vector-ref sc6 2))) (let ((sc7 e-19)) (let ((e-22 (vector-ref sc7 1))) (let ((e-23 (vector-ref sc7 2))) (let ((wmode (let ((_-0 (vector 0 e-2 (vector 0 e-12 (vector 0 e-14 (vector 0 e-16 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--17408-12952 e-9 e-8 e-7 e-6 e-5 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-12 e-14 e-16 e-18 e-22 e-23 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-4))))) (let ((act-25 (let ((act-25 ((Context-Core-getFullName arg-1 (vector 9 arg-7)) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc8 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 59 e-5 e-17 eta-1))) (Elab-TTImp-elabTermSub arg-0 e-12 arg-1 arg-2 arg-3 arg-7 wmode arg-8 e-18 e-16 arg-10 e-14 e-7 (vector 0 ))) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc8 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-12 (vector 0 e-14 (vector 0 e-16 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (let ((sc9 e-17)) (let ((e-20 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((act-26 (Metadata-Core-clearHoleLHS arg-2 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-21 (vector-ref sc10 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc10 1))) (let ((act-27 (Context-Core-logTerm e-12 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value") e-20 eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-24 (vector-ref sc11 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc11 1))) (let ((act-28 (Context-Core-logTerm e-12 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "Required type") e-23 eta-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-25 (vector-ref sc12 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc12 1))) (let ((act-29 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc13 act-29)) (case (vector-ref sc13 0) ((0) (let ((e-26 (vector-ref sc13 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc13 1))) (let ((act-30 (let ((act-30 (unbox arg-1))) (vector 1 act-30)))) (let ((sc14 act-30)) (case (vector-ref sc14 0) ((0) (let ((e-27 (vector-ref sc14 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc14 1))) (let ((act-31 (Normalise-Core-normaliseHoles e-12 e-27 e-16 e-20 eta-0))) (let ((sc15 act-31)) (case (vector-ref sc15 0) ((0) (let ((e-28 (vector-ref sc15 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref sc15 1))) (let ((act-32 (Normalise-Core-normaliseHoles e-12 e-27 e-16 e-26 eta-0))) (let ((sc16 act-32)) (case (vector-ref sc16 0) ((0) (let ((e-29 (vector-ref sc16 1))) (vector 0 e-29))) (else (let ((e-29 (vector-ref sc16 1))) (let ((_-1 (vector 0 e-20 e-4))) ((ProcessDef-TTImp-case--17511-11240 e-9 e-8 e-7 e-6 e-5 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-12 e-14 e-16 e-18 e-22 e-23 _-0 wmode e-20 e-4 _-1 e-21 e-24 e-25 e-26 e-27 e-28 e-29 (ProcessDef-TTImp-n--15847-10626-keepOldEnv e-9 e-8 e-7 e-6 e-5 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-12 e-14 (let ((sc17 (Env-Core-findSubEnv e-12 e-16 e-28))) (let ((e-30 (vector-ref sc17 2))) e-30)))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-calcRefs (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-3 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((ProcessDef-TTImp-case--20048-13256 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0))))(else (vector 1 (vector 0 ))))))))))))))))) (define ProcessDef-TTImp-applyEnv (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Context-Core-resolveName arg-1 arg-3) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 0 arg-3 (vector 0 (vector 1 arg-3) (vector 0 (List-Data-reverse 'erased (Env-Core-allVarsNoLet arg-0 arg-2)) (lambda (fc) (lambda (nt) (UnifyState-Core-applyTo arg-0 fc (vector 1 fc nt (vector 9 e-5)) arg-2)))))))))))))) -(define WithClause-TTImp-case--6161-7058 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-15) (Strings-Prelude-C-43C-43 " against " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-18) (Strings-Prelude-C-43C-43 " dropping " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) (vector 1 e-1 e-2))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 ((WithClause-TTImp-getMatch 0 arg-15 arg-18) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Matches: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__String d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__String d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) e-6))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((newlhs (TTImp-TTImp-apply (vector 0 arg-7 arg-4) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (WithClause-TTImp-getArgMatch arg-7 1 e-1 e-6 eta-1)) arg-3) e-2)))) (let ((act-27 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "New LHS: " (TTImp-TTImp-show_Show__RawImp newlhs))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 newlhs)))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-7 "Badly formed 'with' clause") eta-0))))))) -(define WithClause-TTImp-case--6103-7007 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-8 arg-12 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 0 e-2 e-3))) ((WithClause-TTImp-case--6161-7058 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-2 e-3 _-0 e-5 (List-Data-reverse 'erased arg-10)) eta-0))))))))))))) -(define WithClause-TTImp-case--6051-6963 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindNames arg-8 1 arg-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 0 e-2 e-3))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((act-25 (Context-Core-setUnboundImplicits arg-8 arg-12 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-1 (vector 0 e-6 e-4))) ((WithClause-TTImp-case--6161-7058 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-2 e-3 _-0 e-6 e-4 _-1 e-7 (List-Data-reverse 'erased arg-10)) eta-0)))))))))))))))))))))) -(define WithClause-TTImp-case--5946-6920 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-isUnboundImplicits arg-8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-setUnboundImplicits arg-8 0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (BindImplicits-TTImp-bindNames arg-8 1 arg-2 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 0 e-2 e-3))) (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-27 (BindImplicits-TTImp-bindNames arg-8 1 e-2 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-1 (vector 0 e-8 e-4))) (let ((sc6 e-9)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((act-28 (Context-Core-setUnboundImplicits arg-8 e-5 eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (let ((_-2 (vector 0 e-11 e-10))) ((WithClause-TTImp-case--6161-7058 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 _-0 e-5 e-6 e-8 e-4 _-1 e-11 e-10 _-2 e-12 (List-Data-reverse 'erased e-3)) eta-0))))))))))))))))))))))))))))))))))))))))) -(define WithClause-TTImp-case--5959-6865 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 1 arg-11 e-3))))))))) -(define WithClause-TTImp-case--5827-6801 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 31 arg-5 0)) (else (let ((e-2 (vector-ref sc0 1))) e-2)))))) -(define WithClause-TTImp-case--5827-6748 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 11 arg-3 (Prelude-fromInteger_Num__Nat 500))) (else (let ((e-2 (vector-ref sc0 1))) e-2)))))) -(define WithClause-TTImp-case--5163-6685 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-0 arg-1) arg-4)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-3 arg-1 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else ((WithClause-TTImp-mergeMatches arg-3 arg-2) eta-0)))))))))))) -(define WithClause-TTImp-case--5161-6609 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-1 eta-0))))))) -(define WithClause-TTImp-case--5161-6428 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (WithClause-TTImp-matchAll arg-8 (vector 1 (vector 0 arg-3 arg-6) (vector 1 (vector 0 arg-1 arg-4) (vector 0 ))))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-7 eta-0))))))) -(define WithClause-TTImp-case--5161-6324 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (WithClause-TTImp-matchAll arg-12 (vector 1 (vector 0 arg-2 arg-7) (vector 1 (vector 0 arg-1 arg-6) (vector 0 ))))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-11 eta-0))))))) -(define WithClause-TTImp-case--5161-6252 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-3 eta-0))))))) -(define WithClause-TTImp-case--5161-6211 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-4 eta-0))))))) -(define WithClause-TTImp-case--5161-6165 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-5 eta-0))))))) -(define WithClause-TTImp-n--6418-7238-wrhsC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 e-5))))))))))))(else (lambda (eta-0) (vector 1 arg-7))))))) -(define WithClause-TTImp-n--6418-7237-wrhs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 1 e-0 e-1 e-2 e-3 e-6 e-7)))))))))))))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc2 1))) (vector 1 (vector 2 e-6 e-7 e-8 e-9 e-5 e-12)))))))))))))))))))) ((3) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (let ((e-16 (vector-ref sc0 5))) (let ((e-17 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-16) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-17) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-12 e-13 e-14 e-5 e-6 e-7))))))))))))))))))))))))) ((4) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((e-21 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-19) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-20) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (WithClause-TTImp-n--6418-7238-wrhsC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-21) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 4 e-18 e-5 e-6 e-7))))))))))))))))))))))) ((5) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-24) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-22 e-23 e-5)))))))))))) ((7) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-27) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 7 e-25 e-26 e-5)))))))))))) ((8) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-29) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-30) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 8 e-28 e-5 e-6))))))))))))))))) ((9) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-32) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-34) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 9 e-31 e-5 e-33 e-6)))))))))))))))))) ((10) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (WithClause-TTImp-n--6418-7236-updateWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-35 e-36 (vector 1 e-37 (vector 0 ))))))) ((13) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-39) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-40) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 13 e-38 e-5 e-6))))))))))))))))) ((19) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-43) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 19 e-41 e-42 e-5)))))))))))) ((20) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-45) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 20 e-44 e-5))))))))))) ((21) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-47) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 21 e-46 e-5)))))))))))(else (lambda (eta-0) (vector 1 arg-7))))))) -(define WithClause-TTImp-n--6418-7235-withApply (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) arg-8) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (WithClause-TTImp-n--6418-7235-withApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 10 arg-7 arg-8 e-2) e-3)))))))) -(define WithClause-TTImp-n--6418-7236-updateWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((10) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (WithClause-TTImp-n--6418-7236-updateWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 (vector 1 e-6 arg-9)))))(else (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-7 "Badly formed 'with' application") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "With-app: Matching " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-0) (Strings-Prelude-C-43C-43 " against " (TTImp-TTImp-show_Show__RawImp arg-8))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 ((WithClause-TTImp-getMatch 1 arg-0 arg-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Result: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__String d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__String d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) e-6))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((newrhs (TTImp-TTImp-apply (vector 0 arg-7 arg-3) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (WithClause-TTImp-getArgMatch arg-7 0 e-2 e-6 eta-1)) arg-2)))) (let ((act-27 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "With args for RHS: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2)))) x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) d x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2)))) d-1 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1))))) d-0 x-0)))) d x)))) arg-2))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-28 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "New RHS: " (TTImp-TTImp-show_Show__RawImp newrhs))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (WithClause-TTImp-n--6418-7235-withApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 newrhs e-3))))))))))))))))))))))))))))))))))) -(define WithClause-TTImp-n--5161-6283-samePiInfo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((0) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((2) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((2) 0)(else 1)))) ((3) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((3) 0)(else 1))))(else 1))))) -(define WithClause-TTImp-n--5946-6842-dropWithArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 arg-10 (vector 0 )))))(else (let ((e-0 (- arg-9 1))) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--5946-6842-dropWithArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-0 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (vector 1 (vector 0 e-6 (vector 1 e-3 e-4)))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-7 "Badly formed 'with' clause") eta-0))))))))))) -(define WithClause-TTImp-withRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (WithClause-TTImp-n--6418-7237-wrhs arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-5))) -(define WithClause-TTImp-mergeMatches (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-mergeMatches arg-0 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((WithClause-TTImp-case--5163-6685 e-6 e-7 e-3 arg-0 e-5 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-6 e-5)) eta-0))))))))))))))))) +(define WithClause-TTImp-case--6203-7066 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-15) (Strings-Prelude-C-43C-43 " against " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-18) (Strings-Prelude-C-43C-43 " dropping " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) (vector 1 e-1 e-2))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 ((WithClause-TTImp-getMatch 0 arg-15 arg-18) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Matches: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__String d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__String d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) e-6))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((newlhs (TTImp-TTImp-apply (vector 0 arg-7 arg-4) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (WithClause-TTImp-getArgMatch arg-7 1 e-1 e-6 eta-1)) arg-3) e-2)))) (let ((act-27 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "New LHS: " (TTImp-TTImp-show_Show__RawImp newlhs))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 newlhs)))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-7 "Badly formed 'with' clause") eta-0))))))) +(define WithClause-TTImp-case--6145-7015 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-8 arg-12 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 0 e-2 e-3))) ((WithClause-TTImp-case--6203-7066 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-2 e-3 _-0 e-5 (List-Data-reverse 'erased arg-10)) eta-0))))))))))))) +(define WithClause-TTImp-case--6093-6971 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindNames arg-8 1 arg-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 0 e-2 e-3))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((act-25 (Context-Core-setUnboundImplicits arg-8 arg-12 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-1 (vector 0 e-6 e-4))) ((WithClause-TTImp-case--6203-7066 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-2 e-3 _-0 e-6 e-4 _-1 e-7 (List-Data-reverse 'erased arg-10)) eta-0)))))))))))))))))))))) +(define WithClause-TTImp-case--5988-6928 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-isUnboundImplicits arg-8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-setUnboundImplicits arg-8 0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (BindImplicits-TTImp-bindNames arg-8 1 arg-2 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 0 e-2 e-3))) (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-27 (BindImplicits-TTImp-bindNames arg-8 1 e-2 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-1 (vector 0 e-8 e-4))) (let ((sc6 e-9)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((act-28 (Context-Core-setUnboundImplicits arg-8 e-5 eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (let ((_-2 (vector 0 e-11 e-10))) ((WithClause-TTImp-case--6203-7066 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 _-0 e-5 e-6 e-8 e-4 _-1 e-11 e-10 _-2 e-12 (List-Data-reverse 'erased e-3)) eta-0))))))))))))))))))))))))))))))))))))))))) +(define WithClause-TTImp-case--6001-6873 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 1 arg-11 e-3))))))))) +(define WithClause-TTImp-case--5869-6809 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 31 arg-5 0)) (else (let ((e-2 (vector-ref sc0 1))) e-2)))))) +(define WithClause-TTImp-case--5869-6756 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 11 arg-3 (Prelude-fromInteger_Num__Nat 500))) (else (let ((e-2 (vector-ref sc0 1))) e-2)))))) +(define WithClause-TTImp-case--5205-6693 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-0 arg-1) arg-4)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-3 arg-1 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else ((WithClause-TTImp-mergeMatches arg-3 arg-2) eta-0)))))))))))) +(define WithClause-TTImp-case--5203-6617 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-1 eta-0))))))) +(define WithClause-TTImp-case--5203-6436 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (WithClause-TTImp-matchAll arg-8 (vector 1 (vector 0 arg-3 arg-6) (vector 1 (vector 0 arg-1 arg-4) (vector 0 ))))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-7 eta-0))))))) +(define WithClause-TTImp-case--5203-6332 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (WithClause-TTImp-matchAll arg-12 (vector 1 (vector 0 arg-2 arg-7) (vector 1 (vector 0 arg-1 arg-6) (vector 0 ))))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-11 eta-0))))))) +(define WithClause-TTImp-case--5203-6260 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-3 eta-0))))))) +(define WithClause-TTImp-case--5203-6219 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-4 eta-0))))))) +(define WithClause-TTImp-case--5203-6173 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-5 eta-0))))))) +(define WithClause-TTImp-n--6460-7246-wrhsC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6460-7245-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 e-5))))))))))))(else (lambda (eta-0) (vector 1 arg-7))))))) +(define WithClause-TTImp-n--6460-7245-wrhs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6460-7245-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-n--6460-7245-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 1 e-0 e-1 e-2 e-3 e-6 e-7)))))))))))))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6460-7245-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-n--6460-7245-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc2 1))) (vector 1 (vector 2 e-6 e-7 e-8 e-9 e-5 e-12)))))))))))))))))))) ((3) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (let ((e-16 (vector-ref sc0 5))) (let ((e-17 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6460-7245-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-n--6460-7245-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-16) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((WithClause-TTImp-n--6460-7245-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-17) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-12 e-13 e-14 e-5 e-6 e-7))))))))))))))))))))))))) ((4) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((e-21 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6460-7245-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-19) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-n--6460-7245-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-20) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (WithClause-TTImp-n--6460-7246-wrhsC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-21) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 4 e-18 e-5 e-6 e-7))))))))))))))))))))))) ((5) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6460-7245-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-24) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-22 e-23 e-5)))))))))))) ((7) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6460-7245-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-27) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 7 e-25 e-26 e-5)))))))))))) ((8) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6460-7245-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-29) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-n--6460-7245-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-30) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 8 e-28 e-5 e-6))))))))))))))))) ((9) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6460-7245-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-32) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-n--6460-7245-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-34) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 9 e-31 e-5 e-33 e-6)))))))))))))))))) ((10) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (WithClause-TTImp-n--6460-7244-updateWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-35 e-36 (vector 1 e-37 (vector 0 ))))))) ((13) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6460-7245-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-39) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-n--6460-7245-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-40) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 13 e-38 e-5 e-6))))))))))))))))) ((19) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6460-7245-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-43) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 19 e-41 e-42 e-5)))))))))))) ((20) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6460-7245-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-45) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 20 e-44 e-5))))))))))) ((21) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6460-7245-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-47) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 21 e-46 e-5)))))))))))(else (lambda (eta-0) (vector 1 arg-7))))))) +(define WithClause-TTImp-n--6460-7243-withApply (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) arg-8) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (WithClause-TTImp-n--6460-7243-withApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 10 arg-7 arg-8 e-2) e-3)))))))) +(define WithClause-TTImp-n--6460-7244-updateWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((10) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (WithClause-TTImp-n--6460-7244-updateWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 (vector 1 e-6 arg-9)))))(else (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-7 "Badly formed 'with' application") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "With-app: Matching " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-0) (Strings-Prelude-C-43C-43 " against " (TTImp-TTImp-show_Show__RawImp arg-8))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 ((WithClause-TTImp-getMatch 1 arg-0 arg-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Result: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__String d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__String d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) e-6))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((newrhs (TTImp-TTImp-apply (vector 0 arg-7 arg-3) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (WithClause-TTImp-getArgMatch arg-7 0 e-2 e-6 eta-1)) arg-2)))) (let ((act-27 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "With args for RHS: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2)))) x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) d x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2)))) d-1 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1))))) d-0 x-0)))) d x)))) arg-2))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-28 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "New RHS: " (TTImp-TTImp-show_Show__RawImp newrhs))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (WithClause-TTImp-n--6460-7243-withApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 newrhs e-3))))))))))))))))))))))))))))))))))) +(define WithClause-TTImp-n--5203-6291-samePiInfo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((0) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((2) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((2) 0)(else 1)))) ((3) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((3) 0)(else 1))))(else 1))))) +(define WithClause-TTImp-n--5988-6850-dropWithArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 arg-10 (vector 0 )))))(else (let ((e-0 (- arg-9 1))) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--5988-6850-dropWithArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-0 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (vector 1 (vector 0 e-6 (vector 1 e-3 e-4)))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-7 "Badly formed 'with' clause") eta-0))))))))))) +(define WithClause-TTImp-withRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (WithClause-TTImp-n--6460-7245-wrhs arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-5))) +(define WithClause-TTImp-mergeMatches (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-mergeMatches arg-0 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((WithClause-TTImp-case--5205-6693 e-6 e-7 e-3 arg-0 e-5 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) e-6 e-5)) eta-0))))))))))))))))) (define WithClause-TTImp-matchFail (lambda (arg-0 arg-1 ext-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "With clause does not match parent") ext-0))) (define WithClause-TTImp-matchAll (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-matchAll arg-0 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((WithClause-TTImp-getMatch arg-0 e-6 e-7) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (List-Prelude-C-43C-43 'erased e-8 e-5)) eta-0)))))))))))))))))))))) -(define WithClause-TTImp-getNewLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 ((WithClause-TTImp-n--5946-6842-dropWithArgs 'erased arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-3 arg-8) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-25 (Context-Core-isUnboundImplicits arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-setUnboundImplicits arg-1 0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (BindImplicits-TTImp-bindNames arg-1 1 arg-7 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-28 (BindImplicits-TTImp-bindNames arg-1 1 e-2 ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((_-1 (vector 0 e-9 e-4))) (let ((sc7 e-10)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((act-29 (Context-Core-setUnboundImplicits arg-1 e-6 ext-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((_-2 (vector 0 e-12 e-11))) ((WithClause-TTImp-case--6161-7058 'erased arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-3 _-0 e-6 e-7 e-9 e-4 _-1 e-12 e-11 _-2 e-13 (List-Data-reverse 'erased e-3)) ext-0))))))))))))))))))))))))))))))))))))))))))))) -(define WithClause-TTImp-getMatch (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((16) (let ((e-39 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-39 arg-2) (vector 0 )))))) ((31) (lambda (eta-0) (vector 1 (vector 0 )))) ((0) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((sc1 e-43)) (case (vector-ref sc1 0) ((0) (let ((e-62 (vector-ref sc1 1))) (let ((e-63 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((0) (let ((e-64 (vector-ref sc2 1))) (let ((e-65 (vector-ref sc2 2))) (let ((sc3 e-65)) (case (vector-ref sc3 0) ((0) (let ((e-66 (vector-ref sc3 1))) (let ((e-67 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6165 e-42 e-63 e-62 e-67 e-66 e-64 arg-0 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-63 e-67) (lambda () (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-66 e-62)))))))(else (WithClause-TTImp-case--5161-6211 e-42 e-63 e-62 e-65 e-64 arg-0 (Name-Core-C-61C-61_Eq__Name e-63 e-65))))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((0) (let ((e-60 (vector-ref sc2 1))) (let ((e-61 (vector-ref sc2 2))) (WithClause-TTImp-case--5161-6252 e-42 e-43 e-61 e-60 arg-0 (Name-Core-C-61C-61_Eq__Name e-43 e-61)))))(else (let ((sc2 arg-0)) (cond ((equal? sc2 0) (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((9) (let ((e-31 (vector-ref sc3 2))) (let ((e-33 (vector-ref sc3 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((9) (let ((e-26 (vector-ref sc3 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((12) (let ((e-12 (vector-ref sc3 3))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((12) (let ((e-19 (vector-ref sc4 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-9 (vector-ref sc4 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc4 arg-1)) (case (vector-ref sc4 0) ((28) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((27) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc3 3))) (let ((e-16 (vector-ref sc3 4))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((17) (let ((e-21 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 3))) (let ((e-24 (vector-ref sc5 4))) (let ((sc6 e-23)) (case (vector-ref sc6 0) ((1) (let ((e-25 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc2 1) (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((9) (let ((e-35 (vector-ref sc3 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((9) (let ((e-26 (vector-ref sc3 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((12) (let ((e-12 (vector-ref sc3 3))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((12) (let ((e-19 (vector-ref sc4 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-9 (vector-ref sc4 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc4 arg-1)) (case (vector-ref sc4 0) ((28) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((27) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc3 3))) (let ((e-16 (vector-ref sc3 4))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((17) (let ((e-21 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 3))) (let ((e-24 (vector-ref sc5 4))) (let ((sc6 e-23)) (case (vector-ref sc6 0) ((1) (let ((e-25 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-60 (vector-ref sc1 1))) (let ((e-61 (vector-ref sc1 2))) (WithClause-TTImp-case--5161-6252 e-42 e-43 e-61 e-60 arg-0 (Name-Core-C-61C-61_Eq__Name e-43 e-61)))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-31 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-35 (vector-ref sc2 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))))))))))) ((1) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (let ((e-46 (vector-ref sc0 3))) (let ((e-47 (vector-ref sc0 4))) (let ((e-48 (vector-ref sc0 5))) (let ((e-49 (vector-ref sc0 6))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-68 (vector-ref sc1 1))) (let ((e-69 (vector-ref sc1 2))) (let ((e-70 (vector-ref sc1 3))) (let ((e-71 (vector-ref sc1 4))) (let ((e-72 (vector-ref sc1 5))) (let ((e-73 (vector-ref sc1 6))) (WithClause-TTImp-case--5161-6324 e-44 e-49 e-48 e-47 e-46 e-45 e-73 e-72 e-71 e-70 e-69 e-68 arg-0 (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-45 e-69) (lambda () (Prelude-C-38C-38 (WithClause-TTImp-n--5161-6283-samePiInfo e-44 e-49 e-48 e-47 e-46 e-45 e-73 e-72 e-71 e-70 e-69 e-68 arg-0 e-46 e-70) (lambda () (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-47 e-71)))))))))))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-31 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-35 (vector-ref sc2 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))))))))))) ((8) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((8) (let ((e-75 (vector-ref sc1 2))) (let ((e-76 (vector-ref sc1 3))) (WithClause-TTImp-matchAll arg-0 (vector 1 (vector 0 e-51 e-75) (vector 1 (vector 0 e-52 e-76) (vector 0 )))))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-31 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-35 (vector-ref sc2 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))))))) ((9) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (let ((e-55 (vector-ref sc0 3))) (let ((e-56 (vector-ref sc0 4))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-77 (vector-ref sc1 1))) (let ((e-78 (vector-ref sc1 2))) (let ((e-79 (vector-ref sc1 3))) (let ((e-80 (vector-ref sc1 4))) (WithClause-TTImp-case--5161-6428 e-53 e-56 e-55 e-54 e-80 e-79 e-78 e-77 arg-0 (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-55 e-79)))))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-31 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-35 (vector-ref sc2 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))))))))) ((10) (let ((e-58 (vector-ref sc0 2))) (let ((e-59 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) (let ((e-82 (vector-ref sc1 2))) (let ((e-83 (vector-ref sc1 3))) (WithClause-TTImp-matchAll arg-0 (vector 1 (vector 0 e-58 e-82) (vector 1 (vector 0 e-59 e-83) (vector 0 )))))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-31 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-35 (vector-ref sc2 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))))))))(else (let ((sc0 arg-0)) (cond ((equal? sc0 0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-31 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc0 1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-35 (vector-ref sc1 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((9) (let ((e-26 (vector-ref sc0 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((12) (let ((e-12 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((12) (let ((e-19 (vector-ref sc1 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc0 3))) (let ((e-16 (vector-ref sc0 4))) (let ((sc1 e-15)) (case (vector-ref sc1 0) ((1) (let ((e-20 (vector-ref sc1 1))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-21 (vector-ref sc2 1))) (let ((e-23 (vector-ref sc2 3))) (let ((e-24 (vector-ref sc2 4))) (let ((sc3 e-23)) (case (vector-ref sc3 0) ((1) (let ((e-25 (vector-ref sc3 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((17) (let ((e-9 (vector-ref sc0 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((28) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((27) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))))))) -(define WithClause-TTImp-getArgMatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-2)(else (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((2) (let ((sc4 e-12)) (case (vector-ref sc4 0) ((1) (let ((e-14 (vector-ref sc4 1))) (WithClause-TTImp-case--5827-6748 e-14 arg-3 arg-2 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-14 arg-3))))(else (vector 11 arg-0 (Prelude-fromInteger_Num__Nat 500))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (let ((e-6 (vector-ref sc5 1))) (WithClause-TTImp-case--5827-6801 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-6 arg-3))))(else (vector 31 arg-0 0)))))))(else (vector 31 arg-0 0))))))(else (vector 31 arg-0 0))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-6 (vector-ref sc4 1))) (WithClause-TTImp-case--5827-6801 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-6 arg-3))))(else (vector 31 arg-0 0)))))))(else (vector 31 arg-0 0))))))(else (vector 31 arg-0 0)))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-6 (vector-ref sc3 1))) (WithClause-TTImp-case--5827-6801 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-6 arg-3))))(else (vector 31 arg-0 0)))))))(else (vector 31 arg-0 0))))))(else (vector 31 arg-0 0))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (WithClause-TTImp-case--5827-6801 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-6 arg-3))))(else (vector 31 arg-0 0)))))))(else (vector 31 arg-0 0))))))(else (vector 31 arg-0 0)))))))))))) -(define PartialEval-TTImp-case--12416-11852 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((6) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-1 arg-8 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-1 e-6 arg-13))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-3) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (TT-Core-apply 'erased arg-5 (vector 8 arg-5 arg-4 e-5) arg-13))))))))))))) -(define PartialEval-TTImp-case--13470-11507 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 arg-15 arg-6 arg-5 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-5))))))))))))) -(define PartialEval-TTImp-case--13427-11384 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-5)))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-7 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-3) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((PartialEval-TTImp-specialise (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-11 arg-10 arg-9 arg-4 (PartialEval-TTImp-n--12416-11318-extendEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 'erased 'erased arg-6 arg-5) arg-12 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 arg-4 t)) e-6)) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 e-1))) (else (let ((act-27 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 e-5 arg-6 arg-5 arg-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-8))))))))))))))))))))))))))))))) -(define PartialEval-TTImp-case--12416-11354 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (PartialEval-TTImp-case--13427-11384 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-1 _-0 (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 6))) e-5)))))) (else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-5))))))))))))) -(define PartialEval-TTImp-case--12392-10912 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 arg-6 (vector 0 ) e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-6 (vector 0 ) (vector 2 arg-3 arg-2))))))))) -(define PartialEval-TTImp-case--12678-10861 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (vector 1 (+ 1 arg-16)))) -(define PartialEval-TTImp-case--12697-10795 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (vector 1 (+ 1 arg-17)))) -(define PartialEval-TTImp-case--12678-10706 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (vector 1 0)) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-n--12392-10690-findName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 'erased arg-15) (lambda (_-0) (vector 1 (+ 1 _-0))))))))) -(define PartialEval-TTImp-case--12392-10642 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (vector 1 (vector 0 arg-8 arg-4 arg-14)))) -(define PartialEval-TTImp-case--12501-10582 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (+ 1 arg-20))) -(define PartialEval-TTImp-case--12061-10163 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1))))))))) -(define PartialEval-TTImp-case--12029-10130 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-specialise arg-0 arg-7 arg-6 arg-5 arg-2 arg-4 e-1 arg-1 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (vector 1 e-2))) (else (vector 1 (PartialEval-TTImp-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1)))))))))))))) (else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1))))))))) -(define PartialEval-TTImp-case--11825-9988 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (lambda (eta-1) (PartialEval-TTImp-mkSpecDef 'erased arg-8 arg-7 arg-6 arg-5 arg-3 arg-14 arg-11 arg-2 arg-1 eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define PartialEval-TTImp-case--11757-9921 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((nhash (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (PartialEval-TTImp-getStatic eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-1))) arg-2))) (let ((pename (vector 0 (vector 1 "_PE" (vector 0 )) (vector 1 (Strings-Prelude-C-43C-43 "PE_" (Strings-Prelude-C-43C-43 (Name-Core-nameRoot arg-10) (Strings-Prelude-C-43C-43 "_" (Hex-Utils-asHex nhash)))))))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--11825-9988 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 nhash pename e-5 (NameMap-Data-lookup 'erased pename (let ((sc2 e-5)) (let ((e-23 (vector-ref sc2 24))) e-23)))) eta-0)))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define PartialEval-TTImp-case--11373-9860 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-8 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-2 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((PartialEval-TTImp-n--11373-9539-getSpecArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 0 arg-9 arg-1) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((nhash (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-getStatic eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-1))) arg-2))) (let ((pename (vector 0 (vector 1 "_PE" (vector 0 )) (vector 1 (Strings-Prelude-C-43C-43 "PE_" (Strings-Prelude-C-43C-43 (Name-Core-nameRoot e-5) (Strings-Prelude-C-43C-43 "_" (Hex-Utils-asHex nhash)))))))) (let ((act-26 (let ((act-26 (unbox arg-8))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--11825-9988 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5 e-1 _-0 nhash pename e-7 (NameMap-Data-lookup 'erased pename (let ((sc4 e-7)) (let ((e-23 (vector-ref sc4 24))) e-23)))) eta-0))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))) -(define PartialEval-TTImp-case--11493-9687 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 (vector 0 arg-13 (vector 0 e-1)) arg-14)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define PartialEval-TTImp-case--11442-9627 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles arg-0 e-5 arg-4 arg-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((PartialEval-TTImp-eraseInferred 'erased arg-8 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((PartialEval-TTImp-case--11493-9687 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-5 e-6 e-7 (PartialEval-TTImp-n--11373-9538-concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-0 e-7)) eta-0)))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 1 (vector 0 arg-13 (vector 1 )) arg-14))))))))) -(define PartialEval-TTImp-case--11389-9591 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (PartialEval-TTImp-case--11442-9627 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-1 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-13 arg-12))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define PartialEval-TTImp-case--11236-9444 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((argsE (PartialEval-TTImp-n--11128-9331-dropErased 'erased arg-1 arg-2 arg-4 0 (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 7))) e-6)) arg-5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) argsE) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-3) e-5))))))))))) (else (lambda (eta-0) (vector 1 arg-1))))))) -(define PartialEval-TTImp-case--11128-9399 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 e-2)))(else (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-7 (let ((sc4 e-8)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((argsE (PartialEval-TTImp-n--11128-9331-dropErased 'erased arg-1 arg-2 e-5 0 (let ((sc6 e-1)) (let ((e-24 (vector-ref sc6 7))) e-24)) e-3))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) argsE) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (TT-Core-apply 'erased e-5 (vector 1 e-5 (vector 1 ) e-7) e-10)))))))))) (else (vector 1 arg-1))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-3))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-3)))))))))))))))))) -(define PartialEval-TTImp-case--11161-9347 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 1 (vector 10 arg-7 1) (PartialEval-TTImp-n--11128-9331-dropErased 'erased arg-1 arg-2 arg-7 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-6) arg-5 arg-4))) (else (vector 1 arg-3 (PartialEval-TTImp-n--11128-9331-dropErased 'erased arg-1 arg-2 arg-7 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-6) arg-5 arg-4))))))) -(define PartialEval-TTImp-case--9941-9274 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 (NameMap-Data-insert 'erased arg-4 (vector 0 ) e-23) e-24 e-25)))))))))))))))))))))))))))))) -(define PartialEval-TTImp-case--10826-9104 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5)))))))))) (else (lambda (eta-0) (vector 1 (vector 1 )))))))) -(define PartialEval-TTImp-case--10255-9044 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 e-5))))))))) (else (vector 1 (vector 1 ))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (vector 0 (lambda (x) (PartialEval-TTImp-show_Show__ArgMode x)) (lambda (d) (lambda (x) (PartialEval-TTImp-showPrec_Show__ArgMode d x))))) (vector 0 e-2 e-5)))))))))))))) -(define PartialEval-TTImp-case--10433-8798 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31) (let ((sc0 arg-31)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "New patterns for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-n--9941-8248-showPat 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-1)) e-1)))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Check-Elab-TTImp-processDecl (vector 0 ) arg-9 arg-8 arg-7 (vector 1 (vector 2 ) (vector 0 )) (vector 0 ) (vector 0 ) (vector 2 arg-6 (vector 9 arg-18) e-1)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-setAllPublic arg-9 1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 arg-13)))))))))))))))) (else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-1 (vector 1 arg-6 (vector 1 ) arg-2))))))))) -(define PartialEval-TTImp-case--10255-8700 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (PartialEval-TTImp-n--9941-8247-unelabDef 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-2)) e-4) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Attempting to specialise:\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (PartialEval-TTImp-n--9941-8248-showPat 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-2)) e-5)))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-22 (vector 0 ) (let ((sc2 arg-5)) (let ((e-24 (vector-ref sc2 3))) e-24))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) ((PartialEval-TTImp-getSpecPats 'erased arg-9 arg-6 arg-4 arg-2 arg-1 e-6 arg-3 arg-12 e-4) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((act-26 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "New patterns for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-n--9941-8248-showPat 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-1)) e-7)))))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((act-27 ((Check-Elab-TTImp-processDecl (vector 0 ) arg-9 arg-8 arg-7 (vector 1 (vector 2 ) (vector 0 )) (vector 0 ) (vector 0 ) (vector 2 arg-6 (vector 9 arg-18) e-7)) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((act-28 (Context-Core-setAllPublic arg-9 1 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (vector 1 arg-13))))))))))))))) (else (vector 1 (PartialEval-TTImp-unload 'erased arg-1 (vector 1 arg-6 (vector 1 ) arg-2))))))))))))))))))(else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-1 (vector 1 arg-6 (vector 1 ) arg-2))))))))) -(define PartialEval-TTImp-case--9941-8523 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-2 eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (lambda (eta-2) (let ((act-25 (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-0 eta-2))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc4 1))) (vector 1 (vector 0 e-6))))))))) (else (vector 1 (vector 1 ))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (vector 0 (lambda (x) (PartialEval-TTImp-show_Show__ArgMode x)) (lambda (d) (lambda (x) (PartialEval-TTImp-showPrec_Show__ArgMode d x))))) (vector 0 e-2 e-6))))))))))))) arg-3) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Specialising " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Prelude-C-43C-43 ") by " (Name-Core-showSep ", " e-6)))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sty (PartialEval-TTImp-specialiseTy (vector 0 ) 0 arg-12 (let ((sc2 arg-5)) (let ((e-2 (vector-ref sc2 3))) e-2))))) (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Specialised type " (Name-Core-show_Show__Name arg-4))) (vector 0 ) sty eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-addDef arg-9 arg-4 (Context-Core-newDef arg-6 arg-4 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 ) sty (vector 2 ) (vector 0 )) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-addToSave arg-9 (vector 9 e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((specnames (PartialEval-TTImp-n--9941-8245-getAllRefs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (NameMap-Data-empty 'erased) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-3)))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (n) (lambda (eta-1) (vector 1 (vector 0 n (+ 1 0))))) (NameMap-Data-keys 'erased specnames)) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (let ((act-29 (unbox arg-9))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 ((PartialEval-TTImp-getReducible (vector 1 arg-2 (vector 0 )) (NameMap-Data-empty 'erased) e-10) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Context-Core-setFlag arg-9 arg-6 (vector 9 e-7) (vector 7 (List-Prelude-C-43C-43 'erased e-9 (NameMap-Data-toList 'erased e-11))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((_-0 (vector 0 ))) ((PartialEval-TTImp-case--10255-8700 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 _-0 e-5 sty e-6 e-7 e-8 specnames e-9 e-10 e-11 e-12 (let ((sc9 arg-5)) (let ((e-17 (vector-ref sc9 18))) e-17))) eta-0)))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Already specialised " (Name-Core-show_Show__Name arg-4))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (vector 1 arg-13))))))))))) -(define PartialEval-TTImp-case--10116-8441 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (vector 0 )) (else (let ((e-0 (vector-ref sc0 1))) (vector 1 (vector 0 arg-12 e-0)))))))) -(define PartialEval-TTImp-case--9941-8410 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (vector 0 )) (else (let ((e-0 (vector-ref sc1 1))) (vector 1 (vector 0 e-2 e-0))))))))))) -(define PartialEval-TTImp-case--9872-8194 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (PartialEval-TTImp-getReducible arg-1 arg-3 arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (let ((refsC-39 (NameMap-Data-insert 'erased arg-0 (Prelude-fromInteger_Num__Nat 65536) arg-3))) (let ((calls (Context-Core-refersTo e-2))) (PartialEval-TTImp-getReducible (List-Prelude-C-43C-43 'erased (NameMap-Data-keys 'erased calls) arg-1) refsC-39 arg-2))))))))) -(define PartialEval-TTImp-case--9857-8175 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-0 (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) ((PartialEval-TTImp-getReducible arg-1 arg-3 arg-2) eta-0)) (else (let ((e-2 (vector-ref sc2 1))) (let ((refsC-39 (NameMap-Data-insert 'erased arg-0 (Prelude-fromInteger_Num__Nat 65536) arg-3))) (let ((calls (Context-Core-refersTo e-2))) ((PartialEval-TTImp-getReducible (List-Prelude-C-43C-43 'erased (NameMap-Data-keys 'erased calls) arg-1) refsC-39 arg-2) eta-0)))))))))))))) (else (PartialEval-TTImp-getReducible arg-1 arg-3 arg-2)))))) -(define PartialEval-TTImp-case--9365-8079 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((dynnames (PartialEval-TTImp-n--9365-7695-mkDynNames 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 0 arg-3))) (let ((lhs (TTImp-TTImp-apply (vector 0 arg-8 arg-7) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 16 arg-8 eta-0)) dynnames)))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-4 (vector 0 arg-8 arg-6) dynnames arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 1 (vector 0 arg-8 lhs e-5) (vector 0 ))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-n--9365-7700-unelabPat 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-7 eta-1)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5)))))))))))))) -(define PartialEval-TTImp-case--9292-7637 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 1 arg-1 (PartialEval-TTImp-dropSpec 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-4) arg-3 arg-2))) (else (PartialEval-TTImp-dropSpec 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-4) arg-3 arg-2)))))) -(define PartialEval-TTImp-case--9174-7527 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-mkSubsts 'erased 0 arg-4 e-3 arg-3) (lambda (psubs) (let ((lhsC-39 (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-3))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-0 (vector 0 arg-1 (vector 0 (PartialEval-TTImp-substLocs arg-0 psubs lhsC-39) (PartialEval-TTImp-substLocs arg-0 psubs arg-3))))))))))))) -(define PartialEval-TTImp-case--8967-7351 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 1 (vector 0 e-4 (TT-Core-embed 'erased 'erased arg-7)) arg-6)))) ((5) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((sc1 e-9)) (case (vector-ref sc1 0) ((0) (let ((e-21 (vector-ref sc1 3))) (let ((sc2 e-10)) (case (vector-ref sc2 0) ((0) (let ((e-27 (vector-ref sc2 3))) (vector 1 (vector 1 (vector 0 e-21 (TT-Core-embed 'erased 'erased arg-7)) (vector 1 (vector 0 e-27 (TT-Core-embed 'erased 'erased arg-7)) arg-6)))))(else (let ((sc2 e-10)) (case (vector-ref sc2 0) ((0) (let ((e-15 (vector-ref sc2 3))) (vector 1 (vector 1 (vector 0 e-15 (TT-Core-embed 'erased 'erased arg-7)) arg-6))))(else (vector 0 )))))))))(else (let ((sc1 e-10)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 3))) (vector 1 (vector 1 (vector 0 e-15 (TT-Core-embed 'erased 'erased arg-7)) arg-6))))(else (vector 0 ))))))))))(else (vector 0 )))))) -(define PartialEval-TTImp-case--8930-7312 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 1 arg-6)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 3))) (vector 1 (vector 1 (vector 0 e-4 (TT-Core-embed 'erased 'erased e-2)) arg-6)))) ((5) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 3))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((e-27 (vector-ref sc3 3))) (vector 1 (vector 1 (vector 0 e-21 (TT-Core-embed 'erased 'erased e-2)) (vector 1 (vector 0 e-27 (TT-Core-embed 'erased 'erased e-2)) arg-6)))))(else (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((e-15 (vector-ref sc3 3))) (vector 1 (vector 1 (vector 0 e-15 (TT-Core-embed 'erased 'erased e-2)) arg-6))))(else (vector 0 )))))))))(else (let ((sc2 e-10)) (case (vector-ref sc2 0) ((0) (let ((e-15 (vector-ref sc2 3))) (vector 1 (vector 1 (vector 0 e-15 (TT-Core-embed 'erased 'erased e-2)) arg-6))))(else (vector 0 ))))))))))(else (vector 0 )))))))))) -(define PartialEval-TTImp-case--8764-7151 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) arg-6) (else (vector 0 arg-5 arg-4 arg-2)))))) -(define PartialEval-TTImp-case--8666-7073 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 3 arg-6 arg-4 (vector 2 arg-3 (vector 1 ) arg-1) (PartialEval-TTImp-specialiseTy (vector 1 arg-4 arg-0) (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-8) arg-7 arg-5))) (else (let ((e-2 (vector-ref sc0 1))) (PartialEval-TTImp-specialiseTy arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-8) arg-7 (SubstEnv-TT-Core-subst arg-0 arg-4 (TT-Core-embed 'erased 'erased e-2) arg-5)))))))) -(define PartialEval-TTImp-n--9365-7700-unelabPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 e-10 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((lhsC-39 (PartialEval-TTImp-n--9365-7699-dropArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5))) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (Normalise-Core-normaliseArgHoles e-2 e-8 e-6 e-11 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 e-9 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (vector 0 arg-8 lhsC-39 e-12))))))))))))))))))))))))))))))))))) -(define PartialEval-TTImp-n--9941-8247-unelabDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 e-10 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (Normalise-Core-normaliseArgHoles e-2 e-8 e-6 e-11 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 e-9 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (vector 0 arg-6 e-5 e-12)))))))))))))))))))))))))))))))))) -(define PartialEval-TTImp-n--9941-8248-showPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-1) (Strings-Prelude-C-43C-43 " = " (TTImp-TTImp-show_Show__RawImp e-2))))))(else "Can't happen"))))) -(define PartialEval-TTImp-n--9365-7698-reapply (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) arg-10) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (PartialEval-TTImp-n--9365-7698-reapply 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 8 arg-8 arg-10 e-7) e-3)) (else (let ((e-10 (vector-ref sc2 1))) (PartialEval-TTImp-n--9365-7698-reapply 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 9 arg-8 arg-10 (vector 1 e-10) e-7) e-3))))))))))))))) -(define PartialEval-TTImp-n--9365-7696-mkRHSargs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((2) (let ((e-17 (vector-ref sc1 2))) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-48 (vector-ref sc3 1))) (let ((e-49 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-51 (vector-ref sc4 1))) (let ((e-52 (vector-ref sc4 2))) (let ((sc5 e-51)) (case (vector-ref sc5 0) ((0) (let ((e-56 (vector-ref sc5 2))) (let ((sc6 e-56)) (case (vector-ref sc6 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-48))) e-49 e-52) eta-0)))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-37 (vector-ref sc6 1))) (let ((e-38 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-40 (vector-ref sc7 1))) (let ((e-41 (vector-ref sc7 2))) (let ((sc8 e-40)) (case (vector-ref sc8 0) ((0) (let ((e-45 (vector-ref sc8 2))) (let ((sc9 e-45)) (case (vector-ref sc9 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc9 e-17)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-29 (vector-ref sc10 1))) (let ((e-30 (vector-ref sc10 2))) (let ((sc11 e-29)) (case (vector-ref sc11 0) ((0) (let ((e-34 (vector-ref sc11 2))) (let ((sc12 e-34)) (case (vector-ref sc12 0) ((0) (let ((e-35 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-20 (vector-ref sc12 1))) (let ((e-21 (vector-ref sc12 2))) (let ((sc13 e-20)) (case (vector-ref sc13 0) ((0) (let ((e-25 (vector-ref sc13 2))) (let ((sc14 e-25)) (case (vector-ref sc14 0) ((0) (let ((e-26 (vector-ref sc14 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc15 act-24)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc15 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc16 act-25)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc16 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc17 act-26)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc17 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc14 arg-12)) (case (vector-ref sc14 0) ((1) (let ((e-1 (vector-ref sc14 1))) (let ((e-2 (vector-ref sc14 2))) (let ((sc15 arg-13)) (case (vector-ref sc15 0) ((1) (let ((e-4 (vector-ref sc15 1))) (let ((e-5 (vector-ref sc15 2))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (let ((e-9 (vector-ref sc16 2))) (let ((sc17 e-9)) (case (vector-ref sc17 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc13 arg-12)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((e-2 (vector-ref sc13 2))) (let ((sc14 arg-13)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((e-5 (vector-ref sc14 2))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (let ((e-9 (vector-ref sc15 2))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-20 (vector-ref sc11 1))) (let ((e-21 (vector-ref sc11 2))) (let ((sc12 e-20)) (case (vector-ref sc12 0) ((0) (let ((e-25 (vector-ref sc12 2))) (let ((sc13 e-25)) (case (vector-ref sc13 0) ((0) (let ((e-26 (vector-ref sc13 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc14 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc15 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc13 arg-12)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((e-2 (vector-ref sc13 2))) (let ((sc14 arg-13)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((e-5 (vector-ref sc14 2))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (let ((e-9 (vector-ref sc15 2))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc8 e-17)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-29 (vector-ref sc9 1))) (let ((e-30 (vector-ref sc9 2))) (let ((sc10 e-29)) (case (vector-ref sc10 0) ((0) (let ((e-34 (vector-ref sc10 2))) (let ((sc11 e-34)) (case (vector-ref sc11 0) ((0) (let ((e-35 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-20 (vector-ref sc11 1))) (let ((e-21 (vector-ref sc11 2))) (let ((sc12 e-20)) (case (vector-ref sc12 0) ((0) (let ((e-25 (vector-ref sc12 2))) (let ((sc13 e-25)) (case (vector-ref sc13 0) ((0) (let ((e-26 (vector-ref sc13 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc14 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc15 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc13 arg-12)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((e-2 (vector-ref sc13 2))) (let ((sc14 arg-13)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((e-5 (vector-ref sc14 2))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (let ((e-9 (vector-ref sc15 2))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc7 e-17)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-29 (vector-ref sc8 1))) (let ((e-30 (vector-ref sc8 2))) (let ((sc9 e-29)) (case (vector-ref sc9 0) ((0) (let ((e-34 (vector-ref sc9 2))) (let ((sc10 e-34)) (case (vector-ref sc10 0) ((0) (let ((e-35 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-29 (vector-ref sc7 1))) (let ((e-30 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((0) (let ((e-34 (vector-ref sc8 2))) (let ((sc9 e-34)) (case (vector-ref sc9 0) ((0) (let ((e-35 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 1))) (let ((e-38 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 1))) (let ((e-41 (vector-ref sc6 2))) (let ((sc7 e-40)) (case (vector-ref sc7 0) ((0) (let ((e-45 (vector-ref sc7 2))) (let ((sc8 e-45)) (case (vector-ref sc8 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc8 e-17)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-29 (vector-ref sc9 1))) (let ((e-30 (vector-ref sc9 2))) (let ((sc10 e-29)) (case (vector-ref sc10 0) ((0) (let ((e-34 (vector-ref sc10 2))) (let ((sc11 e-34)) (case (vector-ref sc11 0) ((0) (let ((e-35 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-20 (vector-ref sc11 1))) (let ((e-21 (vector-ref sc11 2))) (let ((sc12 e-20)) (case (vector-ref sc12 0) ((0) (let ((e-25 (vector-ref sc12 2))) (let ((sc13 e-25)) (case (vector-ref sc13 0) ((0) (let ((e-26 (vector-ref sc13 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc14 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc15 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc13 arg-12)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((e-2 (vector-ref sc13 2))) (let ((sc14 arg-13)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((e-5 (vector-ref sc14 2))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (let ((e-9 (vector-ref sc15 2))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc7 e-17)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-29 (vector-ref sc8 1))) (let ((e-30 (vector-ref sc8 2))) (let ((sc9 e-29)) (case (vector-ref sc9 0) ((0) (let ((e-34 (vector-ref sc9 2))) (let ((sc10 e-34)) (case (vector-ref sc10 0) ((0) (let ((e-35 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-29 (vector-ref sc7 1))) (let ((e-30 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((0) (let ((e-34 (vector-ref sc8 2))) (let ((sc9 e-34)) (case (vector-ref sc9 0) ((0) (let ((e-35 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc5 e-17)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-29 (vector-ref sc6 1))) (let ((e-30 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((0) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((0) (let ((e-35 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-37 (vector-ref sc4 1))) (let ((e-38 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-40 (vector-ref sc5 1))) (let ((e-41 (vector-ref sc5 2))) (let ((sc6 e-40)) (case (vector-ref sc6 0) ((0) (let ((e-45 (vector-ref sc6 2))) (let ((sc7 e-45)) (case (vector-ref sc7 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc7 e-17)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-29 (vector-ref sc8 1))) (let ((e-30 (vector-ref sc8 2))) (let ((sc9 e-29)) (case (vector-ref sc9 0) ((0) (let ((e-34 (vector-ref sc9 2))) (let ((sc10 e-34)) (case (vector-ref sc10 0) ((0) (let ((e-35 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-29 (vector-ref sc7 1))) (let ((e-30 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((0) (let ((e-34 (vector-ref sc8 2))) (let ((sc9 e-34)) (case (vector-ref sc9 0) ((0) (let ((e-35 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc5 e-17)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-29 (vector-ref sc6 1))) (let ((e-30 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((0) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((0) (let ((e-35 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc4 e-17)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-29 (vector-ref sc5 1))) (let ((e-30 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((0) (let ((e-34 (vector-ref sc6 2))) (let ((sc7 e-34)) (case (vector-ref sc7 0) ((0) (let ((e-35 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-37 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-40 (vector-ref sc4 1))) (let ((e-41 (vector-ref sc4 2))) (let ((sc5 e-40)) (case (vector-ref sc5 0) ((0) (let ((e-45 (vector-ref sc5 2))) (let ((sc6 e-45)) (case (vector-ref sc6 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-29 (vector-ref sc7 1))) (let ((e-30 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((0) (let ((e-34 (vector-ref sc8 2))) (let ((sc9 e-34)) (case (vector-ref sc9 0) ((0) (let ((e-35 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc5 e-17)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-29 (vector-ref sc6 1))) (let ((e-30 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((0) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((0) (let ((e-35 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc4 e-17)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-29 (vector-ref sc5 1))) (let ((e-30 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((0) (let ((e-34 (vector-ref sc6 2))) (let ((sc7 e-34)) (case (vector-ref sc7 0) ((0) (let ((e-35 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc3 e-17)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-29 (vector-ref sc4 1))) (let ((e-30 (vector-ref sc4 2))) (let ((sc5 e-29)) (case (vector-ref sc5 0) ((0) (let ((e-34 (vector-ref sc5 2))) (let ((sc6 e-34)) (case (vector-ref sc6 0) ((0) (let ((e-35 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-20)) (case (vector-ref sc4 0) ((0) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (let ((e-26 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))(else (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((e-37 (vector-ref sc2 1))) (let ((e-38 (vector-ref sc2 2))) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-40 (vector-ref sc3 1))) (let ((e-41 (vector-ref sc3 2))) (let ((sc4 e-40)) (case (vector-ref sc4 0) ((0) (let ((e-45 (vector-ref sc4 2))) (let ((sc5 e-45)) (case (vector-ref sc5 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc5 e-17)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-29 (vector-ref sc6 1))) (let ((e-30 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((0) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((0) (let ((e-35 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc4 e-17)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-29 (vector-ref sc5 1))) (let ((e-30 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((0) (let ((e-34 (vector-ref sc6 2))) (let ((sc7 e-34)) (case (vector-ref sc7 0) ((0) (let ((e-35 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc3 e-17)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-29 (vector-ref sc4 1))) (let ((e-30 (vector-ref sc4 2))) (let ((sc5 e-29)) (case (vector-ref sc5 0) ((0) (let ((e-34 (vector-ref sc5 2))) (let ((sc6 e-34)) (case (vector-ref sc6 0) ((0) (let ((e-35 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-20)) (case (vector-ref sc4 0) ((0) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (let ((e-26 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc2 e-17)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-29 (vector-ref sc3 1))) (let ((e-30 (vector-ref sc3 2))) (let ((sc4 e-29)) (case (vector-ref sc4 0) ((0) (let ((e-34 (vector-ref sc4 2))) (let ((sc5 e-34)) (case (vector-ref sc5 0) ((0) (let ((e-35 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-20)) (case (vector-ref sc4 0) ((0) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (let ((e-26 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((sc3 e-20)) (case (vector-ref sc3 0) ((0) (let ((e-25 (vector-ref sc3 2))) (let ((sc4 e-25)) (case (vector-ref sc4 0) ((0) (let ((e-26 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-4)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))) -(define PartialEval-TTImp-n--9365-7695-mkDynNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (vector 1 (Strings-Prelude-C-43C-43 "_pe" (Prelude-show_Show__Int arg-10)) (PartialEval-TTImp-n--9365-7695-mkDynNames 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (b+ 1 arg-10 63) e-3)))(else (PartialEval-TTImp-n--9365-7695-mkDynNames 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3))))))(else (PartialEval-TTImp-n--9365-7695-mkDynNames 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3))))))))))) -(define PartialEval-TTImp-n--11373-9539-getSpecArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-n--11373-9539-getSpecArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-9) arg-10 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--11442-9627 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6 e-7 e-3 arg-10 arg-9 e-1 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-9 arg-10)) eta-0)))) (else (vector 1 (vector 0 ))))))))))))))))))))) -(define PartialEval-TTImp-n--9365-7697-getRawArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((8) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (PartialEval-TTImp-n--9365-7697-getRawArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 (vector 0 (vector 0 ) e-2) arg-10) e-1)))) ((9) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (PartialEval-TTImp-n--9365-7697-getRawArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 (vector 0 (vector 1 e-8) e-6) arg-10) e-4)))(else arg-10)))))))(else arg-10))))) -(define PartialEval-TTImp-n--9941-8245-getAllRefs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (PartialEval-TTImp-n--9941-8245-getAllRefs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2)) (else (let ((e-4 (vector-ref sc1 1))) (TT-Core-addRefs 'erased 1 (vector 1 "_") (PartialEval-TTImp-n--9941-8245-getAllRefs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2) e-4)))))))) (else arg-10))))) -(define PartialEval-TTImp-n--12392-10690-findName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (PartialEval-TTImp-case--12678-10706 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 'erased e-5 e-4 e-3 e-1 (Prelude-C-61C-61_Eq__Int arg-2 e-5)))))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-n--12392-10690-findName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 'erased e-3) (lambda (_-0) (vector 1 (+ 1 _-0))))))))))))))) -(define PartialEval-TTImp-n--12416-11318-extendEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) arg-15) (else (let ((e-3 (vector-ref sc0 3))) (vector 1 (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 10 arg-4 1)) (PartialEval-TTImp-n--12416-11318-extendEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 'erased 'erased e-3 arg-15)))))))) -(define PartialEval-TTImp-n--11128-9331-dropErased (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (PartialEval-TTImp-case--11161-9347 'erased arg-1 arg-2 e-2 e-3 arg-5 arg-4 arg-3 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-4 arg-5))))))))) -(define PartialEval-TTImp-n--9365-7699-dropArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (PartialEval-TTImp-n--9365-7698-reapply 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 arg-8 arg-10) (PartialEval-TTImp-dropSpec 'erased 0 arg-2 (PartialEval-TTImp-n--9365-7697-getRawArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 ) arg-11))))) -(define PartialEval-TTImp-n--11373-9537-dropAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 (PartialEval-TTImp-n--11373-9537-dropAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3)))))))) -(define PartialEval-TTImp-n--11373-9538-concrete (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (TT-Core-shrinkTerm 'erased 'erased arg-10 (PartialEval-TTImp-n--11373-9537-dropAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9)))) -(define PartialEval-TTImp-n--12392-10553-addLater (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) arg-16) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (PartialEval-TTImp-case--12501-10582 arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased 'erased arg-16 e-2 e-3 'erased (PartialEval-TTImp-n--12392-10553-addLater arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased 'erased arg-16 e-3 'erased))))))))) +(define 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--5988-6850-dropWithArgs 'erased arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-3 arg-8) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-25 (Context-Core-isUnboundImplicits arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-setUnboundImplicits arg-1 0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (BindImplicits-TTImp-bindNames arg-1 1 arg-7 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-28 (BindImplicits-TTImp-bindNames arg-1 1 e-2 ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((_-1 (vector 0 e-9 e-4))) (let ((sc7 e-10)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((act-29 (Context-Core-setUnboundImplicits arg-1 e-6 ext-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((_-2 (vector 0 e-12 e-11))) ((WithClause-TTImp-case--6203-7066 'erased arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-3 _-0 e-6 e-7 e-9 e-4 _-1 e-12 e-11 _-2 e-13 (List-Data-reverse 'erased e-3)) ext-0))))))))))))))))))))))))))))))))))))))))))))) +(define WithClause-TTImp-getMatch (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((16) (let ((e-39 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-39 arg-2) (vector 0 )))))) ((31) (lambda (eta-0) (vector 1 (vector 0 )))) ((0) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((sc1 e-43)) (case (vector-ref sc1 0) ((0) (let ((e-62 (vector-ref sc1 1))) (let ((e-63 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((0) (let ((e-64 (vector-ref sc2 1))) (let ((e-65 (vector-ref sc2 2))) (let ((sc3 e-65)) (case (vector-ref sc3 0) ((0) (let ((e-66 (vector-ref sc3 1))) (let ((e-67 (vector-ref sc3 2))) (WithClause-TTImp-case--5203-6173 e-42 e-63 e-62 e-67 e-66 e-64 arg-0 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-63 e-67) (lambda () (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) e-66 e-62)))))))(else (WithClause-TTImp-case--5203-6219 e-42 e-63 e-62 e-65 e-64 arg-0 (Name-Core-C-61C-61_Eq__Name e-63 e-65))))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((0) (let ((e-60 (vector-ref sc2 1))) (let ((e-61 (vector-ref sc2 2))) (WithClause-TTImp-case--5203-6260 e-42 e-43 e-61 e-60 arg-0 (Name-Core-C-61C-61_Eq__Name e-43 e-61)))))(else (let ((sc2 arg-0)) (cond ((equal? sc2 0) (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((9) (let ((e-31 (vector-ref sc3 2))) (let ((e-33 (vector-ref sc3 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((9) (let ((e-26 (vector-ref sc3 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((12) (let ((e-12 (vector-ref sc3 3))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((12) (let ((e-19 (vector-ref sc4 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-9 (vector-ref sc4 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc4 arg-1)) (case (vector-ref sc4 0) ((28) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((27) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc3 3))) (let ((e-16 (vector-ref sc3 4))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((17) (let ((e-21 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 3))) (let ((e-24 (vector-ref sc5 4))) (let ((sc6 e-23)) (case (vector-ref sc6 0) ((1) (let ((e-25 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc2 1) (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((9) (let ((e-35 (vector-ref sc3 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((9) (let ((e-26 (vector-ref sc3 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((12) (let ((e-12 (vector-ref sc3 3))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((12) (let ((e-19 (vector-ref sc4 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-9 (vector-ref sc4 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc4 arg-1)) (case (vector-ref sc4 0) ((28) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((27) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc3 3))) (let ((e-16 (vector-ref sc3 4))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((17) (let ((e-21 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 3))) (let ((e-24 (vector-ref sc5 4))) (let ((sc6 e-23)) (case (vector-ref sc6 0) ((1) (let ((e-25 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-60 (vector-ref sc1 1))) (let ((e-61 (vector-ref sc1 2))) (WithClause-TTImp-case--5203-6260 e-42 e-43 e-61 e-60 arg-0 (Name-Core-C-61C-61_Eq__Name e-43 e-61)))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-31 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-35 (vector-ref sc2 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))))))))))) ((1) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (let ((e-46 (vector-ref sc0 3))) (let ((e-47 (vector-ref sc0 4))) (let ((e-48 (vector-ref sc0 5))) (let ((e-49 (vector-ref sc0 6))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-68 (vector-ref sc1 1))) (let ((e-69 (vector-ref sc1 2))) (let ((e-70 (vector-ref sc1 3))) (let ((e-71 (vector-ref sc1 4))) (let ((e-72 (vector-ref sc1 5))) (let ((e-73 (vector-ref sc1 6))) (WithClause-TTImp-case--5203-6332 e-44 e-49 e-48 e-47 e-46 e-45 e-73 e-72 e-71 e-70 e-69 e-68 arg-0 (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-45 e-69) (lambda () (Prelude-C-38C-38 (WithClause-TTImp-n--5203-6291-samePiInfo e-44 e-49 e-48 e-47 e-46 e-45 e-73 e-72 e-71 e-70 e-69 e-68 arg-0 e-46 e-70) (lambda () (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-47 e-71)))))))))))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-31 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-35 (vector-ref sc2 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))))))))))) ((8) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((8) (let ((e-75 (vector-ref sc1 2))) (let ((e-76 (vector-ref sc1 3))) (WithClause-TTImp-matchAll arg-0 (vector 1 (vector 0 e-51 e-75) (vector 1 (vector 0 e-52 e-76) (vector 0 )))))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-31 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-35 (vector-ref sc2 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))))))) ((9) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (let ((e-55 (vector-ref sc0 3))) (let ((e-56 (vector-ref sc0 4))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-77 (vector-ref sc1 1))) (let ((e-78 (vector-ref sc1 2))) (let ((e-79 (vector-ref sc1 3))) (let ((e-80 (vector-ref sc1 4))) (WithClause-TTImp-case--5203-6436 e-53 e-56 e-55 e-54 e-80 e-79 e-78 e-77 arg-0 (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-55 e-79)))))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-31 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-35 (vector-ref sc2 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))))))))) ((10) (let ((e-58 (vector-ref sc0 2))) (let ((e-59 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) (let ((e-82 (vector-ref sc1 2))) (let ((e-83 (vector-ref sc1 3))) (WithClause-TTImp-matchAll arg-0 (vector 1 (vector 0 e-58 e-82) (vector 1 (vector 0 e-59 e-83) (vector 0 )))))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-31 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-35 (vector-ref sc2 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))))))))(else (let ((sc0 arg-0)) (cond ((equal? sc0 0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-31 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc0 1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-35 (vector-ref sc1 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((9) (let ((e-26 (vector-ref sc0 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((12) (let ((e-12 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((12) (let ((e-19 (vector-ref sc1 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc0 3))) (let ((e-16 (vector-ref sc0 4))) (let ((sc1 e-15)) (case (vector-ref sc1 0) ((1) (let ((e-20 (vector-ref sc1 1))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-21 (vector-ref sc2 1))) (let ((e-23 (vector-ref sc2 3))) (let ((e-24 (vector-ref sc2 4))) (let ((sc3 e-23)) (case (vector-ref sc3 0) ((1) (let ((e-25 (vector-ref sc3 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((17) (let ((e-9 (vector-ref sc0 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((28) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((27) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (WithClause-TTImp-case--5203-6617 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))))))) +(define WithClause-TTImp-getArgMatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-2)(else (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((2) (let ((sc4 e-12)) (case (vector-ref sc4 0) ((1) (let ((e-14 (vector-ref sc4 1))) (WithClause-TTImp-case--5869-6756 e-14 arg-3 arg-2 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) e-14 arg-3))))(else (vector 11 arg-0 (Prelude-fromInteger_Num__Nat 500))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (let ((e-6 (vector-ref sc5 1))) (WithClause-TTImp-case--5869-6809 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) e-6 arg-3))))(else (vector 31 arg-0 0)))))))(else (vector 31 arg-0 0))))))(else (vector 31 arg-0 0))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-6 (vector-ref sc4 1))) (WithClause-TTImp-case--5869-6809 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) e-6 arg-3))))(else (vector 31 arg-0 0)))))))(else (vector 31 arg-0 0))))))(else (vector 31 arg-0 0)))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-6 (vector-ref sc3 1))) (WithClause-TTImp-case--5869-6809 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) e-6 arg-3))))(else (vector 31 arg-0 0)))))))(else (vector 31 arg-0 0))))))(else (vector 31 arg-0 0))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (WithClause-TTImp-case--5869-6809 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) e-6 arg-3))))(else (vector 31 arg-0 0)))))))(else (vector 31 arg-0 0))))))(else (vector 31 arg-0 0)))))))))))) +(define PartialEval-TTImp-case--12465-11921 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((6) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-1 arg-8 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-1 e-6 arg-13))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-3) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (TT-Core-apply 'erased arg-5 (vector 8 arg-5 arg-4 e-5) arg-13))))))))))))) +(define PartialEval-TTImp-case--13519-11576 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 arg-15 arg-6 arg-5 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-5))))))))))))) +(define PartialEval-TTImp-case--13476-11453 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-5)))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-7 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-3) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((PartialEval-TTImp-specialise (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-11 arg-10 arg-9 arg-4 (PartialEval-TTImp-n--12465-11387-extendEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 'erased 'erased arg-6 arg-5) arg-12 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 arg-4 t)) e-6)) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 e-1))) (else (let ((act-27 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 e-5 arg-6 arg-5 arg-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-8))))))))))))))))))))))))))))))) +(define PartialEval-TTImp-case--12465-11423 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (PartialEval-TTImp-case--13476-11453 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-1 _-0 (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 6))) e-5)))))) (else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-5))))))))))))) +(define PartialEval-TTImp-case--12441-10981 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 arg-6 (vector 0 ) e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-6 (vector 0 ) (vector 2 arg-3 arg-2))))))))) +(define PartialEval-TTImp-case--12727-10930 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (vector 1 (+ 1 arg-16)))) +(define PartialEval-TTImp-case--12746-10864 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (vector 1 (+ 1 arg-17)))) +(define PartialEval-TTImp-case--12727-10775 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (vector 1 0)) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-n--12441-10759-findName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 'erased arg-15) (lambda (_-0) (vector 1 (+ 1 _-0))))))))) +(define PartialEval-TTImp-case--12441-10711 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (vector 1 (vector 0 arg-8 arg-4 arg-14)))) +(define PartialEval-TTImp-case--12550-10651 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (+ 1 arg-20))) +(define PartialEval-TTImp-case--12110-10232 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1))))))))) +(define PartialEval-TTImp-case--12078-10199 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-specialise arg-0 arg-7 arg-6 arg-5 arg-2 arg-4 e-1 arg-1 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (vector 1 e-2))) (else (vector 1 (PartialEval-TTImp-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1)))))))))))))) (else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1))))))))) +(define PartialEval-TTImp-case--11874-10057 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (lambda (eta-1) (PartialEval-TTImp-mkSpecDef 'erased arg-8 arg-7 arg-6 arg-5 arg-3 arg-14 arg-11 arg-2 arg-1 eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define PartialEval-TTImp-case--11806-9990 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((nhash (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (PartialEval-TTImp-getStatic eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-1))) arg-2))) (let ((pename (vector 0 (vector 1 "_PE" (vector 0 )) (vector 1 (Strings-Prelude-C-43C-43 "PE_" (Strings-Prelude-C-43C-43 (Name-Core-nameRoot arg-10) (Strings-Prelude-C-43C-43 "_" (Hex-Utils-asHex nhash)))))))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--11874-10057 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 nhash pename e-5 (NameMap-Data-lookup 'erased pename (let ((sc2 e-5)) (let ((e-23 (vector-ref sc2 24))) e-23)))) eta-0)))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define PartialEval-TTImp-case--11422-9929 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-8 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) arg-2 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((PartialEval-TTImp-n--11422-9608-getSpecArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 0 arg-9 arg-1) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((nhash (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-getStatic eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-1))) arg-2))) (let ((pename (vector 0 (vector 1 "_PE" (vector 0 )) (vector 1 (Strings-Prelude-C-43C-43 "PE_" (Strings-Prelude-C-43C-43 (Name-Core-nameRoot e-5) (Strings-Prelude-C-43C-43 "_" (Hex-Utils-asHex nhash)))))))) (let ((act-26 (let ((act-26 (unbox arg-8))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--11874-10057 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5 e-1 _-0 nhash pename e-7 (NameMap-Data-lookup 'erased pename (let ((sc4 e-7)) (let ((e-23 (vector-ref sc4 24))) e-23)))) eta-0))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))) +(define PartialEval-TTImp-case--11542-9756 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 (vector 0 arg-13 (vector 0 e-1)) arg-14)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define PartialEval-TTImp-case--11491-9696 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles arg-0 e-5 arg-4 arg-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((PartialEval-TTImp-eraseInferred 'erased arg-8 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((PartialEval-TTImp-case--11542-9756 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-5 e-6 e-7 (PartialEval-TTImp-n--11422-9607-concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-0 e-7)) eta-0)))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 1 (vector 0 arg-13 (vector 1 )) arg-14))))))))) +(define PartialEval-TTImp-case--11438-9660 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (PartialEval-TTImp-case--11491-9696 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-1 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-13 arg-12))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define PartialEval-TTImp-case--11285-9513 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((argsE (PartialEval-TTImp-n--11177-9400-dropErased 'erased arg-1 arg-2 arg-4 0 (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 7))) e-6)) arg-5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) argsE) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-3) e-5))))))))))) (else (lambda (eta-0) (vector 1 arg-1))))))) +(define PartialEval-TTImp-case--11177-9468 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 e-2)))(else (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-7 (let ((sc4 e-8)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((argsE (PartialEval-TTImp-n--11177-9400-dropErased 'erased arg-1 arg-2 e-5 0 (let ((sc6 e-1)) (let ((e-24 (vector-ref sc6 7))) e-24)) e-3))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) argsE) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (TT-Core-apply 'erased e-5 (vector 1 e-5 (vector 1 ) e-7) e-10)))))))))) (else (vector 1 arg-1))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-3))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-3)))))))))))))))))) +(define PartialEval-TTImp-case--11210-9416 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 1 (vector 10 arg-7 1) (PartialEval-TTImp-n--11177-9400-dropErased 'erased arg-1 arg-2 arg-7 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-6) arg-5 arg-4))) (else (vector 1 arg-3 (PartialEval-TTImp-n--11177-9400-dropErased 'erased arg-1 arg-2 arg-7 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-6) arg-5 arg-4))))))) +(define PartialEval-TTImp-case--9990-9343 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 (NameMap-Data-insert 'erased arg-4 (vector 0 ) e-23) e-24 e-25)))))))))))))))))))))))))))))) +(define PartialEval-TTImp-case--10875-9173 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5)))))))))) (else (lambda (eta-0) (vector 1 (vector 1 )))))))) +(define PartialEval-TTImp-case--10304-9113 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 e-5))))))))) (else (vector 1 (vector 1 ))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (vector 0 (lambda (x) (PartialEval-TTImp-show_Show__ArgMode x)) (lambda (d) (lambda (x) (PartialEval-TTImp-showPrec_Show__ArgMode d x))))) (vector 0 e-2 e-5)))))))))))))) +(define PartialEval-TTImp-case--10482-8867 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31) (let ((sc0 arg-31)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "New patterns for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-n--9990-8317-showPat 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-1)) e-1)))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Check-Elab-TTImp-processDecl (vector 0 ) arg-9 arg-8 arg-7 (vector 1 (vector 2 ) (vector 0 )) (vector 0 ) (vector 0 ) (vector 2 arg-6 (vector 9 arg-18) e-1)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-setAllPublic arg-9 1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 arg-13)))))))))))))))) (else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-1 (vector 1 arg-6 (vector 1 ) arg-2))))))))) +(define PartialEval-TTImp-case--10304-8769 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (PartialEval-TTImp-n--9990-8316-unelabDef 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-2)) e-4) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Attempting to specialise:\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (PartialEval-TTImp-n--9990-8317-showPat 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-2)) e-5)))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-22 (vector 0 ) (let ((sc2 arg-5)) (let ((e-24 (vector-ref sc2 3))) e-24))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) ((PartialEval-TTImp-getSpecPats 'erased arg-9 arg-6 arg-4 arg-2 arg-1 e-6 arg-3 arg-12 e-4) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((act-26 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "New patterns for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-n--9990-8317-showPat 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-1)) e-7)))))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((act-27 ((Check-Elab-TTImp-processDecl (vector 0 ) arg-9 arg-8 arg-7 (vector 1 (vector 2 ) (vector 0 )) (vector 0 ) (vector 0 ) (vector 2 arg-6 (vector 9 arg-18) e-7)) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((act-28 (Context-Core-setAllPublic arg-9 1 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (vector 1 arg-13))))))))))))))) (else (vector 1 (PartialEval-TTImp-unload 'erased arg-1 (vector 1 arg-6 (vector 1 ) arg-2))))))))))))))))))(else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-1 (vector 1 arg-6 (vector 1 ) arg-2))))))))) +(define PartialEval-TTImp-case--9990-8592 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) arg-2 eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (lambda (eta-2) (let ((act-25 (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-0 eta-2))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc4 1))) (vector 1 (vector 0 e-6))))))))) (else (vector 1 (vector 1 ))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (vector 0 (lambda (x) (PartialEval-TTImp-show_Show__ArgMode x)) (lambda (d) (lambda (x) (PartialEval-TTImp-showPrec_Show__ArgMode d x))))) (vector 0 e-2 e-6))))))))))))) arg-3) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Specialising " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Prelude-C-43C-43 ") by " (Name-Core-showSep ", " e-6)))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sty (PartialEval-TTImp-specialiseTy (vector 0 ) 0 arg-12 (let ((sc2 arg-5)) (let ((e-2 (vector-ref sc2 3))) e-2))))) (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Specialised type " (Name-Core-show_Show__Name arg-4))) (vector 0 ) sty eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-addDef arg-9 arg-4 (Context-Core-newDef arg-6 arg-4 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 ) sty (vector 2 ) (vector 0 )) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-addToSave arg-9 (vector 9 e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((specnames (PartialEval-TTImp-n--9990-8314-getAllRefs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (NameMap-Data-empty 'erased) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-3)))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (n) (lambda (eta-1) (vector 1 (vector 0 n (+ 1 0))))) ((NameMap-Data-keys 'erased) specnames)) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (let ((act-29 (unbox arg-9))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 ((PartialEval-TTImp-getReducible (vector 1 arg-2 (vector 0 )) (NameMap-Data-empty 'erased) e-10) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Context-Core-setFlag arg-9 arg-6 (vector 9 e-7) (vector 7 (List-Prelude-C-43C-43 'erased e-9 (NameMap-Data-toList 'erased e-11))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((_-0 (vector 0 ))) ((PartialEval-TTImp-case--10304-8769 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 _-0 e-5 sty e-6 e-7 e-8 specnames e-9 e-10 e-11 e-12 (let ((sc9 arg-5)) (let ((e-17 (vector-ref sc9 18))) e-17))) eta-0)))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Already specialised " (Name-Core-show_Show__Name arg-4))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (vector 1 arg-13))))))))))) +(define PartialEval-TTImp-case--10165-8510 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (vector 0 )) (else (let ((e-0 (vector-ref sc0 1))) (vector 1 (vector 0 arg-12 e-0)))))))) +(define PartialEval-TTImp-case--9990-8479 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (vector 0 )) (else (let ((e-0 (vector-ref sc1 1))) (vector 1 (vector 0 e-2 e-0))))))))))) +(define PartialEval-TTImp-case--9921-8263 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (PartialEval-TTImp-getReducible arg-1 arg-3 arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (let ((refsC-39 (NameMap-Data-insert 'erased arg-0 (Prelude-fromInteger_Num__Nat 65536) arg-3))) (let ((calls (Context-Core-refersTo e-2))) (PartialEval-TTImp-getReducible (List-Prelude-C-43C-43 'erased ((NameMap-Data-keys 'erased) calls) arg-1) refsC-39 arg-2))))))))) +(define PartialEval-TTImp-case--9906-8244 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-0 (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) ((PartialEval-TTImp-getReducible arg-1 arg-3 arg-2) eta-0)) (else (let ((e-2 (vector-ref sc2 1))) (let ((refsC-39 (NameMap-Data-insert 'erased arg-0 (Prelude-fromInteger_Num__Nat 65536) arg-3))) (let ((calls (Context-Core-refersTo e-2))) ((PartialEval-TTImp-getReducible (List-Prelude-C-43C-43 'erased ((NameMap-Data-keys 'erased) calls) arg-1) refsC-39 arg-2) eta-0)))))))))))))) (else (PartialEval-TTImp-getReducible arg-1 arg-3 arg-2)))))) +(define PartialEval-TTImp-case--9414-8148 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((dynnames (PartialEval-TTImp-n--9414-7764-mkDynNames 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 0 arg-3))) (let ((lhs (TTImp-TTImp-apply (vector 0 arg-8 arg-7) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 16 arg-8 eta-0)) dynnames)))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-4 (vector 0 arg-8 arg-6) dynnames arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 1 (vector 0 arg-8 lhs e-5) (vector 0 ))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-n--9414-7769-unelabPat 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-7 eta-1)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5)))))))))))))) +(define PartialEval-TTImp-case--9341-7706 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 1 arg-1 (PartialEval-TTImp-dropSpec 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-4) arg-3 arg-2))) (else (PartialEval-TTImp-dropSpec 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-4) arg-3 arg-2)))))) +(define PartialEval-TTImp-case--9223-7596 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-mkSubsts 'erased 0 arg-4 e-3 arg-3) (lambda (psubs) (let ((lhsC-39 (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-3))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-0 (vector 0 arg-1 (vector 0 (PartialEval-TTImp-substLocs arg-0 psubs lhsC-39) (PartialEval-TTImp-substLocs arg-0 psubs arg-3))))))))))))) +(define PartialEval-TTImp-case--9016-7420 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 1 (vector 0 e-4 (TT-Core-embed 'erased 'erased arg-7)) arg-6)))) ((5) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((sc1 e-9)) (case (vector-ref sc1 0) ((0) (let ((e-21 (vector-ref sc1 3))) (let ((sc2 e-10)) (case (vector-ref sc2 0) ((0) (let ((e-27 (vector-ref sc2 3))) (vector 1 (vector 1 (vector 0 e-21 (TT-Core-embed 'erased 'erased arg-7)) (vector 1 (vector 0 e-27 (TT-Core-embed 'erased 'erased arg-7)) arg-6)))))(else (let ((sc2 e-10)) (case (vector-ref sc2 0) ((0) (let ((e-15 (vector-ref sc2 3))) (vector 1 (vector 1 (vector 0 e-15 (TT-Core-embed 'erased 'erased arg-7)) arg-6))))(else (vector 0 )))))))))(else (let ((sc1 e-10)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 3))) (vector 1 (vector 1 (vector 0 e-15 (TT-Core-embed 'erased 'erased arg-7)) arg-6))))(else (vector 0 ))))))))))(else (vector 0 )))))) +(define PartialEval-TTImp-case--8979-7381 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 1 arg-6)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 3))) (vector 1 (vector 1 (vector 0 e-4 (TT-Core-embed 'erased 'erased e-2)) arg-6)))) ((5) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 3))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((e-27 (vector-ref sc3 3))) (vector 1 (vector 1 (vector 0 e-21 (TT-Core-embed 'erased 'erased e-2)) (vector 1 (vector 0 e-27 (TT-Core-embed 'erased 'erased e-2)) arg-6)))))(else (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((e-15 (vector-ref sc3 3))) (vector 1 (vector 1 (vector 0 e-15 (TT-Core-embed 'erased 'erased e-2)) arg-6))))(else (vector 0 )))))))))(else (let ((sc2 e-10)) (case (vector-ref sc2 0) ((0) (let ((e-15 (vector-ref sc2 3))) (vector 1 (vector 1 (vector 0 e-15 (TT-Core-embed 'erased 'erased e-2)) arg-6))))(else (vector 0 ))))))))))(else (vector 0 )))))))))) +(define PartialEval-TTImp-case--8813-7220 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) arg-6) (else (vector 0 arg-5 arg-4 arg-2)))))) +(define PartialEval-TTImp-case--8715-7142 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 3 arg-6 arg-4 (vector 2 arg-3 (vector 1 ) arg-1) (PartialEval-TTImp-specialiseTy (vector 1 arg-4 arg-0) (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-8) arg-7 arg-5))) (else (let ((e-2 (vector-ref sc0 1))) (PartialEval-TTImp-specialiseTy arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-8) arg-7 (SubstEnv-TT-Core-subst arg-0 arg-4 (TT-Core-embed 'erased 'erased e-2) arg-5)))))))) +(define PartialEval-TTImp-n--9414-7769-unelabPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 e-10 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((lhsC-39 (PartialEval-TTImp-n--9414-7768-dropArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5))) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (Normalise-Core-normaliseArgHoles e-2 e-8 e-6 e-11 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 e-9 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (vector 0 arg-8 lhsC-39 e-12))))))))))))))))))))))))))))))))))) +(define PartialEval-TTImp-n--9990-8316-unelabDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 e-10 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (Normalise-Core-normaliseArgHoles e-2 e-8 e-6 e-11 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 e-9 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (vector 0 arg-6 e-5 e-12)))))))))))))))))))))))))))))))))) +(define PartialEval-TTImp-n--9990-8317-showPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-1) (Strings-Prelude-C-43C-43 " = " (TTImp-TTImp-show_Show__RawImp e-2))))))(else "Can't happen"))))) +(define PartialEval-TTImp-n--9414-7767-reapply (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) arg-10) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (PartialEval-TTImp-n--9414-7767-reapply 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 8 arg-8 arg-10 e-7) e-3)) (else (let ((e-10 (vector-ref sc2 1))) (PartialEval-TTImp-n--9414-7767-reapply 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 9 arg-8 arg-10 (vector 1 e-10) e-7) e-3))))))))))))))) +(define PartialEval-TTImp-n--9414-7765-mkRHSargs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((2) (let ((e-17 (vector-ref sc1 2))) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-48 (vector-ref sc3 1))) (let ((e-49 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-51 (vector-ref sc4 1))) (let ((e-52 (vector-ref sc4 2))) (let ((sc5 e-51)) (case (vector-ref sc5 0) ((0) (let ((e-56 (vector-ref sc5 2))) (let ((sc6 e-56)) (case (vector-ref sc6 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-48))) e-49 e-52) eta-0)))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-37 (vector-ref sc6 1))) (let ((e-38 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-40 (vector-ref sc7 1))) (let ((e-41 (vector-ref sc7 2))) (let ((sc8 e-40)) (case (vector-ref sc8 0) ((0) (let ((e-45 (vector-ref sc8 2))) (let ((sc9 e-45)) (case (vector-ref sc9 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc9 e-17)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-29 (vector-ref sc10 1))) (let ((e-30 (vector-ref sc10 2))) (let ((sc11 e-29)) (case (vector-ref sc11 0) ((0) (let ((e-34 (vector-ref sc11 2))) (let ((sc12 e-34)) (case (vector-ref sc12 0) ((0) (let ((e-35 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-20 (vector-ref sc12 1))) (let ((e-21 (vector-ref sc12 2))) (let ((sc13 e-20)) (case (vector-ref sc13 0) ((0) (let ((e-25 (vector-ref sc13 2))) (let ((sc14 e-25)) (case (vector-ref sc14 0) ((0) (let ((e-26 (vector-ref sc14 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc15 act-24)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc15 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc16 act-25)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc16 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc17 act-26)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc17 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc14 arg-12)) (case (vector-ref sc14 0) ((1) (let ((e-1 (vector-ref sc14 1))) (let ((e-2 (vector-ref sc14 2))) (let ((sc15 arg-13)) (case (vector-ref sc15 0) ((1) (let ((e-4 (vector-ref sc15 1))) (let ((e-5 (vector-ref sc15 2))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (let ((e-9 (vector-ref sc16 2))) (let ((sc17 e-9)) (case (vector-ref sc17 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc13 arg-12)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((e-2 (vector-ref sc13 2))) (let ((sc14 arg-13)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((e-5 (vector-ref sc14 2))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (let ((e-9 (vector-ref sc15 2))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-20 (vector-ref sc11 1))) (let ((e-21 (vector-ref sc11 2))) (let ((sc12 e-20)) (case (vector-ref sc12 0) ((0) (let ((e-25 (vector-ref sc12 2))) (let ((sc13 e-25)) (case (vector-ref sc13 0) ((0) (let ((e-26 (vector-ref sc13 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc14 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc15 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc13 arg-12)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((e-2 (vector-ref sc13 2))) (let ((sc14 arg-13)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((e-5 (vector-ref sc14 2))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (let ((e-9 (vector-ref sc15 2))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc8 e-17)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-29 (vector-ref sc9 1))) (let ((e-30 (vector-ref sc9 2))) (let ((sc10 e-29)) (case (vector-ref sc10 0) ((0) (let ((e-34 (vector-ref sc10 2))) (let ((sc11 e-34)) (case (vector-ref sc11 0) ((0) (let ((e-35 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-20 (vector-ref sc11 1))) (let ((e-21 (vector-ref sc11 2))) (let ((sc12 e-20)) (case (vector-ref sc12 0) ((0) (let ((e-25 (vector-ref sc12 2))) (let ((sc13 e-25)) (case (vector-ref sc13 0) ((0) (let ((e-26 (vector-ref sc13 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc14 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc15 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc13 arg-12)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((e-2 (vector-ref sc13 2))) (let ((sc14 arg-13)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((e-5 (vector-ref sc14 2))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (let ((e-9 (vector-ref sc15 2))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc7 e-17)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-29 (vector-ref sc8 1))) (let ((e-30 (vector-ref sc8 2))) (let ((sc9 e-29)) (case (vector-ref sc9 0) ((0) (let ((e-34 (vector-ref sc9 2))) (let ((sc10 e-34)) (case (vector-ref sc10 0) ((0) (let ((e-35 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-29 (vector-ref sc7 1))) (let ((e-30 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((0) (let ((e-34 (vector-ref sc8 2))) (let ((sc9 e-34)) (case (vector-ref sc9 0) ((0) (let ((e-35 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 1))) (let ((e-38 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 1))) (let ((e-41 (vector-ref sc6 2))) (let ((sc7 e-40)) (case (vector-ref sc7 0) ((0) (let ((e-45 (vector-ref sc7 2))) (let ((sc8 e-45)) (case (vector-ref sc8 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc8 e-17)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-29 (vector-ref sc9 1))) (let ((e-30 (vector-ref sc9 2))) (let ((sc10 e-29)) (case (vector-ref sc10 0) ((0) (let ((e-34 (vector-ref sc10 2))) (let ((sc11 e-34)) (case (vector-ref sc11 0) ((0) (let ((e-35 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-20 (vector-ref sc11 1))) (let ((e-21 (vector-ref sc11 2))) (let ((sc12 e-20)) (case (vector-ref sc12 0) ((0) (let ((e-25 (vector-ref sc12 2))) (let ((sc13 e-25)) (case (vector-ref sc13 0) ((0) (let ((e-26 (vector-ref sc13 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc14 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc15 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc13 arg-12)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((e-2 (vector-ref sc13 2))) (let ((sc14 arg-13)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((e-5 (vector-ref sc14 2))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (let ((e-9 (vector-ref sc15 2))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc7 e-17)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-29 (vector-ref sc8 1))) (let ((e-30 (vector-ref sc8 2))) (let ((sc9 e-29)) (case (vector-ref sc9 0) ((0) (let ((e-34 (vector-ref sc9 2))) (let ((sc10 e-34)) (case (vector-ref sc10 0) ((0) (let ((e-35 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-29 (vector-ref sc7 1))) (let ((e-30 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((0) (let ((e-34 (vector-ref sc8 2))) (let ((sc9 e-34)) (case (vector-ref sc9 0) ((0) (let ((e-35 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc5 e-17)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-29 (vector-ref sc6 1))) (let ((e-30 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((0) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((0) (let ((e-35 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-37 (vector-ref sc4 1))) (let ((e-38 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-40 (vector-ref sc5 1))) (let ((e-41 (vector-ref sc5 2))) (let ((sc6 e-40)) (case (vector-ref sc6 0) ((0) (let ((e-45 (vector-ref sc6 2))) (let ((sc7 e-45)) (case (vector-ref sc7 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc7 e-17)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-29 (vector-ref sc8 1))) (let ((e-30 (vector-ref sc8 2))) (let ((sc9 e-29)) (case (vector-ref sc9 0) ((0) (let ((e-34 (vector-ref sc9 2))) (let ((sc10 e-34)) (case (vector-ref sc10 0) ((0) (let ((e-35 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-29 (vector-ref sc7 1))) (let ((e-30 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((0) (let ((e-34 (vector-ref sc8 2))) (let ((sc9 e-34)) (case (vector-ref sc9 0) ((0) (let ((e-35 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc5 e-17)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-29 (vector-ref sc6 1))) (let ((e-30 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((0) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((0) (let ((e-35 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc4 e-17)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-29 (vector-ref sc5 1))) (let ((e-30 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((0) (let ((e-34 (vector-ref sc6 2))) (let ((sc7 e-34)) (case (vector-ref sc7 0) ((0) (let ((e-35 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-37 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-40 (vector-ref sc4 1))) (let ((e-41 (vector-ref sc4 2))) (let ((sc5 e-40)) (case (vector-ref sc5 0) ((0) (let ((e-45 (vector-ref sc5 2))) (let ((sc6 e-45)) (case (vector-ref sc6 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-29 (vector-ref sc7 1))) (let ((e-30 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((0) (let ((e-34 (vector-ref sc8 2))) (let ((sc9 e-34)) (case (vector-ref sc9 0) ((0) (let ((e-35 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc5 e-17)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-29 (vector-ref sc6 1))) (let ((e-30 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((0) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((0) (let ((e-35 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc4 e-17)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-29 (vector-ref sc5 1))) (let ((e-30 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((0) (let ((e-34 (vector-ref sc6 2))) (let ((sc7 e-34)) (case (vector-ref sc7 0) ((0) (let ((e-35 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc3 e-17)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-29 (vector-ref sc4 1))) (let ((e-30 (vector-ref sc4 2))) (let ((sc5 e-29)) (case (vector-ref sc5 0) ((0) (let ((e-34 (vector-ref sc5 2))) (let ((sc6 e-34)) (case (vector-ref sc6 0) ((0) (let ((e-35 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-20)) (case (vector-ref sc4 0) ((0) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (let ((e-26 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))(else (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((e-37 (vector-ref sc2 1))) (let ((e-38 (vector-ref sc2 2))) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-40 (vector-ref sc3 1))) (let ((e-41 (vector-ref sc3 2))) (let ((sc4 e-40)) (case (vector-ref sc4 0) ((0) (let ((e-45 (vector-ref sc4 2))) (let ((sc5 e-45)) (case (vector-ref sc5 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc5 e-17)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-29 (vector-ref sc6 1))) (let ((e-30 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((0) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((0) (let ((e-35 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc4 e-17)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-29 (vector-ref sc5 1))) (let ((e-30 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((0) (let ((e-34 (vector-ref sc6 2))) (let ((sc7 e-34)) (case (vector-ref sc7 0) ((0) (let ((e-35 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc3 e-17)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-29 (vector-ref sc4 1))) (let ((e-30 (vector-ref sc4 2))) (let ((sc5 e-29)) (case (vector-ref sc5 0) ((0) (let ((e-34 (vector-ref sc5 2))) (let ((sc6 e-34)) (case (vector-ref sc6 0) ((0) (let ((e-35 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-20)) (case (vector-ref sc4 0) ((0) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (let ((e-26 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc2 e-17)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-29 (vector-ref sc3 1))) (let ((e-30 (vector-ref sc3 2))) (let ((sc4 e-29)) (case (vector-ref sc4 0) ((0) (let ((e-34 (vector-ref sc4 2))) (let ((sc5 e-34)) (case (vector-ref sc5 0) ((0) (let ((e-35 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-20)) (case (vector-ref sc4 0) ((0) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (let ((e-26 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((sc3 e-20)) (case (vector-ref sc3 0) ((0) (let ((e-25 (vector-ref sc3 2))) (let ((sc4 e-25)) (case (vector-ref sc4 0) ((0) (let ((e-26 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) ((PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-4)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((1) (PartialEval-TTImp-n--9414-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))) +(define PartialEval-TTImp-n--9414-7764-mkDynNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (vector 1 (Strings-Prelude-C-43C-43 "_pe" (Prelude-show_Show__Int arg-10)) (PartialEval-TTImp-n--9414-7764-mkDynNames 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (b+ 1 arg-10 63) e-3)))(else (PartialEval-TTImp-n--9414-7764-mkDynNames 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3))))))(else (PartialEval-TTImp-n--9414-7764-mkDynNames 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3))))))))))) +(define PartialEval-TTImp-n--11422-9608-getSpecArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-n--11422-9608-getSpecArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-9) arg-10 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--11491-9696 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6 e-7 e-3 arg-10 arg-9 e-1 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-9 arg-10)) eta-0)))) (else (vector 1 (vector 0 ))))))))))))))))))))) +(define PartialEval-TTImp-n--9414-7766-getRawArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((8) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (PartialEval-TTImp-n--9414-7766-getRawArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 (vector 0 (vector 0 ) e-2) arg-10) e-1)))) ((9) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (PartialEval-TTImp-n--9414-7766-getRawArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 (vector 0 (vector 1 e-8) e-6) arg-10) e-4)))(else arg-10)))))))(else arg-10))))) +(define PartialEval-TTImp-n--9990-8314-getAllRefs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (PartialEval-TTImp-n--9990-8314-getAllRefs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2)) (else (let ((e-4 (vector-ref sc1 1))) (TT-Core-addRefs 'erased 1 (vector 1 "_") (PartialEval-TTImp-n--9990-8314-getAllRefs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2) e-4)))))))) (else arg-10))))) +(define PartialEval-TTImp-n--12441-10759-findName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (PartialEval-TTImp-case--12727-10775 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 'erased e-5 e-4 e-3 e-1 (Prelude-C-61C-61_Eq__Int arg-2 e-5)))))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-n--12441-10759-findName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 'erased e-3) (lambda (_-0) (vector 1 (+ 1 _-0))))))))))))))) +(define PartialEval-TTImp-n--12465-11387-extendEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) arg-15) (else (let ((e-3 (vector-ref sc0 3))) (vector 1 (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 10 arg-4 1)) (PartialEval-TTImp-n--12465-11387-extendEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 'erased 'erased e-3 arg-15)))))))) +(define PartialEval-TTImp-n--11177-9400-dropErased (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (PartialEval-TTImp-case--11210-9416 'erased arg-1 arg-2 e-2 e-3 arg-5 arg-4 arg-3 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-4 arg-5))))))))) +(define PartialEval-TTImp-n--9414-7768-dropArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (PartialEval-TTImp-n--9414-7767-reapply 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 arg-8 arg-10) (PartialEval-TTImp-dropSpec 'erased 0 arg-2 (PartialEval-TTImp-n--9414-7766-getRawArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 ) arg-11))))) +(define PartialEval-TTImp-n--11422-9606-dropAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 (PartialEval-TTImp-n--11422-9606-dropAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3)))))))) +(define PartialEval-TTImp-n--11422-9607-concrete (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (TT-Core-shrinkTerm 'erased 'erased arg-10 (PartialEval-TTImp-n--11422-9606-dropAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9)))) +(define PartialEval-TTImp-n--12441-10622-addLater (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) arg-16) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (PartialEval-TTImp-case--12550-10651 arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased 'erased arg-16 e-2 e-3 'erased (PartialEval-TTImp-n--12441-10622-addLater arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased 'erased arg-16 e-3 'erased))))))))) (define PartialEval-TTImp-show_Show__ArgMode (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Static " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-0)))) (else "Dynamic"))))) (define PartialEval-TTImp-showPrec_Show__ArgMode (lambda (arg-0 arg-1) (PartialEval-TTImp-show_Show__ArgMode arg-1))) (define PartialEval-TTImp-__Impl_Show_ArgMode (lambda () (vector 0 (lambda (x) (PartialEval-TTImp-show_Show__ArgMode x)) (lambda (d) (lambda (x) (PartialEval-TTImp-showPrec_Show__ArgMode d x)))))) (define PartialEval-TTImp-unload (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (PartialEval-TTImp-unload 'erased e-3 (vector 4 e-6 arg-2 e-7)))))))))))) (define PartialEval-TTImp-substLocs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (PartialEval-TTImp-substLocs arg-0 e-3 (PartialEval-TTImp-substLoc arg-0 e-6 e-7 arg-2)))))))))))) -(define PartialEval-TTImp-substLoc (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (PartialEval-TTImp-case--8764-7151 arg-0 'erased e-4 'erased e-3 e-2 arg-2 arg-1 (Prelude-C-61C-61_Eq__Nat arg-1 e-4)))))) ((3) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (vector 3 e-7 e-8 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 eta-0)) e-9) (PartialEval-TTImp-substLoc (vector 1 e-8 arg-0) (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) (TT-Core-weaken_Weaken__Term e-8 arg-0 arg-2) e-10))))))) ((2) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (vector 2 e-12 e-13 e-14 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 eta-0)) e-15))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (vector 4 e-17 (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 e-18) (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 e-19)))))) ((5) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (vector 5 e-21 e-22 (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 e-23) (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 e-24))))))) ((6) (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (vector 6 e-26 e-27 (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 e-28)))))) ((7) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (let ((e-33 (vector-ref sc0 4))) (vector 7 e-30 e-31 (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 e-32) (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 e-33))))))) ((8) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (vector 8 e-35 e-36 (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 e-37))))))(else arg-3))))) -(define PartialEval-TTImp-specialiseTy (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (PartialEval-TTImp-case--8666-7073 arg-0 e-8 e-7 e-6 e-2 e-4 e-1 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-1 arg-2))))))(else arg-3))))))))(else arg-3))))) -(define PartialEval-TTImp-specialise (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (PartialEval-TTImp-case--11373-9860 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc0 arg-6)) (let ((e-5 (vector-ref sc0 6))) e-5))))) -(define PartialEval-TTImp-specPatByVar (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (PartialEval-TTImp-case--9174-7527 e-2 e-6 e-10 e-11 arg-0 (TT-Core-getFnArgs 'erased e-10))))))))))))) +(define PartialEval-TTImp-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--8813-7220 arg-0 'erased e-4 'erased e-3 e-2 arg-2 arg-1 (Prelude-C-61C-61_Eq__Nat arg-1 e-4)))))) ((3) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (vector 3 e-7 e-8 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 eta-0)) e-9) (PartialEval-TTImp-substLoc (vector 1 e-8 arg-0) (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) (TT-Core-weaken_Weaken__Term e-8 arg-0 arg-2) e-10))))))) ((2) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (vector 2 e-12 e-13 e-14 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 eta-0)) e-15))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (vector 4 e-17 (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 e-18) (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 e-19)))))) ((5) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (vector 5 e-21 e-22 (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 e-23) (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 e-24))))))) ((6) (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (vector 6 e-26 e-27 (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 e-28)))))) ((7) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (let ((e-33 (vector-ref sc0 4))) (vector 7 e-30 e-31 (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 e-32) (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 e-33))))))) ((8) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (vector 8 e-35 e-36 (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 e-37))))))(else arg-3))))) +(define PartialEval-TTImp-specialiseTy (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (PartialEval-TTImp-case--8715-7142 arg-0 e-8 e-7 e-6 e-2 e-4 e-1 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-1 arg-2))))))(else arg-3))))))))(else arg-3))))) +(define PartialEval-TTImp-specialise (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (PartialEval-TTImp-case--11422-9929 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc0 arg-6)) (let ((e-5 (vector-ref sc0 6))) e-5))))) +(define PartialEval-TTImp-specPatByVar (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (PartialEval-TTImp-case--9223-7596 e-2 e-6 e-10 e-11 arg-0 (TT-Core-getFnArgs 'erased e-10))))))))))))) (define PartialEval-TTImp-specByVar (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-specPatByVar arg-0 e-2) (lambda (pC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-specByVar arg-0 e-3) (lambda (psC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 pC-39 psC-39))))))))))))) (define PartialEval-TTImp-quotePi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5)))))))))))))) -(define PartialEval-TTImp-quoteHead (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (PartialEval-TTImp-case--12392-10642 arg-1 'erased e-3 'erased e-2 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (PartialEval-TTImp-n--12392-10553-addLater arg-1 'erased e-3 'erased e-2 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 'erased 'erased e-3 arg-0 'erased) eta-0))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((0) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((2) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (PartialEval-TTImp-case--12392-10912 arg-0 arg-1 e-13 e-12 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (PartialEval-TTImp-n--12392-10690-findName arg-0 arg-1 e-13 e-12 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 'erased arg-8)))))(else (lambda (eta-0) (vector 1 (vector 1 arg-7 e-6 e-7)))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-7 e-6 e-7))))))))) (else (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 e-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 arg-7 e-9 e-10 e-5)))))))))))))))) -(define PartialEval-TTImp-quoteGenNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (PartialEval-TTImp-bName arg-5 "qv" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (((e-4 arg-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-8 (vector 1 e-1 (vector 0 ) e-5))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) ((PartialEval-TTImp-quoteGenNF (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 e-2 e-5 arg-7) arg-8 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((PartialEval-TTImp-quoteBinder arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-1 e-2 e-7 e-6))))))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((1) (let ((e-49 (vector-ref sc1 1))) (let ((e-50 (vector-ref sc1 2))) (let ((sc2 e-49)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-50 (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--13427-11384 arg-0 arg-1 e-50 e-8 e-6 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 e-1 _-0 (let ((sc5 e-1)) (let ((e-24 (vector-ref sc5 6))) e-24))) eta-0)))) (else (let ((act-25 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (TT-Core-apply 'erased e-6 (vector 1 e-6 (vector 1 ) e-50) e-9)))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteHead arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 arg-7 arg-8 e-7) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc3 1))) (vector 1 (TT-Core-apply 'erased e-6 e-5 e-9)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteHead arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 arg-7 arg-8 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-6 e-5 e-9)))))))))))))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased e-10 (vector 1 e-10 (vector 2 e-12 e-13) e-11) e-5)))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased e-16 (vector 1 e-16 (vector 3 e-18 e-19) e-17) e-5)))))))))))))) ((4) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-24) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-25) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-22 e-23 e-5 e-6)))))))))))))))))) ((5) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-29) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-27 e-28 e-5)))))))))))) ((6) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-1 arg-6 e-34) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-evalClosure arg-1 arg-6 e-33) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 7 e-31 e-32 e-8 e-6)))))))))))))))))))))))))))) ((7) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (let ((e-39 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-39) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-38)) (case (vector-ref sc2 0) ((6) (let ((e-1 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 4))) (let ((act-25 ((Normalise-Core-evalClosure arg-1 arg-6 e-4) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (TT-Core-apply 'erased e-1 e-7 e-5)))))))))))))))(else (let ((act-25 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-38) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-36 (vector 8 e-36 e-37 e-6) e-5))))))))))))))))))))) ((8) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 9 e-41 e-42)))))) ((9) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 10 e-44 e-45)))))) (else (let ((e-47 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 11 e-47))))))))) +(define PartialEval-TTImp-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--12441-10711 arg-1 'erased e-3 'erased e-2 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (PartialEval-TTImp-n--12441-10622-addLater arg-1 'erased e-3 'erased e-2 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 'erased 'erased e-3 arg-0 'erased) eta-0))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((0) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((2) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (PartialEval-TTImp-case--12441-10981 arg-0 arg-1 e-13 e-12 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (PartialEval-TTImp-n--12441-10759-findName arg-0 arg-1 e-13 e-12 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 'erased arg-8)))))(else (lambda (eta-0) (vector 1 (vector 1 arg-7 e-6 e-7)))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-7 e-6 e-7))))))))) (else (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 e-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 arg-7 e-9 e-10 e-5)))))))))))))))) +(define PartialEval-TTImp-quoteGenNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (PartialEval-TTImp-bName arg-5 "qv" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (((e-4 arg-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-8 (vector 1 e-1 (vector 0 ) e-5))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) ((PartialEval-TTImp-quoteGenNF (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 e-2 e-5 arg-7) arg-8 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((PartialEval-TTImp-quoteBinder arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-1 e-2 e-7 e-6))))))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((1) (let ((e-49 (vector-ref sc1 1))) (let ((e-50 (vector-ref sc1 2))) (let ((sc2 e-49)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-50 (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--13476-11453 arg-0 arg-1 e-50 e-8 e-6 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 e-1 _-0 (let ((sc5 e-1)) (let ((e-24 (vector-ref sc5 6))) e-24))) eta-0)))) (else (let ((act-25 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (TT-Core-apply 'erased e-6 (vector 1 e-6 (vector 1 ) e-50) e-9)))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteHead arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 arg-7 arg-8 e-7) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc3 1))) (vector 1 (TT-Core-apply 'erased e-6 e-5 e-9)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteHead arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 arg-7 arg-8 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-6 e-5 e-9)))))))))))))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased e-10 (vector 1 e-10 (vector 2 e-12 e-13) e-11) e-5)))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased e-16 (vector 1 e-16 (vector 3 e-18 e-19) e-17) e-5)))))))))))))) ((4) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-24) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-25) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-22 e-23 e-5 e-6)))))))))))))))))) ((5) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-29) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-27 e-28 e-5)))))))))))) ((6) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-1 arg-6 e-34) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-evalClosure arg-1 arg-6 e-33) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 7 e-31 e-32 e-8 e-6)))))))))))))))))))))))))))) ((7) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (let ((e-39 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-39) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-38)) (case (vector-ref sc2 0) ((6) (let ((e-1 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 4))) (let ((act-25 ((Normalise-Core-evalClosure arg-1 arg-6 e-4) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (TT-Core-apply 'erased e-1 e-7 e-5)))))))))))))))(else (let ((act-25 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-38) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-36 (vector 8 e-36 e-37 e-6) e-5))))))))))))))))))))) ((8) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 9 e-41 e-42)))))) ((9) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 10 e-44 e-45)))))) (else (let ((e-47 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 11 e-47))))))))) (define PartialEval-TTImp-quoteBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-1 e-6 e-5))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-7) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-8 e-9))))))))))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-10) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-9 e-6 e-5))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-14) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-13 e-6 e-5))))))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-18) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-19) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-17 e-5 e-6))))))))))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-22) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-21 e-5))))))))))))))) (define PartialEval-TTImp-quoteArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-1 arg-6 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-6 e-7))))))))))))))))))))))))) -(define PartialEval-TTImp-mkSubsts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-mkSubsts 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) arg-2 e-3 arg-4) (lambda (subs) (PartialEval-TTImp-case--8930-7312 'erased e-2 e-3 arg-4 arg-2 arg-1 subs (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-1 arg-2))))))))))) -(define PartialEval-TTImp-mkSpecDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (UnifyState-Core-handleUnify 'erased arg-1 arg-3 (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-setAllPublic arg-1 0 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((staticargs (List-Data-mapMaybe 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (vector 0 )) (else (let ((e-0 (vector-ref sc3 1))) (vector 1 (vector 0 e-2 e-0)))))))))) arg-7))) (let ((peapp (PartialEval-TTImp-unload 'erased (PartialEval-TTImp-dropSpec 'erased 0 staticargs arg-9) (vector 1 arg-4 (vector 1 ) arg-6)))) (let ((act-26 ((Context-Core-lookupCtxtExact arg-6 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (let ((act-27 (Context-Core-logC arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-27 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-8 eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc5 lamc-0)) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (lambda (eta-2) (let ((act-28 (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-0 (vector-ref sc6 1))) (let ((act-28 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-0 eta-2))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc7 1))) (vector 1 (vector 0 e-9))))))))) (else (vector 1 (vector 1 ))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (vector 1 (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (vector 0 (lambda (x) (PartialEval-TTImp-show_Show__ArgMode x)) (lambda (d) (lambda (x) (PartialEval-TTImp-showPrec_Show__ArgMode d x))))) (vector 0 e-2 e-9))))))))))))) arg-7) eta-1))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (Strings-Prelude-C-43C-43 "Specialising " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 ") by " (Name-Core-showSep ", " e-9)))))))))))))))))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sty (PartialEval-TTImp-specialiseTy (vector 0 ) 0 staticargs (let ((sc5 arg-5)) (let ((e-2 (vector-ref sc5 3))) e-2))))) (let ((act-28 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Specialised type " (Name-Core-show_Show__Name arg-6))) (vector 0 ) sty eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Context-Core-addDef arg-1 arg-6 (Context-Core-newDef arg-4 arg-6 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 ) sty (vector 2 ) (vector 0 )) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Context-Core-addToSave arg-1 (vector 9 e-10) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((specnames (PartialEval-TTImp-n--9941-8245-getAllRefs 'erased arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (NameMap-Data-empty 'erased) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-7)))) (let ((act-31 ((Core-Core-traverse 'erased 'erased (lambda (n) (lambda (eta-1) (vector 1 (vector 0 n (+ 1 0))))) (NameMap-Data-keys 'erased specnames)) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (let ((act-32 (unbox arg-1))) (vector 1 act-32)))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 ((PartialEval-TTImp-getReducible (vector 1 arg-8 (vector 0 )) (NameMap-Data-empty 'erased) e-13) eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 (Context-Core-setFlag arg-1 arg-4 (vector 9 e-10) (vector 7 (List-Prelude-C-43C-43 'erased e-12 (NameMap-Data-toList 'erased e-14))) eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc11 1))) (let ((_-0 (vector 0 ))) ((PartialEval-TTImp-case--10255-8700 'erased arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 staticargs peapp _-0 e-8 sty e-9 e-10 e-11 specnames e-12 e-13 e-14 e-15 (let ((sc12 arg-5)) (let ((e-17 (vector-ref sc12 18))) e-17))) eta-0))))))))))))))))))))))))))))))))))))))))))))) (else (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Already specialised " (Name-Core-show_Show__Name arg-6))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 peapp)))))))))))))))))))))))))) (lambda (err) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-8 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 "Partial evaluation of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " failed" (Strings-Prelude-C-43C-43 "\u000a" (Core-Core-show_Show__Error err)))))) eta-0)))))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (set-box! arg-1 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-27 (vector-ref sc2 6))) (let ((e-26 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-27 e-26 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 (NameMap-Data-insert 'erased arg-6 (vector 0 ) e-23) e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (PartialEval-TTImp-unload 'erased arg-9 (vector 1 arg-4 (vector 1 ) arg-8)))))))))))))))))) ext-0))) +(define PartialEval-TTImp-mkSubsts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-mkSubsts 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) arg-2 e-3 arg-4) (lambda (subs) (PartialEval-TTImp-case--8979-7381 'erased e-2 e-3 arg-4 arg-2 arg-1 subs (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-1 arg-2))))))))))) +(define PartialEval-TTImp-mkSpecDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (UnifyState-Core-handleUnify 'erased arg-1 arg-3 (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-setAllPublic arg-1 0 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((staticargs (List-Data-mapMaybe 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (vector 0 )) (else (let ((e-0 (vector-ref sc3 1))) (vector 1 (vector 0 e-2 e-0)))))))))) arg-7))) (let ((peapp (PartialEval-TTImp-unload 'erased (PartialEval-TTImp-dropSpec 'erased 0 staticargs arg-9) (vector 1 arg-4 (vector 1 ) arg-6)))) (let ((act-26 ((Context-Core-lookupCtxtExact arg-6 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (let ((act-27 (Context-Core-logC arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-27 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) arg-8 eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc5 lamc-0)) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (lambda (eta-2) (let ((act-28 (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-0 (vector-ref sc6 1))) (let ((act-28 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-0 eta-2))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc7 1))) (vector 1 (vector 0 e-9))))))))) (else (vector 1 (vector 1 ))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (vector 1 (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (vector 0 (lambda (x) (PartialEval-TTImp-show_Show__ArgMode x)) (lambda (d) (lambda (x) (PartialEval-TTImp-showPrec_Show__ArgMode d x))))) (vector 0 e-2 e-9))))))))))))) arg-7) eta-1))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (Strings-Prelude-C-43C-43 "Specialising " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 ") by " (Name-Core-showSep ", " e-9)))))))))))))))))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sty (PartialEval-TTImp-specialiseTy (vector 0 ) 0 staticargs (let ((sc5 arg-5)) (let ((e-2 (vector-ref sc5 3))) e-2))))) (let ((act-28 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Specialised type " (Name-Core-show_Show__Name arg-6))) (vector 0 ) sty eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Context-Core-addDef arg-1 arg-6 (Context-Core-newDef arg-4 arg-6 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 ) sty (vector 2 ) (vector 0 )) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Context-Core-addToSave arg-1 (vector 9 e-10) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((specnames (PartialEval-TTImp-n--9990-8314-getAllRefs 'erased arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (NameMap-Data-empty 'erased) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-7)))) (let ((act-31 ((Core-Core-traverse 'erased 'erased (lambda (n) (lambda (eta-1) (vector 1 (vector 0 n (+ 1 0))))) ((NameMap-Data-keys 'erased) specnames)) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (let ((act-32 (unbox arg-1))) (vector 1 act-32)))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 ((PartialEval-TTImp-getReducible (vector 1 arg-8 (vector 0 )) (NameMap-Data-empty 'erased) e-13) eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 (Context-Core-setFlag arg-1 arg-4 (vector 9 e-10) (vector 7 (List-Prelude-C-43C-43 'erased e-12 (NameMap-Data-toList 'erased e-14))) eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc11 1))) (let ((_-0 (vector 0 ))) ((PartialEval-TTImp-case--10304-8769 'erased arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 staticargs peapp _-0 e-8 sty e-9 e-10 e-11 specnames e-12 e-13 e-14 e-15 (let ((sc12 arg-5)) (let ((e-17 (vector-ref sc12 18))) e-17))) eta-0))))))))))))))))))))))))))))))))))))))))))))) (else (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Already specialised " (Name-Core-show_Show__Name arg-6))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 peapp)))))))))))))))))))))))))) (lambda (err) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) arg-8 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 "Partial evaluation of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " failed" (Strings-Prelude-C-43C-43 "\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--9365-8079 'erased arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (PartialEval-TTImp-specByVar arg-8 arg-9)))) -(define PartialEval-TTImp-getReducible (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (PartialEval-TTImp-case--9857-8175 e-2 e-3 arg-2 arg-1 (NameMap-Data-lookup 'erased e-2 arg-1))))))))) +(define PartialEval-TTImp-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--9414-8148 'erased arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (PartialEval-TTImp-specByVar arg-8 arg-9)))) +(define PartialEval-TTImp-getReducible (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (PartialEval-TTImp-case--9906-8244 e-2 e-3 arg-2 arg-1 (NameMap-Data-lookup 'erased e-2 arg-1))))))))) (define PartialEval-TTImp-findSpecs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-3 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((act-26 ((PartialEval-TTImp-specialise arg-0 arg-1 arg-2 arg-3 e-1 arg-4 e-4 e-3 arg-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((1) (let ((e-8 (vector-ref sc6 1))) (vector 1 e-8))) (else (vector 1 (PartialEval-TTImp-unload 'erased arg-5 (vector 1 e-1 (vector 1 ) e-3))))))))))))) (else (vector 1 (PartialEval-TTImp-unload 'erased arg-5 (vector 1 e-1 (vector 1 ) e-3))))))))))))))))))(else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-5 arg-6)))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) eta-1)) e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) (vector 1 (PartialEval-TTImp-unload 'erased arg-5 (vector 2 e-5 e-6 e-7 e-9)))))))))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) eta-1)) e-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-findSpecs (vector 1 e-11 arg-0) arg-1 arg-2 arg-3 (vector 1 e-5 arg-4) (vector 0 ) e-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (PartialEval-TTImp-unload 'erased arg-5 (vector 3 e-10 e-11 e-5 e-6))))))))))))))))))) ((4) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) e-17) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 0 e-15 e-5) arg-5) e-16) eta-0))))))))))) ((6) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) e-21) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (PartialEval-TTImp-unload 'erased arg-5 (vector 6 e-19 e-20 e-5))))))))))))) ((7) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) e-25) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) e-26) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (PartialEval-TTImp-unload 'erased arg-5 (vector 7 e-23 e-24 e-5 e-6))))))))))))))))))) ((8) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) e-30) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (PartialEval-TTImp-unload 'erased arg-5 (vector 8 e-28 e-29 e-5)))))))))))))(else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-5 arg-6)))))))) (define PartialEval-TTImp-evalRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Normalise.QVar" ) 0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((PartialEval-TTImp-quoteGenNF (vector 0 ) arg-0 arg-1 arg-2 arg-3 e-5 e-6 (vector 0 ) arg-4 arg-5) ext-0))))))))))))) -(define PartialEval-TTImp-eraseInferred (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-1 eta-1)) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-eraseInferred 'erased arg-1 e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-1 e-2 e-5 e-6))))))))))))))))))(else (PartialEval-TTImp-case--11128-9399 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2))))))) -(define PartialEval-TTImp-dropSpec (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (PartialEval-TTImp-case--9292-7637 'erased e-2 e-3 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-1 arg-2))))))))) +(define PartialEval-TTImp-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--11177-9468 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2))))))) +(define PartialEval-TTImp-dropSpec (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (PartialEval-TTImp-case--9341-7706 'erased e-2 e-3 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-1 arg-2))))))))) (define PartialEval-TTImp-bName (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (b+ e-5 1 63)))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-1 e-5))))))))))))) -(define PartialEval-TTImp-applySpecialise (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6)) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) arg-6 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-4 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (PartialEval-TTImp-evalRHS arg-0 arg-1 arg-2 arg-3 arg-4 e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-8 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "New RHS") arg-4 e-9 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (vector 1 e-9)))))))))))))))))))))))))))))))))))) -(define Impossible-TTImp-case--7519-7205 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (Impossible-TTImp-n--7509-7167-addEnv arg-0 arg-1 arg-2 arg-3 arg-5 arg-8 arg-6)) (else (vector 1 (vector 31 arg-8 1) (Impossible-TTImp-n--7509-7167-addEnv arg-0 arg-1 arg-2 arg-3 arg-5 arg-8 arg-6))))))) -(define Impossible-TTImp-case--6631-6996 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-7 (vector 0 ) e-11) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc4 1))) ((Impossible-TTImp-processArgs arg-6 arg-5 (vector 1 arg-4 (vector 1 ) e-6) e-5 arg-1 arg-0) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-13)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-13)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-13)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-3) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-13)) eta-0))))))) -(define Impossible-TTImp-case--6626-6773 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Impossible-TTImp-nextVar arg-8 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (((arg-2 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-5)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Impossible-TTImp-processArgs arg-9 arg-8 (vector 4 arg-4 arg-7 e-5) e-6 arg-6 arg-5) eta-0))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Impossible-TTImp-mkTerm arg-9 arg-8 e-5 (vector 1 arg-0) (vector 0 ) (vector 0 )) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 (((arg-2 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-7)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc3 1))) ((Impossible-TTImp-processArgs arg-9 arg-8 (vector 4 arg-4 arg-7 e-7) e-8 arg-6 e-6) eta-0))))))))))))))))))))) -(define Impossible-TTImp-case--6943-6675 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-11 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-13) arg-12)))) (else (Impossible-TTImp-n--6626-6637-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 (vector 0 (vector 1 arg-10) arg-11) arg-13) arg-12)))))) -(define Impossible-TTImp-case--6626-6530 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Impossible-TTImp-nextVar arg-8 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (((arg-2 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-5)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Impossible-TTImp-processArgs arg-9 arg-8 (vector 4 arg-4 arg-7 e-5) e-6 arg-6 arg-5) eta-0))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Impossible-TTImp-mkTerm arg-9 arg-8 e-5 (vector 1 arg-0) (vector 0 ) (vector 0 )) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 (((arg-2 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-7)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc3 1))) ((Impossible-TTImp-processArgs arg-9 arg-8 (vector 4 arg-4 arg-7 e-7) e-8 arg-6 e-6) eta-0))))))))))))))))))))) -(define Impossible-TTImp-case--6698-6432 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-11 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-13) arg-12)))) (else (Impossible-TTImp-n--6626-6411-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 (vector 0 (vector 1 arg-10) arg-11) arg-13) arg-12)))))) -(define Impossible-TTImp-n--6626-6411-useImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (Impossible-TTImp-case--6698-6432 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-9 e-7 e-3 arg-10 (Name-Core-C-61C-61_Eq__Name arg-3 e-9))))(else (Impossible-TTImp-n--6626-6411-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-2 arg-10) e-3)))))))(else (Impossible-TTImp-n--6626-6411-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-2 arg-10) e-3))))))))))) -(define Impossible-TTImp-n--6626-6637-useAutoImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 e-7 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-10) e-3)))) ((1) (let ((e-10 (vector-ref sc2 1))) (Impossible-TTImp-case--6943-6675 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-10 e-7 e-3 arg-10 (Name-Core-C-61C-61_Eq__Name arg-3 e-10))))(else (Impossible-TTImp-n--6626-6637-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-2 arg-10) e-3)))))))(else (Impossible-TTImp-n--6626-6637-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-2 arg-10) e-3))))))))))) -(define Impossible-TTImp-n--6397-6132-sameRet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 0))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 0))) ((9) (lambda (eta-0) (vector 1 0))) ((3) (let ((e-18 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((3) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Name-Core-C-61C-61_Eq__Name e-18 e-29)))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) ((Impossible-TTImp-n--6397-6132-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))))) ((8) (let ((e-24 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((8) (let ((e-35 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-24 e-35)))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) ((Impossible-TTImp-n--6397-6132-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))))) ((10) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) ((Impossible-TTImp-n--6397-6132-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) ((Impossible-TTImp-n--6397-6132-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1))))))))))))) -(define Impossible-TTImp-n--7509-7166-isLet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) 0)(else 1))))) -(define Impossible-TTImp-n--7509-7168-applyEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 8 e-0 (Impossible-TTImp-n--7509-7168-applyEnv arg-0 arg-1 arg-2 arg-3 e-1) e-2))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (vector 9 e-3 (Impossible-TTImp-n--7509-7168-applyEnv arg-0 arg-1 arg-2 arg-3 e-4) e-5 e-6))))))(else (TTImp-TTImp-apply arg-4 (Impossible-TTImp-n--7509-7167-addEnv arg-0 arg-1 arg-2 arg-3 arg-0 (TTImp-TTImp-getFC arg-4) arg-2))))))) -(define Impossible-TTImp-n--7509-7167-addEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-6)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Impossible-TTImp-case--7519-7205 arg-0 arg-1 arg-2 arg-3 e-2 e-3 e-9 e-8 arg-5 (Impossible-TTImp-n--7509-7166-isLet arg-0 arg-1 arg-2 arg-3 'erased e-8)))))))))))) -(define Impossible-TTImp-processArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((1) (let ((e-15 (vector-ref sc3 1))) (let ((e-16 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Impossible-TTImp-mkTerm arg-0 arg-1 e-15 (vector 1 e-10) (vector 0 ) (vector 0 )) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-26 (((e-6 e-11) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-7)) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc6 1))) ((Impossible-TTImp-processArgs arg-0 arg-1 (vector 4 e-3 arg-2 e-7) e-12 e-16 arg-5) eta-0))))))))))))))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))))) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((Impossible-TTImp-case--6626-6530 e-10 e-8 e-6 e-4 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 e-7 (Impossible-TTImp-n--6626-6411-useImp e-10 e-8 e-6 e-4 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 (vector 0 ) arg-5)) eta-0)))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((Impossible-TTImp-case--6626-6773 e-10 e-8 e-6 e-4 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 e-7 (Impossible-TTImp-n--6626-6637-useAutoImp e-10 e-8 e-6 e-4 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 (vector 0 ) arg-5)) eta-0))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0)))))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0)))))))))) +(define PartialEval-TTImp-applySpecialise (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6)) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-1 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) arg-6 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-4 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (PartialEval-TTImp-evalRHS arg-0 arg-1 arg-2 arg-3 arg-4 e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-8 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "New RHS") arg-4 e-9 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (vector 1 e-9)))))))))))))))))))))))))))))))))))) +(define Impossible-TTImp-case--7563-7272 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (vector 0 arg-6 e-7))(else (vector 0 arg-6 arg-5))))))(else (vector 0 arg-6 arg-5)))))))(else (vector 0 arg-6 arg-5))))))(else (vector 0 arg-6 arg-5)))))) +(define Impossible-TTImp-case--7562-7215 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Impossible-TTImp-n--7551-7176-addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-9 arg-7)) (else (vector 1 (vector 31 arg-9 1) (Impossible-TTImp-n--7551-7176-addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-9 arg-7))))))) +(define Impossible-TTImp-case--6673-7004 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-7 (vector 0 ) e-11) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc4 1))) ((Impossible-TTImp-processArgs arg-6 arg-5 (vector 1 arg-4 (vector 1 ) e-6) e-5 arg-1 arg-0) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-13)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-13)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-13)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-3) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-13)) eta-0))))))) +(define Impossible-TTImp-case--6668-6781 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Impossible-TTImp-nextVar arg-8 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (((arg-2 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-5)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Impossible-TTImp-processArgs arg-9 arg-8 (vector 4 arg-4 arg-7 e-5) e-6 arg-6 arg-5) eta-0))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Impossible-TTImp-mkTerm arg-9 arg-8 e-5 (vector 1 arg-0) (vector 0 ) (vector 0 )) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 (((arg-2 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-7)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc3 1))) ((Impossible-TTImp-processArgs arg-9 arg-8 (vector 4 arg-4 arg-7 e-7) e-8 arg-6 e-6) eta-0))))))))))))))))))))) +(define Impossible-TTImp-case--6985-6683 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-11 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-13) arg-12)))) (else (Impossible-TTImp-n--6668-6645-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 (vector 0 (vector 1 arg-10) arg-11) arg-13) arg-12)))))) +(define Impossible-TTImp-case--6668-6538 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Impossible-TTImp-nextVar arg-8 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (((arg-2 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-5)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Impossible-TTImp-processArgs arg-9 arg-8 (vector 4 arg-4 arg-7 e-5) e-6 arg-6 arg-5) eta-0))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Impossible-TTImp-mkTerm arg-9 arg-8 e-5 (vector 1 arg-0) (vector 0 ) (vector 0 )) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 (((arg-2 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-7)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc3 1))) ((Impossible-TTImp-processArgs arg-9 arg-8 (vector 4 arg-4 arg-7 e-7) e-8 arg-6 e-6) eta-0))))))))))))))))))))) +(define Impossible-TTImp-case--6740-6440 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-11 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-13) arg-12)))) (else (Impossible-TTImp-n--6668-6419-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 (vector 0 (vector 1 arg-10) arg-11) arg-13) arg-12)))))) +(define Impossible-TTImp-n--6668-6419-useImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (Impossible-TTImp-case--6740-6440 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-9 e-7 e-3 arg-10 (Name-Core-C-61C-61_Eq__Name arg-3 e-9))))(else (Impossible-TTImp-n--6668-6419-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-2 arg-10) e-3)))))))(else (Impossible-TTImp-n--6668-6419-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-2 arg-10) e-3))))))))))) +(define Impossible-TTImp-n--6668-6645-useAutoImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 e-7 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-10) e-3)))) ((1) (let ((e-10 (vector-ref sc2 1))) (Impossible-TTImp-case--6985-6683 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-10 e-7 e-3 arg-10 (Name-Core-C-61C-61_Eq__Name arg-3 e-10))))(else (Impossible-TTImp-n--6668-6645-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-2 arg-10) e-3)))))))(else (Impossible-TTImp-n--6668-6645-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-2 arg-10) e-3))))))))))) +(define Impossible-TTImp-n--6439-6140-sameRet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 0))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 0))) ((9) (lambda (eta-0) (vector 1 0))) ((3) (let ((e-18 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((3) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Name-Core-C-61C-61_Eq__Name e-18 e-29)))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) ((Impossible-TTImp-n--6439-6140-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))))) ((8) (let ((e-24 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((8) (let ((e-35 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-24 e-35)))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) ((Impossible-TTImp-n--6439-6140-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))))) ((10) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) ((Impossible-TTImp-n--6439-6140-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) ((Impossible-TTImp-n--6439-6140-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1))))))))))))) +(define Impossible-TTImp-n--7551-7175-isLet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) 0)(else 1))))) +(define Impossible-TTImp-n--7551-7177-expandNest (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Impossible-TTImp-case--7563-7272 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 e-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-1 arg-2)))))(else arg-5))))) +(define Impossible-TTImp-n--7551-7178-applyEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 8 e-0 (Impossible-TTImp-n--7551-7178-applyEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-1) e-2))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (vector 9 e-3 (Impossible-TTImp-n--7551-7178-applyEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-4) e-5 e-6))))))(else (TTImp-TTImp-apply (Impossible-TTImp-n--7551-7177-expandNest arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Impossible-TTImp-n--7551-7176-addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-0 (TTImp-TTImp-getFC arg-5) arg-3))))))) +(define Impossible-TTImp-n--7551-7176-addEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-7)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-7)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Impossible-TTImp-case--7562-7215 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 e-9 e-8 arg-6 (Impossible-TTImp-n--7551-7175-isLet arg-0 arg-1 arg-2 arg-3 arg-4 'erased e-8)))))))))))) +(define Impossible-TTImp-processArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((1) (let ((e-15 (vector-ref sc3 1))) (let ((e-16 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Impossible-TTImp-mkTerm arg-0 arg-1 e-15 (vector 1 e-10) (vector 0 ) (vector 0 )) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-26 (((e-6 e-11) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-7)) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc6 1))) ((Impossible-TTImp-processArgs arg-0 arg-1 (vector 4 e-3 arg-2 e-7) e-12 e-16 arg-5) eta-0))))))))))))))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))))) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((Impossible-TTImp-case--6668-6538 e-10 e-8 e-6 e-4 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 e-7 (Impossible-TTImp-n--6668-6419-useImp e-10 e-8 e-6 e-4 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 (vector 0 ) arg-5)) eta-0)))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((Impossible-TTImp-case--6668-6781 e-10 e-8 e-6 e-4 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 e-7 (Impossible-TTImp-n--6668-6645-useAutoImp e-10 e-8 e-6 e-4 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 (vector 0 ) arg-5)) eta-0))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0)))))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0)))))))))) (define Impossible-TTImp-nextVar (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (b+ e-5 1 63)))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 1 arg-1 (vector 0 ) (vector 2 "imp" e-5)))))))))))))) (define Impossible-TTImp-mkTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (Impossible-TTImp-buildApp arg-0 arg-1 e-0 e-1 arg-3 arg-4 arg-5 eta-0))))) ((8) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Impossible-TTImp-mkTerm arg-0 arg-1 e-3 arg-3 (vector 1 e-4 arg-4) arg-5)))) ((9) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (Impossible-TTImp-mkTerm arg-0 arg-1 e-6 arg-3 arg-4 (vector 1 (vector 0 e-7 e-8) arg-5)))))) ((27) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 9 e-9 e-10))))))(else (lambda (eta-0) (Impossible-TTImp-nextVar arg-1 (TTImp-TTImp-getFC arg-2) eta-0))))))) -(define Impossible-TTImp-match (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) e-7) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((Impossible-TTImp-n--6397-6132-sameRet e-2 e-6 e-7 arg-1 arg-0 arg-1 e-8) eta-0)))))))))))))))))))) -(define Impossible-TTImp-getImpossibleTerm (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Normalise.QVar" ) 0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Impossible-TTImp-mkTerm arg-1 e-5 (Impossible-TTImp-n--7509-7168-applyEnv arg-0 arg-3 arg-2 arg-1 arg-3) (vector 0 ) (vector 0 ) (vector 0 )) ext-0)))))))) +(define Impossible-TTImp-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--6439-6140-sameRet e-2 e-6 e-7 arg-1 arg-0 arg-1 e-8) eta-0)))))))))))))))))))) +(define Impossible-TTImp-getImpossibleTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Normalise.QVar" ) 0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Impossible-TTImp-mkTerm arg-1 e-5 (Impossible-TTImp-n--7551-7178-applyEnv arg-0 arg-4 arg-3 arg-2 arg-1 arg-4) (vector 0 ) (vector 0 ) (vector 0 )) ext-0)))))))) (define Impossible-TTImp-dropNoMatch (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 e-4 (vector 0 )))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2))) (else (let ((e-2 (vector-ref sc1 1))) (Core-Core-filterM 'erased (lambda (eta-0) (Impossible-TTImp-match arg-0 e-2 eta-0)) arg-2)))))))))))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (Core-Core-filterM 'erased (lambda (eta-0) (Impossible-TTImp-match arg-0 e-2 eta-0)) arg-2)))))))))) -(define Impossible-TTImp-buildApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-fromIntegerName arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-fromStringName arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Context-Core-fromCharName arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((sc4 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Name-Core-C-61C-61_Eq__Name arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Name-Core-C-47C-61_Eq__Name arg-432 arg-433)))) arg-430 arg-431)))) (vector 1 arg-3) (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))))) (cond ((equal? sc4 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't deal with constants here yet") ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (Context-Core-lookupTyName arg-3 (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0)) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 ((Impossible-TTImp-dropNoMatch arg-0 arg-4 e-10) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 e-1)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-2)) (case (vector-ref sc10 0) ((0) (let ((act-31 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) e-14) ext-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-16 (vector-ref sc11 1))) ((Impossible-TTImp-processArgs arg-0 arg-1 (vector 1 arg-2 (vector 1 ) e-13) e-16 arg-5 arg-6) ext-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-11)) ext-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-11)) ext-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-11)) ext-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-3) ext-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-11)) ext-0)))))))))))))))))))))))))))))))))))))))) -(define Transform-Core-case--6874-7973 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (Transform-Core-transLoop 'erased arg-4 arg-1 arg-3 arg-6)) (else (lambda (eta-0) (vector 1 arg-6))))))) -(define Transform-Core-case--6591-7713 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-5 (Prelude-C-124C-124 e-5 (lambda () e-2))))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 e-3)))))))))))))))) -(define Transform-Core-case--6565-7662 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (Transform-Core-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((fullapp (Transform-Core-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1)))) (Transform-Core-case--6591-7713 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 fullapp (Transform-Core-apply 'erased e-2 fullapp))))))))) -(define Transform-Core-case--6511-7612 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (Transform-Core-apply 'erased arg-2 arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (vector 0 0 e-2))))))) -(define Transform-Core-case--6406-7549 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryApply 'erased arg-7 e-2) (lambda (fC-39) (vector 1 (vector 4 e-1 fC-39 e-3))))))))(else (vector 0 )))))) -(define Transform-Core-case--6387-7506 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Transform-Core-tryReplace 'erased 'erased e-1 arg-4))) (else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((4) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryApply 'erased arg-7 e-2) (lambda (fC-39) (vector 1 (vector 4 e-1 fC-39 e-3))))))))(else (vector 0 ))))))))) -(define Transform-Core-case--6077-7253 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-4)) (else (vector 0 )))))) -(define Transform-Core-case--5981-7166 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 1 arg-3)) (else (vector 0 )))))) -(define Transform-Core-case--5962-7123 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 1 arg-5 arg-4 arg-3))) (else (let ((e-2 (vector-ref sc0 1))) (Transform-Core-case--5981-7166 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-2 (TT-Core-eqTerm 'erased 'erased arg-4 e-2)))))))) -(define Transform-Core-case--5867-7061 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (vector 1 arg-7)) (else (Transform-Core-lookupMatch 'erased 'erased 'erased arg-8 'erased arg-6)))))) +(define Impossible-TTImp-buildApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-fromIntegerName arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-fromStringName arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Context-Core-fromCharName arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((sc4 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Name-Core-C-61C-61_Eq__Name arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Name-Core-C-47C-61_Eq__Name arg-440 arg-441)))) arg-438 arg-439)))) (vector 1 arg-3) (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))))) (cond ((equal? sc4 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't deal with constants here yet") ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (Context-Core-lookupTyName arg-3 (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0)) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 ((Impossible-TTImp-dropNoMatch arg-0 arg-4 e-10) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 e-1)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-2)) (case (vector-ref sc10 0) ((0) (let ((act-31 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) e-14) ext-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-16 (vector-ref sc11 1))) ((Impossible-TTImp-processArgs arg-0 arg-1 (vector 1 arg-2 (vector 1 ) e-13) e-16 arg-5 arg-6) ext-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-11)) ext-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-11)) ext-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-11)) ext-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-3) ext-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-11)) ext-0)))))))))))))))))))))))))))))))))))))))) +(define Transform-Core-case--6916-8042 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (Transform-Core-transLoop 'erased arg-4 arg-1 arg-3 arg-6)) (else (lambda (eta-0) (vector 1 arg-6))))))) +(define Transform-Core-case--6633-7782 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-5 (Prelude-C-124C-124 e-5 (lambda () e-2))))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 e-3)))))))))))))))) +(define Transform-Core-case--6607-7731 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (Transform-Core-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((fullapp (Transform-Core-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1)))) (Transform-Core-case--6633-7782 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 fullapp (Transform-Core-apply 'erased e-2 fullapp))))))))) +(define Transform-Core-case--6553-7681 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (Transform-Core-apply 'erased arg-2 arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (vector 0 0 e-2))))))) +(define Transform-Core-case--6448-7618 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryApply 'erased arg-7 e-2) (lambda (fC-39) (vector 1 (vector 4 e-1 fC-39 e-3))))))))(else (vector 0 )))))) +(define Transform-Core-case--6429-7575 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Transform-Core-tryReplace 'erased 'erased e-1 arg-4))) (else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((4) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryApply 'erased arg-7 e-2) (lambda (fC-39) (vector 1 (vector 4 e-1 fC-39 e-3))))))))(else (vector 0 ))))))))) +(define Transform-Core-case--6119-7322 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-4)) (else (vector 0 )))))) +(define Transform-Core-case--6023-7235 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 1 arg-3)) (else (vector 0 )))))) +(define Transform-Core-case--6004-7192 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 1 arg-5 arg-4 arg-3))) (else (let ((e-2 (vector-ref sc0 1))) (Transform-Core-case--6023-7235 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-2 (TT-Core-eqTerm 'erased 'erased arg-4 e-2)))))))) +(define Transform-Core-case--5909-7130 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (vector 1 arg-7)) (else (Transform-Core-lookupMatch 'erased 'erased 'erased arg-8 'erased arg-6)))))) (define Transform-Core-unload (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Transform-Core-unload 'erased e-3 (vector 4 e-6 arg-2 e-7)))))))))))) -(define Transform-Core-tryReplace (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (Transform-Core-lookupMatch 'erased 'erased 'erased e-4 'erased arg-2))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 e-7 e-8 e-9)))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Prelude-pure_Applicative__Maybe 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3503 arg-3505)))))) (lambda (eta-0) (Transform-Core-tryReplace 'erased 'erased arg-2 eta-0)) e-14) (lambda (asC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 2 e-11 e-12 e-13 asC-39))))))))) ((3) (vector 0 )) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-22) (lambda (fC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-23) (lambda (aC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 4 e-21 fC-39 aC-39)))))))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-27) (lambda (aC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-28) (lambda (pC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 5 e-25 e-26 aC-39 pC-39))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-32) (lambda (tmC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 6 e-30 e-31 tmC-39)))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-36) (lambda (tyC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-37) (lambda (tmC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 7 e-34 e-35 tyC-39 tmC-39))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-41) (lambda (tmC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 8 e-39 e-40 tmC-39)))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 9 e-43 e-44))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 10 e-46 e-47))))) (else (let ((e-49 (vector-ref sc0 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 11 e-49)))))))) -(define Transform-Core-tryApply (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((trans (vector 0 e-0 e-1 e-2 e-3 e-4))) (Transform-Core-case--6387-7506 'erased e-0 e-2 arg-2 e-4 e-3 e-1 trans (Transform-Core-match 'erased 'erased (vector 0 ) e-3 arg-2))))))))))) +(define Transform-Core-tryReplace (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (Transform-Core-lookupMatch 'erased 'erased 'erased e-4 'erased arg-2))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 e-7 e-8 e-9)))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Prelude-pure_Applicative__Maybe 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3511 arg-3513)))))) (lambda (eta-0) (Transform-Core-tryReplace 'erased 'erased arg-2 eta-0)) e-14) (lambda (asC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 2 e-11 e-12 e-13 asC-39))))))))) ((3) (vector 0 )) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-22) (lambda (fC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-23) (lambda (aC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 4 e-21 fC-39 aC-39)))))))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-27) (lambda (aC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-28) (lambda (pC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 5 e-25 e-26 aC-39 pC-39))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-32) (lambda (tmC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 6 e-30 e-31 tmC-39)))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-36) (lambda (tyC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-37) (lambda (tmC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 7 e-34 e-35 tyC-39 tmC-39))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-41) (lambda (tmC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 8 e-39 e-40 tmC-39)))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 9 e-43 e-44))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 10 e-46 e-47))))) (else (let ((e-49 (vector-ref sc0 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 11 e-49)))))))) +(define Transform-Core-tryApply (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((trans (vector 0 e-0 e-1 e-2 e-3 e-4))) (Transform-Core-case--6429-7575 'erased e-0 e-2 arg-2 e-4 e-3 e-1 trans (Transform-Core-match 'erased 'erased (vector 0 ) e-3 arg-2))))))))))) (define Transform-Core-transLoop (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-4)))(else (let ((e-0 (- arg-2 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Transform.Upd" ) 1 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Transform-Core-trans 'erased arg-1 e-5 arg-3 (vector 0 ) arg-4) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox e-5))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) ((Transform-Core-transLoop 'erased arg-1 e-0 arg-3 e-6) eta-0)) (else (vector 1 e-6)))))))))))))))))))))))))) -(define Transform-Core-trans (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((Transform-Core-case--6565-7662 'erased e-3 e-1 arg-4 arg-3 arg-2 arg-1 e-5 (NameMap-Data-lookup 'erased e-3 (let ((sc3 e-5)) (let ((e-12 (vector-ref sc3 13))) e-12)))) eta-0))))))))(else (lambda (eta-0) (vector 1 (Transform-Core-unload 'erased arg-4 arg-5)))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) eta-1)) e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) (vector 1 (Transform-Core-unload 'erased arg-4 (vector 2 e-5 e-6 e-7 e-9)))))))))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) eta-1)) e-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Transform-Core-trans 'erased arg-1 arg-2 (vector 1 e-5 arg-3) (vector 0 ) e-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Transform-Core-unload 'erased arg-4 (vector 3 e-10 e-11 e-5 e-6))))))))))))))))))) ((4) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) e-17) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 1 (vector 0 e-15 e-5) arg-4) e-16) eta-0))))))))))) ((6) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) e-21) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Transform-Core-unload 'erased arg-4 (vector 6 e-19 e-20 e-5))))))))))))) ((7) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) e-25) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) e-26) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Transform-Core-unload 'erased arg-4 (vector 7 e-23 e-24 e-5 e-6))))))))))))))))))) ((8) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) e-30) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Transform-Core-unload 'erased arg-4 (vector 8 e-28 e-29 e-5)))))))))))))(else (lambda (eta-0) (vector 1 (Transform-Core-unload 'erased arg-4 arg-5)))))))) -(define Transform-Core-match (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (Transform-Core-addMatch 'erased 'erased 'erased e-4 'erased arg-4 arg-2))) ((4) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((4) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-match 'erased 'erased arg-2 e-8 e-12) (lambda (msC-39) (Transform-Core-match 'erased 'erased msC-39 e-9 e-13))))))(else (Transform-Core-case--6077-7253 'erased 'erased arg-4 arg-3 arg-2 (TT-Core-eqTerm 'erased 'erased arg-3 arg-4))))))))(else (Transform-Core-case--6077-7253 'erased 'erased arg-4 arg-3 arg-2 (TT-Core-eqTerm 'erased 'erased arg-3 arg-4))))))) -(define Transform-Core-lookupMatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (Transform-Core-case--5867-7061 'erased 'erased 'erased 'erased e-5 'erased e-8 e-7 arg-3 'erased (Prelude-C-61C-61_Eq__Nat arg-3 e-5)))))))))) +(define Transform-Core-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--6607-7731 'erased e-3 e-1 arg-4 arg-3 arg-2 arg-1 e-5 (NameMap-Data-lookup 'erased e-3 (let ((sc3 e-5)) (let ((e-12 (vector-ref sc3 13))) e-12)))) eta-0))))))))(else (lambda (eta-0) (vector 1 (Transform-Core-unload 'erased arg-4 arg-5)))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) eta-1)) e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) (vector 1 (Transform-Core-unload 'erased arg-4 (vector 2 e-5 e-6 e-7 e-9)))))))))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) eta-1)) e-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Transform-Core-trans 'erased arg-1 arg-2 (vector 1 e-5 arg-3) (vector 0 ) e-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Transform-Core-unload 'erased arg-4 (vector 3 e-10 e-11 e-5 e-6))))))))))))))))))) ((4) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) e-17) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 1 (vector 0 e-15 e-5) arg-4) e-16) eta-0))))))))))) ((6) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) e-21) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Transform-Core-unload 'erased arg-4 (vector 6 e-19 e-20 e-5))))))))))))) ((7) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) e-25) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) e-26) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Transform-Core-unload 'erased arg-4 (vector 7 e-23 e-24 e-5 e-6))))))))))))))))))) ((8) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) e-30) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Transform-Core-unload 'erased arg-4 (vector 8 e-28 e-29 e-5)))))))))))))(else (lambda (eta-0) (vector 1 (Transform-Core-unload 'erased arg-4 arg-5)))))))) +(define Transform-Core-match (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (Transform-Core-addMatch 'erased 'erased 'erased e-4 'erased arg-4 arg-2))) ((4) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((4) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-match 'erased 'erased arg-2 e-8 e-12) (lambda (msC-39) (Transform-Core-match 'erased 'erased msC-39 e-9 e-13))))))(else (Transform-Core-case--6119-7322 'erased 'erased arg-4 arg-3 arg-2 (TT-Core-eqTerm 'erased 'erased arg-3 arg-4))))))))(else (Transform-Core-case--6119-7322 'erased 'erased arg-4 arg-3 arg-2 (TT-Core-eqTerm 'erased 'erased arg-3 arg-4))))))) +(define Transform-Core-lookupMatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (Transform-Core-case--5909-7130 'erased 'erased 'erased 'erased e-5 'erased e-8 e-7 arg-3 'erased (Prelude-C-61C-61_Eq__Nat arg-3 e-5)))))))))) (define Transform-Core-applyTransforms (lambda (arg-0 arg-1 arg-2 arg-3) (Transform-Core-transLoop 'erased arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) arg-2 arg-3))) -(define Transform-Core-apply (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 1 arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Transform-Core-case--6511-7612 'erased e-2 e-3 arg-2 (Transform-Core-tryApply 'erased e-2 arg-2))))))))) -(define Transform-Core-addMatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Transform-Core-case--5962-7123 'erased 'erased 'erased arg-6 arg-5 arg-3 'erased (Transform-Core-lookupMatch 'erased 'erased 'erased arg-3 'erased arg-6)))) -(define Termination-Core-case--12100-11153 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (lambda (eta-0) (Termination-Core-checkPositive arg-2 arg-1 arg-5 eta-0)))(else (lambda (eta-0) (Termination-Core-checkTerminating arg-2 arg-1 arg-5 eta-0)))))))(else (lambda (eta-0) (Termination-Core-checkTerminating arg-2 arg-1 arg-5 eta-0))))))) -(define Termination-Core-case--12067-11127 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact arg-5 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((6) (Termination-Core-checkPositive arg-2 arg-1 arg-5 eta-0))(else (Termination-Core-checkTerminating arg-2 arg-1 arg-5 eta-0))))))(else (Termination-Core-checkTerminating arg-2 arg-1 arg-5 eta-0)))))))))))(else (lambda (eta-0) (vector 1 arg-8))))))) -(define Termination-Core-case--12051-11098 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((n (vector 9 e-1))) (lambda (eta-0) (let ((act-24 (Context-Core-getTotality arg-2 arg-1 n eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Termination-Core-case--12067-11127 arg-0 arg-1 arg-2 arg-3 e-1 n e-5 e-6 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))))))) -(define Termination-Core-case--11974-11037 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setTerminating arg-2 arg-1 arg-3 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (c) (lambda (eta-1) (Context-Core-setTerminating arg-2 arg-1 c e-2 eta-1))) e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 e-2))))))))))))))) -(define Termination-Core-case--11955-11016 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Termination-Core-calcPositive arg-2 arg-1 arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Context-Core-setTerminating arg-2 arg-1 arg-3 e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (c) (lambda (eta-1) (Context-Core-setTerminating arg-2 arg-1 c e-2 eta-1))) e-3) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 e-2)))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-5))))))) -(define Termination-Core-case--11787-10887 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 ((Termination-Core-checkData arg-2 arg-3 (vector 1 arg-0 arg-11) arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5 arg-10)))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-14 arg-10)))))))) -(define Termination-Core-case--11767-10852 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((6) (let ((e-12 (vector-ref sc2 6))) (let ((e-13 (vector-ref sc2 7))) (lambda (eta-0) (let ((act-24 ((Termination-Core-totRefsIn 'erased arg-2 arg-3 e-6) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc3 1))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((act-25 ((Termination-Core-checkData arg-2 arg-3 (vector 1 arg-0 e-12) e-13) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc5 1))) (vector 1 (vector 0 e-16 e-13))))))))(else (vector 1 (vector 0 e-15 e-13))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not a data type")) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not a data type")) eta-0))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))))))) -(define Termination-Core-case--11715-10807 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (Termination-Core-checkData arg-0 arg-4 arg-3 arg-2))(else (lambda (eta-0) (vector 1 arg-5))))))) -(define Termination-Core-case--11638-10752 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 0 ) arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-checkPosArgs arg-2 arg-1 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-6))))))) -(define Termination-Core-case--11626-10722 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Termination-Core-totRefsIn 'erased arg-3 arg-2 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 0 ) e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) ((Termination-Core-checkPosArgs arg-2 arg-1 e-6) eta-0)))))))(else (vector 1 e-5)))))))))))))))) -(define Termination-Core-case--11549-10660 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (((arg-3 arg-7) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-checkPosArgs arg-7 arg-6 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-8))))))) -(define Termination-Core-case--11250-10594 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 2 (vector 0 ))))) (else (lambda (eta-0) (let ((act-24 (((arg-3 arg-7) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-posArg arg-7 arg-6 e-5) eta-0)))))))))))) -(define Termination-Core-case--11250-10537 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 2 (vector 0 ))))) (else (lambda (eta-0) (vector 1 (vector 1 )))))))) -(define Termination-Core-case--11250-10470 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-4 (vector-ref sc1 3))) (Termination-Core-n--11250-10396-dropParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 e-4 arg-3)))(else arg-3)))))(else arg-3))))) -(define Termination-Core-case--11264-10413 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (Termination-Core-n--11250-10396-dropParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (+ 1 arg-10) arg-9 arg-8)) (else (vector 1 arg-7 (Termination-Core-n--11250-10396-dropParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (+ 1 arg-10) arg-9 arg-8))))))) -(define Termination-Core-case--11093-10317 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-6 eta-1)) arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Core-Core-anyM 'erased (lambda (eta-1) (Termination-Core-nameIn arg-6 arg-5 eta-1)) e-5) eta-0)))))))))))) -(define Termination-Core-case--11093-10249 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (lambda (eta-0) (let ((act-24 (((arg-0 arg-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-3 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-nameIn arg-5 arg-4 e-5) eta-0)))))))))))) -(define Termination-Core-case--11045-10202 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Termination-Core-calcTerminating arg-2 arg-1 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-setTerminating arg-2 arg-1 arg-0 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 e-5))))))))))))(else (lambda (eta-0) (vector 1 arg-4))))))) -(define Termination-Core-case--10936-10133 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((ty (let ((sc1 arg-4)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Termination.APos" ) (Termination-Core-firstArg) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-3 (vector 0 ) ty eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Termination-Core-initArgs e-5 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Termination-Core-checkSC e-5 arg-2 arg-3 arg-0 e-6 (vector 0 )) eta-0))))))))))))))(else (lambda (eta-0) (vector 1 arg-7))))))) -(define Termination-Core-case--10742-10094 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Termination-Core-n--10742-9926-addCases arg-0 arg-1 arg-2 arg-3 (NameMap-Data-keys 'erased (Context-Core-refersTo e-2))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Termination-Core-totRefs arg-2 arg-3 (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-5)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((ty (let ((sc4 e-2)) (let ((e-23 (vector-ref sc4 3))) e-23)))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Core.Termination.APos" ) (Termination-Core-firstArg) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 (Normalise-Core-getArity (vector 0 ) arg-3 (vector 0 ) ty eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) ((Termination-Core-initArgs e-7 e-8) eta-0)))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) ((Termination-Core-checkSC e-7 arg-2 arg-3 arg-0 e-8 (vector 0 )) eta-0)))))))))))))(else (vector 1 e-6))))))))))))))))))))) -(define Termination-Core-case--10813-10011 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Termination-Core-n--10742-9925-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) (List-Prelude-C-43C-43 'erased (NameMap-Data-keys 'erased (Context-Core-refersTo e-1)) arg-4)))) (else (Termination-Core-n--10742-9925-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) arg-4)))))) -(define Termination-Core-case--10764-9985 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-3 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) ((Termination-Core-n--10742-9925-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) (List-Prelude-C-43C-43 'erased (NameMap-Data-keys 'erased (Context-Core-refersTo e-1)) arg-4)) eta-0))) (else ((Termination-Core-n--10742-9925-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) arg-4) eta-0))))))))))) (else (Termination-Core-n--10742-9925-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) arg-4)))))) -(define Termination-Core-case--10747-9942 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (Termination-Core-n--10742-9925-addCasesC-39 arg-0 arg-1 arg-2 arg-6 arg-5 arg-4)) (else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-2 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-case--10764-9985 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 (Termination-Core-caseFn e-5)) eta-0)))))))))))) -(define Termination-Core-case--10633-9877 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Termination-Core-n--10078-9334-continue arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc1 e-2)) (let ((e-20 (vector-ref sc1 21))) e-20)) (vector 1 arg-6 arg-0) eta-0)))))))) -(define Termination-Core-case--10078-9823 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (Context-Core-toFullNames 'erased arg-4 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Terminating arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Terminating arg-5888 arg-5889)))) (Termination-Core-n--10078-9328-checkDesc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-2) (Builtin-snd 'erased 'erased eta-2)) eta-1)) arg-1) arg-0) eta-0))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 1 ))) (else (let ((e-2 (vector-ref sc2 1))) (Termination-Core-n--10078-9334-continue arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc3 e-2)) (let ((e-20 (vector-ref sc3 21))) e-20)) (vector 1 arg-6 arg-0) eta-0)))))))))))))))) -(define Termination-Core-case--10368-9607 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 ((Termination-Core-initArgs arg-5 (List-Data-length 'erased (let ((sc2 arg-6)) (let ((e-2 (vector-ref sc2 2))) e-2)))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Termination-Core-checkSC arg-5 arg-4 arg-3 (let ((sc3 arg-6)) (let ((e-3 (vector-ref sc3 1))) e-3)) e-5 arg-7) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))) -(define Termination-Core-case--10326-9579 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((2) (let ((e-0 (vector-ref sc1 1))) (let ((sc2 e-0)) (case (vector-ref sc2 0) ((2) (lambda (eta-0) (let ((act-24 ((Termination-Core-initArgs arg-5 (List-Data-length 'erased (let ((sc3 arg-6)) (let ((e-2 (vector-ref sc3 2))) e-2)))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Termination-Core-checkSC arg-5 arg-4 arg-3 (let ((sc4 arg-6)) (let ((e-3 (vector-ref sc4 1))) e-3)) e-5 arg-7) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11)))))) (else (lambda (eta-0) (vector 1 arg-11))))))) -(define Termination-Core-case--10293-9547 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Termination-Core-checkSC arg-5 arg-4 arg-3 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0)) (Termination-Core-n--10078-9331-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc1 arg-6)) (let ((e-1 (vector-ref sc1 2))) e-1))) arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-case--10326-9579 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 (Prelude-not arg-8)) eta-0)))))))) ((1) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 (vector 1 (vector 1 (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0)) (vector 0 ))))))))))) -(define Termination-Core-case--10091-9524 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Termination-Core-case--10293-9547 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 (let ((sc1 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((e-0 (vector-ref sc1 1))) e-0)))))) (else (lambda (eta-0) (vector 1 (vector 1 )))))))) -(define Termination-Core-case--10090-9455 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ) (Termination-Core-n--10078-9331-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8))) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (Termination-Core-n--10078-9330-updateArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-2) (Termination-Core-n--10078-9331-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8)))))))) -(define Termination-Core-case--9971-9243 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Termination-Core-getSC arg-2 arg-3 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))))))) -(define Termination-Core-case--9546-8948 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findInCase arg-9 arg-8 arg-6 eta-1)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))) -(define Termination-Core-case--7629-8818 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((fn (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Looking under " (Name-Core-show_Show__Name fn))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Context-Core-resolved_HasNames__Name (let ((sc2 arg-8)) (let ((e-0 (vector-ref sc2 1))) e-0)) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_smaller"))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name fn (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")))) (lambda () (lambda (eta-1) (vector 1 (vector 0 ))))) (vector 1 (vector 0 (lambda () (Termination-Core-caseFn fn)) (lambda () (lambda (eta-1) (let ((act-26 (Termination-Core-getCasePats arg-0 arg-8 fn arg-5 arg-1 eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc4 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (Termination-Core-findInCase arg-9 arg-8 arg-6 eta-2)) e-2) eta-1))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8))))))))))))))))))) (vector 0 ))) (lambda (eta-1) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (Termination-Core-findSC arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 eta-2)) arg-1) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (List-Prelude-C-43C-43 'erased (vector 1 (vector 0 fn (Termination-Core-expandToArity arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Termination-Core-mkChange 'erased arg-8 e-6 arg-5 eta-2)) arg-1))) (vector 0 )) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-7)))))))))) eta-0)))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-3) eta-0))))))) -(define Termination-Core-case--7624-8750 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 5))) (lambda (eta-0) (vector 1 (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Termination-Core-n--7624-8350-matchArgs arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-6))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Termination-Core-case--9010-8634 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (Termination-Core-n--9010-8526-urhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-6)) (else (let ((e-2 (vector-ref sc0 1))) e-2)))))) -(define Termination-Core-case--9009-8471 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (vector 1 arg-8)) (else (Termination-Core-n--7624-8347-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased arg-10 arg-9)))))) -(define Termination-Core-case--9009-8383 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (vector 1 arg-11)) (else (Termination-Core-n--7624-8347-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased arg-13 (vector 1 (vector 0 arg-9 arg-11) arg-12))))))) -(define Termination-Core-case--8812-8217 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (vector 1 arg-9)) (else (vector 0 )))))) -(define Termination-Core-case--7620-8177 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((1) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((1) (let ((e-18 (vector-ref sc5 1))) (let ((e-19 (vector-ref sc5 2))) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((0) (Termination-Core-case--8812-8217 'erased arg-1 arg-2 e-18 e-12 e-9 e-5 e-7 e-6 e-15 (Name-Core-C-61C-61_Eq__Name e-7 arg-2)))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))))(else (vector 0 )))))))(else (vector 0 )))))) -(define Termination-Core-case--8711-8138 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-2 (vector-ref sc0 2))) (Termination-Core-smaller 'erased arg-5 arg-4 arg-3 e-2 arg-1)))(else 1))))) -(define Termination-Core-case--8675-8093 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((2) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Termination-Core-smaller 'erased 0 arg-4 arg-3 arg-2 eta-0))) e-3))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((4) (let ((e-8 (vector-ref sc2 2))) (Termination-Core-smaller 'erased arg-5 arg-4 arg-3 e-8 arg-1)))(else 1))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((4) (let ((e-5 (vector-ref sc1 2))) (Termination-Core-smaller 'erased arg-5 arg-4 arg-3 e-5 arg-1)))(else 1)))))))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-2 (vector-ref sc0 2))) (Termination-Core-smaller 'erased arg-5 arg-4 arg-3 e-2 arg-1)))(else 1)))))))) -(define Termination-Core-case--7618-8062 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) 0) (else (Termination-Core-case--8675-8093 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (TT-Core-getFnArgs 'erased arg-1))))))) -(define Termination-Core-case--7614-8018 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) 0) (else (Termination-Core-smallerArg 'erased 0 arg-4 arg-3 arg-2 arg-1)))))) -(define Termination-Core-case--8105-7816 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 arg-13 arg-12 e-5 arg-14 eta-0))))))))) (else (lambda (eta-0) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 arg-13 arg-12 0 arg-14 eta-0))))))) -(define Termination-Core-case--8061-7532 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((1) (let ((e-18 (vector-ref sc3 2))) (let ((sc4 e-18)) (case (vector-ref sc4 0) ((2) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 3 ) arg-2 eta-1)) e-15) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-15) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-15) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))(else (let ((sc2 e-3)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((e-11 (vector-ref sc3 3))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc5 arg-5)) (let ((e-0 (vector-ref sc5 1))) e-0)) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc7 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))) ((2) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-24 (vector-ref sc2 1))) (let ((e-25 (vector-ref sc2 2))) (let ((sc3 e-24)) (case (vector-ref sc3 0) ((1) (let ((e-28 (vector-ref sc3 2))) (let ((sc4 e-28)) (case (vector-ref sc4 0) ((2) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 2 ) arg-2 eta-1)) e-25) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))(else (let ((sc4 e-3)) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((e-11 (vector-ref sc5 3))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc7 arg-5)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc7 1))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc9 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))))(else (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((e-11 (vector-ref sc4 3))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc6 arg-5)) (let ((e-0 (vector-ref sc6 1))) e-0)) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc6 1))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc8 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))))))))(else (let ((sc2 e-3)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((e-11 (vector-ref sc3 3))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc5 arg-5)) (let ((e-0 (vector-ref sc5 1))) e-0)) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc7 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))) ((0) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((sc3 e-34)) (case (vector-ref sc3 0) ((1) (let ((e-38 (vector-ref sc3 2))) (let ((sc4 e-38)) (case (vector-ref sc4 0) ((2) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 2 ) arg-2 eta-1)) e-35) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))(else (let ((sc4 e-3)) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((e-11 (vector-ref sc5 3))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc7 arg-5)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc7 1))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc9 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))))(else (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((e-11 (vector-ref sc4 3))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc6 arg-5)) (let ((e-0 (vector-ref sc6 1))) e-0)) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc6 1))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc8 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))))))))(else (let ((sc2 e-3)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((e-11 (vector-ref sc3 3))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc5 arg-5)) (let ((e-0 (vector-ref sc5 1))) e-0)) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc7 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))))))(else (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((e-11 (vector-ref sc2 3))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc4 arg-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc6 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))))))) -(define Termination-Core-case--8026-7496 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Termination-Core-n--7610-7243-conIfGuarded arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 0 ))) ((Termination-Core-case--8061-7532 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 _-0 e-5 (vector 0 arg-3 (vector 0 e-5 arg-8))) eta-0))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))))))) -(define Termination-Core-case--7610-7468 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Termination-Core-n--7610-7242-handleCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((act-25 ((Termination-Core-n--7610-7243-conIfGuarded arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((_-0 (vector 0 ))) ((Termination-Core-case--8061-7532 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3 _-0 e-6 (vector 0 arg-3 (vector 0 e-6 e-3))) eta-0)))))))) (else (let ((e-4 (vector-ref sc2 1))) (vector 1 e-4)))))))))))))))) -(define Termination-Core-case--7884-7377 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 arg-8 (vector 2 0 0) arg-7)))) (else (lambda (eta-0) (vector 1 (vector 1 arg-8 (vector 1 ) arg-7)))))))) -(define Termination-Core-case--7768-7349 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Termination-Core-case--7884-7377 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__DefFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__DefFlag arg-430 arg-431)))) (vector 8 ) (let ((sc1 e-1)) (let ((e-11 (vector-ref sc1 12))) e-11))))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-8 (vector 1 ) arg-7)))))))) -(define Termination-Core-case--7767-7258 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (lambda (eta-1) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-9 arg-7 (+ 1 (+ 1 (+ 1 (+ 1 0)))) arg-10 eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Termination-Core-case--7610-7178 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (TT-Core-weaken_Weaken__Term arg-0 arg-1 e-3))))))) -(define Termination-Core-case--7435-7020 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 8 arg-3 arg-2 (Termination-Core-delazy 'erased arg-4 arg-1)))(else (Termination-Core-delazy 'erased arg-4 arg-1)))))) -(define Termination-Core-case--7435-6982 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 7 arg-4 arg-3 arg-6 arg-7))(else arg-7))))) -(define Termination-Core-case--7435-6948 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 6 arg-3 arg-2 arg-5))(else arg-5))))) -(define Termination-Core-case--6695-6685 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 ((Termination-Core-n--6695-6288-allGuarded arg-0 arg-1 arg-2 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (Context-Core-setFlag arg-2 arg-1 arg-0 (vector 8 ) eta-0)) (else (vector 1 (vector 0 )))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Termination-Core-case--6703-6633 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (Termination-Core-n--6695-6288-allGuarded arg-0 arg-1 arg-2 arg-7)) (else (lambda (eta-0) (vector 1 1))))))) -(define Termination-Core-case--6938-6532 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Core-Core-allM 'erased (lambda (eta-0) (lambda (eta-1) (Termination-Core-n--6695-6286-checkNotFn arg-0 arg-1 arg-2 arg-6 eta-0 eta-1))) (NameMap-Data-keys 'erased (Context-Core-refersTo e-1))))) (else (lambda (eta-0) (vector 1 1))))))) -(define Termination-Core-case--6702-6505 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-0 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) ((Core-Core-allM 'erased (lambda (eta-1) (lambda (eta-2) (Termination-Core-n--6695-6286-checkNotFn arg-0 arg-1 arg-2 arg-6 eta-1 eta-2))) (NameMap-Data-keys 'erased (Context-Core-refersTo e-1))) eta-0))) (else (vector 1 1))))))))))) (else (lambda (eta-0) (vector 1 1))))))) -(define Termination-Core-case--6816-6408 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((5) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 (Prelude-C-124C-124 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega (let ((sc0 arg-5)) (let ((e-7 (vector-ref sc0 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__DefFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__DefFlag arg-430 arg-431)))) (vector 8 ) (let ((sc0 arg-5)) (let ((e-11 (vector-ref sc0 12))) e-11)))))))))))) -(define Termination-Core-case--6701-6393 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Termination-Core-case--6816-6408 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 1))))))) -(define Termination-Core-case--6700-6326 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__DefFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__DefFlag arg-430 arg-431)))) (vector 8 ) (let ((sc1 e-1)) (let ((e-11 (vector-ref sc1 12))) e-11))))))) (else (lambda (eta-0) (vector 1 1))))))) -(define Termination-Core-case--6551-6208 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Terminating arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Terminating arg-5888 arg-5889)))) (vector 2 (vector 1 (vector 1 arg-0 e-1))) eta-0))))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Terminating arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Terminating arg-5888 arg-5889)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0)))))))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Terminating arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Terminating arg-5888 arg-5889)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0))))))) -(define Termination-Core-case--6530-6157 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 arg-4))) ((0) (lambda (eta-0) (vector 1 arg-4)))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Terminating arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Terminating arg-5888 arg-5889)))) (vector 2 (vector 1 (vector 1 arg-0 e-1))) eta-0))))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Terminating arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Terminating arg-5888 arg-5889)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0)))))))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Terminating arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Terminating arg-5888 arg-5889)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0)))))))))) -(define Termination-Core-case--6506-6142 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Termination-Core-case--6530-6157 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((e-0 (vector-ref sc1 1))) e-0)))))) (else (lambda (eta-0) (vector 1 arg-4))))))) -(define Termination-Core-n--9010-8526-urhs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 10 e-2 1))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (vector 1 e-7 e-8 e-9))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (vector 2 e-11 e-12 e-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Termination-Core-n--7624-8348-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 eta-0)) e-14))))))) ((4) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (vector 4 e-16 (Termination-Core-n--7624-8348-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-17) (Termination-Core-n--7624-8348-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-18)))))) ((5) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (let ((e-23 (vector-ref sc0 4))) (vector 5 e-20 e-21 (Termination-Core-n--7624-8348-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-22) (Termination-Core-n--7624-8348-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-23))))))) ((6) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (vector 6 e-25 e-26 (Termination-Core-n--7624-8348-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-27)))))) ((7) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (let ((e-32 (vector-ref sc0 4))) (vector 7 e-29 e-30 (Termination-Core-n--7624-8348-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-31) (Termination-Core-n--7624-8348-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-32))))))) ((8) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (vector 8 e-34 e-35 (Termination-Core-n--7624-8348-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-36)))))) ((3) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (let ((e-41 (vector-ref sc0 4))) (vector 3 e-38 e-39 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (Termination-Core-n--7624-8348-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 eta-0)) e-40) (Termination-Core-n--7624-8348-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 (vector 1 e-39 arg-5) (vector 1 e-39 arg-7) (Prelude-map_Functor__List 'erased 'erased (lambda (vt) (vector 0 (TT-Core-weaken_Weaken__Term e-39 arg-5 (Builtin-fst 'erased 'erased vt)) (TT-Core-weaken_Weaken__Term e-39 arg-7 (Builtin-snd 'erased 'erased vt)))) arg-8) e-41))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (vector 9 e-43 e-44)))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (vector 10 e-46 e-47)))) (else (let ((e-49 (vector-ref sc0 1))) (vector 11 e-49))))))) -(define Termination-Core-n--7624-8348-updateRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Termination-Core-case--9010-8634 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-6 arg-7 (Termination-Core-n--7624-8347-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased arg-8 arg-7)))) -(define Termination-Core-n--7624-8349-updatePat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (Termination-Core-n--7624-8348-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3))))))) -(define Termination-Core-n--10078-9330-updateArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 0 )) ((1) (let ((e-14 (vector-ref sc0 1))) (let ((sc1 e-14)) (case (vector-ref sc1 0) ((0) (let ((e-18 (vector-ref sc1 2))) (let ((sc2 e-18)) (case (vector-ref sc2 0) ((2) arg-7)(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((2) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 1 (vector 0 e-10 (vector 2 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7)))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7)))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((2) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 1 (vector 0 e-10 (vector 2 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7)))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7)))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (vector 1 (vector 0 e-10 (vector 2 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7)))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7))))))))))) -(define Termination-Core-n--10078-9331-mkArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 0 ) (Termination-Core-n--10078-9331-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (Termination-Core-case--10090-9455 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9 e-10 e-3 (Termination-Core-n--10078-9329-getPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-1 e-9)))))))))))))))) -(define Termination-Core-n--7624-8350-matchArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((patMatch (List-Data-reverse 'erased (List-Data-zip 'erased 'erased arg-1 (TT-Core-getArgs 'erased e-10))))) (vector 0 e-2 (vector 0 e-6 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Termination-Core-n--7624-8349-updatePat arg-0 arg-1 arg-2 arg-3 arg-4 arg-0 e-2 patMatch eta-0)) arg-2) e-11))))))))))))))) -(define Termination-Core-n--7624-8347-lookupTm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((5) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((e-11 (vector-ref sc2 3))) (let ((e-12 (vector-ref sc2 4))) (Termination-Core-case--9009-8383 arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-9 e-10 e-12 e-11 e-7 e-3 arg-7 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-7 e-11)))))))(else (Termination-Core-case--9009-8471 arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-6 e-7 e-3 arg-7 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-7 e-6))))))))))))))) -(define Termination-Core-n--7610-7242-handleCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-6 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-case--7767-7258 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-2 e-1 arg-8 e-5 (Termination-Core-caseFn e-5)) eta-0)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Termination-Core-n--6695-6285-guardedNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 0))) ((1) (let ((e-8 (vector-ref sc0 2))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((1) (let ((e-12 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-12 (let ((sc2 arg-4)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__DefFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__DefFlag arg-430 arg-431)))) (vector 8 ) (let ((sc4 e-1)) (let ((e-22 (vector-ref sc4 12))) e-22)))))) (else (vector 1 1))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Termination-Core-n--6695-6287-guarded (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Normalise-Core-nf arg-3 e-6 arg-4 arg-5) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Termination-Core-n--6695-6285-guardedNF arg-0 arg-1 arg-2 arg-3 e-5 arg-4 e-7) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 0) (let ((act-28 ((Context-Core-lookupCtxtExact arg-0 (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0))) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) ((Core-Core-allM 'erased (lambda (eta-0) (lambda (eta-1) (Termination-Core-n--6695-6286-checkNotFn arg-0 arg-1 arg-2 e-5 eta-0 eta-1))) (NameMap-Data-keys 'erased (Context-Core-refersTo e-1))) ext-0))) (else (vector 1 1)))))))))) (else (vector 1 1)))))))))))))))))))))))))) -(define Termination-Core-n--10078-9333-getWorst (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) arg-6) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (Termination-Core-n--10078-9333-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)) ((0) (Termination-Core-n--10078-9333-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-3))(else e-2)))))))))) -(define Termination-Core-n--10078-9329-getPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (cond ((equal? sc1 0) (vector 1 e-2))(else (let ((e-4 (- arg-8 1))) (Termination-Core-n--10078-9329-getPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3 e-4)))))))))))) -(define Termination-Core-n--7610-7138-findSCbinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (Termination-Core-findSC arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 e-2)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Termination-Core-n--11250-10396-dropParams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Termination-Core-case--11264-10413 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3 arg-8 arg-7 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-7 arg-8))))))))) -(define Termination-Core-n--10078-9334-continue (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Termination-Core-n--10078-9332-checkCall arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 eta-0)) arg-6) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Termination-Core-n--10078-9333-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 ) e-5))))))))) -(define Termination-Core-n--7610-7243-conIfGuarded (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-3 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-4))) ((Termination-Core-case--7884-7377 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-1 e-5 e-4 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__DefFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__DefFlag arg-430 arg-431)))) (vector 8 ) (let ((sc5 e-4)) (let ((e-11 (vector-ref sc5 12))) e-11)))) eta-0)))) (else (vector 1 (vector 1 e-1 (vector 1 ) e-3)))))))))))))))))(else (lambda (eta-0) (vector 1 arg-7)))))))))(else (lambda (eta-0) (vector 1 arg-7))))))) -(define Termination-Core-n--6695-6286-checkNotFn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-4 (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((Termination-Core-case--6816-6408 arg-0 arg-1 arg-2 arg-4 arg-3 e-1 _-0 (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17))) ext-0)))) (else (vector 1 1))))))))))) -(define Termination-Core-n--10078-9328-checkDesc (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 2 (vector 2 (List-Data-reverse 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-7))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 1 ))(else (Termination-Core-n--10078-9328-checkDesc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 arg-7))))))))))) -(define Termination-Core-n--10078-9332-checkCall (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((inpath (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) e-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-6)))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) e-0)) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) e-0))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((Termination-Core-case--10293-9547 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-6 inpath e-1 _-0 (let ((sc2 (let ((sc3 e-1)) (let ((e-10 (vector-ref sc3 11))) e-10)))) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0)))) (else (vector 1 (vector 1 )))))))))))))) -(define Termination-Core-n--6695-6288-allGuarded (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-15 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Termination-Core-n--6695-6287-guarded arg-0 arg-1 arg-2 e-6 e-10 e-15 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (let ((sc5 e-5)) (cond ((equal? sc5 0) ((Termination-Core-n--6695-6288-allGuarded arg-0 arg-1 arg-2 e-3) eta-0)) (else (vector 1 1))))))))))))))))))))))))) -(define Termination-Core-n--10742-9925-addCasesC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (NameMap-Data-keys 'erased arg-4)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Termination-Core-case--10747-9942 arg-0 arg-1 arg-2 e-2 e-3 arg-4 arg-3 (NameMap-Data-lookup 'erased e-2 arg-4))))))))) -(define Termination-Core-n--10742-9926-addCases (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Termination-Core-n--10742-9925-addCasesC-39 arg-0 arg-1 arg-2 arg-3 (NameMap-Data-empty 'erased) arg-4))) -(define Termination-Core-totRefsIn (lambda (arg-0 arg-1 arg-2 arg-3) (Termination-Core-totRefs arg-1 arg-2 (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 9 (Prelude-negate_Neg__Int 1)) arg-3))))) -(define Termination-Core-totRefs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Termination-Core-totRefs arg-0 arg-1 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-2 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((Termination-Core-case--6530-6157 e-2 e-3 arg-1 arg-0 e-5 e-1 _-0 (let ((sc4 (let ((sc5 e-1)) (let ((e-10 (vector-ref sc5 11))) e-10)))) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0)))) (else (vector 1 e-5)))))))))))))))))))))) -(define Termination-Core-smallerArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Termination-Core-case--7618-8062 'erased arg-5 arg-4 arg-3 arg-2 arg-1 (Termination-Core-assertedSmaller 'erased arg-3 arg-5)))) -(define Termination-Core-smaller (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((10) 1) ((5) (let ((e-6 (vector-ref sc0 3))) (let ((e-7 (vector-ref sc0 4))) (Prelude-C-124C-124 (Termination-Core-smaller 'erased arg-1 arg-2 arg-3 arg-4 e-6) (lambda () (Termination-Core-smaller 'erased arg-1 arg-2 arg-3 arg-4 e-7))))))(else (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Termination-Core-case--7614-8018 'erased arg-5 arg-4 arg-3 arg-2 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-4 arg-5)))(else (Termination-Core-smallerArg 'erased arg-1 arg-2 arg-3 arg-4 arg-5))))))))) +(define 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--6553-7681 'erased e-2 e-3 arg-2 (Transform-Core-tryApply 'erased e-2 arg-2))))))))) +(define Transform-Core-addMatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Transform-Core-case--6004-7192 'erased 'erased 'erased arg-6 arg-5 arg-3 'erased (Transform-Core-lookupMatch 'erased 'erased 'erased arg-3 'erased arg-6)))) +(define Termination-Core-case--12142-11161 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (lambda (eta-0) (Termination-Core-checkPositive arg-2 arg-1 arg-5 eta-0)))(else (lambda (eta-0) (Termination-Core-checkTerminating arg-2 arg-1 arg-5 eta-0)))))))(else (lambda (eta-0) (Termination-Core-checkTerminating arg-2 arg-1 arg-5 eta-0))))))) +(define Termination-Core-case--12109-11135 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact arg-5 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((6) (Termination-Core-checkPositive arg-2 arg-1 arg-5 eta-0))(else (Termination-Core-checkTerminating arg-2 arg-1 arg-5 eta-0))))))(else (Termination-Core-checkTerminating arg-2 arg-1 arg-5 eta-0)))))))))))(else (lambda (eta-0) (vector 1 arg-8))))))) +(define Termination-Core-case--12093-11106 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((n (vector 9 e-1))) (lambda (eta-0) (let ((act-24 (Context-Core-getTotality arg-2 arg-1 n eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Termination-Core-case--12109-11135 arg-0 arg-1 arg-2 arg-3 e-1 n e-5 e-6 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))))))) +(define Termination-Core-case--12016-11045 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setTerminating arg-2 arg-1 arg-3 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (c) (lambda (eta-1) (Context-Core-setTerminating arg-2 arg-1 c e-2 eta-1))) e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 e-2))))))))))))))) +(define Termination-Core-case--11997-11024 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Termination-Core-calcPositive arg-2 arg-1 arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Context-Core-setTerminating arg-2 arg-1 arg-3 e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (c) (lambda (eta-1) (Context-Core-setTerminating arg-2 arg-1 c e-2 eta-1))) e-3) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 e-2)))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-5))))))) +(define Termination-Core-case--11829-10895 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 ((Termination-Core-checkData arg-2 arg-3 (vector 1 arg-0 arg-11) arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5 arg-10)))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-14 arg-10)))))))) +(define Termination-Core-case--11809-10860 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((6) (let ((e-12 (vector-ref sc2 6))) (let ((e-13 (vector-ref sc2 7))) (lambda (eta-0) (let ((act-24 ((Termination-Core-totRefsIn 'erased arg-2 arg-3 e-6) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc3 1))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((act-25 ((Termination-Core-checkData arg-2 arg-3 (vector 1 arg-0 e-12) e-13) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc5 1))) (vector 1 (vector 0 e-16 e-13))))))))(else (vector 1 (vector 0 e-15 e-13))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not a data type")) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not a data type")) eta-0))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))))))) +(define Termination-Core-case--11757-10815 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (Termination-Core-checkData arg-0 arg-4 arg-3 arg-2))(else (lambda (eta-0) (vector 1 arg-5))))))) +(define Termination-Core-case--11680-10760 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 0 ) arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-checkPosArgs arg-2 arg-1 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-6))))))) +(define Termination-Core-case--11668-10730 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Termination-Core-totRefsIn 'erased arg-3 arg-2 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 0 ) e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) ((Termination-Core-checkPosArgs arg-2 arg-1 e-6) eta-0)))))))(else (vector 1 e-5)))))))))))))))) +(define Termination-Core-case--11591-10668 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (((arg-3 arg-7) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-checkPosArgs arg-7 arg-6 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-8))))))) +(define Termination-Core-case--11292-10602 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 2 (vector 0 ))))) (else (lambda (eta-0) (let ((act-24 (((arg-3 arg-7) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-posArg arg-7 arg-6 e-5) eta-0)))))))))))) +(define Termination-Core-case--11292-10545 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 2 (vector 0 ))))) (else (lambda (eta-0) (vector 1 (vector 1 )))))))) +(define Termination-Core-case--11292-10478 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-4 (vector-ref sc1 3))) (Termination-Core-n--11292-10404-dropParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 e-4 arg-3)))(else arg-3)))))(else arg-3))))) +(define Termination-Core-case--11306-10421 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (Termination-Core-n--11292-10404-dropParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (+ 1 arg-10) arg-9 arg-8)) (else (vector 1 arg-7 (Termination-Core-n--11292-10404-dropParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (+ 1 arg-10) arg-9 arg-8))))))) +(define Termination-Core-case--11135-10325 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-6 eta-1)) arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Core-Core-anyM 'erased (lambda (eta-1) (Termination-Core-nameIn arg-6 arg-5 eta-1)) e-5) eta-0)))))))))))) +(define Termination-Core-case--11135-10257 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (lambda (eta-0) (let ((act-24 (((arg-0 arg-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-3 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-nameIn arg-5 arg-4 e-5) eta-0)))))))))))) +(define Termination-Core-case--11087-10210 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Termination-Core-calcTerminating arg-2 arg-1 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-setTerminating arg-2 arg-1 arg-0 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 e-5))))))))))))(else (lambda (eta-0) (vector 1 arg-4))))))) +(define Termination-Core-case--10978-10141 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((ty (let ((sc1 arg-4)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Termination.APos" ) (Termination-Core-firstArg) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-3 (vector 0 ) ty eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Termination-Core-initArgs e-5 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Termination-Core-checkSC e-5 arg-2 arg-3 arg-0 e-6 (vector 0 )) eta-0))))))))))))))(else (lambda (eta-0) (vector 1 arg-7))))))) +(define Termination-Core-case--10784-10102 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Termination-Core-n--10784-9934-addCases arg-0 arg-1 arg-2 arg-3 ((NameMap-Data-keys 'erased) (Context-Core-refersTo e-2))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Termination-Core-totRefs arg-2 arg-3 (List-Data-nub 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-5)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((ty (let ((sc4 e-2)) (let ((e-23 (vector-ref sc4 3))) e-23)))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Core.Termination.APos" ) (Termination-Core-firstArg) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 (Normalise-Core-getArity (vector 0 ) arg-3 (vector 0 ) ty eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) ((Termination-Core-initArgs e-7 e-8) eta-0)))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) ((Termination-Core-checkSC e-7 arg-2 arg-3 arg-0 e-8 (vector 0 )) eta-0)))))))))))))(else (vector 1 e-6))))))))))))))))))))) +(define Termination-Core-case--10855-10019 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Termination-Core-n--10784-9933-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) (List-Prelude-C-43C-43 'erased ((NameMap-Data-keys 'erased) (Context-Core-refersTo e-1)) arg-4)))) (else (Termination-Core-n--10784-9933-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) arg-4)))))) +(define Termination-Core-case--10806-9993 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-3 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) ((Termination-Core-n--10784-9933-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) (List-Prelude-C-43C-43 'erased ((NameMap-Data-keys 'erased) (Context-Core-refersTo e-1)) arg-4)) eta-0))) (else ((Termination-Core-n--10784-9933-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) arg-4) eta-0))))))))))) (else (Termination-Core-n--10784-9933-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) arg-4)))))) +(define Termination-Core-case--10789-9950 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (Termination-Core-n--10784-9933-addCasesC-39 arg-0 arg-1 arg-2 arg-6 arg-5 arg-4)) (else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-2 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-case--10806-9993 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 (Termination-Core-caseFn e-5)) eta-0)))))))))))) +(define Termination-Core-case--10675-9885 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Termination-Core-n--10120-9342-continue arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc1 e-2)) (let ((e-20 (vector-ref sc1 21))) e-20)) (vector 1 arg-6 arg-0) eta-0)))))))) +(define Termination-Core-case--10120-9831 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (Context-Core-toFullNames 'erased arg-4 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Terminating arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Terminating arg-6292 arg-6293)))) (Termination-Core-n--10120-9336-checkDesc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-2) (Builtin-snd 'erased 'erased eta-2)) eta-1)) arg-1) arg-0) eta-0))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 1 ))) (else (let ((e-2 (vector-ref sc2 1))) (Termination-Core-n--10120-9342-continue arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc3 e-2)) (let ((e-20 (vector-ref sc3 21))) e-20)) (vector 1 arg-6 arg-0) eta-0)))))))))))))))) +(define Termination-Core-case--10410-9615 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 ((Termination-Core-initArgs arg-5 (List-Data-length 'erased (let ((sc2 arg-6)) (let ((e-2 (vector-ref sc2 2))) e-2)))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Termination-Core-checkSC arg-5 arg-4 arg-3 (let ((sc3 arg-6)) (let ((e-3 (vector-ref sc3 1))) e-3)) e-5 arg-7) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))) +(define Termination-Core-case--10368-9587 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((2) (let ((e-0 (vector-ref sc1 1))) (let ((sc2 e-0)) (case (vector-ref sc2 0) ((2) (lambda (eta-0) (let ((act-24 ((Termination-Core-initArgs arg-5 (List-Data-length 'erased (let ((sc3 arg-6)) (let ((e-2 (vector-ref sc3 2))) e-2)))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Termination-Core-checkSC arg-5 arg-4 arg-3 (let ((sc4 arg-6)) (let ((e-3 (vector-ref sc4 1))) e-3)) e-5 arg-7) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11)))))) (else (lambda (eta-0) (vector 1 arg-11))))))) +(define Termination-Core-case--10335-9555 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Termination-Core-checkSC arg-5 arg-4 arg-3 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0)) (Termination-Core-n--10120-9339-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc1 arg-6)) (let ((e-1 (vector-ref sc1 2))) e-1))) arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-case--10368-9587 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 (Prelude-not arg-8)) eta-0)))))))) ((1) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 (vector 1 (vector 1 (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0)) (vector 0 ))))))))))) +(define Termination-Core-case--10133-9532 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Termination-Core-case--10335-9555 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 (let ((sc1 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((e-0 (vector-ref sc1 1))) e-0)))))) (else (lambda (eta-0) (vector 1 (vector 1 )))))))) +(define Termination-Core-case--10132-9463 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ) (Termination-Core-n--10120-9339-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8))) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (Termination-Core-n--10120-9338-updateArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-2) (Termination-Core-n--10120-9339-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8)))))))) +(define Termination-Core-case--10013-9251 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Termination-Core-getSC arg-2 arg-3 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))))))) +(define Termination-Core-case--9588-8956 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findInCase arg-9 arg-8 arg-6 eta-1)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))) +(define Termination-Core-case--7671-8826 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((fn (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Looking under " (Name-Core-show_Show__Name fn))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Context-Core-resolved_HasNames__Name (let ((sc2 arg-8)) (let ((e-0 (vector-ref sc2 1))) e-0)) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_smaller"))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name fn (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")))) (lambda () (lambda (eta-1) (vector 1 (vector 0 ))))) (vector 1 (vector 0 (lambda () (Termination-Core-caseFn fn)) (lambda () (lambda (eta-1) (let ((act-26 (Termination-Core-getCasePats arg-0 arg-8 fn arg-5 arg-1 eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc4 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (Termination-Core-findInCase arg-9 arg-8 arg-6 eta-2)) e-2) eta-1))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8))))))))))))))))))) (vector 0 ))) (lambda (eta-1) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (Termination-Core-findSC arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 eta-2)) arg-1) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (List-Prelude-C-43C-43 'erased (vector 1 (vector 0 fn (Termination-Core-expandToArity arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Termination-Core-mkChange 'erased arg-8 e-6 arg-5 eta-2)) arg-1))) (vector 0 )) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-7)))))))))) eta-0)))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-3) eta-0))))))) +(define Termination-Core-case--7666-8758 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 5))) (lambda (eta-0) (vector 1 (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Termination-Core-n--7666-8358-matchArgs arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-6))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Termination-Core-case--9052-8642 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (Termination-Core-n--9052-8534-urhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-6)) (else (let ((e-2 (vector-ref sc0 1))) e-2)))))) +(define Termination-Core-case--9051-8479 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (vector 1 arg-8)) (else (Termination-Core-n--7666-8355-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased arg-10 arg-9)))))) +(define Termination-Core-case--9051-8391 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (vector 1 arg-11)) (else (Termination-Core-n--7666-8355-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased arg-13 (vector 1 (vector 0 arg-9 arg-11) arg-12))))))) +(define Termination-Core-case--8854-8225 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (vector 1 arg-9)) (else (vector 0 )))))) +(define Termination-Core-case--7662-8185 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((1) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((1) (let ((e-18 (vector-ref sc5 1))) (let ((e-19 (vector-ref sc5 2))) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((0) (Termination-Core-case--8854-8225 'erased arg-1 arg-2 e-18 e-12 e-9 e-5 e-7 e-6 e-15 (Name-Core-C-61C-61_Eq__Name e-7 arg-2)))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))))(else (vector 0 )))))))(else (vector 0 )))))) +(define Termination-Core-case--8753-8146 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-2 (vector-ref sc0 2))) (Termination-Core-smaller 'erased arg-5 arg-4 arg-3 e-2 arg-1)))(else 1))))) +(define Termination-Core-case--8717-8101 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((2) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Termination-Core-smaller 'erased 0 arg-4 arg-3 arg-2 eta-0))) e-3))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((4) (let ((e-8 (vector-ref sc2 2))) (Termination-Core-smaller 'erased arg-5 arg-4 arg-3 e-8 arg-1)))(else 1))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((4) (let ((e-5 (vector-ref sc1 2))) (Termination-Core-smaller 'erased arg-5 arg-4 arg-3 e-5 arg-1)))(else 1)))))))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-2 (vector-ref sc0 2))) (Termination-Core-smaller 'erased arg-5 arg-4 arg-3 e-2 arg-1)))(else 1)))))))) +(define Termination-Core-case--7660-8070 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) 0) (else (Termination-Core-case--8717-8101 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (TT-Core-getFnArgs 'erased arg-1))))))) +(define Termination-Core-case--7656-8026 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) 0) (else (Termination-Core-smallerArg 'erased 0 arg-4 arg-3 arg-2 arg-1)))))) +(define Termination-Core-case--8147-7824 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 arg-13 arg-12 e-5 arg-14 eta-0))))))))) (else (lambda (eta-0) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 arg-13 arg-12 0 arg-14 eta-0))))))) +(define Termination-Core-case--8103-7540 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((1) (let ((e-18 (vector-ref sc3 2))) (let ((sc4 e-18)) (case (vector-ref sc4 0) ((2) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 3 ) arg-2 eta-1)) e-15) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-15) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-15) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))(else (let ((sc2 e-3)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((e-11 (vector-ref sc3 3))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc5 arg-5)) (let ((e-0 (vector-ref sc5 1))) e-0)) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc7 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))) ((2) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-24 (vector-ref sc2 1))) (let ((e-25 (vector-ref sc2 2))) (let ((sc3 e-24)) (case (vector-ref sc3 0) ((1) (let ((e-28 (vector-ref sc3 2))) (let ((sc4 e-28)) (case (vector-ref sc4 0) ((2) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 2 ) arg-2 eta-1)) e-25) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))(else (let ((sc4 e-3)) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((e-11 (vector-ref sc5 3))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc7 arg-5)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc7 1))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc9 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))))(else (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((e-11 (vector-ref sc4 3))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc6 arg-5)) (let ((e-0 (vector-ref sc6 1))) e-0)) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc6 1))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc8 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))))))))(else (let ((sc2 e-3)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((e-11 (vector-ref sc3 3))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc5 arg-5)) (let ((e-0 (vector-ref sc5 1))) e-0)) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc7 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))) ((0) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((sc3 e-34)) (case (vector-ref sc3 0) ((1) (let ((e-38 (vector-ref sc3 2))) (let ((sc4 e-38)) (case (vector-ref sc4 0) ((2) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 2 ) arg-2 eta-1)) e-35) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))(else (let ((sc4 e-3)) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((e-11 (vector-ref sc5 3))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc7 arg-5)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc7 1))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc9 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))))(else (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((e-11 (vector-ref sc4 3))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc6 arg-5)) (let ((e-0 (vector-ref sc6 1))) e-0)) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc6 1))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc8 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))))))))(else (let ((sc2 e-3)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((e-11 (vector-ref sc3 3))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc5 arg-5)) (let ((e-0 (vector-ref sc5 1))) e-0)) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc7 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))))))(else (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((e-11 (vector-ref sc2 3))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc4 arg-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc6 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))))))) +(define Termination-Core-case--8068-7504 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Termination-Core-n--7652-7251-conIfGuarded arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 0 ))) ((Termination-Core-case--8103-7540 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 _-0 e-5 (vector 0 arg-3 (vector 0 e-5 arg-8))) eta-0))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))))))) +(define Termination-Core-case--7652-7476 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Termination-Core-n--7652-7250-handleCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((act-25 ((Termination-Core-n--7652-7251-conIfGuarded arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((_-0 (vector 0 ))) ((Termination-Core-case--8103-7540 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3 _-0 e-6 (vector 0 arg-3 (vector 0 e-6 e-3))) eta-0)))))))) (else (let ((e-4 (vector-ref sc2 1))) (vector 1 e-4)))))))))))))))) +(define Termination-Core-case--7926-7385 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 arg-8 (vector 2 0 0) arg-7)))) (else (lambda (eta-0) (vector 1 (vector 1 arg-8 (vector 1 ) arg-7)))))))) +(define Termination-Core-case--7810-7357 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Termination-Core-case--7926-7385 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Context-Core-C-61C-61_Eq__DefFlag arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Context-Core-C-47C-61_Eq__DefFlag arg-438 arg-439)))) (vector 8 ) (let ((sc1 e-1)) (let ((e-11 (vector-ref sc1 12))) e-11))))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-8 (vector 1 ) arg-7)))))))) +(define Termination-Core-case--7809-7266 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (lambda (eta-1) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-9 arg-7 (+ 1 (+ 1 (+ 1 (+ 1 0)))) arg-10 eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Termination-Core-case--7652-7186 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (TT-Core-weaken_Weaken__Term arg-0 arg-1 e-3))))))) +(define Termination-Core-case--7477-7028 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 8 arg-3 arg-2 (Termination-Core-delazy 'erased arg-4 arg-1)))(else (Termination-Core-delazy 'erased arg-4 arg-1)))))) +(define Termination-Core-case--7477-6990 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 7 arg-4 arg-3 arg-6 arg-7))(else arg-7))))) +(define Termination-Core-case--7477-6956 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 6 arg-3 arg-2 arg-5))(else arg-5))))) +(define Termination-Core-case--6737-6693 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 ((Termination-Core-n--6737-6296-allGuarded arg-0 arg-1 arg-2 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (Context-Core-setFlag arg-2 arg-1 arg-0 (vector 8 ) eta-0)) (else (vector 1 (vector 0 )))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Termination-Core-case--6745-6641 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (Termination-Core-n--6737-6296-allGuarded arg-0 arg-1 arg-2 arg-7)) (else (lambda (eta-0) (vector 1 1))))))) +(define Termination-Core-case--6980-6540 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Core-Core-allM 'erased (lambda (eta-0) (lambda (eta-1) (Termination-Core-n--6737-6294-checkNotFn arg-0 arg-1 arg-2 arg-6 eta-0 eta-1))) ((NameMap-Data-keys 'erased) (Context-Core-refersTo e-1))))) (else (lambda (eta-0) (vector 1 1))))))) +(define Termination-Core-case--6744-6513 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-0 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) ((Core-Core-allM 'erased (lambda (eta-1) (lambda (eta-2) (Termination-Core-n--6737-6294-checkNotFn arg-0 arg-1 arg-2 arg-6 eta-1 eta-2))) ((NameMap-Data-keys 'erased) (Context-Core-refersTo e-1))) eta-0))) (else (vector 1 1))))))))))) (else (lambda (eta-0) (vector 1 1))))))) +(define Termination-Core-case--6858-6416 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((5) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 (Prelude-C-124C-124 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega (let ((sc0 arg-5)) (let ((e-7 (vector-ref sc0 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Context-Core-C-61C-61_Eq__DefFlag arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Context-Core-C-47C-61_Eq__DefFlag arg-438 arg-439)))) (vector 8 ) (let ((sc0 arg-5)) (let ((e-11 (vector-ref sc0 12))) e-11)))))))))))) +(define Termination-Core-case--6743-6401 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Termination-Core-case--6858-6416 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 1))))))) +(define Termination-Core-case--6742-6334 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Context-Core-C-61C-61_Eq__DefFlag arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Context-Core-C-47C-61_Eq__DefFlag arg-438 arg-439)))) (vector 8 ) (let ((sc1 e-1)) (let ((e-11 (vector-ref sc1 12))) e-11))))))) (else (lambda (eta-0) (vector 1 1))))))) +(define Termination-Core-case--6593-6216 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Terminating arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Terminating arg-6292 arg-6293)))) (vector 2 (vector 1 (vector 1 arg-0 e-1))) eta-0))))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Terminating arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Terminating arg-6292 arg-6293)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0)))))))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Terminating arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Terminating arg-6292 arg-6293)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0))))))) +(define Termination-Core-case--6572-6165 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 arg-4))) ((0) (lambda (eta-0) (vector 1 arg-4)))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Terminating arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Terminating arg-6292 arg-6293)))) (vector 2 (vector 1 (vector 1 arg-0 e-1))) eta-0))))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Terminating arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Terminating arg-6292 arg-6293)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0)))))))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Terminating arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Terminating arg-6292 arg-6293)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0)))))))))) +(define Termination-Core-case--6548-6150 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Termination-Core-case--6572-6165 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((e-0 (vector-ref sc1 1))) e-0)))))) (else (lambda (eta-0) (vector 1 arg-4))))))) +(define Termination-Core-n--9052-8534-urhs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 10 e-2 1))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (vector 1 e-7 e-8 e-9))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (vector 2 e-11 e-12 e-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Termination-Core-n--7666-8356-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 eta-0)) e-14))))))) ((4) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (vector 4 e-16 (Termination-Core-n--7666-8356-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-17) (Termination-Core-n--7666-8356-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-18)))))) ((5) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (let ((e-23 (vector-ref sc0 4))) (vector 5 e-20 e-21 (Termination-Core-n--7666-8356-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-22) (Termination-Core-n--7666-8356-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-23))))))) ((6) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (vector 6 e-25 e-26 (Termination-Core-n--7666-8356-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-27)))))) ((7) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (let ((e-32 (vector-ref sc0 4))) (vector 7 e-29 e-30 (Termination-Core-n--7666-8356-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-31) (Termination-Core-n--7666-8356-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-32))))))) ((8) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (vector 8 e-34 e-35 (Termination-Core-n--7666-8356-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-36)))))) ((3) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (let ((e-41 (vector-ref sc0 4))) (vector 3 e-38 e-39 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (Termination-Core-n--7666-8356-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 eta-0)) e-40) (Termination-Core-n--7666-8356-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 (vector 1 e-39 arg-5) (vector 1 e-39 arg-7) (Prelude-map_Functor__List 'erased 'erased (lambda (vt) (vector 0 (TT-Core-weaken_Weaken__Term e-39 arg-5 (Builtin-fst 'erased 'erased vt)) (TT-Core-weaken_Weaken__Term e-39 arg-7 (Builtin-snd 'erased 'erased vt)))) arg-8) e-41))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (vector 9 e-43 e-44)))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (vector 10 e-46 e-47)))) (else (let ((e-49 (vector-ref sc0 1))) (vector 11 e-49))))))) +(define Termination-Core-n--7666-8356-updateRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Termination-Core-case--9052-8642 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-6 arg-7 (Termination-Core-n--7666-8355-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased arg-8 arg-7)))) +(define Termination-Core-n--7666-8357-updatePat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (Termination-Core-n--7666-8356-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3))))))) +(define Termination-Core-n--10120-9338-updateArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 0 )) ((1) (let ((e-14 (vector-ref sc0 1))) (let ((sc1 e-14)) (case (vector-ref sc1 0) ((0) (let ((e-18 (vector-ref sc1 2))) (let ((sc2 e-18)) (case (vector-ref sc2 0) ((2) arg-7)(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((2) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 1 (vector 0 e-10 (vector 2 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7)))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7)))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((2) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 1 (vector 0 e-10 (vector 2 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7)))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7)))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (vector 1 (vector 0 e-10 (vector 2 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7)))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7))))))))))) +(define Termination-Core-n--10120-9339-mkArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 0 ) (Termination-Core-n--10120-9339-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (Termination-Core-case--10132-9463 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9 e-10 e-3 (Termination-Core-n--10120-9337-getPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-1 e-9)))))))))))))))) +(define Termination-Core-n--7666-8358-matchArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((patMatch (List-Data-reverse 'erased (List-Data-zip 'erased 'erased arg-1 ((TT-Core-getArgs 'erased) e-10))))) (vector 0 e-2 (vector 0 e-6 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Termination-Core-n--7666-8357-updatePat arg-0 arg-1 arg-2 arg-3 arg-4 arg-0 e-2 patMatch eta-0)) arg-2) e-11))))))))))))))) +(define Termination-Core-n--7666-8355-lookupTm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((5) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((e-11 (vector-ref sc2 3))) (let ((e-12 (vector-ref sc2 4))) (Termination-Core-case--9051-8391 arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-9 e-10 e-12 e-11 e-7 e-3 arg-7 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-7 e-11)))))))(else (Termination-Core-case--9051-8479 arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-6 e-7 e-3 arg-7 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-7 e-6))))))))))))))) +(define Termination-Core-n--7652-7250-handleCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-6 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-case--7809-7266 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-2 e-1 arg-8 e-5 (Termination-Core-caseFn e-5)) eta-0)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Termination-Core-n--6737-6293-guardedNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 0))) ((1) (let ((e-8 (vector-ref sc0 2))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((1) (let ((e-12 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-12 (let ((sc2 arg-4)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Context-Core-C-61C-61_Eq__DefFlag arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Context-Core-C-47C-61_Eq__DefFlag arg-438 arg-439)))) (vector 8 ) (let ((sc4 e-1)) (let ((e-22 (vector-ref sc4 12))) e-22)))))) (else (vector 1 1))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Termination-Core-n--6737-6295-guarded (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Normalise-Core-nf arg-3 e-6 arg-4 arg-5) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Termination-Core-n--6737-6293-guardedNF arg-0 arg-1 arg-2 arg-3 e-5 arg-4 e-7) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 0) (let ((act-28 ((Context-Core-lookupCtxtExact arg-0 (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0))) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) ((Core-Core-allM 'erased (lambda (eta-0) (lambda (eta-1) (Termination-Core-n--6737-6294-checkNotFn arg-0 arg-1 arg-2 e-5 eta-0 eta-1))) ((NameMap-Data-keys 'erased) (Context-Core-refersTo e-1))) ext-0))) (else (vector 1 1)))))))))) (else (vector 1 1)))))))))))))))))))))))))) +(define Termination-Core-n--10120-9341-getWorst (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) arg-6) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (Termination-Core-n--10120-9341-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)) ((0) (Termination-Core-n--10120-9341-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-3))(else e-2)))))))))) +(define Termination-Core-n--10120-9337-getPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (cond ((equal? sc1 0) (vector 1 e-2))(else (let ((e-4 (- arg-8 1))) (Termination-Core-n--10120-9337-getPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3 e-4)))))))))))) +(define Termination-Core-n--7652-7146-findSCbinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (Termination-Core-findSC arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 e-2)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Termination-Core-n--11292-10404-dropParams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Termination-Core-case--11306-10421 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3 arg-8 arg-7 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-7 arg-8))))))))) +(define Termination-Core-n--10120-9342-continue (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Termination-Core-n--10120-9340-checkCall arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 eta-0)) arg-6) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Termination-Core-n--10120-9341-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 ) e-5))))))))) +(define Termination-Core-n--7652-7251-conIfGuarded (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-3 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-4))) ((Termination-Core-case--7926-7385 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-1 e-5 e-4 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Context-Core-C-61C-61_Eq__DefFlag arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Context-Core-C-47C-61_Eq__DefFlag arg-438 arg-439)))) (vector 8 ) (let ((sc5 e-4)) (let ((e-11 (vector-ref sc5 12))) e-11)))) eta-0)))) (else (vector 1 (vector 1 e-1 (vector 1 ) e-3)))))))))))))))))(else (lambda (eta-0) (vector 1 arg-7)))))))))(else (lambda (eta-0) (vector 1 arg-7))))))) +(define Termination-Core-n--6737-6294-checkNotFn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-4 (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((Termination-Core-case--6858-6416 arg-0 arg-1 arg-2 arg-4 arg-3 e-1 _-0 (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17))) ext-0)))) (else (vector 1 1))))))))))) +(define Termination-Core-n--10120-9336-checkDesc (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 2 (vector 2 (List-Data-reverse 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-7))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 1 ))(else (Termination-Core-n--10120-9336-checkDesc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 arg-7))))))))))) +(define Termination-Core-n--10120-9340-checkCall (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((inpath (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) e-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-6)))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) e-0)) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) e-0))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((Termination-Core-case--10335-9555 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-6 inpath e-1 _-0 (let ((sc2 (let ((sc3 e-1)) (let ((e-10 (vector-ref sc3 11))) e-10)))) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0)))) (else (vector 1 (vector 1 )))))))))))))) +(define Termination-Core-n--6737-6296-allGuarded (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-15 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Termination-Core-n--6737-6295-guarded arg-0 arg-1 arg-2 e-6 e-10 e-15 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (let ((sc5 e-5)) (cond ((equal? sc5 0) ((Termination-Core-n--6737-6296-allGuarded arg-0 arg-1 arg-2 e-3) eta-0)) (else (vector 1 1))))))))))))))))))))))))) +(define Termination-Core-n--10784-9933-addCasesC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 ((NameMap-Data-keys 'erased) arg-4)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Termination-Core-case--10789-9950 arg-0 arg-1 arg-2 e-2 e-3 arg-4 arg-3 (NameMap-Data-lookup 'erased e-2 arg-4))))))))) +(define Termination-Core-n--10784-9934-addCases (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Termination-Core-n--10784-9933-addCasesC-39 arg-0 arg-1 arg-2 arg-3 (NameMap-Data-empty 'erased) arg-4))) +(define Termination-Core-totRefsIn (lambda (arg-0 arg-1 arg-2 arg-3) (Termination-Core-totRefs arg-1 arg-2 ((NameMap-Data-keys 'erased) (TT-Core-getRefs 'erased (vector 9 (Prelude-negate_Neg__Int 1)) arg-3))))) +(define Termination-Core-totRefs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Termination-Core-totRefs arg-0 arg-1 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-2 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((Termination-Core-case--6572-6165 e-2 e-3 arg-1 arg-0 e-5 e-1 _-0 (let ((sc4 (let ((sc5 e-1)) (let ((e-10 (vector-ref sc5 11))) e-10)))) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0)))) (else (vector 1 e-5)))))))))))))))))))))) +(define Termination-Core-smallerArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Termination-Core-case--7660-8070 'erased arg-5 arg-4 arg-3 arg-2 arg-1 (Termination-Core-assertedSmaller 'erased arg-3 arg-5)))) +(define Termination-Core-smaller (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((10) 1) ((5) (let ((e-6 (vector-ref sc0 3))) (let ((e-7 (vector-ref sc0 4))) (Prelude-C-124C-124 (Termination-Core-smaller 'erased arg-1 arg-2 arg-3 arg-4 e-6) (lambda () (Termination-Core-smaller 'erased arg-1 arg-2 arg-3 arg-4 e-7))))))(else (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Termination-Core-case--7656-8026 'erased arg-5 arg-4 arg-3 arg-2 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-4 arg-5)))(else (Termination-Core-smallerArg 'erased arg-1 arg-2 arg-3 arg-4 arg-5))))))))) (define Termination-Core-scEq (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-79 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-94 (vector-ref sc1 3))) (Prelude-C-61C-61_Eq__Nat e-79 e-94)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((2) 0)(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((3) 1)(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((5) (let ((e-46 (vector-ref sc2 4))) (Termination-Core-scEq 'erased arg-1 e-46)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((6) (let ((e-3 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((6) (let ((e-24 (vector-ref sc3 3))) (Termination-Core-scEq 'erased e-3 e-24)))(else 1))))) ((7) (let ((e-7 (vector-ref sc2 3))) (let ((e-8 (vector-ref sc2 4))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((7) (let ((e-28 (vector-ref sc3 3))) (let ((e-29 (vector-ref sc3 4))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-7 e-28) (lambda () (Termination-Core-scEq 'erased e-8 e-29))))))(else 1)))))) ((8) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((8) (let ((e-33 (vector-ref sc3 3))) (Termination-Core-scEq 'erased e-12 e-33)))(else 1))))) ((9) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((9) (let ((e-36 (vector-ref sc3 2))) (TT-Core-C-61C-61_Eq__Constant e-15 e-36)))(else 1))))) ((10) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((10) 0)(else 1)))) ((11) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((11) 0)(else 1))))(else 1)))))))))) ((4) (let ((e-54 (vector-ref sc1 2))) (let ((e-55 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((4) (let ((e-68 (vector-ref sc2 2))) (let ((e-69 (vector-ref sc2 3))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-54 e-68) (lambda () (Termination-Core-scEq 'erased e-55 e-69))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((5) (let ((e-46 (vector-ref sc2 4))) (Termination-Core-scEq 'erased arg-1 e-46)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((6) (let ((e-3 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((6) (let ((e-24 (vector-ref sc3 3))) (Termination-Core-scEq 'erased e-3 e-24)))(else 1))))) ((7) (let ((e-7 (vector-ref sc2 3))) (let ((e-8 (vector-ref sc2 4))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((7) (let ((e-28 (vector-ref sc3 3))) (let ((e-29 (vector-ref sc3 4))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-7 e-28) (lambda () (Termination-Core-scEq 'erased e-8 e-29))))))(else 1)))))) ((8) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((8) (let ((e-33 (vector-ref sc3 3))) (Termination-Core-scEq 'erased e-12 e-33)))(else 1))))) ((9) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((9) (let ((e-36 (vector-ref sc3 2))) (TT-Core-C-61C-61_Eq__Constant e-15 e-36)))(else 1))))) ((10) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((10) 0)(else 1)))) ((11) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((11) 0)(else 1))))(else 1)))))))))))) ((5) (let ((e-60 (vector-ref sc1 4))) (Termination-Core-scEq 'erased e-60 arg-2)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((5) (let ((e-46 (vector-ref sc1 4))) (Termination-Core-scEq 'erased arg-1 e-46)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((6) (let ((e-24 (vector-ref sc2 3))) (Termination-Core-scEq 'erased e-3 e-24)))(else 1))))) ((7) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((7) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-7 e-28) (lambda () (Termination-Core-scEq 'erased e-8 e-29))))))(else 1)))))) ((8) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((8) (let ((e-33 (vector-ref sc2 3))) (Termination-Core-scEq 'erased e-12 e-33)))(else 1))))) ((9) (let ((e-15 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-36 (vector-ref sc2 2))) (TT-Core-C-61C-61_Eq__Constant e-15 e-36)))(else 1))))) ((10) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((10) 0)(else 1)))) ((11) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((11) 0)(else 1))))(else 1))))))))))))))))) ((1) (let ((e-84 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-99 (vector-ref sc1 3))) (Name-Core-C-61C-61_Eq__Name e-84 e-99)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((2) 0)(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((3) 1)(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((5) (let ((e-46 (vector-ref sc2 4))) (Termination-Core-scEq 'erased arg-1 e-46)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((6) (let ((e-3 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((6) (let ((e-24 (vector-ref sc3 3))) (Termination-Core-scEq 'erased e-3 e-24)))(else 1))))) ((7) (let ((e-7 (vector-ref sc2 3))) (let ((e-8 (vector-ref sc2 4))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((7) (let ((e-28 (vector-ref sc3 3))) (let ((e-29 (vector-ref sc3 4))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-7 e-28) (lambda () (Termination-Core-scEq 'erased e-8 e-29))))))(else 1)))))) ((8) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((8) (let ((e-33 (vector-ref sc3 3))) (Termination-Core-scEq 'erased e-12 e-33)))(else 1))))) ((9) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((9) (let ((e-36 (vector-ref sc3 2))) (TT-Core-C-61C-61_Eq__Constant e-15 e-36)))(else 1))))) ((10) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((10) 0)(else 1)))) ((11) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((11) 0)(else 1))))(else 1)))))))))) ((4) (let ((e-54 (vector-ref sc1 2))) (let ((e-55 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((4) (let ((e-68 (vector-ref sc2 2))) (let ((e-69 (vector-ref sc2 3))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-54 e-68) (lambda () (Termination-Core-scEq 'erased e-55 e-69))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((5) (let ((e-46 (vector-ref sc2 4))) (Termination-Core-scEq 'erased arg-1 e-46)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((6) (let ((e-3 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((6) (let ((e-24 (vector-ref sc3 3))) (Termination-Core-scEq 'erased e-3 e-24)))(else 1))))) ((7) (let ((e-7 (vector-ref sc2 3))) (let ((e-8 (vector-ref sc2 4))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((7) (let ((e-28 (vector-ref sc3 3))) (let ((e-29 (vector-ref sc3 4))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-7 e-28) (lambda () (Termination-Core-scEq 'erased e-8 e-29))))))(else 1)))))) ((8) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((8) (let ((e-33 (vector-ref sc3 3))) (Termination-Core-scEq 'erased e-12 e-33)))(else 1))))) ((9) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((9) (let ((e-36 (vector-ref sc3 2))) (TT-Core-C-61C-61_Eq__Constant e-15 e-36)))(else 1))))) ((10) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((10) 0)(else 1)))) ((11) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((11) 0)(else 1))))(else 1)))))))))))) ((5) (let ((e-60 (vector-ref sc1 4))) (Termination-Core-scEq 'erased e-60 arg-2)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((5) (let ((e-46 (vector-ref sc1 4))) (Termination-Core-scEq 'erased arg-1 e-46)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((6) (let ((e-24 (vector-ref sc2 3))) (Termination-Core-scEq 'erased e-3 e-24)))(else 1))))) ((7) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((7) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-7 e-28) (lambda () (Termination-Core-scEq 'erased e-8 e-29))))))(else 1)))))) ((8) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((8) (let ((e-33 (vector-ref sc2 3))) (Termination-Core-scEq 'erased e-12 e-33)))(else 1))))) ((9) (let ((e-15 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-36 (vector-ref sc2 2))) (TT-Core-C-61C-61_Eq__Constant e-15 e-36)))(else 1))))) ((10) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((10) 0)(else 1)))) ((11) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((11) 0)(else 1))))(else 1))))))))))))))))) ((2) 0)(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) 0)(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((3) 1)(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((5) (let ((e-46 (vector-ref sc1 4))) (Termination-Core-scEq 'erased arg-1 e-46)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((6) (let ((e-24 (vector-ref sc2 3))) (Termination-Core-scEq 'erased e-3 e-24)))(else 1))))) ((7) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((7) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-7 e-28) (lambda () (Termination-Core-scEq 'erased e-8 e-29))))))(else 1)))))) ((8) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((8) (let ((e-33 (vector-ref sc2 3))) (Termination-Core-scEq 'erased e-12 e-33)))(else 1))))) ((9) (let ((e-15 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-36 (vector-ref sc2 2))) (TT-Core-C-61C-61_Eq__Constant e-15 e-36)))(else 1))))) ((10) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((10) 0)(else 1)))) ((11) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((11) 0)(else 1))))(else 1)))))))))) ((4) (let ((e-54 (vector-ref sc0 2))) (let ((e-55 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((4) (let ((e-68 (vector-ref sc1 2))) (let ((e-69 (vector-ref sc1 3))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-54 e-68) (lambda () (Termination-Core-scEq 'erased e-55 e-69))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((5) (let ((e-46 (vector-ref sc1 4))) (Termination-Core-scEq 'erased arg-1 e-46)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((6) (let ((e-24 (vector-ref sc2 3))) (Termination-Core-scEq 'erased e-3 e-24)))(else 1))))) ((7) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((7) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-7 e-28) (lambda () (Termination-Core-scEq 'erased e-8 e-29))))))(else 1)))))) ((8) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((8) (let ((e-33 (vector-ref sc2 3))) (Termination-Core-scEq 'erased e-12 e-33)))(else 1))))) ((9) (let ((e-15 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-36 (vector-ref sc2 2))) (TT-Core-C-61C-61_Eq__Constant e-15 e-36)))(else 1))))) ((10) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((10) 0)(else 1)))) ((11) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((11) 0)(else 1))))(else 1)))))))))))) ((5) (let ((e-60 (vector-ref sc0 4))) (Termination-Core-scEq 'erased e-60 arg-2)))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((5) (let ((e-46 (vector-ref sc0 4))) (Termination-Core-scEq 'erased arg-1 e-46)))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((6) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((6) (let ((e-24 (vector-ref sc1 3))) (Termination-Core-scEq 'erased e-3 e-24)))(else 1))))) ((7) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((7) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-7 e-28) (lambda () (Termination-Core-scEq 'erased e-8 e-29))))))(else 1)))))) ((8) (let ((e-12 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((8) (let ((e-33 (vector-ref sc1 3))) (Termination-Core-scEq 'erased e-12 e-33)))(else 1))))) ((9) (let ((e-15 (vector-ref sc0 2))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-36 (vector-ref sc1 2))) (TT-Core-C-61C-61_Eq__Constant e-15 e-36)))(else 1))))) ((10) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) 0)(else 1)))) ((11) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((11) 0)(else 1))))(else 1))))))))))))))))) -(define Termination-Core-posArg (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((testargs (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((6) (let ((e-13 (vector-ref sc3 3))) (Termination-Core-n--11250-10396-dropParams e-1 e-3 e-4 e-5 e-2 arg-1 arg-0 0 e-13 e-5)))(else e-5)))))(else e-5))))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 eta-1)) testargs) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-anyM 'erased (lambda (eta-1) (Termination-Core-nameIn arg-0 arg-1 eta-1)) e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 0) (vector 1 (vector 2 (vector 0 )))) (else (vector 1 (vector 1 )))))))))))))))))))))))))))) ((0) (let ((e-7 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((sc1 e-9)) (case (vector-ref sc1 0) ((2) (let ((e-14 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Termination-Core-nameIn arg-0 arg-1 e-14) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 0) (vector 1 (vector 2 (vector 0 )))) (else (let ((act-25 (((e-10 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-7 1))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) ((Termination-Core-posArg arg-0 arg-1 e-6) eta-0)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 )))))))) +(define Termination-Core-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--11292-10404-dropParams e-1 e-3 e-4 e-5 e-2 arg-1 arg-0 0 e-13 e-5)))(else e-5)))))(else e-5))))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 eta-1)) testargs) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-anyM 'erased (lambda (eta-1) (Termination-Core-nameIn arg-0 arg-1 eta-1)) e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 0) (vector 1 (vector 2 (vector 0 )))) (else (vector 1 (vector 1 )))))))))))))))))))))))))))) ((0) (let ((e-7 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((sc1 e-9)) (case (vector-ref sc1 0) ((2) (let ((e-14 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Termination-Core-nameIn arg-0 arg-1 e-14) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 0) (vector 1 (vector 2 (vector 0 )))) (else (let ((act-25 (((e-10 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-7 1))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) ((Termination-Core-posArg arg-0 arg-1 e-6) eta-0)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 )))))))) (define Termination-Core-nextArg (lambda (arg-0) (b+ arg-0 1 63))) -(define Termination-Core-nameIn (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Termination-Core-nameIn arg-0 arg-1 (TT-Core-binderType 'erased e-3)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 0)) (else (let ((act-25 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) ((Termination-Core-nameIn arg-0 arg-1 e-6) eta-0))))))))))))))))))) ((1) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 eta-1)) e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Core-Core-anyM 'erased (lambda (eta-1) (Termination-Core-nameIn arg-0 arg-1 eta-1)) e-5) eta-0))))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (Termination-Core-case--11093-10317 e-10 e-12 e-13 e-14 e-11 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-11 arg-1)))))))) ((2) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 eta-1)) e-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Core-Core-anyM 'erased (lambda (eta-1) (Termination-Core-nameIn arg-0 arg-1 eta-1)) e-5) eta-0)))))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Termination-Core-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--11135-10325 e-10 e-12 e-13 e-14 e-11 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-11 arg-1)))))))) ((2) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 eta-1)) e-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Core-Core-anyM 'erased (lambda (eta-1) (Termination-Core-nameIn arg-0 arg-1 eta-1)) e-5) eta-0)))))))))(else (lambda (eta-0) (vector 1 1))))))) (define Termination-Core-mkChange (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((5) (let ((e-11 (vector-ref sc2 3))) (let ((e-12 (vector-ref sc2 4))) (Termination-Core-mkChange 'erased arg-1 arg-2 (vector 1 (vector 0 e-6 e-11) (vector 1 (vector 0 e-6 e-12) e-3)) arg-4))))(else (Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Termination-Core-scEq 'erased arg-4 e-7)) (lambda () (vector 1 (vector 0 e-6 (vector 1 ))))) (vector 1 (vector 0 (lambda () (Termination-Core-smaller 'erased 1 arg-1 (Termination-Core-asserted 'erased arg-2 arg-4) arg-4 e-7)) (lambda () (vector 1 (vector 0 e-6 (vector 0 ))))) (vector 0 ))) (Termination-Core-mkChange 'erased arg-1 arg-2 e-3 arg-4))))))))))))))) (define Termination-Core-initArgs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (let ((e-0 (- arg-1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (Termination-Core-nextArg e-5)))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((Termination-Core-initArgs arg-0 e-0) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 1 (vector 0 e-5 (vector 1 ))) e-7))))))))))))))))))))))) -(define Termination-Core-getSC (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findCalls arg-0 arg-1 eta-1)) e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__SCCall arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__SCCall arg-430 arg-431)))) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Termination-Core-getCasePats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-lookupDefExact arg-2 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 5))) (vector 1 (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Termination-Core-n--7624-8350-matchArgs arg-0 arg-4 arg-3 arg-2 arg-1 eta-0)) e-6)))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))) +(define Termination-Core-getSC (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findCalls arg-0 arg-1 eta-1)) e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (List-Data-nub 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Context-Core-C-61C-61_Eq__SCCall arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Context-Core-C-47C-61_Eq__SCCall arg-438 arg-439)))) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Termination-Core-getCasePats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-lookupDefExact arg-2 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 5))) (vector 1 (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Termination-Core-n--7666-8358-matchArgs arg-0 arg-4 arg-3 arg-2 arg-1 eta-0)) e-6)))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))) (define Termination-Core-firstArg (lambda () 0)) -(define Termination-Core-findSCcall (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-7 (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((fn (let ((sc2 e-1)) (let ((e-22 (vector-ref sc2 2))) e-22)))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Looking under " (Name-Core-show_Show__Name fn))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Context-Core-resolved_HasNames__Name (let ((sc3 arg-2)) (let ((e-0 (vector-ref sc3 1))) e-0)) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_smaller"))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name fn (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")))) (lambda () (lambda (eta-0) (vector 1 (vector 0 ))))) (vector 1 (vector 0 (lambda () (Termination-Core-caseFn fn)) (lambda () (lambda (eta-0) (let ((act-27 (Termination-Core-getCasePats arg-0 arg-2 fn arg-5 arg-9 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc5 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findInCase arg-1 arg-2 arg-4 eta-1)) e-2) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-9))))))))))))))))))) (vector 0 ))) (lambda (eta-0) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-1)) arg-9) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (List-Prelude-C-43C-43 'erased (vector 1 (vector 0 fn (Termination-Core-expandToArity arg-8 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Termination-Core-mkChange 'erased arg-2 e-7 arg-5 eta-1)) arg-9))) (vector 0 )) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8)))))))))) ext-0))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-6 arg-7) ext-0))))))))))) -(define Termination-Core-findSC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Termination-Core-n--7610-7138-findSCbinder e-12 arg-0 e-14 e-13 e-11 arg-5 arg-4 arg-3 arg-2 arg-1 e-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Termination-Core-findSC (vector 1 e-12 arg-0) arg-1 arg-2 (vector 1 e-13 arg-3) arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 0 e-2 (TT-Core-weaken_Weaken__Term e-12 arg-0 e-3)))))) arg-5) e-14) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-5 e-6))))))))))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((7) (let ((e-9 (vector-ref sc1 4))) (Termination-Core-findSC arg-0 arg-1 arg-2 arg-3 (vector 3 ) arg-5 e-9)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((7) (let ((e-4 (vector-ref sc1 4))) (Termination-Core-findSC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4)))(else (Termination-Core-case--7610-7468 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-6)))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((7) (let ((e-4 (vector-ref sc0 4))) (Termination-Core-findSC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4)))(else (Termination-Core-case--7610-7468 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-6))))))))))))) -(define Termination-Core-findInCase (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logC arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) eta-2 eta-3))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-snd 'erased 'erased eta-2)) e-10)) eta-1))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Looking in case args " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-2 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-2 d x)))) e-5))))))))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 (Normalise-Core-logTermNF e-2 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () " =") e-6 e-11 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-26 (Normalise-Core-normaliseOpts e-2 (Value-Core-tcOnly) arg-1 e-6 e-11 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) ((Termination-Core-findSC e-2 arg-0 arg-1 e-6 arg-2 e-10 (Termination-Core-delazy 'erased arg-1 e-9)) eta-0)))))))))))))))))))))))))) -(define Termination-Core-findCalls (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((pargs (TT-Core-getArgs 'erased (Termination-Core-delazy 'erased arg-1 e-10)))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseOpts e-2 (Value-Core-tcOnly) arg-1 e-6 e-11 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) ((Termination-Core-findSC e-2 arg-0 arg-1 e-6 (vector 0 ) (List-Data-zip 'erased 'erased (Prelude-take 'erased (List-Data-length 'erased pargs) (Prelude-rangeFrom_Range__Nat (Prelude-fromInteger_Num__Nat 0))) pargs) (Termination-Core-delazy 'erased arg-1 e-5)) eta-0))))))))))))))))))) +(define Termination-Core-findSCcall (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-7 (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((fn (let ((sc2 e-1)) (let ((e-22 (vector-ref sc2 2))) e-22)))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Looking under " (Name-Core-show_Show__Name fn))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Context-Core-resolved_HasNames__Name (let ((sc3 arg-2)) (let ((e-0 (vector-ref sc3 1))) e-0)) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_smaller"))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name fn (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")))) (lambda () (lambda (eta-0) (vector 1 (vector 0 ))))) (vector 1 (vector 0 (lambda () (Termination-Core-caseFn fn)) (lambda () (lambda (eta-0) (let ((act-27 (Termination-Core-getCasePats arg-0 arg-2 fn arg-5 arg-9 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc5 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findInCase arg-1 arg-2 arg-4 eta-1)) e-2) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-9))))))))))))))))))) (vector 0 ))) (lambda (eta-0) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-1)) arg-9) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (List-Prelude-C-43C-43 'erased (vector 1 (vector 0 fn (Termination-Core-expandToArity arg-8 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Termination-Core-mkChange 'erased arg-2 e-7 arg-5 eta-1)) arg-9))) (vector 0 )) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8)))))))))) ext-0))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-6 arg-7) ext-0))))))))))) +(define Termination-Core-findSC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Termination-Core-n--7652-7146-findSCbinder e-12 arg-0 e-14 e-13 e-11 arg-5 arg-4 arg-3 arg-2 arg-1 e-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Termination-Core-findSC (vector 1 e-12 arg-0) arg-1 arg-2 (vector 1 e-13 arg-3) arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 0 e-2 (TT-Core-weaken_Weaken__Term e-12 arg-0 e-3)))))) arg-5) e-14) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-5 e-6))))))))))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((7) (let ((e-9 (vector-ref sc1 4))) (Termination-Core-findSC arg-0 arg-1 arg-2 arg-3 (vector 3 ) arg-5 e-9)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((7) (let ((e-4 (vector-ref sc1 4))) (Termination-Core-findSC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4)))(else (Termination-Core-case--7652-7476 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-6)))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((7) (let ((e-4 (vector-ref sc0 4))) (Termination-Core-findSC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4)))(else (Termination-Core-case--7652-7476 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-6))))))))))))) +(define Termination-Core-findInCase (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logC arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) eta-2 eta-3))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-snd 'erased 'erased eta-2)) e-10)) eta-1))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Looking in case args " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-2 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-2 d x)))) e-5))))))))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 (Normalise-Core-logTermNF e-2 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () " =") e-6 e-11 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-26 (Normalise-Core-normaliseOpts e-2 (Value-Core-tcOnly) arg-1 e-6 e-11 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) ((Termination-Core-findSC e-2 arg-0 arg-1 e-6 arg-2 e-10 (Termination-Core-delazy 'erased arg-1 e-9)) eta-0)))))))))))))))))))))))))) +(define Termination-Core-findCalls (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((pargs ((TT-Core-getArgs 'erased) (Termination-Core-delazy 'erased arg-1 e-10)))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseOpts e-2 (Value-Core-tcOnly) arg-1 e-6 e-11 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) ((Termination-Core-findSC e-2 arg-0 arg-1 e-6 (vector 0 ) (List-Data-zip 'erased 'erased (Prelude-take 'erased (List-Data-length 'erased pargs) (Prelude-rangeFrom_Range__Nat (Prelude-fromInteger_Num__Nat 0))) pargs) (Termination-Core-delazy 'erased arg-1 e-5)) eta-0))))))))))))))))))) (define Termination-Core-expandToArity (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) arg-1)(else (let ((e-0 (- arg-0 1))) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (Termination-Core-expandToArity e-0 e-3))))) (else (vector 1 (vector 0 ) (Termination-Core-expandToArity e-0 (vector 0 )))))))))))) (define Termination-Core-delazy (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((6) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((tmC-39 (Termination-Core-delazy 'erased arg-1 e-3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 6 e-1 e-2 tmC-39))(else tmC-39)))))))) ((7) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((tyC-39 (Termination-Core-delazy 'erased arg-1 e-7))) (let ((tmC-39 (Termination-Core-delazy 'erased arg-1 e-8))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((0) (vector 7 e-5 e-6 tyC-39 tmC-39))(else tmC-39)))))))))) ((8) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((0) (vector 8 e-10 e-11 (Termination-Core-delazy 'erased arg-1 e-12)))(else (Termination-Core-delazy 'erased arg-1 e-12)))))))) ((2) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (vector 2 e-14 e-15 e-16 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Termination-Core-delazy 'erased arg-1 eta-0)) e-17))))))) ((3) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (vector 3 e-19 e-20 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (Termination-Core-delazy 'erased arg-1 eta-0)) e-21) (Termination-Core-delazy 'erased arg-1 e-22))))))) ((4) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (vector 4 e-24 (Termination-Core-delazy 'erased arg-1 e-25) (Termination-Core-delazy 'erased arg-1 e-26)))))) ((5) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (vector 5 e-28 e-29 (Termination-Core-delazy 'erased arg-1 e-30) (Termination-Core-delazy 'erased arg-1 e-31)))))))(else arg-2))))) -(define Termination-Core-checkTotal (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Termination-Core-case--12051-11098 arg-2 arg-1 arg-0 e-5 (Context-Core-getNameID arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)))) ext-0)))))))) -(define Termination-Core-checkTerminating (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-getTotality arg-0 arg-1 arg-2 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Termination-Core-case--11045-10202 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0)))))))) -(define Termination-Core-checkSC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((pos (vector 0 arg-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) eta-0)) arg-4)))) (Termination-Core-case--10078-9823 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 pos (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Name-Core-C-61C-61_Eq__Name arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__Int arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Int arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__Int arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Int arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__Int arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Int arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__Int arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Int arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Name-Core-C-47C-61_Eq__Name arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__Int arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Int arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__Int arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Int arg-434 arg-435)))) arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__Int arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Int arg-434 arg-435)))) arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-436) (lambda (arg-437) (Prelude-C-47C-61_Eq__Int arg-436 arg-437)))) arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) pos arg-5))))) -(define Termination-Core-checkPositive (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-2 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-getTotality arg-0 arg-1 e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Termination-Core-case--11955-11016 arg-2 arg-1 arg-0 e-5 e-6 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))))))))))))) +(define Termination-Core-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--12093-11106 arg-2 arg-1 arg-0 e-5 (Context-Core-getNameID arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)))) ext-0)))))))) +(define Termination-Core-checkTerminating (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-getTotality arg-0 arg-1 arg-2 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Termination-Core-case--11087-10210 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0)))))))) +(define Termination-Core-checkSC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((pos (vector 0 arg-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) eta-0)) arg-4)))) (Termination-Core-case--10120-9831 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 pos (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Name-Core-C-61C-61_Eq__Name arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__Int arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__Int arg-442 arg-443)))) arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__Int arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__Int arg-442 arg-443)))) arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__Int arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__Int arg-442 arg-443)))) arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__Int arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__Int arg-442 arg-443)))) arg-440 arg-441)))) arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Name-Core-C-47C-61_Eq__Name arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__Int arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__Int arg-442 arg-443)))) arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__Int arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__Int arg-442 arg-443)))) arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__Int arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__Int arg-442 arg-443)))) arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-444) (lambda (arg-445) (Prelude-C-47C-61_Eq__Int arg-444 arg-445)))) arg-442 arg-443)))) arg-440 arg-441)))) arg-438 arg-439)))) pos arg-5))))) +(define Termination-Core-checkPositive (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) arg-2 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-getTotality arg-0 arg-1 e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Termination-Core-case--11997-11024 arg-2 arg-1 arg-0 e-5 e-6 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))))))))))))) (define Termination-Core-checkPosArgs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Termination-Core-posArg arg-0 arg-1 e-8) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((act-25 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) ((Termination-Core-checkPosArgs arg-0 arg-1 e-9) eta-0)))))))(else (vector 1 e-5))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 )))))))) -(define Termination-Core-checkIfGuarded (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-lookupDefExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 5))) (let ((act-26 ((Termination-Core-n--6695-6288-allGuarded arg-2 arg-1 arg-0 e-7) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (cond ((equal? sc5 0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 8 ) ext-0)) (else (vector 1 (vector 0 ))))))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 ))))))))))))))))) +(define Termination-Core-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--6737-6296-allGuarded arg-2 arg-1 arg-0 e-7) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (cond ((equal? sc5 0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 8 ) ext-0)) (else (vector 1 (vector 0 ))))))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 ))))))))))))))))) (define Termination-Core-checkData (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Termination-Core-checkCon arg-0 arg-1 arg-2 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) ((Termination-Core-checkData arg-0 arg-1 arg-2 e-3) eta-0))(else (vector 1 e-5))))))))))))))))) (define Termination-Core-checkCon (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-lookupTyExact arg-3 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc1 1))) (let ((act-25 ((Termination-Core-totRefsIn 'erased arg-0 arg-1 e-2) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((act-26 ((Normalise-Core-nf (vector 0 ) arg-1 (vector 0 ) e-2) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) ((Termination-Core-checkPosArgs arg-1 arg-2 e-7) ext-0)))))))(else (vector 1 e-6)))))))))))))))))))) (define Termination-Core-caseFn (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((7) 0) ((4) (let ((e-3 (vector-ref sc0 2))) (Termination-Core-caseFn e-3))) ((0) (let ((e-5 (vector-ref sc0 2))) (Termination-Core-caseFn e-5)))(else 1))))) (define Termination-Core-calculateSizeChange (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) ((Termination-Core-getSC arg-0 e-5 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) -(define Termination-Core-calcTerminating (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)) (else (let ((e-2 (vector-ref sc2 1))) (let ((act-26 ((Termination-Core-n--10742-9926-addCases arg-2 arg-1 arg-0 e-5 (NameMap-Data-keys 'erased (Context-Core-refersTo e-2))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Termination-Core-totRefs arg-0 e-5 (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-7)) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((ty (let ((sc6 e-2)) (let ((e-25 (vector-ref sc6 3))) e-25)))) (let ((act-28 (Core-Core-newRef 'erased 'erased (vector "Core.Termination.APos" ) (Termination-Core-firstArg) ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (let ((act-29 (Normalise-Core-getArity (vector 0 ) e-5 (vector 0 ) ty ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc7 1))) ((Termination-Core-initArgs e-9 e-10) ext-0)))))))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc7 1))) ((Termination-Core-checkSC e-9 arg-0 e-5 arg-2 e-10 (vector 0 )) ext-0)))))))))))))(else (vector 1 e-8)))))))))))))))))))))))))))))) +(define Termination-Core-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--10784-9934-addCases arg-2 arg-1 arg-0 e-5 ((NameMap-Data-keys 'erased) (Context-Core-refersTo e-2))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Termination-Core-totRefs arg-0 e-5 (List-Data-nub 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-7)) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((ty (let ((sc6 e-2)) (let ((e-25 (vector-ref sc6 3))) e-25)))) (let ((act-28 (Core-Core-newRef 'erased 'erased (vector "Core.Termination.APos" ) (Termination-Core-firstArg) ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (let ((act-29 (Normalise-Core-getArity (vector 0 ) e-5 (vector 0 ) ty ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc7 1))) ((Termination-Core-initArgs e-9 e-10) ext-0)))))))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc7 1))) ((Termination-Core-checkSC e-9 arg-0 e-5 arg-2 e-10 (vector 0 )) ext-0)))))))))))))(else (vector 1 e-8)))))))))))))))))))))))))))))) (define Termination-Core-calcPositive (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-lookupDefTyExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((6) (let ((e-12 (vector-ref sc4 6))) (let ((e-13 (vector-ref sc4 7))) (let ((act-26 ((Termination-Core-totRefsIn 'erased arg-0 e-5 e-7) ext-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc5 1))) (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((act-27 ((Termination-Core-checkData arg-0 e-5 (vector 1 arg-2 e-12) e-13) ext-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc7 1))) (vector 1 (vector 0 e-18 e-13))))))))(else (vector 1 (vector 0 e-17 e-13)))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) " not a data type")) ext-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) " not a data type")) ext-0)))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) (define Termination-Core-assertedSmaller (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Termination-Core-scEq 'erased e-1 arg-2)))(else 1))))) -(define Termination-Core-asserted (lambda (arg-0 arg-1 arg-2) (Termination-Core-case--7620-8177 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2)))) -(define Coverage-Core-case--9906-10303 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF arg-3 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Yes") arg-6 arg-5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF arg-3 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No match") arg-6 arg-5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Coverage-Core-n--9901-10267-tryClauses arg-0 arg-1 arg-2 arg-7 arg-8) eta-0))))))))))) -(define Coverage-Core-case--9636-10065 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-eraseApps 'erased arg-2 eta-1)) e-3) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (TT-Core-apply 'erased e-5 (vector 1 e-5 (vector 0 ) e-7) e-8)))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-7 (let ((sc3 e-8)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc3 1))) (let ((eargs (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-1) (let ((sc4 eta-1)) (let ((e-26 (vector-ref sc4 4))) e-26)))) e-9))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-eraseApps 'erased arg-2 eta-1)) (Coverage-Core-n--9636-10005-dropPos 'erased arg-1 arg-2 e-5 0 eargs e-3)) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (TT-Core-apply 'erased e-5 (vector 1 e-5 e-6 e-7) e-10))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-eraseApps 'erased arg-2 eta-1)) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-5)))))))))))))))) -(define Coverage-Core-case--9641-10021 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 1 (vector 10 arg-7 1) (Coverage-Core-n--9636-10005-dropPos 'erased arg-1 arg-2 arg-7 (+ 1 arg-6) arg-5 arg-4))) (else (vector 1 arg-3 (Coverage-Core-n--9636-10005-dropPos 'erased arg-1 arg-2 arg-7 (+ 1 arg-6) arg-5 arg-4))))))) -(define Coverage-Core-case--9282-9787 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-n--9282-9680-notCovering arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Coverage-Core-n--9282-9679-noAssert arg-0 arg-1 arg-2 eta-0)) (NameMap-Data-toList 'erased (Context-Core-refersTo e-1)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))))))) -(define Coverage-Core-case--9311-9720 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0))))))) -(define Coverage-Core-case--9288-9705 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-1))) (Coverage-Core-case--9311-9720 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 bind-0 (let ((sc1 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((e-2 (vector-ref sc1 2))) e-2))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Coverage-Core-case--8711-9168 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-3 (vector 1 arg-6 arg-4)) arg-5)) (else (vector 1 (vector 0 arg-3 arg-4) (Coverage-Core-addNot 'erased arg-1 arg-2 'erased arg-6 arg-5))))))) -(define Coverage-Core-case--8615-9077 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 1 arg-5)) (else (Coverage-Core-findTag 'erased 'erased arg-2 arg-3 'erased arg-6)))))) -(define Coverage-Core-case--8277-8839 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 3 (vector 2 "Coverage check")) (vector 0 ))))))))) -(define Coverage-Core-case--8277-8779 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 3 (vector 2 "Coverage check")) (vector 0 ))))))))) -(define Coverage-Core-case--8277-8723 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 3 (vector 2 "Coverage check")) (vector 0 ))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Coverage-Core-case--7849-8482 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Coverage-Core-n--7849-8339-addTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-8) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc2 1))) (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-10))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Coverage-Core-case--7876-8376 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-6 (vector 0 ) e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 e-7 (vector 0 arg-7 (vector 0 e-4 e-5))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Coverage-Core-case--7867-8350 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Coverage-Core-case--7876-8376 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 (vector 0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)) (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Coverage-Core-case--7656-8195 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (Core-Core-allM 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-conflict arg-0 arg-8 arg-7 arg-6 (vector 3 arg-5 arg-4 arg-3 arg-2 arg-1) eta-0 eta-1))) arg-15)) (else (lambda (eta-0) (vector 1 1))))))) -(define Coverage-Core-case--7634-8160 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 4))) (let ((e-6 (vector-ref sc1 5))) (let ((e-7 (vector-ref sc1 6))) (let ((e-8 (vector-ref sc1 7))) (let ((e-9 (vector-ref sc1 8))) (let ((bind-0 (vector 1 (vector 6 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9)))) (Coverage-Core-case--7656-8195 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 e-4 e-5 e-7 e-9 e-8 e-6 bind-0 (Prelude-not (let ((sc2 e-6)) (let ((e-10 (vector-ref sc2 2))) e-10))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Coverage-Core-case--7477-8050 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Coverage-Core-conflictMatch arg-0 e-2))))))))) -(define Coverage-Core-case--7448-8008 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((5) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 0 ) e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) ((Coverage-Core-n--6842-7469-conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 arg-2 e-7) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (vector 1 0)) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Coverage-Core-conflictMatch arg-0 e-8)))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Coverage-Core-case--6842-7986 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Coverage-Core-case--7448-8008 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 _-0 (vector 0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)) (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2))))))) (else (lambda (eta-0) (vector 1 1))))))) -(define Coverage-Core-case--6854-7912 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Coverage-Core-case--6854-7824 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (Coverage-Core-n--6842-7468-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-16 arg-8 arg-12)) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Coverage-Core-case--6854-7736 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (Coverage-Core-n--6842-7468-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-16 arg-8 arg-12)) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Coverage-Core-case--6895-7552 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (List-Prelude-C-43C-43 'erased arg-13 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Coverage-Core-case--6853-7515 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Coverage-Core-n--6842-7468-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-10 arg-7 arg-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (vector 1 (vector 1 (List-Prelude-C-43C-43 'erased e-1 e-2))))) (else (vector 1 (vector 0 ))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Coverage-Core-case--6327-7439 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) 0) (else (Coverage-Core-conflictMatch arg-0 arg-3)))))) -(define Coverage-Core-case--6349-7398 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) 0) (else (Coverage-Core-n--6327-7027-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-8 arg-7 arg-6)))))) -(define Coverage-Core-case--6661-7332 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) 0) (else (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-n--6327-7026-conflictTm arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) arg-7 arg-9))))))) -(define Coverage-Core-case--6632-7308 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Coverage-Core-case--6661-7332 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 e-3 (Coverage-Core-n--6327-7024-clash arg-0 arg-1 arg-2 arg-3 arg-6 e-2))))))) -(define Coverage-Core-case--6348-7286 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Coverage-Core-case--6632-7308 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 (TT-Core-getFnArgs 'erased arg-4))))))) -(define Coverage-Core-case--6348-7218 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((2) (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Coverage-Core-n--6327-7025-findN arg-0 arg-1 arg-2 arg-3 arg-7 eta-0)) e-3)))(else 1)))))(else 1))))))(else 1))))) -(define Coverage-Core-case--6348-7140 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((2) (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Coverage-Core-n--6327-7025-findN arg-0 arg-1 arg-2 arg-3 arg-7 eta-0)) e-3)))(else 1)))))(else 1))))))(else 1))))) -(define Coverage-Core-case--6347-7076 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((2) (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Coverage-Core-n--6327-7025-findN arg-0 arg-1 arg-2 arg-3 arg-5 eta-0)) e-3)))(else 1)))))(else 1))))))(else 1))))) -(define Coverage-Core-n--9901-10267-tryClauses (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing matches") (vector 0 ) arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 1 arg-4)))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Coverage-Core-clauseMatches e-4 arg-2 e-5 e-6 arg-4 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (cond ((equal? sc3 0) (let ((act-25 (Normalise-Core-logTermNF e-4 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Yes") e-5 e-6 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (vector 1 (vector 0 ))))))) (else (let ((act-25 (Normalise-Core-logTermNF e-4 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No match") e-5 e-6 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else ((Coverage-Core-n--9901-10267-tryClauses arg-0 arg-1 arg-2 e-3 arg-4) eta-0))))))))))))))))))))))))) -(define Coverage-Core-n--8906-9324-rep (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Coverage-Core-getCons arg-0 arg-3 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Coverage-Core-mkAlt arg-0 arg-4 e-1 (Builtin-snd 'erased 'erased eta-1))) e-5))))))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-5 (vector 0 ))))))))) -(define Coverage-Core-n--9282-9680-notCovering (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-4 (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((bind-0 (vector 1 e-1))) ((Coverage-Core-case--9311-9720 arg-0 arg-1 arg-2 arg-4 arg-3 e-1 bind-0 (let ((sc2 (let ((sc3 e-1)) (let ((e-10 (vector-ref sc3 11))) e-10)))) (let ((e-2 (vector-ref sc2 2))) e-2))) ext-0))))(else (vector 1 1))))))))))) -(define Coverage-Core-n--8277-8875-noneOf (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Prelude-not ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Coverage-Core-altMatch 'erased arg-6 eta-0))) arg-5)))) -(define Coverage-Core-n--9282-9679-noAssert (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (cond ((equal? sc1 0) (vector 0 )) (else (vector 1 e-2))))))))) -(define Coverage-Core-n--9816-10182-mkSubstEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-8)) (vector 0 ))) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (let ((e-9 (vector-ref sc1 2))) (vector 1 (vector 1 arg-6 (vector 0 ) (vector 2 "cov" arg-7)) (Coverage-Core-n--9816-10182-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 arg-6 (b+ arg-7 1 63) e-9)))))))))) -(define Coverage-Core-n--8277-8823-isDefault (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((3) 0)(else 1))))) -(define Coverage-Core-n--8277-8763-isDefault (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((3) 0)(else 1))))) -(define Coverage-Core-n--6327-7025-findN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (Prelude-C-61C-61_Eq__Nat arg-4 e-4)))(else (Coverage-Core-case--6347-7076 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (TT-Core-getFnArgs 'erased arg-5))))))) -(define Coverage-Core-n--8106-8563-emptyRHSalt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (vector 0 e-1 e-2 e-3 (Coverage-Core-emptyRHS 'erased arg-6 e-4))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (vector 1 e-6 e-7 (Coverage-Core-emptyRHS 'erased arg-6 e-8)))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (vector 2 e-10 (Coverage-Core-emptyRHS 'erased arg-6 e-11))))) (else (let ((e-13 (vector-ref sc0 1))) (vector 3 (Coverage-Core-emptyRHS 'erased arg-6 e-13)))))))) -(define Coverage-Core-n--8906-9325-dropRep (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (vector 1 e-2 (Coverage-Core-n--8906-9325-dropRep arg-0 arg-1 arg-2 arg-3 arg-4 (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (Coverage-Core-tagIs 'erased e-6 eta-0))) e-3)))))(else (vector 1 e-2 (Coverage-Core-n--8906-9325-dropRep arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))))) -(define Coverage-Core-n--9636-10005-dropPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Coverage-Core-case--9641-10021 'erased arg-1 arg-2 e-2 e-3 arg-5 arg-4 arg-3 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-4 arg-5))))))))) -(define Coverage-Core-n--6327-7026-conflictTm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (Coverage-Core-case--6348-7140 arg-0 arg-1 arg-2 arg-3 'erased e-8 e-9 e-10 'erased arg-5 (TT-Core-getFnArgs 'erased arg-5))))))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Coverage-Core-case--6348-7218 arg-0 arg-1 arg-2 arg-3 'erased e-2 e-3 e-4 'erased arg-4 (TT-Core-getFnArgs 'erased arg-4))))))(else (Coverage-Core-case--6348-7286 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (TT-Core-getFnArgs 'erased arg-4)))))))))) -(define Coverage-Core-n--6842-7469-conflictNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 4))) (let ((xC-39 (vector 2 (Name-Core-show_Show__Name e-32) arg-6))) (lambda (eta-0) (let ((act-24 (((e-34 arg-4) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-31 (vector 0 ) xC-39))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Coverage-Core-n--6842-7469-conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ arg-6 1 63) arg-7 e-5) eta-0)))))))))))) ((1) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (let ((sc1 e-37)) (case (vector-ref sc1 0) ((1) (let ((e-40 (vector-ref sc1 1))) (let ((e-41 (vector-ref sc1 2))) (let ((sc2 e-40)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-38)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-4 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-7 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 1 (vector 0 e-41 e-6) (vector 0 ))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((2) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((e-5 (vector-ref sc3 5))) (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (let ((e-19 (vector-ref sc4 4))) (let ((e-20 (vector-ref sc4 5))) (Coverage-Core-case--6854-7736 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-16 e-1 e-5 e-4 e-3 e-2 e-20 e-19 e-18 e-17 arg-6 (Prelude-C-61C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((3) (let ((e-7 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((e-9 (vector-ref sc3 3))) (let ((e-10 (vector-ref sc3 4))) (let ((e-11 (vector-ref sc3 5))) (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((3) (let ((e-22 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 2))) (let ((e-24 (vector-ref sc4 3))) (let ((e-25 (vector-ref sc4 4))) (let ((e-26 (vector-ref sc4 5))) (Coverage-Core-case--6854-7824 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22 e-7 e-11 e-10 e-9 e-8 e-26 e-25 e-24 e-23 arg-6 (Name-Core-C-61C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((8) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((8) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (Coverage-Core-case--6854-7912 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (TT-Core-C-61C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((2) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((e-5 (vector-ref sc2 5))) (let ((sc3 arg-8)) (case (vector-ref sc3 0) ((2) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (let ((e-19 (vector-ref sc3 4))) (let ((e-20 (vector-ref sc3 5))) (Coverage-Core-case--6854-7736 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-16 e-1 e-5 e-4 e-3 e-2 e-20 e-19 e-18 e-17 arg-6 (Prelude-C-61C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((3) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (let ((e-10 (vector-ref sc2 4))) (let ((e-11 (vector-ref sc2 5))) (let ((sc3 arg-8)) (case (vector-ref sc3 0) ((3) (let ((e-22 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (let ((e-24 (vector-ref sc3 3))) (let ((e-25 (vector-ref sc3 4))) (let ((e-26 (vector-ref sc3 5))) (Coverage-Core-case--6854-7824 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22 e-7 e-11 e-10 e-9 e-8 e-26 e-25 e-24 e-23 arg-6 (Name-Core-C-61C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((8) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((sc3 arg-8)) (case (vector-ref sc3 0) ((8) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (Coverage-Core-case--6854-7912 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (TT-Core-C-61C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((2) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 5))) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((2) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (let ((e-19 (vector-ref sc2 4))) (let ((e-20 (vector-ref sc2 5))) (Coverage-Core-case--6854-7736 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-16 e-1 e-5 e-4 e-3 e-2 e-20 e-19 e-18 e-17 arg-6 (Prelude-C-61C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((3) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-11 (vector-ref sc1 5))) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-22 (vector-ref sc2 1))) (let ((e-23 (vector-ref sc2 2))) (let ((e-24 (vector-ref sc2 3))) (let ((e-25 (vector-ref sc2 4))) (let ((e-26 (vector-ref sc2 5))) (Coverage-Core-case--6854-7824 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22 e-7 e-11 e-10 e-9 e-8 e-26 e-25 e-24 e-23 arg-6 (Name-Core-C-61C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((8) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((8) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (Coverage-Core-case--6854-7912 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (TT-Core-C-61C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((2) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (let ((e-19 (vector-ref sc1 4))) (let ((e-20 (vector-ref sc1 5))) (Coverage-Core-case--6854-7736 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-16 e-1 e-5 e-4 e-3 e-2 e-20 e-19 e-18 e-17 arg-6 (Prelude-C-61C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((3) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((3) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 4))) (let ((e-26 (vector-ref sc1 5))) (Coverage-Core-case--6854-7824 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22 e-7 e-11 e-10 e-9 e-8 e-26 e-25 e-24 e-23 arg-6 (Name-Core-C-61C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((8) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((8) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (Coverage-Core-case--6854-7912 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (TT-Core-C-61C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))))))) -(define Coverage-Core-n--6842-7468-conflictArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-4 e-2) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-evalClosure (vector 0 ) arg-4 e-6) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 ((Coverage-Core-n--6842-7469-conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-8) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((act-27 ((Coverage-Core-n--6842-7468-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-7) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (vector 1 (vector 1 (List-Prelude-C-43C-43 'erased e-1 e-4))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))) -(define Coverage-Core-n--6327-7027-conflictArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Coverage-Core-case--6349-7398 arg-0 arg-1 arg-2 arg-3 e-6 e-7 e-3 arg-5 arg-4 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name arg-4 e-6) (lambda () (Coverage-Core-n--6327-7026-conflictTm arg-0 arg-1 arg-2 arg-3 arg-5 e-7)))))))))))))) -(define Coverage-Core-n--9816-10183-close (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (SubstEnv-TT-Core-substs arg-5 (vector 0 ) (Coverage-Core-n--9816-10182-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 arg-7) arg-8))) -(define Coverage-Core-n--6327-7024-clash (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((2) (let ((e-10 (vector-ref sc3 1))) (Prelude-C-47C-61_Eq__Int e-4 e-10)))(else 1)))))(else 1)))))(else 1)))))(else 1))))) -(define Coverage-Core-n--9009-9414-buildArgsAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Coverage-Core-n--9009-9413-buildArgAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-25 ((Coverage-Core-n--9009-9414-buildArgsAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (Coverage-Core-addNot 'erased arg-3 arg-0 'erased e-6 arg-12) e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-10)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Coverage-Core-n--9009-9413-buildArgAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Coverage-Core-n--9009-9414-buildArgsAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-5 e-6))))))))))))))))))))))) -(define Coverage-Core-n--9009-9413-buildArgAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((con (vector 1 arg-11 (vector 2 e-2 (List-Data-length 'erased e-3)) e-1))) (let ((psC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-substName (vector 0 ) arg-4 (TT-Core-apply 'erased arg-11 con (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 1 arg-11 (vector 0 ) eta-1)) e-3)) eta-0)) arg-7))) (Coverage-Core-buildArgs (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-11 arg-10 (Coverage-Core-weakenNs 'erased arg-0 e-3 (vector 1 (vector 0 arg-3 e-2) arg-9)) (Coverage-Core-weakenNs 'erased arg-0 e-3 arg-12) psC-39 e-4)))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((psC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-substName (vector 0 ) arg-4 (vector 7 arg-11 (vector 2 ) (vector 1 arg-11 (vector 0 ) e-6) (vector 1 arg-11 (vector 0 ) e-7)) eta-0)) arg-7))) (Coverage-Core-buildArgs (vector 1 e-6 (vector 1 e-7 arg-0)) arg-11 arg-10 (Coverage-Core-weakenNs 'erased arg-0 (vector 1 e-6 (vector 1 e-7 (vector 0 ))) arg-9) (Coverage-Core-weakenNs 'erased arg-0 (vector 1 e-6 (vector 1 e-7 (vector 0 ))) arg-12) psC-39 e-8)))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((psC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-substName (vector 0 ) arg-4 (vector 9 arg-11 e-10) eta-0)) arg-7))) (Coverage-Core-buildArgs arg-0 arg-11 arg-10 arg-9 arg-12 psC-39 e-11))))) (else (let ((e-13 (vector-ref sc0 1))) (Coverage-Core-buildArgs arg-0 arg-11 arg-10 arg-9 arg-12 arg-7 e-13))))))) -(define Coverage-Core-n--7849-8339-addTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-7 (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((Coverage-Core-case--7876-8376 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 (vector 0 (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17)) (let ((sc2 e-1)) (let ((e-2 (vector-ref sc2 3))) e-2)))) ext-0))))(else (vector 1 (vector 0 )))))))))))) +(define Termination-Core-asserted (lambda (arg-0 arg-1 arg-2) (Termination-Core-case--7662-8185 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2)))) +(define Coverage-Core-case--9948-10372 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF arg-3 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Yes") arg-6 arg-5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF arg-3 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No match") arg-6 arg-5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Coverage-Core-n--9943-10336-tryClauses arg-0 arg-1 arg-2 arg-7 arg-8) eta-0))))))))))) +(define Coverage-Core-case--9678-10134 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-eraseApps 'erased arg-2 eta-1)) e-3) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (TT-Core-apply 'erased e-5 (vector 1 e-5 (vector 0 ) e-7) e-8)))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-7 (let ((sc3 e-8)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc3 1))) (let ((eargs (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-1) (let ((sc4 eta-1)) (let ((e-26 (vector-ref sc4 4))) e-26)))) e-9))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-eraseApps 'erased arg-2 eta-1)) (Coverage-Core-n--9678-10074-dropPos 'erased arg-1 arg-2 e-5 0 eargs e-3)) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (TT-Core-apply 'erased e-5 (vector 1 e-5 e-6 e-7) e-10))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-eraseApps 'erased arg-2 eta-1)) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-5)))))))))))))))) +(define Coverage-Core-case--9683-10090 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 1 (vector 10 arg-7 1) (Coverage-Core-n--9678-10074-dropPos 'erased arg-1 arg-2 arg-7 (+ 1 arg-6) arg-5 arg-4))) (else (vector 1 arg-3 (Coverage-Core-n--9678-10074-dropPos 'erased arg-1 arg-2 arg-7 (+ 1 arg-6) arg-5 arg-4))))))) +(define Coverage-Core-case--9324-9856 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-n--9324-9749-notCovering arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Coverage-Core-n--9324-9748-noAssert arg-0 arg-1 arg-2 eta-0)) (NameMap-Data-toList 'erased (Context-Core-refersTo e-1)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))))))) +(define Coverage-Core-case--9353-9789 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0))))))) +(define Coverage-Core-case--9330-9774 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-1))) (Coverage-Core-case--9353-9789 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 bind-0 (let ((sc1 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((e-2 (vector-ref sc1 2))) e-2))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Coverage-Core-case--8753-9237 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-3 (vector 1 arg-6 arg-4)) arg-5)) (else (vector 1 (vector 0 arg-3 arg-4) (Coverage-Core-addNot 'erased arg-1 arg-2 'erased arg-6 arg-5))))))) +(define Coverage-Core-case--8657-9146 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 1 arg-5)) (else (Coverage-Core-findTag 'erased 'erased arg-2 arg-3 'erased arg-6)))))) +(define Coverage-Core-case--8319-8908 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 3 (vector 2 "Coverage check")) (vector 0 ))))))))) +(define Coverage-Core-case--8319-8848 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 3 (vector 2 "Coverage check")) (vector 0 ))))))))) +(define Coverage-Core-case--8319-8792 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 3 (vector 2 "Coverage check")) (vector 0 ))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Coverage-Core-case--7891-8551 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Coverage-Core-n--7891-8408-addTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-8) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc2 1))) (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-10))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Coverage-Core-case--7918-8445 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-6 (vector 0 ) e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 e-7 (vector 0 arg-7 (vector 0 e-4 e-5))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Coverage-Core-case--7909-8419 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Coverage-Core-case--7918-8445 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 (vector 0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)) (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Coverage-Core-case--7698-8264 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (Core-Core-allM 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-conflict arg-0 arg-8 arg-7 arg-6 (vector 3 arg-5 arg-4 arg-3 arg-2 arg-1) eta-0 eta-1))) arg-15)) (else (lambda (eta-0) (vector 1 1))))))) +(define Coverage-Core-case--7676-8229 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 4))) (let ((e-6 (vector-ref sc1 5))) (let ((e-7 (vector-ref sc1 6))) (let ((e-8 (vector-ref sc1 7))) (let ((e-9 (vector-ref sc1 8))) (let ((bind-0 (vector 1 (vector 6 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9)))) (Coverage-Core-case--7698-8264 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 e-4 e-5 e-7 e-9 e-8 e-6 bind-0 (Prelude-not (let ((sc2 e-6)) (let ((e-10 (vector-ref sc2 2))) e-10))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Coverage-Core-case--7519-8119 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Coverage-Core-conflictMatch arg-0 e-2))))))))) +(define Coverage-Core-case--7490-8077 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((5) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 0 ) e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) ((Coverage-Core-n--6884-7538-conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 arg-2 e-7) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (vector 1 0)) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Coverage-Core-conflictMatch arg-0 e-8)))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Coverage-Core-case--6884-8055 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Coverage-Core-case--7490-8077 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 _-0 (vector 0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)) (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2))))))) (else (lambda (eta-0) (vector 1 1))))))) +(define Coverage-Core-case--6896-7981 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Coverage-Core-case--6896-7893 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (Coverage-Core-n--6884-7537-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-16 arg-8 arg-12)) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Coverage-Core-case--6896-7805 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (Coverage-Core-n--6884-7537-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-16 arg-8 arg-12)) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Coverage-Core-case--6937-7621 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (List-Prelude-C-43C-43 'erased arg-13 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Coverage-Core-case--6895-7584 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Coverage-Core-n--6884-7537-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-10 arg-7 arg-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (vector 1 (vector 1 (List-Prelude-C-43C-43 'erased e-1 e-2))))) (else (vector 1 (vector 0 ))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Coverage-Core-case--6369-7508 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) 0) (else (Coverage-Core-conflictMatch arg-0 arg-3)))))) +(define Coverage-Core-case--6391-7467 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) 0) (else (Coverage-Core-n--6369-7096-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-8 arg-7 arg-6)))))) +(define Coverage-Core-case--6703-7401 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) 0) (else (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-n--6369-7095-conflictTm arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) arg-7 arg-9))))))) +(define Coverage-Core-case--6674-7377 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Coverage-Core-case--6703-7401 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 e-3 (Coverage-Core-n--6369-7093-clash arg-0 arg-1 arg-2 arg-3 arg-6 e-2))))))) +(define Coverage-Core-case--6390-7355 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Coverage-Core-case--6674-7377 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 (TT-Core-getFnArgs 'erased arg-4))))))) +(define Coverage-Core-case--6390-7287 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((2) (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Coverage-Core-n--6369-7094-findN arg-0 arg-1 arg-2 arg-3 arg-7 eta-0)) e-3)))(else 1)))))(else 1))))))(else 1))))) +(define Coverage-Core-case--6390-7209 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((2) (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Coverage-Core-n--6369-7094-findN arg-0 arg-1 arg-2 arg-3 arg-7 eta-0)) e-3)))(else 1)))))(else 1))))))(else 1))))) +(define Coverage-Core-case--6389-7145 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((2) (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Coverage-Core-n--6369-7094-findN arg-0 arg-1 arg-2 arg-3 arg-5 eta-0)) e-3)))(else 1)))))(else 1))))))(else 1))))) +(define Coverage-Core-n--9943-10336-tryClauses (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing matches") (vector 0 ) arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 1 arg-4)))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Coverage-Core-clauseMatches e-4 arg-2 e-5 e-6 arg-4 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (cond ((equal? sc3 0) (let ((act-25 (Normalise-Core-logTermNF e-4 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Yes") e-5 e-6 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (vector 1 (vector 0 ))))))) (else (let ((act-25 (Normalise-Core-logTermNF e-4 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No match") e-5 e-6 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else ((Coverage-Core-n--9943-10336-tryClauses arg-0 arg-1 arg-2 e-3 arg-4) eta-0))))))))))))))))))))))))) +(define Coverage-Core-n--8948-9393-rep (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Coverage-Core-getCons arg-0 arg-3 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Coverage-Core-mkAlt arg-0 arg-4 e-1 (Builtin-snd 'erased 'erased eta-1))) e-5))))))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-5 (vector 0 ))))))))) +(define Coverage-Core-n--9324-9749-notCovering (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-4 (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((bind-0 (vector 1 e-1))) ((Coverage-Core-case--9353-9789 arg-0 arg-1 arg-2 arg-4 arg-3 e-1 bind-0 (let ((sc2 (let ((sc3 e-1)) (let ((e-10 (vector-ref sc3 11))) e-10)))) (let ((e-2 (vector-ref sc2 2))) e-2))) ext-0))))(else (vector 1 1))))))))))) +(define Coverage-Core-n--8319-8944-noneOf (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Prelude-not ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Coverage-Core-altMatch 'erased arg-6 eta-0))) arg-5)))) +(define Coverage-Core-n--9324-9748-noAssert (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (cond ((equal? sc1 0) (vector 0 )) (else (vector 1 e-2))))))))) +(define Coverage-Core-n--9858-10251-mkSubstEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-8)) (vector 0 ))) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (let ((e-9 (vector-ref sc1 2))) (vector 1 (vector 1 arg-6 (vector 0 ) (vector 2 "cov" arg-7)) (Coverage-Core-n--9858-10251-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 arg-6 (b+ arg-7 1 63) e-9)))))))))) +(define Coverage-Core-n--8319-8892-isDefault (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((3) 0)(else 1))))) +(define Coverage-Core-n--8319-8832-isDefault (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((3) 0)(else 1))))) +(define Coverage-Core-n--6369-7094-findN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (Prelude-C-61C-61_Eq__Nat arg-4 e-4)))(else (Coverage-Core-case--6389-7145 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (TT-Core-getFnArgs 'erased arg-5))))))) +(define Coverage-Core-n--8148-8632-emptyRHSalt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (vector 0 e-1 e-2 e-3 (Coverage-Core-emptyRHS 'erased arg-6 e-4))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (vector 1 e-6 e-7 (Coverage-Core-emptyRHS 'erased arg-6 e-8)))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (vector 2 e-10 (Coverage-Core-emptyRHS 'erased arg-6 e-11))))) (else (let ((e-13 (vector-ref sc0 1))) (vector 3 (Coverage-Core-emptyRHS 'erased arg-6 e-13)))))))) +(define Coverage-Core-n--8948-9394-dropRep (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (vector 1 e-2 (Coverage-Core-n--8948-9394-dropRep arg-0 arg-1 arg-2 arg-3 arg-4 (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (Coverage-Core-tagIs 'erased e-6 eta-0))) e-3)))))(else (vector 1 e-2 (Coverage-Core-n--8948-9394-dropRep arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))))) +(define Coverage-Core-n--9678-10074-dropPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Coverage-Core-case--9683-10090 'erased arg-1 arg-2 e-2 e-3 arg-5 arg-4 arg-3 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-4 arg-5))))))))) +(define Coverage-Core-n--6369-7095-conflictTm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (Coverage-Core-case--6390-7209 arg-0 arg-1 arg-2 arg-3 'erased e-8 e-9 e-10 'erased arg-5 (TT-Core-getFnArgs 'erased arg-5))))))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Coverage-Core-case--6390-7287 arg-0 arg-1 arg-2 arg-3 'erased e-2 e-3 e-4 'erased arg-4 (TT-Core-getFnArgs 'erased arg-4))))))(else (Coverage-Core-case--6390-7355 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (TT-Core-getFnArgs 'erased arg-4)))))))))) +(define Coverage-Core-n--6884-7538-conflictNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 4))) (let ((xC-39 (vector 2 (Name-Core-show_Show__Name e-32) arg-6))) (lambda (eta-0) (let ((act-24 (((e-34 arg-4) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-31 (vector 0 ) xC-39))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Coverage-Core-n--6884-7538-conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ arg-6 1 63) arg-7 e-5) eta-0)))))))))))) ((1) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (let ((sc1 e-37)) (case (vector-ref sc1 0) ((1) (let ((e-40 (vector-ref sc1 1))) (let ((e-41 (vector-ref sc1 2))) (let ((sc2 e-40)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-38)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-4 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-7 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 1 (vector 0 e-41 e-6) (vector 0 ))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((2) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((e-5 (vector-ref sc3 5))) (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (let ((e-19 (vector-ref sc4 4))) (let ((e-20 (vector-ref sc4 5))) (Coverage-Core-case--6896-7805 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-16 e-1 e-5 e-4 e-3 e-2 e-20 e-19 e-18 e-17 arg-6 (Prelude-C-61C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((3) (let ((e-7 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((e-9 (vector-ref sc3 3))) (let ((e-10 (vector-ref sc3 4))) (let ((e-11 (vector-ref sc3 5))) (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((3) (let ((e-22 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 2))) (let ((e-24 (vector-ref sc4 3))) (let ((e-25 (vector-ref sc4 4))) (let ((e-26 (vector-ref sc4 5))) (Coverage-Core-case--6896-7893 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22 e-7 e-11 e-10 e-9 e-8 e-26 e-25 e-24 e-23 arg-6 (Name-Core-C-61C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((8) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((8) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (Coverage-Core-case--6896-7981 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (TT-Core-C-61C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((2) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((e-5 (vector-ref sc2 5))) (let ((sc3 arg-8)) (case (vector-ref sc3 0) ((2) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (let ((e-19 (vector-ref sc3 4))) (let ((e-20 (vector-ref sc3 5))) (Coverage-Core-case--6896-7805 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-16 e-1 e-5 e-4 e-3 e-2 e-20 e-19 e-18 e-17 arg-6 (Prelude-C-61C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((3) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (let ((e-10 (vector-ref sc2 4))) (let ((e-11 (vector-ref sc2 5))) (let ((sc3 arg-8)) (case (vector-ref sc3 0) ((3) (let ((e-22 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (let ((e-24 (vector-ref sc3 3))) (let ((e-25 (vector-ref sc3 4))) (let ((e-26 (vector-ref sc3 5))) (Coverage-Core-case--6896-7893 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22 e-7 e-11 e-10 e-9 e-8 e-26 e-25 e-24 e-23 arg-6 (Name-Core-C-61C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((8) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((sc3 arg-8)) (case (vector-ref sc3 0) ((8) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (Coverage-Core-case--6896-7981 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (TT-Core-C-61C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((2) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 5))) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((2) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (let ((e-19 (vector-ref sc2 4))) (let ((e-20 (vector-ref sc2 5))) (Coverage-Core-case--6896-7805 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-16 e-1 e-5 e-4 e-3 e-2 e-20 e-19 e-18 e-17 arg-6 (Prelude-C-61C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((3) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-11 (vector-ref sc1 5))) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-22 (vector-ref sc2 1))) (let ((e-23 (vector-ref sc2 2))) (let ((e-24 (vector-ref sc2 3))) (let ((e-25 (vector-ref sc2 4))) (let ((e-26 (vector-ref sc2 5))) (Coverage-Core-case--6896-7893 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22 e-7 e-11 e-10 e-9 e-8 e-26 e-25 e-24 e-23 arg-6 (Name-Core-C-61C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((8) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((8) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (Coverage-Core-case--6896-7981 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (TT-Core-C-61C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((2) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (let ((e-19 (vector-ref sc1 4))) (let ((e-20 (vector-ref sc1 5))) (Coverage-Core-case--6896-7805 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-16 e-1 e-5 e-4 e-3 e-2 e-20 e-19 e-18 e-17 arg-6 (Prelude-C-61C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((3) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((3) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 4))) (let ((e-26 (vector-ref sc1 5))) (Coverage-Core-case--6896-7893 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22 e-7 e-11 e-10 e-9 e-8 e-26 e-25 e-24 e-23 arg-6 (Name-Core-C-61C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((8) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((8) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (Coverage-Core-case--6896-7981 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (TT-Core-C-61C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))))))) +(define Coverage-Core-n--6884-7537-conflictArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-4 e-2) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-evalClosure (vector 0 ) arg-4 e-6) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 ((Coverage-Core-n--6884-7538-conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-8) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((act-27 ((Coverage-Core-n--6884-7537-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-7) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (vector 1 (vector 1 (List-Prelude-C-43C-43 'erased e-1 e-4))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))) +(define Coverage-Core-n--6369-7096-conflictArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Coverage-Core-case--6391-7467 arg-0 arg-1 arg-2 arg-3 e-6 e-7 e-3 arg-5 arg-4 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name arg-4 e-6) (lambda () (Coverage-Core-n--6369-7095-conflictTm arg-0 arg-1 arg-2 arg-3 arg-5 e-7)))))))))))))) +(define Coverage-Core-n--9858-10252-close (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (SubstEnv-TT-Core-substs arg-5 (vector 0 ) (Coverage-Core-n--9858-10251-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 arg-7) arg-8))) +(define Coverage-Core-n--6369-7093-clash (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((2) (let ((e-10 (vector-ref sc3 1))) (Prelude-C-47C-61_Eq__Int e-4 e-10)))(else 1)))))(else 1)))))(else 1)))))(else 1))))) +(define Coverage-Core-n--9051-9483-buildArgsAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Coverage-Core-n--9051-9482-buildArgAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-25 ((Coverage-Core-n--9051-9483-buildArgsAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (Coverage-Core-addNot 'erased arg-3 arg-0 'erased e-6 arg-12) e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-10)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Coverage-Core-n--9051-9482-buildArgAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Coverage-Core-n--9051-9483-buildArgsAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-5 e-6))))))))))))))))))))))) +(define Coverage-Core-n--9051-9482-buildArgAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((con (vector 1 arg-11 (vector 2 e-2 (List-Data-length 'erased e-3)) e-1))) (let ((psC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-substName (vector 0 ) arg-4 (TT-Core-apply 'erased arg-11 con (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 1 arg-11 (vector 0 ) eta-1)) e-3)) eta-0)) arg-7))) (Coverage-Core-buildArgs (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-11 arg-10 (Coverage-Core-weakenNs 'erased arg-0 e-3 (vector 1 (vector 0 arg-3 e-2) arg-9)) (Coverage-Core-weakenNs 'erased arg-0 e-3 arg-12) psC-39 e-4)))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((psC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-substName (vector 0 ) arg-4 (vector 7 arg-11 (vector 2 ) (vector 1 arg-11 (vector 0 ) e-6) (vector 1 arg-11 (vector 0 ) e-7)) eta-0)) arg-7))) (Coverage-Core-buildArgs (vector 1 e-6 (vector 1 e-7 arg-0)) arg-11 arg-10 (Coverage-Core-weakenNs 'erased arg-0 (vector 1 e-6 (vector 1 e-7 (vector 0 ))) arg-9) (Coverage-Core-weakenNs 'erased arg-0 (vector 1 e-6 (vector 1 e-7 (vector 0 ))) arg-12) psC-39 e-8)))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((psC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-substName (vector 0 ) arg-4 (vector 9 arg-11 e-10) eta-0)) arg-7))) (Coverage-Core-buildArgs arg-0 arg-11 arg-10 arg-9 arg-12 psC-39 e-11))))) (else (let ((e-13 (vector-ref sc0 1))) (Coverage-Core-buildArgs arg-0 arg-11 arg-10 arg-9 arg-12 arg-7 e-13))))))) +(define Coverage-Core-n--7891-8408-addTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-7 (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((Coverage-Core-case--7918-8445 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 (vector 0 (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17)) (let ((sc2 e-1)) (let ((e-2 (vector-ref sc2 3))) e-2)))) ext-0))))(else (vector 1 (vector 0 )))))))))))) (define Coverage-Core-weakenNs (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 0 (TT-Core-insertVarNames 'erased 'erased (vector 0 ) arg-2 e-6 'erased) e-7) (Coverage-Core-weakenNs 'erased arg-1 arg-2 e-3)))))))))))) -(define Coverage-Core-tagIsNot (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) e-2 arg-1)))) ((2) 0) ((1) 0) (else 1))))) +(define Coverage-Core-tagIsNot (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) e-2 arg-1)))) ((2) 0) ((1) 0) (else 1))))) (define Coverage-Core-tagIs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (Prelude-C-61C-61_Eq__Int arg-1 e-2))) ((2) 1) ((1) 1) (else 0))))) -(define Coverage-Core-replaceDefaults (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (lambda (eta-0) (vector 1 arg-4))) ((10) (lambda (eta-0) (vector 1 arg-4)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-n--8906-9324-rep arg-0 arg-4 arg-3 arg-2 arg-1 eta-1)) arg-4) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Coverage-Core-n--8906-9325-dropRep arg-0 arg-4 arg-3 arg-2 arg-1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))) -(define Coverage-Core-mkAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 2 "m" eta-0)) (Prelude-take 'erased e-7 (Prelude-rangeFrom_Range__C-36a 'erased (vector 0 (vector 0 (vector 0 (lambda (arg-2743) (lambda (arg-2744) (b+ arg-2743 arg-2744 63))) (lambda (arg-2745) (lambda (arg-2746) (b* arg-2745 arg-2746 63))) (lambda (arg-2747) arg-2747)) (lambda (arg-2924) (lambda (arg-2925) (Prelude-div_Integral__Int arg-2924 arg-2925))) (lambda (arg-2926) (lambda (arg-2927) (Prelude-mod_Integral__Int arg-2926 arg-2927)))) (vector 0 (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-2743) (lambda (arg-2744) (b+ arg-2743 arg-2744 63))) (lambda (arg-2745) (lambda (arg-2746) (b* arg-2745 arg-2746 63))) (lambda (arg-2747) arg-2747)) (lambda (arg-2797) (Prelude-negate_Neg__Int arg-2797)) (lambda (arg-2798) (lambda (arg-2799) (Prelude-C-45_Neg__Int arg-2798 arg-2799)))))) 0))) (CaseTree-Core-weakenNs_Weaken__CaseTree arg-0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 2 "m" eta-0)) (Prelude-take 'erased e-7 (Prelude-rangeFrom_Range__C-36a 'erased (vector 0 (vector 0 (vector 0 (lambda (arg-2743) (lambda (arg-2744) (b+ arg-2743 arg-2744 63))) (lambda (arg-2745) (lambda (arg-2746) (b* arg-2745 arg-2746 63))) (lambda (arg-2747) arg-2747)) (lambda (arg-2924) (lambda (arg-2925) (Prelude-div_Integral__Int arg-2924 arg-2925))) (lambda (arg-2926) (lambda (arg-2927) (Prelude-mod_Integral__Int arg-2926 arg-2927)))) (vector 0 (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-2743) (lambda (arg-2744) (b+ arg-2743 arg-2744 63))) (lambda (arg-2745) (lambda (arg-2746) (b* arg-2745 arg-2746 63))) (lambda (arg-2747) arg-2747)) (lambda (arg-2797) (Prelude-negate_Neg__Int arg-2797)) (lambda (arg-2798) (lambda (arg-2799) (Prelude-C-45_Neg__Int arg-2798 arg-2799)))))) 0))) (Coverage-Core-emptyRHS 'erased arg-1 arg-2))))))))))) +(define Coverage-Core-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--8948-9393-rep arg-0 arg-4 arg-3 arg-2 arg-1 eta-1)) arg-4) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Coverage-Core-n--8948-9394-dropRep arg-0 arg-4 arg-3 arg-2 arg-1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))) +(define Coverage-Core-mkAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 2 "m" eta-0)) (Prelude-take 'erased e-7 (Prelude-rangeFrom_Range__C-36a 'erased (vector 0 (vector 0 (vector 0 (lambda (arg-2751) (lambda (arg-2752) (b+ arg-2751 arg-2752 63))) (lambda (arg-2753) (lambda (arg-2754) (b* arg-2753 arg-2754 63))) (lambda (arg-2755) arg-2755)) (lambda (arg-2932) (lambda (arg-2933) (Prelude-div_Integral__Int arg-2932 arg-2933))) (lambda (arg-2934) (lambda (arg-2935) (Prelude-mod_Integral__Int arg-2934 arg-2935)))) (vector 0 (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-2751) (lambda (arg-2752) (b+ arg-2751 arg-2752 63))) (lambda (arg-2753) (lambda (arg-2754) (b* arg-2753 arg-2754 63))) (lambda (arg-2755) arg-2755)) (lambda (arg-2805) (Prelude-negate_Neg__Int arg-2805)) (lambda (arg-2806) (lambda (arg-2807) (Prelude-C-45_Neg__Int arg-2806 arg-2807)))))) 0))) (CaseTree-Core-weakenNs_Weaken__CaseTree arg-0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 2 "m" eta-0)) (Prelude-take 'erased e-7 (Prelude-rangeFrom_Range__C-36a 'erased (vector 0 (vector 0 (vector 0 (lambda (arg-2751) (lambda (arg-2752) (b+ arg-2751 arg-2752 63))) (lambda (arg-2753) (lambda (arg-2754) (b* arg-2753 arg-2754 63))) (lambda (arg-2755) arg-2755)) (lambda (arg-2932) (lambda (arg-2933) (Prelude-div_Integral__Int arg-2932 arg-2933))) (lambda (arg-2934) (lambda (arg-2935) (Prelude-mod_Integral__Int arg-2934 arg-2935)))) (vector 0 (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-2751) (lambda (arg-2752) (b+ arg-2751 arg-2752 63))) (lambda (arg-2753) (lambda (arg-2754) (b* arg-2753 arg-2754 63))) (lambda (arg-2755) arg-2755)) (lambda (arg-2805) (Prelude-negate_Neg__Int arg-2805)) (lambda (arg-2806) (lambda (arg-2807) (Prelude-C-45_Neg__Int arg-2806 arg-2807)))))) 0))) (Coverage-Core-emptyRHS 'erased arg-1 arg-2))))))))))) (define Coverage-Core-match (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) 0) ((1) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((sc1 e-15)) (case (vector-ref sc1 0) ((0) 0)(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-48 (vector-ref sc1 3))) (Name-Core-C-61C-61_Eq__Name e-16 e-48)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) 0)(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((11) 0)(else 1))))(else 1))))))))))))))) ((4) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((4) (let ((e-51 (vector-ref sc1 2))) (let ((e-52 (vector-ref sc1 3))) (Prelude-C-38C-38 (Coverage-Core-match 'erased e-19 e-51) (lambda () (Coverage-Core-match 'erased e-20 e-52))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) 0)(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((11) 0)(else 1))))(else 1)))))))))))) ((5) (let ((e-25 (vector-ref sc0 4))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((5) (let ((e-57 (vector-ref sc1 4))) (Coverage-Core-match 'erased e-25 e-57)))(else (Coverage-Core-match 'erased e-25 arg-2)))))) ((6) (let ((e-29 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((6) (let ((e-61 (vector-ref sc1 3))) (Coverage-Core-match 'erased e-29 e-61)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) 0)(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((11) 0)(else 1))))(else 1))))))))))) ((7) (let ((e-34 (vector-ref sc0 4))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((7) (let ((e-66 (vector-ref sc1 4))) (Coverage-Core-match 'erased e-34 e-66)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) 0)(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((11) 0)(else 1))))(else 1))))))))))) ((8) (let ((e-38 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((8) (let ((e-70 (vector-ref sc1 3))) (Coverage-Core-match 'erased e-38 e-70)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) 0)(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((11) 0)(else 1))))(else 1))))))))))) ((9) (let ((e-41 (vector-ref sc0 2))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-73 (vector-ref sc1 2))) (TT-Core-C-61C-61_Eq__Constant e-41 e-73)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) 0)(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((11) 0)(else 1))))(else 1))))))))))) ((10) 0)(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((10) 0)(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((11) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((11) 0)(else 1))))(else 1))))))))))) -(define Coverage-Core-isEmpty (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((6) (let ((e-15 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-11 (vector-ref sc3 5))) (let ((e-10 (vector-ref sc3 6))) (let ((e-8 (vector-ref sc3 7))) (let ((e-9 (vector-ref sc3 8))) (let ((bind-0 (vector 1 (vector 6 e-15 e-14 e-13 e-12 e-11 e-10 e-8 e-9)))) ((Coverage-Core-case--7656-8195 arg-0 e-5 e-4 e-3 e-2 e-1 arg-3 arg-2 arg-1 e-15 e-14 e-13 e-12 e-10 e-9 e-8 e-11 bind-0 (Prelude-not (let ((sc4 e-11)) (let ((e-16 (vector-ref sc4 2))) e-16)))) eta-0)))))))))))(else (vector 1 1))))))(else (vector 1 1))))))))))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Coverage-Core-getNonCoveringRefs (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-n--9282-9680-notCovering arg-2 arg-1 arg-0 e-5 eta-0 eta-1))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Coverage-Core-n--9282-9679-noAssert arg-2 arg-1 arg-0 eta-0)) (NameMap-Data-toList 'erased (Context-Core-refersTo e-1)))) ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) -(define Coverage-Core-getMissingAlts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((19) (Coverage-Core-case--8277-8723 arg-0 e-1 arg-4 arg-2 arg-1 (List-Data-isNil 'erased arg-4)))(else (Coverage-Core-case--8277-8779 arg-0 e-1 e-2 arg-4 arg-2 arg-1 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Coverage-Core-n--8277-8763-isDefault arg-0 e-1 e-2 arg-4 arg-2 arg-1 eta-0))) arg-4)))))))) ((10) (let ((e-4 (vector-ref sc0 1))) (Coverage-Core-case--8277-8839 arg-0 e-4 arg-4 arg-2 arg-1 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Coverage-Core-n--8277-8823-isDefault arg-0 e-4 arg-4 arg-2 arg-1 eta-0))) arg-4))))(else (lambda (eta-0) (let ((act-24 ((Coverage-Core-getCons arg-0 arg-2 arg-3) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (List-Data-filter 'erased (lambda (eta-1) (Coverage-Core-n--8277-8875-noneOf arg-0 arg-4 arg-3 arg-2 arg-1 arg-4 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Coverage-Core-mkAlt arg-0 arg-1 (vector 2 "Coverage check") (Builtin-snd 'erased 'erased eta-1))) e-5)))))))))))))) +(define Coverage-Core-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--7698-8264 arg-0 e-5 e-4 e-3 e-2 e-1 arg-3 arg-2 arg-1 e-15 e-14 e-13 e-12 e-10 e-9 e-8 e-11 bind-0 (Prelude-not (let ((sc4 e-11)) (let ((e-16 (vector-ref sc4 2))) e-16)))) eta-0)))))))))))(else (vector 1 1))))))(else (vector 1 1))))))))))))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Coverage-Core-getNonCoveringRefs (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-n--9324-9749-notCovering arg-2 arg-1 arg-0 e-5 eta-0 eta-1))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Coverage-Core-n--9324-9748-noAssert arg-2 arg-1 arg-0 eta-0)) (NameMap-Data-toList 'erased (Context-Core-refersTo e-1)))) ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) +(define Coverage-Core-getMissingAlts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((19) (Coverage-Core-case--8319-8792 arg-0 e-1 arg-4 arg-2 arg-1 (List-Data-isNil 'erased arg-4)))(else (Coverage-Core-case--8319-8848 arg-0 e-1 e-2 arg-4 arg-2 arg-1 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Coverage-Core-n--8319-8832-isDefault arg-0 e-1 e-2 arg-4 arg-2 arg-1 eta-0))) arg-4)))))))) ((10) (let ((e-4 (vector-ref sc0 1))) (Coverage-Core-case--8319-8908 arg-0 e-4 arg-4 arg-2 arg-1 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Coverage-Core-n--8319-8892-isDefault arg-0 e-4 arg-4 arg-2 arg-1 eta-0))) arg-4))))(else (lambda (eta-0) (let ((act-24 ((Coverage-Core-getCons arg-0 arg-2 arg-3) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (List-Data-filter 'erased (lambda (eta-1) (Coverage-Core-n--8319-8944-noneOf arg-0 arg-4 arg-3 arg-2 arg-1 arg-4 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Coverage-Core-mkAlt arg-0 arg-1 (vector 2 "Coverage check") (Builtin-snd 'erased 'erased eta-1))) e-5)))))))))))))) (define Coverage-Core-getMissing (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((psIn (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 arg-2 (vector 0 ) eta-0)) arg-0))) (let ((act-25 ((Coverage-Core-buildArgs arg-0 arg-2 e-5 (vector 0 ) (vector 0 ) psIn arg-4) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-apply 'erased arg-2 (vector 1 arg-2 (vector 1 ) arg-3) eta-0)) e-6))))))))))))))) -(define Coverage-Core-getCons (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((6) (let ((e-8 (vector-ref sc3 7))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Coverage-Core-n--7849-8339-addTy arg-0 e-1 e-3 e-4 e-5 e-2 arg-1 eta-1 eta-2))) e-8) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-16 (vector-ref sc4 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc4 1))) (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-16)))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Coverage-Core-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--7891-8408-addTy arg-0 e-1 e-3 e-4 e-5 e-2 arg-1 eta-1 eta-2))) e-8) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-16 (vector-ref sc4 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc4 1))) (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-16)))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define Coverage-Core-freeEnv (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 10 arg-0 1)) (Coverage-Core-freeEnv arg-0 e-3)))))))) -(define Coverage-Core-findTag (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Coverage-Core-case--8615-9077 'erased 'erased arg-2 arg-3 e-6 e-7 e-3 'erased (TT-Core-sameVar 'erased arg-2 e-6)))))))))))) -(define Coverage-Core-eraseApps (lambda (arg-0 arg-1 arg-2) (Coverage-Core-case--9636-10065 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2)))) -(define Coverage-Core-emptyRHS (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (vector 0 e-0 e-1 e-2 e-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Coverage-Core-n--8106-8563-emptyRHSalt e-1 e-0 e-5 e-4 e-2 'erased arg-1 eta-0)) e-5)))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (vector 1 e-7 (vector 10 arg-1 1))))(else arg-2))))) -(define Coverage-Core-conflictMatch (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Coverage-Core-case--6327-7439 arg-0 e-6 e-7 e-3 (Coverage-Core-n--6327-7027-conflictArgs arg-0 e-6 e-7 e-3 e-6 e-7 e-3)))))))))))) -(define Coverage-Core-conflict (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-5 (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((Coverage-Core-case--7448-8008 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-1 _-0 (vector 0 (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17)) (let ((sc2 e-1)) (let ((e-2 (vector-ref sc2 3))) e-2)))) ext-0)))) (else (vector 1 1))))))))))) -(define Coverage-Core-clauseMatches (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Coverage-Core-eraseApps 'erased arg-1 (Coverage-Core-n--9816-10183-close arg-0 arg-4 arg-3 arg-2 arg-1 arg-0 (TT-Core-getLoc 'erased arg-3) arg-2 arg-3)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((lhs e-5)) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) lhs ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-toResolvedNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) arg-4 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (Coverage-Core-match 'erased e-6 e-7)))))))))))))))))))) -(define Coverage-Core-checkMatched (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Coverage-Core-eraseApps 'erased arg-0 arg-2) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Coverage-Core-n--9901-10267-tryClauses arg-2 arg-1 arg-0 arg-1 e-5) ext-0)))))))) -(define Coverage-Core-buildArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((fenv (Coverage-Core-freeEnv arg-1 arg-0))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-2 fenv e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 ((Coverage-Core-replaceDefaults arg-0 arg-1 arg-2 e-6 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 ((Coverage-Core-getMissingAlts arg-0 arg-1 arg-2 e-6 e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc3 1))) (let ((altsC-39 (List-Prelude-C-43C-43 'erased e-7 e-8))) (let ((altsK (Prelude-maybe 'erased 'erased (lambda () altsC-39) (lambda () (lambda (t) (List-Data-filter 'erased (lambda (eta-1) (Coverage-Core-tagIs 'erased t eta-1)) altsC-39))) (Coverage-Core-findTag 'erased 'erased e-2 arg-0 'erased arg-3)))) (let ((altsN (Prelude-maybe 'erased 'erased (lambda () altsK) (lambda () (lambda (ts) (List-Data-filter 'erased (lambda (eta-1) (Coverage-Core-tagIsNot 'erased ts eta-1)) altsK))) (Coverage-Core-findTag 'erased 'erased e-2 arg-0 'erased arg-4)))) ((Coverage-Core-n--9009-9414-buildArgsAlt arg-0 e-5 e-4 e-2 e-0 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-4 altsN) eta-0)))))))))))))))))))))))))) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 1 arg-5 (vector 0 ))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Coverage-Core-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--8657-9146 'erased 'erased arg-2 arg-3 e-6 e-7 e-3 'erased (TT-Core-sameVar 'erased arg-2 e-6)))))))))))) +(define Coverage-Core-eraseApps (lambda (arg-0 arg-1 arg-2) (Coverage-Core-case--9678-10134 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2)))) +(define Coverage-Core-emptyRHS (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (vector 0 e-0 e-1 e-2 e-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Coverage-Core-n--8148-8632-emptyRHSalt e-1 e-0 e-5 e-4 e-2 'erased arg-1 eta-0)) e-5)))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (vector 1 e-7 (vector 10 arg-1 1))))(else arg-2))))) +(define Coverage-Core-conflictMatch (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Coverage-Core-case--6369-7508 arg-0 e-6 e-7 e-3 (Coverage-Core-n--6369-7096-conflictArgs arg-0 e-6 e-7 e-3 e-6 e-7 e-3)))))))))))) +(define Coverage-Core-conflict (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-5 (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((Coverage-Core-case--7490-8077 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-1 _-0 (vector 0 (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17)) (let ((sc2 e-1)) (let ((e-2 (vector-ref sc2 3))) e-2)))) ext-0)))) (else (vector 1 1))))))))))) +(define Coverage-Core-clauseMatches (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Coverage-Core-eraseApps 'erased arg-1 (Coverage-Core-n--9858-10252-close arg-0 arg-4 arg-3 arg-2 arg-1 arg-0 (TT-Core-getLoc 'erased arg-3) arg-2 arg-3)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((lhs e-5)) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-1 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) lhs ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-toResolvedNames 'erased arg-1 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) arg-4 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (Coverage-Core-match 'erased e-6 e-7)))))))))))))))))))) +(define Coverage-Core-checkMatched (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Coverage-Core-eraseApps 'erased arg-0 arg-2) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Coverage-Core-n--9943-10336-tryClauses arg-2 arg-1 arg-0 arg-1 e-5) ext-0)))))))) +(define Coverage-Core-buildArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((fenv (Coverage-Core-freeEnv arg-1 arg-0))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-2 fenv e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 ((Coverage-Core-replaceDefaults arg-0 arg-1 arg-2 e-6 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 ((Coverage-Core-getMissingAlts arg-0 arg-1 arg-2 e-6 e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc3 1))) (let ((altsC-39 (List-Prelude-C-43C-43 'erased e-7 e-8))) (let ((altsK (Prelude-maybe 'erased 'erased (lambda () altsC-39) (lambda () (lambda (t) (List-Data-filter 'erased (lambda (eta-1) (Coverage-Core-tagIs 'erased t eta-1)) altsC-39))) (Coverage-Core-findTag 'erased 'erased e-2 arg-0 'erased arg-3)))) (let ((altsN (Prelude-maybe 'erased 'erased (lambda () altsK) (lambda () (lambda (ts) (List-Data-filter 'erased (lambda (eta-1) (Coverage-Core-tagIsNot 'erased ts eta-1)) altsK))) (Coverage-Core-findTag 'erased 'erased e-2 arg-0 'erased arg-4)))) ((Coverage-Core-n--9051-9483-buildArgsAlt arg-0 e-5 e-4 e-2 e-0 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-4 altsN) eta-0)))))))))))))))))))))))))) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 1 arg-5 (vector 0 ))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define Coverage-Core-altMatch (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) 0)(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((0) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-18 (vector-ref sc1 2))) (Prelude-C-61C-61_Eq__Int e-6 e-18)))(else 1))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((2) (let ((e-22 (vector-ref sc1 1))) (TT-Core-C-61C-61_Eq__Constant e-10 e-22)))(else 1)))))(else 1)))))))) -(define Coverage-Core-addNot (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 arg-1 (vector 1 arg-4 (vector 0 ))) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Coverage-Core-case--8711-9168 'erased arg-1 arg-2 e-6 e-7 e-3 arg-4 'erased (TT-Core-sameVar 'erased arg-1 e-6)))))))))))) -(define CaseBuilder-Core-with--10547-7580 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((1) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((sc2 e-10)) (case (vector-ref sc2 0) ((0) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((e-16 (vector-ref sc2 3))) (let ((e-17 (vector-ref sc2 4))) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((2) (let ((newclause (vector 0 e-14 arg-17 arg-16 arg-15))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 e-7 (vector 1 (vector 0 e-14 e-15 e-16 e-17) (List-Prelude-C-43C-43 'erased e-11 (vector 1 newclause (vector 0 ))))) arg-14)))))(else (let ((sc3 arg-13)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6753-addConstG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-12 arg-17 arg-16 arg-15 arg-14) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))))(else (let ((sc2 arg-13)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6753-addConstG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-12 arg-17 arg-16 arg-15 arg-14) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))(else (let ((sc1 arg-13)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6753-addConstG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-12 arg-17 arg-16 arg-15 arg-14) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))(else (let ((sc0 arg-13)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6753-addConstG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-12 arg-17 arg-16 arg-15 arg-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))) -(define CaseBuilder-Core-with--10546-7404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((sc1 e-9)) (case (vector-ref sc1 0) ((1) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((0) (let ((e-15 (vector-ref sc2 1))) (let ((e-16 (vector-ref sc2 2))) (let ((e-17 (vector-ref sc2 3))) (let ((e-18 (vector-ref sc2 4))) (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((newps (CaseBuilder-Core-newPats 'erased 'erased 'erased (vector 1 arg-18 (vector 1 arg-17 (vector 0 ))) (vector 1 (vector 1 (vector 0 ))) e-16))) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (vector 1 (vector 0 e-7 arg-18) (vector 1 (vector 0 e-8 arg-17) (vector 0 )))) (CaseBuilder-Core-weakenNs 'erased arg-10 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-16)))) (let ((newclause (vector 0 e-15 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased newps patsC-39) arg-15 (TT-Core-weakenNs_Weaken__Term arg-10 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-14)))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 e-7 e-8 (vector 1 (vector 0 e-15 e-16 e-17 e-18) (List-Prelude-C-43C-43 'erased e-12 (vector 1 newclause (vector 0 ))))) arg-13)))))))(else (let ((sc3 arg-12)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6752-addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))))(else (let ((sc2 arg-12)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6752-addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))(else (let ((sc1 arg-12)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6752-addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 1 arg-11 e-5))))))))))))))))(else (let ((sc0 arg-12)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6752-addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))) -(define CaseBuilder-Core-with--10545-7080 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((sc1 e-10)) (case (vector-ref sc1 0) ((1) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((sc2 e-12)) (case (vector-ref sc2 0) ((0) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (let ((e-19 (vector-ref sc2 4))) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((0) (let ((e-31 (vector-ref sc3 1))) (let ((newps (CaseBuilder-Core-newPats 'erased 'erased 'erased arg-12 e-31 e-17))) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (List-Data-zip 'erased 'erased e-7 arg-12)) (CaseBuilder-Core-weakenNs 'erased arg-10 e-7 arg-19)))) (let ((newclause (vector 0 e-16 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased newps patsC-39) arg-18 (TT-Core-weakenNs_Weaken__Term arg-10 e-7 arg-17)))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-7 e-8 e-9 (vector 1 (vector 0 e-16 e-17 e-18 e-19) (List-Prelude-C-43C-43 'erased e-13 (vector 1 newclause (vector 0 ))))) arg-16))))))))(else (let ((sc3 arg-15)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6751-addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-14 arg-13 arg-12 arg-19 arg-18 arg-17 arg-16) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))))(else (let ((sc2 arg-15)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6751-addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-14 arg-13 arg-12 arg-19 arg-18 arg-17 arg-16) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))(else (let ((sc1 arg-15)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6751-addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-14 arg-13 arg-12 arg-19 arg-18 arg-17 arg-16) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))))(else (let ((sc0 arg-15)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6751-addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-14 arg-13 arg-12 arg-19 arg-18 arg-17 arg-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))) -(define CaseBuilder-Core-with--8739-5216 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (CaseBuilder-Core-case--8777-5233 arg-2 arg-1 arg-0 e-5 e-7 e-6 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased arg-4 arg-6)))(else (let ((sc1 arg-3)) (let ((sc2 arg-5)) (CaseBuilder-Core-case--8777-5363 arg-2 arg-1 arg-0 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased arg-4 arg-6)))))))))))) ((1) (let ((e-8 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((1) (CaseBuilder-Core-case--8777-5299 arg-2 arg-1 arg-0 e-10 e-12 e-11 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased arg-4 arg-6)))(else (let ((sc1 arg-3)) (let ((sc2 arg-5)) (CaseBuilder-Core-case--8777-5363 arg-2 arg-1 arg-0 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased arg-4 arg-6))))))))))))(else (let ((sc0 arg-3)) (let ((sc1 arg-5)) (CaseBuilder-Core-case--8777-5363 arg-2 arg-1 arg-0 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased arg-4 arg-6))))))))) -(define CaseBuilder-Core-case--15201-11289 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((reached (CaseBuilder-Core-findReached 'erased e-3))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 e-3 (CaseBuilder-Core-n--15201-11100-getUnreachable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 reached arg-0))))))))))) -(define CaseBuilder-Core-case--15292-11119 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (CaseBuilder-Core-n--15201-11100-getUnreachable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ arg-9 1 63) arg-8 arg-7)) (else (vector 1 arg-6 (CaseBuilder-Core-n--15201-11100-getUnreachable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ arg-9 1 63) arg-8 arg-7))))))) -(define CaseBuilder-Core-case--14856-10725 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseTree-Core-argToPat eta-1)) arg-7) arg-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 (Strings-Prelude-C-43C-43 "Wrong function name in pattern LHS " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x))))) (vector 0 arg-2 arg-5)))) eta-0))))))) -(define CaseBuilder-Core-case--14814-10688 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((_-0 (vector 0 e-2 e-3))) (CaseBuilder-Core-case--14856-10725 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-3 e-2 _-0 (Prelude-C-61C-61_Eq__Int arg-10 e-2)))))))) -(define CaseBuilder-Core-case--14774-10655 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition arg-5 (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 0 e-2 e-3))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((_-1 (vector 0 e-6 e-4))) ((CaseBuilder-Core-case--14856-10725 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3 e-2 _-0 e-4 e-6 _-1 (Prelude-C-61C-61_Eq__Int e-2 e-6)) eta-0))))))))))))))))) -(define CaseBuilder-Core-case--14759-10620 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-getPosition arg-2 (let ((sc4 e-8)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (let ((e-10 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-26 ((Context-Core-getPosition e-7 (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((_-0 (vector 0 e-10 e-4))) (let ((sc7 e-11)) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((_-1 (vector 0 e-13 e-12))) ((CaseBuilder-Core-case--14856-10725 arg-0 arg-1 arg-2 arg-3 arg-4 e-7 e-5 e-3 e-8 e-4 e-10 _-0 e-12 e-13 _-1 (Prelude-C-61C-61_Eq__Int e-10 e-13)) eta-0))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a function name in pattern LHS") eta-0)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a function name in pattern LHS") eta-0)))))))))) -(define CaseBuilder-Core-case--14281-10151 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 2 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((2) (let ((e-9 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (((e-7 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-4 (vector 0 ) arg-8))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-15 (vector 0 ) e-11 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 1 e-8) (vector 0 e-9 (TT-Core-embed 'erased 'erased e-12))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-15 (vector 0 ) e-2 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased e-8)))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-15 (vector 0 ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased e-5))))))))))))))))))) -(define CaseBuilder-Core-case--13481-9753 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-2))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-17 arg-16 (vector 4 )) eta-0))))))) -(define CaseBuilder-Core-case--13470-9418 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((clausesC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-shuffleVars 'erased 'erased 'erased e-3 'erased eta-0)) arg-4))) (let ((ps (CaseBuilder-Core-partition e-2 (TT-Core-dropVar 'erased (vector 1 arg-2 arg-1) e-3 'erased) arg-0 arg-5 clausesC-39))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-mixture e-2 arg-0 (TT-Core-dropVar 'erased (vector 1 arg-2 arg-1) e-3 'erased) arg-9 arg-8 clausesC-39 arg-7 arg-6 arg-5 ps arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 2 "No clauses")))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) e-5) eta-0)))))))))))))) -(define CaseBuilder-Core-case--13255-9229 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (+ 1 e-3))))))))) -(define CaseBuilder-Core-case--13178-9148 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 arg-0 0))))(else (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-tail 'erased 'erased 'erased eta-1)) arg-4)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-4 (+ 1 e-3)))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-tail 'erased 'erased 'erased eta-1)) arg-4)) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 1 (vector 0 e-2 (+ 1 e-3))))))))))))))))) -(define CaseBuilder-Core-case--13001-9079 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 arg-0 0)))) (else (lambda (eta-0) (let ((act-24 (CaseBuilder-Core-getScore 'erased 'erased arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 arg-0 0)))(else (let ((act-25 ((CaseBuilder-Core-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-tail 'erased 'erased 'erased eta-1)) arg-4)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-4 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (vector 1 (vector 0 e-4 (+ 1 e-3))))))))))))))))(else (let ((act-25 ((CaseBuilder-Core-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-tail 'erased 'erased 'erased eta-1)) arg-4)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (vector 1 (vector 0 e-2 (+ 1 e-3))))))))))))))))))))))))) -(define CaseBuilder-Core-case--13032-9011 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 arg-0 0)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-5 arg-3 e-5) eta-0)))))))) -(define CaseBuilder-Core-case--13001-8950 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 arg-0 0)))) (else (lambda (eta-0) (let ((act-24 (CaseBuilder-Core-getScore 'erased 'erased arg-1 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((sc3 e-2)) (vector 1 (vector 0 arg-0 0))))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-5 arg-3 e-6) eta-0)))))))))))))))) -(define CaseBuilder-Core-case--12893-8854 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((42) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 e-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-9 eta-0))))))) -(define CaseBuilder-Core-case--12321-8508 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (CaseBuilder-Core-n--12295-8323-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 3 arg-7 arg-6) arg-9)) (else 1))))) -(define CaseBuilder-Core-case--12321-8429 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (CaseBuilder-Core-n--12295-8323-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 1 arg-12 arg-11 arg-10 arg-9 arg-8) arg-15)) (else 1))))) -(define CaseBuilder-Core-case--12321-8350 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (CaseBuilder-Core-n--12295-8323-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 2 arg-11 arg-10 arg-9 arg-8) arg-13)) (else 1))))) -(define CaseBuilder-Core-case--11907-8230 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-2 arg-11 arg-5 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((CaseBuilder-Core-n--11907-7984-sameTypeAs 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-7 e-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-getFirstArgType 'erased 'erased 'erased eta-1)) arg-4)) eta-0)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-8 arg-6 (vector 1 )) eta-0))))))) -(define CaseBuilder-Core-case--11944-8131 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (CaseBuilder-Core-n--11907-7984-sameTypeAs 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-15 arg-14 arg-13)) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-8 arg-6 (vector 1 )) eta-0))))))) -(define CaseBuilder-Core-case--10548-7683 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (CaseBuilder-Core-n--10521-6751-addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 arg-16 arg-15 arg-13 arg-21 arg-20 arg-19 arg-18)) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-17 arg-5 (vector 3 arg-16)) eta-0))))))) -(define CaseBuilder-Core-case--10546-7241 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((0) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (vector 1 (vector 0 e-5 arg-15) (vector 1 (vector 0 e-8 arg-14) (vector 0 )))) (CaseBuilder-Core-weakenNs 'erased arg-9 (vector 1 e-5 (vector 1 e-8 (vector 0 ))) arg-13)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) arg-11 (TT-Core-weakenNs_Weaken__Term arg-9 (vector 1 e-5 (vector 1 e-8 (vector 0 ))) arg-10)))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 e-5 e-8 (vector 1 clause (vector 0 ))) (vector 0 )))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0))))))) -(define CaseBuilder-Core-case--10682-6993 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-nf arg-9 arg-17 (Env-Core-mkEnv arg-6 arg-9) (TT-Core-embed 'erased 'erased e-1)))) (else (lambda (eta-0) (vector 1 (vector 9 arg-6 1)))))))) -(define CaseBuilder-Core-case--10545-6868 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 arg-6 (vector 2 "_" 0) (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 10 arg-6)) (lambda (d) (lambda (a) (lambda (eta-1) (vector 1 (vector 0 arg-6 (vector 2 "_" 1) (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 9 arg-6 1)) (lambda (d-0) (lambda (a-0) (lambda (eta-2) (vector 1 (vector 10 arg-6)))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact arg-16 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) ((Normalise-Core-nf arg-9 e-5 (Env-Core-mkEnv arg-6 arg-9) (TT-Core-embed 'erased 'erased e-1)) eta-0))) (else (vector 1 (vector 9 arg-6 1))))))))))))))))))))) -(define CaseBuilder-Core-case--10545-6783 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (List-Data-zip 'erased 'erased e-2 arg-14)) (CaseBuilder-Core-weakenNs 'erased arg-9 e-2 arg-13)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) arg-11 (TT-Core-weakenNs_Weaken__Term arg-9 e-2 arg-10)))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 arg-16 arg-15 (vector 1 clause (vector 0 ))) (vector 0 ))))))))))) -(define CaseBuilder-Core-case--10308-6710 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (vector 0 e-2 e-3 (CaseBuilder-Core-n--10308-6574-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-4) e-6)))))))) -(define CaseBuilder-Core-case--10331-6654 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 6 arg-8 arg-7)) (else (let ((e-2 (vector-ref sc0 1))) (vector 6 arg-8 e-2))))))) -(define CaseBuilder-Core-case--10331-6584 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (vector 0 arg-9 arg-8 (CaseBuilder-Core-n--10308-6574-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased arg-7))) (else (let ((e-2 (vector-ref sc0 1))) (vector 0 arg-9 e-2 (CaseBuilder-Core-n--10308-6574-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased arg-7)))))))) -(define CaseBuilder-Core-case--10184-6505 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 4))) (vector 0 e-2 e-3 arg-4 e-6))))))) -(define CaseBuilder-Core-case--9708-6259 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 2 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((2) (let ((e-9 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 3))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (let ((act-24 (((e-7 arg-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-11 (vector 1 e-4 (vector 0 ) arg-10))) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 1 e-8) (vector 2 ))))))))))(else (lambda (eta-0) (let ((act-24 (((e-7 arg-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-11 (vector 1 e-4 (vector 0 ) arg-10))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-2 arg-9 arg-11 e-11 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 1 e-8) (vector 0 e-9 e-12))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-2 arg-9 arg-11 e-2 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 e-8))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-2 arg-9 arg-11 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 e-5)))))))))))))))))) -(define CaseBuilder-Core-case--9774-6139 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((2) (vector 2 )) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (TT-Core-weakenNs_Weaken__Term arg-2 (vector 1 arg-10 arg-13) e-3))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (TT-Core-weakenNs_Weaken__Term arg-2 (vector 1 arg-10 arg-13) e-5)))))))) -(define CaseBuilder-Core-case--9708-6078 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((argTy (let ((_-0 (vector 0 e-2 e-3))) (CaseBuilder-Core-case--9774-6139 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-3 _-0 (Builtin-snd 'erased 'erased arg-12))))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-10 e-2) (vector 1 (vector 0 0 arg-10 arg-0 argTy) (CaseBuilder-Core-weaken 'erased arg-10 (List-Prelude-C-43C-43 'erased e-2 arg-2) e-3))))))))))) -(define CaseBuilder-Core-case--9320-5914 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 3 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (vector 2 )))))))) -(define CaseBuilder-Core-case--9353-5769 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (vector 0 arg-13))(else (vector 3 ))))))(else (vector 3 )))))(else (vector 3 ))))))(else (vector 3 )))))))(else (vector 3 )))))) -(define CaseBuilder-Core-case--9320-5695 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (vector 3 )) (else (let ((e-2 (vector-ref sc0 1))) (CaseBuilder-Core-case--9353-5769 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 (vector 0 (Name-Core-nameEq arg-3 arg-11) (Equality-Decidable-decEq_DecEq__Int arg-2 arg-10))))))))) -(define CaseBuilder-Core-case--8777-5363 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 1 arg-2 arg-1) arg-0 (vector 0 ) (vector 1 arg-3 (vector 0 )) (vector 2 ))) (else (vector 1 (vector 1 arg-2 arg-1) arg-0 (vector 0 ) (vector 1 arg-3 (vector 0 )) (vector 2 ))))))) -(define CaseBuilder-Core-case--8777-5299 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 1 arg-2 arg-1) arg-0 (List-Prelude-C-43C-43 'erased arg-5 arg-3) (vector 1 arg-6 (vector 0 )) (vector 1 (vector 1 arg-2 arg-1) arg-0 arg-3 arg-5 arg-4))) (else (vector 1 (vector 1 arg-2 arg-1) arg-0 arg-3 (vector 1 arg-6 arg-5) arg-4)))))) -(define CaseBuilder-Core-case--8777-5233 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 1 arg-2 arg-1) arg-0 arg-3 (vector 1 arg-6 arg-5) arg-4)) (else (vector 1 (vector 1 arg-2 arg-1) arg-0 (List-Prelude-C-43C-43 'erased arg-5 arg-3) (vector 1 arg-6 (vector 0 )) (vector 0 (vector 1 arg-2 arg-1) arg-0 arg-3 arg-5 arg-4))))))) -(define CaseBuilder-Core-case--8434-5111 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (vector 1 )) (else (CaseBuilder-Core-n--8396-4919-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-15)))))) -(define CaseBuilder-Core-case--8434-5008 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (cond ((equal? sc0 0) (vector 1 )) (else (vector 0 )))))) -(define CaseBuilder-Core-case--7372-3997 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-0 arg-1 arg-8 arg-7 arg-6 arg-5 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-2 e-5))))))))))))) -(define CaseBuilder-Core-case--7146-3844 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 0 e-2 e-3 e-4 (vector 0 arg-16 arg-20)))))))) -(define CaseBuilder-Core-case--7016-3769 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-1 arg-11 arg-12 e-8 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-4 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 (vector 1 e-1 (vector 0 ) arg-3))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 ((CaseBuilder-Core-updatePats arg-1 arg-0 arg-8 arg-12 e-9 arg-2) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (vector 0 (let ((sc5 arg-4)) (let ((e-14 (vector-ref sc5 1))) (let ((e-13 (vector-ref sc5 2))) (let ((e-12 (vector-ref sc5 3))) (vector 0 e-14 e-13 e-12 (vector 0 e-6 e-5)))))) e-10)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-2))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-2)))))))) -(define CaseBuilder-Core-case--7016-3691 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 0 e-2 e-3 e-4 (vector 0 arg-10 (TT-Core-substName arg-1 arg-6 arg-5 arg-9))))))))) -(define CaseBuilder-Core-case--6996-3656 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (let ((sc1 arg-4)) (let ((e-5 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (vector 0 e-5 e-3 e-4 (vector 0 e-1 (TT-Core-substName arg-1 arg-6 arg-5 e-2))))))) arg-2)))))) ((1) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((env (Env-Core-mkEnv arg-7 arg-1))) (let ((act-26 ((Normalise-Core-nf arg-1 e-5 env (TT-Core-substName arg-1 arg-6 arg-5 e-4)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (let ((e-1 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 3))) (let ((e-8 (vector-ref sc4 4))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-11 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 3))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-1 e-6 env e-9 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) (let ((act-28 (((e-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) env (vector 1 e-1 (vector 0 ) arg-3))) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-29 ((CaseBuilder-Core-updatePats arg-1 arg-0 arg-8 env e-13 arg-2) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (vector 0 (let ((sc9 arg-4)) (let ((e-18 (vector-ref sc9 1))) (let ((e-17 (vector-ref sc9 2))) (let ((e-16 (vector-ref sc9 3))) (vector 0 e-18 e-17 e-16 (vector 0 e-11 e-12)))))) e-14))))))))))))))))))))(else (vector 1 (vector 0 arg-4 arg-2)))))))))(else (vector 1 (vector 0 arg-4 arg-2)))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-2)))))))) -(define CaseBuilder-Core-case--6863-3581 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 0 e-2 e-3 e-4 (vector 1 arg-11)))))))) -(define CaseBuilder-Core-case--6617-3523 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-6 arg-5 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 (let ((sc4 arg-4)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((e-4 (vector-ref sc4 3))) (vector 0 e-2 e-3 e-4 (vector 1 e-7)))))) arg-3)))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-4 arg-3)))))))) -(define CaseBuilder-Core-case--6665-3428 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 0 e-2 e-3 e-4 (vector 0 arg-7 arg-15)))))))) -(define CaseBuilder-Core-case--6617-3345 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-12 arg-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (((arg-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 (vector 1 arg-9 (vector 0 ) arg-4))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((CaseBuilder-Core-updatePats arg-0 arg-5 arg-1 arg-12 e-8 arg-10) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 1 (let ((sc6 arg-11)) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((e-4 (vector-ref sc6 3))) (vector 0 e-2 e-3 e-4 (vector 0 arg-7 e-7)))))) e-9)))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-11 arg-10)))))))) -(define CaseBuilder-Core-n--13490-9851-updateVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-3)) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((e-15 (vector-ref sc2 3))) (let ((e-17 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((6) (let ((e-18 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-1 arg-0 arg-8 arg-7 arg-3 (vector 0 e-18 (vector 1 1) e-13) e-10) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 1 e-19 e-2) e-6 e-4 (TT-Core-substName arg-1 e-19 (vector 0 e-18 (vector 1 1) e-13) e-5)))))))))))) ((0) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((e-22 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-1 arg-0 arg-8 arg-7 arg-3 (CaseTree-Core-mkTerm arg-1 e-22) e-10) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((rhsC-39 (TT-Core-substName arg-1 e-21 (vector 0 e-20 (vector 1 0) e-13) e-5))) ((CaseBuilder-Core-n--13490-9851-updateVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 e-2 (vector 1 (vector 0 e-13 e-14 e-22 e-17) e-6) e-4 rhsC-39)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-1 arg-0 arg-8 arg-7 arg-3 (CaseTree-Core-mkTerm arg-1 e-15) e-10) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 e-2 e-6 e-4 e-5)))))))))))))))))))))))))) -(define CaseBuilder-Core-n--10308-6574-update (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (CaseBuilder-Core-case--10331-6584 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-2 e-1 e-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-1 arg-5)))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (vector 1 e-3 e-4 e-5 e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--10308-6574-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased eta-0)) e-7)))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (vector 2 e-8 e-9 e-10 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--10308-6574-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased eta-0)) e-11))))))) ((4) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (vector 4 e-12 e-13 (CaseBuilder-Core-n--10308-6574-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-14) (CaseBuilder-Core-n--10308-6574-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-15))))))) ((5) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (vector 5 e-16 e-17 (CaseBuilder-Core-n--10308-6574-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-18) (CaseBuilder-Core-n--10308-6574-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-19))))))) ((6) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (CaseBuilder-Core-case--10331-6654 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-21 e-20 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-21 arg-5)))))(else arg-7))))) -(define CaseBuilder-Core-n--10287-6535-update (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((6) (let ((e-5 (vector-ref sc1 2))) (vector 1 (vector 0 e-5 e-2))))(else (vector 0 )))))))(else (vector 0 )))))) -(define CaseBuilder-Core-n--15201-11104-toClosed (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (vector 0 (CaseBuilder-Core-n--15201-11103-close arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 e-5 e-2 e-6) (CaseBuilder-Core-n--15201-11103-close arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 e-5 e-2 e-7)))))))))))) -(define CaseBuilder-Core-n--7557-4158-showAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) "")) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat (let ((sc4 e-14)) (let ((e-4 (vector-ref sc4 3))) e-4))) (Strings-Prelude-C-43C-43 " [" (Strings-Prelude-C-43C-43 (CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 arg-3 (let ((sc4 e-14)) (let ((e-6 (vector-ref sc4 4))) e-6))) "]"))))))(else (let ((sc3 arg-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat (let ((sc4 e-8)) (let ((e-4 (vector-ref sc4 3))) e-4))) (Strings-Prelude-C-43C-43 " [" (Strings-Prelude-C-43C-43 (CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 arg-3 (let ((sc4 e-8)) (let ((e-6 (vector-ref sc4 4))) e-6))) (Strings-Prelude-C-43C-43 "]" (Strings-Prelude-C-43C-43 ", " (CaseBuilder-Core-n--7557-4158-showAll arg-0 arg-1 arg-2 arg-3 e-3 e-9)))))))))))))))))(else (let ((sc2 arg-5)) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat (let ((sc3 e-8)) (let ((e-4 (vector-ref sc3 3))) e-4))) (Strings-Prelude-C-43C-43 " [" (Strings-Prelude-C-43C-43 (CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 arg-3 (let ((sc3 e-8)) (let ((e-6 (vector-ref sc3 4))) e-6))) (Strings-Prelude-C-43C-43 "]" (Strings-Prelude-C-43C-43 ", " (CaseBuilder-Core-n--7557-4158-showAll arg-0 arg-1 arg-2 arg-3 e-3 e-9)))))))))))))))(else (let ((sc1 arg-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat (let ((sc2 e-8)) (let ((e-4 (vector-ref sc2 3))) e-4))) (Strings-Prelude-C-43C-43 " [" (Strings-Prelude-C-43C-43 (CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 arg-3 (let ((sc2 e-8)) (let ((e-6 (vector-ref sc2 4))) e-6))) (Strings-Prelude-C-43C-43 "]" (Strings-Prelude-C-43C-43 ", " (CaseBuilder-Core-n--7557-4158-showAll arg-0 arg-1 arg-2 arg-3 e-3 e-9))))))))))))))))))))) -(define CaseBuilder-Core-n--11907-7984-sameTypeAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf arg-2 e-7 arg-5 e-6) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((CaseBuilder-Core-case--11944-8131 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-6 e-5 e-3 arg-12 arg-11 e-7 e-8 (CaseBuilder-Core-n--11907-7983-headEq 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 e-8 arg-7)) eta-0)))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-8 arg-6 (vector 1 )) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-8 arg-6 (vector 1 )) eta-0))))))) -(define CaseBuilder-Core-n--12295-8323-samePatAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) 0)(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((sc2 e-22)) (case (vector-ref sc2 0) ((2) (let ((e-24 (vector-ref sc2 1))) (let ((e-25 (vector-ref sc2 2))) (let ((e-26 (vector-ref sc2 3))) (let ((e-27 (vector-ref sc2 4))) (CaseBuilder-Core-case--12321-8350 'erased 'erased 'erased arg-3 arg-4 e-24 e-26 e-27 e-3 e-2 e-1 e-0 e-25 e-23 (Name-Core-C-61C-61_Eq__Name e-1 e-25)))))))(else 1))))))(else 1)))))))) ((1) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (let ((e-7 (vector-ref sc0 4))) (let ((e-8 (vector-ref sc0 5))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (let ((sc2 e-29)) (case (vector-ref sc2 0) ((1) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (let ((e-34 (vector-ref sc2 4))) (let ((e-35 (vector-ref sc2 5))) (CaseBuilder-Core-case--12321-8429 'erased 'erased 'erased arg-3 arg-4 e-31 e-34 e-35 e-8 e-7 e-6 e-5 e-4 e-33 e-32 e-30 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-32) (lambda () (Prelude-C-61C-61_Eq__Int e-6 e-33))))))))))(else 1))))))(else 1))))))))) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-37 (vector-ref sc1 1))) (let ((e-38 (vector-ref sc1 2))) (let ((sc2 e-37)) (case (vector-ref sc2 0) ((3) (let ((e-39 (vector-ref sc2 1))) (let ((e-40 (vector-ref sc2 2))) (CaseBuilder-Core-case--12321-8508 'erased 'erased 'erased arg-3 arg-4 e-39 e-10 e-9 e-40 e-38 (TT-Core-C-61C-61_Eq__Constant e-10 e-40)))))(else 1))))))(else 1)))))) ((4) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-42 (vector-ref sc1 1))) (let ((e-43 (vector-ref sc1 2))) (let ((sc2 e-42)) (case (vector-ref sc2 0) ((4) (CaseBuilder-Core-n--12295-8323-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 4 e-11 e-12 e-13 e-14) e-43))(else 1))))))(else 1)))))))) ((5) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (let ((e-18 (vector-ref sc0 4))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-49 (vector-ref sc1 1))) (let ((e-50 (vector-ref sc1 2))) (let ((sc2 e-49)) (case (vector-ref sc2 0) ((5) (CaseBuilder-Core-n--12295-8323-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 5 e-15 e-16 e-17 e-18) e-50))(else 1))))))(else 1)))))))) ((6) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-56 (vector-ref sc1 1))) (let ((e-57 (vector-ref sc1 2))) (let ((sc2 e-56)) (case (vector-ref sc2 0) ((6) (CaseBuilder-Core-n--12295-8323-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 6 e-19 e-20) e-57))(else 1))))))(else 1))))))(else 1)))))))) -(define CaseBuilder-Core-n--15201-11102-mkSubstEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-5 (vector-ref sc0 2))) (vector 1 (vector 1 arg-4 (vector 0 ) (vector 2 arg-8 arg-7)) (CaseBuilder-Core-n--15201-11102-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased (b+ arg-7 1 63) arg-8 e-5)))))))) -(define CaseBuilder-Core-n--14600-10478-mkPatClausesFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-mkPatClause arg-7 arg-6 arg-5 arg-9 arg-3 arg-8 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CaseBuilder-Core-n--14600-10478-mkPatClausesFrom arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-8 1 63) arg-9 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-6)))))))))))))))))))) -(define CaseBuilder-Core-n--14266-10072-mkNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-9)) (let ((sc2 arg-10)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-9)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 arg-10)) (let ((e-16 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (let ((sc5 arg-11)) (case (vector-ref sc5 0) ((0) (vector 1 (vector 0 (vector 0 ) (vector 2 )))) (else (let ((e-4 (vector-ref sc5 1))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 3))) (let ((e-7 (vector-ref sc6 4))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((2) (let ((e-15 (vector-ref sc7 1))) (let ((e-13 (vector-ref sc7 3))) (let ((act-26 (((e-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-12 (vector 0 ) e-2))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc8 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF (vector 0 ) e-6 (vector 0 ) e-13 eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-18 (vector-ref sc9 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc9 1))) (vector 1 (vector 0 (vector 1 e-17) (vector 0 e-15 (TT-Core-embed 'erased 'erased e-18)))))))))))))))))(else (let ((act-26 (Normalise-Core-quote_Quote__NF (vector 0 ) e-6 (vector 0 ) e-4 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased e-13))))))))))))))))(else (let ((act-26 (Normalise-Core-quote_Quote__NF (vector 0 ) e-6 (vector 0 ) e-4 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased e-7)))))))))))))))))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 ((CaseBuilder-Core-n--14266-10072-mkNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-9 e-16 (Builtin-fst 'erased 'erased e-7)) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 1 (vector 0 0 e-2 e-8 (Builtin-snd 'erased 'erased e-7)) (CaseBuilder-Core-weaken 'erased e-2 e-3 e-10)))))))))))))))))))))))))))))))))))) -(define CaseBuilder-Core-n--15201-11101-labelPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 0 (Strings-Prelude-C-43C-43 "pat" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-7) ":")) e-2) (CaseBuilder-Core-n--15201-11101-labelPat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased (b+ arg-7 1 63) e-3))))))))) -(define CaseBuilder-Core-n--11907-7983-headEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((3) (let ((e-5 (vector-ref sc0 2))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((3) (let ((e-23 (vector-ref sc1 2))) (Name-Core-C-61C-61_Eq__Name e-5 e-23)))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) 0)(else 1))))(else 1)))))))) ((8) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((8) (let ((e-29 (vector-ref sc1 2))) (TT-Core-C-61C-61_Eq__Constant e-11 e-29)))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) 0)(else 1))))(else 1)))))))) ((10) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((10) 0)(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) 0)(else 1))))(else 1))))))) ((1) (let ((e-16 (vector-ref sc0 2))) (let ((sc1 e-16)) (case (vector-ref sc1 0) ((1) (let ((e-34 (vector-ref sc1 2))) (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((e-37 (vector-ref sc2 2))) (let ((sc3 e-37)) (case (vector-ref sc3 0) ((1) (let ((e-41 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (Name-Core-C-61C-61_Eq__Name e-34 e-41))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((9) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) 0)(else 1))))(else 1))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((9) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) 0)(else 1))))(else 1))))))))(else (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((9) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) 0)(else 1))))(else 1))))))))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) 0)(else 1))))(else 1)))))))) ((9) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) 0)(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) 0)(else 1))))(else 1)))))))(else (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((9) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) 0)(else 1))))(else 1)))))))) -(define CaseBuilder-Core-n--15201-11100-getUnreachable (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-case--15292-11119 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-7 arg-6 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-6 arg-7))))))))) -(define CaseBuilder-Core-n--14600-10479-getNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 2 "arg" arg-8) (CaseBuilder-Core-n--14600-10479-getNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-8 1 63) e-3)))))))) -(define CaseBuilder-Core-n--8396-4920-getClauseType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-11 (vector-ref sc1 5))) (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((0) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (CaseBuilder-Core-case--8434-5008 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-7 e-8 e-9 e-10 e-6 e-11 e-14 e-13 (Prelude-C-38C-38 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-13) (lambda () (Prelude-C-38C-38 (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-6)) (lambda () ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (CaseBuilder-Core-namesIn (List-Prelude-C-43C-43 'erased arg-11 ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (CaseBuilder-Core-namesFrom eta-1))) (CaseBuilder-Core-getPatInfo 'erased 'erased arg-8))) eta-0))) e-11)))))))))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 3))) (CaseBuilder-Core-n--8396-4920-getClauseType 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 arg-15)))(else (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((0) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (CaseBuilder-Core-case--8434-5111 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-1 arg-14 arg-13 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-1)))))(else (CaseBuilder-Core-n--8396-4919-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14))))))))))))))))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 3))) (CaseBuilder-Core-n--8396-4920-getClauseType 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 arg-15)))(else (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (CaseBuilder-Core-case--8434-5111 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-1 arg-14 arg-13 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-1)))))(else (CaseBuilder-Core-n--8396-4919-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14))))))))))))(else (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-5 (vector-ref sc0 3))) (CaseBuilder-Core-n--8396-4920-getClauseType 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 arg-15)))(else (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (CaseBuilder-Core-case--8434-5111 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-1 arg-14 arg-13 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-1)))))(else (CaseBuilder-Core-n--8396-4919-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14)))))))))))) -(define CaseBuilder-Core-n--15201-11016-getArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 ((CaseBuilder-Core-n--15201-11016-getArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (vector 1 (vector 2 "arg" arg-5) e-10)))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CaseBuilder-Core-n--10521-6755-gc (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-12))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((sc2 e-7)) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((sc3 e-13)) (let ((e-17 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6754-addGroup arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-10 arg-11 e-17 e-19 'erased e-14 e-8 e-9 arg-12) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) ((CaseBuilder-Core-n--10521-6755-gc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 e-3) eta-0)))))))))))))))))))))))) -(define CaseBuilder-Core-n--15124-10945-findRAlts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 4))) (CaseBuilder-Core-findReached 'erased e-4))) ((1) (let ((e-8 (vector-ref sc0 3))) (CaseBuilder-Core-findReached 'erased e-8))) ((2) (let ((e-11 (vector-ref sc0 2))) (CaseBuilder-Core-findReached 'erased e-11))) (else (let ((e-13 (vector-ref sc0 1))) (CaseBuilder-Core-findReached 'erased e-13))))))) -(define CaseBuilder-Core-n--12295-8322-dropAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 3))) e-2))(else arg-5))))) -(define CaseBuilder-Core-n--15201-11103-close (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (SubstEnv-TT-Core-substs arg-6 (vector 0 ) (CaseBuilder-Core-n--15201-11102-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased 0 arg-8 arg-7) arg-9))) -(define CaseBuilder-Core-n--8396-4919-clauseTypeC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (vector 0 )) ((2) (vector 0 )) ((3) (vector 0 )) ((4) (vector 0 )) ((5) (vector 0 ))(else (vector 1 )))))) -(define CaseBuilder-Core-n--13475-9539-altGroups (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (e) (lambda (eta-0) (vector 1 (vector 1 (vector 3 e) (vector 0 )))))) arg-4)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-match (List-Prelude-C-43C-43 'erased e-6 arg-3) (List-Prelude-C-43C-43 'erased e-6 arg-1) arg-12 arg-11 arg-10 arg-9 arg-8 e-9 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (arg-14) (CaseTree-Core-weakenNs_Weaken__CaseTree arg-3 e-6 arg-14)) arg-4)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CaseBuilder-Core-n--13475-9539-altGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased arg-8 arg-9 arg-10 arg-11 arg-12 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-7 e-8 e-6 e-5) e-10)))))))))))))))))) ((1) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-match (vector 1 e-12 (vector 1 e-13 arg-3)) (vector 1 e-12 (vector 1 e-13 arg-1)) arg-12 arg-11 arg-10 arg-9 arg-8 e-14 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (arg-14) (CaseTree-Core-weakenNs_Weaken__CaseTree arg-3 (vector 1 e-12 (vector 1 e-13 (vector 0 ))) arg-14)) arg-4)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CaseBuilder-Core-n--13475-9539-altGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased arg-8 arg-9 arg-10 arg-11 arg-12 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 1 e-12 e-13 e-5) e-6))))))))))))))))) (else (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-match arg-3 arg-1 arg-12 arg-11 arg-10 arg-9 arg-8 e-18 arg-4) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CaseBuilder-Core-n--13475-9539-altGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased arg-8 arg-9 arg-10 arg-11 arg-12 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 2 e-17 e-5) e-6))))))))))))))))))))))))) -(define CaseBuilder-Core-n--10521-6754-addGroup (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (CaseBuilder-Core-n--10521-6754-addGroup arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-10 arg-11 arg-12 e-2 'erased arg-15 arg-16 (TT-Core-substName arg-10 e-1 (vector 0 e-0 (vector 1 0) arg-12) arg-17) arg-18))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (CaseBuilder-Core-case--10548-7683 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-10 arg-11 arg-12 e-7 e-6 e-5 e-4 e-3 arg-18 arg-17 arg-16 arg-15 'erased (Prelude-C-61C-61_Eq__Nat e-6 (List-Data-length 'erased e-7))))))))) ((2) (let ((e-9 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 4))) (CaseBuilder-Core-n--10521-6751-addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 e-9 0 e-11 arg-15 arg-16 arg-17 arg-18)))) ((4) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (CaseBuilder-Core-n--10521-6751-addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 (vector 1 "->") 0 (vector 1 e-14 (vector 1 e-15 (vector 0 ))) arg-15 arg-16 arg-17 arg-18)))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (CaseBuilder-Core-n--10521-6752-addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 e-18 e-19 arg-15 arg-16 arg-17 arg-18)))) ((3) (let ((e-21 (vector-ref sc0 2))) (CaseBuilder-Core-n--10521-6753-addConstG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 e-21 arg-15 arg-16 arg-17 arg-18)))(else (lambda (eta-0) (vector 1 arg-18))))))) -(define CaseBuilder-Core-n--10521-6752-addDelayG (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (let ((dty (vector 0 arg-6 (vector 2 "a" 0) (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 10 arg-6)) (lambda (d) (lambda (a) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-9 d a) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 arg-6 (vector 2 "x" 0) (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-5) (lambda (dv) (lambda (av) (lambda (eta-1) (vector 1 (vector 5 arg-6 (vector 2 ) e-5)))))))))))))))))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-nextNames arg-9 arg-8 arg-7 arg-6 "e" (vector 1 arg-11 (vector 1 arg-12 (vector 0 ))) (vector 1 dty)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (vector 1 (vector 0 e-7 arg-11) (vector 1 (vector 0 e-8 arg-12) (vector 0 )))) (CaseBuilder-Core-weakenNs 'erased arg-9 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-13)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) arg-14 (TT-Core-weakenNs_Weaken__Term arg-9 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-15)))) (vector 1 (vector 1 (vector 1 e-7 e-8 (vector 1 clause (vector 0 ))) (vector 0 ))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--10546-7404 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 e-2 (CaseBuilder-Core-checkGroupMatch 'erased 'erased (vector 1 ) (vector 0 ) e-2) e-3 arg-15 arg-14 arg-13 arg-12 arg-11)))))))) -(define CaseBuilder-Core-n--10521-6753-addConstG (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 2 arg-11 (vector 1 (vector 0 arg-4 arg-12 arg-13 arg-14) (vector 0 ))) (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--10547-7580 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 e-2 arg-11 (CaseBuilder-Core-checkGroupMatch 'erased 'erased (vector 2 arg-11) (vector 0 ) e-2) e-3 arg-14 arg-13 arg-12)))))))) -(define CaseBuilder-Core-n--10521-6751-addConG (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-case--10545-6868 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-16 arg-15 arg-10 arg-14 arg-13 arg-12 arg-11 (Name-Core-C-61C-61_Eq__Name arg-11 (vector 1 "->"))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CaseBuilder-Core-nextNames arg-9 arg-8 arg-7 arg-6 "e" arg-13 (vector 1 e-5)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (List-Data-zip 'erased 'erased e-2 arg-13)) (CaseBuilder-Core-weakenNs 'erased arg-9 e-2 arg-14)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) arg-15 (TT-Core-weakenNs_Weaken__Term arg-9 e-2 arg-16)))) (vector 1 (vector 1 (vector 0 e-2 arg-11 arg-12 (vector 1 clause (vector 0 ))) (vector 0 )))))))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--10545-7080 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 e-2 arg-13 arg-12 arg-11 (CaseBuilder-Core-checkGroupMatch 'erased 'erased (vector 0 arg-11 arg-12) arg-13 e-2) e-3 arg-16 arg-15 arg-14)))))))) +(define 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--8753-9237 'erased arg-1 arg-2 e-6 e-7 e-3 arg-4 'erased (TT-Core-sameVar 'erased arg-1 e-6)))))))))))) +(define CaseBuilder-Core-with--10589-7588 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((1) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((sc2 e-10)) (case (vector-ref sc2 0) ((0) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((e-16 (vector-ref sc2 3))) (let ((e-17 (vector-ref sc2 4))) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((2) (let ((newclause (vector 0 e-14 arg-17 arg-16 arg-15))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 e-7 (vector 1 (vector 0 e-14 e-15 e-16 e-17) (List-Prelude-C-43C-43 'erased e-11 (vector 1 newclause (vector 0 ))))) arg-14)))))(else (let ((sc3 arg-13)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10563-6761-addConstG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-12 arg-17 arg-16 arg-15 arg-14) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))))(else (let ((sc2 arg-13)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10563-6761-addConstG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-12 arg-17 arg-16 arg-15 arg-14) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))(else (let ((sc1 arg-13)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10563-6761-addConstG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-12 arg-17 arg-16 arg-15 arg-14) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))(else (let ((sc0 arg-13)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10563-6761-addConstG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-12 arg-17 arg-16 arg-15 arg-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))) +(define CaseBuilder-Core-with--10588-7412 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((sc1 e-9)) (case (vector-ref sc1 0) ((1) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((0) (let ((e-15 (vector-ref sc2 1))) (let ((e-16 (vector-ref sc2 2))) (let ((e-17 (vector-ref sc2 3))) (let ((e-18 (vector-ref sc2 4))) (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((newps (CaseBuilder-Core-newPats 'erased 'erased 'erased (vector 1 arg-18 (vector 1 arg-17 (vector 0 ))) (vector 1 (vector 1 (vector 0 ))) e-16))) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (vector 1 (vector 0 e-7 arg-18) (vector 1 (vector 0 e-8 arg-17) (vector 0 )))) (CaseBuilder-Core-weakenNs 'erased arg-10 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-16)))) (let ((newclause (vector 0 e-15 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased newps patsC-39) arg-15 (TT-Core-weakenNs_Weaken__Term arg-10 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-14)))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 e-7 e-8 (vector 1 (vector 0 e-15 e-16 e-17 e-18) (List-Prelude-C-43C-43 'erased e-12 (vector 1 newclause (vector 0 ))))) arg-13)))))))(else (let ((sc3 arg-12)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10563-6760-addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))))(else (let ((sc2 arg-12)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10563-6760-addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))(else (let ((sc1 arg-12)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10563-6760-addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 1 arg-11 e-5))))))))))))))))(else (let ((sc0 arg-12)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10563-6760-addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))) +(define CaseBuilder-Core-with--10587-7088 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((sc1 e-10)) (case (vector-ref sc1 0) ((1) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((sc2 e-12)) (case (vector-ref sc2 0) ((0) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (let ((e-19 (vector-ref sc2 4))) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((0) (let ((e-31 (vector-ref sc3 1))) (let ((newps (CaseBuilder-Core-newPats 'erased 'erased 'erased arg-12 e-31 e-17))) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (List-Data-zip 'erased 'erased e-7 arg-12)) (CaseBuilder-Core-weakenNs 'erased arg-10 e-7 arg-19)))) (let ((newclause (vector 0 e-16 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased newps patsC-39) arg-18 (TT-Core-weakenNs_Weaken__Term arg-10 e-7 arg-17)))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-7 e-8 e-9 (vector 1 (vector 0 e-16 e-17 e-18 e-19) (List-Prelude-C-43C-43 'erased e-13 (vector 1 newclause (vector 0 ))))) arg-16))))))))(else (let ((sc3 arg-15)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10563-6759-addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-14 arg-13 arg-12 arg-19 arg-18 arg-17 arg-16) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))))(else (let ((sc2 arg-15)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10563-6759-addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-14 arg-13 arg-12 arg-19 arg-18 arg-17 arg-16) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))(else (let ((sc1 arg-15)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10563-6759-addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-14 arg-13 arg-12 arg-19 arg-18 arg-17 arg-16) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))))(else (let ((sc0 arg-15)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10563-6759-addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-14 arg-13 arg-12 arg-19 arg-18 arg-17 arg-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))) +(define CaseBuilder-Core-with--8781-5224 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (CaseBuilder-Core-case--8819-5241 arg-2 arg-1 arg-0 e-5 e-7 e-6 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased arg-4 arg-6)))(else (let ((sc1 arg-3)) (let ((sc2 arg-5)) (CaseBuilder-Core-case--8819-5371 arg-2 arg-1 arg-0 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased arg-4 arg-6)))))))))))) ((1) (let ((e-8 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((1) (CaseBuilder-Core-case--8819-5307 arg-2 arg-1 arg-0 e-10 e-12 e-11 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased arg-4 arg-6)))(else (let ((sc1 arg-3)) (let ((sc2 arg-5)) (CaseBuilder-Core-case--8819-5371 arg-2 arg-1 arg-0 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased arg-4 arg-6))))))))))))(else (let ((sc0 arg-3)) (let ((sc1 arg-5)) (CaseBuilder-Core-case--8819-5371 arg-2 arg-1 arg-0 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased arg-4 arg-6))))))))) +(define CaseBuilder-Core-case--15243-11297 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((reached (CaseBuilder-Core-findReached 'erased e-3))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 e-3 (CaseBuilder-Core-n--15243-11108-getUnreachable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 reached arg-0))))))))))) +(define CaseBuilder-Core-case--15334-11127 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (CaseBuilder-Core-n--15243-11108-getUnreachable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ arg-9 1 63) arg-8 arg-7)) (else (vector 1 arg-6 (CaseBuilder-Core-n--15243-11108-getUnreachable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ arg-9 1 63) arg-8 arg-7))))))) +(define CaseBuilder-Core-case--14898-10733 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseTree-Core-argToPat eta-1)) arg-7) arg-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 (Strings-Prelude-C-43C-43 "Wrong function name in pattern LHS " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x))))) (vector 0 arg-2 arg-5)))) eta-0))))))) +(define CaseBuilder-Core-case--14856-10696 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((_-0 (vector 0 e-2 e-3))) (CaseBuilder-Core-case--14898-10733 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-3 e-2 _-0 (Prelude-C-61C-61_Eq__Int arg-10 e-2)))))))) +(define CaseBuilder-Core-case--14816-10663 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition arg-5 (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 0 e-2 e-3))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((_-1 (vector 0 e-6 e-4))) ((CaseBuilder-Core-case--14898-10733 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3 e-2 _-0 e-4 e-6 _-1 (Prelude-C-61C-61_Eq__Int e-2 e-6)) eta-0))))))))))))))))) +(define CaseBuilder-Core-case--14801-10628 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-getPosition arg-2 (let ((sc4 e-8)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (let ((e-10 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-26 ((Context-Core-getPosition e-7 (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((_-0 (vector 0 e-10 e-4))) (let ((sc7 e-11)) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((_-1 (vector 0 e-13 e-12))) ((CaseBuilder-Core-case--14898-10733 arg-0 arg-1 arg-2 arg-3 arg-4 e-7 e-5 e-3 e-8 e-4 e-10 _-0 e-12 e-13 _-1 (Prelude-C-61C-61_Eq__Int e-10 e-13)) eta-0))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a function name in pattern LHS") eta-0)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a function name in pattern LHS") eta-0)))))))))) +(define CaseBuilder-Core-case--14323-10159 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 2 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((2) (let ((e-9 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (((e-7 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-4 (vector 0 ) arg-8))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-15 (vector 0 ) e-11 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 1 e-8) (vector 0 e-9 (TT-Core-embed 'erased 'erased e-12))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-15 (vector 0 ) e-2 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased e-8)))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-15 (vector 0 ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased e-5))))))))))))))))))) +(define CaseBuilder-Core-case--13523-9761 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-2))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-17 arg-16 (vector 4 )) eta-0))))))) +(define CaseBuilder-Core-case--13512-9426 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((clausesC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-shuffleVars 'erased 'erased 'erased e-3 'erased eta-0)) arg-4))) (let ((ps (CaseBuilder-Core-partition e-2 (TT-Core-dropVar 'erased (vector 1 arg-2 arg-1) e-3 'erased) arg-0 arg-5 clausesC-39))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-mixture e-2 arg-0 (TT-Core-dropVar 'erased (vector 1 arg-2 arg-1) e-3 'erased) arg-9 arg-8 clausesC-39 arg-7 arg-6 arg-5 ps arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 2 "No clauses")))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) e-5) eta-0)))))))))))))) +(define CaseBuilder-Core-case--13297-9237 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (+ 1 e-3))))))))) +(define CaseBuilder-Core-case--13220-9156 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 arg-0 0))))(else (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-tail 'erased 'erased 'erased eta-1)) arg-4)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-4 (+ 1 e-3)))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-tail 'erased 'erased 'erased eta-1)) arg-4)) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 1 (vector 0 e-2 (+ 1 e-3))))))))))))))))) +(define CaseBuilder-Core-case--13043-9087 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 arg-0 0)))) (else (lambda (eta-0) (let ((act-24 (CaseBuilder-Core-getScore 'erased 'erased arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 arg-0 0)))(else (let ((act-25 ((CaseBuilder-Core-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-tail 'erased 'erased 'erased eta-1)) arg-4)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-4 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (vector 1 (vector 0 e-4 (+ 1 e-3))))))))))))))))(else (let ((act-25 ((CaseBuilder-Core-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-tail 'erased 'erased 'erased eta-1)) arg-4)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (vector 1 (vector 0 e-2 (+ 1 e-3))))))))))))))))))))))))) +(define CaseBuilder-Core-case--13074-9019 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 arg-0 0)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-5 arg-3 e-5) eta-0)))))))) +(define CaseBuilder-Core-case--13043-8958 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 arg-0 0)))) (else (lambda (eta-0) (let ((act-24 (CaseBuilder-Core-getScore 'erased 'erased arg-1 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((sc3 e-2)) (vector 1 (vector 0 arg-0 0))))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-5 arg-3 e-6) eta-0)))))))))))))))) +(define CaseBuilder-Core-case--12935-8862 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((42) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 e-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-9 eta-0))))))) +(define CaseBuilder-Core-case--12363-8516 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (CaseBuilder-Core-n--12337-8331-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 3 arg-7 arg-6) arg-9)) (else 1))))) +(define CaseBuilder-Core-case--12363-8437 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (CaseBuilder-Core-n--12337-8331-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 1 arg-12 arg-11 arg-10 arg-9 arg-8) arg-15)) (else 1))))) +(define CaseBuilder-Core-case--12363-8358 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (CaseBuilder-Core-n--12337-8331-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 2 arg-11 arg-10 arg-9 arg-8) arg-13)) (else 1))))) +(define CaseBuilder-Core-case--11949-8238 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-2 arg-11 arg-5 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((CaseBuilder-Core-n--11949-7992-sameTypeAs 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-7 e-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-getFirstArgType 'erased 'erased 'erased eta-1)) arg-4)) eta-0)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-8 arg-6 (vector 1 )) eta-0))))))) +(define CaseBuilder-Core-case--11986-8139 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (CaseBuilder-Core-n--11949-7992-sameTypeAs 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-15 arg-14 arg-13)) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-8 arg-6 (vector 1 )) eta-0))))))) +(define CaseBuilder-Core-case--10590-7691 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (CaseBuilder-Core-n--10563-6759-addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 arg-16 arg-15 arg-13 arg-21 arg-20 arg-19 arg-18)) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-17 arg-5 (vector 3 arg-16)) eta-0))))))) +(define CaseBuilder-Core-case--10588-7249 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((0) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (vector 1 (vector 0 e-5 arg-15) (vector 1 (vector 0 e-8 arg-14) (vector 0 )))) (CaseBuilder-Core-weakenNs 'erased arg-9 (vector 1 e-5 (vector 1 e-8 (vector 0 ))) arg-13)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) arg-11 (TT-Core-weakenNs_Weaken__Term arg-9 (vector 1 e-5 (vector 1 e-8 (vector 0 ))) arg-10)))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 e-5 e-8 (vector 1 clause (vector 0 ))) (vector 0 )))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0))))))) +(define CaseBuilder-Core-case--10724-7001 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-nf arg-9 arg-17 (Env-Core-mkEnv arg-6 arg-9) (TT-Core-embed 'erased 'erased e-1)))) (else (lambda (eta-0) (vector 1 (vector 9 arg-6 1)))))))) +(define CaseBuilder-Core-case--10587-6876 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 arg-6 (vector 2 "_" 0) (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 10 arg-6)) (lambda (d) (lambda (a) (lambda (eta-1) (vector 1 (vector 0 arg-6 (vector 2 "_" 1) (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 9 arg-6 1)) (lambda (d-0) (lambda (a-0) (lambda (eta-2) (vector 1 (vector 10 arg-6)))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact arg-16 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) ((Normalise-Core-nf arg-9 e-5 (Env-Core-mkEnv arg-6 arg-9) (TT-Core-embed 'erased 'erased e-1)) eta-0))) (else (vector 1 (vector 9 arg-6 1))))))))))))))))))))) +(define CaseBuilder-Core-case--10587-6791 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (List-Data-zip 'erased 'erased e-2 arg-14)) (CaseBuilder-Core-weakenNs 'erased arg-9 e-2 arg-13)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) arg-11 (TT-Core-weakenNs_Weaken__Term arg-9 e-2 arg-10)))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 arg-16 arg-15 (vector 1 clause (vector 0 ))) (vector 0 ))))))))))) +(define CaseBuilder-Core-case--10350-6718 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (vector 0 e-2 e-3 (CaseBuilder-Core-n--10350-6582-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-4) e-6)))))))) +(define CaseBuilder-Core-case--10373-6662 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 6 arg-8 arg-7)) (else (let ((e-2 (vector-ref sc0 1))) (vector 6 arg-8 e-2))))))) +(define CaseBuilder-Core-case--10373-6592 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (vector 0 arg-9 arg-8 (CaseBuilder-Core-n--10350-6582-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased arg-7))) (else (let ((e-2 (vector-ref sc0 1))) (vector 0 arg-9 e-2 (CaseBuilder-Core-n--10350-6582-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased arg-7)))))))) +(define CaseBuilder-Core-case--10226-6513 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 4))) (vector 0 e-2 e-3 arg-4 e-6))))))) +(define CaseBuilder-Core-case--9750-6267 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 2 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((2) (let ((e-9 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 3))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (let ((act-24 (((e-7 arg-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-11 (vector 1 e-4 (vector 0 ) arg-10))) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 1 e-8) (vector 2 ))))))))))(else (lambda (eta-0) (let ((act-24 (((e-7 arg-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-11 (vector 1 e-4 (vector 0 ) arg-10))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-2 arg-9 arg-11 e-11 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 1 e-8) (vector 0 e-9 e-12))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-2 arg-9 arg-11 e-2 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 e-8))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-2 arg-9 arg-11 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 e-5)))))))))))))))))) +(define CaseBuilder-Core-case--9816-6147 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((2) (vector 2 )) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (TT-Core-weakenNs_Weaken__Term arg-2 (vector 1 arg-10 arg-13) e-3))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (TT-Core-weakenNs_Weaken__Term arg-2 (vector 1 arg-10 arg-13) e-5)))))))) +(define CaseBuilder-Core-case--9750-6086 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((argTy (let ((_-0 (vector 0 e-2 e-3))) (CaseBuilder-Core-case--9816-6147 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-3 _-0 (Builtin-snd 'erased 'erased arg-12))))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-10 e-2) (vector 1 (vector 0 0 arg-10 arg-0 argTy) (CaseBuilder-Core-weaken 'erased arg-10 (List-Prelude-C-43C-43 'erased e-2 arg-2) e-3))))))))))) +(define CaseBuilder-Core-case--9362-5922 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 3 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (vector 2 )))))))) +(define CaseBuilder-Core-case--9395-5777 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (vector 0 arg-13))(else (vector 3 ))))))(else (vector 3 )))))(else (vector 3 ))))))(else (vector 3 )))))))(else (vector 3 )))))) +(define CaseBuilder-Core-case--9362-5703 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (vector 3 )) (else (let ((e-2 (vector-ref sc0 1))) (CaseBuilder-Core-case--9395-5777 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 (vector 0 (Name-Core-nameEq arg-3 arg-11) (Equality-Decidable-decEq_DecEq__Int arg-2 arg-10))))))))) +(define CaseBuilder-Core-case--8819-5371 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 1 arg-2 arg-1) arg-0 (vector 0 ) (vector 1 arg-3 (vector 0 )) (vector 2 ))) (else (vector 1 (vector 1 arg-2 arg-1) arg-0 (vector 0 ) (vector 1 arg-3 (vector 0 )) (vector 2 ))))))) +(define CaseBuilder-Core-case--8819-5307 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 1 arg-2 arg-1) arg-0 (List-Prelude-C-43C-43 'erased arg-5 arg-3) (vector 1 arg-6 (vector 0 )) (vector 1 (vector 1 arg-2 arg-1) arg-0 arg-3 arg-5 arg-4))) (else (vector 1 (vector 1 arg-2 arg-1) arg-0 arg-3 (vector 1 arg-6 arg-5) arg-4)))))) +(define CaseBuilder-Core-case--8819-5241 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 1 arg-2 arg-1) arg-0 arg-3 (vector 1 arg-6 arg-5) arg-4)) (else (vector 1 (vector 1 arg-2 arg-1) arg-0 (List-Prelude-C-43C-43 'erased arg-5 arg-3) (vector 1 arg-6 (vector 0 )) (vector 0 (vector 1 arg-2 arg-1) arg-0 arg-3 arg-5 arg-4))))))) +(define CaseBuilder-Core-case--8476-5119 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (vector 1 )) (else (CaseBuilder-Core-n--8438-4927-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-15)))))) +(define CaseBuilder-Core-case--8476-5016 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (cond ((equal? sc0 0) (vector 1 )) (else (vector 0 )))))) +(define CaseBuilder-Core-case--7414-4005 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-0 arg-1 arg-8 arg-7 arg-6 arg-5 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-2 e-5))))))))))))) +(define CaseBuilder-Core-case--7188-3852 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 0 e-2 e-3 e-4 (vector 0 arg-16 arg-20)))))))) +(define CaseBuilder-Core-case--7058-3777 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-1 arg-11 arg-12 e-8 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-4 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 (vector 1 e-1 (vector 0 ) arg-3))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 ((CaseBuilder-Core-updatePats arg-1 arg-0 arg-8 arg-12 e-9 arg-2) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (vector 0 (let ((sc5 arg-4)) (let ((e-14 (vector-ref sc5 1))) (let ((e-13 (vector-ref sc5 2))) (let ((e-12 (vector-ref sc5 3))) (vector 0 e-14 e-13 e-12 (vector 0 e-6 e-5)))))) e-10)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-2))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-2)))))))) +(define CaseBuilder-Core-case--7058-3699 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 0 e-2 e-3 e-4 (vector 0 arg-10 (TT-Core-substName arg-1 arg-6 arg-5 arg-9))))))))) +(define CaseBuilder-Core-case--7038-3664 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (let ((sc1 arg-4)) (let ((e-5 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (vector 0 e-5 e-3 e-4 (vector 0 e-1 (TT-Core-substName arg-1 arg-6 arg-5 e-2))))))) arg-2)))))) ((1) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((env (Env-Core-mkEnv arg-7 arg-1))) (let ((act-26 ((Normalise-Core-nf arg-1 e-5 env (TT-Core-substName arg-1 arg-6 arg-5 e-4)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (let ((e-1 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 3))) (let ((e-8 (vector-ref sc4 4))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-11 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 3))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-1 e-6 env e-9 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) (let ((act-28 (((e-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) env (vector 1 e-1 (vector 0 ) arg-3))) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-29 ((CaseBuilder-Core-updatePats arg-1 arg-0 arg-8 env e-13 arg-2) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (vector 0 (let ((sc9 arg-4)) (let ((e-18 (vector-ref sc9 1))) (let ((e-17 (vector-ref sc9 2))) (let ((e-16 (vector-ref sc9 3))) (vector 0 e-18 e-17 e-16 (vector 0 e-11 e-12)))))) e-14))))))))))))))))))))(else (vector 1 (vector 0 arg-4 arg-2)))))))))(else (vector 1 (vector 0 arg-4 arg-2)))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-2)))))))) +(define CaseBuilder-Core-case--6905-3589 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 0 e-2 e-3 e-4 (vector 1 arg-11)))))))) +(define CaseBuilder-Core-case--6659-3531 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-6 arg-5 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 (let ((sc4 arg-4)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((e-4 (vector-ref sc4 3))) (vector 0 e-2 e-3 e-4 (vector 1 e-7)))))) arg-3)))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-4 arg-3)))))))) +(define CaseBuilder-Core-case--6707-3436 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 0 e-2 e-3 e-4 (vector 0 arg-7 arg-15)))))))) +(define CaseBuilder-Core-case--6659-3353 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-12 arg-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (((arg-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 (vector 1 arg-9 (vector 0 ) arg-4))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((CaseBuilder-Core-updatePats arg-0 arg-5 arg-1 arg-12 e-8 arg-10) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 1 (let ((sc6 arg-11)) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((e-4 (vector-ref sc6 3))) (vector 0 e-2 e-3 e-4 (vector 0 arg-7 e-7)))))) e-9)))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-11 arg-10)))))))) +(define CaseBuilder-Core-n--13532-9859-updateVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-3)) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((e-15 (vector-ref sc2 3))) (let ((e-17 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((6) (let ((e-18 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-1 arg-0 arg-8 arg-7 arg-3 (vector 0 e-18 (vector 1 1) e-13) e-10) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 1 e-19 e-2) e-6 e-4 (TT-Core-substName arg-1 e-19 (vector 0 e-18 (vector 1 1) e-13) e-5)))))))))))) ((0) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((e-22 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-1 arg-0 arg-8 arg-7 arg-3 (CaseTree-Core-mkTerm arg-1 e-22) e-10) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((rhsC-39 (TT-Core-substName arg-1 e-21 (vector 0 e-20 (vector 1 0) e-13) e-5))) ((CaseBuilder-Core-n--13532-9859-updateVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 e-2 (vector 1 (vector 0 e-13 e-14 e-22 e-17) e-6) e-4 rhsC-39)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-1 arg-0 arg-8 arg-7 arg-3 (CaseTree-Core-mkTerm arg-1 e-15) e-10) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 e-2 e-6 e-4 e-5)))))))))))))))))))))))))) +(define CaseBuilder-Core-n--10350-6582-update (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (CaseBuilder-Core-case--10373-6592 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-2 e-1 e-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-1 arg-5)))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (vector 1 e-3 e-4 e-5 e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--10350-6582-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased eta-0)) e-7)))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (vector 2 e-8 e-9 e-10 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--10350-6582-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased eta-0)) e-11))))))) ((4) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (vector 4 e-12 e-13 (CaseBuilder-Core-n--10350-6582-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-14) (CaseBuilder-Core-n--10350-6582-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-15))))))) ((5) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (vector 5 e-16 e-17 (CaseBuilder-Core-n--10350-6582-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-18) (CaseBuilder-Core-n--10350-6582-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-19))))))) ((6) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (CaseBuilder-Core-case--10373-6662 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-21 e-20 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-21 arg-5)))))(else arg-7))))) +(define CaseBuilder-Core-n--10329-6543-update (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((6) (let ((e-5 (vector-ref sc1 2))) (vector 1 (vector 0 e-5 e-2))))(else (vector 0 )))))))(else (vector 0 )))))) +(define CaseBuilder-Core-n--15243-11112-toClosed (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (vector 0 (CaseBuilder-Core-n--15243-11111-close arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 e-5 e-2 e-6) (CaseBuilder-Core-n--15243-11111-close arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 e-5 e-2 e-7)))))))))))) +(define CaseBuilder-Core-n--7599-4166-showAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) "")) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat (let ((sc4 e-14)) (let ((e-4 (vector-ref sc4 3))) e-4))) (Strings-Prelude-C-43C-43 " [" (Strings-Prelude-C-43C-43 (CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 arg-3 (let ((sc4 e-14)) (let ((e-6 (vector-ref sc4 4))) e-6))) "]"))))))(else (let ((sc3 arg-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat (let ((sc4 e-8)) (let ((e-4 (vector-ref sc4 3))) e-4))) (Strings-Prelude-C-43C-43 " [" (Strings-Prelude-C-43C-43 (CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 arg-3 (let ((sc4 e-8)) (let ((e-6 (vector-ref sc4 4))) e-6))) (Strings-Prelude-C-43C-43 "]" (Strings-Prelude-C-43C-43 ", " (CaseBuilder-Core-n--7599-4166-showAll arg-0 arg-1 arg-2 arg-3 e-3 e-9)))))))))))))))))(else (let ((sc2 arg-5)) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat (let ((sc3 e-8)) (let ((e-4 (vector-ref sc3 3))) e-4))) (Strings-Prelude-C-43C-43 " [" (Strings-Prelude-C-43C-43 (CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 arg-3 (let ((sc3 e-8)) (let ((e-6 (vector-ref sc3 4))) e-6))) (Strings-Prelude-C-43C-43 "]" (Strings-Prelude-C-43C-43 ", " (CaseBuilder-Core-n--7599-4166-showAll arg-0 arg-1 arg-2 arg-3 e-3 e-9)))))))))))))))(else (let ((sc1 arg-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat (let ((sc2 e-8)) (let ((e-4 (vector-ref sc2 3))) e-4))) (Strings-Prelude-C-43C-43 " [" (Strings-Prelude-C-43C-43 (CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 arg-3 (let ((sc2 e-8)) (let ((e-6 (vector-ref sc2 4))) e-6))) (Strings-Prelude-C-43C-43 "]" (Strings-Prelude-C-43C-43 ", " (CaseBuilder-Core-n--7599-4166-showAll arg-0 arg-1 arg-2 arg-3 e-3 e-9))))))))))))))))))))) +(define CaseBuilder-Core-n--11949-7992-sameTypeAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf arg-2 e-7 arg-5 e-6) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((CaseBuilder-Core-case--11986-8139 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-6 e-5 e-3 arg-12 arg-11 e-7 e-8 (CaseBuilder-Core-n--11949-7991-headEq 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 e-8 arg-7)) eta-0)))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-8 arg-6 (vector 1 )) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-8 arg-6 (vector 1 )) eta-0))))))) +(define CaseBuilder-Core-n--12337-8331-samePatAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) 0)(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((sc2 e-22)) (case (vector-ref sc2 0) ((2) (let ((e-24 (vector-ref sc2 1))) (let ((e-25 (vector-ref sc2 2))) (let ((e-26 (vector-ref sc2 3))) (let ((e-27 (vector-ref sc2 4))) (CaseBuilder-Core-case--12363-8358 'erased 'erased 'erased arg-3 arg-4 e-24 e-26 e-27 e-3 e-2 e-1 e-0 e-25 e-23 (Name-Core-C-61C-61_Eq__Name e-1 e-25)))))))(else 1))))))(else 1)))))))) ((1) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (let ((e-7 (vector-ref sc0 4))) (let ((e-8 (vector-ref sc0 5))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (let ((sc2 e-29)) (case (vector-ref sc2 0) ((1) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (let ((e-34 (vector-ref sc2 4))) (let ((e-35 (vector-ref sc2 5))) (CaseBuilder-Core-case--12363-8437 'erased 'erased 'erased arg-3 arg-4 e-31 e-34 e-35 e-8 e-7 e-6 e-5 e-4 e-33 e-32 e-30 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-32) (lambda () (Prelude-C-61C-61_Eq__Int e-6 e-33))))))))))(else 1))))))(else 1))))))))) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-37 (vector-ref sc1 1))) (let ((e-38 (vector-ref sc1 2))) (let ((sc2 e-37)) (case (vector-ref sc2 0) ((3) (let ((e-39 (vector-ref sc2 1))) (let ((e-40 (vector-ref sc2 2))) (CaseBuilder-Core-case--12363-8516 'erased 'erased 'erased arg-3 arg-4 e-39 e-10 e-9 e-40 e-38 (TT-Core-C-61C-61_Eq__Constant e-10 e-40)))))(else 1))))))(else 1)))))) ((4) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-42 (vector-ref sc1 1))) (let ((e-43 (vector-ref sc1 2))) (let ((sc2 e-42)) (case (vector-ref sc2 0) ((4) (CaseBuilder-Core-n--12337-8331-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 4 e-11 e-12 e-13 e-14) e-43))(else 1))))))(else 1)))))))) ((5) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (let ((e-18 (vector-ref sc0 4))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-49 (vector-ref sc1 1))) (let ((e-50 (vector-ref sc1 2))) (let ((sc2 e-49)) (case (vector-ref sc2 0) ((5) (CaseBuilder-Core-n--12337-8331-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 5 e-15 e-16 e-17 e-18) e-50))(else 1))))))(else 1)))))))) ((6) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-56 (vector-ref sc1 1))) (let ((e-57 (vector-ref sc1 2))) (let ((sc2 e-56)) (case (vector-ref sc2 0) ((6) (CaseBuilder-Core-n--12337-8331-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 6 e-19 e-20) e-57))(else 1))))))(else 1))))))(else 1)))))))) +(define CaseBuilder-Core-n--15243-11110-mkSubstEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-5 (vector-ref sc0 2))) (vector 1 (vector 1 arg-4 (vector 0 ) (vector 2 arg-8 arg-7)) (CaseBuilder-Core-n--15243-11110-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased (b+ arg-7 1 63) arg-8 e-5)))))))) +(define CaseBuilder-Core-n--14642-10486-mkPatClausesFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-mkPatClause arg-7 arg-6 arg-5 arg-9 arg-3 arg-8 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CaseBuilder-Core-n--14642-10486-mkPatClausesFrom arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-8 1 63) arg-9 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-6)))))))))))))))))))) +(define CaseBuilder-Core-n--14308-10080-mkNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-9)) (let ((sc2 arg-10)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-9)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 arg-10)) (let ((e-16 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (let ((sc5 arg-11)) (case (vector-ref sc5 0) ((0) (vector 1 (vector 0 (vector 0 ) (vector 2 )))) (else (let ((e-4 (vector-ref sc5 1))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 3))) (let ((e-7 (vector-ref sc6 4))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((2) (let ((e-15 (vector-ref sc7 1))) (let ((e-13 (vector-ref sc7 3))) (let ((act-26 (((e-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-12 (vector 0 ) e-2))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc8 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF (vector 0 ) e-6 (vector 0 ) e-13 eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-18 (vector-ref sc9 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc9 1))) (vector 1 (vector 0 (vector 1 e-17) (vector 0 e-15 (TT-Core-embed 'erased 'erased e-18)))))))))))))))))(else (let ((act-26 (Normalise-Core-quote_Quote__NF (vector 0 ) e-6 (vector 0 ) e-4 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased e-13))))))))))))))))(else (let ((act-26 (Normalise-Core-quote_Quote__NF (vector 0 ) e-6 (vector 0 ) e-4 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased e-7)))))))))))))))))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 ((CaseBuilder-Core-n--14308-10080-mkNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-9 e-16 (Builtin-fst 'erased 'erased e-7)) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 1 (vector 0 0 e-2 e-8 (Builtin-snd 'erased 'erased e-7)) (CaseBuilder-Core-weaken 'erased e-2 e-3 e-10)))))))))))))))))))))))))))))))))))) +(define CaseBuilder-Core-n--15243-11109-labelPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 0 (Strings-Prelude-C-43C-43 "pat" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-7) ":")) e-2) (CaseBuilder-Core-n--15243-11109-labelPat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased (b+ arg-7 1 63) e-3))))))))) +(define CaseBuilder-Core-n--11949-7991-headEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((3) (let ((e-5 (vector-ref sc0 2))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((3) (let ((e-23 (vector-ref sc1 2))) (Name-Core-C-61C-61_Eq__Name e-5 e-23)))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) 0)(else 1))))(else 1)))))))) ((8) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((8) (let ((e-29 (vector-ref sc1 2))) (TT-Core-C-61C-61_Eq__Constant e-11 e-29)))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) 0)(else 1))))(else 1)))))))) ((10) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((10) 0)(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) 0)(else 1))))(else 1))))))) ((1) (let ((e-16 (vector-ref sc0 2))) (let ((sc1 e-16)) (case (vector-ref sc1 0) ((1) (let ((e-34 (vector-ref sc1 2))) (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((e-37 (vector-ref sc2 2))) (let ((sc3 e-37)) (case (vector-ref sc3 0) ((1) (let ((e-41 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (Name-Core-C-61C-61_Eq__Name e-34 e-41))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((9) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) 0)(else 1))))(else 1))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((9) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) 0)(else 1))))(else 1))))))))(else (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((9) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) 0)(else 1))))(else 1))))))))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) 0)(else 1))))(else 1)))))))) ((9) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) 0)(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) 0)(else 1))))(else 1)))))))(else (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((9) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) 0)(else 1))))(else 1)))))))) +(define CaseBuilder-Core-n--15243-11108-getUnreachable (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-case--15334-11127 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-7 arg-6 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-6 arg-7))))))))) +(define CaseBuilder-Core-n--14642-10487-getNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 2 "arg" arg-8) (CaseBuilder-Core-n--14642-10487-getNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-8 1 63) e-3)))))))) +(define CaseBuilder-Core-n--8438-4928-getClauseType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-11 (vector-ref sc1 5))) (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((0) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (CaseBuilder-Core-case--8476-5016 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-7 e-8 e-9 e-10 e-6 e-11 e-14 e-13 (Prelude-C-38C-38 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) e-13) (lambda () (Prelude-C-38C-38 (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) e-6)) (lambda () ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (CaseBuilder-Core-namesIn (List-Prelude-C-43C-43 'erased arg-11 ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (CaseBuilder-Core-namesFrom eta-1))) (CaseBuilder-Core-getPatInfo 'erased 'erased arg-8))) eta-0))) e-11)))))))))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 3))) (CaseBuilder-Core-n--8438-4928-getClauseType 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 arg-15)))(else (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((0) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (CaseBuilder-Core-case--8476-5119 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-1 arg-14 arg-13 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) e-1)))))(else (CaseBuilder-Core-n--8438-4927-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14))))))))))))))))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 3))) (CaseBuilder-Core-n--8438-4928-getClauseType 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 arg-15)))(else (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (CaseBuilder-Core-case--8476-5119 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-1 arg-14 arg-13 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) e-1)))))(else (CaseBuilder-Core-n--8438-4927-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14))))))))))))(else (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-5 (vector-ref sc0 3))) (CaseBuilder-Core-n--8438-4928-getClauseType 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 arg-15)))(else (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (CaseBuilder-Core-case--8476-5119 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-1 arg-14 arg-13 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) e-1)))))(else (CaseBuilder-Core-n--8438-4927-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14)))))))))))) +(define CaseBuilder-Core-n--15243-11024-getArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 ((CaseBuilder-Core-n--15243-11024-getArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (vector 1 (vector 2 "arg" arg-5) e-10)))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define CaseBuilder-Core-n--10563-6763-gc (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-12))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((sc2 e-7)) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((sc3 e-13)) (let ((e-17 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10563-6762-addGroup arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-10 arg-11 e-17 e-19 'erased e-14 e-8 e-9 arg-12) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) ((CaseBuilder-Core-n--10563-6763-gc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 e-3) eta-0)))))))))))))))))))))))) +(define CaseBuilder-Core-n--15166-10953-findRAlts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 4))) (CaseBuilder-Core-findReached 'erased e-4))) ((1) (let ((e-8 (vector-ref sc0 3))) (CaseBuilder-Core-findReached 'erased e-8))) ((2) (let ((e-11 (vector-ref sc0 2))) (CaseBuilder-Core-findReached 'erased e-11))) (else (let ((e-13 (vector-ref sc0 1))) (CaseBuilder-Core-findReached 'erased e-13))))))) +(define CaseBuilder-Core-n--12337-8330-dropAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 3))) e-2))(else arg-5))))) +(define CaseBuilder-Core-n--15243-11111-close (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (SubstEnv-TT-Core-substs arg-6 (vector 0 ) (CaseBuilder-Core-n--15243-11110-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased 0 arg-8 arg-7) arg-9))) +(define CaseBuilder-Core-n--8438-4927-clauseTypeC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (vector 0 )) ((2) (vector 0 )) ((3) (vector 0 )) ((4) (vector 0 )) ((5) (vector 0 ))(else (vector 1 )))))) +(define CaseBuilder-Core-n--13517-9547-altGroups (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (e) (lambda (eta-0) (vector 1 (vector 1 (vector 3 e) (vector 0 )))))) arg-4)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-match (List-Prelude-C-43C-43 'erased e-6 arg-3) (List-Prelude-C-43C-43 'erased e-6 arg-1) arg-12 arg-11 arg-10 arg-9 arg-8 e-9 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (arg-14) (CaseTree-Core-weakenNs_Weaken__CaseTree arg-3 e-6 arg-14)) arg-4)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CaseBuilder-Core-n--13517-9547-altGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased arg-8 arg-9 arg-10 arg-11 arg-12 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-7 e-8 e-6 e-5) e-10)))))))))))))))))) ((1) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-match (vector 1 e-12 (vector 1 e-13 arg-3)) (vector 1 e-12 (vector 1 e-13 arg-1)) arg-12 arg-11 arg-10 arg-9 arg-8 e-14 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (arg-14) (CaseTree-Core-weakenNs_Weaken__CaseTree arg-3 (vector 1 e-12 (vector 1 e-13 (vector 0 ))) arg-14)) arg-4)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CaseBuilder-Core-n--13517-9547-altGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased arg-8 arg-9 arg-10 arg-11 arg-12 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 1 e-12 e-13 e-5) e-6))))))))))))))))) (else (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-match arg-3 arg-1 arg-12 arg-11 arg-10 arg-9 arg-8 e-18 arg-4) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CaseBuilder-Core-n--13517-9547-altGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased arg-8 arg-9 arg-10 arg-11 arg-12 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 2 e-17 e-5) e-6))))))))))))))))))))))))) +(define CaseBuilder-Core-n--10563-6762-addGroup (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (CaseBuilder-Core-n--10563-6762-addGroup arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-10 arg-11 arg-12 e-2 'erased arg-15 arg-16 (TT-Core-substName arg-10 e-1 (vector 0 e-0 (vector 1 0) arg-12) arg-17) arg-18))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (CaseBuilder-Core-case--10590-7691 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-10 arg-11 arg-12 e-7 e-6 e-5 e-4 e-3 arg-18 arg-17 arg-16 arg-15 'erased (Prelude-C-61C-61_Eq__Nat e-6 (List-Data-length 'erased e-7))))))))) ((2) (let ((e-9 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 4))) (CaseBuilder-Core-n--10563-6759-addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 e-9 0 e-11 arg-15 arg-16 arg-17 arg-18)))) ((4) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (CaseBuilder-Core-n--10563-6759-addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 (vector 1 "->") 0 (vector 1 e-14 (vector 1 e-15 (vector 0 ))) arg-15 arg-16 arg-17 arg-18)))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (CaseBuilder-Core-n--10563-6760-addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 e-18 e-19 arg-15 arg-16 arg-17 arg-18)))) ((3) (let ((e-21 (vector-ref sc0 2))) (CaseBuilder-Core-n--10563-6761-addConstG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 e-21 arg-15 arg-16 arg-17 arg-18)))(else (lambda (eta-0) (vector 1 arg-18))))))) +(define CaseBuilder-Core-n--10563-6760-addDelayG (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (let ((dty (vector 0 arg-6 (vector 2 "a" 0) (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 10 arg-6)) (lambda (d) (lambda (a) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-9 d a) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 arg-6 (vector 2 "x" 0) (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-5) (lambda (dv) (lambda (av) (lambda (eta-1) (vector 1 (vector 5 arg-6 (vector 2 ) e-5)))))))))))))))))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-nextNames arg-9 arg-8 arg-7 arg-6 "e" (vector 1 arg-11 (vector 1 arg-12 (vector 0 ))) (vector 1 dty)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (vector 1 (vector 0 e-7 arg-11) (vector 1 (vector 0 e-8 arg-12) (vector 0 )))) (CaseBuilder-Core-weakenNs 'erased arg-9 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-13)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) arg-14 (TT-Core-weakenNs_Weaken__Term arg-9 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-15)))) (vector 1 (vector 1 (vector 1 e-7 e-8 (vector 1 clause (vector 0 ))) (vector 0 ))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--10588-7412 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 e-2 (CaseBuilder-Core-checkGroupMatch 'erased 'erased (vector 1 ) (vector 0 ) e-2) e-3 arg-15 arg-14 arg-13 arg-12 arg-11)))))))) +(define CaseBuilder-Core-n--10563-6761-addConstG (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 2 arg-11 (vector 1 (vector 0 arg-4 arg-12 arg-13 arg-14) (vector 0 ))) (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--10589-7588 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 e-2 arg-11 (CaseBuilder-Core-checkGroupMatch 'erased 'erased (vector 2 arg-11) (vector 0 ) e-2) e-3 arg-14 arg-13 arg-12)))))))) +(define CaseBuilder-Core-n--10563-6759-addConG (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-case--10587-6876 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-16 arg-15 arg-10 arg-14 arg-13 arg-12 arg-11 (Name-Core-C-61C-61_Eq__Name arg-11 (vector 1 "->"))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CaseBuilder-Core-nextNames arg-9 arg-8 arg-7 arg-6 "e" arg-13 (vector 1 e-5)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (List-Data-zip 'erased 'erased e-2 arg-13)) (CaseBuilder-Core-weakenNs 'erased arg-9 e-2 arg-14)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) arg-15 (TT-Core-weakenNs_Weaken__Term arg-9 e-2 arg-16)))) (vector 1 (vector 1 (vector 0 e-2 arg-11 arg-12 (vector 1 clause (vector 0 ))) (vector 0 )))))))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--10587-7088 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 e-2 arg-13 arg-12 arg-11 (CaseBuilder-Core-checkGroupMatch 'erased 'erased (vector 0 arg-11 arg-12) arg-13 e-2) e-3 arg-16 arg-15 arg-14)))))))) (define CaseBuilder-Core-weaken_Weaken__ArgType (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (vector 0 e-1 (TT-Core-weaken_Weaken__Term arg-0 arg-1 e-2))))) ((1) (let ((e-4 (vector-ref sc0 1))) (vector 1 (TT-Core-weaken_Weaken__Term arg-0 arg-1 e-4)))) (else (vector 2 )))))) (define CaseBuilder-Core-weaken_Weaken__C-40PatInfoC-32C-36pC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (vector 0 (+ 1 e-2) e-3 e-4 (CaseBuilder-Core-weaken_Weaken__ArgType arg-1 arg-2 e-6))))))))) (define CaseBuilder-Core-weakenNs_Weaken__C-40PatInfoC-32C-36pC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-weaken_Weaken__C-40PatInfoC-32C-36pC-41 'erased e-2 (List-Prelude-C-43C-43 'erased e-3 arg-1) (CaseBuilder-Core-weakenNs_Weaken__C-40PatInfoC-32C-36pC-41 'erased arg-1 e-3 arg-3))))))))) (define CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "Known " (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-1) (Strings-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2))))))) ((1) (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Stuck " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-4)))) (else "Unknown"))))) (define CaseBuilder-Core-show_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (CaseBuilder-Core-show_Show__C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 arg-0 arg-1 e-3) (Strings-Prelude-C-43C-43 " => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5)))))))) -(define CaseBuilder-Core-show_Show__C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-0 arg-1 arg-2) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (CaseBuilder-Core-n--7557-4158-showAll arg-0 arg-1 arg-2 arg-0 arg-1 arg-2) "]")))) +(define CaseBuilder-Core-show_Show__C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-0 arg-1 arg-2) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (CaseBuilder-Core-n--7599-4166-showAll arg-0 arg-1 arg-2 arg-0 arg-1 arg-2) "]")))) (define CaseBuilder-Core-showPrec_Show__C-40ArgTypeC-32C-36nsC-41 (lambda (arg-0 arg-1 arg-2) (CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 arg-0 arg-2))) (define CaseBuilder-Core-showPrec_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (CaseBuilder-Core-show_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 arg-0 arg-1 arg-3))) (define CaseBuilder-Core-showPrec_Show__C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (CaseBuilder-Core-show_Show__C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 arg-0 arg-1 arg-3))) -(define CaseBuilder-Core-__Impl_Weaken_C-40PatInfoC-32C-36pC-41 (lambda (arg-0) (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (CaseBuilder-Core-weaken_Weaken__C-40PatInfoC-32C-36pC-41 'erased n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (CaseBuilder-Core-weakenNs_Weaken__C-40PatInfoC-32C-36pC-41 'erased vars ns arg-3271))))))) +(define CaseBuilder-Core-__Impl_Weaken_C-40PatInfoC-32C-36pC-41 (lambda (arg-0) (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3275) (CaseBuilder-Core-weaken_Weaken__C-40PatInfoC-32C-36pC-41 'erased n vars arg-3275)))) (lambda (vars) (lambda (ns) (lambda (arg-3279) (CaseBuilder-Core-weakenNs_Weaken__C-40PatInfoC-32C-36pC-41 'erased vars ns arg-3279))))))) (define CaseBuilder-Core-__Impl_Show_C-40ArgTypeC-32C-36nsC-41 (lambda (arg-0) (vector 0 (lambda (x) (CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 arg-0 x)) (lambda (d) (lambda (x) (CaseBuilder-Core-showPrec_Show__C-40ArgTypeC-32C-36nsC-41 arg-0 d x)))))) (define CaseBuilder-Core-__Impl_Show_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (x) (CaseBuilder-Core-show_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 arg-0 arg-1 x)) (lambda (d) (lambda (x) (CaseBuilder-Core-showPrec_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 arg-0 arg-1 d x)))))) (define CaseBuilder-Core-__Impl_Show_C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (x) (CaseBuilder-Core-show_Show__C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 arg-0 arg-1 x)) (lambda (d) (lambda (x) (CaseBuilder-Core-showPrec_Show__C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 arg-0 arg-1 d x)))))) (define CaseBuilder-Core-weakenNs (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (vector 1 (CaseBuilder-Core-weakenNs_Weaken__C-40PatInfoC-32C-36pC-41 'erased arg-1 arg-2 e-4) (CaseBuilder-Core-weakenNs 'erased arg-1 arg-2 e-5))))))))) (define CaseBuilder-Core-weaken (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (vector 1 (CaseBuilder-Core-weaken_Weaken__C-40PatInfoC-32C-36pC-41 'erased arg-1 arg-2 e-4) (CaseBuilder-Core-weaken 'erased arg-1 arg-2 e-5))))))))) -(define CaseBuilder-Core-varRule (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--13490-9851-updateVar arg-2 arg-1 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 eta-0)) arg-8) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((CaseBuilder-Core-match arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 arg-9) ext-0)))))))) -(define CaseBuilder-Core-updatePats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (let ((sc2 e-13)) (case (vector-ref sc2 0) ((2) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((1) (let ((e-22 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (CaseBuilder-Core-case--6617-3345 arg-0 arg-2 e-12 e-17 e-2 e-3 e-18 e-16 e-14 e-11 e-23 e-22 arg-3 (let ((sc4 e-22)) (let ((e-6 (vector-ref sc4 4))) e-6))))))(else (let ((sc3 arg-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((todo (vector 1 e-2 e-3))) (CaseBuilder-Core-case--6617-3523 arg-0 e-3 e-2 e-9 e-8 arg-4 arg-3 arg-2 todo (let ((sc4 e-8)) (let ((e-6 (vector-ref sc4 4))) e-6))))))))))))))(else (let ((sc2 arg-5)) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((todo (vector 1 e-2 e-3))) (CaseBuilder-Core-case--6617-3523 arg-0 e-3 e-2 e-9 e-8 arg-4 arg-3 arg-2 todo (let ((sc3 e-8)) (let ((e-6 (vector-ref sc3 4))) e-6)))))))))))))))(else (let ((sc1 arg-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((todo (vector 1 e-2 e-3))) (CaseBuilder-Core-case--6617-3523 arg-0 e-3 e-2 e-9 e-8 arg-4 arg-3 arg-2 todo (let ((sc2 e-8)) (let ((e-6 (vector-ref sc2 4))) e-6))))))))))))))))) -(define CaseBuilder-Core-updatePatNames (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (vector 1 (let ((sc1 e-4)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-6 (vector-ref sc1 4))) (vector 0 e-2 e-3 (CaseBuilder-Core-n--10308-6574-update 'erased 'erased 'erased e-5 e-4 arg-2 'erased e-7) e-6)))))) (CaseBuilder-Core-updatePatNames 'erased 'erased arg-2 e-5))))))))) -(define CaseBuilder-Core-updateNames (lambda (ext-0) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--10287-6535-update eta-0)) ext-0))) -(define CaseBuilder-Core-toPatClause (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-case--14759-10620 e-2 e-3 arg-2 arg-1 arg-0 (TT-Core-getFnArgs 'erased e-2))))))) +(define CaseBuilder-Core-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--13532-9859-updateVar arg-2 arg-1 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 eta-0)) arg-8) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((CaseBuilder-Core-match arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 arg-9) ext-0)))))))) +(define CaseBuilder-Core-updatePats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (let ((sc2 e-13)) (case (vector-ref sc2 0) ((2) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((1) (let ((e-22 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (CaseBuilder-Core-case--6659-3353 arg-0 arg-2 e-12 e-17 e-2 e-3 e-18 e-16 e-14 e-11 e-23 e-22 arg-3 (let ((sc4 e-22)) (let ((e-6 (vector-ref sc4 4))) e-6))))))(else (let ((sc3 arg-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((todo (vector 1 e-2 e-3))) (CaseBuilder-Core-case--6659-3531 arg-0 e-3 e-2 e-9 e-8 arg-4 arg-3 arg-2 todo (let ((sc4 e-8)) (let ((e-6 (vector-ref sc4 4))) e-6))))))))))))))(else (let ((sc2 arg-5)) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((todo (vector 1 e-2 e-3))) (CaseBuilder-Core-case--6659-3531 arg-0 e-3 e-2 e-9 e-8 arg-4 arg-3 arg-2 todo (let ((sc3 e-8)) (let ((e-6 (vector-ref sc3 4))) e-6)))))))))))))))(else (let ((sc1 arg-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((todo (vector 1 e-2 e-3))) (CaseBuilder-Core-case--6659-3531 arg-0 e-3 e-2 e-9 e-8 arg-4 arg-3 arg-2 todo (let ((sc2 e-8)) (let ((e-6 (vector-ref sc2 4))) e-6))))))))))))))))) +(define CaseBuilder-Core-updatePatNames (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (vector 1 (let ((sc1 e-4)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-6 (vector-ref sc1 4))) (vector 0 e-2 e-3 (CaseBuilder-Core-n--10350-6582-update 'erased 'erased 'erased e-5 e-4 arg-2 'erased e-7) e-6)))))) (CaseBuilder-Core-updatePatNames 'erased 'erased arg-2 e-5))))))))) +(define CaseBuilder-Core-updateNames (lambda (ext-0) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--10329-6543-update eta-0)) ext-0))) +(define CaseBuilder-Core-toPatClause (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-case--14801-10628 e-2 e-3 arg-2 arg-1 arg-0 (TT-Core-getFnArgs 'erased e-2))))))) (define CaseBuilder-Core-tail (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-4 (vector-ref sc0 2))) e-4)))) (define CaseBuilder-Core-substInPats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-6)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPatInfo e-2 arg-0 e-3 arg-2 arg-3 arg-4 arg-5 e-8 e-9) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-6 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((act-25 ((CaseBuilder-Core-substInPats arg-0 e-3 arg-2 arg-3 arg-4 arg-5 e-4) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (vector 1 e-6 e-7)))))))))))))))))))))))))) -(define CaseBuilder-Core-substInPatInfo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (CaseBuilder-Core-case--6996-3656 arg-2 arg-1 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 (let ((sc0 arg-7)) (let ((e-6 (vector-ref sc0 4))) e-6))))) +(define CaseBuilder-Core-substInPatInfo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (CaseBuilder-Core-case--7038-3664 arg-2 arg-1 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 (let ((sc0 arg-7)) (let ((e-6 (vector-ref sc0 4))) e-6))))) (define CaseBuilder-Core-substInClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-3)) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((e-15 (vector-ref sc2 3))) (let ((e-17 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-1 arg-2 arg-3 arg-4 arg-0 (CaseTree-Core-mkTerm arg-1 e-15) e-10) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 e-2 (vector 1 (vector 0 e-13 e-14 e-15 e-17) e-6) e-4 e-5))))))))))))))))))))))) -(define CaseBuilder-Core-simpleCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (Context-Core-logC arg-0 (+ 1 (+ 1 0)) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (c) (lambda (eta-1) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) (Builtin-fst 'erased 'erased c) eta-1))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) (Builtin-snd 'erased 'erased c) eta-1))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Clause " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-6) "\u000a"))))))))))))))))) arg-6) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) e-5)))))))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-toPatClause arg-0 arg-1 arg-3 eta-0)) arg-6) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((CaseBuilder-Core-patCompile arg-0 arg-1 arg-3 arg-2 arg-4 e-6 arg-5) ext-0)))))))))))))))) +(define CaseBuilder-Core-simpleCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (Context-Core-logC arg-0 (+ 1 (+ 1 0)) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (c) (lambda (eta-1) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) (Builtin-fst 'erased 'erased c) eta-1))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) (Builtin-snd 'erased 'erased c) eta-1))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Clause " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-6) "\u000a"))))))))))))))))) arg-6) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (Prelude-neutral_Monoid__String)))) e-5)))))))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-toPatClause arg-0 arg-1 arg-3 eta-0)) arg-6) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((CaseBuilder-Core-patCompile arg-0 arg-1 arg-3 arg-2 arg-4 e-6 arg-5) ext-0)))))))))))))))) (define CaseBuilder-Core-shuffleVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (vector 0 e-2 (CaseBuilder-Core-moveFirst 'erased 'erased 'erased arg-3 'erased e-3) e-4 e-5)))))))) -(define CaseBuilder-Core-sameType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((CaseBuilder-Core-case--11907-8230 'erased 'erased arg-2 e-2 e-3 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 e-5 (CaseBuilder-Core-getFirstArgType 'erased 'erased 'erased e-2)) eta-0)))))))))))))) -(define CaseBuilder-Core-samePat (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-n--12295-8323-samePatAs 'erased 'erased 'erased e-2 e-3 (CaseBuilder-Core-n--12295-8322-dropAs 'erased 'erased 'erased e-2 e-3 (CaseBuilder-Core-getFirstPat 'erased 'erased 'erased e-2)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--12295-8322-dropAs 'erased 'erased 'erased e-2 e-3 (CaseBuilder-Core-getFirstPat 'erased 'erased 'erased eta-0))) e-3))))))))) -(define CaseBuilder-Core-pickNext (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (CaseBuilder-Core-case--13001-8950 arg-0 arg-1 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 (CaseBuilder-Core-samePat 'erased 'erased 'erased arg-8))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-case--13001-9079 arg-0 arg-1 e-2 e-3 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 (CaseBuilder-Core-samePat 'erased 'erased 'erased arg-8))))))))) -(define CaseBuilder-Core-patCompile (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 2 "No definition"))))) (lambda () (lambda (e) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) e))))) arg-6)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((ns (CaseBuilder-Core-n--14600-10479-getNames e-2 e-3 arg-6 arg-4 arg-3 arg-2 arg-1 arg-0 0 (Builtin-fst 'erased 'erased e-2)))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--14600-10478-mkPatClausesFrom e-2 e-3 arg-6 arg-4 arg-3 arg-2 arg-1 arg-0 0 ns (vector 1 e-2 e-3)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Pattern clauses " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CaseBuilder-Core-show_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 ns ns x)) (lambda (d) (lambda (x) (CaseBuilder-Core-showPrec_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 ns ns d x)))) e-5))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Core.CaseBuilder.PName" ) 0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((CaseBuilder-Core-match ns ns e-7 arg-0 arg-1 arg-2 arg-3 e-5 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (arg-7) (CaseTree-Core-weakenNs_Weaken__CaseTree (vector 0 ) ns arg-7)) arg-6)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 ns e-8)))))))))))))))))))))))))))))) +(define 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--11949-8238 'erased 'erased arg-2 e-2 e-3 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 e-5 (CaseBuilder-Core-getFirstArgType 'erased 'erased 'erased e-2)) eta-0)))))))))))))) +(define CaseBuilder-Core-samePat (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-n--12337-8331-samePatAs 'erased 'erased 'erased e-2 e-3 (CaseBuilder-Core-n--12337-8330-dropAs 'erased 'erased 'erased e-2 e-3 (CaseBuilder-Core-getFirstPat 'erased 'erased 'erased e-2)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--12337-8330-dropAs 'erased 'erased 'erased e-2 e-3 (CaseBuilder-Core-getFirstPat 'erased 'erased 'erased eta-0))) e-3))))))))) +(define CaseBuilder-Core-pickNext (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (CaseBuilder-Core-case--13043-8958 arg-0 arg-1 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 (CaseBuilder-Core-samePat 'erased 'erased 'erased arg-8))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-case--13043-9087 arg-0 arg-1 e-2 e-3 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 (CaseBuilder-Core-samePat 'erased 'erased 'erased arg-8))))))))) +(define CaseBuilder-Core-patCompile (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 2 "No definition"))))) (lambda () (lambda (e) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) e))))) arg-6)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((ns (CaseBuilder-Core-n--14642-10487-getNames e-2 e-3 arg-6 arg-4 arg-3 arg-2 arg-1 arg-0 0 (Builtin-fst 'erased 'erased e-2)))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--14642-10486-mkPatClausesFrom e-2 e-3 arg-6 arg-4 arg-3 arg-2 arg-1 arg-0 0 ns (vector 1 e-2 e-3)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Pattern clauses " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CaseBuilder-Core-show_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 ns ns x)) (lambda (d) (lambda (x) (CaseBuilder-Core-showPrec_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 ns ns d x)))) e-5))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Core.CaseBuilder.PName" ) 0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((CaseBuilder-Core-match ns ns e-7 arg-0 arg-1 arg-2 arg-3 e-5 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (arg-7) (CaseTree-Core-weakenNs_Weaken__CaseTree (vector 0 ) ns arg-7)) arg-6)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 ns e-8)))))))))))))))))))))))))))))) (define PatInfo-CaseBuilder-Core-pat (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-4 (vector-ref sc0 3))) e-4)))) -(define CaseBuilder-Core-partition (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 2 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--8739-5216 arg-0 arg-1 arg-2 e-3 arg-3 (CaseBuilder-Core-partition arg-0 arg-1 arg-2 arg-3 e-3) e-2)))))))) -(define CaseBuilder-Core-nextNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CaseBuilder-Core-nextName arg-1 arg-4 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((env (Env-Core-mkEnv arg-3 arg-0))) (let ((act-27 (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 0 (vector 0 ) (vector 2 )))) (else (let ((e-4 (vector-ref sc4 1))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 3))) (let ((e-8 (vector-ref sc5 4))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((2) (let ((e-14 (vector-ref sc6 1))) (let ((e-12 (vector-ref sc6 3))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((9) (let ((act-27 (((e-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) env (vector 1 e-11 (vector 0 ) e-7))) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc8 1))) (vector 1 (vector 0 (vector 1 e-17) (vector 2 )))))))))(else (let ((act-27 (((e-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) env (vector 1 e-11 (vector 0 ) e-7))) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-15 (vector-ref sc7 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc7 1))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 e-6 env e-12 eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-16 (vector-ref sc8 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc8 1))) (vector 1 (vector 0 (vector 1 e-15) (vector 0 e-14 e-16)))))))))))))))))))(else (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-6 env e-4 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 e-12)))))))))))))))(else (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-6 env e-4 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 e-8))))))))))))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((CaseBuilder-Core-nextNames arg-0 arg-1 arg-2 arg-3 arg-4 e-3 (Builtin-fst 'erased 'erased e-8)) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (let ((e-10 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((argTy (let ((_-0 (vector 0 e-10 e-4))) (CaseBuilder-Core-case--9774-6139 e-2 e-3 arg-0 arg-6 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 env e-8 e-10 e-4 _-0 (Builtin-snd 'erased 'erased e-8))))) (vector 1 (vector 0 (vector 1 e-7 e-10) (vector 1 (vector 0 0 e-7 e-2 argTy) (CaseBuilder-Core-weaken 'erased e-7 (List-Prelude-C-43C-43 'erased e-10 arg-0) e-4)))))))))))))))))))))))))))))))))))))))))) +(define CaseBuilder-Core-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--8781-5224 arg-0 arg-1 arg-2 e-3 arg-3 (CaseBuilder-Core-partition arg-0 arg-1 arg-2 arg-3 e-3) e-2)))))))) +(define CaseBuilder-Core-nextNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CaseBuilder-Core-nextName arg-1 arg-4 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((env (Env-Core-mkEnv arg-3 arg-0))) (let ((act-27 (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 0 (vector 0 ) (vector 2 )))) (else (let ((e-4 (vector-ref sc4 1))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 3))) (let ((e-8 (vector-ref sc5 4))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((2) (let ((e-14 (vector-ref sc6 1))) (let ((e-12 (vector-ref sc6 3))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((9) (let ((act-27 (((e-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) env (vector 1 e-11 (vector 0 ) e-7))) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc8 1))) (vector 1 (vector 0 (vector 1 e-17) (vector 2 )))))))))(else (let ((act-27 (((e-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) env (vector 1 e-11 (vector 0 ) e-7))) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-15 (vector-ref sc7 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc7 1))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 e-6 env e-12 eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-16 (vector-ref sc8 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc8 1))) (vector 1 (vector 0 (vector 1 e-15) (vector 0 e-14 e-16)))))))))))))))))))(else (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-6 env e-4 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 e-12)))))))))))))))(else (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-6 env e-4 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 e-8))))))))))))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((CaseBuilder-Core-nextNames arg-0 arg-1 arg-2 arg-3 arg-4 e-3 (Builtin-fst 'erased 'erased e-8)) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (let ((e-10 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((argTy (let ((_-0 (vector 0 e-10 e-4))) (CaseBuilder-Core-case--9816-6147 e-2 e-3 arg-0 arg-6 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 env e-8 e-10 e-4 _-0 (Builtin-snd 'erased 'erased e-8))))) (vector 1 (vector 0 (vector 1 e-7 e-10) (vector 1 (vector 0 0 e-7 e-2 argTy) (CaseBuilder-Core-weaken 'erased e-7 (List-Prelude-C-43C-43 'erased e-10 arg-0) e-4)))))))))))))))))))))))))))))))))))))))))) (define CaseBuilder-Core-nextName (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (b+ e-5 1 63)))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-1 e-5))))))))))))) (define CaseBuilder-Core-newPats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-12 (vector-ref sc1 1))) (let ((sc2 arg-5)) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (vector 1 (let ((sc3 e-16)) (let ((e-7 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((e-6 (vector-ref sc3 4))) (vector 0 e-7 e-5 e-2 e-6))))) (CaseBuilder-Core-newPats 'erased 'erased 'erased e-3 e-12 e-17)))))))))))))) -(define CaseBuilder-Core-namesIn (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (Prelude-C-38C-38 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-1 arg-0) (lambda () (CaseBuilder-Core-namesIn arg-0 e-2)))))) ((1) (let ((e-7 (vector-ref sc0 5))) ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (CaseBuilder-Core-namesIn arg-0 eta-0))) e-7))) ((2) (let ((e-11 (vector-ref sc0 4))) ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (CaseBuilder-Core-namesIn arg-0 eta-0))) e-11))) ((4) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (Prelude-C-38C-38 (CaseBuilder-Core-namesIn arg-0 e-14) (lambda () (CaseBuilder-Core-namesIn arg-0 e-15)))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (Prelude-C-38C-38 (CaseBuilder-Core-namesIn arg-0 e-18) (lambda () (CaseBuilder-Core-namesIn arg-0 e-19)))))) ((6) (let ((e-21 (vector-ref sc0 2))) (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-21 arg-0)))(else 0))))) -(define CaseBuilder-Core-namesFrom (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 1 e-1 (CaseBuilder-Core-namesFrom e-2))))) ((1) (let ((e-7 (vector-ref sc0 5))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (CaseBuilder-Core-namesFrom eta-0))) e-7))) ((2) (let ((e-11 (vector-ref sc0 4))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (CaseBuilder-Core-namesFrom eta-0))) e-11))) ((4) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (CaseBuilder-Core-namesFrom e-14) (CaseBuilder-Core-namesFrom e-15))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (CaseBuilder-Core-namesFrom e-18) (CaseBuilder-Core-namesFrom e-19))))) ((6) (let ((e-21 (vector-ref sc0 2))) (vector 1 e-21 (vector 0 ))))(else (vector 0 )))))) +(define CaseBuilder-Core-namesIn (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (Prelude-C-38C-38 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-1 arg-0) (lambda () (CaseBuilder-Core-namesIn arg-0 e-2)))))) ((1) (let ((e-7 (vector-ref sc0 5))) ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (CaseBuilder-Core-namesIn arg-0 eta-0))) e-7))) ((2) (let ((e-11 (vector-ref sc0 4))) ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (CaseBuilder-Core-namesIn arg-0 eta-0))) e-11))) ((4) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (Prelude-C-38C-38 (CaseBuilder-Core-namesIn arg-0 e-14) (lambda () (CaseBuilder-Core-namesIn arg-0 e-15)))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (Prelude-C-38C-38 (CaseBuilder-Core-namesIn arg-0 e-18) (lambda () (CaseBuilder-Core-namesIn arg-0 e-19)))))) ((6) (let ((e-21 (vector-ref sc0 2))) (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-21 arg-0)))(else 0))))) +(define CaseBuilder-Core-namesFrom (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 1 e-1 (CaseBuilder-Core-namesFrom e-2))))) ((1) (let ((e-7 (vector-ref sc0 5))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (CaseBuilder-Core-namesFrom eta-0))) e-7))) ((2) (let ((e-11 (vector-ref sc0 4))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (CaseBuilder-Core-namesFrom eta-0))) e-11))) ((4) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (CaseBuilder-Core-namesFrom e-14) (CaseBuilder-Core-namesFrom e-15))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (CaseBuilder-Core-namesFrom e-18) (CaseBuilder-Core-namesFrom e-19))))) ((6) (let ((e-21 (vector-ref sc0 2))) (vector 1 e-21 (vector 0 ))))(else (vector 0 )))))) (define CaseBuilder-Core-moveFirst (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 1 (CaseBuilder-Core-getPat 'erased 'erased 'erased arg-3 'erased arg-5) (CaseBuilder-Core-dropPat 'erased 'erased 'erased arg-3 'erased arg-5)))) -(define CaseBuilder-Core-mkPatClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-1 arg-2 (vector 0 )) eta-0))) (lambda () (lambda (eq) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CaseBuilder-Core-n--14266-10072-mkNames e-2 e-3 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-3 e-2 eq (vector 1 e-6)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 0 ) e-7 arg-5 (TT-Core-weakenNs_Weaken__Term (vector 0 ) arg-3 e-3))))))))))))))))))))) (LengthMatch-Data-checkLengthMatch 'erased 'erased arg-3 e-2))))))) +(define CaseBuilder-Core-mkPatClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-1 arg-2 (vector 0 )) eta-0))) (lambda () (lambda (eq) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CaseBuilder-Core-n--14308-10080-mkNames e-2 e-3 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-3 e-2 eq (vector 1 e-6)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 0 ) e-7 arg-5 (TT-Core-weakenNs_Weaken__Term (vector 0 ) arg-3 e-3))))))))))))))))))))) (LengthMatch-Data-checkLengthMatch 'erased 'erased arg-3 e-2))))))) (define CaseBuilder-Core-mixture (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-mixture arg-0 arg-1 arg-2 arg-3 arg-4 e-5 arg-6 arg-7 arg-8 e-7 arg-10) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc2 1))) (let ((act-25 ((CaseBuilder-Core-conRule arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 e-6 e-8) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc3 1))) (vector 1 (vector 1 e-9))))))))))))))(else (let ((sc1 arg-5)) (let ((sc2 arg-9)) (lambda (eta-0) (vector 1 arg-10)))))))))))) ((1) (let ((e-8 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-mixture arg-0 arg-1 arg-2 arg-3 arg-4 e-10 arg-6 arg-7 arg-8 e-12 arg-10) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CaseBuilder-Core-varRule arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 e-11 e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 1 e-6))))))))))))))(else (let ((sc1 arg-5)) (let ((sc2 arg-9)) (lambda (eta-0) (vector 1 arg-10))))))))))))(else (let ((sc0 arg-5)) (let ((sc1 arg-9)) (lambda (eta-0) (vector 1 arg-10))))))))) (define CaseBuilder-Core-match (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-pickNext e-1 arg-0 e-2 arg-2 arg-3 arg-4 arg-6 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-getNPs 'erased 'erased eta-1)) arg-7)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((clausesC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-shuffleVars 'erased 'erased 'erased e-3 'erased eta-1)) arg-7))) (let ((ps (CaseBuilder-Core-partition e-4 (TT-Core-dropVar 'erased (vector 1 e-1 e-2) e-3 'erased) arg-0 arg-6 clausesC-39))) (let ((act-25 ((CaseBuilder-Core-mixture e-4 arg-0 (TT-Core-dropVar 'erased (vector 1 e-1 e-2) e-3 'erased) arg-2 arg-3 clausesC-39 arg-4 arg-5 arg-6 ps arg-8) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 2 "No clauses")))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) e-6) eta-0)))))))))))))))))))) (else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 2 "No patterns")))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) arg-8)) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-11 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (let ((e-13 (vector-ref sc2 4))) (let ((sc3 e-11)) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((10) (let ((e-17 (vector-ref sc4 2))) (let ((sc5 e-17)) (cond ((equal? sc5 0) (lambda (eta-0) (vector 1 (vector 3 ))))(else (lambda (eta-0) (vector 1 (vector 1 e-12 e-13))))))))(else (lambda (eta-0) (vector 1 (vector 1 e-12 e-13)))))))))))))))))))) -(define CaseBuilder-Core-groupCons (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (CaseBuilder-Core-n--10521-6755-gc arg-0 arg-1 arg-2 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 arg-1 arg-2 (vector 0 ) arg-8))) +(define CaseBuilder-Core-groupCons (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (CaseBuilder-Core-n--10563-6763-gc arg-0 arg-1 arg-2 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 arg-1 arg-2 (vector 0 ) arg-8))) (define CaseBuilder-Core-getScore (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-sameType 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Env-Core-mkEnv arg-5 arg-2) arg-8) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 (vector 1 (vector 0 )))))))) (lambda (err) (let ((sc0 err)) (case (vector-ref sc0 0) ((42) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 e-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased err eta-0)))))) ext-0))) (define CaseBuilder-Core-getPatInfo (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (vector 1 (let ((sc1 e-4)) (let ((e-7 (vector-ref sc1 3))) e-7)) (CaseBuilder-Core-getPatInfo 'erased 'erased e-5))))))))) (define CaseBuilder-Core-getPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (let ((e-4 (vector-ref sc1 1))) e-4)))(else (let ((e-0 (- arg-3 1))) (let ((sc0 arg-5)) (let ((e-10 (vector-ref sc0 2))) (CaseBuilder-Core-getPat 'erased 'erased 'erased e-0 'erased e-10))))))))) -(define CaseBuilder-Core-getPMDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CaseBuilder-Core-n--15201-11016-getArgs arg-4 arg-3 arg-2 arg-1 arg-0 0 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-7 (vector 0 (vector 2 "No clauses") (vector 0 )))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((cs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-n--15201-11104-toClosed arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 eta-1)) (CaseBuilder-Core-n--15201-11101-labelPat arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 'erased 0 arg-5)))) (let ((act-25 (CaseBuilder-Core-simpleCase arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) cs eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((reached (CaseBuilder-Core-findReached 'erased e-3))) (vector 1 (vector 0 e-2 (vector 0 e-3 (CaseBuilder-Core-n--15201-11100-getUnreachable arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 0 reached arg-5))))))))))))))))))))))))) +(define CaseBuilder-Core-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--15243-11024-getArgs arg-4 arg-3 arg-2 arg-1 arg-0 0 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-7 (vector 0 (vector 2 "No clauses") (vector 0 )))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((cs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-n--15243-11112-toClosed arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 eta-1)) (CaseBuilder-Core-n--15243-11109-labelPat arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 'erased 0 arg-5)))) (let ((act-25 (CaseBuilder-Core-simpleCase arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) cs eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((reached (CaseBuilder-Core-findReached 'erased e-3))) (vector 1 (vector 0 e-2 (vector 0 e-3 (CaseBuilder-Core-n--15243-11108-getUnreachable arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 0 reached arg-5))))))))))))))))))))))))) (define CaseBuilder-Core-getNPs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 2))) e-3)))) (define CaseBuilder-Core-getFirstPat (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (let ((e-5 (vector-ref sc1 3))) e-5)))))) (define CaseBuilder-Core-getFirstArgType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 4))) e-6)))))) -(define CaseBuilder-Core-findReached (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (CaseBuilder-Core-n--15124-10945-findRAlts e-1 e-0 e-2 'erased e-4 e-5 'erased eta-0))) e-5))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (vector 1 e-7 (vector 0 ))))(else (vector 0 )))))) +(define CaseBuilder-Core-findReached (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (CaseBuilder-Core-n--15166-10953-findRAlts e-1 e-0 e-2 'erased e-4 e-5 'erased eta-0))) e-5))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (vector 1 e-7 (vector 0 ))))(else (vector 0 )))))) (define CaseBuilder-Core-dropPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (let ((e-5 (vector-ref sc1 2))) e-5)))(else (let ((e-0 (- arg-3 1))) (let ((sc0 arg-5)) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (vector 1 e-9 (CaseBuilder-Core-dropPat 'erased 'erased 'erased e-0 'erased e-10))))))))))) (define CaseBuilder-Core-conRule (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 2 "No constructor clauses")))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) arg-9)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-13 (vector-ref sc2 1))) (let ((sc3 e-13)) (let ((e-17 (vector-ref sc3 1))) (let ((e-18 (vector-ref sc3 2))) (let ((e-21 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-substInClause arg-0 arg-1 arg-2 arg-4 arg-5 eta-1)) arg-8) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((CaseBuilder-Core-groupCons arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 e-5) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-26 (let ((sc6 e-21)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 2))) (vector 1 e-4)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-5 arg-6 (vector 4 )) eta-0)))))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (CaseBuilder-Core-caseGroups e-18 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-17 'erased e-11 e-10 arg-9 eta-0)))))))))))))))))))))))))))))))) -(define CaseBuilder-Core-clauseType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-3)) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((e-15 (vector-ref sc2 3))) (let ((e-17 (vector-ref sc2 4))) (CaseBuilder-Core-n--8396-4920-getClauseType 'erased 'erased 'erased e-13 e-14 'erased e-17 e-15 e-10 e-5 e-4 e-2 arg-3 arg-3 e-15 e-17)))))))))))))))) -(define CaseBuilder-Core-checkGroupMatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((e-16 (vector-ref sc3 3))) (let ((e-17 (vector-ref sc3 4))) (CaseBuilder-Core-case--9320-5695 'erased 'erased e-1 e-0 e-5 e-17 e-16 e-15 e-14 e-11 e-7 e-6 arg-3 (LengthMatch-Data-checkLengthMatch 'erased 'erased arg-3 e-5)))))))(else (vector 3 )))))))(else (vector 3 )))))))))(else (vector 3 ))))))) ((1) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((1) (let ((e-23 (vector-ref sc2 3))) (let ((sc3 e-23)) (case (vector-ref sc3 0) ((1) (let ((e-25 (vector-ref sc3 1))) (let ((sc4 e-25)) (case (vector-ref sc4 0) ((0) (vector 1 ))(else (vector 3 ))))))(else (vector 3 ))))))(else (vector 3 )))))(else (vector 3 ))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((2) (let ((e-36 (vector-ref sc2 1))) (let ((e-37 (vector-ref sc2 2))) (let ((sc3 e-37)) (case (vector-ref sc3 0) ((1) (let ((e-39 (vector-ref sc3 1))) (let ((e-40 (vector-ref sc3 2))) (let ((sc4 e-39)) (case (vector-ref sc4 0) ((0) (let ((e-43 (vector-ref sc4 1))) (let ((e-44 (vector-ref sc4 2))) (let ((e-45 (vector-ref sc4 3))) (let ((e-46 (vector-ref sc4 4))) (CaseBuilder-Core-case--9320-5914 'erased 'erased e-2 e-46 e-45 e-44 e-43 e-40 e-36 (TT-Core-constantEq e-2 e-36)))))))(else (vector 3 )))))))(else (vector 3 )))))))(else (vector 3 )))))(else (vector 3 ))))))(else (vector 3 )))))) -(define CaseBuilder-Core-caseGroups (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 ((CaseBuilder-Core-n--13475-9539-altGroups arg-0 arg-2 arg-8 arg-1 arg-12 arg-11 arg-10 'erased arg-7 arg-6 arg-5 arg-4 arg-3 arg-11) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 0 arg-0 arg-1 arg-8 (TT-Core-resolveNames arg-1 arg-10) e-5))))))))) +(define 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--8438-4928-getClauseType 'erased 'erased 'erased e-13 e-14 'erased e-17 e-15 e-10 e-5 e-4 e-2 arg-3 arg-3 e-15 e-17)))))))))))))))) +(define CaseBuilder-Core-checkGroupMatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((e-16 (vector-ref sc3 3))) (let ((e-17 (vector-ref sc3 4))) (CaseBuilder-Core-case--9362-5703 'erased 'erased e-1 e-0 e-5 e-17 e-16 e-15 e-14 e-11 e-7 e-6 arg-3 (LengthMatch-Data-checkLengthMatch 'erased 'erased arg-3 e-5)))))))(else (vector 3 )))))))(else (vector 3 )))))))))(else (vector 3 ))))))) ((1) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((1) (let ((e-23 (vector-ref sc2 3))) (let ((sc3 e-23)) (case (vector-ref sc3 0) ((1) (let ((e-25 (vector-ref sc3 1))) (let ((sc4 e-25)) (case (vector-ref sc4 0) ((0) (vector 1 ))(else (vector 3 ))))))(else (vector 3 ))))))(else (vector 3 )))))(else (vector 3 ))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((2) (let ((e-36 (vector-ref sc2 1))) (let ((e-37 (vector-ref sc2 2))) (let ((sc3 e-37)) (case (vector-ref sc3 0) ((1) (let ((e-39 (vector-ref sc3 1))) (let ((e-40 (vector-ref sc3 2))) (let ((sc4 e-39)) (case (vector-ref sc4 0) ((0) (let ((e-43 (vector-ref sc4 1))) (let ((e-44 (vector-ref sc4 2))) (let ((e-45 (vector-ref sc4 3))) (let ((e-46 (vector-ref sc4 4))) (CaseBuilder-Core-case--9362-5922 'erased 'erased e-2 e-46 e-45 e-44 e-43 e-40 e-36 (TT-Core-constantEq e-2 e-36)))))))(else (vector 3 )))))))(else (vector 3 )))))))(else (vector 3 )))))(else (vector 3 ))))))(else (vector 3 )))))) +(define CaseBuilder-Core-caseGroups (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 ((CaseBuilder-Core-n--13517-9547-altGroups arg-0 arg-2 arg-8 arg-1 arg-12 arg-11 arg-10 'erased arg-7 arg-6 arg-5 arg-4 arg-3 arg-11) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 0 arg-0 arg-1 arg-8 (TT-Core-resolveNames arg-1 arg-10) e-5))))))))) (define PatInfo-CaseBuilder-Core-argType (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-6 (vector-ref sc0 4))) e-6)))) (define CaseBuilder-Core-C-43C-43 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (vector 1 e-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-5 arg-4))))))))) (define LengthMatch-Data-checkLengthMatch (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 0 ))) (else (vector 0 ))))) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (vector 0 )) (else (let ((e-11 (vector-ref sc1 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (LengthMatch-Data-checkLengthMatch 'erased 'erased e-3 e-11) (lambda (bind-0) (vector 1 (vector 1 bind-0)))))))))))))) (define ProcessRunElab-TTImp-processRunElab (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-resolveName arg-1 (vector 1 "[elaborator script]")) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((n (vector 0 (vector 1 "Reflection" (vector 1 "Language" (vector 0 ))) (vector 1 "Elab")))) (let ((act-26 (Reflect-Core-getCon arg-0 arg-7 e-5 (Reflect-Core-builtin "Unit") ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Reflect-Core-appCon arg-0 arg-7 e-5 n (vector 1 e-7 (vector 0 )) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 e-6 (vector 2 ) arg-4 arg-5 arg-6 arg-8 (Normalise-Core-gnf arg-0 arg-6 e-8) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (let ((act-29 ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) e-5 arg-6 e-9) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-1 arg-2 arg-3 arg-7 arg-5 arg-6 e-10 (vector 0 )) ext-0)))))))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))) -(define ProcessRecord-TTImp-case--10280-7842 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 arg-21 (vector 1 arg-24 arg-22) e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))) -(define ProcessRecord-TTImp-case--10217-7652 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((ProcessRecord-TTImp-n--8542-6164-elabGetters arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 5 eta-1)) (vector 0 ) arg-17) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((sc2 arg-19)) (cond ((equal? sc2 0) ((ProcessRecord-TTImp-n--8542-6164-elabGetters arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 1 eta-1)) (vector 0 ) arg-17) eta-0)) (else (vector 1 (vector 0 ))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((cns (let ((sc1 arg-16)) (let ((e-26 (vector-ref sc1 3))) e-26)))) (let ((nns (let ((sc1 arg-16)) (let ((e-3 (vector-ref sc1 4))) e-3)))) (lambda (eta-0) (let ((act-24 (Context-Core-extendNS arg-13 (vector 1 e-2 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 (Context-Core-getNS arg-13 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((ProcessRecord-TTImp-n--8542-6164-elabGetters arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 5 eta-1)) (vector 0 ) arg-17) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-27 (let ((sc4 arg-19)) (cond ((equal? sc4 0) ((ProcessRecord-TTImp-n--8542-6164-elabGetters arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 1 eta-1)) (vector 0 ) arg-17) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-28 (let ((act-28 (unbox arg-13))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (set-box! arg-13 (let ((sc6 e-9)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-4 (vector-ref sc6 5))) (let ((e-30 (vector-ref sc6 6))) (let ((e-29 (vector-ref sc6 7))) (let ((e-28 (vector-ref sc6 8))) (let ((e-27 (vector-ref sc6 9))) (let ((e-26 (vector-ref sc6 10))) (let ((e-10 (vector-ref sc6 11))) (let ((e-11 (vector-ref sc6 12))) (let ((e-12 (vector-ref sc6 13))) (let ((e-13 (vector-ref sc6 14))) (let ((e-14 (vector-ref sc6 15))) (let ((e-15 (vector-ref sc6 16))) (let ((e-16 (vector-ref sc6 17))) (let ((e-17 (vector-ref sc6 18))) (let ((e-18 (vector-ref sc6 19))) (let ((e-19 (vector-ref sc6 20))) (let ((e-20 (vector-ref sc6 21))) (let ((e-21 (vector-ref sc6 22))) (let ((e-22 (vector-ref sc6 23))) (let ((e-23 (vector-ref sc6 24))) (let ((e-24 (vector-ref sc6 25))) (let ((e-25 (vector-ref sc6 26))) (vector 0 e-0 e-1 cns (vector 1 e-6 nns) e-4 e-30 e-29 e-28 e-27 e-26 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) (vector 1 act-29))))))))))))))))))))))))))))))))) -(define ProcessRecord-TTImp-case--8542-7607 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-isUndottedRecordProjections arg-13 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((0) (let ((act-25 ((ProcessRecord-TTImp-n--8542-6164-elabGetters arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 5 eta-1)) (vector 0 ) e-1) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((sc4 e-5)) (cond ((equal? sc4 0) ((ProcessRecord-TTImp-n--8542-6164-elabGetters arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 1 eta-1)) (vector 0 ) e-1) eta-0)) (else (vector 1 (vector 0 )))))))))) (else (let ((e-2 (vector-ref sc2 1))) (let ((cns (let ((sc3 arg-16)) (let ((e-27 (vector-ref sc3 3))) e-27)))) (let ((nns (let ((sc3 arg-16)) (let ((e-3 (vector-ref sc3 4))) e-3)))) (let ((act-25 (Context-Core-extendNS arg-13 (vector 1 e-2 (vector 0 )) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-26 (Context-Core-getNS arg-13 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 ((ProcessRecord-TTImp-n--8542-6164-elabGetters arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 5 eta-1)) (vector 0 ) e-1) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((act-28 (let ((sc6 e-5)) (cond ((equal? sc6 0) ((ProcessRecord-TTImp-n--8542-6164-elabGetters arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 1 eta-1)) (vector 0 ) e-1) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((act-29 (let ((act-29 (unbox arg-13))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 (set-box! arg-13 (let ((sc8 e-10)) (let ((e-0 (vector-ref sc8 1))) (let ((e-33 (vector-ref sc8 2))) (let ((e-4 (vector-ref sc8 5))) (let ((e-31 (vector-ref sc8 6))) (let ((e-30 (vector-ref sc8 7))) (let ((e-29 (vector-ref sc8 8))) (let ((e-28 (vector-ref sc8 9))) (let ((e-27 (vector-ref sc8 10))) (let ((e-26 (vector-ref sc8 11))) (let ((e-11 (vector-ref sc8 12))) (let ((e-12 (vector-ref sc8 13))) (let ((e-13 (vector-ref sc8 14))) (let ((e-14 (vector-ref sc8 15))) (let ((e-15 (vector-ref sc8 16))) (let ((e-16 (vector-ref sc8 17))) (let ((e-17 (vector-ref sc8 18))) (let ((e-18 (vector-ref sc8 19))) (let ((e-19 (vector-ref sc8 20))) (let ((e-20 (vector-ref sc8 21))) (let ((e-21 (vector-ref sc8 22))) (let ((e-22 (vector-ref sc8 23))) (let ((e-23 (vector-ref sc8 24))) (let ((e-24 (vector-ref sc8 25))) (let ((e-25 (vector-ref sc8 26))) (vector 0 e-0 e-33 cns (vector 1 e-7 nns) e-4 e-31 e-30 e-29 e-28 e-27 e-26 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) (vector 1 act-30)))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Adding " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-3) "failed"))) eta-0))))))) -(define ProcessRecord-TTImp-case--8929-7419 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35) (let ((sc0 arg-35)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) -(define ProcessRecord-TTImp-case--8929-7257 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36) (let ((sc0 arg-36)) (cond ((equal? sc0 0) (vector 1 (vector 16 arg-9 arg-27) (vector 0 ))) (else (vector 0 )))))) -(define ProcessRecord-TTImp-case--8929-7093 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37) (let ((sc0 arg-37)) (cond ((equal? sc0 0) arg-36) (else (vector 9 arg-9 arg-36 (vector 1 (vector 1 arg-27)) (vector 16 arg-9 arg-27))))))) -(define ProcessRecord-TTImp-case--8929-6911 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42) (let ((sc0 arg-42)) (cond ((equal? sc0 0) (+ 1 arg-25)) (else arg-25))))) -(define ProcessRecord-TTImp-case--8929-6572 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (cond ((equal? sc0 0) (+ 1 arg-25)) (else arg-25))))) -(define ProcessRecord-TTImp-case--8568-6494 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (cond ((equal? sc0 0) (ProcessRecord-TTImp-n--8542-6164-elabGetters arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 1 arg-15 arg-14) arg-26 (ProcessRecord-TTImp-case--8929-6572 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-430 arg-431)))) arg-18 (vector 1 )) (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-15 arg-6))))) arg-24 arg-23 (vector 1 arg-20 arg-22) arg-16)) (else (let ((fldNameStr (Name-Core-nameRoot arg-15))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-13 (arg-23 fldNameStr)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Unelab-TTImp-unelab arg-14 arg-13 arg-22 arg-17) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((tyC-39 (Utils-TTImp-substNames arg-6 arg-24 e-6))) (let ((act-26 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Field type: " (TTImp-TTImp-show_Show__RawImp tyC-39))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((rname (vector 2 "rec" 0))) (let ((act-27 (BindImplicits-TTImp-bindTypeNames arg-13 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessRecord-TTImp-n--8542-6158-fname arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-1)) arg-0) arg-6)) (ProcessRecord-TTImp-n--8542-6160-mkTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (ProcessRecord-TTImp-n--8542-6157-paramTelescope arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 arg-9 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 rname) (ProcessRecord-TTImp-n--8542-6161-recTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) tyC-39)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Projection " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp e-8))))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((Check-Elab-TTImp-processDecl arg-6 arg-13 arg-12 arg-11 (vector 0 ) arg-7 arg-8 (vector 0 arg-9 (ProcessRecord-TTImp-case--8929-7419 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 fldNameStr e-5 e-6 tyC-39 e-7 rname e-8 e-9 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-19)) (ProcessRecord-TTImp-projVis arg-4) (vector 1 (vector 0 ) (vector 0 )) (vector 0 arg-9 e-5 e-8))) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((lhs_exp (TTImp-TTImp-apply (vector 0 arg-9 arg-26) (List-Prelude-C-43C-43 'erased (List-Data-replicate 'erased arg-25 (vector 31 arg-9 0)) (List-Prelude-C-43C-43 'erased (ProcessRecord-TTImp-case--8929-7257 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 fldNameStr e-5 e-6 tyC-39 e-7 rname e-8 e-9 e-10 (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-430 arg-431)))) arg-18 (vector 1 ))) (List-Data-replicate 'erased (ProcessRecord-TTImp-n--8542-6163-countExp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased arg-16) (vector 31 arg-9 0))))))) (let ((lhs (vector 8 arg-9 (vector 0 arg-9 e-5) (ProcessRecord-TTImp-case--8929-7093 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 fldNameStr e-5 e-6 tyC-39 e-7 rname e-8 e-9 e-10 lhs_exp (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-430 arg-431)))) arg-18 (vector 1 )))))) (let ((rhs (vector 0 arg-9 (vector 1 fldNameStr)))) (let ((act-30 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Projection " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp lhs) (Strings-Prelude-C-43C-43 " = " (TTImp-TTImp-show_Show__RawImp rhs))))) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 ((Check-Elab-TTImp-processDecl arg-6 arg-13 arg-12 arg-11 (vector 0 ) arg-7 arg-8 (vector 2 arg-9 e-5 (vector 1 (vector 0 arg-9 lhs rhs) (vector 0 )))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((updsC-39 (vector 1 (vector 0 arg-15 (vector 8 arg-9 (vector 0 arg-9 e-5) (vector 0 arg-9 rname))) arg-24))) ((ProcessRecord-TTImp-n--8542-6164-elabGetters arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 1 arg-15 arg-14) arg-26 (ProcessRecord-TTImp-case--8929-6911 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 fldNameStr e-5 e-6 tyC-39 e-7 rname e-8 e-9 e-10 lhs_exp lhs rhs e-11 e-12 updsC-39 (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-430 arg-431)))) arg-18 (vector 1 ))) updsC-39 arg-23 (vector 1 arg-20 arg-22) arg-16) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define ProcessRecord-TTImp-case--8565-6284 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-2 (vector 0 (vector 0 arg-9 e-2) e-10))))))))))) -(define ProcessRecord-TTImp-n--8542-6161-recTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (ProcessRecord-TTImp-n--8565-6243-apply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 0 arg-9 arg-3) (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-2 (vector 0 (vector 0 arg-9 e-2) e-10)))))))))) arg-2)))) -(define ProcessRecord-TTImp-n--8542-6157-paramTelescope (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ProcessRecord-TTImp-n--8561-6165-jname arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) arg-2))) -(define ProcessRecord-TTImp-n--8542-6160-mkTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) arg-15) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (vector 1 arg-9 e-10 e-14 e-6 e-15 (ProcessRecord-TTImp-n--8542-6160-mkTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-3 arg-15)))))))))))))))))) -(define ProcessRecord-TTImp-n--8561-6165-jname (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) (vector 0 (vector 1 e-2) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 0 ) e-11)))))))))))) -(define ProcessRecord-TTImp-n--8542-6158-fname (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-3 (vector-ref sc0 4))) e-3)))) -(define ProcessRecord-TTImp-n--8542-6159-farg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 (vector 1 e-3) (vector 0 e-1 (vector 0 e-2 e-4)))))))))) -(define ProcessRecord-TTImp-n--8542-6164-elabGetters (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((b (vector 2 e-6 e-7 e-8))) (ProcessRecord-TTImp-case--8568-6494 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-2 e-4 e-8 e-7 e-6 b e-1 arg-19 arg-18 arg-17 arg-16 arg-15 (Prelude-C-124C-124 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-2)) (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-2 arg-6)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessRecord-TTImp-n--8542-6162-elabAsData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((conty (ProcessRecord-TTImp-n--8542-6160-mkTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (ProcessRecord-TTImp-n--8542-6157-paramTelescope arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (ProcessRecord-TTImp-n--8542-6160-mkTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ProcessRecord-TTImp-n--8542-6159-farg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) arg-0) (ProcessRecord-TTImp-n--8542-6161-recTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13))))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-13 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessRecord-TTImp-n--8542-6158-fname arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-1)) arg-0) arg-6)) conty eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((con (vector 0 arg-9 arg-14 e-5))) (let ((act-25 (BindImplicits-TTImp-bindTypeNames arg-13 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessRecord-TTImp-n--8542-6158-fname arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-1)) arg-0) arg-6)) (ProcessRecord-TTImp-mkDataTy arg-9 arg-2) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((dt (vector 0 arg-9 arg-3 e-6 (vector 0 ) (vector 1 con (vector 0 ))))) (let ((act-26 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Record data type " (TTImp-TTImp-show_Show__ImpData dt))) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Check-Elab-TTImp-processDecl arg-6 arg-13 arg-12 arg-11 (vector 0 ) arg-7 arg-8 (vector 1 arg-9 arg-4 dt)) eta-0))))))))))))))))))))) -(define ProcessRecord-TTImp-n--8542-6163-countExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((3) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (+ 1 (ProcessRecord-TTImp-n--8542-6163-countExp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-4)))(else (ProcessRecord-TTImp-n--8542-6163-countExp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-4))))))(else 0))))))(else 0))))) -(define ProcessRecord-TTImp-n--8565-6243-apply (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) arg-14) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((1) (ProcessRecord-TTImp-n--8565-6243-apply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 8 (TTImp-TTImp-getFC arg-14) arg-14 e-10) e-3))(else (ProcessRecord-TTImp-n--8565-6243-apply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 9 (TTImp-TTImp-getFC arg-14) arg-14 (vector 1 e-6) e-10) e-3))))))))))))))))) +(define ProcessRecord-TTImp-case--10347-7850 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 arg-21 (vector 1 arg-24 arg-22) e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))) +(define ProcessRecord-TTImp-case--10284-7660 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((ProcessRecord-TTImp-n--8609-6172-elabGetters arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 5 eta-1)) (vector 0 ) arg-17) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((sc2 arg-19)) (cond ((equal? sc2 0) ((ProcessRecord-TTImp-n--8609-6172-elabGetters arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 1 eta-1)) (vector 0 ) arg-17) eta-0)) (else (vector 1 (vector 0 ))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((cns (let ((sc1 arg-16)) (let ((e-26 (vector-ref sc1 3))) e-26)))) (let ((nns (let ((sc1 arg-16)) (let ((e-3 (vector-ref sc1 4))) e-3)))) (lambda (eta-0) (let ((act-24 (Context-Core-extendNS arg-13 (vector 1 e-2 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 (Context-Core-getNS arg-13 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((ProcessRecord-TTImp-n--8609-6172-elabGetters arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 5 eta-1)) (vector 0 ) arg-17) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-27 (let ((sc4 arg-19)) (cond ((equal? sc4 0) ((ProcessRecord-TTImp-n--8609-6172-elabGetters arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 1 eta-1)) (vector 0 ) arg-17) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-28 (let ((act-28 (unbox arg-13))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (set-box! arg-13 (let ((sc6 e-9)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-4 (vector-ref sc6 5))) (let ((e-30 (vector-ref sc6 6))) (let ((e-29 (vector-ref sc6 7))) (let ((e-28 (vector-ref sc6 8))) (let ((e-27 (vector-ref sc6 9))) (let ((e-26 (vector-ref sc6 10))) (let ((e-10 (vector-ref sc6 11))) (let ((e-11 (vector-ref sc6 12))) (let ((e-12 (vector-ref sc6 13))) (let ((e-13 (vector-ref sc6 14))) (let ((e-14 (vector-ref sc6 15))) (let ((e-15 (vector-ref sc6 16))) (let ((e-16 (vector-ref sc6 17))) (let ((e-17 (vector-ref sc6 18))) (let ((e-18 (vector-ref sc6 19))) (let ((e-19 (vector-ref sc6 20))) (let ((e-20 (vector-ref sc6 21))) (let ((e-21 (vector-ref sc6 22))) (let ((e-22 (vector-ref sc6 23))) (let ((e-23 (vector-ref sc6 24))) (let ((e-24 (vector-ref sc6 25))) (let ((e-25 (vector-ref sc6 26))) (vector 0 e-0 e-1 cns (vector 1 e-6 nns) e-4 e-30 e-29 e-28 e-27 e-26 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) (vector 1 act-29))))))))))))))))))))))))))))))))) +(define ProcessRecord-TTImp-case--8609-7615 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-isUndottedRecordProjections arg-13 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((0) (let ((act-25 ((ProcessRecord-TTImp-n--8609-6172-elabGetters arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 5 eta-1)) (vector 0 ) e-1) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((sc4 e-5)) (cond ((equal? sc4 0) ((ProcessRecord-TTImp-n--8609-6172-elabGetters arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 1 eta-1)) (vector 0 ) e-1) eta-0)) (else (vector 1 (vector 0 )))))))))) (else (let ((e-2 (vector-ref sc2 1))) (let ((cns (let ((sc3 arg-16)) (let ((e-27 (vector-ref sc3 3))) e-27)))) (let ((nns (let ((sc3 arg-16)) (let ((e-3 (vector-ref sc3 4))) e-3)))) (let ((act-25 (Context-Core-extendNS arg-13 (vector 1 e-2 (vector 0 )) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-26 (Context-Core-getNS arg-13 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 ((ProcessRecord-TTImp-n--8609-6172-elabGetters arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 5 eta-1)) (vector 0 ) e-1) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((act-28 (let ((sc6 e-5)) (cond ((equal? sc6 0) ((ProcessRecord-TTImp-n--8609-6172-elabGetters arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 1 eta-1)) (vector 0 ) e-1) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((act-29 (let ((act-29 (unbox arg-13))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 (set-box! arg-13 (let ((sc8 e-10)) (let ((e-0 (vector-ref sc8 1))) (let ((e-33 (vector-ref sc8 2))) (let ((e-4 (vector-ref sc8 5))) (let ((e-31 (vector-ref sc8 6))) (let ((e-30 (vector-ref sc8 7))) (let ((e-29 (vector-ref sc8 8))) (let ((e-28 (vector-ref sc8 9))) (let ((e-27 (vector-ref sc8 10))) (let ((e-26 (vector-ref sc8 11))) (let ((e-11 (vector-ref sc8 12))) (let ((e-12 (vector-ref sc8 13))) (let ((e-13 (vector-ref sc8 14))) (let ((e-14 (vector-ref sc8 15))) (let ((e-15 (vector-ref sc8 16))) (let ((e-16 (vector-ref sc8 17))) (let ((e-17 (vector-ref sc8 18))) (let ((e-18 (vector-ref sc8 19))) (let ((e-19 (vector-ref sc8 20))) (let ((e-20 (vector-ref sc8 21))) (let ((e-21 (vector-ref sc8 22))) (let ((e-22 (vector-ref sc8 23))) (let ((e-23 (vector-ref sc8 24))) (let ((e-24 (vector-ref sc8 25))) (let ((e-25 (vector-ref sc8 26))) (vector 0 e-0 e-33 cns (vector 1 e-7 nns) e-4 e-31 e-30 e-29 e-28 e-27 e-26 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) (vector 1 act-30)))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Adding " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-3) "failed"))) eta-0))))))) +(define ProcessRecord-TTImp-case--8996-7427 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35) (let ((sc0 arg-35)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) +(define ProcessRecord-TTImp-case--8996-7265 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36) (let ((sc0 arg-36)) (cond ((equal? sc0 0) (vector 1 (vector 16 arg-9 arg-27) (vector 0 ))) (else (vector 0 )))))) +(define ProcessRecord-TTImp-case--8996-7101 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37) (let ((sc0 arg-37)) (cond ((equal? sc0 0) arg-36) (else (vector 9 arg-9 arg-36 (vector 1 (vector 1 arg-27)) (vector 16 arg-9 arg-27))))))) +(define ProcessRecord-TTImp-case--8996-6919 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42) (let ((sc0 arg-42)) (cond ((equal? sc0 0) (+ 1 arg-25)) (else arg-25))))) +(define ProcessRecord-TTImp-case--8996-6580 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (cond ((equal? sc0 0) (+ 1 arg-25)) (else arg-25))))) +(define ProcessRecord-TTImp-case--8635-6502 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (cond ((equal? sc0 0) (ProcessRecord-TTImp-n--8609-6172-elabGetters arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 1 arg-15 arg-14) arg-26 (ProcessRecord-TTImp-case--8996-6580 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-438 arg-439)))) arg-18 (vector 1 )) (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) arg-15 arg-6))))) arg-24 arg-23 (vector 1 arg-20 arg-22) arg-16)) (else (let ((fldNameStr (Name-Core-nameRoot arg-15))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-13 (arg-23 fldNameStr)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Unelab-TTImp-unelab arg-14 arg-13 arg-22 arg-17) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((tyC-39 (Utils-TTImp-substNames arg-6 arg-24 e-6))) (let ((act-26 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Field type: " (TTImp-TTImp-show_Show__RawImp tyC-39))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((rname (vector 2 "rec" 0))) (let ((act-27 (BindImplicits-TTImp-bindTypeNames arg-13 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessRecord-TTImp-n--8609-6166-fname arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-1)) arg-0) arg-6)) (ProcessRecord-TTImp-n--8609-6168-mkTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (ProcessRecord-TTImp-n--8609-6165-paramTelescope arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 arg-9 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 rname) (ProcessRecord-TTImp-n--8609-6169-recTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) tyC-39)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Projection " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp e-8))))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((Check-Elab-TTImp-processDecl arg-6 arg-13 arg-12 arg-11 (vector 0 ) arg-7 arg-8 (vector 0 arg-9 (ProcessRecord-TTImp-case--8996-7427 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 fldNameStr e-5 e-6 tyC-39 e-7 rname e-8 e-9 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-19)) (ProcessRecord-TTImp-projVis arg-4) (vector 1 (vector 0 ) (vector 0 )) (vector 0 arg-9 e-5 e-8))) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((lhs_exp (TTImp-TTImp-apply (vector 0 arg-9 arg-26) (List-Prelude-C-43C-43 'erased (List-Data-replicate 'erased arg-25 (vector 31 arg-9 0)) (List-Prelude-C-43C-43 'erased (ProcessRecord-TTImp-case--8996-7265 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 fldNameStr e-5 e-6 tyC-39 e-7 rname e-8 e-9 e-10 (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-438 arg-439)))) arg-18 (vector 1 ))) (List-Data-replicate 'erased (ProcessRecord-TTImp-n--8609-6171-countExp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased arg-16) (vector 31 arg-9 0))))))) (let ((lhs (vector 8 arg-9 (vector 0 arg-9 e-5) (ProcessRecord-TTImp-case--8996-7101 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 fldNameStr e-5 e-6 tyC-39 e-7 rname e-8 e-9 e-10 lhs_exp (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-438 arg-439)))) arg-18 (vector 1 )))))) (let ((rhs (vector 0 arg-9 (vector 1 fldNameStr)))) (let ((act-30 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Projection " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp lhs) (Strings-Prelude-C-43C-43 " = " (TTImp-TTImp-show_Show__RawImp rhs))))) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 ((Check-Elab-TTImp-processDecl arg-6 arg-13 arg-12 arg-11 (vector 0 ) arg-7 arg-8 (vector 2 arg-9 e-5 (vector 1 (vector 0 arg-9 lhs rhs) (vector 0 )))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((updsC-39 (vector 1 (vector 0 arg-15 (vector 8 arg-9 (vector 0 arg-9 e-5) (vector 0 arg-9 rname))) arg-24))) ((ProcessRecord-TTImp-n--8609-6172-elabGetters arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 1 arg-15 arg-14) arg-26 (ProcessRecord-TTImp-case--8996-6919 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 fldNameStr e-5 e-6 tyC-39 e-7 rname e-8 e-9 e-10 lhs_exp lhs rhs e-11 e-12 updsC-39 (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-438 arg-439)))) arg-18 (vector 1 ))) updsC-39 arg-23 (vector 1 arg-20 arg-22) arg-16) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define ProcessRecord-TTImp-case--8632-6292 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-2 (vector 0 (vector 0 arg-9 e-2) e-10))))))))))) +(define ProcessRecord-TTImp-n--8609-6169-recTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (ProcessRecord-TTImp-n--8632-6251-apply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 0 arg-9 arg-3) (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-2 (vector 0 (vector 0 arg-9 e-2) e-10)))))))))) arg-2)))) +(define ProcessRecord-TTImp-n--8609-6165-paramTelescope (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ProcessRecord-TTImp-n--8628-6173-jname arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) arg-2))) +(define ProcessRecord-TTImp-n--8609-6168-mkTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) arg-15) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (vector 1 arg-9 e-10 e-14 e-6 e-15 (ProcessRecord-TTImp-n--8609-6168-mkTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-3 arg-15)))))))))))))))))) +(define ProcessRecord-TTImp-n--8628-6173-jname (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) (vector 0 (vector 1 e-2) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 0 ) e-11)))))))))))) +(define ProcessRecord-TTImp-n--8609-6166-fname (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-3 (vector-ref sc0 4))) e-3)))) +(define ProcessRecord-TTImp-n--8609-6167-farg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 (vector 1 e-3) (vector 0 e-1 (vector 0 e-2 e-4)))))))))) +(define ProcessRecord-TTImp-n--8609-6172-elabGetters (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((b (vector 2 e-6 e-7 e-8))) (ProcessRecord-TTImp-case--8635-6502 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-2 e-4 e-8 e-7 e-6 b e-1 arg-19 arg-18 arg-17 arg-16 arg-15 (Prelude-C-124C-124 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-2)) (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-2 arg-6)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessRecord-TTImp-n--8609-6170-elabAsData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((conty (ProcessRecord-TTImp-n--8609-6168-mkTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (ProcessRecord-TTImp-n--8609-6165-paramTelescope arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (ProcessRecord-TTImp-n--8609-6168-mkTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ProcessRecord-TTImp-n--8609-6167-farg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) arg-0) (ProcessRecord-TTImp-n--8609-6169-recTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13))))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-13 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessRecord-TTImp-n--8609-6166-fname arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-1)) arg-0) arg-6)) conty eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((con (vector 0 arg-9 arg-14 e-5))) (let ((act-25 (BindImplicits-TTImp-bindTypeNames arg-13 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessRecord-TTImp-n--8609-6166-fname arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-1)) arg-0) arg-6)) (ProcessRecord-TTImp-mkDataTy arg-9 arg-2) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((dt (vector 0 arg-9 arg-3 e-6 (vector 0 ) (vector 1 con (vector 0 ))))) (let ((act-26 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Record data type " (TTImp-TTImp-show_Show__ImpData dt))) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Check-Elab-TTImp-processDecl arg-6 arg-13 arg-12 arg-11 (vector 0 ) arg-7 arg-8 (vector 1 arg-9 arg-4 dt)) eta-0))))))))))))))))))))) +(define ProcessRecord-TTImp-n--8609-6171-countExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((3) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (+ 1 (ProcessRecord-TTImp-n--8609-6171-countExp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-4)))(else (ProcessRecord-TTImp-n--8609-6171-countExp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-4))))))(else 0))))))(else 0))))) +(define ProcessRecord-TTImp-n--8632-6251-apply (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) arg-14) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((1) (ProcessRecord-TTImp-n--8632-6251-apply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 8 (TTImp-TTImp-getFC arg-14) arg-14 e-10) e-3))(else (ProcessRecord-TTImp-n--8632-6251-apply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 9 (TTImp-TTImp-getFC arg-14) arg-14 (vector 1 e-6) e-10) e-3))))))))))))))))) (define ProcessRecord-TTImp-projVis (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (vector 2 ))(else (vector 0 )))))) (define ProcessRecord-TTImp-processRecord (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (ProcessRecord-TTImp-elabRecord arg-0 arg-1 arg-2 arg-3 arg-4 e-0 arg-6 arg-5 arg-7 arg-8 e-1 e-2 e-3 e-4 eta-0)))))))))) (define ProcessRecord-TTImp-mkDataTy (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 28 arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (vector 1 arg-0 e-10 e-14 (vector 1 e-6) e-15 (ProcessRecord-TTImp-mkDataTy arg-0 e-3)))))))))))))))))) -(define ProcessRecord-TTImp-elabRecord (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 arg-12) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((ProcessRecord-TTImp-n--8542-6162-elabAsData arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Context-Core-lookupTyExact e-5 (let ((sc3 e-7)) (let ((e-0 (vector-ref sc3 1))) e-0)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((act-28 (Context-Core-isUndottedRecordProjections arg-1 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 arg-8)) (case (vector-ref sc6 0) ((0) (let ((act-29 ((ProcessRecord-TTImp-n--8542-6164-elabGetters arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) e-5 0 (vector 0 ) (lambda (eta-0) (vector 5 eta-0)) (vector 0 ) e-1) ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((sc8 e-9)) (cond ((equal? sc8 0) ((ProcessRecord-TTImp-n--8542-6164-elabGetters arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) e-5 0 (vector 0 ) (lambda (eta-0) (vector 1 eta-0)) (vector 0 ) e-1) ext-0)) (else (vector 1 (vector 0 )))))))))) (else (let ((e-2 (vector-ref sc6 1))) (let ((cns (let ((sc7 e-7)) (let ((e-31 (vector-ref sc7 3))) e-31)))) (let ((nns (let ((sc7 e-7)) (let ((e-3 (vector-ref sc7 4))) e-3)))) (let ((act-29 (Context-Core-extendNS arg-1 (vector 1 e-2 (vector 0 )) ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((act-30 (Context-Core-getNS arg-1 ext-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-31 ((ProcessRecord-TTImp-n--8542-6164-elabGetters arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) e-5 0 (vector 0 ) (lambda (eta-0) (vector 5 eta-0)) (vector 0 ) e-1) ext-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((act-32 (let ((sc10 e-9)) (cond ((equal? sc10 0) ((ProcessRecord-TTImp-n--8542-6164-elabGetters arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) e-5 0 (vector 0 ) (lambda (eta-0) (vector 1 eta-0)) (vector 0 ) e-1) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((act-33 (let ((act-33 (unbox arg-1))) (vector 1 act-33)))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-34 (set-box! arg-1 (let ((sc12 e-14)) (let ((e-0 (vector-ref sc12 1))) (let ((e-37 (vector-ref sc12 2))) (let ((e-4 (vector-ref sc12 5))) (let ((e-35 (vector-ref sc12 6))) (let ((e-34 (vector-ref sc12 7))) (let ((e-33 (vector-ref sc12 8))) (let ((e-32 (vector-ref sc12 9))) (let ((e-31 (vector-ref sc12 10))) (let ((e-30 (vector-ref sc12 11))) (let ((e-29 (vector-ref sc12 12))) (let ((e-28 (vector-ref sc12 13))) (let ((e-27 (vector-ref sc12 14))) (let ((e-26 (vector-ref sc12 15))) (let ((e-15 (vector-ref sc12 16))) (let ((e-16 (vector-ref sc12 17))) (let ((e-17 (vector-ref sc12 18))) (let ((e-18 (vector-ref sc12 19))) (let ((e-19 (vector-ref sc12 20))) (let ((e-20 (vector-ref sc12 21))) (let ((e-21 (vector-ref sc12 22))) (let ((e-22 (vector-ref sc12 23))) (let ((e-23 (vector-ref sc12 24))) (let ((e-24 (vector-ref sc12 25))) (let ((e-25 (vector-ref sc12 26))) (vector 0 e-0 e-37 cns (vector 1 e-11 nns) e-4 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) (vector 1 act-34))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Adding " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) "failed"))) ext-0))))))))))))))))))))))))) -(define ProcessParams-TTImp-case--9276-6371 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (List-Prelude-C-43C-43 'erased arg-20 arg-16))) -(define ProcessParams-TTImp-case--9168-6279 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logEnv e-2 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "Param env" e-10 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (unbox arg-8))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((defNames (TTImp-TTImp-definedInBlock (let ((sc5 e-8)) (let ((e-33 (vector-ref sc5 3))) e-33)) arg-0))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessParams-TTImp-n--9168-6182-applyEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-10 eta-1 eta-2))) defNames) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((nestBlock (List-Prelude-C-43C-43 'erased e-9 e-11))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl e-2 arg-8 arg-7 arg-6 (vector 0 ) nestBlock e-10 eta-1)) arg-0) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))) -(define ProcessParams-TTImp-n--9168-6181-mkParamTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 28 arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 arg-2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 e-6) e-7 (ProcessParams-TTImp-n--9168-6181-mkParamTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3)))))))))))) -(define ProcessParams-TTImp-n--9168-6182-applyEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 ((Context-Core-resolveName arg-8 arg-11) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 0 (vector 9 e-5) (vector 0 (vector 0 ) (vector 0 (List-Data-reverse 'erased (Env-Core-allVars arg-9 arg-10)) (lambda (fc) (lambda (nt) (UnifyState-Core-applyToFull arg-9 fc (vector 1 fc nt (vector 9 e-5)) arg-10)))))))))))))) -(define ProcessParams-TTImp-processParams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((pty_raw (ProcessParams-TTImp-n--9168-6181-mkParamTy arg-8 arg-7 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 arg-7))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) arg-0 (vector 15 arg-6 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) pty_raw) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Checking " (TTImp-TTImp-show_Show__RawImp e-5))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 (Prelude-negate_Neg__Int 1) (vector 0 ) (vector 0 ) arg-4 arg-5 e-5 (Normalise-Core-gType 'erased arg-6) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((ProcessParams-TTImp-case--9168-6279 arg-8 arg-7 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 pty_raw e-5 e-6 e-7 (ProcessParams-TTImp-extend 'erased arg-0 arg-5 (vector 0 ) arg-4 e-7)) eta-0)))))))))))))))))))) +(define 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--8609-6170-elabAsData arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Context-Core-lookupTyExact e-5 (let ((sc3 e-7)) (let ((e-0 (vector-ref sc3 1))) e-0)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((act-28 (Context-Core-isUndottedRecordProjections arg-1 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 arg-8)) (case (vector-ref sc6 0) ((0) (let ((act-29 ((ProcessRecord-TTImp-n--8609-6172-elabGetters arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) e-5 0 (vector 0 ) (lambda (eta-0) (vector 5 eta-0)) (vector 0 ) e-1) ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((sc8 e-9)) (cond ((equal? sc8 0) ((ProcessRecord-TTImp-n--8609-6172-elabGetters arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) e-5 0 (vector 0 ) (lambda (eta-0) (vector 1 eta-0)) (vector 0 ) e-1) ext-0)) (else (vector 1 (vector 0 )))))))))) (else (let ((e-2 (vector-ref sc6 1))) (let ((cns (let ((sc7 e-7)) (let ((e-31 (vector-ref sc7 3))) e-31)))) (let ((nns (let ((sc7 e-7)) (let ((e-3 (vector-ref sc7 4))) e-3)))) (let ((act-29 (Context-Core-extendNS arg-1 (vector 1 e-2 (vector 0 )) ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((act-30 (Context-Core-getNS arg-1 ext-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-31 ((ProcessRecord-TTImp-n--8609-6172-elabGetters arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) e-5 0 (vector 0 ) (lambda (eta-0) (vector 5 eta-0)) (vector 0 ) e-1) ext-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((act-32 (let ((sc10 e-9)) (cond ((equal? sc10 0) ((ProcessRecord-TTImp-n--8609-6172-elabGetters arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) e-5 0 (vector 0 ) (lambda (eta-0) (vector 1 eta-0)) (vector 0 ) e-1) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((act-33 (let ((act-33 (unbox arg-1))) (vector 1 act-33)))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-34 (set-box! arg-1 (let ((sc12 e-14)) (let ((e-0 (vector-ref sc12 1))) (let ((e-37 (vector-ref sc12 2))) (let ((e-4 (vector-ref sc12 5))) (let ((e-35 (vector-ref sc12 6))) (let ((e-34 (vector-ref sc12 7))) (let ((e-33 (vector-ref sc12 8))) (let ((e-32 (vector-ref sc12 9))) (let ((e-31 (vector-ref sc12 10))) (let ((e-30 (vector-ref sc12 11))) (let ((e-29 (vector-ref sc12 12))) (let ((e-28 (vector-ref sc12 13))) (let ((e-27 (vector-ref sc12 14))) (let ((e-26 (vector-ref sc12 15))) (let ((e-15 (vector-ref sc12 16))) (let ((e-16 (vector-ref sc12 17))) (let ((e-17 (vector-ref sc12 18))) (let ((e-18 (vector-ref sc12 19))) (let ((e-19 (vector-ref sc12 20))) (let ((e-20 (vector-ref sc12 21))) (let ((e-21 (vector-ref sc12 22))) (let ((e-22 (vector-ref sc12 23))) (let ((e-23 (vector-ref sc12 24))) (let ((e-24 (vector-ref sc12 25))) (let ((e-25 (vector-ref sc12 26))) (vector 0 e-0 e-37 cns (vector 1 e-11 nns) e-4 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) (vector 1 act-34))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Adding " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) "failed"))) ext-0))))))))))))))))))))))))) +(define ProcessParams-TTImp-case--9327-6379 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (List-Prelude-C-43C-43 'erased arg-20 arg-16))) +(define ProcessParams-TTImp-case--9219-6287 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logEnv e-2 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "Param env" e-10 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (unbox arg-8))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((defNames (TTImp-TTImp-definedInBlock (let ((sc5 e-8)) (let ((e-33 (vector-ref sc5 3))) e-33)) arg-0))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessParams-TTImp-n--9219-6190-applyEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-10 eta-1 eta-2))) defNames) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((nestBlock (List-Prelude-C-43C-43 'erased e-9 e-11))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl e-2 arg-8 arg-7 arg-6 (vector 0 ) nestBlock e-10 eta-1)) arg-0) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))) +(define ProcessParams-TTImp-n--9219-6189-mkParamTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 28 arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 arg-2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 e-6) e-7 (ProcessParams-TTImp-n--9219-6189-mkParamTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3)))))))))))) +(define ProcessParams-TTImp-n--9219-6190-applyEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 ((Context-Core-resolveName arg-8 arg-11) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 0 (vector 9 e-5) (vector 0 (vector 0 ) (vector 0 (List-Data-reverse 'erased (Env-Core-allVars arg-9 arg-10)) (lambda (fc) (lambda (nt) (UnifyState-Core-applyToFull arg-9 fc (vector 1 fc nt (vector 9 e-5)) arg-10)))))))))))))) +(define ProcessParams-TTImp-processParams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((pty_raw (ProcessParams-TTImp-n--9219-6189-mkParamTy arg-8 arg-7 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 arg-7))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) arg-0 (vector 15 arg-6 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) pty_raw) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Checking " (TTImp-TTImp-show_Show__RawImp e-5))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 (Prelude-negate_Neg__Int 1) (vector 0 ) (vector 0 ) arg-4 arg-5 e-5 (Normalise-Core-gType 'erased arg-6) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((ProcessParams-TTImp-case--9219-6287 arg-8 arg-7 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 pty_raw e-5 e-6 e-7 (ProcessParams-TTImp-extend 'erased arg-0 arg-5 (vector 0 ) arg-4 e-7)) eta-0)))))))))))))))))))) (define ProcessParams-TTImp-extend (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (ProcessParams-TTImp-extend 'erased (vector 1 e-2 arg-1) (vector 1 (vector 2 e-6 e-7 e-8) arg-2) (vector 1 arg-3) (TTImp-TTImp-weaken_Weaken__NestedNames e-2 arg-1 arg-4) e-4)))))(else (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 arg-4))))))))))(else (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 arg-4)))))))) -(define ProcessData-TTImp-case--10987-9888 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-14 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) arg-21 eta-0))))))))))) -(define ProcessData-TTImp-case--11556-9673 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32) (let ((sc0 arg-32)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-31))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Previous") (vector 0 ) (let ((sc1 arg-22)) (let ((e-2 (vector-ref sc1 3))) e-2)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Now") (vector 0 ) arg-21 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0))))))))))))))) -(define ProcessData-TTImp-case--11436-9595 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((6) (let ((e-5 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__Term (vector 0 ) arg-17 (vector 0 ) arg-21 (let ((sc1 arg-22)) (let ((e-26 (vector-ref sc1 3))) e-26)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc1 1))) (let ((sc2 e-8)) (cond ((equal? sc2 0) (vector 1 e-5)) (else (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Previous") (vector 0 ) (let ((sc3 arg-22)) (let ((e-27 (vector-ref sc3 3))) e-27)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((act-26 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Now") (vector 0 ) arg-21 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0))))))) -(define ProcessData-TTImp-case--10987-9498 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((ndefm (vector 1 e-2))) (ProcessData-TTImp-case--11436-9595 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 e-2 ndefm (let ((sc1 e-2)) (let ((e-17 (vector-ref sc1 18))) e-17)))))))))) -(define ProcessData-TTImp-case--10987-9186 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-29)) (cond ((equal? sc0 0) (vector 0 )) (else arg-5))))) -(define ProcessData-TTImp-case--10418-9074 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((fullty (Env-Core-abstractEnvType arg-7 arg-4 arg-8 e-2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-14 (let ((sc1 arg-17)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((_-0 (vector 0 e-2 e-3))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-4 (vector-ref sc2 1))) (let ((ndefm (vector 1 e-4))) ((ProcessData-TTImp-case--11436-9595 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-3 e-2 _-0 fullty e-4 ndefm (let ((sc3 e-4)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0))))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name arg-14))) (vector 0 ) fullty eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-nf arg-7 arg-17 arg-8 e-2) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) ((ProcessData-TTImp-checkIsType 'erased arg-13 arg-6 arg-14 arg-8 e-8) eta-0)))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Normalise-Core-getArity (vector 0 ) arg-17 (vector 0 ) fullty eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Context-Core-addDef arg-13 arg-14 (Context-Core-newDef arg-6 arg-14 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-7 fullty arg-5 (vector 6 0 e-9 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((sc7 arg-5)) (case (vector-ref sc7 0) ((0) (vector 1 (vector 0 )))(else (let ((act-30 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-14 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) fullty eta-0)))))))))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((cvis (let ((_-0 (vector 0 e-2 e-3))) (ProcessData-TTImp-case--10987-9186 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-3 e-2 _-0 fullty e-5 e-6 e-7 e-8 e-9 e-10 e-11 (TT-Core-C-61C-61_Eq__Visibility arg-5 (vector 1 )))))) (let ((act-31 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-checkCon arg-7 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 cvis arg-3 (vector 9 e-10) eta-1)) arg-0) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((ddef (vector 0 (vector 0 arg-4 arg-14 e-9 fullty) e-12))) (let ((act-32 ((Context-Core-addData arg-13 arg-7 arg-5 e-10 ddef) eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-33 (let ((sc10 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-430 arg-431)))) (vector 4 ) arg-1)))) (cond ((equal? sc10 0) ((ProcessData-TTImp-findNewtype arg-13 e-12) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-34 (let ((act-34 (unbox arg-13))) (vector 1 act-34)))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-35 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 " defined in a mutual block with " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-6)))) eta-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((act-36 (Context-Core-setMutWith arg-13 arg-6 (vector 9 e-10) e-6 eta-0))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-37 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-processDataOpt arg-13 arg-6 (vector 9 e-10) eta-1)) arg-1) eta-0))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((act-38 (Context-Core-dropMutData arg-13 (vector 9 e-10) eta-0))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-39 ((ProcessData-TTImp-getDetags arg-13 arg-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc16 eta-1)) (let ((e-4 (vector-ref sc16 4))) e-4))) e-12)) eta-0))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-40 (Context-Core-setDetags arg-13 arg-6 (vector 9 e-10) e-20 eta-0))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((act-41 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-13 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))) eta-0))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((act-42 (Context-Core-addToSave arg-13 arg-14 eta-0))) (let ((sc19 act-42)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (vector 0 e-4))) (else (let ((act-43 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))))))) eta-0))) (let ((sc20 act-43)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (let ((connames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-conName eta-1)) e-12))) (let ((act-44 (let ((sc21 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-430 arg-431)))) (vector 1 ) arg-1)))) (cond ((equal? sc21 0) ((Core-Core-traverse_ 'erased 'erased (lambda (x) (lambda (eta-1) (Context-Core-addHintFor arg-13 arg-6 (vector 9 e-10) x 0 1 eta-1))) connames) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc21 act-44)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (vector 0 e-4))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-Elab-TTImp-updateErasable arg-13 eta-1 eta-2))) (vector 1 (vector 9 e-10) connames)) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define ProcessData-TTImp-case--10533-8840 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-12 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) arg-19 eta-0))))))))))) -(define ProcessData-TTImp-case--10462-8653 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((fullty (Env-Core-abstractEnvType arg-5 arg-2 arg-6 e-2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name arg-12))) (vector 0 ) fullty eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 ((Normalise-Core-nf arg-5 arg-14 arg-6 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessData-TTImp-checkIsType 'erased arg-11 arg-4 arg-12 arg-6 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (Normalise-Core-getArity (vector 0 ) arg-14 (vector 0 ) fullty eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-addDef arg-11 arg-12 (Context-Core-newDef arg-4 arg-12 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 fullty arg-3 (vector 6 0 e-7 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-addMutData arg-11 (vector 9 e-8) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-29 (let ((act-29 (unbox arg-11))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (Context-Core-setMutWith arg-11 arg-4 n (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 2))) e-1)) eta-1))) (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 2))) e-1))) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-11 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 (Context-Core-addToSave arg-11 arg-12 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-33 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))))))) eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-34 (let ((sc11 arg-3)) (case (vector-ref sc11 0) ((0) (vector 1 (vector 0 )))(else (let ((act-34 (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-12 eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) fullty eta-0)))))))))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-35 (let ((sc12 (TT-Core-C-47C-61_Eq__Visibility arg-3 (vector 0 )))) (cond ((equal? sc12 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-11 arg-4 arg-12 arg-3 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define ProcessData-TTImp-case--10418-8595 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-resolveName arg-11 arg-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 57 arg-4 arg-12 eta-1))) (Elab-TTImp-elabTerm arg-5 arg-11 arg-10 arg-9 e-5 (vector 0 ) arg-8 arg-7 arg-6 (vector 15 arg-4 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-13) (vector 1 (Normalise-Core-gType 'erased arg-2)))) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((fullty (Env-Core-abstractEnvType arg-5 arg-2 arg-6 e-2))) (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name arg-12))) (vector 0 ) fullty eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 ((Normalise-Core-nf arg-5 arg-14 arg-6 e-2) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) ((ProcessData-TTImp-checkIsType 'erased arg-11 arg-4 arg-12 arg-6 e-7) eta-0)))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-27 (Normalise-Core-getArity (vector 0 ) arg-14 (vector 0 ) fullty eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (Context-Core-addDef arg-11 arg-12 (Context-Core-newDef arg-4 arg-12 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 fullty arg-3 (vector 6 0 e-8 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (Context-Core-addMutData arg-11 (vector 9 e-9) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (unbox arg-11))) (vector 1 act-30)))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-31 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (Context-Core-setMutWith arg-11 arg-4 n (let ((sc9 e-11)) (let ((e-1 (vector-ref sc9 2))) e-1)) eta-1))) (let ((sc9 e-11)) (let ((e-1 (vector-ref sc9 2))) e-1))) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-11 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-33 (Context-Core-addToSave arg-11 arg-12 eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-34 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))))))) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((act-35 (let ((sc13 arg-3)) (case (vector-ref sc13 0) ((0) (vector 1 (vector 0 )))(else (let ((act-35 (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-12 eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) fullty eta-0)))))))))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-36 (let ((sc14 (TT-Core-C-47C-61_Eq__Visibility arg-3 (vector 0 )))) (cond ((equal? sc14 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-11 arg-4 arg-12 arg-3 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-4 arg-12) eta-0))))))) -(define ProcessData-TTImp-case--10349-8512 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 1 (vector 5 e-0 e-1 (vector 1 arg-3))))))(else (vector 0 )))))) -(define ProcessData-TTImp-case--10314-8498 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-updateDef arg-1 (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 2))) e-4)) (lambda (d) (let ((sc1 d)) (case (vector-ref sc1 0) ((5) (let ((e-0 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 1 (vector 5 e-0 e-3 (vector 1 e-1))))))(else (vector 0 ))))) eta-0)))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessData-TTImp-case--10165-8362 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((19) (lambda () (lambda (eta-0) (let ((act-24 (((arg-4 arg-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) ((ProcessData-TTImp-getRelevantArg arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-8) arg-7 1 e-5) eta-0)))))))))(else (lambda () (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-24 (((arg-4 arg-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessData-TTImp-getRelevantArg arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-8) (vector 1 arg-8) 1 e-5) eta-0)))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 0 ))))) arg-7)))))))(else (lambda () (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-24 (((arg-4 arg-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((ProcessData-TTImp-getRelevantArg arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-8) (vector 1 arg-8) 1 e-5) eta-0)))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 0 ))))) arg-7))))))) -(define ProcessData-TTImp-case--9575-8296 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 arg-4)))))))) -(define ProcessData-TTImp-case--9602-8239 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 arg-5 arg-6)))) (else (lambda (eta-0) (vector 1 arg-6))))))) -(define ProcessData-TTImp-case--9601-8190 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (ProcessData-TTImp-n--9575-7813-allDisjointWith arg-0 arg-1 arg-2 arg-3 arg-4)) (else (lambda (eta-0) (vector 1 1))))))) -(define ProcessData-TTImp-case--9600-8136 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (ProcessData-TTImp-n--9575-7813-allDisjointWith arg-0 arg-1 arg-2 arg-5 arg-4)) (else (lambda (eta-0) (vector 1 1))))))) -(define ProcessData-TTImp-case--9599-8006 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) arg-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) arg-11) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((ProcessData-TTImp-n--9575-7811-disjointArgs arg-0 arg-1 arg-2 e-6 e-7) eta-0)))))))))))))))))))))) -(define ProcessData-TTImp-case--9599-7901 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) arg-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) arg-11) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((ProcessData-TTImp-n--9575-7811-disjointArgs arg-0 arg-1 arg-2 e-6 e-7) eta-0)))))))))))))))))))))) -(define ProcessData-TTImp-case--9598-7848 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (ProcessData-TTImp-n--9575-7811-disjointArgs arg-0 arg-1 arg-2 arg-4 arg-6)))))) -(define ProcessData-TTImp-case--9131-7542 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (let ((act-24 (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-13 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) arg-21 eta-0)))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessData-TTImp-case--9052-7379 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-resolveName arg-12 arg-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-9 (lambda (eta-1) (vector 57 arg-2 arg-13 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTerm arg-6 arg-12 arg-11 arg-10 e-5 (vector 0 ) arg-9 arg-8 arg-7 (vector 15 arg-2 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-14) (Normalise-Core-gType 'erased arg-2) eta-1))) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-nf arg-6 arg-17 arg-7 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessData-TTImp-checkFamily 'erased arg-12 arg-2 arg-13 arg-3 arg-7 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((fullty (Env-Core-abstractEnvType arg-6 arg-2 arg-7 e-5))) (let ((act-26 (Normalise-Core-logTermNF (vector 0 ) arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Constructor " (Name-Core-show_Show__Name arg-13))) (vector 0 ) fullty eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-12 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-5))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (Context-Core-addToSave arg-12 arg-13 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-13) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-5))))))) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-30 (let ((sc7 arg-5)) (case (vector-ref sc7 0) ((2) (let ((act-30 (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-13 eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) fullty eta-0))))))(else (vector 1 (vector 0 ))))))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-31 (let ((sc8 (TT-Core-C-47C-61_Eq__Visibility arg-5 (vector 0 )))) (cond ((equal? sc8 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-12 arg-2 arg-13 arg-5 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-32 (Normalise-Core-getArity (vector 0 ) arg-17 (vector 0 ) fullty eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (vector 1 (vector 0 arg-2 arg-13 e-13 fullty))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-2 arg-13) eta-0))))))) -(define ProcessData-TTImp-case--9010-7279 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 0 arg-4 arg-1)) (else (vector 0 arg-4 arg-3)))))) -(define ProcessData-TTImp-case--8846-7185 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 10 arg-5 arg-4 arg-3) eta-0))))))) -(define ProcessData-TTImp-case--8829-7134 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((10) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 10 arg-5 arg-4 arg-3) eta-0))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (let ((nf (vector 3 e-3 e-4 e-5 e-6 e-7))) (ProcessData-TTImp-case--8846-7185 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-5 e-6 e-7 e-4 nf (Name-Core-C-61C-61_Eq__Name arg-3 e-4)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 10 arg-5 arg-4 arg-3) eta-0))))))) -(define ProcessData-TTImp-case--8770-7081 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((10) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 9 arg-4 arg-3) eta-0))))))) -(define ProcessData-TTImp-n--8999-7270-updateNSApp (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (ProcessData-TTImp-case--9010-7279 arg-0 arg-1 arg-2 e-1 e-0 (Name-Core-C-61C-61_Eq__Name e-1 arg-2))))) ((8) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 8 e-2 (ProcessData-TTImp-n--8999-7270-updateNSApp arg-0 arg-1 arg-2 e-3) e-4))))) ((9) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 9 e-5 (ProcessData-TTImp-n--8999-7270-updateNSApp arg-0 arg-1 arg-2 e-6) e-7 e-8))))))(else arg-3))))) -(define ProcessData-TTImp-n--9499-7717-getRetType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-4 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((ProcessData-TTImp-n--9499-7717-getRetType arg-0 arg-1 arg-2 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-3)))))))))(else (lambda (eta-0) (vector 1 arg-3))))))) -(define ProcessData-TTImp-n--9499-7718-getPats (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-5 (vector-ref sc0 5))) (Core-Core-traverse 'erased 'erased (lambda (eta-0) (Normalise-Core-evalClosure (vector 0 ) arg-2 eta-0)) e-5)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessData-TTImp-n--9575-7815-getDisjointPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessData-TTImp-n--9575-7815-getDisjointPos arg-0 arg-1 arg-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-3) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ProcessData-TTImp-n--9575-7814-allDisjoint arg-0 arg-1 arg-2 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 (vector 1 arg-3 e-5))) (else (vector 1 e-5)))))))))))))))))))))) -(define ProcessData-TTImp-n--9575-7811-disjointArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1)))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1)))(else (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((ProcessData-TTImp-n--9575-7812-disjoint arg-0 arg-1 arg-2 e-1 e-4) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 0)) (else ((ProcessData-TTImp-n--9575-7811-disjointArgs arg-0 arg-1 arg-2 e-2 e-5) eta-0)))))))))))))))))))))))) -(define ProcessData-TTImp-n--9575-7812-disjoint (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((2) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (let ((e-19 (vector-ref sc1 4))) (let ((e-20 (vector-ref sc1 5))) (ProcessData-TTImp-case--9599-7901 arg-0 arg-1 arg-2 e-16 e-17 e-19 e-1 e-2 e-4 e-5 e-3 e-20 e-18 (Prelude-C-47C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((3) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((2) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 4))) (let ((e-26 (vector-ref sc1 5))) (ProcessData-TTImp-case--9599-8006 arg-0 arg-1 arg-2 e-22 e-24 e-25 e-7 e-9 e-10 e-11 e-8 e-26 e-23 (Name-Core-C-47C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((8) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) -(define ProcessData-TTImp-n--9575-7813-allDisjointWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((9) (lambda (eta-0) (vector 1 1)))(else (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessData-TTImp-n--9575-7812-disjoint arg-0 arg-1 arg-2 arg-3 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) ((ProcessData-TTImp-n--9575-7813-allDisjointWith arg-0 arg-1 arg-2 arg-3 e-2) eta-0)) (else (vector 1 1))))))))))))))))))))) -(define ProcessData-TTImp-n--9575-7814-allDisjoint (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (let ((act-24 ((ProcessData-TTImp-n--9575-7814-allDisjoint arg-0 arg-1 arg-2 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) ((ProcessData-TTImp-n--9575-7813-allDisjointWith arg-0 arg-1 arg-2 e-2 e-3) eta-0)) (else (vector 1 1)))))))))))))))))))) -(define ProcessData-TTImp-updateNS (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 1 e-0 e-1 e-2 e-3 e-4 (ProcessData-TTImp-updateNS arg-0 arg-1 e-5)))))))))(else (ProcessData-TTImp-n--8999-7270-updateNSApp arg-2 arg-1 arg-0 arg-2)))))) +(define ProcessData-TTImp-case--11053-9953 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__Name arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Name arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) arg-14 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) arg-21 eta-0))))))))))) +(define ProcessData-TTImp-case--11622-9742 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31) (let ((sc0 arg-31)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-30))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Previous") (vector 0 ) (let ((sc1 arg-22)) (let ((e-2 (vector-ref sc1 3))) e-2)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Now") (vector 0 ) arg-21 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0))))))))))))))) +(define ProcessData-TTImp-case--11502-9664 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((6) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__Term (vector 0 ) arg-17 (vector 0 ) arg-21 (let ((sc2 arg-22)) (let ((e-26 (vector-ref sc2 3))) e-26)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (cond ((equal? sc3 0) (vector 1 e-5)) (else (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Previous") (vector 0 ) (let ((sc4 arg-22)) (let ((e-27 (vector-ref sc4 3))) e-27)) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((act-26 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Now") (vector 0 ) arg-21 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0)))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0))))))) +(define ProcessData-TTImp-case--11053-9567 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((ndefm (vector 1 e-2))) (ProcessData-TTImp-case--11502-9664 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 e-2 ndefm (let ((sc1 e-2)) (let ((e-17 (vector-ref sc1 18))) e-17)))))))))) +(define ProcessData-TTImp-case--11053-9255 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-29)) (cond ((equal? sc0 0) (vector 0 )) (else arg-5))))) +(define ProcessData-TTImp-case--10484-9143 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((fullty (Env-Core-abstractEnvType arg-7 arg-4 arg-8 e-2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-14 (let ((sc1 arg-17)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((_-0 (vector 0 e-2 e-3))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-4 (vector-ref sc2 1))) (let ((ndefm (vector 1 e-4))) ((ProcessData-TTImp-case--11502-9664 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-3 e-2 _-0 fullty e-4 ndefm (let ((sc3 e-4)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0))))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name arg-14))) (vector 0 ) fullty eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-nf arg-7 arg-17 arg-8 e-2) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) ((ProcessData-TTImp-checkIsType 'erased arg-13 arg-6 arg-14 arg-8 e-8) eta-0)))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Normalise-Core-getArity (vector 0 ) arg-17 (vector 0 ) fullty eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Context-Core-addDef arg-13 arg-14 (Context-Core-newDef arg-6 arg-14 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-7 fullty arg-5 (vector 6 0 e-9 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((sc7 arg-5)) (case (vector-ref sc7 0) ((0) (vector 1 (vector 0 )))(else (let ((act-30 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__Name arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Name arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) arg-14 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) fullty eta-0)))))))))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((cvis (let ((_-0 (vector 0 e-2 e-3))) (ProcessData-TTImp-case--11053-9255 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-3 e-2 _-0 fullty e-5 e-6 e-7 e-8 e-9 e-10 e-11 (TT-Core-C-61C-61_Eq__Visibility arg-5 (vector 1 )))))) (let ((act-31 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-checkCon arg-7 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 cvis arg-3 (vector 9 e-10) eta-1)) arg-0) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((ddef (vector 0 (vector 0 arg-4 arg-14 e-9 fullty) e-12))) (let ((act-32 ((Context-Core-addData arg-13 arg-7 arg-5 e-10 ddef) eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-33 (let ((sc10 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-438 arg-439)))) (vector 4 ) arg-1)))) (cond ((equal? sc10 0) ((ProcessData-TTImp-findNewtype arg-13 e-12) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-34 (let ((act-34 (unbox arg-13))) (vector 1 act-34)))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-35 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 " defined in a mutual block with " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-6)))) eta-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((act-36 (Context-Core-setMutWith arg-13 arg-6 (vector 9 e-10) e-6 eta-0))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-37 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-processDataOpt arg-13 arg-6 (vector 9 e-10) eta-1)) arg-1) eta-0))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((act-38 (Context-Core-dropMutData arg-13 (vector 9 e-10) eta-0))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-39 ((ProcessData-TTImp-getDetags arg-13 arg-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc16 eta-1)) (let ((e-4 (vector-ref sc16 4))) e-4))) e-12)) eta-0))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-40 (Context-Core-setDetags arg-13 arg-6 (vector 9 e-10) e-20 eta-0))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((act-41 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-13 eta-1 eta-2))) ((NameMap-Data-keys 'erased) (TT-Core-getMetas 'erased e-2))) eta-0))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((act-42 (Context-Core-addToSave arg-13 arg-14 eta-0))) (let ((sc19 act-42)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (vector 0 e-4))) (else (let ((act-43 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) ((NameMap-Data-keys 'erased) (TT-Core-getMetas 'erased e-2))))))) eta-0))) (let ((sc20 act-43)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (let ((connames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-conName eta-1)) e-12))) (let ((act-44 (let ((sc21 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-438 arg-439)))) (vector 1 ) arg-1)))) (cond ((equal? sc21 0) ((Core-Core-traverse_ 'erased 'erased (lambda (x) (lambda (eta-1) (Context-Core-addHintFor arg-13 arg-6 (vector 9 e-10) x 0 1 eta-1))) connames) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc21 act-44)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (vector 0 e-4))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-Elab-TTImp-updateErasable arg-13 eta-1 eta-2))) (vector 1 (vector 9 e-10) connames)) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define ProcessData-TTImp-case--10599-8909 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__Name arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Name arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) arg-12 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) arg-19 eta-0))))))))))) +(define ProcessData-TTImp-case--10528-8722 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((fullty (Env-Core-abstractEnvType arg-5 arg-2 arg-6 e-2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name arg-12))) (vector 0 ) fullty eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 ((Normalise-Core-nf arg-5 arg-14 arg-6 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessData-TTImp-checkIsType 'erased arg-11 arg-4 arg-12 arg-6 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (Normalise-Core-getArity (vector 0 ) arg-14 (vector 0 ) fullty eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-addDef arg-11 arg-12 (Context-Core-newDef arg-4 arg-12 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 fullty arg-3 (vector 6 0 e-7 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-addMutData arg-11 (vector 9 e-8) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-29 (let ((act-29 (unbox arg-11))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (Context-Core-setMutWith arg-11 arg-4 n (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 2))) e-1)) eta-1))) (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 2))) e-1))) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-11 eta-1 eta-2))) ((NameMap-Data-keys 'erased) (TT-Core-getMetas 'erased e-2))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 (Context-Core-addToSave arg-11 arg-12 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-33 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) ((NameMap-Data-keys 'erased) (TT-Core-getMetas 'erased e-2))))))) eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-34 (let ((sc11 arg-3)) (case (vector-ref sc11 0) ((0) (vector 1 (vector 0 )))(else (let ((act-34 (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__Name arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Name arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) arg-12 eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) fullty eta-0)))))))))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-35 (let ((sc12 (TT-Core-C-47C-61_Eq__Visibility arg-3 (vector 0 )))) (cond ((equal? sc12 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-11 arg-4 arg-12 arg-3 (vector 0 ) eta-1 eta-2))) ((NameMap-Data-keys 'erased) (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define ProcessData-TTImp-case--10484-8664 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-resolveName arg-11 arg-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 57 arg-4 arg-12 eta-1))) (Elab-TTImp-elabTerm arg-5 arg-11 arg-10 arg-9 e-5 (vector 0 ) arg-8 arg-7 arg-6 (vector 15 arg-4 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-13) (vector 1 (Normalise-Core-gType 'erased arg-2)))) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((fullty (Env-Core-abstractEnvType arg-5 arg-2 arg-6 e-2))) (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name arg-12))) (vector 0 ) fullty eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 ((Normalise-Core-nf arg-5 arg-14 arg-6 e-2) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) ((ProcessData-TTImp-checkIsType 'erased arg-11 arg-4 arg-12 arg-6 e-7) eta-0)))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-27 (Normalise-Core-getArity (vector 0 ) arg-14 (vector 0 ) fullty eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (Context-Core-addDef arg-11 arg-12 (Context-Core-newDef arg-4 arg-12 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 fullty arg-3 (vector 6 0 e-8 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (Context-Core-addMutData arg-11 (vector 9 e-9) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (unbox arg-11))) (vector 1 act-30)))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-31 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (Context-Core-setMutWith arg-11 arg-4 n (let ((sc9 e-11)) (let ((e-1 (vector-ref sc9 2))) e-1)) eta-1))) (let ((sc9 e-11)) (let ((e-1 (vector-ref sc9 2))) e-1))) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-11 eta-1 eta-2))) ((NameMap-Data-keys 'erased) (TT-Core-getMetas 'erased e-2))) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-33 (Context-Core-addToSave arg-11 arg-12 eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-34 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) ((NameMap-Data-keys 'erased) (TT-Core-getMetas 'erased e-2))))))) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((act-35 (let ((sc13 arg-3)) (case (vector-ref sc13 0) ((0) (vector 1 (vector 0 )))(else (let ((act-35 (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__Name arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Name arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) arg-12 eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) fullty eta-0)))))))))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-36 (let ((sc14 (TT-Core-C-47C-61_Eq__Visibility arg-3 (vector 0 )))) (cond ((equal? sc14 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-11 arg-4 arg-12 arg-3 (vector 0 ) eta-1 eta-2))) ((NameMap-Data-keys 'erased) (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-4 arg-12) eta-0))))))) +(define ProcessData-TTImp-case--10415-8581 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 1 (vector 5 e-0 e-1 (vector 1 arg-3))))))(else (vector 0 )))))) +(define ProcessData-TTImp-case--10380-8567 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-updateDef arg-1 (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 2))) e-4)) (lambda (d) (let ((sc1 d)) (case (vector-ref sc1 0) ((5) (let ((e-0 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 1 (vector 5 e-0 e-3 (vector 1 e-1))))))(else (vector 0 ))))) eta-0)))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessData-TTImp-case--10231-8431 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((19) (lambda () (lambda (eta-0) (let ((act-24 (((arg-4 arg-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) ((ProcessData-TTImp-getRelevantArg arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-8) arg-7 1 e-5) eta-0)))))))))(else (lambda () (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-24 (((arg-4 arg-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessData-TTImp-getRelevantArg arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-8) (vector 1 arg-8) 1 e-5) eta-0)))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 0 ))))) arg-7)))))))(else (lambda () (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-24 (((arg-4 arg-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((ProcessData-TTImp-getRelevantArg arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-8) (vector 1 arg-8) 1 e-5) eta-0)))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 0 ))))) arg-7))))))) +(define ProcessData-TTImp-case--9641-8365 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 arg-4)))))))) +(define ProcessData-TTImp-case--9668-8308 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 arg-5 arg-6)))) (else (lambda (eta-0) (vector 1 arg-6))))))) +(define ProcessData-TTImp-case--9667-8259 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (ProcessData-TTImp-n--9641-7882-allDisjointWith arg-0 arg-1 arg-2 arg-3 arg-4)) (else (lambda (eta-0) (vector 1 1))))))) +(define ProcessData-TTImp-case--9666-8205 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (ProcessData-TTImp-n--9641-7882-allDisjointWith arg-0 arg-1 arg-2 arg-5 arg-4)) (else (lambda (eta-0) (vector 1 1))))))) +(define ProcessData-TTImp-case--9665-8075 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) arg-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) arg-11) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((ProcessData-TTImp-n--9641-7880-disjointArgs arg-0 arg-1 arg-2 e-6 e-7) eta-0)))))))))))))))))))))) +(define ProcessData-TTImp-case--9665-7970 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) arg-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) arg-11) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((ProcessData-TTImp-n--9641-7880-disjointArgs arg-0 arg-1 arg-2 e-6 e-7) eta-0)))))))))))))))))))))) +(define ProcessData-TTImp-case--9664-7917 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (ProcessData-TTImp-n--9641-7880-disjointArgs arg-0 arg-1 arg-2 arg-4 arg-6)))))) +(define ProcessData-TTImp-case--9197-7611 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (let ((act-24 (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__Name arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Name arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) arg-13 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) arg-21 eta-0)))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessData-TTImp-case--9118-7448 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-resolveName arg-12 arg-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-9 (lambda (eta-1) (vector 57 arg-2 arg-13 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTerm arg-6 arg-12 arg-11 arg-10 e-5 (vector 0 ) arg-9 arg-8 arg-7 (vector 15 arg-2 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-14) (Normalise-Core-gType 'erased arg-2) eta-1))) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-nf arg-6 arg-17 arg-7 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessData-TTImp-checkFamily 'erased arg-12 arg-2 arg-13 arg-3 arg-7 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((fullty (Env-Core-abstractEnvType arg-6 arg-2 arg-7 e-5))) (let ((act-26 (Normalise-Core-logTermNF (vector 0 ) arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Constructor " (Name-Core-show_Show__Name arg-13))) (vector 0 ) fullty eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-12 eta-1 eta-2))) ((NameMap-Data-keys 'erased) (TT-Core-getMetas 'erased e-5))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (Context-Core-addToSave arg-12 arg-13 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-13) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) ((NameMap-Data-keys 'erased) (TT-Core-getMetas 'erased e-5))))))) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-30 (let ((sc7 arg-5)) (case (vector-ref sc7 0) ((2) (let ((act-30 (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__Name arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Name arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) arg-13 eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) fullty eta-0))))))(else (vector 1 (vector 0 ))))))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-31 (let ((sc8 (TT-Core-C-47C-61_Eq__Visibility arg-5 (vector 0 )))) (cond ((equal? sc8 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-12 arg-2 arg-13 arg-5 (vector 0 ) eta-1 eta-2))) ((NameMap-Data-keys 'erased) (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-32 (Normalise-Core-getArity (vector 0 ) arg-17 (vector 0 ) fullty eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (vector 1 (vector 0 arg-2 arg-13 e-13 fullty))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-2 arg-13) eta-0))))))) +(define ProcessData-TTImp-case--9076-7348 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 0 arg-4 arg-1)) (else (vector 0 arg-4 arg-3)))))) +(define ProcessData-TTImp-case--8912-7254 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 10 arg-5 arg-4 arg-3) eta-0))))))) +(define ProcessData-TTImp-case--8895-7203 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((10) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 10 arg-5 arg-4 arg-3) eta-0))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (let ((nf (vector 3 e-3 e-4 e-5 e-6 e-7))) (ProcessData-TTImp-case--8912-7254 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-5 e-6 e-7 e-4 nf (Name-Core-C-61C-61_Eq__Name arg-3 e-4)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 10 arg-5 arg-4 arg-3) eta-0))))))) +(define ProcessData-TTImp-case--8836-7150 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((10) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 9 arg-4 arg-3) eta-0))))))) +(define ProcessData-TTImp-n--9065-7339-updateNSApp (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (ProcessData-TTImp-case--9076-7348 arg-0 arg-1 arg-2 e-1 e-0 (Name-Core-C-61C-61_Eq__Name e-1 arg-2))))) ((8) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 8 e-2 (ProcessData-TTImp-n--9065-7339-updateNSApp arg-0 arg-1 arg-2 e-3) e-4))))) ((9) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 9 e-5 (ProcessData-TTImp-n--9065-7339-updateNSApp arg-0 arg-1 arg-2 e-6) e-7 e-8))))))(else arg-3))))) +(define ProcessData-TTImp-n--9565-7786-getRetType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-4 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((ProcessData-TTImp-n--9565-7786-getRetType arg-0 arg-1 arg-2 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-3)))))))))(else (lambda (eta-0) (vector 1 arg-3))))))) +(define ProcessData-TTImp-n--9565-7787-getPats (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-5 (vector-ref sc0 5))) (Core-Core-traverse 'erased 'erased (lambda (eta-0) (Normalise-Core-evalClosure (vector 0 ) arg-2 eta-0)) e-5)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessData-TTImp-n--9641-7884-getDisjointPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessData-TTImp-n--9641-7884-getDisjointPos arg-0 arg-1 arg-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-3) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ProcessData-TTImp-n--9641-7883-allDisjoint arg-0 arg-1 arg-2 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 (vector 1 arg-3 e-5))) (else (vector 1 e-5)))))))))))))))))))))) +(define ProcessData-TTImp-n--9641-7880-disjointArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1)))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1)))(else (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((ProcessData-TTImp-n--9641-7881-disjoint arg-0 arg-1 arg-2 e-1 e-4) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 0)) (else ((ProcessData-TTImp-n--9641-7880-disjointArgs arg-0 arg-1 arg-2 e-2 e-5) eta-0)))))))))))))))))))))))) +(define ProcessData-TTImp-n--9641-7881-disjoint (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((2) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (let ((e-19 (vector-ref sc1 4))) (let ((e-20 (vector-ref sc1 5))) (ProcessData-TTImp-case--9665-7970 arg-0 arg-1 arg-2 e-16 e-17 e-19 e-1 e-2 e-4 e-5 e-3 e-20 e-18 (Prelude-C-47C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((3) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((2) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 4))) (let ((e-26 (vector-ref sc1 5))) (ProcessData-TTImp-case--9665-8075 arg-0 arg-1 arg-2 e-22 e-24 e-25 e-7 e-9 e-10 e-11 e-8 e-26 e-23 (Name-Core-C-47C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((8) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) +(define ProcessData-TTImp-n--9641-7882-allDisjointWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((9) (lambda (eta-0) (vector 1 1)))(else (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessData-TTImp-n--9641-7881-disjoint arg-0 arg-1 arg-2 arg-3 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) ((ProcessData-TTImp-n--9641-7882-allDisjointWith arg-0 arg-1 arg-2 arg-3 e-2) eta-0)) (else (vector 1 1))))))))))))))))))))) +(define ProcessData-TTImp-n--9641-7883-allDisjoint (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (let ((act-24 ((ProcessData-TTImp-n--9641-7883-allDisjoint arg-0 arg-1 arg-2 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) ((ProcessData-TTImp-n--9641-7882-allDisjointWith arg-0 arg-1 arg-2 e-2 e-3) eta-0)) (else (vector 1 1)))))))))))))))))))) +(define ProcessData-TTImp-updateNS (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 1 e-0 e-1 e-2 e-3 e-4 (ProcessData-TTImp-updateNS arg-0 arg-1 e-5)))))))))(else (ProcessData-TTImp-n--9065-7339-updateNSApp arg-2 arg-1 arg-0 arg-2)))))) (define ProcessData-TTImp-processDataOpt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setDetermining arg-0 arg-1 arg-2 e-0 eta-0)))) ((2) (lambda (eta-0) (Context-Core-setUniqueSearch arg-0 arg-1 arg-2 0 eta-0))) ((3) (lambda (eta-0) (Context-Core-setExternal arg-0 arg-1 arg-2 0 eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessData-TTImp-processData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) arg-0 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Context-Core-lookupCtxtExact e-5 (let ((sc4 e-7)) (let ((e-31 (vector-ref sc4 1))) e-31))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((act-28 (let ((act-28 ((Context-Core-resolveName arg-1 e-5) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 57 arg-7 e-5 eta-1))) (Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 e-9 (vector 0 ) arg-4 arg-5 arg-6 (vector 15 arg-7 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-6) (vector 1 (Normalise-Core-gType 'erased e-0)))) eta-0)))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (let ((e-4 (vector-ref sc7 1))) (let ((fullty (Env-Core-abstractEnvType arg-0 e-0 arg-6 e-4))) (let ((act-29 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name e-5))) (vector 0 ) fullty eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((act-30 (let ((act-30 ((Normalise-Core-nf arg-0 e-7 arg-6 e-4) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) ((ProcessData-TTImp-checkIsType 'erased arg-1 arg-7 e-5 arg-6 e-11) eta-0)))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((act-31 (Normalise-Core-getArity (vector 0 ) e-7 (vector 0 ) fullty eta-0))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc10 1))) (let ((act-32 (Context-Core-addDef arg-1 e-5 (Context-Core-newDef arg-7 e-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-0 fullty arg-8 (vector 6 0 e-12 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-33 (Context-Core-addMutData arg-1 (vector 9 e-13) eta-0))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-14 (vector-ref sc12 1))) (vector 0 e-14))) (else (let ((act-34 (let ((act-34 (unbox arg-1))) (vector 1 act-34)))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-15 (vector-ref sc13 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc13 1))) (let ((act-35 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (Context-Core-setMutWith arg-1 arg-7 n (let ((sc14 e-15)) (let ((e-40 (vector-ref sc14 2))) e-40)) eta-1))) (let ((sc14 e-15)) (let ((e-40 (vector-ref sc14 2))) e-40))) eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-16 (vector-ref sc14 1))) (vector 0 e-16))) (else (let ((act-36 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-4))) eta-0))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-17 (vector-ref sc15 1))) (vector 0 e-17))) (else (let ((act-37 (Context-Core-addToSave arg-1 e-5 eta-0))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-18 (vector-ref sc16 1))) (vector 0 e-18))) (else (let ((act-38 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-4))))))) eta-0))) (let ((sc17 act-38)) (case (vector-ref sc17 0) ((0) (let ((e-19 (vector-ref sc17 1))) (vector 0 e-19))) (else (let ((act-39 (let ((sc18 arg-8)) (case (vector-ref sc18 0) ((0) (vector 1 (vector 0 )))(else (let ((act-39 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-5 eta-0))) (let ((sc18 act-39)) (case (vector-ref sc18 0) ((0) (let ((e-20 (vector-ref sc18 1))) (vector 0 e-20))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) fullty eta-0)))))))))) (let ((sc18 act-39)) (case (vector-ref sc18 0) ((0) (let ((e-20 (vector-ref sc18 1))) (vector 0 e-20))) (else (let ((act-40 (let ((sc19 (TT-Core-C-47C-61_Eq__Visibility arg-8 (vector 0 )))) (cond ((equal? sc19 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-1 arg-7 e-5 arg-8 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc19 act-40)) (case (vector-ref sc19 0) ((0) (let ((e-21 (vector-ref sc19 1))) (vector 0 e-21))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-7 e-5) eta-0))))))))))))))))))))))))))))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) arg-0 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-26 (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 "Processing " (Name-Core-show_Show__Name e-8))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 ((Context-Core-resolveName arg-1 e-8) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc5 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 57 arg-7 e-8 eta-1))) (Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 e-12 (vector 0 ) arg-4 arg-5 arg-6 (vector 15 arg-7 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-9) (vector 1 (Normalise-Core-gType 'erased e-3)))) eta-0)))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc5 1))) (let ((sc6 e-12)) (let ((e-2 (vector-ref sc6 1))) (let ((e-13 (vector-ref sc6 2))) (let ((fullty (Env-Core-abstractEnvType arg-0 e-3 arg-6 e-2))) (let ((act-29 ((Context-Core-lookupCtxtExact e-8 (let ((sc7 e-11)) (let ((e-0 (vector-ref sc7 1))) e-0))) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-14 (vector-ref sc7 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc7 1))) (let ((act-30 (let ((_-0 (vector 0 e-2 e-13))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-15 (vector-ref sc8 1))) (let ((ndefm (vector 1 e-15))) ((ProcessData-TTImp-case--11436-9595 e-7 e-6 e-5 e-4 e-3 arg-8 arg-7 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-8 e-9 e-10 e-11 e-13 e-2 _-0 fullty e-15 ndefm (let ((sc9 e-15)) (let ((e-17 (vector-ref sc9 18))) e-17))) eta-0))))))))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-15 (vector-ref sc8 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc8 1))) (let ((act-31 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name e-8))) (vector 0 ) fullty eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc9 1))) (let ((act-32 (let ((act-32 ((Normalise-Core-nf arg-0 e-11 arg-6 e-2) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) ((ProcessData-TTImp-checkIsType 'erased arg-1 arg-7 e-8 arg-6 e-17) eta-0)))))))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-33 (Normalise-Core-getArity (vector 0 ) e-11 (vector 0 ) fullty eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (let ((act-34 (Context-Core-addDef arg-1 e-8 (Context-Core-newDef arg-7 e-8 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-0 fullty arg-8 (vector 6 0 e-18 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-19 (vector-ref sc12 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc12 1))) (let ((act-35 (let ((sc13 arg-8)) (case (vector-ref sc13 0) ((0) (vector 1 (vector 0 )))(else (let ((act-35 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-8 eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-20 (vector-ref sc13 1))) (vector 0 e-20))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) fullty eta-0)))))))))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-20 (vector-ref sc13 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc13 1))) (let ((cvis (let ((_-0 (vector 0 e-2 e-13))) (ProcessData-TTImp-case--10987-9186 e-7 e-6 e-5 e-4 e-3 arg-8 arg-7 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-8 e-9 e-10 e-11 e-13 e-2 _-0 fullty e-14 e-15 e-16 e-17 e-18 e-19 e-20 (TT-Core-C-61C-61_Eq__Visibility arg-8 (vector 1 )))))) (let ((act-36 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-checkCon arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 cvis e-4 (vector 9 e-19) eta-1)) e-7) eta-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-21 (vector-ref sc14 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc14 1))) (let ((ddef (vector 0 (vector 0 e-3 e-8 e-18 fullty) e-21))) (let ((act-37 ((Context-Core-addData arg-1 arg-0 arg-8 e-19 ddef) eta-0))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-22 (vector-ref sc15 1))) (vector 0 e-22))) (else (let ((act-38 (let ((sc16 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-430 arg-431)))) (vector 4 ) e-6)))) (cond ((equal? sc16 0) ((ProcessData-TTImp-findNewtype arg-1 e-21) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-23 (vector-ref sc16 1))) (vector 0 e-23))) (else (let ((act-39 (let ((act-39 (unbox arg-1))) (vector 1 act-39)))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-24 (vector-ref sc17 1))) (vector 0 e-24))) (else (let ((act-40 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Prelude-C-43C-43 " defined in a mutual block with " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-15)))) eta-0))) (let ((sc18 act-40)) (case (vector-ref sc18 0) ((0) (let ((e-25 (vector-ref sc18 1))) (vector 0 e-25))) (else (let ((act-41 (Context-Core-setMutWith arg-1 arg-7 (vector 9 e-19) e-15 eta-0))) (let ((sc19 act-41)) (case (vector-ref sc19 0) ((0) (let ((e-26 (vector-ref sc19 1))) (vector 0 e-26))) (else (let ((act-42 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-processDataOpt arg-1 arg-7 (vector 9 e-19) eta-1)) e-6) eta-0))) (let ((sc20 act-42)) (case (vector-ref sc20 0) ((0) (let ((e-27 (vector-ref sc20 1))) (vector 0 e-27))) (else (let ((act-43 (Context-Core-dropMutData arg-1 (vector 9 e-19) eta-0))) (let ((sc21 act-43)) (case (vector-ref sc21 0) ((0) (let ((e-28 (vector-ref sc21 1))) (vector 0 e-28))) (else (let ((act-44 ((ProcessData-TTImp-getDetags arg-1 arg-7 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc22 eta-1)) (let ((e-29 (vector-ref sc22 4))) e-29))) e-21)) eta-0))) (let ((sc22 act-44)) (case (vector-ref sc22 0) ((0) (let ((e-29 (vector-ref sc22 1))) (vector 0 e-29))) (else (let ((e-29 (vector-ref sc22 1))) (let ((act-45 (Context-Core-setDetags arg-1 arg-7 (vector 9 e-19) e-29 eta-0))) (let ((sc23 act-45)) (case (vector-ref sc23 0) ((0) (let ((e-30 (vector-ref sc23 1))) (vector 0 e-30))) (else (let ((act-46 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))) eta-0))) (let ((sc24 act-46)) (case (vector-ref sc24 0) ((0) (let ((e-31 (vector-ref sc24 1))) (vector 0 e-31))) (else (let ((act-47 (Context-Core-addToSave arg-1 e-8 eta-0))) (let ((sc25 act-47)) (case (vector-ref sc25 0) ((0) (let ((e-32 (vector-ref sc25 1))) (vector 0 e-32))) (else (let ((act-48 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))))))) eta-0))) (let ((sc26 act-48)) (case (vector-ref sc26 0) ((0) (let ((e-33 (vector-ref sc26 1))) (vector 0 e-33))) (else (let ((connames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-conName eta-1)) e-21))) (let ((act-49 (let ((sc27 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-430 arg-431)))) (vector 1 ) e-6)))) (cond ((equal? sc27 0) ((Core-Core-traverse_ 'erased 'erased (lambda (x) (lambda (eta-1) (Context-Core-addHintFor arg-1 arg-7 (vector 9 e-19) x 0 1 eta-1))) connames) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc27 act-49)) (case (vector-ref sc27 0) ((0) (let ((e-34 (vector-ref sc27 1))) (vector 0 e-34))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-Elab-TTImp-updateErasable arg-1 eta-1 eta-2))) (vector 1 (vector 9 e-19) connames)) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define ProcessData-TTImp-getRelevantArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((Semiring-Algebra-branchZero 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (lambda () (ProcessData-TTImp-getRelevantArg arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) arg-2 arg-3 e-5)) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((8) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((19) (lambda () (lambda (eta-1) (let ((act-25 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-1))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) ((ProcessData-TTImp-getRelevantArg arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) arg-2 1 e-11) eta-1)))))))))(else (lambda () (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-25 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-1))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) ((ProcessData-TTImp-getRelevantArg arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) (vector 1 arg-1) 1 e-11) eta-1)))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 (vector 0 ))))) arg-2)))))))(else (lambda () (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-25 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) ((ProcessData-TTImp-getRelevantArg arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) (vector 1 arg-1) 1 e-9) eta-1)))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 (vector 0 ))))) arg-2))))) e-6) eta-0))))))))))(else (lambda (eta-0) (vector 1 (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (r) (vector 1 (vector 0 arg-3 r)))) arg-2))))))))))(else (lambda (eta-0) (vector 1 (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (r) (vector 1 (vector 0 arg-3 r)))) arg-2)))))))) -(define ProcessData-TTImp-getIndexPats (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-1) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((ProcessData-TTImp-n--9499-7717-getRetType arg-1 arg-0 e-5 e-6) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((ProcessData-TTImp-n--9499-7718-getPats arg-1 arg-0 e-5 e-7) ext-0)))))))))))))))))) -(define ProcessData-TTImp-getDetags (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessData-TTImp-getIndexPats arg-0 eta-1 eta-2))) arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ProcessData-TTImp-n--9575-7815-getDisjointPos arg-2 arg-1 arg-0 0 (List-Data-transpose 'erased e-5)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 )))(else (vector 1 (vector 1 e-6)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessData-TTImp-getIndexPats arg-0 eta-1 eta-2))) arg-2) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((ProcessData-TTImp-n--9575-7815-getDisjointPos arg-2 arg-1 arg-0 0 (List-Data-transpose 'erased e-5)) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 )))(else (vector 1 (vector 1 e-6))))))))))))))))))))) +(define ProcessData-TTImp-processData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) arg-0 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Context-Core-lookupCtxtExact e-5 (let ((sc4 e-7)) (let ((e-31 (vector-ref sc4 1))) e-31))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((act-28 (let ((act-28 ((Context-Core-resolveName arg-1 e-5) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 57 arg-7 e-5 eta-1))) (Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 e-9 (vector 0 ) arg-4 arg-5 arg-6 (vector 15 arg-7 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-6) (vector 1 (Normalise-Core-gType 'erased e-0)))) eta-0)))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (let ((e-4 (vector-ref sc7 1))) (let ((fullty (Env-Core-abstractEnvType arg-0 e-0 arg-6 e-4))) (let ((act-29 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name e-5))) (vector 0 ) fullty eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((act-30 (let ((act-30 ((Normalise-Core-nf arg-0 e-7 arg-6 e-4) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) ((ProcessData-TTImp-checkIsType 'erased arg-1 arg-7 e-5 arg-6 e-11) eta-0)))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((act-31 (Normalise-Core-getArity (vector 0 ) e-7 (vector 0 ) fullty eta-0))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc10 1))) (let ((act-32 (Context-Core-addDef arg-1 e-5 (Context-Core-newDef arg-7 e-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-0 fullty arg-8 (vector 6 0 e-12 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-33 (Context-Core-addMutData arg-1 (vector 9 e-13) eta-0))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-14 (vector-ref sc12 1))) (vector 0 e-14))) (else (let ((act-34 (let ((act-34 (unbox arg-1))) (vector 1 act-34)))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-15 (vector-ref sc13 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc13 1))) (let ((act-35 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (Context-Core-setMutWith arg-1 arg-7 n (let ((sc14 e-15)) (let ((e-40 (vector-ref sc14 2))) e-40)) eta-1))) (let ((sc14 e-15)) (let ((e-40 (vector-ref sc14 2))) e-40))) eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-16 (vector-ref sc14 1))) (vector 0 e-16))) (else (let ((act-36 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) ((NameMap-Data-keys 'erased) (TT-Core-getMetas 'erased e-4))) eta-0))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-17 (vector-ref sc15 1))) (vector 0 e-17))) (else (let ((act-37 (Context-Core-addToSave arg-1 e-5 eta-0))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-18 (vector-ref sc16 1))) (vector 0 e-18))) (else (let ((act-38 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) ((NameMap-Data-keys 'erased) (TT-Core-getMetas 'erased e-4))))))) eta-0))) (let ((sc17 act-38)) (case (vector-ref sc17 0) ((0) (let ((e-19 (vector-ref sc17 1))) (vector 0 e-19))) (else (let ((act-39 (let ((sc18 arg-8)) (case (vector-ref sc18 0) ((0) (vector 1 (vector 0 )))(else (let ((act-39 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__Name arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Name arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-5 eta-0))) (let ((sc18 act-39)) (case (vector-ref sc18 0) ((0) (let ((e-20 (vector-ref sc18 1))) (vector 0 e-20))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) fullty eta-0)))))))))) (let ((sc18 act-39)) (case (vector-ref sc18 0) ((0) (let ((e-20 (vector-ref sc18 1))) (vector 0 e-20))) (else (let ((act-40 (let ((sc19 (TT-Core-C-47C-61_Eq__Visibility arg-8 (vector 0 )))) (cond ((equal? sc19 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-1 arg-7 e-5 arg-8 (vector 0 ) eta-1 eta-2))) ((NameMap-Data-keys 'erased) (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc19 act-40)) (case (vector-ref sc19 0) ((0) (let ((e-21 (vector-ref sc19 1))) (vector 0 e-21))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-7 e-5) eta-0))))))))))))))))))))))))))))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) arg-0 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-26 (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 "Processing " (Name-Core-show_Show__Name e-8))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 ((Context-Core-resolveName arg-1 e-8) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc5 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 57 arg-7 e-8 eta-1))) (Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 e-12 (vector 0 ) arg-4 arg-5 arg-6 (vector 15 arg-7 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-9) (vector 1 (Normalise-Core-gType 'erased e-3)))) eta-0)))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc5 1))) (let ((sc6 e-12)) (let ((e-2 (vector-ref sc6 1))) (let ((e-13 (vector-ref sc6 2))) (let ((fullty (Env-Core-abstractEnvType arg-0 e-3 arg-6 e-2))) (let ((act-29 ((Context-Core-lookupCtxtExact e-8 (let ((sc7 e-11)) (let ((e-0 (vector-ref sc7 1))) e-0))) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-14 (vector-ref sc7 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc7 1))) (let ((act-30 (let ((_-0 (vector 0 e-2 e-13))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-15 (vector-ref sc8 1))) (let ((ndefm (vector 1 e-15))) ((ProcessData-TTImp-case--11502-9664 e-7 e-6 e-5 e-4 e-3 arg-8 arg-7 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-8 e-9 e-10 e-11 e-13 e-2 _-0 fullty e-15 ndefm (let ((sc9 e-15)) (let ((e-17 (vector-ref sc9 18))) e-17))) eta-0))))))))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-15 (vector-ref sc8 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc8 1))) (let ((act-31 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name e-8))) (vector 0 ) fullty eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc9 1))) (let ((act-32 (let ((act-32 ((Normalise-Core-nf arg-0 e-11 arg-6 e-2) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) ((ProcessData-TTImp-checkIsType 'erased arg-1 arg-7 e-8 arg-6 e-17) eta-0)))))))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-33 (Normalise-Core-getArity (vector 0 ) e-11 (vector 0 ) fullty eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (let ((act-34 (Context-Core-addDef arg-1 e-8 (Context-Core-newDef arg-7 e-8 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-0 fullty arg-8 (vector 6 0 e-18 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-19 (vector-ref sc12 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc12 1))) (let ((act-35 (let ((sc13 arg-8)) (case (vector-ref sc13 0) ((0) (vector 1 (vector 0 )))(else (let ((act-35 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__Name arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Name arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-8 eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-20 (vector-ref sc13 1))) (vector 0 e-20))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) fullty eta-0)))))))))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-20 (vector-ref sc13 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc13 1))) (let ((cvis (let ((_-0 (vector 0 e-2 e-13))) (ProcessData-TTImp-case--11053-9255 e-7 e-6 e-5 e-4 e-3 arg-8 arg-7 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-8 e-9 e-10 e-11 e-13 e-2 _-0 fullty e-14 e-15 e-16 e-17 e-18 e-19 e-20 (TT-Core-C-61C-61_Eq__Visibility arg-8 (vector 1 )))))) (let ((act-36 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-checkCon arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 cvis e-4 (vector 9 e-19) eta-1)) e-7) eta-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-21 (vector-ref sc14 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc14 1))) (let ((ddef (vector 0 (vector 0 e-3 e-8 e-18 fullty) e-21))) (let ((act-37 ((Context-Core-addData arg-1 arg-0 arg-8 e-19 ddef) eta-0))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-22 (vector-ref sc15 1))) (vector 0 e-22))) (else (let ((act-38 (let ((sc16 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-438 arg-439)))) (vector 4 ) e-6)))) (cond ((equal? sc16 0) ((ProcessData-TTImp-findNewtype arg-1 e-21) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-23 (vector-ref sc16 1))) (vector 0 e-23))) (else (let ((act-39 (let ((act-39 (unbox arg-1))) (vector 1 act-39)))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-24 (vector-ref sc17 1))) (vector 0 e-24))) (else (let ((act-40 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Prelude-C-43C-43 " defined in a mutual block with " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-15)))) eta-0))) (let ((sc18 act-40)) (case (vector-ref sc18 0) ((0) (let ((e-25 (vector-ref sc18 1))) (vector 0 e-25))) (else (let ((act-41 (Context-Core-setMutWith arg-1 arg-7 (vector 9 e-19) e-15 eta-0))) (let ((sc19 act-41)) (case (vector-ref sc19 0) ((0) (let ((e-26 (vector-ref sc19 1))) (vector 0 e-26))) (else (let ((act-42 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-processDataOpt arg-1 arg-7 (vector 9 e-19) eta-1)) e-6) eta-0))) (let ((sc20 act-42)) (case (vector-ref sc20 0) ((0) (let ((e-27 (vector-ref sc20 1))) (vector 0 e-27))) (else (let ((act-43 (Context-Core-dropMutData arg-1 (vector 9 e-19) eta-0))) (let ((sc21 act-43)) (case (vector-ref sc21 0) ((0) (let ((e-28 (vector-ref sc21 1))) (vector 0 e-28))) (else (let ((act-44 ((ProcessData-TTImp-getDetags arg-1 arg-7 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc22 eta-1)) (let ((e-29 (vector-ref sc22 4))) e-29))) e-21)) eta-0))) (let ((sc22 act-44)) (case (vector-ref sc22 0) ((0) (let ((e-29 (vector-ref sc22 1))) (vector 0 e-29))) (else (let ((e-29 (vector-ref sc22 1))) (let ((act-45 (Context-Core-setDetags arg-1 arg-7 (vector 9 e-19) e-29 eta-0))) (let ((sc23 act-45)) (case (vector-ref sc23 0) ((0) (let ((e-30 (vector-ref sc23 1))) (vector 0 e-30))) (else (let ((act-46 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) ((NameMap-Data-keys 'erased) (TT-Core-getMetas 'erased e-2))) eta-0))) (let ((sc24 act-46)) (case (vector-ref sc24 0) ((0) (let ((e-31 (vector-ref sc24 1))) (vector 0 e-31))) (else (let ((act-47 (Context-Core-addToSave arg-1 e-8 eta-0))) (let ((sc25 act-47)) (case (vector-ref sc25 0) ((0) (let ((e-32 (vector-ref sc25 1))) (vector 0 e-32))) (else (let ((act-48 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) ((NameMap-Data-keys 'erased) (TT-Core-getMetas 'erased e-2))))))) eta-0))) (let ((sc26 act-48)) (case (vector-ref sc26 0) ((0) (let ((e-33 (vector-ref sc26 1))) (vector 0 e-33))) (else (let ((connames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-conName eta-1)) e-21))) (let ((act-49 (let ((sc27 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-438 arg-439)))) (vector 1 ) e-6)))) (cond ((equal? sc27 0) ((Core-Core-traverse_ 'erased 'erased (lambda (x) (lambda (eta-1) (Context-Core-addHintFor arg-1 arg-7 (vector 9 e-19) x 0 1 eta-1))) connames) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc27 act-49)) (case (vector-ref sc27 0) ((0) (let ((e-34 (vector-ref sc27 1))) (vector 0 e-34))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-Elab-TTImp-updateErasable arg-1 eta-1 eta-2))) (vector 1 (vector 9 e-19) connames)) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define ProcessData-TTImp-getRelevantArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((Semiring-Algebra-branchZero 'erased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (lambda () (ProcessData-TTImp-getRelevantArg arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) arg-2 arg-3 e-5)) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((8) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((19) (lambda () (lambda (eta-1) (let ((act-25 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-1))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) ((ProcessData-TTImp-getRelevantArg arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) arg-2 1 e-11) eta-1)))))))))(else (lambda () (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-25 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-1))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) ((ProcessData-TTImp-getRelevantArg arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) (vector 1 arg-1) 1 e-11) eta-1)))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 (vector 0 ))))) arg-2)))))))(else (lambda () (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-25 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) ((ProcessData-TTImp-getRelevantArg arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) (vector 1 arg-1) 1 e-9) eta-1)))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 (vector 0 ))))) arg-2))))) e-6) eta-0))))))))))(else (lambda (eta-0) (vector 1 (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (r) (vector 1 (vector 0 arg-3 r)))) arg-2))))))))))(else (lambda (eta-0) (vector 1 (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (r) (vector 1 (vector 0 arg-3 r)))) arg-2)))))))) +(define ProcessData-TTImp-getIndexPats (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-1) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((ProcessData-TTImp-n--9565-7786-getRetType arg-1 arg-0 e-5 e-6) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((ProcessData-TTImp-n--9565-7787-getPats arg-1 arg-0 e-5 e-7) ext-0)))))))))))))))))) +(define ProcessData-TTImp-getDetags (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessData-TTImp-getIndexPats arg-0 eta-1 eta-2))) arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ProcessData-TTImp-n--9641-7884-getDisjointPos arg-2 arg-1 arg-0 0 (List-Data-transpose 'erased e-5)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 )))(else (vector 1 (vector 1 e-6)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessData-TTImp-getIndexPats arg-0 eta-1 eta-2))) arg-2) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((ProcessData-TTImp-n--9641-7884-getDisjointPos arg-2 arg-1 arg-0 0 (List-Data-transpose 'erased e-5)) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 )))(else (vector 1 (vector 1 e-6))))))))))))))))))))) (define ProcessData-TTImp-findNewtype (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) (let ((sc3 e-1)) (let ((e-3 (vector-ref sc3 4))) e-3))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) ((ProcessData-TTImp-getRelevantArg e-5 0 (vector 0 ) 0 e-6) eta-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (Context-Core-updateDef arg-0 (let ((sc5 e-1)) (let ((e-8 (vector-ref sc5 2))) e-8)) (lambda (d) (let ((sc5 d)) (case (vector-ref sc5 0) ((5) (let ((e-0 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (vector 1 (vector 5 e-0 e-7 (vector 1 e-3))))))(else (vector 0 ))))) eta-0))) (else (vector 1 (vector 0 )))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define ProcessData-TTImp-conName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (define ProcessData-TTImp-checkRetType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-2 (vector 10 e-1 1))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) ((ProcessData-TTImp-checkRetType 'erased arg-1 arg-2 e-9 arg-4) eta-0)))))))))))))(else (arg-4 arg-3))))))))(else (arg-4 arg-3)))))) (define ProcessData-TTImp-checkIsType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (ProcessData-TTImp-checkRetType 'erased arg-1 arg-4 arg-5 (lambda (nf) (let ((sc0 nf)) (case (vector-ref sc0 0) ((10) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 9 arg-2 arg-3) eta-0))))))))) -(define ProcessData-TTImp-checkFamily (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (ProcessData-TTImp-checkRetType 'erased arg-1 arg-5 arg-6 (lambda (nf) (let ((sc0 nf)) (case (vector-ref sc0 0) ((10) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 10 arg-2 arg-3 arg-4) eta-0))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (let ((nf-0 (vector 3 e-3 e-4 e-5 e-6 e-7))) (ProcessData-TTImp-case--8846-7185 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-3 e-5 e-6 e-7 e-4 nf-0 (Name-Core-C-61C-61_Eq__Name arg-4 e-4)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 10 arg-2 arg-3 arg-4) eta-0))))))))) -(define ProcessData-TTImp-checkCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((ty_raw (ProcessData-TTImp-updateNS arg-8 arg-9 e-2))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking constructor type " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp ty_raw))))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Updated " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x))))) (vector 0 arg-8 arg-9)))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Context-Core-lookupCtxtExact e-5 (let ((sc5 e-8)) (let ((e-32 (vector-ref sc5 1))) e-32))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((0) (let ((act-29 (let ((act-29 ((Context-Core-resolveName arg-1 e-5) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc7 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 57 e-0 e-5 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 e-10 (vector 0 ) arg-4 arg-5 arg-6 (vector 15 e-0 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ty_raw) (Normalise-Core-gType 'erased e-0) eta-1))) eta-0)))))))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 (let ((act-30 ((Normalise-Core-nf arg-0 e-8 arg-6 e-10) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref sc8 1))) ((ProcessData-TTImp-checkFamily 'erased arg-1 e-0 e-5 arg-9 arg-6 e-11) eta-0)))))))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((fullty (Env-Core-abstractEnvType arg-0 e-0 arg-6 e-10))) (let ((act-31 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Constructor " (Name-Core-show_Show__Name e-5))) (vector 0 ) fullty eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((act-32 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-10))) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((act-33 (Context-Core-addToSave arg-1 e-5 eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((act-34 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-10))))))) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((act-35 (let ((sc13 arg-7)) (case (vector-ref sc13 0) ((2) (let ((act-35 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-5 eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-3 (vector-ref sc14 1))) (vector 0 e-3))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) fullty eta-0))))))(else (vector 1 (vector 0 ))))))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-3 (vector-ref sc13 1))) (vector 0 e-3))) (else (let ((act-36 (let ((sc14 (TT-Core-C-47C-61_Eq__Visibility arg-7 (vector 0 )))) (cond ((equal? sc14 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-1 e-0 e-5 arg-7 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-3 (vector-ref sc14 1))) (vector 0 e-3))) (else (let ((act-37 (Normalise-Core-getArity (vector 0 ) e-8 (vector 0 ) fullty eta-0))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-3 (vector-ref sc15 1))) (vector 0 e-3))) (else (let ((e-18 (vector-ref sc15 1))) (vector 1 (vector 0 e-0 e-5 e-18 fullty)))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 e-0 e-5) eta-0))))))))))))))))))))))))))))))))))) -(define Parser-TTImp-case--6501-12060 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 2 arg-2 arg-1 (List-Prelude-C-43C-43 'erased arg-0 e-2)) (Parser-TTImp-collectDefs e-3))))))) -(define Parser-TTImp-case--10688-12013 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 1 arg-5)) (else (vector 0 )))))) -(define Parser-TTImp-case--10720-11966 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (List-Prelude-C-43C-43 'erased arg-9 e-2) e-3)))))) -(define Parser-TTImp-case--10687-11901 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 1 arg-6 arg-7))) (else (let ((e-2 (vector-ref sc0 1))) (Parser-TTImp-case--10720-11966 arg-0 arg-1 arg-2 arg-3 'erased 'erased arg-7 arg-8 arg-6 e-2 (Parser-TTImp-n--6501-11867-spanMap arg-0 arg-1 arg-2 arg-3 'erased 'erased arg-8 arg-7)))))))) -(define Parser-TTImp-case--9844-11233 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 arg-5 e-7))))))))))) -(define Parser-TTImp-case--9844-11191 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 (vector 1 ) e-7))))))))))) -(define Parser-TTImp-case--7196-8861 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 (vector 1 e-6) e-7)))))))))) -(define Parser-TTImp-n--6501-11867-spanMap (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Parser-TTImp-case--10687-11901 arg-0 arg-1 arg-2 arg-3 'erased 'erased e-2 e-3 arg-6 (arg-6 e-2))))))))) -(define Parser-TTImp-n--9271-10617-parseWithArg (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-10637) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-TTImp-expr arg-1 arg-0) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-1 start end) tm)))))))))))))) -(define Parser-TTImp-n--7211-10168-mkPi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 0 arg-1 arg-2 arg-3) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) e-6 (vector 0 ) arg-4 (Parser-TTImp-n--7211-10168-mkPi arg-0 arg-1 arg-2 arg-3 e-7 e-3)))))))))))) -(define Parser-TTImp-n--6501-11868-isClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (Parser-TTImp-case--10688-12013 arg-0 arg-1 arg-2 arg-3 e-0 e-2 e-1 arg-4 (Name-Core-C-61C-61_Eq__Name arg-4 e-1))))))(else (vector 0 )))))) -(define Parser-TTImp-n--9268-10352-getFn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-1))) ((8) (let ((e-3 (vector-ref sc0 2))) (Parser-TTImp-n--9268-10352-getFn arg-0 arg-1 arg-2 arg-3 arg-4 e-3))) ((9) (let ((e-6 (vector-ref sc0 2))) (Parser-TTImp-n--9268-10352-getFn arg-0 arg-1 arg-2 arg-3 arg-4 e-6)))(else (vector 4 1 "Not a function application")))))) -(define Parser-TTImp-n--10161-11291-fieldBody (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (ns) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-11321) (vector 7 1 (Parser-TTImp-expr arg-1 arg-0) (lambda () (lambda (ty) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 (vector 0 arg-1 start end) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-2 (vector 1 n) ty)) ns))))))))))))))))) -(define Parser-TTImp-n--7201-9258-bindAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 2 arg-2 e-6 (vector 1 ) (vector 1 e-10) e-11 (Parser-TTImp-n--7201-9258-bindAll arg-0 arg-1 arg-2 e-3 arg-4))))))))))))))) -(define Parser-TTImp-n--7186-8120-applyExpImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Parser-TTImp-n--7186-8120-applyExpImp arg-0 arg-1 arg-2 arg-3 (vector 8 (vector 0 arg-1 arg-2 arg-3) arg-4 e-6) e-3))) (else (let ((e-9 (vector-ref sc1 1))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (Parser-TTImp-n--7186-8120-applyExpImp arg-0 arg-1 arg-2 arg-3 (vector 9 (vector 0 arg-1 arg-2 arg-3) arg-4 e-12 e-13) e-3))))))))))))))) -(define Parser-TTImp-n--9271-10616-applyArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Parser-TTImp-n--9271-10616-applyArgs arg-0 arg-1 arg-2 (vector 8 e-6 arg-3 e-7) e-3))))))))))) +(define 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--8912-7254 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-3 e-5 e-6 e-7 e-4 nf-0 (Name-Core-C-61C-61_Eq__Name arg-4 e-4)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 10 arg-2 arg-3 arg-4) eta-0))))))))) +(define ProcessData-TTImp-checkCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((ty_raw (ProcessData-TTImp-updateNS arg-8 arg-9 e-2))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking constructor type " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp ty_raw))))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Updated " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x))))) (vector 0 arg-8 arg-9)))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Context-Core-lookupCtxtExact e-5 (let ((sc5 e-8)) (let ((e-32 (vector-ref sc5 1))) e-32))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((0) (let ((act-29 (let ((act-29 ((Context-Core-resolveName arg-1 e-5) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc7 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 57 e-0 e-5 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 e-10 (vector 0 ) arg-4 arg-5 arg-6 (vector 15 e-0 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ty_raw) (Normalise-Core-gType 'erased e-0) eta-1))) eta-0)))))))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 (let ((act-30 ((Normalise-Core-nf arg-0 e-8 arg-6 e-10) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref sc8 1))) ((ProcessData-TTImp-checkFamily 'erased arg-1 e-0 e-5 arg-9 arg-6 e-11) eta-0)))))))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((fullty (Env-Core-abstractEnvType arg-0 e-0 arg-6 e-10))) (let ((act-31 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Constructor " (Name-Core-show_Show__Name e-5))) (vector 0 ) fullty eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((act-32 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) ((NameMap-Data-keys 'erased) (TT-Core-getMetas 'erased e-10))) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((act-33 (Context-Core-addToSave arg-1 e-5 eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((act-34 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) ((NameMap-Data-keys 'erased) (TT-Core-getMetas 'erased e-10))))))) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((act-35 (let ((sc13 arg-7)) (case (vector-ref sc13 0) ((2) (let ((act-35 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__Name arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Name arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-5 eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-3 (vector-ref sc14 1))) (vector 0 e-3))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) fullty eta-0))))))(else (vector 1 (vector 0 ))))))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-3 (vector-ref sc13 1))) (vector 0 e-3))) (else (let ((act-36 (let ((sc14 (TT-Core-C-47C-61_Eq__Visibility arg-7 (vector 0 )))) (cond ((equal? sc14 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-1 e-0 e-5 arg-7 (vector 0 ) eta-1 eta-2))) ((NameMap-Data-keys 'erased) (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-3 (vector-ref sc14 1))) (vector 0 e-3))) (else (let ((act-37 (Normalise-Core-getArity (vector 0 ) e-8 (vector 0 ) fullty eta-0))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-3 (vector-ref sc15 1))) (vector 0 e-3))) (else (let ((e-18 (vector-ref sc15 1))) (vector 1 (vector 0 e-0 e-5 e-18 fullty)))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 e-0 e-5) eta-0))))))))))))))))))))))))))))))))))) +(define Parser-TTImp-case--6543-11946 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 2 arg-2 arg-1 (List-Prelude-C-43C-43 'erased arg-0 e-2)) (Parser-TTImp-collectDefs e-3))))))) +(define Parser-TTImp-case--10608-11899 (lambda (arg-0 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--10640-11852 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (List-Prelude-C-43C-43 'erased arg-9 e-2) e-3)))))) +(define Parser-TTImp-case--10607-11787 (lambda (arg-0 arg-1 arg-2 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--10640-11852 arg-0 arg-1 arg-2 arg-3 'erased 'erased arg-7 arg-8 arg-6 e-2 (Parser-TTImp-n--6543-11753-spanMap arg-0 arg-1 arg-2 arg-3 'erased 'erased arg-8 arg-7)))))))) +(define Parser-TTImp-case--9785-11152 (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--9785-11107 (lambda (arg-0 arg-1 arg-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--7196-8803 (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--6543-11753-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--10607-11787 arg-0 arg-1 arg-2 arg-3 'erased 'erased e-2 e-3 arg-6 (arg-6 e-2))))))))) +(define Parser-TTImp-n--9223-10530-parseWithArg (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-10550) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-TTImp-expr arg-1 arg-0) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-1 start end) tm)))))))))))))) +(define Parser-TTImp-n--7211-10089-mkPi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 0 arg-1 arg-2 arg-3) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) e-6 (vector 0 ) arg-4 (Parser-TTImp-n--7211-10089-mkPi arg-0 arg-1 arg-2 arg-3 e-7 e-3)))))))))))) +(define Parser-TTImp-n--6543-11754-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--10608-11899 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--9220-10270-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--9220-10270-getFn arg-0 arg-1 arg-2 arg-3 arg-4 e-3))) ((9) (let ((e-6 (vector-ref sc0 2))) (Parser-TTImp-n--9220-10270-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--10092-11188-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 (_-11218) (vector 7 1 (Parser-TTImp-expr arg-1 arg-0) (lambda () (lambda (ty) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 (vector 0 arg-1 start end) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-2 (vector 1 n) ty)) ns))))))))))))))))) +(define Parser-TTImp-n--7201-9200-bindAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 2 arg-2 e-6 (vector 1 ) (vector 1 e-10) e-11 (Parser-TTImp-n--7201-9200-bindAll arg-0 arg-1 arg-2 e-3 arg-4))))))))))))))) +(define Parser-TTImp-n--7186-8086-applyExpImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Parser-TTImp-n--7186-8086-applyExpImp arg-0 arg-1 arg-2 arg-3 (vector 8 (vector 0 arg-1 arg-2 arg-3) arg-4 e-6) e-3))) (else (let ((e-9 (vector-ref sc1 1))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (Parser-TTImp-n--7186-8086-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--9223-10529-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--9223-10529-applyArgs arg-0 arg-1 arg-2 (vector 8 e-6 arg-3 e-7) e-3))))))))))) (define Parser-TTImp-visibility (lambda () (vector 9 0 1 (Parser-TTImp-visOption) (lambda () (vector 0 (vector 0 )))))) -(define Parser-TTImp-visOption (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-keyword "public") (lambda () (lambda (_-7704) (vector 7 1 (Source-Rule-Parser-keyword "export") (lambda () (lambda (_-7712) (vector 0 (vector 2 )))))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "export") (lambda () (lambda (_-7692) (vector 0 (vector 1 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "private") (lambda () (lambda (_-7680) (vector 0 (vector 0 ))))))))))) -(define Parser-TTImp-visOpt (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Parser-TTImp-visOption) (lambda () (lambda (vis) (vector 0 (vector 0 vis))))) (lambda () (vector 9 0 0 (vector 7 1 (Parser-TTImp-fnOpt) (lambda () (lambda (tot) (vector 0 (vector 1 tot))))) (lambda () (vector 7 1 (Parser-TTImp-fnDirectOpt) (lambda () (lambda (opt) (vector 0 (vector 1 opt))))))))))) -(define Parser-TTImp-typeExpr (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-TTImp-appExpr arg-0 arg-1) (lambda () (lambda (arg) (vector 9 0 1 (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-10216) (vector 7 1 (Parser-Text-some 'erased 'erased (vector 7 0 (Parser-TTImp-bindSymbol) (lambda () (lambda (exp) (vector 7 1 (Parser-TTImp-appExpr arg-0 arg-1) (lambda () (lambda (op) (vector 0 (vector 0 exp op))))))))) (lambda () (lambda (rest) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-n--7211-10168-mkPi arg-1 arg-0 start end arg rest))))))))) (lambda () (vector 0 arg)))))))))) -(define Parser-TTImp-tyDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-10302) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (ty) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-10325) (vector 0 (vector 0 (vector 0 arg-0 start end) n ty))))))))))))))))))) -(define Parser-TTImp-totalityOpt (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Source-Rule-Parser-keyword "partial") (lambda () (lambda (_-7770) (vector 0 (vector 2 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "total") (lambda () (lambda (_-7758) (vector 0 (vector 0 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "covering") (lambda () (lambda (_-7746) (vector 0 (vector 1 ))))))))))) -(define Parser-TTImp-topDecl (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-TTImp-visibility) (lambda (vis) (vector 7 1 (Parser-TTImp-dataDecl arg-0 arg-1) (lambda () (lambda (dat) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 0 arg-0 start end) vis dat))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-TTImp-namespaceDecl) (lambda () (lambda (ns) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-TTImp-topDecl arg-0 eta-0))) (lambda () (lambda (ds) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 5 (vector 0 arg-0 start end) ns ds)))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-TTImp-visOpt)) (lambda (visOpts) (vector 8 1 0 (Parser-TTImp-getVisibility (vector 0 ) visOpts) (lambda (vis) (let ((opts (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Parser-TTImp-getRight 'erased 'erased eta-0)) visOpts))) (vector 7 1 (Parser-TTImp-tyDecl arg-0 arg-1) (lambda () (lambda (claim) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 start end) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) vis opts claim)))))))))))))) (lambda () (vector 9 0 0 (Parser-TTImp-recordDecl arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-directive arg-0 arg-1) (lambda () (Parser-TTImp-definition arg-0 arg-1))))))))))))) -(define Parser-TTImp-simpleExpr (lambda (arg-0 arg-1) (vector 9 0 0 (Parser-TTImp-as arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-atom arg-0) (lambda () (vector 9 0 0 (Parser-TTImp-binder arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-rewrite_ arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-record_ arg-0 arg-1) (lambda () (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-8514) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (e) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-8530) (vector 0 e)))))))))))))))))))))) -(define Parser-TTImp-rewrite_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "rewrite") (lambda () (lambda (_-9912) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (rule) (vector 7 0 (Source-Rule-Parser-keyword "in") (lambda () (lambda (_-9927) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 13 (vector 0 arg-0 start end) rule tm)))))))))))))))))))) -(define Parser-TTImp-record_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "record") (lambda () (lambda (_-9746) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-9755) (vector 8 1 0 (vector 5 ) (lambda (_-9764) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-TTImp-field arg-0 arg-1)) (lambda () (lambda (fs) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-9785) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (sc) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 7 (vector 0 arg-0 start end) fs sc))))))))))))))))))))))))) -(define Parser-TTImp-recordParam (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-11145) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-TTImp-pibindListName arg-0 start arg-1) (lambda () (lambda (params) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-11169) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 (vector 1 ) e-7)))))))))) params))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-11030) (vector 8 1 0 (vector 5 ) (lambda (_-11039) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 0 (lambda () 1)) (vector 8 1 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 1 (lambda (eta-0) (lambda (eta-1) eta-0)) (vector 0 (vector 2 ))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-keyword "auto")))) (lambda () (vector 9 0 1 (vector 7 0 (Source-Rule-Parser-keyword "default") (lambda () (lambda (_-11078) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (t) (vector 0 (vector 3 t)))))))) (lambda () (vector 0 (vector 0 )))))) (lambda (info) (vector 7 0 (Parser-TTImp-pibindListName arg-0 start arg-1) (lambda () (lambda (params) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-11120) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 info e-7)))))))))) params))))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 0 n (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 (vector 1 ) (vector 31 (vector 0 arg-0 start end) 1)))) (vector 0 )))))))))))))))) -(define Parser-TTImp-recordDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-TTImp-visibility) (lambda (vis) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 0 (Source-Rule-Parser-keyword "record") (lambda () (lambda (_-11476) (vector 8 1 0 (vector 5 ) (lambda (_-11485) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-TTImp-recordParam arg-0 arg-1)) (lambda (paramss) (let ((params ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) paramss))) (vector 7 0 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-11511) (vector 7 0 (Source-Rule-Parser-exactIdent "constructor") (lambda () (lambda (_-11519) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (dc) (vector 8 1 1 (Source-Rule-Parser-blockAfter 'erased col (lambda (eta-0) (Parser-TTImp-fieldDecl arg-0 eta-0))) (lambda (flds) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((fc (vector 0 arg-0 start end))) (vector 4 fc (vector 0 ) vis (vector 0 fc n params dc ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) flds))))))))))))))))))))))))))))))))))))) +(define Parser-TTImp-visOption (lambda () (vector 9 0 0 (vector 7 0 (Source-Rule-Parser-keyword "public") (lambda () (lambda (_-7664) (vector 7 1 (Source-Rule-Parser-keyword "export") (lambda () (lambda (_-7672) (vector 0 (vector 2 )))))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "export") (lambda () (lambda (_-7689) (vector 0 (vector 1 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "private") (lambda () (lambda (_-7701) (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 (_-10132) (vector 7 1 (Parser-Text-some 'erased 'erased (vector 7 0 (Parser-TTImp-bindSymbol) (lambda () (lambda (exp) (vector 7 1 (Parser-TTImp-appExpr arg-0 arg-1) (lambda () (lambda (op) (vector 0 (vector 0 exp op))))))))) (lambda () (lambda (rest) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-n--7211-10089-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 (_-10220) (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 (_-10243) (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 (_-7724) (vector 0 (vector 2 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "total") (lambda () (lambda (_-7740) (vector 0 (vector 0 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "covering") (lambda () (lambda (_-7752) (vector 0 (vector 1 ))))))))))) +(define Parser-TTImp-topDecl (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-TTImp-visibility) (lambda (vis) (vector 7 1 (Parser-TTImp-dataDecl arg-0 arg-1) (lambda () (lambda (dat) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 0 arg-0 start end) vis dat))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-TTImp-namespaceDecl) (lambda () (lambda (ns) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-TTImp-topDecl arg-0 eta-0))) (lambda () (lambda (ds) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 5 (vector 0 arg-0 start end) ns ds)))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-TTImp-visOpt)) (lambda (visOpts) (vector 8 1 0 (Parser-TTImp-getVisibility (vector 0 ) visOpts) (lambda (vis) (let ((opts (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Parser-TTImp-getRight 'erased 'erased eta-0)) visOpts))) (vector 7 1 (Parser-TTImp-tyDecl arg-0 arg-1) (lambda () (lambda (claim) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 start end) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) vis opts claim)))))))))))))) (lambda () (vector 9 0 0 (Parser-TTImp-recordDecl arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-directive arg-0 arg-1) (lambda () (Parser-TTImp-definition arg-0 arg-1))))))))))))) +(define Parser-TTImp-simpleExpr (lambda (arg-0 arg-1) (vector 9 0 0 (Parser-TTImp-as arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-atom arg-0) (lambda () (vector 9 0 0 (Parser-TTImp-binder arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-rewrite_ arg-0 arg-1) (lambda () (vector 9 0 (Prelude-C-124C-124 0 (lambda () 0)) (Parser-TTImp-record_ arg-0 arg-1) (lambda () (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-8465) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (e) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-8481) (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 (_-9844) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (rule) (vector 7 0 (Source-Rule-Parser-keyword "in") (lambda () (lambda (_-9859) (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 (_-9682) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-9691) (vector 8 1 0 (vector 5 ) (lambda (_-9700) (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 (_-9721) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (sc) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 7 (vector 0 arg-0 start end) fs sc))))))))))))))))))))))))) +(define Parser-TTImp-recordParam (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-10892) (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 (_-10916) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 (vector 1 ) e-7)))))))))) params))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-10941) (vector 8 1 0 (vector 5 ) (lambda (_-10950) (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 (_-10980) (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 (_-11026) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 info e-7)))))))))) params))))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 0 n (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 (vector 1 ) (vector 31 (vector 0 arg-0 start end) 1)))) (vector 0 )))))))))))))))) +(define Parser-TTImp-recordDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-TTImp-visibility) (lambda (vis) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 0 (Source-Rule-Parser-keyword "record") (lambda () (lambda (_-11370) (vector 8 1 0 (vector 5 ) (lambda (_-11379) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-TTImp-recordParam arg-0 arg-1)) (lambda (paramss) (let ((params ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) paramss))) (vector 7 0 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-11405) (vector 7 0 (Source-Rule-Parser-exactIdent "constructor") (lambda () (lambda (_-11413) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (dc) (vector 8 1 1 (Source-Rule-Parser-blockAfter 'erased col (lambda (eta-0) (Parser-TTImp-fieldDecl arg-0 eta-0))) (lambda (flds) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((fc (vector 0 arg-0 start end))) (vector 4 fc (vector 0 ) vis (vector 0 fc n params dc ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) flds))))))))))))))))))))))))))))))))))))) (define Parser-TTImp-prog (lambda (arg-0) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-TTImp-topDecl arg-0 eta-0))) (lambda () (lambda (ds) (vector 0 (Parser-TTImp-collectDefs ds))))))) -(define Parser-TTImp-pibindListName (lambda (arg-0 arg-1 arg-2) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Parser-TTImp-multiplicity) (lambda (rigc) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (ns) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-8786) (vector 7 1 (Parser-TTImp-expr arg-0 arg-2) (lambda () (lambda (ty) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-8801) (vector 8 1 1 (Parser-TTImp-getMult rigc) (lambda (rig) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 rig (vector 0 (vector 1 n) ty))) ns))))))))))))))))) (lambda () (Parser-Text-sepBy1 'erased 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) (Source-Rule-Parser-symbol ",") (vector 8 1 0 (Parser-TTImp-multiplicity) (lambda (rigc) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-8725) (vector 7 1 (Parser-TTImp-expr arg-0 arg-2) (lambda () (lambda (ty) (vector 8 1 1 (Parser-TTImp-getMult rigc) (lambda (rig) (vector 0 (vector 0 rig (vector 0 n ty))))))))))))))))))))) +(define Parser-TTImp-pibindListName (lambda (arg-0 arg-1 arg-2) (vector 9 (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 (_-8667) (vector 7 1 (Parser-TTImp-expr arg-0 arg-2) (lambda () (lambda (ty) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-8682) (vector 8 1 1 (Parser-TTImp-getMult rigc) (lambda (rig) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 rig (vector 0 (vector 1 n) ty))) ns))))))))))))))))) (lambda () (Parser-Text-sepBy1 'erased 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) (Source-Rule-Parser-symbol ",") (vector 8 1 0 (Parser-TTImp-multiplicity) (lambda (rigc) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-8731) (vector 7 1 (Parser-TTImp-expr arg-0 arg-2) (lambda () (lambda (ty) (vector 8 1 1 (Parser-TTImp-getMult rigc) (lambda (rig) (vector 0 (vector 0 rig (vector 0 n ty))))))))))))))))))))) (define Parser-TTImp-pibindList (lambda (arg-0 arg-1 arg-2) (vector 7 1 (Parser-TTImp-pibindListName arg-0 arg-1 arg-2) (lambda () (lambda (params) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 (vector 1 e-6) e-7))))))))) params))))))) (define Parser-TTImp-pibindAll (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 1 arg-0 e-6 arg-1 e-10 e-11 (Parser-TTImp-pibindAll arg-0 arg-1 e-3 arg-3))))))))))))))) -(define Parser-TTImp-parseRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-10540) (vector 8 1 0 (vector 5 ) (lambda (_-10549) (vector 7 1 (Parser-TTImp-expr arg-1 arg-2) (lambda () (lambda (rhs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-10564) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (let ((fc (vector 0 arg-1 arg-3 end))) (vector 8 1 1 (Parser-TTImp-n--9268-10352-getFn arg-4 arg-3 arg-2 arg-1 arg-0 arg-4) (lambda (bind-0) (vector 0 (vector 0 bind-0 (vector 0 fc arg-4 rhs)))))))))))))))))) (lambda () (vector 9 0 0 (vector 7 0 (Source-Rule-Parser-keyword "with") (lambda () (lambda (_-10440) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (wstart) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-10457) (vector 7 0 (Parser-TTImp-expr arg-1 arg-2) (lambda () (lambda (wval) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-10473) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-TTImp-clause (+ 1 arg-0) arg-1 eta-0))) (lambda () (lambda (ws) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (let ((fc (vector 0 arg-1 arg-3 end))) (vector 8 1 1 (Parser-TTImp-n--9268-10352-getFn arg-4 arg-3 arg-2 arg-1 arg-0 arg-4) (lambda (bind-0) (vector 0 (vector 0 bind-0 (vector 1 fc arg-4 wval (vector 0 ) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) ws)))))))))))))))))))))))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "impossible") (lambda () (lambda (_-10392) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-10400) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (let ((fc (vector 0 arg-1 arg-3 end))) (vector 8 1 1 (Parser-TTImp-n--9268-10352-getFn arg-4 arg-3 arg-2 arg-1 arg-0 arg-4) (lambda (bind-0) (vector 0 (vector 0 bind-0 (vector 2 fc arg-4))))))))))))))))))) -(define Parser-TTImp-namespaceDecl (lambda () (vector 7 0 (Source-Rule-Parser-keyword "namespace") (lambda () (lambda (_-11604) (vector 8 1 0 (vector 5 ) (lambda (_-11613) (vector 7 1 (Source-Rule-Parser-namespacedIdent) (lambda () (lambda (ns) (vector 0 ns))))))))))) +(define Parser-TTImp-parseRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-10302) (vector 8 1 0 (vector 5 ) (lambda (_-10311) (vector 7 1 (Parser-TTImp-expr arg-1 arg-2) (lambda () (lambda (rhs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-10326) (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--9220-10270-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 (_-10375) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (wstart) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-10392) (vector 7 0 (Parser-TTImp-expr arg-1 arg-2) (lambda () (lambda (wval) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-10408) (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--9220-10270-getFn arg-4 arg-3 arg-2 arg-1 arg-0 arg-4) (lambda (bind-0) (vector 0 (vector 0 bind-0 (vector 1 fc arg-4 wval (vector 0 ) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) ws)))))))))))))))))))))))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "impossible") (lambda () (lambda (_-10474) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-10482) (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--9220-10270-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 (_-11498) (vector 8 1 0 (vector 5 ) (lambda (_-11507) (vector 7 1 (Source-Rule-Parser-namespacedIdent) (lambda () (lambda (ns) (vector 0 ns))))))))))) (define Parser-TTImp-multiplicity (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (c) (vector 0 (vector 1 c))))) (lambda () (vector 0 (vector 0 )))))) -(define Parser-TTImp-let_ (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "let") (lambda () (lambda (_-9445) (vector 8 1 0 (Parser-TTImp-multiplicity) (lambda (rigc) (vector 8 1 0 (Parser-TTImp-getMult rigc) (lambda (rig) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-9478) (vector 8 1 0 (vector 5 ) (lambda (_-9487) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (val) (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-9502) (vector 7 0 (Source-Rule-Parser-keyword "in") (lambda () (lambda (_-9510) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((fc (vector 0 arg-0 start end))) (vector 3 fc rig n (vector 31 fc 1) val scope))))))))))))))))))))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "let") (lambda () (lambda (_-9373) (vector 8 1 0 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-TTImp-topDecl arg-0 eta-0))) (lambda (ds) (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-9389) (vector 7 0 (Source-Rule-Parser-keyword "in") (lambda () (lambda (_-9397) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 5 (vector 0 arg-0 start end) (Parser-TTImp-collectDefs ds) scope))))))))))))))))))))))) -(define Parser-TTImp-lazy (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Lazy") (lambda () (lambda (_-10116) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 19 (vector 0 arg-0 start end) (vector 1 ) tm)))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Inf") (lambda () (lambda (_-10074) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 19 (vector 0 arg-0 start end) (vector 0 ) tm)))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Delay") (lambda () (lambda (_-10032) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 20 (vector 0 arg-0 start end) tm)))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Force") (lambda () (lambda (_-9990) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 21 (vector 0 arg-0 start end) tm)))))))))))))))))))) -(define Parser-TTImp-lam (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "\\") (lambda () (lambda (_-9294) (vector 7 0 (Parser-TTImp-bindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-9310) (vector 8 1 0 (Source-Rule-Parser-mustContinue arg-1 (vector 0 )) (lambda (_-9319) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-n--7201-9258-bindAll arg-1 arg-0 (vector 0 arg-0 start end) binders scope)))))))))))))))))))))) -(define Parser-TTImp-implicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-9125) (vector 7 0 (Parser-TTImp-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-9141) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-9150) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-pibindAll (vector 0 arg-0 start end) (vector 0 ) binders scope))))))))))))))))))))))) -(define Parser-TTImp-implicitArg (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8325) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-8378) (vector 8 1 0 (vector 5 ) (lambda (_-8387) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8403) (vector 0 (vector 0 (vector 1 (vector 1 x)) tm))))))))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8347) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 1 (vector 1 x)) (vector 0 (vector 0 arg-0 start end) (vector 1 x))))))))))))))))))) (lambda () (vector 7 0 (Source-Rule-Parser-symbol "@{") (lambda () (lambda (_-8267) (vector 8 1 0 (vector 5 ) (lambda (_-8276) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8292) (vector 0 (vector 0 (vector 0 ) tm))))))))))))))))) +(define Parser-TTImp-let_ (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "let") (lambda () (lambda (_-9312) (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 (_-9345) (vector 8 1 0 (vector 5 ) (lambda (_-9354) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (val) (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-9369) (vector 7 0 (Source-Rule-Parser-keyword "in") (lambda () (lambda (_-9377) (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 (_-9434) (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 (_-9450) (vector 7 0 (Source-Rule-Parser-keyword "in") (lambda () (lambda (_-9458) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 5 (vector 0 arg-0 start end) (Parser-TTImp-collectDefs ds) scope))))))))))))))))))))))) +(define Parser-TTImp-lazy (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) 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 (_-9907) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 19 (vector 0 arg-0 start end) (vector 1 ) tm)))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) 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 (_-9953) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 19 (vector 0 arg-0 start end) (vector 0 ) tm)))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Delay") (lambda () (lambda (_-9999) (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 (_-10041) (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 (_-9236) (vector 7 0 (Parser-TTImp-bindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-9252) (vector 8 1 0 (Source-Rule-Parser-mustContinue arg-1 (vector 0 )) (lambda (_-9261) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-n--7201-9200-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 (_-9067) (vector 7 0 (Parser-TTImp-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-9083) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-9092) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-pibindAll (vector 0 arg-0 start end) (vector 0 ) binders scope))))))))))))))))))))))) +(define Parser-TTImp-implicitArg (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8234) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-8254) (vector 8 1 0 (vector 5 ) (lambda (_-8263) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8279) (vector 0 (vector 0 (vector 1 (vector 1 x)) tm))))))))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8305) (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 (_-8342) (vector 8 1 0 (vector 5 ) (lambda (_-8351) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8367) (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-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc1 1) (vector 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))(else (vector 4 0 "Invalid multiplicity (must be 0 or 1)")))))) ((0) (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))(else (vector 4 0 "Invalid multiplicity (must be 0 or 1)")))))) -(define Parser-TTImp-forall_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "forall") (lambda () (lambda (_-9000) (vector 8 1 0 (vector 5 ) (lambda (_-9009) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (nstart) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (ns) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (nend) (let ((nfc (vector 0 arg-0 nstart nend))) (let ((binders (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 1 (vector 1 n)) (vector 31 nfc 1)))) ns))) (vector 7 0 (Source-Rule-Parser-symbol ".") (lambda () (lambda (_-9049) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-pibindAll (vector 0 arg-0 start end) (vector 0 ) binders scope)))))))))))))))))))))))))))) +(define Parser-TTImp-getMult (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (cond ((equal? sc1 0) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc1 1) (vector 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))(else (vector 4 0 "Invalid multiplicity (must be 0 or 1)")))))) ((0) (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))(else (vector 4 0 "Invalid multiplicity (must be 0 or 1)")))))) +(define Parser-TTImp-forall_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "forall") (lambda () (lambda (_-8942) (vector 8 1 0 (vector 5 ) (lambda (_-8951) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (nstart) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (ns) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (nend) (let ((nfc (vector 0 arg-0 nstart nend))) (let ((binders (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 1 (vector 1 n)) (vector 31 nfc 1)))) ns))) (vector 7 0 (Source-Rule-Parser-symbol ".") (lambda () (lambda (_-8991) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-pibindAll (vector 0 arg-0 start end) (vector 0 ) binders scope)))))))))))))))))))))))))))) (define Parser-TTImp-fnOpt (lambda () (vector 7 1 (Parser-TTImp-totalityOpt) (lambda () (lambda (x) (vector 0 (vector 7 x))))))) -(define Parser-TTImp-fnDirectOpt (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))))))) (vector 7 1 (Source-Rule-Parser-pragma "hint") (lambda () (lambda (_-7896) (vector 0 (vector 2 0))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))))) (vector 7 1 (Source-Rule-Parser-pragma "chaser") (lambda () (lambda (_-7882) (vector 0 (vector 2 1))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))) (vector 7 1 (Source-Rule-Parser-pragma "globalhint") (lambda () (lambda (_-7868) (vector 0 (vector 3 0))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))) (vector 7 1 (Source-Rule-Parser-pragma "defaulthint") (lambda () (lambda (_-7854) (vector 0 (vector 3 1))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-pragma "inline") (lambda () (lambda (_-7839) (vector 0 (vector 0 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-pragma "extern") (lambda () (lambda (_-7825) (vector 0 (vector 4 ))))))))))))))))) -(define Parser-TTImp-fieldDecl (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-11394) (vector 8 1 0 (vector 5 ) (lambda (_-11403) (vector 7 0 (Parser-TTImp-n--10161-11291-fieldBody arg-1 arg-0 (vector 0 )) (lambda () (lambda (fs) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-11421) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-11429) (vector 0 fs)))))))))))))) (lambda () (vector 7 1 (Parser-TTImp-n--10161-11291-fieldBody arg-1 arg-0 (vector 1 )) (lambda () (lambda (fs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-11380) (vector 0 fs)))))))))) -(define Parser-TTImp-field (lambda (arg-0 arg-1) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol "->") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (path) (let ((sc0 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))) (cond ((equal? sc0 1) (vector 8 1 0 (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-9885) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "$=") (lambda () (lambda (_-9871) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1))))))))) (lambda () (lambda (upd) (vector 7 1 (Parser-TTImp-appExpr arg-0 arg-1) (lambda () (lambda (val) (vector 0 ((upd path) val))))))))) (else (vector 7 0 (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-9885) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "$=") (lambda () (lambda (_-9871) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1))))))))) (lambda () (lambda (upd) (vector 7 1 (Parser-TTImp-appExpr arg-0 arg-1) (lambda () (lambda (val) (vector 0 ((upd path) val)))))))))))))))) +(define Parser-TTImp-fnDirectOpt (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) 0 (vector 7 1 (Source-Rule-Parser-pragma "hint") (lambda () (lambda (_-7780) (vector 0 (vector 2 0))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) 0 (vector 7 1 (Source-Rule-Parser-pragma "chaser") (lambda () (lambda (_-7798) (vector 0 (vector 2 1))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) 0 (vector 7 1 (Source-Rule-Parser-pragma "globalhint") (lambda () (lambda (_-7816) (vector 0 (vector 3 0))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) 0 (vector 7 1 (Source-Rule-Parser-pragma "defaulthint") (lambda () (lambda (_-7834) (vector 0 (vector 3 1))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-pragma "inline") (lambda () (lambda (_-7852) (vector 0 (vector 0 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-pragma "extern") (lambda () (lambda (_-7867) (vector 0 (vector 4 ))))))))))))))))) +(define Parser-TTImp-fieldDecl (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-11267) (vector 8 1 0 (vector 5 ) (lambda (_-11276) (vector 7 0 (Parser-TTImp-n--10092-11188-fieldBody arg-1 arg-0 (vector 0 )) (lambda () (lambda (fs) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-11294) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-11302) (vector 0 fs)))))))))))))) (lambda () (vector 7 1 (Parser-TTImp-n--10092-11188-fieldBody arg-1 arg-0 (vector 1 )) (lambda () (lambda (fs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-11330) (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 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-9785) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "$=") (lambda () (lambda (_-9799) (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 (_-9202) (vector 7 0 (Parser-TTImp-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-9218) (vector 7 0 (Parser-TTImp-bindSymbol) (lambda () (lambda (exp) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-pibindAll (vector 0 arg-0 start end) exp binders scope))))))))))))))))))))))) -(define Parser-TTImp-directive (lambda (arg-0 arg-1) (vector 7 0 (Source-Rule-Parser-pragma "logging") (lambda () (lambda (_-11642) (vector 8 1 0 (vector 5 ) (lambda (_-11651) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (lvl) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-11667) (vector 0 (vector 9 lvl)))))))))))))) +(define Parser-TTImp-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 (_-9144) (vector 7 0 (Parser-TTImp-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-9160) (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 (_-11536) (vector 8 1 0 (vector 5 ) (lambda (_-11545) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (lvl) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-11561) (vector 0 (vector 9 lvl)))))))))))))) (define Parser-TTImp-definition (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-TTImp-clause 0 arg-0 arg-1) (lambda () (lambda (nd) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 2 (vector 0 arg-0 start end) (Builtin-fst 'erased 'erased nd) (vector 1 (Builtin-snd 'erased 'erased nd) (vector 0 ))))))))))))) -(define Parser-TTImp-dataOpt (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Source-Rule-Parser-exactIdent "noHints") (lambda () (lambda (_-10826) (vector 0 (vector 1 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "uniqueSearch") (lambda () (lambda (_-10814) (vector 0 (vector 2 ))))) (lambda () (vector 7 0 (Source-Rule-Parser-exactIdent "search") (lambda () (lambda (_-10789) (vector 7 1 (Parser-Text-some 'erased 'erased (Source-Rule-Parser-name)) (lambda () (lambda (ns) (vector 0 (vector 0 ns)))))))))))))) -(define Parser-TTImp-dataDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "data") (lambda () (lambda (_-10849) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-10866) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (ty) (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-10881) (vector 8 1 1 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 0 ) (vector 7 0 (Source-Rule-Parser-symbol "[") (lambda () (lambda (_-10900) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-TTImp-dataOpt)) (lambda () (lambda (dopts) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-10921) (vector 0 dopts))))))))))) (lambda (opts) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-TTImp-tyDecl arg-0 eta-0))) (lambda (cs) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 start end) n ty opts cs))))))))))))))))))))))))))) -(define Parser-TTImp-command (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))))))))))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12405) (vector 7 0 (Source-Rule-Parser-exactIdent "t") (lambda () (lambda (_-12413) (vector 7 1 (Parser-TTImp-expr "(repl)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (vector 1 tm))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))))))))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12372) (vector 7 0 (Source-Rule-Parser-exactIdent "s") (lambda () (lambda (_-12380) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 2 n))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))))))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12339) (vector 7 0 (Source-Rule-Parser-exactIdent "es") (lambda () (lambda (_-12347) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 3 n))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12294) (vector 7 0 (Source-Rule-Parser-exactIdent "gd") (lambda () (lambda (_-12302) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (l) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 4 l n)))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12261) (vector 7 0 (Source-Rule-Parser-exactIdent "missing") (lambda () (lambda (_-12269) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 5 n))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12228) (vector 7 0 (Source-Rule-Parser-keyword "total") (lambda () (lambda (_-12236) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 6 n))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12195) (vector 7 0 (Source-Rule-Parser-exactIdent "di") (lambda () (lambda (_-12203) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 7 n))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12172) (vector 7 1 (Source-Rule-Parser-exactIdent "q") (lambda () (lambda (_-12180) (vector 0 (vector 8 )))))))) (lambda () (vector 7 1 (Parser-TTImp-expr "(repl)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (vector 0 tm))))))))))))))))))))))) -(define Parser-TTImp-collectDefs (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (Parser-TTImp-case--6501-12060 e-6 e-5 e-4 e-3 (Parser-TTImp-n--6501-11867-spanMap e-6 e-5 e-4 e-3 'erased 'erased (lambda (eta-0) (Parser-TTImp-n--6501-11868-isClause e-6 e-5 e-4 e-3 e-5 eta-0)) e-3)))))) ((5) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (vector 1 (vector 5 e-7 e-8 (Parser-TTImp-collectDefs e-9)) (Parser-TTImp-collectDefs e-3))))))(else (vector 1 e-2 (Parser-TTImp-collectDefs e-3)))))))))))) -(define Parser-TTImp-clause (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-TTImp-expr arg-1 arg-2) (lambda () (lambda (lhs) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-TTImp-n--9271-10617-parseWithArg arg-2 arg-1 arg-0)) (lambda (extra) (Parser-TTImp-ifThenElse 'erased (Prelude-C-47C-61_Eq__Nat arg-0 (List-Data-length 'erased extra)) (lambda () (vector 4 0 "Wrong number of 'with' arguments")) (lambda () (Parser-TTImp-parseRHS arg-0 arg-1 arg-2 start (Parser-TTImp-n--9271-10616-applyArgs arg-2 arg-1 arg-0 lhs extra))))))))))))) -(define Parser-TTImp-case_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "case") (lambda () (lambda (_-9568) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (scr) (vector 7 1 (Source-Rule-Parser-keyword "of") (lambda () (lambda (_-9583) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-TTImp-caseAlt arg-0 eta-0))) (lambda (alts) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((fc (vector 0 arg-0 start end))) (vector 4 fc scr (vector 31 fc 1) alts)))))))))))))))))))) -(define Parser-TTImp-caseRHS (lambda (arg-0 arg-1 arg-2 arg-3) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-9686) (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-9694) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (rhs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-9709) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 arg-2 end) arg-3 rhs)))))))))))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "impossible") (lambda () (lambda (_-9652) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-9660) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 2 (vector 0 arg-0 arg-2 end) arg-3))))))))))))) +(define Parser-TTImp-dataOpt (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "noHints") (lambda () (lambda (_-10693) (vector 0 (vector 1 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "uniqueSearch") (lambda () (lambda (_-10709) (vector 0 (vector 2 ))))) (lambda () (vector 7 0 (Source-Rule-Parser-exactIdent "search") (lambda () (lambda (_-10721) (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 (_-10757) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-10774) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (ty) (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-10789) (vector 8 1 1 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 0 ) (vector 7 0 (Source-Rule-Parser-symbol "[") (lambda () (lambda (_-10807) (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 (_-10828) (vector 0 dopts))))))))))) (lambda (opts) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-TTImp-tyDecl arg-0 eta-0))) (lambda (cs) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 start end) n ty opts cs))))))))))))))))))))))))))) +(define Parser-TTImp-command (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12000) (vector 7 0 (Source-Rule-Parser-exactIdent "t") (lambda () (lambda (_-12008) (vector 7 1 (Parser-TTImp-expr "(repl)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (vector 1 tm))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12037) (vector 7 0 (Source-Rule-Parser-exactIdent "s") (lambda () (lambda (_-12045) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 2 n))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12074) (vector 7 0 (Source-Rule-Parser-exactIdent "es") (lambda () (lambda (_-12082) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 3 n))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12111) (vector 7 0 (Source-Rule-Parser-exactIdent "gd") (lambda () (lambda (_-12119) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (l) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 4 l n)))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12160) (vector 7 0 (Source-Rule-Parser-exactIdent "missing") (lambda () (lambda (_-12168) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 5 n))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12197) (vector 7 0 (Source-Rule-Parser-keyword "total") (lambda () (lambda (_-12205) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 6 n))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12234) (vector 7 0 (Source-Rule-Parser-exactIdent "di") (lambda () (lambda (_-12242) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 7 n))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12271) (vector 7 1 (Source-Rule-Parser-exactIdent "q") (lambda () (lambda (_-12279) (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--6543-11946 e-6 e-5 e-4 e-3 (Parser-TTImp-n--6543-11753-spanMap e-6 e-5 e-4 e-3 'erased 'erased (lambda (eta-0) (Parser-TTImp-n--6543-11754-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--9223-10530-parseWithArg arg-2 arg-1 arg-0)) (lambda (extra) (Parser-TTImp-ifThenElse 'erased (Prelude-C-47C-61_Eq__Nat arg-0 (List-Data-length 'erased extra)) (lambda () (vector 4 0 "Wrong number of 'with' arguments")) (lambda () (Parser-TTImp-parseRHS arg-0 arg-1 arg-2 start (Parser-TTImp-n--9223-10529-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 (_-9507) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (scr) (vector 7 1 (Source-Rule-Parser-keyword "of") (lambda () (lambda (_-9522) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-TTImp-caseAlt arg-0 eta-0))) (lambda (alts) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((fc (vector 0 arg-0 start end))) (vector 4 fc scr (vector 31 fc 1) alts)))))))))))))))))))) +(define Parser-TTImp-caseRHS (lambda (arg-0 arg-1 arg-2 arg-3) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-9589) (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-9597) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (rhs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-9612) (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 (_-9640) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-9648) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 2 (vector 0 arg-0 arg-2 end) arg-3))))))))))))) (define Parser-TTImp-caseAlt (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-TTImp-appExpr arg-0 arg-1) (lambda () (lambda (lhs) (Parser-TTImp-caseRHS arg-0 arg-1 start lhs)))))))) (define Parser-TTImp-binder (lambda (arg-0 arg-1) (vector 9 0 0 (Parser-TTImp-autoImplicitPi arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-forall_ arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-implicitPi arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-explicitPi arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-lam arg-0 arg-1) (lambda () (Parser-TTImp-let_ arg-0 arg-1))))))))))))) -(define Parser-TTImp-bindSymbol (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-8054) (vector 0 (vector 1 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-8039) (vector 0 (vector 2 ))))))))) -(define Parser-TTImp-bindList (lambda (arg-0 arg-1 arg-2) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (vector 8 1 0 (Parser-TTImp-multiplicity) (lambda (rigc) (vector 7 1 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (n) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 31 (vector 0 arg-0 arg-1 end) 1) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-8658) (Parser-TTImp-appExpr arg-0 arg-2))))) (lambda (ty) (vector 8 1 1 (Parser-TTImp-getMult rigc) (lambda (rig) (vector 0 (vector 0 rig (vector 0 (vector 1 n) ty))))))))))))))))) -(define Parser-TTImp-autoImplicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8904) (vector 7 0 (Source-Rule-Parser-keyword "auto") (lambda () (lambda (_-8912) (vector 8 1 0 (vector 5 ) (lambda (_-8921) (vector 7 0 (Parser-TTImp-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8937) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-8946) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-pibindAll (vector 0 arg-0 start end) (vector 2 ) binders scope)))))))))))))))))))))))))))) -(define Parser-TTImp-atom (lambda (arg-0) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-constant) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 27 (vector 0 arg-0 start end) x))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-exactIdent "Type") (lambda () (lambda (_-7608) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 28 (vector 0 arg-0 start end)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-symbol "_") (lambda () (lambda (_-7573) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 31 (vector 0 arg-0 start end) 0))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-symbol "?") (lambda () (lambda (_-7537) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 31 (vector 0 arg-0 start end) 1))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-pragma "search") (lambda () (lambda (_-7499) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 11 (vector 0 arg-0 start end) (Prelude-fromInteger_Num__Nat 1000)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 start end) x))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "$") (lambda () (lambda (_-7420) (vector 7 1 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 16 (vector 0 arg-0 start end) x)))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-holeName) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 29 (vector 0 arg-0 start end) x))))))))))))))))))))))))) -(define Parser-TTImp-as (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 7 0 (Source-Rule-Parser-symbol "@") (lambda () (lambda (_-8451) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (pat) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 17 (vector 0 arg-0 start end) (vector 1 ) (vector 1 x) pat))))))))))))))))) -(define Parser-TTImp-argExpr (lambda (arg-0 arg-1) (vector 9 0 0 (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-8236) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (arg) (vector 0 (vector 0 arg))))))) (lambda () (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-8213) (vector 7 1 (Parser-TTImp-implicitArg arg-0 arg-1) (lambda () (lambda (arg) (vector 0 (vector 1 arg))))))))))) -(define Parser-TTImp-appExpr (lambda (arg-0 arg-1) (vector 9 0 0 (Parser-TTImp-case_ arg-0 arg-1) (lambda () (vector 9 0 (Prelude-C-124C-124 1 (lambda () 0)) (Parser-TTImp-lazy arg-0 arg-1) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (f) (vector 8 1 1 (Parser-Text-many 'erased 'erased (Parser-TTImp-argExpr arg-0 arg-1)) (lambda (args) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-n--7186-8120-applyExpImp arg-1 arg-0 start end f args))))))))))))))))) -(define GenerateDef-Interactive-TTImp-case--12484-7409 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (GenerateDef-Interactive-TTImp-mkSplits arg-4 arg-3 arg-2 arg-5 e-1 arg-18 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-4 arg-12))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (set-box! arg-3 arg-13))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (set-box! arg-2 arg-14))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 1 (vector 0 arg-5 e-5))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-10) eta-0))))))) -(define GenerateDef-Interactive-TTImp-case--12468-7300 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-4 e-9) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Searching for " (Name-Core-show_Show__Name e-7))) e-14 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-26 (Context-Core-branch arg-4 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-27 (let ((act-27 (unbox arg-3))) (vector 1 act-27)))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-28 (let ((act-28 (unbox arg-2))) (vector 1 act-28)))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc8 1))) (let ((act-29 (let ((act-29 ((Normalise-Core-nf (vector 0 ) e-11 (vector 0 ) e-14) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc9 1))) ((CaseSplit-Interactive-TTImp-getEnvArgNames arg-4 e-11 e-13 e-16) eta-0)))))))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc9 1))) (let ((pre_env (List-Data-replicate 'erased e-13 (vector 31 e-5 0)))) (let ((act-30 (Utils-TTImp-uniqueName e-11 (vector 0 ) (Strings-Prelude-C-43C-43 (GenerateDef-Interactive-TTImp-fnName 1 e-7) "_rhs") eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc10 1))) (let ((initcs (vector 0 e-5 (TTImp-TTImp-apply (vector 0 e-5 e-7) (List-Prelude-C-43C-43 'erased pre_env (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 16 e-5 eta-1)) e-16))) (vector 29 e-5 e-17)))) (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 (vector 0 e-13 e-14)))))) ((GenerateDef-Interactive-TTImp-case--12484-7409 arg-0 arg-1 arg-2 arg-3 arg-4 e-5 e-9 e-13 e-14 _-0 e-7 e-8 e-11 e-12 e-15 e-16 pre_env e-17 initcs (Context-Core-getNameID e-7 (let ((sc11 e-11)) (let ((e-0 (vector-ref sc11 1))) e-0)))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define GenerateDef-Interactive-TTImp-case--12247-7115 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (GenerateDef-Interactive-TTImp-trySplit arg-7 arg-6 arg-5 arg-2 arg-1 e-2 arg-0 eta-0 eta-1))) (GenerateDef-Interactive-TTImp-splittableNames arg-1)))))) -(define GenerateDef-Interactive-TTImp-case--11983-7019 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 arg-0 (Prelude-map_Functor__List 'erased 'erased (lambda (ups) (vector 0 arg-4 (GenerateDef-Interactive-TTImp-n--11983-6867-updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ups arg-3) arg-1)) (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (GenerateDef-Interactive-TTImp-n--11983-6865-valid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) e-1)))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-0 (vector 0 ))))))))) -(define GenerateDef-Interactive-TTImp-case--11997-6954 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (vector 16 arg-9 arg-8)) (else (let ((e-2 (vector-ref sc0 1))) (GenerateDef-Interactive-TTImp-n--11983-6866-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2))))))) -(define GenerateDef-Interactive-TTImp-case--11997-6896 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (vector 0 arg-9 arg-8)) (else (let ((e-2 (vector-ref sc0 1))) (GenerateDef-Interactive-TTImp-n--11983-6866-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2))))))) -(define GenerateDef-Interactive-TTImp-case--11564-6566 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-29)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelab e-2 arg-0 e-6 e-7) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-logTermNF arg-9 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Got clause") arg-12 arg-11 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (Normalise-Core-logTermNF e-2 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () " = ") e-6 e-7 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 1 (GenerateDef-Interactive-TTImp-n--11203-6191-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-5) (vector 0 ))))))))))))))))))))))))) -(define GenerateDef-Interactive-TTImp-case--11460-6489 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1 e-2))) ((GenerateDef-Interactive-TTImp-case--11564-6566 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-2 e-1 _-0 e-5 e-6 (GenerateDef-Interactive-TTImp-n--11203-6192-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-21 (vector 0 ) e-6)) eta-0))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No result found for search on RHS") eta-0))))))) -(define GenerateDef-Interactive-TTImp-case--11391-6403 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Expression search for " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))) (vector 0 arg-18 arg-17)))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-5 arg-4 arg-3 (vector 9 arg-17) (vector 0 ) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((_-0 (vector 1 (vector 7 e-2 e-3)))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-7 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-27 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-7 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((_-1 (vector 1 e-7 e-4))) ((GenerateDef-Interactive-TTImp-case--11564-6566 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-3 e-2 _-0 e-5 e-4 e-7 _-1 e-8 e-9 (GenerateDef-Interactive-TTImp-n--11203-6192-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-2 (vector 0 ) e-9)) eta-0)))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No result found for search on RHS") eta-0)))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No searchable hole on RHS") eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No searchable hole on RHS") eta-0))))))) -(define GenerateDef-Interactive-TTImp-case--11347-6348 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupDefExact (vector 9 e-3) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((7) (let ((e-9 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Expression search for " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))) (vector 0 e-2 e-3)))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-27 (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-5 arg-4 arg-3 (vector 9 e-3) (vector 0 ) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((_-0 (vector 1 (vector 7 e-9 e-8)))) (let ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((act-28 (let ((act-28 (unbox arg-0))) (vector 1 act-28)))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (let ((act-29 (Normalise-Core-normaliseHoles (vector 0 ) e-14 (vector 0 ) e-13 eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-15 (vector-ref sc9 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc9 1))) (let ((_-1 (vector 1 e-13 e-12))) ((GenerateDef-Interactive-TTImp-case--11564-6566 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-1 e-4 e-3 e-2 e-5 e-8 e-9 _-0 e-10 e-12 e-13 _-1 e-14 e-15 (GenerateDef-Interactive-TTImp-n--11203-6192-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-9 (vector 0 ) e-15)) eta-0)))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No result found for search on RHS") eta-0))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No searchable hole on RHS") eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No searchable hole on RHS") eta-0))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No searchable hole on RHS") eta-0))))))) -(define GenerateDef-Interactive-TTImp-case--11316-6316 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm e-0 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "RHS hole") e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((clause (vector 0 e-0 e-1 e-2 e-3))) ((GenerateDef-Interactive-TTImp-case--11347-6348 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 e-0 e-3 e-2 e-1 clause e-5 (TT-Core-getFn 'erased e-3)) eta-0))))))))))))))) -(define GenerateDef-Interactive-TTImp-case--11203-6294 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-2))) (let ((sc1 e-2)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm e-0 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "RHS hole") e-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((clause (vector 0 e-0 e-1 e-4 e-3))) ((GenerateDef-Interactive-TTImp-case--11347-6348 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 _-0 e-0 e-3 e-4 e-1 clause e-5 (TT-Core-getFn 'erased e-3)) eta-0)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define GenerateDef-Interactive-TTImp-case--11134-6137 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-0 ")"))) (else "op"))))) -(define GenerateDef-Interactive-TTImp-case--11129-6124 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-0) (else (let ((sc1 arg-1)) (cond ((equal? sc1 0) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-0 ")"))) (else "op")))))))) -(define GenerateDef-Interactive-TTImp-n--11983-6865-valid (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (vector 1 e-1)))(else (vector 0 )))))) -(define GenerateDef-Interactive-TTImp-n--11203-6191-updateRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 arg-7)))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (vector 1 e-3 e-4 e-5 e-6 e-7))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (vector 2 e-8 e-9)))))))) -(define GenerateDef-Interactive-TTImp-n--11983-6867-updateLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (GenerateDef-Interactive-TTImp-case--11997-6896 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 e-0 arg-8 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-1 arg-8))))) ((16) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (GenerateDef-Interactive-TTImp-case--11997-6954 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-2 arg-8 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (vector 1 e-3) arg-8))))) ((8) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (vector 8 e-4 (GenerateDef-Interactive-TTImp-n--11983-6867-updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5) (GenerateDef-Interactive-TTImp-n--11983-6867-updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6)))))) ((9) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (vector 9 e-7 (GenerateDef-Interactive-TTImp-n--11983-6867-updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8) e-9 (GenerateDef-Interactive-TTImp-n--11983-6867-updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-10)))))))(else arg-9))))) -(define GenerateDef-Interactive-TTImp-n--11163-6152-mkUniqueName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((29) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Utils-TTImp-uniqueName e-5 (vector 0 ) e-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 29 e-0 e-6))))))))))))))))(else (lambda (eta-0) (vector 1 arg-4))))))) -(define GenerateDef-Interactive-TTImp-n--11983-6866-fixNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-9 (vector-ref sc1 1))) (vector 16 e-0 e-9))) ((2) (vector 31 e-0 0))(else arg-8)))))) ((8) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 8 e-2 (GenerateDef-Interactive-TTImp-n--11983-6866-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3) (GenerateDef-Interactive-TTImp-n--11983-6866-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-4)))))) ((9) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 9 e-5 (GenerateDef-Interactive-TTImp-n--11983-6866-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-6) e-7 (GenerateDef-Interactive-TTImp-n--11983-6866-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-8)))))))(else arg-8))))) -(define GenerateDef-Interactive-TTImp-n--11203-6192-dropLams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (vector 0 arg-6 (vector 0 arg-8 arg-9)))(else (let ((e-0 (- arg-7 1))) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((3) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (GenerateDef-Interactive-TTImp-n--11203-6192-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-3 arg-6) e-0 (vector 1 e-4 arg-8) e-5)))))(else (vector 0 arg-6 (vector 0 arg-8 arg-9))))))))))) -(define GenerateDef-Interactive-TTImp-uniqueRHS (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((GenerateDef-Interactive-TTImp-n--11163-6152-mkUniqueName e-2 e-1 e-0 arg-0 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 e-5))))))))))))(else (lambda (eta-0) (vector 1 arg-1))))))) -(define GenerateDef-Interactive-TTImp-trySplit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-getSplitsLHS arg-0 arg-1 arg-2 arg-3 0 arg-5 arg-7) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (vector 1 (vector 0 arg-7 (Prelude-map_Functor__List 'erased 'erased (lambda (ups) (vector 0 arg-3 (GenerateDef-Interactive-TTImp-n--11983-6867-updateLHS arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 ups arg-4) arg-6)) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (GenerateDef-Interactive-TTImp-n--11983-6865-valid arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)) e-1))))))(else (vector 1 (vector 0 arg-7 (vector 0 ))))))))))))) -(define GenerateDef-Interactive-TTImp-tryAllSplits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-5 eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (GenerateDef-Interactive-TTImp-tryAllSplits arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Splitting on " (Name-Core-show_Show__Name e-6))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (lambda (eta-3) (GenerateDef-Interactive-TTImp-mkSplits arg-0 arg-1 arg-2 arg-3 arg-4 eta-2 eta-3))) e-7) eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8)))))))) (lambda (err) (GenerateDef-Interactive-TTImp-tryAllSplits arg-0 arg-1 arg-2 arg-3 arg-4 err e-3)) eta-0))))))))))))))))))) +(define Parser-TTImp-bindSymbol (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-8005) (vector 0 (vector 1 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-8020) (vector 0 (vector 2 ))))))))) +(define Parser-TTImp-bindList (lambda (arg-0 arg-1 arg-2) (Parser-Text-sepBy1 'erased 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) (Source-Rule-Parser-symbol ",") (vector 8 1 0 (Parser-TTImp-multiplicity) (lambda (rigc) (vector 7 1 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (n) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 31 (vector 0 arg-0 arg-1 end) 1) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-8603) (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 (_-8846) (vector 7 0 (Source-Rule-Parser-keyword "auto") (lambda () (lambda (_-8854) (vector 8 1 0 (vector 5 ) (lambda (_-8863) (vector 7 0 (Parser-TTImp-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8879) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-8888) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-pibindAll (vector 0 arg-0 start end) (vector 2 ) binders scope)))))))))))))))))))))))))))) +(define Parser-TTImp-atom (lambda (arg-0) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-constant) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 27 (vector 0 arg-0 start end) x))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) 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 (_-7392) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 28 (vector 0 arg-0 start end)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) 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 (_-7431) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 31 (vector 0 arg-0 start end) 0))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) 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 (_-7471) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 31 (vector 0 arg-0 start end) 1))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) 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 (_-7511) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 11 (vector 0 arg-0 start end) (Prelude-fromInteger_Num__Nat 1000)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 start end) x))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "$") (lambda () (lambda (_-7592) (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 (_-8408) (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 (_-8173) (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 (_-8197) (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 (Prelude-C-38C-38 0 (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (Parser-TTImp-case_ arg-0 arg-1) (lambda () (vector 9 0 (Prelude-C-124C-124 1 (lambda () 0)) (Parser-TTImp-lazy arg-0 arg-1) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (f) (vector 8 1 1 (Parser-Text-many 'erased 'erased (Parser-TTImp-argExpr arg-0 arg-1)) (lambda (args) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-n--7186-8086-applyExpImp arg-1 arg-0 start end f args))))))))))))))))) +(define GenerateDef-Interactive-TTImp-case--12558-7417 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (GenerateDef-Interactive-TTImp-mkSplits arg-4 arg-3 arg-2 arg-5 e-1 arg-18 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-4 arg-12))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (set-box! arg-3 arg-13))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (set-box! arg-2 arg-14))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 1 (vector 0 arg-5 e-5))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-10) eta-0))))))) +(define GenerateDef-Interactive-TTImp-case--12542-7308 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-4 e-9) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Searching for " (Name-Core-show_Show__Name e-7))) e-14 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-26 (Context-Core-branch arg-4 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-27 (let ((act-27 (unbox arg-3))) (vector 1 act-27)))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-28 (let ((act-28 (unbox arg-2))) (vector 1 act-28)))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc8 1))) (let ((act-29 (let ((act-29 ((Normalise-Core-nf (vector 0 ) e-11 (vector 0 ) e-14) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc9 1))) ((CaseSplit-Interactive-TTImp-getEnvArgNames arg-4 e-11 e-13 e-16) eta-0)))))))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc9 1))) (let ((pre_env (List-Data-replicate 'erased e-13 (vector 31 e-5 0)))) (let ((act-30 (Utils-TTImp-uniqueName e-11 (vector 0 ) (Strings-Prelude-C-43C-43 (GenerateDef-Interactive-TTImp-fnName 1 e-7) "_rhs") eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc10 1))) (let ((initcs (vector 0 e-5 (TTImp-TTImp-apply (vector 0 e-5 e-7) (List-Prelude-C-43C-43 'erased pre_env (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 16 e-5 eta-1)) e-16))) (vector 29 e-5 e-17)))) (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 (vector 0 e-13 e-14)))))) ((GenerateDef-Interactive-TTImp-case--12558-7417 arg-0 arg-1 arg-2 arg-3 arg-4 e-5 e-9 e-13 e-14 _-0 e-7 e-8 e-11 e-12 e-15 e-16 pre_env e-17 initcs (Context-Core-getNameID e-7 (let ((sc11 e-11)) (let ((e-0 (vector-ref sc11 1))) e-0)))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define GenerateDef-Interactive-TTImp-case--12321-7123 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (GenerateDef-Interactive-TTImp-trySplit arg-7 arg-6 arg-5 arg-2 arg-1 e-2 arg-0 eta-0 eta-1))) (GenerateDef-Interactive-TTImp-splittableNames arg-1)))))) +(define GenerateDef-Interactive-TTImp-case--12057-7027 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 arg-0 (Prelude-map_Functor__List 'erased 'erased (lambda (ups) (vector 0 arg-4 (GenerateDef-Interactive-TTImp-n--12057-6875-updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ups arg-3) arg-1)) (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (GenerateDef-Interactive-TTImp-n--12057-6873-valid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) e-1)))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-0 (vector 0 ))))))))) +(define GenerateDef-Interactive-TTImp-case--12071-6962 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (vector 16 arg-9 arg-8)) (else (let ((e-2 (vector-ref sc0 1))) (GenerateDef-Interactive-TTImp-n--12057-6874-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2))))))) +(define GenerateDef-Interactive-TTImp-case--12071-6904 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (vector 0 arg-9 arg-8)) (else (let ((e-2 (vector-ref sc0 1))) (GenerateDef-Interactive-TTImp-n--12057-6874-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2))))))) +(define GenerateDef-Interactive-TTImp-case--11638-6574 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-29)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelab e-2 arg-0 e-6 e-7) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-logTermNF arg-9 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Got clause") arg-12 arg-11 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (Normalise-Core-logTermNF e-2 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () " = ") e-6 e-7 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 1 (GenerateDef-Interactive-TTImp-n--11277-6199-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-5) (vector 0 ))))))))))))))))))))))))) +(define GenerateDef-Interactive-TTImp-case--11534-6497 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1 e-2))) ((GenerateDef-Interactive-TTImp-case--11638-6574 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-2 e-1 _-0 e-5 e-6 (GenerateDef-Interactive-TTImp-n--11277-6200-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-21 (vector 0 ) e-6)) eta-0))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No result found for search on RHS") eta-0))))))) +(define GenerateDef-Interactive-TTImp-case--11465-6411 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Expression search for " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))) (vector 0 arg-18 arg-17)))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-5 arg-4 arg-3 (vector 9 arg-17) (vector 0 ) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((_-0 (vector 1 (vector 7 e-2 e-3)))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-7 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-27 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-7 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((_-1 (vector 1 e-7 e-4))) ((GenerateDef-Interactive-TTImp-case--11638-6574 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-3 e-2 _-0 e-5 e-4 e-7 _-1 e-8 e-9 (GenerateDef-Interactive-TTImp-n--11277-6200-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-2 (vector 0 ) e-9)) eta-0)))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No result found for search on RHS") eta-0)))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No searchable hole on RHS") eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No searchable hole on RHS") eta-0))))))) +(define GenerateDef-Interactive-TTImp-case--11421-6356 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupDefExact (vector 9 e-3) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((7) (let ((e-9 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Expression search for " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))) (vector 0 e-2 e-3)))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-27 (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-5 arg-4 arg-3 (vector 9 e-3) (vector 0 ) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((_-0 (vector 1 (vector 7 e-9 e-8)))) (let ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((act-28 (let ((act-28 (unbox arg-0))) (vector 1 act-28)))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (let ((act-29 (Normalise-Core-normaliseHoles (vector 0 ) e-14 (vector 0 ) e-13 eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-15 (vector-ref sc9 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc9 1))) (let ((_-1 (vector 1 e-13 e-12))) ((GenerateDef-Interactive-TTImp-case--11638-6574 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-1 e-4 e-3 e-2 e-5 e-8 e-9 _-0 e-10 e-12 e-13 _-1 e-14 e-15 (GenerateDef-Interactive-TTImp-n--11277-6200-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-9 (vector 0 ) e-15)) eta-0)))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No result found for search on RHS") eta-0))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No searchable hole on RHS") eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No searchable hole on RHS") eta-0))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No searchable hole on RHS") eta-0))))))) +(define GenerateDef-Interactive-TTImp-case--11390-6324 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm e-0 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "RHS hole") e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((clause (vector 0 e-0 e-1 e-2 e-3))) ((GenerateDef-Interactive-TTImp-case--11421-6356 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 e-0 e-3 e-2 e-1 clause e-5 (TT-Core-getFn 'erased e-3)) eta-0))))))))))))))) +(define GenerateDef-Interactive-TTImp-case--11277-6302 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-2))) (let ((sc1 e-2)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm e-0 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "RHS hole") e-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((clause (vector 0 e-0 e-1 e-4 e-3))) ((GenerateDef-Interactive-TTImp-case--11421-6356 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 _-0 e-0 e-3 e-4 e-1 clause e-5 (TT-Core-getFn 'erased e-3)) eta-0)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define GenerateDef-Interactive-TTImp-case--11208-6145 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-0 ")"))) (else "op"))))) +(define GenerateDef-Interactive-TTImp-case--11203-6132 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-0) (else (let ((sc1 arg-1)) (cond ((equal? sc1 0) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-0 ")"))) (else "op")))))))) +(define GenerateDef-Interactive-TTImp-n--12057-6873-valid (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (vector 1 e-1)))(else (vector 0 )))))) +(define GenerateDef-Interactive-TTImp-n--11277-6199-updateRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 arg-7)))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (vector 1 e-3 e-4 e-5 e-6 e-7))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (vector 2 e-8 e-9)))))))) +(define GenerateDef-Interactive-TTImp-n--12057-6875-updateLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (GenerateDef-Interactive-TTImp-case--12071-6904 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 e-0 arg-8 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-1 arg-8))))) ((16) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (GenerateDef-Interactive-TTImp-case--12071-6962 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-2 arg-8 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (vector 1 e-3) arg-8))))) ((8) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (vector 8 e-4 (GenerateDef-Interactive-TTImp-n--12057-6875-updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5) (GenerateDef-Interactive-TTImp-n--12057-6875-updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6)))))) ((9) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (vector 9 e-7 (GenerateDef-Interactive-TTImp-n--12057-6875-updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8) e-9 (GenerateDef-Interactive-TTImp-n--12057-6875-updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-10)))))))(else arg-9))))) +(define GenerateDef-Interactive-TTImp-n--11237-6160-mkUniqueName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((29) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Utils-TTImp-uniqueName e-5 (vector 0 ) e-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 29 e-0 e-6))))))))))))))))(else (lambda (eta-0) (vector 1 arg-4))))))) +(define GenerateDef-Interactive-TTImp-n--12057-6874-fixNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-9 (vector-ref sc1 1))) (vector 16 e-0 e-9))) ((2) (vector 31 e-0 0))(else arg-8)))))) ((8) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 8 e-2 (GenerateDef-Interactive-TTImp-n--12057-6874-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3) (GenerateDef-Interactive-TTImp-n--12057-6874-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-4)))))) ((9) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 9 e-5 (GenerateDef-Interactive-TTImp-n--12057-6874-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-6) e-7 (GenerateDef-Interactive-TTImp-n--12057-6874-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-8)))))))(else arg-8))))) +(define GenerateDef-Interactive-TTImp-n--11277-6200-dropLams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (vector 0 arg-6 (vector 0 arg-8 arg-9)))(else (let ((e-0 (- arg-7 1))) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((3) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (GenerateDef-Interactive-TTImp-n--11277-6200-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-3 arg-6) e-0 (vector 1 e-4 arg-8) e-5)))))(else (vector 0 arg-6 (vector 0 arg-8 arg-9))))))))))) +(define GenerateDef-Interactive-TTImp-uniqueRHS (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((GenerateDef-Interactive-TTImp-n--11237-6160-mkUniqueName e-2 e-1 e-0 arg-0 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 e-5))))))))))))(else (lambda (eta-0) (vector 1 arg-1))))))) +(define GenerateDef-Interactive-TTImp-trySplit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-getSplitsLHS arg-0 arg-1 arg-2 arg-3 0 arg-5 arg-7) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (vector 1 (vector 0 arg-7 (Prelude-map_Functor__List 'erased 'erased (lambda (ups) (vector 0 arg-3 (GenerateDef-Interactive-TTImp-n--12057-6875-updateLHS arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 ups arg-4) arg-6)) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (GenerateDef-Interactive-TTImp-n--12057-6873-valid arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)) e-1))))))(else (vector 1 (vector 0 arg-7 (vector 0 ))))))))))))) +(define GenerateDef-Interactive-TTImp-tryAllSplits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-5 eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (GenerateDef-Interactive-TTImp-tryAllSplits arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Splitting on " (Name-Core-show_Show__Name e-6))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (lambda (eta-3) (GenerateDef-Interactive-TTImp-mkSplits arg-0 arg-1 arg-2 arg-3 arg-4 eta-2 eta-3))) e-7) eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8)))))))) (lambda (err) (GenerateDef-Interactive-TTImp-tryAllSplits arg-0 arg-1 arg-2 arg-3 arg-4 err e-3)) eta-0))))))))))))))))))) (define GenerateDef-Interactive-TTImp-splittableNames (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((8) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((16) (let ((e-8 (vector-ref sc1 2))) (List-Prelude-C-43C-43 'erased (GenerateDef-Interactive-TTImp-splittableNames e-1) (vector 1 (vector 1 e-8) (vector 0 )))))(else (GenerateDef-Interactive-TTImp-splittableNames e-1))))))) ((9) (let ((e-4 (vector-ref sc0 2))) (GenerateDef-Interactive-TTImp-splittableNames e-4)))(else (vector 0 )))))) (define GenerateDef-Interactive-TTImp-mkSplits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (GenerateDef-Interactive-TTImp-expandClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-0)) (lambda (err) (lambda (eta-0) (let ((act-24 ((GenerateDef-Interactive-TTImp-generateSplits arg-1 arg-0 arg-2 arg-3 arg-4 arg-5) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Splits: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__ImpClause x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__ImpClause d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__ImpClause x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__ImpClause d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__ImpClause x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__ImpClause d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__ImpClause x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__ImpClause d-1 x-1)))) d-0 x-0))))) d x)))) e-5))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((GenerateDef-Interactive-TTImp-tryAllSplits arg-0 arg-1 arg-2 arg-3 arg-4 err e-5) eta-0)))))))))))) ext-0))) -(define GenerateDef-Interactive-TTImp-makeDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Metadata-Core-findTyDeclAt arg-1 arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-10)) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((act-25 ((Context-Core-getFullName arg-0 e-9) ext-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-26 (Context-Core-logTerm (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Searching for " (Name-Core-show_Show__Name e-8))) e-14 ext-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-27 (Context-Core-branch arg-0 ext-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-28 (let ((act-28 (unbox arg-1))) (vector 1 act-28)))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc8 1))) (let ((act-29 (let ((act-29 (unbox arg-2))) (vector 1 act-29)))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc9 1))) (let ((act-30 (let ((act-30 ((Normalise-Core-nf (vector 0 ) e-12 (vector 0 ) e-14) ext-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc10 1))) ((CaseSplit-Interactive-TTImp-getEnvArgNames arg-0 e-12 e-13 e-17) ext-0)))))))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc10 1))) (let ((pre_env (List-Data-replicate 'erased e-13 (vector 31 e-7 0)))) (let ((act-31 (Utils-TTImp-uniqueName e-12 (vector 0 ) (Strings-Prelude-C-43C-43 (GenerateDef-Interactive-TTImp-fnName 1 e-8) "_rhs") ext-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc11 1))) (let ((initcs (vector 0 e-7 (TTImp-TTImp-apply (vector 0 e-7 e-8) (List-Prelude-C-43C-43 'erased pre_env (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 16 e-7 eta-0)) e-17))) (vector 29 e-7 e-18)))) (let ((_-0 (vector 1 (vector 0 e-7 (vector 0 e-9 (vector 0 e-13 e-14)))))) ((GenerateDef-Interactive-TTImp-case--12484-7409 arg-4 arg-3 arg-2 arg-1 arg-0 e-7 e-9 e-13 e-14 _-0 e-8 e-11 e-12 e-15 e-16 e-17 pre_env e-18 initcs (Context-Core-getNameID e-8 (let ((sc12 e-12)) (let ((e-0 (vector-ref sc12 1))) e-0)))) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) -(define GenerateDef-Interactive-TTImp-generateSplits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Elab-TTImp-elabTerm (vector 0 ) arg-1 arg-0 arg-2 arg-4 (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 arg-3 (vector 1 ) e-8) (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (GenerateDef-Interactive-TTImp-trySplit arg-0 arg-1 arg-2 e-7 e-8 e-2 e-9 eta-1 eta-2))) (GenerateDef-Interactive-TTImp-splittableNames e-8)) eta-0))))))))))))))))) -(define GenerateDef-Interactive-TTImp-fnName (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (GenerateDef-Interactive-TTImp-case--11129-6124 e-0 arg-0 (Common-Lexer-Parser-isIdentNormal e-0)))) ((0) (let ((e-2 (vector-ref sc0 2))) (GenerateDef-Interactive-TTImp-fnName arg-0 e-2))) ((4) (let ((e-3 (vector-ref sc0 1))) e-3))(else (Name-Core-nameRoot arg-1)))))) -(define GenerateDef-Interactive-TTImp-expandClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Trying clause " (TTImp-TTImp-show_Show__ImpClause arg-5))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((GenerateDef-Interactive-TTImp-uniqueRHS arg-0 arg-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((ProcessDef-TTImp-checkClause (vector 0 ) arg-0 arg-1 arg-2 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) 1 arg-4 (vector 0 ) (vector 0 ) (vector 0 ) e-6) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-2))) (let ((sc4 e-2)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-4 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((act-27 (Context-Core-logTerm e-0 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "RHS hole") e-3 ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((clause (vector 0 e-0 e-1 e-4 e-3))) ((GenerateDef-Interactive-TTImp-case--11347-6348 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 _-0 e-0 e-3 e-4 e-1 clause e-8 (TT-Core-getFn 'erased e-3)) ext-0))))))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))) -(define ExprSearch-Interactive-TTImp-case--14668-10851 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-5 (vector 9 e-9)) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Metadata-Core-findHoleLHS arg-4 e-7 eta-0)))))))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "LHS hole data " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d-0) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-0)))) d x))))) (vector 0 e-5 e-7)))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 ((ExprSearch-Interactive-TTImp-getLHSData arg-6 e-7) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) (ExprSearch-Interactive-TTImp-search arg-5 arg-4 arg-3 arg-2 (let ((sc6 e-10)) (let ((e-25 (vector-ref sc6 8))) e-25)) (vector 0 1 0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))) e-11 (let ((sc6 e-10)) (let ((e-2 (vector-ref sc6 3))) e-2)) e-5 eta-0)))))))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) ((ExprSearch-Interactive-TTImp-dropLinearErrors arg-5 arg-3 arg-2 e-11) eta-0)))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))))))) -(define ExprSearch-Interactive-TTImp-case--14687-10784 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 e-1))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ExprSearch-Interactive-TTImp-case--14678-10724 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-7 (vector 0 e-5 e-6)))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtName arg-7 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 1 e-1)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 )))))))))))))))) -(define ExprSearch-Interactive-TTImp-case--14536-10625 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 3))) (vector 1 (vector 0 e-3 arg-3))))(else (vector 0 )))))) -(define ExprSearch-Interactive-TTImp-case--14280-10380 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (ExprSearch-Interactive-TTImp-searchHole arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-10 e-0 arg-1 arg-9 arg-12 eta-0)))) ((8) (lambda (eta-0) (let ((act-24 (Normalise-Core-getArity (vector 0 ) arg-9 (vector 0 ) (let ((sc1 arg-12)) (let ((e-23 (vector-ref sc1 3))) e-23)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (ExprSearch-Interactive-TTImp-searchHole arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-10 e-5 arg-1 arg-9 arg-12 eta-0))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not a hole")) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Not a hole: " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 " in " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (let ((e-1 (vector-ref sc1 1))) e-1))) arg-2)))))) eta-0))))))))))) -(define ExprSearch-Interactive-TTImp-case--9605-10347 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((bind-0 (vector 1 (vector 0 e-4 (vector 0 e-8 e-9))))) (ExprSearch-Interactive-TTImp-case--14280-10380 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-4 e-8 e-9 bind-0 (let ((sc3 e-9)) (let ((e-17 (vector-ref sc3 18))) e-17)))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not found")) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-0) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not found")) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-0) eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not found")) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-0) eta-0))))))))))) -(define ExprSearch-Interactive-TTImp-case--14106-10268 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 e-1))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ExprSearch-Interactive-TTImp-case--14097-10196 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-10 (vector 0 e-5 e-6)))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtName arg-10 arg-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 1 e-1)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 )))))))))))))))) -(define ExprSearch-Interactive-TTImp-case--13573-10080 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (vector 1 (ExprSearch-Interactive-TTImp-tryRecursive arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4) (vector 0 ))) (else (vector 0 )))))) -(define ExprSearch-Interactive-TTImp-case--13636-9887 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (cond ((equal? sc0 0) (vector 1 (ExprSearch-Interactive-TTImp-tryRecursive arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4) (vector 0 ))) (else (vector 0 )))))) -(define ExprSearch-Interactive-TTImp-case--13573-9779 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-8 1 arg-14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((allHints ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)))))) (let ((act-25 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Hints found for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) allHints))))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 arg-5 arg-2 arg-3 arg-4 (List-Prelude-C-43C-43 'erased (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4 eta-1)) (vector 1 (ExprSearch-Interactive-TTImp-searchNames arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4 allHints) (vector 0 ))) (ExprSearch-Interactive-TTImp-case--13636-9887 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-5 allHints e-6 (let ((sc3 arg-6)) (let ((e-1 (vector-ref sc3 2))) e-1)))) eta-0)))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ExprSearch-Interactive-TTImp-case--13403-9732 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((3) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-11))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc3 1))) ((ExprSearch-Interactive-TTImp-case--13573-9779 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-9 e-8 e-7 e-5 e-3 e-10 (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased e-3) e-9)) eta-0))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Searching locals only at") arg-2 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc2 1))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 arg-5 arg-2 arg-3 arg-4 (List-Prelude-C-43C-43 'erased (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4 eta-1)) (vector 0 )) (ExprSearch-Interactive-TTImp-case--13573-10080 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-8 (let ((sc3 arg-6)) (let ((e-1 (vector-ref sc3 2))) e-1)))) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Searching locals only at") arg-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 arg-5 arg-2 arg-3 arg-4 (List-Prelude-C-43C-43 'erased (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4 eta-1)) (vector 0 )) (ExprSearch-Interactive-TTImp-case--13573-10080 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 (let ((sc2 arg-6)) (let ((e-1 (vector-ref sc2 2))) e-1)))) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Searching locals only at") arg-2 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 arg-5 arg-2 arg-3 arg-4 (List-Prelude-C-43C-43 'erased (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4 eta-1)) (vector 0 )) (ExprSearch-Interactive-TTImp-case--13573-10080 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 (let ((sc1 arg-6)) (let ((e-1 (vector-ref sc1 2))) e-1)))) eta-0)))))))))))) -(define ExprSearch-Interactive-TTImp-case--12538-9280 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-24 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-7 arg-17 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-7 arg-18 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 1 arg-7 arg-6 arg-5 arg-4 (vector 1 (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-24 arg-17) eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((ExprSearch-Interactive-TTImp-n--12504-8776-findPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-10 (vector 1 arg-10 (vector 1 ) arg-25) (vector 1 e-6 (vector 1 e-7 (vector 1 (arg-22 arg) (vector 0 )))))) e-8 arg-16) eta-1))))))) (vector 1 (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-24 arg-18) eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((ExprSearch-Interactive-TTImp-n--12504-8776-findPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-10 (vector 1 arg-10 (vector 1 ) arg-26) (vector 1 e-6 (vector 1 e-7 (vector 1 (arg-22 arg) (vector 0 )))))) e-8 arg-16) eta-1))))))) (vector 0 ))) eta-0)))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ExprSearch-Interactive-TTImp-case--12620-9030 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-10 arg-8 arg-4 arg-5 arg-7 eta-1)) arg-19) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (ExprSearch-Interactive-TTImp-mkCandidates 'erased arg-10 (arg-16 arg-17) e-5)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ExprSearch-Interactive-TTImp-case--12620-8920 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (ExprSearch-Interactive-TTImp-mkCandidates 'erased arg-10 (arg-16 arg-17) (vector 0 )))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't use directly") eta-0))))))) -(define ExprSearch-Interactive-TTImp-case--12553-8842 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (lambda (eta-0) (UnifyState-Core-tryUnify 'erased arg-13 arg-11 (lambda (eta-1) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-13 arg-11) (Unify-Core-inTerm)) arg-10) arg-7) arg-14) arg-15) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((ExprSearch-Interactive-TTImp-case--12620-8920 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-1))))))) (lambda (eta-1) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-13 arg-11) (Unify-Core-inTerm)) arg-10) arg-7) arg-14) arg-20) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((ExprSearch-Interactive-TTImp-case--12620-9030 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-1))))))) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ExprSearch-Interactive-TTImp-case--12537-8795 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((_-0 (vector 0 e-2 e-3))) (ExprSearch-Interactive-TTImp-case--12553-8842 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 e-2 e-3 _-0 (ExprSearch-Interactive-TTImp-usableLocal 'erased arg-10 arg-7 arg-15)))))))) -(define ExprSearch-Interactive-TTImp-case--11491-8631 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf arg-0 arg-11 arg-4 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((ExprSearch-Interactive-TTImp-searchName arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 e-5 arg-2 (vector 0 ) (vector 0 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)) e-2)) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-10))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (vector 1 (List-Data-filter 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--11491-7879-structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased (let ((sc3 arg-1)) (let ((e-3 (vector-ref sc3 2))) e-3)) eta-1)) e-5)))))))))))))))))) -(define ExprSearch-Interactive-TTImp-case--12245-8572 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ExprSearch-Interactive-TTImp-n--11491-7878-appsDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-15 e-2 arg-16 e-3)))))) -(define ExprSearch-Interactive-TTImp-case--11521-8532 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ExprSearch-Interactive-TTImp-case--12245-8572 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14 e-2 e-3 (TT-Core-getFnArgs 'erased arg-13))))))) -(define ExprSearch-Interactive-TTImp-case--11520-8350 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (cond ((equal? sc0 0) (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased eta-0 eta-1))) arg-20 arg-19))) (else 1))))) -(define ExprSearch-Interactive-TTImp-case--11520-8220 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased eta-0 eta-1))) arg-22 arg-21))) (else 0))))) -(define ExprSearch-Interactive-TTImp-case--11520-8090 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased eta-0 eta-1))) arg-22 arg-21))) (else 0))))) -(define ExprSearch-Interactive-TTImp-case--11230-7655 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-13 arg-16))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ExprSearch-Interactive-TTImp-case--11220-7618 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (ExprSearch-Interactive-TTImp-case--11230-7655 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-1 _-0 (Context-Core-visibleInAny arg-14 arg-13 (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ExprSearch-Interactive-TTImp-case--10902-7482 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-9 (vector 0 ) arg-3) eta-0))))))) -(define ExprSearch-Interactive-TTImp-case--10902-7406 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 e-3 (vector 0 )))))))) -(define ExprSearch-Interactive-TTImp-case--10856-7335 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((base (Prelude-maybe 'erased 'erased (lambda () "arg") (lambda () (lambda (r) (Strings-Prelude-C-43C-43 (Name-Core-nameRoot (let ((sc2 r)) (let ((e-1 (vector-ref sc2 1))) e-1))) "_rhs"))) arg-2))) (let ((act-25 (Utils-TTImp-uniqueName e-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-nameRoot eta-1)) arg-0) base eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((UnifyState-Core-newMeta arg-0 arg-12 arg-10 arg-9 arg-8 arg-5 (vector 1 e-6) arg-4 (vector 7 (Env-Core-length 'erased 'erased arg-5) 1) 1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-3 (vector-ref sc4 2))) (vector 1 (vector 1 e-3 (vector 0 ))))))))))))))))))))))) (else (ExprSearch-Interactive-TTImp-case--10902-7482 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0)))))))) -(define ExprSearch-Interactive-TTImp-case--10817-7302 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (ExprSearch-Interactive-TTImp-case--10856-7335 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Prelude-C-38C-38 arg-6 (lambda () (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))))))(else (lambda (eta-0) (vector 1 arg-14))))))) -(define ExprSearch-Interactive-TTImp-case--10401-6966 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchIfHole arg-0 arg-12 arg-11 arg-10 arg-9 arg-7 arg-3 arg-4 arg-6 eta-1)) (List-Data-filter 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-explicit 'erased eta-1)) arg-20)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchIfHole arg-0 arg-12 arg-11 arg-10 arg-9 arg-7 arg-3 arg-4 arg-6 eta-1)) arg-20) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((cs (ExprSearch-Interactive-TTImp-mkCandidates 'erased arg-9 (vector 1 arg-9 arg-17 arg-1) e-6))) (let ((act-26 (Context-Core-logC arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (t) (lambda (eta-2) (let ((act-26 (Context-Core-toFullNames 'erased arg-12 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) t eta-2))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7) "\u000a"))))))))) cs) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Candidates: " ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) e-7))))))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 cs)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ExprSearch-Interactive-TTImp-case--10179-6887 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Target") arg-6 arg-5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "App type") arg-6 e-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-12 arg-10) (Unify-Core-inSearch)) arg-9) arg-6) arg-5) e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 0 e-2 e-3))) ((ExprSearch-Interactive-TTImp-case--10401-6966 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-2 e-3 _-0 e-5 e-6 e-7 (let ((sc4 e-7)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))))))))))))))))))))))) -(define ExprSearch-Interactive-TTImp-case--10179-6731 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 2 e-0 e-1)))) ((6) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (vector 3 e-3 e-4))))(else (vector 1 )))))) -(define ExprSearch-Interactive-TTImp-case--10132-6694 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (let ((ty (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((namety (ExprSearch-Interactive-TTImp-case--10179-6731 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ty (let ((sc1 arg-2)) (let ((e-17 (vector-ref sc1 18))) e-17))))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Trying " (Name-Core-show_Show__Name (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf arg-0 arg-13 arg-6 (TT-Core-embed 'erased 'erased ty)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((AutoSearch-Core-mkArgs arg-0 arg-12 arg-10 arg-9 arg-8 arg-6 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-27 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Target") arg-6 arg-5 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "App type") arg-6 e-3 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-12 arg-10) (Unify-Core-inSearch)) arg-9) arg-6) arg-5) e-3) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc7 1))) (let ((_-0 (vector 0 e-2 e-3))) ((ExprSearch-Interactive-TTImp-case--10401-6966 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ty namety e-5 e-6 e-2 e-3 _-0 e-8 e-9 e-10 (let ((sc8 e-10)) (let ((e-0 (vector-ref sc8 1))) e-0))) eta-0)))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ExprSearch-Interactive-TTImp-case--10109-6635 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) 0)(else 1))))) -(define ExprSearch-Interactive-TTImp-case--9861-6489 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 arg-10)))))) -(define ExprSearch-Interactive-TTImp-case--9813-6410 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((7) (lambda (eta-0) (let ((act-24 (ExprSearch-Interactive-TTImp-search arg-9 arg-8 arg-7 arg-6 arg-12 (let ((sc1 arg-5)) (let ((e-4 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 0 e-4 e-3 arg-10)))) arg-4 arg-3 (vector 9 arg-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Core-Core-traverse 'erased 'erased (lambda (tm) (lambda (eta-1) (let ((act-25 (Normalise-Core-normaliseHoles arg-0 arg-13 arg-2 (UnifyState-Core-applyTo (List-Prelude-C-43C-43 'erased (vector 0 ) arg-0) arg-6 (TT-Core-embed 'erased 'erased tm) arg-2) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 e-6)))))))) e-5) eta-0))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles arg-0 arg-13 arg-2 (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 4))) e-4)) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 1 e-5 (vector 0 )))))))))))))) -(define ExprSearch-Interactive-TTImp-case--9737-6377 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (ExprSearch-Interactive-TTImp-case--9813-6410 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ExprSearch-Interactive-TTImp-case--9719-6309 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (let ((e-0 (- arg-10 1))) (let ((hole (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (let ((rig (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 9 hole) (let ((sc1 e-5)) (let ((e-27 (vector-ref sc1 1))) e-27))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((ExprSearch-Interactive-TTImp-case--9813-6410 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-0 hole rig e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0)))) (else (vector 1 (vector 0 )))))))))))))))))))))))) -(define ExprSearch-Interactive-TTImp-case--9609-6226 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 1 (vector 0 (vector 0 arg-5 (vector 0 ) arg-7) (TT-Core-weakenNs_Weaken__Term arg-1 (List-Prelude-C-43C-43 'erased arg-4 (vector 1 arg-0 (vector 0 ))) (TT-Core-binderType 'erased arg-3))) arg-6))) -(define ExprSearch-Interactive-TTImp-n--11190-7606-visible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-15 arg-13) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((ExprSearch-Interactive-TTImp-case--11230-7655 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-15 arg-14 arg-13 e-1 _-0 (Context-Core-visibleInAny arg-14 arg-15 (let ((sc2 e-1)) (let ((e-9 (vector-ref sc2 10))) e-9)))) ext-0)))) (else (vector 1 (vector 0 )))))))))))) -(define ExprSearch-Interactive-TTImp-n--11491-7879-structDiff (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (ExprSearch-Interactive-TTImp-case--11521-8532 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-14 arg-13 (TT-Core-getFnArgs 'erased arg-13)))) -(define ExprSearch-Interactive-TTImp-n--14668-10713-lookupHoleName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExactI arg-6 (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (vector 1 (vector 1 (vector 0 arg-6 (vector 0 e-7 e-6))))))))) (else (let ((act-25 ((Context-Core-lookupCtxtName arg-6 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 1 e-1)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 )))))))))))))))))))) -(define ExprSearch-Interactive-TTImp-n--9605-10185-lookupHoleName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExactI arg-9 arg-10) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (vector 1 (vector 1 (vector 0 arg-9 (vector 0 e-7 e-6))))))))) (else (let ((act-25 ((Context-Core-lookupCtxtName arg-9 arg-10) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 1 e-1)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 )))))))))))))))))))) -(define ExprSearch-Interactive-TTImp-n--14525-10580-getLHS (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((3) (ExprSearch-Interactive-TTImp-n--14525-10580-getLHS arg-0 arg-1 'erased e-4)) ((4) (ExprSearch-Interactive-TTImp-n--14525-10580-getLHS arg-0 arg-1 'erased e-4))(else (ExprSearch-Interactive-TTImp-case--14536-10625 arg-0 arg-1 'erased arg-3 (TT-Core-getFn 'erased arg-3))))))))(else (ExprSearch-Interactive-TTImp-case--14536-10625 arg-0 arg-1 'erased arg-3 (TT-Core-getFn 'erased arg-3))))))) -(define ExprSearch-Interactive-TTImp-n--12504-8776-findPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 1 arg-7 arg-6 arg-5 arg-4 (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--12504-8775-findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-1)) (vector 1 (lambda (eta-1) (let ((act-24 (let ((act-24 (Context-Core-fstName arg-13 eta-1))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "No fst") eta-2))) (lambda () (lambda (eta-2) (lambda (eta-3) (vector 1 eta-2)))) e-6) eta-1)))))))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (Context-Core-sndName arg-13 eta-1))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "No snd") eta-2))) (lambda () (lambda (eta-2) (lambda (eta-3) (vector 1 eta-2)))) e-9) eta-1)))))))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-26 (Context-Core-isPairType arg-13 e-2 eta-1))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) (let ((sc7 e-12)) (cond ((equal? sc7 0) (let ((act-27 (Context-Core-clearDefs arg-14 eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 (Normalise-Core-quote_Quote__Closure arg-0 e-13 arg-7 e-7 eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-29 (Normalise-Core-quote_Quote__Closure arg-0 e-13 arg-7 e-10 eta-1))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc10 1))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 1 arg-7 arg-6 arg-5 arg-4 (vector 1 (lambda (eta-2) (let ((act-30 ((Normalise-Core-evalClosure arg-0 arg-14 e-7) eta-2))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) ((ExprSearch-Interactive-TTImp-n--12504-8776-findPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (lambda (arg) (TT-Core-apply 'erased arg-10 (vector 1 arg-10 (vector 1 ) e-6) (vector 1 e-14 (vector 1 e-15 (vector 1 (arg-16 arg) (vector 0 )))))) e-16 arg-18) eta-2))))))) (vector 1 (lambda (eta-2) (let ((act-30 ((Normalise-Core-evalClosure arg-0 arg-14 e-10) eta-2))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) ((ExprSearch-Interactive-TTImp-n--12504-8776-findPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (lambda (arg) (TT-Core-apply 'erased arg-10 (vector 1 arg-10 (vector 1 ) e-9) (vector 1 e-14 (vector 1 e-15 (vector 1 (arg-16 arg) (vector 0 )))))) e-16 arg-18) eta-2))))))) (vector 0 ))) eta-1))))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))) (vector 0 ))) eta-0)))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-n--12504-8775-findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0))))))))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-n--12504-8775-findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0))))))))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-n--12504-8775-findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0))))))))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-n--12504-8775-findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0))))))) -(define ExprSearch-Interactive-TTImp-n--12504-8775-findDirect (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 ext-0) (let ((act-24 ((AutoSearch-Core-mkArgs arg-0 arg-13 arg-11 arg-10 arg-9 arg-7 arg-17) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((_-0 (vector 0 e-2 e-3))) ((ExprSearch-Interactive-TTImp-case--12553-8842 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-18 arg-17 arg-16 arg-15 arg-14 e-2 e-3 _-0 (ExprSearch-Interactive-TTImp-usableLocal 'erased arg-10 arg-7 arg-17)) ext-0)))))))))))) -(define ExprSearch-Interactive-TTImp-n--11491-7877-argDiff (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) 1) ((1) (let ((e-48 (vector-ref sc0 3))) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((1) (let ((e-57 (vector-ref sc1 3))) (Name-Core-C-47C-61_Eq__Name e-48 e-57)))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((3) 1)(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((4) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((4) (let ((e-29 (vector-ref sc2 2))) (let ((e-30 (vector-ref sc2 3))) (Prelude-C-124C-124 (ExprSearch-Interactive-TTImp-n--11491-7879-structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-19 e-29) (lambda () (ExprSearch-Interactive-TTImp-n--11491-7879-structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-20 e-30))))))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((10) 1)(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((11) (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((11) 1)(else (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((5) (let ((e-4 (vector-ref sc3 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc2 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((5) (let ((e-4 (vector-ref sc2 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))))))))))) ((9) (let ((e-23 (vector-ref sc1 2))) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((9) (let ((e-33 (vector-ref sc2 2))) (TT-Core-C-47C-61_Eq__Constant e-23 e-33)))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((10) 1)(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((11) (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((11) 1)(else (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((5) (let ((e-4 (vector-ref sc3 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc2 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((5) (let ((e-4 (vector-ref sc2 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0)))))))))))))) ((10) 1)(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((10) 1)(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((11) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((11) 1)(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((5) (let ((e-4 (vector-ref sc2 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0)))))))))))))))))))) ((3) 1)(else (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((3) 1)(else (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((4) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((4) (let ((e-29 (vector-ref sc1 2))) (let ((e-30 (vector-ref sc1 3))) (Prelude-C-124C-124 (ExprSearch-Interactive-TTImp-n--11491-7879-structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-19 e-29) (lambda () (ExprSearch-Interactive-TTImp-n--11491-7879-structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-20 e-30))))))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((10) 1)(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((11) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((11) 1)(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((5) (let ((e-4 (vector-ref sc2 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))))))))))) ((9) (let ((e-23 (vector-ref sc0 2))) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((9) (let ((e-33 (vector-ref sc1 2))) (TT-Core-C-47C-61_Eq__Constant e-23 e-33)))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((10) 1)(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((11) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((11) 1)(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((5) (let ((e-4 (vector-ref sc2 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0)))))))))))))) ((10) 1)(else (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((10) 1)(else (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((11) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((11) 1)(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc0 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((5) (let ((e-4 (vector-ref sc0 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0)))))))))))))))))))) -(define ExprSearch-Interactive-TTImp-n--11491-7878-appsDiff (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((2) (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-29 (vector-ref sc2 1))) (let ((e-30 (vector-ref sc2 2))) (let ((e-31 (vector-ref sc2 3))) (let ((sc3 e-30)) (case (vector-ref sc3 0) ((2) (let ((e-32 (vector-ref sc3 1))) (let ((e-33 (vector-ref sc3 2))) (ExprSearch-Interactive-TTImp-case--11520-8090 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-29 e-32 e-33 e-3 e-24 e-25 e-5 e-31 arg-16 arg-15 (Name-Core-C-61C-61_Eq__Name e-5 e-31)))))(else (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((1) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (ExprSearch-Interactive-TTImp-case--11520-8350 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-21 e-22 e-3 e-4 e-5 e-23 arg-16 arg-15 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-15) (List-Data-length 'erased arg-16)))))))))(else (let ((sc3 e-4)) (case (vector-ref sc3 0) ((2) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) 0)(else (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-16)) (case (vector-ref sc4 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1))))))))))))))))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (ExprSearch-Interactive-TTImp-case--11520-8350 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-21 e-22 e-3 e-4 e-5 e-23 arg-16 arg-15 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-15) (List-Data-length 'erased arg-16)))))))))(else (let ((sc2 e-4)) (case (vector-ref sc2 0) ((2) (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((0) 0)(else (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-16)) (case (vector-ref sc4 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1))))))))))))))) ((3) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((sc3 e-36)) (case (vector-ref sc3 0) ((3) (let ((e-38 (vector-ref sc3 1))) (let ((e-39 (vector-ref sc3 2))) (ExprSearch-Interactive-TTImp-case--11520-8220 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-35 e-38 e-39 e-3 e-26 e-27 e-5 e-37 arg-16 arg-15 (Name-Core-C-61C-61_Eq__Name e-5 e-37)))))(else (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((1) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (ExprSearch-Interactive-TTImp-case--11520-8350 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-21 e-22 e-3 e-4 e-5 e-23 arg-16 arg-15 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-15) (List-Data-length 'erased arg-16)))))))))(else (let ((sc3 e-4)) (case (vector-ref sc3 0) ((2) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) 0)(else (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-16)) (case (vector-ref sc4 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1))))))))))))))))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (ExprSearch-Interactive-TTImp-case--11520-8350 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-21 e-22 e-3 e-4 e-5 e-23 arg-16 arg-15 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-15) (List-Data-length 'erased arg-16)))))))))(else (let ((sc2 e-4)) (case (vector-ref sc2 0) ((2) (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((0) 0)(else (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-16)) (case (vector-ref sc4 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))))))))))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((1) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (ExprSearch-Interactive-TTImp-case--11520-8350 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-21 e-22 e-3 e-4 e-5 e-23 arg-16 arg-15 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-15) (List-Data-length 'erased arg-16)))))))))(else (let ((sc1 e-4)) (case (vector-ref sc1 0) ((2) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) 0)(else (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-16)) (case (vector-ref sc2 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))))))))))) ((0) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((1) (let ((e-42 (vector-ref sc1 2))) (let ((sc2 e-42)) (case (vector-ref sc2 0) ((2) 0)(else (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1))))))))(else (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-16)) (case (vector-ref sc2 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-16)) (case (vector-ref sc1 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))) +(define GenerateDef-Interactive-TTImp-makeDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Metadata-Core-findTyDeclAt arg-1 arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-10)) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((act-25 ((Context-Core-getFullName arg-0 e-9) ext-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-26 (Context-Core-logTerm (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Searching for " (Name-Core-show_Show__Name e-8))) e-14 ext-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-27 (Context-Core-branch arg-0 ext-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-28 (let ((act-28 (unbox arg-1))) (vector 1 act-28)))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc8 1))) (let ((act-29 (let ((act-29 (unbox arg-2))) (vector 1 act-29)))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc9 1))) (let ((act-30 (let ((act-30 ((Normalise-Core-nf (vector 0 ) e-12 (vector 0 ) e-14) ext-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc10 1))) ((CaseSplit-Interactive-TTImp-getEnvArgNames arg-0 e-12 e-13 e-17) ext-0)))))))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc10 1))) (let ((pre_env (List-Data-replicate 'erased e-13 (vector 31 e-7 0)))) (let ((act-31 (Utils-TTImp-uniqueName e-12 (vector 0 ) (Strings-Prelude-C-43C-43 (GenerateDef-Interactive-TTImp-fnName 1 e-8) "_rhs") ext-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc11 1))) (let ((initcs (vector 0 e-7 (TTImp-TTImp-apply (vector 0 e-7 e-8) (List-Prelude-C-43C-43 'erased pre_env (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 16 e-7 eta-0)) e-17))) (vector 29 e-7 e-18)))) (let ((_-0 (vector 1 (vector 0 e-7 (vector 0 e-9 (vector 0 e-13 e-14)))))) ((GenerateDef-Interactive-TTImp-case--12558-7417 arg-4 arg-3 arg-2 arg-1 arg-0 e-7 e-9 e-13 e-14 _-0 e-8 e-11 e-12 e-15 e-16 e-17 pre_env e-18 initcs (Context-Core-getNameID e-8 (let ((sc12 e-12)) (let ((e-0 (vector-ref sc12 1))) e-0)))) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) +(define GenerateDef-Interactive-TTImp-generateSplits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Elab-TTImp-elabTerm (vector 0 ) arg-1 arg-0 arg-2 arg-4 (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 arg-3 (vector 1 ) e-8) (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (GenerateDef-Interactive-TTImp-trySplit arg-0 arg-1 arg-2 e-7 e-8 e-2 e-9 eta-1 eta-2))) (GenerateDef-Interactive-TTImp-splittableNames e-8)) eta-0))))))))))))))))) +(define GenerateDef-Interactive-TTImp-fnName (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (GenerateDef-Interactive-TTImp-case--11203-6132 e-0 arg-0 (Common-Lexer-Parser-isIdentNormal e-0)))) ((0) (let ((e-2 (vector-ref sc0 2))) (GenerateDef-Interactive-TTImp-fnName arg-0 e-2))) ((4) (let ((e-3 (vector-ref sc0 1))) e-3))(else (Name-Core-nameRoot arg-1)))))) +(define GenerateDef-Interactive-TTImp-expandClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Trying clause " (TTImp-TTImp-show_Show__ImpClause arg-5))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((GenerateDef-Interactive-TTImp-uniqueRHS arg-0 arg-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((ProcessDef-TTImp-checkClause (vector 0 ) arg-0 arg-1 arg-2 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) 1 arg-4 (vector 0 ) (vector 0 ) (vector 0 ) e-6) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-2))) (let ((sc4 e-2)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-4 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((act-27 (Context-Core-logTerm e-0 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "RHS hole") e-3 ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((clause (vector 0 e-0 e-1 e-4 e-3))) ((GenerateDef-Interactive-TTImp-case--11421-6356 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 _-0 e-0 e-3 e-4 e-1 clause e-8 (TT-Core-getFn 'erased e-3)) ext-0))))))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))) +(define ExprSearch-Interactive-TTImp-case--14734-10859 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-5 (vector 9 e-9)) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Metadata-Core-findHoleLHS arg-4 e-7 eta-0)))))))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "LHS hole data " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d-0) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-0)))) d x))))) (vector 0 e-5 e-7)))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 ((ExprSearch-Interactive-TTImp-getLHSData arg-6 e-7) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) (ExprSearch-Interactive-TTImp-search arg-5 arg-4 arg-3 arg-2 (let ((sc6 e-10)) (let ((e-25 (vector-ref sc6 8))) e-25)) (vector 0 1 0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))) e-11 (let ((sc6 e-10)) (let ((e-2 (vector-ref sc6 3))) e-2)) e-5 eta-0)))))))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) ((ExprSearch-Interactive-TTImp-dropLinearErrors arg-5 arg-3 arg-2 e-11) eta-0)))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))))))) +(define ExprSearch-Interactive-TTImp-case--14753-10792 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 e-1))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ExprSearch-Interactive-TTImp-case--14744-10732 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-7 (vector 0 e-5 e-6)))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtName arg-7 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 1 e-1)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 )))))))))))))))) +(define ExprSearch-Interactive-TTImp-case--14602-10633 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 3))) (vector 1 (vector 0 e-3 arg-3))))(else (vector 0 )))))) +(define ExprSearch-Interactive-TTImp-case--14346-10388 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (ExprSearch-Interactive-TTImp-searchHole arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-10 e-0 arg-1 arg-9 arg-12 eta-0)))) ((8) (lambda (eta-0) (let ((act-24 (Normalise-Core-getArity (vector 0 ) arg-9 (vector 0 ) (let ((sc1 arg-12)) (let ((e-23 (vector-ref sc1 3))) e-23)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (ExprSearch-Interactive-TTImp-searchHole arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-10 e-5 arg-1 arg-9 arg-12 eta-0))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not a hole")) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Not a hole: " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 " in " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (let ((e-1 (vector-ref sc1 1))) e-1))) arg-2)))))) eta-0))))))))))) +(define ExprSearch-Interactive-TTImp-case--9671-10355 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((bind-0 (vector 1 (vector 0 e-4 (vector 0 e-8 e-9))))) (ExprSearch-Interactive-TTImp-case--14346-10388 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-4 e-8 e-9 bind-0 (let ((sc3 e-9)) (let ((e-17 (vector-ref sc3 18))) e-17)))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not found")) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-0) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not found")) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-0) eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not found")) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-0) eta-0))))))))))) +(define ExprSearch-Interactive-TTImp-case--14172-10276 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 e-1))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ExprSearch-Interactive-TTImp-case--14163-10204 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-10 (vector 0 e-5 e-6)))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtName arg-10 arg-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 1 e-1)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 )))))))))))))))) +(define ExprSearch-Interactive-TTImp-case--13639-10088 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (vector 1 (ExprSearch-Interactive-TTImp-tryRecursive arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4) (vector 0 ))) (else (vector 0 )))))) +(define ExprSearch-Interactive-TTImp-case--13702-9895 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (cond ((equal? sc0 0) (vector 1 (ExprSearch-Interactive-TTImp-tryRecursive arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4) (vector 0 ))) (else (vector 0 )))))) +(define ExprSearch-Interactive-TTImp-case--13639-9787 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-8 1 arg-14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((allHints ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)))))) (let ((act-25 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Hints found for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) allHints))))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 arg-5 arg-2 arg-3 arg-4 (List-Prelude-C-43C-43 'erased (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4 eta-1)) (vector 1 (ExprSearch-Interactive-TTImp-searchNames arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4 allHints) (vector 0 ))) (ExprSearch-Interactive-TTImp-case--13702-9895 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-5 allHints e-6 (let ((sc3 arg-6)) (let ((e-1 (vector-ref sc3 2))) e-1)))) eta-0)))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ExprSearch-Interactive-TTImp-case--13469-9740 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((3) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-11))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc3 1))) ((ExprSearch-Interactive-TTImp-case--13639-9787 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-9 e-8 e-7 e-5 e-3 e-10 (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased e-3) e-9)) eta-0))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Searching locals only at") arg-2 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc2 1))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 arg-5 arg-2 arg-3 arg-4 (List-Prelude-C-43C-43 'erased (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4 eta-1)) (vector 0 )) (ExprSearch-Interactive-TTImp-case--13639-10088 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-8 (let ((sc3 arg-6)) (let ((e-1 (vector-ref sc3 2))) e-1)))) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Searching locals only at") arg-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 arg-5 arg-2 arg-3 arg-4 (List-Prelude-C-43C-43 'erased (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4 eta-1)) (vector 0 )) (ExprSearch-Interactive-TTImp-case--13639-10088 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 (let ((sc2 arg-6)) (let ((e-1 (vector-ref sc2 2))) e-1)))) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Searching locals only at") arg-2 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 arg-5 arg-2 arg-3 arg-4 (List-Prelude-C-43C-43 'erased (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4 eta-1)) (vector 0 )) (ExprSearch-Interactive-TTImp-case--13639-10088 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 (let ((sc1 arg-6)) (let ((e-1 (vector-ref sc1 2))) e-1)))) eta-0)))))))))))) +(define ExprSearch-Interactive-TTImp-case--12604-9288 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-24 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-7 arg-17 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-7 arg-18 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 1 arg-7 arg-6 arg-5 arg-4 (vector 1 (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-24 arg-17) eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((ExprSearch-Interactive-TTImp-n--12570-8784-findPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-10 (vector 1 arg-10 (vector 1 ) arg-25) (vector 1 e-6 (vector 1 e-7 (vector 1 (arg-22 arg) (vector 0 )))))) e-8 arg-16) eta-1))))))) (vector 1 (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-24 arg-18) eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((ExprSearch-Interactive-TTImp-n--12570-8784-findPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-10 (vector 1 arg-10 (vector 1 ) arg-26) (vector 1 e-6 (vector 1 e-7 (vector 1 (arg-22 arg) (vector 0 )))))) e-8 arg-16) eta-1))))))) (vector 0 ))) eta-0)))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ExprSearch-Interactive-TTImp-case--12686-9038 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-10 arg-8 arg-4 arg-5 arg-7 eta-1)) arg-19) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (ExprSearch-Interactive-TTImp-mkCandidates 'erased arg-10 (arg-16 arg-17) e-5)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ExprSearch-Interactive-TTImp-case--12686-8928 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (ExprSearch-Interactive-TTImp-mkCandidates 'erased arg-10 (arg-16 arg-17) (vector 0 )))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't use directly") eta-0))))))) +(define ExprSearch-Interactive-TTImp-case--12619-8850 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (lambda (eta-0) (UnifyState-Core-tryUnify 'erased arg-13 arg-11 (lambda (eta-1) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-13 arg-11) (Unify-Core-inTerm)) arg-10) arg-7) arg-14) arg-15) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((ExprSearch-Interactive-TTImp-case--12686-8928 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-1))))))) (lambda (eta-1) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-13 arg-11) (Unify-Core-inTerm)) arg-10) arg-7) arg-14) arg-20) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((ExprSearch-Interactive-TTImp-case--12686-9038 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-1))))))) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ExprSearch-Interactive-TTImp-case--12603-8803 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((_-0 (vector 0 e-2 e-3))) (ExprSearch-Interactive-TTImp-case--12619-8850 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 e-2 e-3 _-0 (ExprSearch-Interactive-TTImp-usableLocal 'erased arg-10 arg-7 arg-15)))))))) +(define ExprSearch-Interactive-TTImp-case--11557-8639 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf arg-0 arg-11 arg-4 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((ExprSearch-Interactive-TTImp-searchName arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 e-5 arg-2 (vector 0 ) (vector 0 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)) e-2)) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-10))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (vector 1 (List-Data-filter 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--11557-7887-structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased (let ((sc3 arg-1)) (let ((e-3 (vector-ref sc3 2))) e-3)) eta-1)) e-5)))))))))))))))))) +(define ExprSearch-Interactive-TTImp-case--12311-8580 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ExprSearch-Interactive-TTImp-n--11557-7886-appsDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-15 e-2 arg-16 e-3)))))) +(define ExprSearch-Interactive-TTImp-case--11587-8540 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ExprSearch-Interactive-TTImp-case--12311-8580 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14 e-2 e-3 (TT-Core-getFnArgs 'erased arg-13))))))) +(define ExprSearch-Interactive-TTImp-case--11586-8358 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (cond ((equal? sc0 0) (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased eta-0 eta-1))) arg-20 arg-19))) (else 1))))) +(define ExprSearch-Interactive-TTImp-case--11586-8228 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased eta-0 eta-1))) arg-22 arg-21))) (else 0))))) +(define ExprSearch-Interactive-TTImp-case--11586-8098 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased eta-0 eta-1))) arg-22 arg-21))) (else 0))))) +(define ExprSearch-Interactive-TTImp-case--11296-7663 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-13 arg-16))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ExprSearch-Interactive-TTImp-case--11286-7626 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (ExprSearch-Interactive-TTImp-case--11296-7663 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-1 _-0 (Context-Core-visibleInAny arg-14 arg-13 (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ExprSearch-Interactive-TTImp-case--10968-7490 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-9 (vector 0 ) arg-3) eta-0))))))) +(define ExprSearch-Interactive-TTImp-case--10968-7414 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 e-3 (vector 0 )))))))) +(define ExprSearch-Interactive-TTImp-case--10922-7343 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((base (Prelude-maybe 'erased 'erased (lambda () "arg") (lambda () (lambda (r) (Strings-Prelude-C-43C-43 (Name-Core-nameRoot (let ((sc2 r)) (let ((e-1 (vector-ref sc2 1))) e-1))) "_rhs"))) arg-2))) (let ((act-25 (Utils-TTImp-uniqueName e-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-nameRoot eta-1)) arg-0) base eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((UnifyState-Core-newMeta arg-0 arg-12 arg-10 arg-9 arg-8 arg-5 (vector 1 e-6) arg-4 (vector 7 (Env-Core-length 'erased 'erased arg-5) (Context-Core-holeInit 1)) 1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-3 (vector-ref sc4 2))) (vector 1 (vector 1 e-3 (vector 0 ))))))))))))))))))))))) (else (ExprSearch-Interactive-TTImp-case--10968-7490 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0)))))))) +(define ExprSearch-Interactive-TTImp-case--10883-7310 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (ExprSearch-Interactive-TTImp-case--10922-7343 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Prelude-C-38C-38 arg-6 (lambda () (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))))))(else (lambda (eta-0) (vector 1 arg-14))))))) +(define ExprSearch-Interactive-TTImp-case--10467-6974 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchIfHole arg-0 arg-12 arg-11 arg-10 arg-9 arg-7 arg-3 arg-4 arg-6 eta-1)) (List-Data-filter 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-explicit 'erased eta-1)) arg-20)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchIfHole arg-0 arg-12 arg-11 arg-10 arg-9 arg-7 arg-3 arg-4 arg-6 eta-1)) arg-20) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((cs (ExprSearch-Interactive-TTImp-mkCandidates 'erased arg-9 (vector 1 arg-9 arg-17 arg-1) e-6))) (let ((act-26 (Context-Core-logC arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (t) (lambda (eta-2) (let ((act-26 (Context-Core-toFullNames 'erased arg-12 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) t eta-2))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7) "\u000a"))))))))) cs) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Candidates: " ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (Prelude-neutral_Monoid__String)))) e-7))))))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 cs)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ExprSearch-Interactive-TTImp-case--10245-6895 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Target") arg-6 arg-5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "App type") arg-6 e-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-12 arg-10) (Unify-Core-inSearch)) arg-9) arg-6) arg-5) e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 0 e-2 e-3))) ((ExprSearch-Interactive-TTImp-case--10467-6974 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-2 e-3 _-0 e-5 e-6 e-7 (let ((sc4 e-7)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))))))))))))))))))))))) +(define ExprSearch-Interactive-TTImp-case--10245-6739 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 2 e-0 e-1)))) ((6) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (vector 3 e-3 e-4))))(else (vector 1 )))))) +(define ExprSearch-Interactive-TTImp-case--10198-6702 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (let ((ty (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((namety (ExprSearch-Interactive-TTImp-case--10245-6739 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ty (let ((sc1 arg-2)) (let ((e-17 (vector-ref sc1 18))) e-17))))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Trying " (Name-Core-show_Show__Name (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf arg-0 arg-13 arg-6 (TT-Core-embed 'erased 'erased ty)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((AutoSearch-Core-mkArgs arg-0 arg-12 arg-10 arg-9 arg-8 arg-6 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-27 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Target") arg-6 arg-5 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "App type") arg-6 e-3 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-12 arg-10) (Unify-Core-inSearch)) arg-9) arg-6) arg-5) e-3) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc7 1))) (let ((_-0 (vector 0 e-2 e-3))) ((ExprSearch-Interactive-TTImp-case--10467-6974 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ty namety e-5 e-6 e-2 e-3 _-0 e-8 e-9 e-10 (let ((sc8 e-10)) (let ((e-0 (vector-ref sc8 1))) e-0))) eta-0)))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ExprSearch-Interactive-TTImp-case--10175-6643 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) 0)(else 1))))) +(define ExprSearch-Interactive-TTImp-case--9927-6497 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 arg-10)))))) +(define ExprSearch-Interactive-TTImp-case--9879-6418 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((7) (lambda (eta-0) (let ((act-24 (ExprSearch-Interactive-TTImp-search arg-9 arg-8 arg-7 arg-6 arg-12 (let ((sc1 arg-5)) (let ((e-4 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 0 e-4 e-3 arg-10)))) arg-4 arg-3 (vector 9 arg-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Core-Core-traverse 'erased 'erased (lambda (tm) (lambda (eta-1) (let ((act-25 (Normalise-Core-normaliseHoles arg-0 arg-13 arg-2 (UnifyState-Core-applyTo (List-Prelude-C-43C-43 'erased (vector 0 ) arg-0) arg-6 (TT-Core-embed 'erased 'erased tm) arg-2) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 e-6)))))))) e-5) eta-0))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles arg-0 arg-13 arg-2 (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 4))) e-4)) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 1 e-5 (vector 0 )))))))))))))) +(define ExprSearch-Interactive-TTImp-case--9803-6385 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (ExprSearch-Interactive-TTImp-case--9879-6418 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ExprSearch-Interactive-TTImp-case--9785-6317 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (let ((e-0 (- arg-10 1))) (let ((hole (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (let ((rig (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 9 hole) (let ((sc1 e-5)) (let ((e-27 (vector-ref sc1 1))) e-27))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((ExprSearch-Interactive-TTImp-case--9879-6418 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-0 hole rig e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0)))) (else (vector 1 (vector 0 )))))))))))))))))))))))) +(define ExprSearch-Interactive-TTImp-case--9675-6234 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 1 (vector 0 (vector 0 arg-5 (vector 0 ) arg-7) (TT-Core-weakenNs_Weaken__Term arg-1 (List-Prelude-C-43C-43 'erased arg-4 (vector 1 arg-0 (vector 0 ))) (TT-Core-binderType 'erased arg-3))) arg-6))) +(define ExprSearch-Interactive-TTImp-n--11256-7614-visible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-15 arg-13) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((ExprSearch-Interactive-TTImp-case--11296-7663 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-15 arg-14 arg-13 e-1 _-0 (Context-Core-visibleInAny arg-14 arg-15 (let ((sc2 e-1)) (let ((e-9 (vector-ref sc2 10))) e-9)))) ext-0)))) (else (vector 1 (vector 0 )))))))))))) +(define ExprSearch-Interactive-TTImp-n--11557-7887-structDiff (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (ExprSearch-Interactive-TTImp-case--11587-8540 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-14 arg-13 (TT-Core-getFnArgs 'erased arg-13)))) +(define ExprSearch-Interactive-TTImp-n--14734-10721-lookupHoleName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExactI arg-6 (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (vector 1 (vector 1 (vector 0 arg-6 (vector 0 e-7 e-6))))))))) (else (let ((act-25 ((Context-Core-lookupCtxtName arg-6 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 1 e-1)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 )))))))))))))))))))) +(define ExprSearch-Interactive-TTImp-n--9671-10193-lookupHoleName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExactI arg-9 arg-10) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (vector 1 (vector 1 (vector 0 arg-9 (vector 0 e-7 e-6))))))))) (else (let ((act-25 ((Context-Core-lookupCtxtName arg-9 arg-10) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 1 e-1)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 )))))))))))))))))))) +(define ExprSearch-Interactive-TTImp-n--14591-10588-getLHS (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((3) (ExprSearch-Interactive-TTImp-n--14591-10588-getLHS arg-0 arg-1 'erased e-4)) ((4) (ExprSearch-Interactive-TTImp-n--14591-10588-getLHS arg-0 arg-1 'erased e-4))(else (ExprSearch-Interactive-TTImp-case--14602-10633 arg-0 arg-1 'erased arg-3 (TT-Core-getFn 'erased arg-3))))))))(else (ExprSearch-Interactive-TTImp-case--14602-10633 arg-0 arg-1 'erased arg-3 (TT-Core-getFn 'erased arg-3))))))) +(define ExprSearch-Interactive-TTImp-n--12570-8784-findPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 1 arg-7 arg-6 arg-5 arg-4 (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--12570-8783-findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-1)) (vector 1 (lambda (eta-1) (let ((act-24 (let ((act-24 (Context-Core-fstName arg-13 eta-1))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "No fst") eta-2))) (lambda () (lambda (eta-2) (lambda (eta-3) (vector 1 eta-2)))) e-6) eta-1)))))))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (Context-Core-sndName arg-13 eta-1))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "No snd") eta-2))) (lambda () (lambda (eta-2) (lambda (eta-3) (vector 1 eta-2)))) e-9) eta-1)))))))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-26 (Context-Core-isPairType arg-13 e-2 eta-1))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) (let ((sc7 e-12)) (cond ((equal? sc7 0) (let ((act-27 (Context-Core-clearDefs arg-14 eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 (Normalise-Core-quote_Quote__Closure arg-0 e-13 arg-7 e-7 eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-29 (Normalise-Core-quote_Quote__Closure arg-0 e-13 arg-7 e-10 eta-1))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc10 1))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 1 arg-7 arg-6 arg-5 arg-4 (vector 1 (lambda (eta-2) (let ((act-30 ((Normalise-Core-evalClosure arg-0 arg-14 e-7) eta-2))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) ((ExprSearch-Interactive-TTImp-n--12570-8784-findPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (lambda (arg) (TT-Core-apply 'erased arg-10 (vector 1 arg-10 (vector 1 ) e-6) (vector 1 e-14 (vector 1 e-15 (vector 1 (arg-16 arg) (vector 0 )))))) e-16 arg-18) eta-2))))))) (vector 1 (lambda (eta-2) (let ((act-30 ((Normalise-Core-evalClosure arg-0 arg-14 e-10) eta-2))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) ((ExprSearch-Interactive-TTImp-n--12570-8784-findPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (lambda (arg) (TT-Core-apply 'erased arg-10 (vector 1 arg-10 (vector 1 ) e-9) (vector 1 e-14 (vector 1 e-15 (vector 1 (arg-16 arg) (vector 0 )))))) e-16 arg-18) eta-2))))))) (vector 0 ))) eta-1))))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))) (vector 0 ))) eta-0)))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-n--12570-8783-findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0))))))))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-n--12570-8783-findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0))))))))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-n--12570-8783-findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0))))))))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-n--12570-8783-findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0))))))) +(define ExprSearch-Interactive-TTImp-n--12570-8783-findDirect (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 ext-0) (let ((act-24 ((AutoSearch-Core-mkArgs arg-0 arg-13 arg-11 arg-10 arg-9 arg-7 arg-17) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((_-0 (vector 0 e-2 e-3))) ((ExprSearch-Interactive-TTImp-case--12619-8850 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-18 arg-17 arg-16 arg-15 arg-14 e-2 e-3 _-0 (ExprSearch-Interactive-TTImp-usableLocal 'erased arg-10 arg-7 arg-17)) ext-0)))))))))))) +(define ExprSearch-Interactive-TTImp-n--11557-7885-argDiff (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) 1) ((1) (let ((e-48 (vector-ref sc0 3))) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((1) (let ((e-57 (vector-ref sc1 3))) (Name-Core-C-47C-61_Eq__Name e-48 e-57)))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((3) 1)(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((4) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((4) (let ((e-29 (vector-ref sc2 2))) (let ((e-30 (vector-ref sc2 3))) (Prelude-C-124C-124 (ExprSearch-Interactive-TTImp-n--11557-7887-structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-19 e-29) (lambda () (ExprSearch-Interactive-TTImp-n--11557-7887-structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-20 e-30))))))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((10) 1)(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((11) (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((11) 1)(else (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((5) (let ((e-4 (vector-ref sc3 4))) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc2 4))) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((5) (let ((e-4 (vector-ref sc2 4))) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))))))))))) ((9) (let ((e-23 (vector-ref sc1 2))) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((9) (let ((e-33 (vector-ref sc2 2))) (TT-Core-C-47C-61_Eq__Constant e-23 e-33)))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((10) 1)(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((11) (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((11) 1)(else (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((5) (let ((e-4 (vector-ref sc3 4))) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc2 4))) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((5) (let ((e-4 (vector-ref sc2 4))) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0)))))))))))))) ((10) 1)(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((10) 1)(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((11) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((11) 1)(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((5) (let ((e-4 (vector-ref sc2 4))) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0)))))))))))))))))))) ((3) 1)(else (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((3) 1)(else (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((4) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((4) (let ((e-29 (vector-ref sc1 2))) (let ((e-30 (vector-ref sc1 3))) (Prelude-C-124C-124 (ExprSearch-Interactive-TTImp-n--11557-7887-structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-19 e-29) (lambda () (ExprSearch-Interactive-TTImp-n--11557-7887-structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-20 e-30))))))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((10) 1)(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((11) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((11) 1)(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((5) (let ((e-4 (vector-ref sc2 4))) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))))))))))) ((9) (let ((e-23 (vector-ref sc0 2))) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((9) (let ((e-33 (vector-ref sc1 2))) (TT-Core-C-47C-61_Eq__Constant e-23 e-33)))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((10) 1)(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((11) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((11) 1)(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((5) (let ((e-4 (vector-ref sc2 4))) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0)))))))))))))) ((10) 1)(else (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((10) 1)(else (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((11) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((11) 1)(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc0 4))) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((5) (let ((e-4 (vector-ref sc0 4))) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0)))))))))))))))))))) +(define ExprSearch-Interactive-TTImp-n--11557-7886-appsDiff (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((2) (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-29 (vector-ref sc2 1))) (let ((e-30 (vector-ref sc2 2))) (let ((e-31 (vector-ref sc2 3))) (let ((sc3 e-30)) (case (vector-ref sc3 0) ((2) (let ((e-32 (vector-ref sc3 1))) (let ((e-33 (vector-ref sc3 2))) (ExprSearch-Interactive-TTImp-case--11586-8098 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-29 e-32 e-33 e-3 e-24 e-25 e-5 e-31 arg-16 arg-15 (Name-Core-C-61C-61_Eq__Name e-5 e-31)))))(else (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((1) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (ExprSearch-Interactive-TTImp-case--11586-8358 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-21 e-22 e-3 e-4 e-5 e-23 arg-16 arg-15 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-15) (List-Data-length 'erased arg-16)))))))))(else (let ((sc3 e-4)) (case (vector-ref sc3 0) ((2) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) 0)(else (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((0) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-16)) (case (vector-ref sc4 0) ((0) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1))))))))))))))))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (ExprSearch-Interactive-TTImp-case--11586-8358 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-21 e-22 e-3 e-4 e-5 e-23 arg-16 arg-15 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-15) (List-Data-length 'erased arg-16)))))))))(else (let ((sc2 e-4)) (case (vector-ref sc2 0) ((2) (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((0) 0)(else (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-16)) (case (vector-ref sc4 0) ((0) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1))))))))))))))) ((3) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((sc3 e-36)) (case (vector-ref sc3 0) ((3) (let ((e-38 (vector-ref sc3 1))) (let ((e-39 (vector-ref sc3 2))) (ExprSearch-Interactive-TTImp-case--11586-8228 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-35 e-38 e-39 e-3 e-26 e-27 e-5 e-37 arg-16 arg-15 (Name-Core-C-61C-61_Eq__Name e-5 e-37)))))(else (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((1) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (ExprSearch-Interactive-TTImp-case--11586-8358 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-21 e-22 e-3 e-4 e-5 e-23 arg-16 arg-15 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-15) (List-Data-length 'erased arg-16)))))))))(else (let ((sc3 e-4)) (case (vector-ref sc3 0) ((2) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) 0)(else (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((0) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-16)) (case (vector-ref sc4 0) ((0) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1))))))))))))))))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (ExprSearch-Interactive-TTImp-case--11586-8358 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-21 e-22 e-3 e-4 e-5 e-23 arg-16 arg-15 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-15) (List-Data-length 'erased arg-16)))))))))(else (let ((sc2 e-4)) (case (vector-ref sc2 0) ((2) (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((0) 0)(else (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-16)) (case (vector-ref sc4 0) ((0) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))))))))))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((1) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (ExprSearch-Interactive-TTImp-case--11586-8358 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-21 e-22 e-3 e-4 e-5 e-23 arg-16 arg-15 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-15) (List-Data-length 'erased arg-16)))))))))(else (let ((sc1 e-4)) (case (vector-ref sc1 0) ((2) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) 0)(else (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-16)) (case (vector-ref sc2 0) ((0) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))))))))))) ((0) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((1) (let ((e-42 (vector-ref sc1 2))) (let ((sc2 e-42)) (case (vector-ref sc2 0) ((2) 0)(else (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1))))))))(else (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-16)) (case (vector-ref sc2 0) ((0) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-16)) (case (vector-ref sc1 0) ((0) (ExprSearch-Interactive-TTImp-n--11557-7885-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))) (define ExprSearch-Interactive-TTImp-usableLocal (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) 1)(else 0)))))(else 0))))) -(define ExprSearch-Interactive-TTImp-tryRecursive (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (let ((sc2 e-2)) (let ((e-1 (vector-ref sc2 1))) e-1)) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-3 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-7 arg-8) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) ((ExprSearch-Interactive-TTImp-searchName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-7 arg-9 (vector 0 ) (vector 0 (let ((sc5 e-2)) (let ((e-1 (vector-ref sc5 1))) e-1)) e-3)) eta-0)))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (List-Data-filter 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--11491-7879-structDiff arg-0 e-2 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased (let ((sc6 e-2)) (let ((e-4 (vector-ref sc6 2))) e-4)) eta-1)) e-7)))))))))))))))))))))))))))))))) +(define ExprSearch-Interactive-TTImp-tryRecursive (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (let ((sc2 e-2)) (let ((e-1 (vector-ref sc2 1))) e-1)) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-3 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-7 arg-8) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) ((ExprSearch-Interactive-TTImp-searchName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-7 arg-9 (vector 0 ) (vector 0 (let ((sc5 e-2)) (let ((e-1 (vector-ref sc5 1))) e-1)) e-3)) eta-0)))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (List-Data-filter 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--11557-7887-structDiff arg-0 e-2 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased (let ((sc6 e-2)) (let ((e-4 (vector-ref sc6 2))) e-4)) eta-1)) e-7)))))))))))))))))))))))))))))))) (define ExprSearch-Interactive-TTImp-successful (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (e-2 eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ExprSearch-Interactive-TTImp-successful 'erased arg-1 arg-2 arg-3 e-3) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 1 e-5) e-6))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-24 ((ExprSearch-Interactive-TTImp-successful 'erased arg-1 arg-2 arg-3 e-3) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 0 err) e-5))))))))) eta-0))))))))) -(define ExprSearch-Interactive-TTImp-searchType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((3) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (let ((sc2 e-13)) (case (vector-ref sc2 0) ((2) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (lambda (eta-0) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 arg-7 e-18 arg-9 arg-8 (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 3 e-11 e-12 (vector 2 e-16 e-17 e-18) e-14) arg-9 arg-8 eta-1)) (vector 1 (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Normalise-Core-nf arg-0 e-5 arg-7 e-18) eta-1))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CaseSplit-Interactive-TTImp-getArgName 'erased arg-1 e-5 e-12 arg-0 e-6 eta-1))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((nC-39 (vector 1 e-7))) (let ((envC-39 (vector 1 (vector 2 e-16 e-17 e-18) arg-7))) (let ((scC-39 (TT-Core-renameTop 'erased 'erased nC-39 e-14))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Introduced lambda, search for " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 nC-39 arg-0) scC-39))) eta-1))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-28 ((ExprSearch-Interactive-TTImp-searchType (vector 1 nC-39 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 envC-39 arg-8 arg-9 0 scC-39) eta-1))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc7 1))) (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (vector 3 e-11 nC-39 (vector 0 e-16 e-17 e-18) eta-2)) e-9)))))))))))))))))))))))))))))) (vector 0 ))) eta-0))))))(else (ExprSearch-Interactive-TTImp-case--13403-9732 arg-0 arg-10 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-11))))))))))(else (ExprSearch-Interactive-TTImp-case--13403-9732 arg-0 arg-10 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-11))))))(else (let ((e-0 (- arg-10 1))) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((envC-39 (vector 1 (vector 2 e-7 e-8 e-9) arg-7))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Introduced lambda, search for " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-3 arg-0) e-5))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-25 ((ExprSearch-Interactive-TTImp-searchType (vector 1 e-3 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 envC-39 arg-8 arg-9 e-0 e-5) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 3 e-2 e-3 (vector 0 e-7 e-8 e-9) eta-1)) e-10)))))))))))))))))(else (ExprSearch-Interactive-TTImp-case--13403-9732 arg-0 arg-10 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-11))))))))))(else (ExprSearch-Interactive-TTImp-case--13403-9732 arg-0 arg-10 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-11))))))))))) -(define ExprSearch-Interactive-TTImp-searchNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ExprSearch-Interactive-TTImp-n--11190-7606-visible arg-0 e-2 e-3 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (vector 1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 3))) e-28)) (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 4))) e-27))) eta-1 eta-2))) (vector 1 e-2 e-3)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((visns (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-6))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-7 arg-8) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Searching " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) visns)) " for "))) arg-8 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 arg-7 arg-8 arg-9 arg-10 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-7 arg-9 arg-10 eta-1)) visns) eta-0))))))))))))))))))))))))))))) -(define ExprSearch-Interactive-TTImp-searchName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-getNS arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-getNestedNS arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) ((ExprSearch-Interactive-TTImp-case--10132-6694 arg-0 e-2 e-3 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 (Context-Core-visibleInAny (vector 1 e-6 e-7) (let ((sc4 e-3)) (let ((e-1 (vector-ref sc4 2))) e-1)) (let ((sc4 e-3)) (let ((e-9 (vector-ref sc4 10))) e-9)))) eta-0)))))))))))))))))))))) -(define ExprSearch-Interactive-TTImp-searchLocalWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf arg-0 e-5 arg-7 arg-9) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-7 e-7) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 arg-7 arg-9 arg-10 arg-11 (vector 1 (ExprSearch-Interactive-TTImp-n--12504-8776-findPos arg-0 e-6 e-7 e-3 arg-11 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 (lambda (eta-1) eta-1) e-9 e-8) (vector 1 (ExprSearch-Interactive-TTImp-searchLocalWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 arg-9 arg-10 arg-11) (vector 0 ))) eta-0))))))))))))))))))))))))))) +(define ExprSearch-Interactive-TTImp-searchType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((3) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (let ((sc2 e-13)) (case (vector-ref sc2 0) ((2) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (lambda (eta-0) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 arg-7 e-18 arg-9 arg-8 (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 3 e-11 e-12 (vector 2 e-16 e-17 e-18) e-14) arg-9 arg-8 eta-1)) (vector 1 (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Normalise-Core-nf arg-0 e-5 arg-7 e-18) eta-1))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CaseSplit-Interactive-TTImp-getArgName 'erased arg-1 e-5 e-12 arg-0 e-6 eta-1))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((nC-39 (vector 1 e-7))) (let ((envC-39 (vector 1 (vector 2 e-16 e-17 e-18) arg-7))) (let ((scC-39 (TT-Core-renameTop 'erased 'erased nC-39 e-14))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Introduced lambda, search for " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 nC-39 arg-0) scC-39))) eta-1))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-28 ((ExprSearch-Interactive-TTImp-searchType (vector 1 nC-39 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 envC-39 arg-8 arg-9 0 scC-39) eta-1))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc7 1))) (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (vector 3 e-11 nC-39 (vector 0 e-16 e-17 e-18) eta-2)) e-9)))))))))))))))))))))))))))))) (vector 0 ))) eta-0))))))(else (ExprSearch-Interactive-TTImp-case--13469-9740 arg-0 arg-10 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-11))))))))))(else (ExprSearch-Interactive-TTImp-case--13469-9740 arg-0 arg-10 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-11))))))(else (let ((e-0 (- arg-10 1))) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((envC-39 (vector 1 (vector 2 e-7 e-8 e-9) arg-7))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Introduced lambda, search for " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-3 arg-0) e-5))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-25 ((ExprSearch-Interactive-TTImp-searchType (vector 1 e-3 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 envC-39 arg-8 arg-9 e-0 e-5) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 3 e-2 e-3 (vector 0 e-7 e-8 e-9) eta-1)) e-10)))))))))))))))))(else (ExprSearch-Interactive-TTImp-case--13469-9740 arg-0 arg-10 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-11))))))))))(else (ExprSearch-Interactive-TTImp-case--13469-9740 arg-0 arg-10 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-11))))))))))) +(define ExprSearch-Interactive-TTImp-searchNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ExprSearch-Interactive-TTImp-n--11256-7614-visible arg-0 e-2 e-3 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (vector 1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 3))) e-28)) (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 4))) e-27))) eta-1 eta-2))) (vector 1 e-2 e-3)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((visns (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-6))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-7 arg-8) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Searching " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) visns)) " for "))) arg-8 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 arg-7 arg-8 arg-9 arg-10 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-7 arg-9 arg-10 eta-1)) visns) eta-0))))))))))))))))))))))))))))) +(define ExprSearch-Interactive-TTImp-searchName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-getNS arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-getNestedNS arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) ((ExprSearch-Interactive-TTImp-case--10198-6702 arg-0 e-2 e-3 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 (Context-Core-visibleInAny (vector 1 e-6 e-7) (let ((sc4 e-3)) (let ((e-1 (vector-ref sc4 2))) e-1)) (let ((sc4 e-3)) (let ((e-9 (vector-ref sc4 10))) e-9)))) eta-0)))))))))))))))))))))) +(define ExprSearch-Interactive-TTImp-searchLocalWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf arg-0 e-5 arg-7 arg-9) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-7 e-7) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 arg-7 arg-9 arg-10 arg-11 (vector 1 (ExprSearch-Interactive-TTImp-n--12570-8784-findPos arg-0 e-6 e-7 e-3 arg-11 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 (lambda (eta-1) eta-1) e-9 e-8) (vector 1 (ExprSearch-Interactive-TTImp-searchLocalWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 arg-9 arg-10 arg-11) (vector 0 ))) eta-0))))))))))))))))))))))))))) (define ExprSearch-Interactive-TTImp-searchLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else ((ExprSearch-Interactive-TTImp-searchLocalWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (List-Data-reverse 'erased (ExprSearch-Interactive-TTImp-getAllEnv arg-0 arg-4 (vector 0 ) arg-7)) arg-8 arg-9 arg-10) ext-0))))))) -(define ExprSearch-Interactive-TTImp-searchIfHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (ExprSearch-Interactive-TTImp-case--9719-6309 arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 3))) e-2))))) +(define ExprSearch-Interactive-TTImp-searchIfHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (ExprSearch-Interactive-TTImp-case--9785-6317 arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 3))) e-2))))) (define ExprSearch-Interactive-TTImp-searchHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (Normalise-Core-normalise (vector 0 ) arg-10 (vector 0 ) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 3))) e-2)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Normalised type") e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((ExprSearch-Interactive-TTImp-searchType (vector 0 ) arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-6 arg-9 arg-8 e-5) ext-0)))))))))))) -(define ExprSearch-Interactive-TTImp-search (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (ExprSearch-Interactive-TTImp-n--9605-10185-lookupHoleName arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-8 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((bind-0 (vector 1 (vector 0 e-4 (vector 0 e-8 e-9))))) ((ExprSearch-Interactive-TTImp-case--14280-10380 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-4 e-8 e-9 bind-0 (let ((sc5 e-9)) (let ((e-17 (vector-ref sc5 18))) e-17))) ext-0)))))(else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) " not found")) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-8) ext-0)))))))))))(else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) " not found")) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-8) ext-0))))))))))(else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) " not found")) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-8) ext-0)))))))))))))))))))) +(define ExprSearch-Interactive-TTImp-search (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (ExprSearch-Interactive-TTImp-n--9671-10193-lookupHoleName arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-8 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((bind-0 (vector 1 (vector 0 e-4 (vector 0 e-8 e-9))))) ((ExprSearch-Interactive-TTImp-case--14346-10388 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-4 e-8 e-9 bind-0 (let ((sc5 e-9)) (let ((e-17 (vector-ref sc5 18))) e-17))) ext-0)))))(else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) " not found")) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-8) ext-0)))))))))))(else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) " not found")) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-8) ext-0))))))))))(else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) " not found")) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-8) ext-0)))))))))))))))))))) (define RecData-ExprSearch-Interactive-TTImp-recname (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (define SearchOpts-ExprSearch-Interactive-TTImp-recOK (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (define ExprSearch-Interactive-TTImp-mkCandidates (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (Prelude-pure_Applicative__List 'erased arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__List 'erased 'erased e-2 (lambda (arg) (ExprSearch-Interactive-TTImp-mkCandidates 'erased arg-1 (vector 4 arg-1 arg-2 arg) e-3)))))))))) (define RecData-ExprSearch-Interactive-TTImp-lhsapp (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 2))) e-2)))) (define SearchOpts-ExprSearch-Interactive-TTImp-holesOK (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) -(define ExprSearch-Interactive-TTImp-getSuccessful (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 ((ExprSearch-Interactive-TTImp-successful 'erased arg-1 arg-2 arg-3 arg-12) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((ExprSearch-Interactive-TTImp-case--10817-7302 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) (Either-Data-rights 'erased 'erased e-5))) ext-0)))))))) -(define ExprSearch-Interactive-TTImp-getLHSData (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-0 (vector 0 ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (ExprSearch-Interactive-TTImp-n--14525-10580-getLHS e-2 arg-0 'erased e-5)))))))))))))) -(define ExprSearch-Interactive-TTImp-getAllEnv (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-3)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((rest (ExprSearch-Interactive-TTImp-getAllEnv e-3 arg-1 (List-Prelude-C-43C-43 'erased arg-2 (vector 1 e-2 (vector 0 ))) e-9))) (ExprSearch-Interactive-TTImp-case--9609-6226 e-2 e-3 e-9 e-8 arg-2 arg-1 rest (TT-Core-weakenVar 'erased 'erased arg-2 0 'erased))))))))))))) -(define ExprSearch-Interactive-TTImp-exprSearch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (ExprSearch-Interactive-TTImp-n--14668-10713-lookupHoleName arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-4 e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-9 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-0 (vector 9 e-9)) ext-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) (Metadata-Core-findHoleLHS arg-1 e-11 ext-0)))))))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "LHS hole data " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d-0) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-0)))) d x))))) (vector 0 e-8 e-11)))) ext-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 ((ExprSearch-Interactive-TTImp-getLHSData e-5 e-11) ext-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc7 1))) (ExprSearch-Interactive-TTImp-search arg-0 arg-1 arg-2 arg-3 (let ((sc8 e-10)) (let ((e-27 (vector-ref sc8 8))) e-27)) (vector 0 1 0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))) e-13 (let ((sc8 e-10)) (let ((e-2 (vector-ref sc8 3))) e-2)) e-8 ext-0)))))))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc7 1))) ((ExprSearch-Interactive-TTImp-dropLinearErrors arg-0 arg-2 arg-3 e-13) ext-0))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-4) ext-0)))))))))))))))) -(define ExprSearch-Interactive-TTImp-explicit (lambda (arg-0 arg-1) (ExprSearch-Interactive-TTImp-case--10109-6635 'erased arg-1 (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) e-3))))) -(define ExprSearch-Interactive-TTImp-dropLinearErrors (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (UnifyState-Core-tryUnify 'erased arg-0 arg-1 (lambda (eta-1) (let ((act-24 (LinearCheck-Core-linearCheck (vector 0 ) arg-0 arg-1 arg-2 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 1 (vector 0 ) e-2 eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 ((ExprSearch-Interactive-TTImp-dropLinearErrors arg-0 arg-1 arg-2 e-3) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-2 e-6)))))))))))) (ExprSearch-Interactive-TTImp-dropLinearErrors arg-0 arg-1 arg-2 e-3) eta-0))))))))) +(define ExprSearch-Interactive-TTImp-getSuccessful (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 ((ExprSearch-Interactive-TTImp-successful 'erased arg-1 arg-2 arg-3 arg-12) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((ExprSearch-Interactive-TTImp-case--10883-7310 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) (Either-Data-rights 'erased 'erased e-5))) ext-0)))))))) +(define ExprSearch-Interactive-TTImp-getLHSData (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-0 (vector 0 ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (ExprSearch-Interactive-TTImp-n--14591-10588-getLHS e-2 arg-0 'erased e-5)))))))))))))) +(define ExprSearch-Interactive-TTImp-getAllEnv (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-3)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((rest (ExprSearch-Interactive-TTImp-getAllEnv e-3 arg-1 (List-Prelude-C-43C-43 'erased arg-2 (vector 1 e-2 (vector 0 ))) e-9))) (ExprSearch-Interactive-TTImp-case--9675-6234 e-2 e-3 e-9 e-8 arg-2 arg-1 rest (TT-Core-weakenVar 'erased 'erased arg-2 0 'erased))))))))))))) +(define ExprSearch-Interactive-TTImp-exprSearch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (ExprSearch-Interactive-TTImp-n--14734-10721-lookupHoleName arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-4 e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-9 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-0 (vector 9 e-9)) ext-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) (Metadata-Core-findHoleLHS arg-1 e-11 ext-0)))))))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "LHS hole data " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d-0) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-0)))) d x))))) (vector 0 e-8 e-11)))) ext-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 ((ExprSearch-Interactive-TTImp-getLHSData e-5 e-11) ext-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc7 1))) (ExprSearch-Interactive-TTImp-search arg-0 arg-1 arg-2 arg-3 (let ((sc8 e-10)) (let ((e-27 (vector-ref sc8 8))) e-27)) (vector 0 1 0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))) e-13 (let ((sc8 e-10)) (let ((e-2 (vector-ref sc8 3))) e-2)) e-8 ext-0)))))))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc7 1))) ((ExprSearch-Interactive-TTImp-dropLinearErrors arg-0 arg-2 arg-3 e-13) ext-0))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-4) ext-0)))))))))))))))) +(define ExprSearch-Interactive-TTImp-explicit (lambda (arg-0 arg-1) (ExprSearch-Interactive-TTImp-case--10175-6643 'erased arg-1 (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) e-3))))) +(define ExprSearch-Interactive-TTImp-dropLinearErrors (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (UnifyState-Core-tryUnify 'erased arg-0 arg-1 (lambda (eta-1) (let ((act-24 (LinearCheck-Core-linearCheck (vector 0 ) arg-0 arg-1 arg-2 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 1 (vector 0 ) e-2 eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 ((ExprSearch-Interactive-TTImp-dropLinearErrors arg-0 arg-1 arg-2 e-3) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-2 e-6)))))))))))) (ExprSearch-Interactive-TTImp-dropLinearErrors arg-0 arg-1 arg-2 e-3) eta-0))))))))) (define SearchOpts-ExprSearch-Interactive-TTImp-depth (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) -(define CaseSplit-Interactive-TTImp-case--11916-9215 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (CaseSplit-Interactive-TTImp-getSplitsLHS arg-3 arg-4 arg-2 e-5 e-9 e-10 arg-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 2 ))))))))) -(define CaseSplit-Interactive-TTImp-case--11712-9078 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (CaseSplit-Interactive-TTImp-mkCase arg-5 arg-4 e-1 arg-15 eta-1 eta-2))) arg-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CaseSplit-Interactive-TTImp-combine e-5 (vector 0 ))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-11) eta-0))))))) -(define CaseSplit-Interactive-TTImp-case--11674-9023 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-5 (vector 0 ) arg-7 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (c) (CaseSplit-Interactive-TTImp-newLHS arg-5 arg-3 arg-2 arg-9 arg-0 c e-5)) e-11) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 1 (vector 0 e-6 (vector 0 e-10 e-11))))) ((CaseSplit-Interactive-TTImp-case--11712-9078 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-6 e-10 e-11 _-0 e-5 e-8 (Context-Core-getNameID e-6 (let ((sc5 arg-10)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0))))))))))))))))))))) (else (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 e-3))))))))) -(define CaseSplit-Interactive-TTImp-case--11432-8830 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 arg-0)))) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) -(define CaseSplit-Interactive-TTImp-case--11289-8782 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf e-0 e-6 e-2 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-nf e-0 e-6 e-2 e-4) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-27 ((ProcessDef-TTImp-impossibleOK e-0 e-6 e-7 e-8) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (cond ((equal? sc5 0) (vector 1 (vector 1 arg-0))) (else (vector 1 (vector 2 )))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))) -(define CaseSplit-Interactive-TTImp-case--11289-8697 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-4 arg-6))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (set-box! arg-3 arg-7))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-4 (vector 0 ) e-2 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-log arg-4 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Original LHS: " (TTImp-TTImp-show_Show__RawImp arg-1))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-28 (Context-Core-log arg-4 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "New LHS: " (TTImp-TTImp-show_Show__RawImp e-7))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-29 (CaseSplit-Interactive-TTImp-getUpdates arg-6 arg-1 e-7 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 e-7 e-10))))))))))))))))))))))))))))))))) -(define CaseSplit-Interactive-TTImp-case--11051-8513 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 (vector 1 (vector 0 arg-1 (vector 0 arg-2 arg-8)) e-1))))))) -(define CaseSplit-Interactive-TTImp-case--11051-8457 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 (vector 1 (vector 0 arg-3 arg-1) e-0) e-1)))))) -(define CaseSplit-Interactive-TTImp-case--10999-8427 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (set-box! arg-5 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 (vector 1 (vector 0 arg-3 arg-1) e-0) e-1))))))) (vector 1 act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (set-box! arg-5 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-0 (vector 1 (vector 0 arg-1 (vector 0 arg-2 e-2)) e-1)))))))) (vector 1 act-24))))))))) -(define CaseSplit-Interactive-TTImp-case--10982-8381 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (CaseSplit-Interactive-TTImp-recordUpdate arg-5 arg-2 arg-1 (vector 0 arg-2 arg-3) eta-0))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((bind-0 (vector 0 ))) ((CaseSplit-Interactive-TTImp-case--10999-8427 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 bind-0 e-5 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-3 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) eta-0))))))))))))) -(define CaseSplit-Interactive-TTImp-case--10908-8336 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 (vector 1 (vector 0 arg-1 (Utils-TTImp-substNames (vector 0 ) arg-5 arg-0)) e-1))))))) -(define CaseSplit-Interactive-TTImp-case--10820-8239 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((keep (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 0 arg-5 (vector 31 arg-5 0))) (List-Data-take 'erased arg-4 e-3)))) (let ((ups (List-Data-drop 'erased arg-4 e-3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CaseSplit-Interactive-TTImp-update arg-6 arg-3 arg-2 arg-1 eta-1)) ups) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CaseSplit-Interactive-TTImp-apply e-2 (List-Prelude-C-43C-43 'erased keep e-5)))))))))))))))) -(define CaseSplit-Interactive-TTImp-case--10642-8099 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (CaseSplit-Interactive-TTImp-expandCon arg-5 arg-1 (List-Data-filter 'erased (lambda (arg-7) (Name-Core-C-47C-61_Eq__Name arg-7 arg-0)) arg-4) arg-2 eta-0))) (else (lambda (eta-0) (vector 1 (vector 31 arg-1 0)))))))) -(define CaseSplit-Interactive-TTImp-case--10629-8079 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (CaseSplit-Interactive-TTImp-case--10642-8099 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Name-Core-C-61C-61_Eq__Name arg-0 arg-3))) (else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-0)))))))) -(define CaseSplit-Interactive-TTImp-case--10552-8017 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 0 ) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CaseSplit-Interactive-TTImp-getArgNames 'erased arg-3 arg-4 arg-1 (vector 0 ) e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (TTImp-TTImp-apply (vector 0 arg-2 arg-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 16 arg-2 eta-1)) e-6)))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-0) eta-0))))))) -(define CaseSplit-Interactive-TTImp-case--10391-7899 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (CaseSplit-Interactive-TTImp-getArgName 'erased arg-10 arg-9 arg-5 arg-8 arg-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CaseSplit-Interactive-TTImp-case--10141-7771 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (CaseSplit-Interactive-TTImp-defaultNames)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))))))) -(define CaseSplit-Interactive-TTImp-case--10140-7662 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 arg-8)))) (else (CaseSplit-Interactive-TTImp-n--10130-7623-lookupName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-10 arg-9)))))) -(define CaseSplit-Interactive-TTImp-case--10042-7564 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (CaseSplit-Interactive-TTImp-unique arg-1 arg-4 arg-3 arg-2)) (else arg-5))))) -(define CaseSplit-Interactive-TTImp-case--9871-7426 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-3 (vector 0 arg-5 e-8)))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) arg-7)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) arg-7))))))))))) -(define CaseSplit-Interactive-TTImp-case--9828-7386 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Can't find type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) " in LHS"))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((6) (let ((e-8 (vector-ref sc3 7))) (vector 1 (vector 1 (vector 0 arg-3 (vector 0 e-2 e-8))))))(else (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) e-5))))))))))(else (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) e-5)))))))))))))))))))) -(define CaseSplit-Interactive-TTImp-case--9819-7344 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-1 "Can't find function name on LHS"))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CaseSplit-Interactive-TTImp-findTyName (vector 0 ) arg-2 e-5 (vector 0 ) arg-1 arg-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Can't find type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) " in LHS")))))) (else (let ((e-3 (vector-ref sc3 1))) (let ((act-26 (Context-Core-lookupDefExact e-3 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((6) (let ((e-8 (vector-ref sc6 7))) (vector 1 (vector 1 (vector 0 e-2 (vector 0 e-3 e-8))))))(else (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) e-7))))))))))(else (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) e-7)))))))))))))))))))))))))))))))))) -(define CaseSplit-Interactive-TTImp-case--9776-7316 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 3))) (vector 1 e-3)))(else (vector 0 )))))) -(define CaseSplit-Interactive-TTImp-case--9600-7178 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 e-2)))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CaseSplit-Interactive-TTImp-case--9572-7145 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-10 arg-9 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((3) (let ((e-2 (vector-ref sc2 2))) (vector 1 (vector 1 e-2))))(else (vector 1 (vector 0 )))))))))))) (else (CaseSplit-Interactive-TTImp-findTyName (vector 1 arg-6 arg-0) arg-1 arg-10 (vector 1 (vector 3 arg-5 arg-4 arg-3) arg-9) arg-8 arg-7)))))) -(define CaseSplit-Interactive-TTImp-n--10042-7549-mkVarN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) arg-5)(else (Strings-Prelude-C-43C-43 arg-5 (Prelude-show_Show__Int arg-6))))))) -(define CaseSplit-Interactive-TTImp-n--10130-7623-lookupName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-5 arg-7) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-getFullName arg-5 e-6) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((CaseSplit-Interactive-TTImp-case--10140-7662 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-6 e-7 e-3 arg-7 e-5 e-8 (Name-Core-C-61C-61_Eq__Name e-5 e-8)) eta-0)))))))))))))))))))))) -(define CaseSplit-Interactive-TTImp-n--10130-7625-getName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (CaseSplit-Interactive-TTImp-unique (vector 1 e-0 arg-7) (vector 1 e-0 arg-7) 0 arg-8)))(else (CaseSplit-Interactive-TTImp-unique arg-7 arg-7 0 arg-8)))))) -(define CaseSplit-Interactive-TTImp-n--10130-7624-findNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 1 "f" (vector 1 "g" (vector 0 ))))))(else (lambda (eta-0) (vector 1 (CaseSplit-Interactive-TTImp-defaultNames)))))))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-n--10130-7623-lookupName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-7 (NameMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-14 (vector-ref sc1 15))) e-14)))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (CaseSplit-Interactive-TTImp-defaultNames))) (else (let ((e-2 (vector-ref sc2 1))) (vector 1 e-2)))))))))))))(else (lambda (eta-0) (vector 1 (CaseSplit-Interactive-TTImp-defaultNames)))))))) +(define CaseSplit-Interactive-TTImp-case--12002-9305 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (CaseSplit-Interactive-TTImp-getSplitsLHS arg-3 arg-4 arg-2 e-5 e-9 e-10 arg-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 2 ))))))))) +(define CaseSplit-Interactive-TTImp-case--11798-9168 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (CaseSplit-Interactive-TTImp-mkCase arg-5 arg-4 e-1 arg-15 eta-1 eta-2))) arg-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CaseSplit-Interactive-TTImp-combine e-5 (vector 0 ))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-11) eta-0))))))) +(define CaseSplit-Interactive-TTImp-case--11760-9113 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-5 (vector 0 ) arg-7 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (c) (CaseSplit-Interactive-TTImp-newLHS arg-5 arg-3 arg-2 arg-9 arg-0 c e-5)) e-11) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 1 (vector 0 e-6 (vector 0 e-10 e-11))))) ((CaseSplit-Interactive-TTImp-case--11798-9168 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-6 e-10 e-11 _-0 e-5 e-8 (Context-Core-getNameID e-6 (let ((sc5 arg-10)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0))))))))))))))))))))) (else (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 e-3))))))))) +(define CaseSplit-Interactive-TTImp-case--11518-8920 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 arg-0)))) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) +(define CaseSplit-Interactive-TTImp-case--11375-8872 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf e-0 e-6 e-2 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-nf e-0 e-6 e-2 e-4) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-27 ((ProcessDef-TTImp-impossibleOK e-0 e-6 e-7 e-8) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (cond ((equal? sc5 0) (vector 1 (vector 1 arg-0))) (else (vector 1 (vector 2 )))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))) +(define CaseSplit-Interactive-TTImp-case--11375-8787 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-4 arg-6))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (set-box! arg-3 arg-7))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-4 (vector 0 ) e-2 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-log arg-4 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Original LHS: " (TTImp-TTImp-show_Show__RawImp arg-1))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-28 (Context-Core-log arg-4 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "New LHS: " (TTImp-TTImp-show_Show__RawImp e-7))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-29 (CaseSplit-Interactive-TTImp-getUpdates arg-6 arg-1 e-7 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 e-7 e-10))))))))))))))))))))))))))))))))) +(define CaseSplit-Interactive-TTImp-case--11137-8603 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 (vector 1 (vector 0 arg-1 (vector 0 arg-2 arg-8)) e-1))))))) +(define CaseSplit-Interactive-TTImp-case--11137-8547 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 (vector 1 (vector 0 arg-3 arg-1) e-0) e-1)))))) +(define CaseSplit-Interactive-TTImp-case--11085-8517 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (set-box! arg-5 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 (vector 1 (vector 0 arg-3 arg-1) e-0) e-1))))))) (vector 1 act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (set-box! arg-5 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-0 (vector 1 (vector 0 arg-1 (vector 0 arg-2 e-2)) e-1)))))))) (vector 1 act-24))))))))) +(define CaseSplit-Interactive-TTImp-case--11068-8471 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (CaseSplit-Interactive-TTImp-recordUpdate arg-5 arg-2 arg-1 (vector 0 arg-2 arg-3) eta-0))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((bind-0 (vector 0 ))) ((CaseSplit-Interactive-TTImp-case--11085-8517 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 bind-0 e-5 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) arg-3 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) eta-0))))))))))))) +(define CaseSplit-Interactive-TTImp-case--10994-8426 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 (vector 1 (vector 0 arg-1 (Utils-TTImp-substNames (vector 0 ) arg-5 arg-0)) e-1))))))) +(define CaseSplit-Interactive-TTImp-case--10906-8329 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((keep (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 0 arg-5 (vector 31 arg-5 0))) (List-Data-take 'erased arg-4 e-3)))) (let ((ups (List-Data-drop 'erased arg-4 e-3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CaseSplit-Interactive-TTImp-update arg-6 arg-3 arg-2 arg-1 eta-1)) ups) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CaseSplit-Interactive-TTImp-apply e-2 (List-Prelude-C-43C-43 'erased keep e-5)))))))))))))))) +(define CaseSplit-Interactive-TTImp-case--10728-8189 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (CaseSplit-Interactive-TTImp-expandCon arg-5 arg-1 (List-Data-filter 'erased (lambda (arg-7) (Name-Core-C-47C-61_Eq__Name arg-7 arg-0)) arg-4) arg-2 eta-0))) (else (lambda (eta-0) (vector 1 (vector 31 arg-1 0)))))))) +(define CaseSplit-Interactive-TTImp-case--10715-8169 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (CaseSplit-Interactive-TTImp-case--10728-8189 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Name-Core-C-61C-61_Eq__Name arg-0 arg-3))) (else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-0)))))))) +(define CaseSplit-Interactive-TTImp-case--10638-8107 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 0 ) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CaseSplit-Interactive-TTImp-getArgNames 'erased arg-3 arg-4 arg-1 (vector 0 ) e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (TTImp-TTImp-apply (vector 0 arg-2 arg-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 16 arg-2 eta-1)) e-6)))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-0) eta-0))))))) +(define CaseSplit-Interactive-TTImp-case--10477-7989 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (CaseSplit-Interactive-TTImp-getArgName 'erased arg-10 arg-9 arg-5 arg-8 arg-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define CaseSplit-Interactive-TTImp-case--10227-7861 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (CaseSplit-Interactive-TTImp-defaultNames)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))))))) +(define CaseSplit-Interactive-TTImp-case--10226-7752 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 arg-8)))) (else (CaseSplit-Interactive-TTImp-n--10216-7713-lookupName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-10 arg-9)))))) +(define CaseSplit-Interactive-TTImp-case--10128-7654 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (CaseSplit-Interactive-TTImp-unique arg-1 arg-4 arg-3 arg-2)) (else arg-5))))) +(define CaseSplit-Interactive-TTImp-case--9939-7495 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) arg-5 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc2 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) eta-1 eta-2))) e-8) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-11 (vector-ref sc3 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 arg-3 (vector 0 e-10 e-11)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) arg-7)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) arg-7))))))))))) +(define CaseSplit-Interactive-TTImp-case--9896-7455 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Can't find type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) " in LHS"))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((6) (let ((e-8 (vector-ref sc3 7))) (let ((act-25 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc4 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) eta-1 eta-2))) e-8) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-13 (vector-ref sc5 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 0 arg-3 (vector 0 e-12 e-13))))))))))))))))(else (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) e-5))))))))))(else (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) e-5)))))))))))))))))))) +(define CaseSplit-Interactive-TTImp-case--9887-7413 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-1 "Can't find function name on LHS"))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CaseSplit-Interactive-TTImp-findTyName (vector 0 ) arg-2 e-5 (vector 0 ) arg-1 arg-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Can't find type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) " in LHS")))))) (else (let ((e-3 (vector-ref sc3 1))) (let ((act-26 (Context-Core-lookupDefExact e-3 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((6) (let ((e-8 (vector-ref sc6 7))) (let ((act-27 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-3 eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-15 (vector-ref sc7 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) eta-1 eta-2))) e-8) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-16 (vector-ref sc8 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 0 e-2 (vector 0 e-15 e-16))))))))))))))))(else (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) e-7))))))))))(else (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) e-7)))))))))))))))))))))))))))))))))) +(define CaseSplit-Interactive-TTImp-case--9844-7385 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 3))) (vector 1 e-3)))(else (vector 0 )))))) +(define CaseSplit-Interactive-TTImp-case--9668-7247 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 e-2)))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define CaseSplit-Interactive-TTImp-case--9640-7214 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-10 arg-9 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((3) (let ((e-2 (vector-ref sc2 2))) (vector 1 (vector 1 e-2))))(else (vector 1 (vector 0 )))))))))))) (else (CaseSplit-Interactive-TTImp-findTyName (vector 1 arg-6 arg-0) arg-1 arg-10 (vector 1 (vector 3 arg-5 arg-4 arg-3) arg-9) arg-8 arg-7)))))) +(define CaseSplit-Interactive-TTImp-n--10128-7639-mkVarN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) arg-5)(else (Strings-Prelude-C-43C-43 arg-5 (Prelude-show_Show__Int arg-6))))))) +(define CaseSplit-Interactive-TTImp-n--10216-7713-lookupName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-5 arg-7) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-getFullName arg-5 e-6) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((CaseSplit-Interactive-TTImp-case--10226-7752 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-6 e-7 e-3 arg-7 e-5 e-8 (Name-Core-C-61C-61_Eq__Name e-5 e-8)) eta-0)))))))))))))))))))))) +(define CaseSplit-Interactive-TTImp-n--10216-7715-getName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (CaseSplit-Interactive-TTImp-unique (vector 1 e-0 arg-7) (vector 1 e-0 arg-7) 0 arg-8)))(else (CaseSplit-Interactive-TTImp-unique arg-7 arg-7 0 arg-8)))))) +(define CaseSplit-Interactive-TTImp-n--10216-7714-findNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 1 "f" (vector 1 "g" (vector 0 ))))))(else (lambda (eta-0) (vector 1 (CaseSplit-Interactive-TTImp-defaultNames)))))))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-n--10216-7713-lookupName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-7 (NameMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-14 (vector-ref sc1 15))) e-14)))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (CaseSplit-Interactive-TTImp-defaultNames))) (else (let ((e-2 (vector-ref sc2 1))) (vector 1 e-2)))))))))))))(else (lambda (eta-0) (vector 1 (CaseSplit-Interactive-TTImp-defaultNames)))))))) (define CaseSplit-Interactive-TTImp-show_Show__SplitError (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "No valid case splits") ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "Can't split on " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-0) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 e-1 ")"))))))) (else "No clause to split here"))))) (define CaseSplit-Interactive-TTImp-showPrec_Show__SplitError (lambda (arg-0 arg-1) (CaseSplit-Interactive-TTImp-show_Show__SplitError arg-1))) (define CaseSplit-Interactive-TTImp-__Impl_Show_SplitError (lambda () (vector 0 (lambda (x) (CaseSplit-Interactive-TTImp-show_Show__SplitError x)) (lambda (d) (lambda (x) (CaseSplit-Interactive-TTImp-showPrec_Show__SplitError d x)))))) (define Updates-CaseSplit-Interactive-TTImp-updates (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) -(define CaseSplit-Interactive-TTImp-updateArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (CaseSplit-Interactive-TTImp-case--10629-8079 e-1 e-0 arg-3 arg-2 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-1 arg-1))))) ((8) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 8 e-2 e-5 e-6))))))))))))))))) ((9) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) (let ((act-25 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc2 1))) (vector 1 (vector 9 e-5 e-9 e-7 e-10)))))))))))))))))) ((17) (let ((e-12 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-12)))(else (lambda (eta-0) (vector 1 (vector 31 (TTImp-TTImp-getFC arg-4) 0)))))))) +(define CaseSplit-Interactive-TTImp-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--10715-8169 e-1 e-0 arg-3 arg-2 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-1 arg-1))))) ((8) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 8 e-2 e-5 e-6))))))))))))))))) ((9) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) (let ((act-25 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc2 1))) (vector 1 (vector 9 e-5 e-9 e-7 e-10)))))))))))))))))) ((17) (let ((e-12 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-12)))(else (lambda (eta-0) (vector 1 (vector 31 (TTImp-TTImp-getFC arg-4) 0)))))))) (define CaseSplit-Interactive-TTImp-update (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-5))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-2 e-3 e-5)))))))))))))))) -(define CaseSplit-Interactive-TTImp-unique (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (CaseSplit-Interactive-TTImp-unique arg-1 arg-1 (b+ arg-2 1 63) arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((var (CaseSplit-Interactive-TTImp-n--10042-7549-mkVarN e-2 e-3 arg-3 arg-2 arg-1 e-2 arg-2))) (CaseSplit-Interactive-TTImp-case--10042-7564 e-2 e-3 arg-3 arg-2 arg-1 var (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (vector 1 var) arg-3)))))))))) +(define CaseSplit-Interactive-TTImp-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--10128-7639-mkVarN e-2 e-3 arg-3 arg-2 arg-1 e-2 arg-2))) (CaseSplit-Interactive-TTImp-case--10128-7654 e-2 e-3 arg-3 arg-2 arg-1 var (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (vector 1 var) arg-3)))))))))) (define CaseSplit-Interactive-TTImp-substLets (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 2))) (CaseSplit-Interactive-TTImp-substLets arg-0 (SubstEnv-TT-Core-subst arg-0 e-2 e-7 e-4)))) ((4) (let ((e-11 (vector-ref sc1 2))) (CaseSplit-Interactive-TTImp-substLets arg-0 (SubstEnv-TT-Core-subst arg-0 e-2 e-11 e-4))))(else (vector 3 e-1 e-2 e-3 (CaseSplit-Interactive-TTImp-substLets (vector 1 e-2 arg-0) e-4))))))))))(else arg-1))))) (define CaseSplit-Interactive-TTImp-recordUpdate (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((nupdates (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 (Builtin-fst 'erased 'erased x) (vector 0 arg-1 (Builtin-snd 'erased 'erased x)))) (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-0 (vector 1 (vector 0 arg-2 (Utils-TTImp-substNames (vector 0 ) nupdates arg-3)) e-1)))))))) (vector 1 act-25)))))))))) -(define CaseSplit-Interactive-TTImp-newLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (CaseSplit-Interactive-TTImp-case--10820-8239 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 (CaseSplit-Interactive-TTImp-getFnArgs arg-6 (vector 0 ))))) +(define CaseSplit-Interactive-TTImp-newLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (CaseSplit-Interactive-TTImp-case--10906-8329 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 (CaseSplit-Interactive-TTImp-getFnArgs arg-6 (vector 0 ))))) (define Updates-CaseSplit-Interactive-TTImp-namemap (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) -(define CaseSplit-Interactive-TTImp-mkCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-branch arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (UnifyState-Core-handleUnify 'erased arg-0 arg-1 (lambda (eta-0) (let ((act-27 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 e-5 arg-1 arg-2 (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 (TTImp-TTImp-getFC arg-4) (vector 1 ) arg-4) (vector 0 )) eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (set-box! arg-0 e-6))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-29 (let ((act-29 (set-box! arg-1 e-7))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-0 (vector 0 ) e-2 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Original LHS: " (TTImp-TTImp-show_Show__RawImp arg-3))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "New LHS: " (TTImp-TTImp-show_Show__RawImp e-11))) eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-33 (CaseSplit-Interactive-TTImp-getUpdates e-6 arg-3 e-11 eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-11 e-14)))))))))))))))))))))))))))))))))))) (lambda (err) (let ((sc3 err)) (case (vector-ref sc3 0) ((5) (let ((e-0 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-28 ((Normalise-Core-nf e-0 e-9 e-2 e-3) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-29 ((Normalise-Core-nf e-0 e-9 e-2 e-4) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-30 ((ProcessDef-TTImp-impossibleOK e-0 e-9 e-10 e-11) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (let ((sc8 e-12)) (cond ((equal? sc8 0) (vector 1 (vector 1 arg-4))) (else (vector 1 (vector 2 )))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))) ext-0)))))))))))))))))) +(define CaseSplit-Interactive-TTImp-mkCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-branch arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (UnifyState-Core-handleUnify 'erased arg-0 arg-1 (lambda (eta-0) (let ((act-27 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 e-5 arg-1 arg-2 (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 (TTImp-TTImp-getFC arg-4) (vector 1 ) arg-4) (vector 0 )) eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (set-box! arg-0 e-6))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-29 (let ((act-29 (set-box! arg-1 e-7))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-0 (vector 0 ) e-2 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Original LHS: " (TTImp-TTImp-show_Show__RawImp arg-3))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "New LHS: " (TTImp-TTImp-show_Show__RawImp e-11))) eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-33 (CaseSplit-Interactive-TTImp-getUpdates e-6 arg-3 e-11 eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-11 e-14)))))))))))))))))))))))))))))))))))) (lambda (err) (let ((sc3 err)) (case (vector-ref sc3 0) ((5) (let ((e-0 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-28 ((Normalise-Core-nf e-0 e-9 e-2 e-3) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-29 ((Normalise-Core-nf e-0 e-9 e-2 e-4) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-30 ((ProcessDef-TTImp-impossibleOK e-0 e-9 e-10 e-11) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (let ((sc8 e-12)) (cond ((equal? sc8 0) (vector 1 (vector 1 arg-4))) (else (vector 1 (vector 2 )))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))) ext-0)))))))))))))))))) (define CaseSplit-Interactive-TTImp-getUpdates (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "TTImp.Interactive.CaseSplit.UPD" ) (vector 0 (vector 0 ) (vector 0 )) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CaseSplit-Interactive-TTImp-findUpdates e-5 arg-0 arg-1 arg-2) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (unbox e-5))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1))))))))))))))))))) -(define CaseSplit-Interactive-TTImp-getSplitsLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((lhs (CaseSplit-Interactive-TTImp-substLets (vector 0 ) arg-5))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "Splitting") arg-5 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((usedns (CaseSplit-Interactive-TTImp-findAllVars 'erased arg-5))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((CaseSplit-Interactive-TTImp-findCons arg-1 arg-6 lhs) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (let ((e-9 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((act-27 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-1 (vector 0 ) lhs eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (c) (CaseSplit-Interactive-TTImp-newLHS arg-1 arg-3 arg-4 usedns arg-6 c e-12)) e-11) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc7 1))) (let ((_-0 (vector 1 (vector 0 e-9 (vector 0 e-10 e-11))))) ((CaseSplit-Interactive-TTImp-case--11712-9078 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 lhs e-5 usedns e-6 e-9 e-10 e-11 _-0 e-12 e-13 (Context-Core-getNameID e-9 (let ((sc8 e-6)) (let ((e-0 (vector-ref sc8 1))) e-0)))) eta-0)))))))))))))))))))) (else (let ((e-3 (vector-ref sc3 1))) (vector 1 (vector 0 e-3)))))))))))))))))))))))))) +(define CaseSplit-Interactive-TTImp-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--11798-9168 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 lhs e-5 usedns e-6 e-9 e-10 e-11 _-0 e-12 e-13 (Context-Core-getNameID e-9 (let ((sc8 e-6)) (let ((e-0 (vector-ref sc8 1))) e-0)))) eta-0)))))))))))))))))))) (else (let ((e-3 (vector-ref sc3 1))) (vector 1 (vector 0 e-3)))))))))))))))))))))))))) (define CaseSplit-Interactive-TTImp-getSplits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Metadata-Core-findLHSAt arg-1 arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) ((CaseSplit-Interactive-TTImp-getSplitsLHS arg-1 arg-0 arg-2 e-7 e-9 e-10 arg-4) ext-0))))))))) (else (vector 1 (vector 0 (vector 2 ))))))))))))) (define CaseSplit-Interactive-TTImp-getFnArgs (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (CaseSplit-Interactive-TTImp-getFnArgs e-1 (vector 1 (vector 0 e-0 e-2) arg-1)))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-getFnArgs e-4 (vector 1 (vector 1 e-3 e-5 e-6) arg-1)))))))(else (vector 0 arg-0 arg-1)))))) (define CaseSplit-Interactive-TTImp-getEnvArgNames (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (CaseSplit-Interactive-TTImp-getArgNames 'erased arg-0 arg-1 (vector 0 ) (vector 0 ) arg-3))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (((e-5 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-2 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) ((CaseSplit-Interactive-TTImp-getEnvArgNames arg-0 arg-1 e-0 e-6) eta-0))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))) -(define CaseSplit-Interactive-TTImp-getDefining (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-4 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-getDefining 'erased e-4)))(else (CaseSplit-Interactive-TTImp-case--9776-7316 'erased arg-1 (TT-Core-getFn 'erased arg-1))))))) +(define CaseSplit-Interactive-TTImp-getDefining (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-4 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-getDefining 'erased e-4)))(else (CaseSplit-Interactive-TTImp-case--9844-7385 'erased arg-1 (TT-Core-getFn 'erased arg-1))))))) (define CaseSplit-Interactive-TTImp-getArgNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (let ((act-24 (CaseSplit-Interactive-TTImp-getArgName 'erased arg-1 arg-2 e-2 arg-3 e-8 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 1 e-5 (vector 0 )))))))))(else (vector 1 (vector 0 ))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-4 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 (vector 10 e-1 1))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 ((CaseSplit-Interactive-TTImp-getArgNames 'erased arg-1 arg-2 (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 1 eta-1)) e-5) arg-3) arg-4 e-9) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-5 e-10)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CaseSplit-Interactive-TTImp-getArgName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-n--10130-7624-findNames 'erased arg-5 arg-4 arg-3 arg-2 arg-1 arg-5) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (CaseSplit-Interactive-TTImp-n--10130-7625-getName 'erased arg-5 arg-4 arg-3 arg-2 arg-1 arg-3 e-5 arg-4))))))))) -(define CaseSplit-Interactive-TTImp-findUpdates (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-22 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (CaseSplit-Interactive-TTImp-recordUpdate arg-0 e-12 e-13 (vector 0 e-12 e-22) eta-0)) (else (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((bind-0 (vector 0 ))) ((CaseSplit-Interactive-TTImp-case--10999-8427 e-21 e-13 e-12 e-22 arg-1 arg-0 bind-0 e-6 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-22 (let ((sc5 e-6)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0)))))))))))))))))))(else (lambda (eta-0) (CaseSplit-Interactive-TTImp-recordUpdate arg-0 e-12 e-13 arg-3 eta-0)))))))) ((8) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-24 (vector-ref sc1 2))) (let ((e-25 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-15 e-24) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-16 e-25) eta-0)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((9) (let ((e-9 (vector-ref sc1 2))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 arg-2 e-9)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-7 (vector-ref sc1 4))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-7 arg-3)))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((17) (let ((e-3 (vector-ref sc1 4))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 arg-2 e-3)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))))))) ((9) (let ((e-18 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((9) (let ((e-27 (vector-ref sc1 2))) (let ((e-29 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-18 e-27) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-20 e-29) eta-0)))))))))(else (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-18 arg-3)))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((9) (let ((e-9 (vector-ref sc0 2))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 arg-2 e-9)))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((17) (let ((e-7 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-7 arg-3)))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((17) (let ((e-3 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 arg-2 e-3)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))))) -(define CaseSplit-Interactive-TTImp-findTyName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((3) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (CaseSplit-Interactive-TTImp-case--9572-7145 arg-0 arg-1 e-1 e-8 e-7 e-6 e-2 e-4 arg-4 arg-3 arg-2 (Name-Core-C-61C-61_Eq__Name arg-4 e-2))))))(else (CaseSplit-Interactive-TTImp-findTyName (vector 1 e-2 arg-0) arg-1 arg-2 (vector 1 e-3 arg-3) arg-4 e-4)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CaseSplit-Interactive-TTImp-findCons (lambda (arg-0 arg-1 arg-2) (CaseSplit-Interactive-TTImp-case--9819-7344 arg-2 arg-1 arg-0 (CaseSplit-Interactive-TTImp-getDefining 'erased arg-2)))) +(define CaseSplit-Interactive-TTImp-getArgName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-n--10216-7714-findNames 'erased arg-5 arg-4 arg-3 arg-2 arg-1 arg-5) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (CaseSplit-Interactive-TTImp-n--10216-7715-getName 'erased arg-5 arg-4 arg-3 arg-2 arg-1 arg-3 e-5 arg-4))))))))) +(define CaseSplit-Interactive-TTImp-findUpdates (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-22 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (CaseSplit-Interactive-TTImp-recordUpdate arg-0 e-12 e-13 (vector 0 e-12 e-22) eta-0)) (else (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((bind-0 (vector 0 ))) ((CaseSplit-Interactive-TTImp-case--11085-8517 e-21 e-13 e-12 e-22 arg-1 arg-0 bind-0 e-6 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-22 (let ((sc5 e-6)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0)))))))))))))))))))(else (lambda (eta-0) (CaseSplit-Interactive-TTImp-recordUpdate arg-0 e-12 e-13 arg-3 eta-0)))))))) ((8) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-24 (vector-ref sc1 2))) (let ((e-25 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-15 e-24) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-16 e-25) eta-0)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((9) (let ((e-9 (vector-ref sc1 2))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 arg-2 e-9)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-7 (vector-ref sc1 4))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-7 arg-3)))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((17) (let ((e-3 (vector-ref sc1 4))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 arg-2 e-3)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))))))) ((9) (let ((e-18 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((9) (let ((e-27 (vector-ref sc1 2))) (let ((e-29 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-18 e-27) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-20 e-29) eta-0)))))))))(else (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-18 arg-3)))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((9) (let ((e-9 (vector-ref sc0 2))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 arg-2 e-9)))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((17) (let ((e-7 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-7 arg-3)))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((17) (let ((e-3 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 arg-2 e-3)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))))) +(define CaseSplit-Interactive-TTImp-findTyName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((3) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (CaseSplit-Interactive-TTImp-case--9640-7214 arg-0 arg-1 e-1 e-8 e-7 e-6 e-2 e-4 arg-4 arg-3 arg-2 (Name-Core-C-61C-61_Eq__Name arg-4 e-2))))))(else (CaseSplit-Interactive-TTImp-findTyName (vector 1 e-2 arg-0) arg-1 arg-2 (vector 1 e-3 arg-3) arg-4 e-4)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define CaseSplit-Interactive-TTImp-findCons (lambda (arg-0 arg-1 arg-2) (CaseSplit-Interactive-TTImp-case--9887-7413 arg-2 arg-1 arg-0 (CaseSplit-Interactive-TTImp-getDefining 'erased arg-2)))) (define CaseSplit-Interactive-TTImp-findAllVars (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((3) (vector 1 e-2 (CaseSplit-Interactive-TTImp-findAllVars 'erased e-4))) ((1) (vector 1 e-2 (CaseSplit-Interactive-TTImp-findAllVars 'erased e-4))) ((4) (vector 1 e-2 (CaseSplit-Interactive-TTImp-findAllVars 'erased e-4)))(else (vector 0 ))))))))(else (vector 0 )))))) (define CaseSplit-Interactive-TTImp-expandCon (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-lookupTyExact arg-3 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) e-1) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((CaseSplit-Interactive-TTImp-getArgNames 'erased arg-0 e-5 arg-2 (vector 0 ) e-7) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (TTImp-TTImp-apply (vector 0 arg-1 arg-3) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 16 arg-1 eta-0)) e-8))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-3) ext-0)))))))))))))))) (define CaseSplit-Interactive-TTImp-defaultNames (lambda () (vector 1 "x" (vector 1 "y" (vector 1 "z" (vector 1 "w" (vector 1 "v" (vector 1 "s" (vector 1 "t" (vector 1 "u" (vector 0 ))))))))))) (define CaseSplit-Interactive-TTImp-combine (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (vector 0 (vector 0 )))(else (vector 1 (List-Data-reverse 'erased arg-1)))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (CaseSplit-Interactive-TTImp-combine e-3 arg-1))(else (CaseSplit-Interactive-TTImp-combine e-3 (vector 1 e-2 arg-1)))))))))))) (define CaseSplit-Interactive-TTImp-apply (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (CaseSplit-Interactive-TTImp-apply (vector 8 e-4 arg-0 e-5) e-2)))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (CaseSplit-Interactive-TTImp-apply (vector 9 e-6 arg-0 e-7 e-8) e-2)))))))))) (else arg-0))))) -(define AutoSearch-Core-case--13042-5432 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-25 eta-0))) (else (AutoSearch-Core-n--7569-4986-tryGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (vector 0 ) arg-21 (let ((sc1 arg-23)) (let ((e-1 (vector-ref sc1 2))) e-1)))))))) -(define AutoSearch-Core-case--12951-5318 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (cond ((equal? sc0 0) (AutoSearch-Core-n--7569-4986-tryGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (vector 0 ) arg-21 (let ((sc1 arg-23)) (let ((e-1 (vector-ref sc1 2))) e-1)))) (else (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (AutoSearch-Core-searchLocal arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-15 arg-6 arg-5 arg-3 arg-2 arg-21) (lambda (e) (AutoSearch-Core-case--13042-5432 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 e (AutoSearch-Core-n--7569-4985-ambig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e))) eta-0))))))) -(define AutoSearch-Core-case--12889-5244 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target") arg-2 arg-21 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-getSearchData arg-12 arg-10 arg-8 arg-19 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 arg-4)) (cond ((equal? sc3 0) ((AutoSearch-Core-checkConcreteDets arg-0 arg-12 arg-11 arg-10 arg-8 arg-2 arg-3 (vector 3 arg-20 arg-19 arg-18 arg-17 arg-16)) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((AutoSearch-Core-case--12951-5318 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 e-5 e-6 e-7 (Prelude-C-38C-38 arg-8 (lambda () arg-4))) eta-0)))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-10 (vector 0 ) arg-3) eta-0))))))) -(define AutoSearch-Core-case--7569-5203 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((nty (vector 3 e-1 e-2 e-3 e-4 e-5))) (AutoSearch-Core-case--12889-5244 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-5 e-4 e-3 e-2 e-1 nty (Prelude-C-61C-61_Eq__Nat e-4 (List-Data-length 'erased e-5))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target: ") arg-2 arg-16 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else ((AutoSearch-Core-searchLocal arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-15 arg-6 arg-5 arg-3 arg-2 arg-16) eta-0))))))))))) -(define AutoSearch-Core-case--12662-5087 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-18 eta-0))) (else (AutoSearch-Core-n--7569-4986-tryGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (vector 1 (Maybe-Data-fromMaybe 'erased (lambda () arg-18) arg-17)) arg-16 arg-15)))))) -(define AutoSearch-Core-case--12499-4886 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Cycle in search") eta-0))) (else (AutoSearch-Core-abandonIfCycle arg-0 arg-5 arg-4 arg-3 arg-2)))))) -(define AutoSearch-Core-case--12279-4685 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-12 e-1) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-12 e-4) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-7) eta-0)))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0)) arg-1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) arg-1) eta-0)))))))))))) -(define AutoSearch-Core-case--12245-4655 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-12 e-1) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-12 e-4) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-6) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-7) eta-0)))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) e-0)) arg-1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) arg-1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-1) eta-0))))))))))) (else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Context-Core-toFullNames 'erased arg-11 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-4 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Determining arguments for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))))))) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) arg-1) eta-0)))))))))))))))) -(define AutoSearch-Core-case--11701-4548 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (AutoSearch-Core-concreteDets arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-4) arg-3 arg-2)) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-10))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 e-5 arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((AutoSearch-Core-n--11701-4169-concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 e-6 0) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((AutoSearch-Core-concreteDets arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-4) arg-3 arg-2) eta-0))))))))))))))))))))) -(define AutoSearch-Core-case--11726-4458 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (cond ((equal? sc2 0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0))))))) -(define AutoSearch-Core-case--11726-4354 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (cond ((equal? sc2 0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 arg-15 arg-14 (vector 0 ) arg-5) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 arg-15 arg-14 (vector 0 ) arg-5) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 arg-15 arg-14 (vector 0 ) arg-5) eta-0))))))) -(define AutoSearch-Core-case--11725-4189 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (vector 1 arg-12 (AutoSearch-Core-n--11701-4168-drop arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-15) arg-14 arg-13))) (else (AutoSearch-Core-n--11701-4168-drop arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-15) arg-14 arg-13)))))) -(define AutoSearch-Core-case--11309-4073 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (AutoSearch-Core-anyOne arg-0 arg-14 arg-13 arg-12 arg-5 arg-6 arg-18)) (else (AutoSearch-Core-exactlyOne arg-0 arg-14 arg-13 arg-12 arg-5 arg-6 arg-3 arg-18)))))) -(define AutoSearch-Core-case--11354-3899 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-15 arg-18))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define AutoSearch-Core-case--11344-3858 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (AutoSearch-Core-case--11354-3899 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-1 _-0 (Context-Core-visibleInAny arg-16 arg-15 (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define AutoSearch-Core-case--11049-3662 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-isPairNF 'erased arg-13 arg-4 arg-19 arg-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((candidate (TT-Core-apply 'erased arg-11 (vector 1 arg-11 arg-18 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc2 eta-1)) (let ((e-4 (vector-ref sc2 4))) e-4))) arg-21)))) (let ((act-25 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Candidate ") arg-4 candidate eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-9 arg-8 e-5 arg-7 arg-6 arg-5 arg-4 eta-1)) (AutoSearch-Core-impLast 'erased arg-21)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 candidate)))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0))))))) -(define AutoSearch-Core-case--10789-3601 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-13 arg-12) (Unify-Core-inTerm)) arg-11) arg-4) arg-3) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 0 e-2 e-3))) ((AutoSearch-Core-case--11049-3662 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 e-2 e-3 _-0 e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))))))))))))) -(define AutoSearch-Core-case--10789-3396 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 2 e-0 e-1)))) ((6) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (vector 3 e-3 e-4))))(else (vector 1 )))))) -(define AutoSearch-Core-case--10274-3052 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-24 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-4 arg-17 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-4 arg-18 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((AutoSearch-Core-exactlyOne arg-0 arg-13 arg-12 arg-11 arg-4 arg-5 arg-16 (vector 1 (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-24 arg-17) eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((AutoSearch-Core-n--9713-2365-findPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-11 (vector 1 arg-11 (vector 1 ) arg-26) (vector 1 e-6 (vector 1 e-7 (vector 1 (arg-22 arg) (vector 0 )))))) e-8 arg-16) eta-1))))))) (vector 1 (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-24 arg-18) eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((AutoSearch-Core-n--9713-2365-findPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-11 (vector 1 arg-11 (vector 1 ) arg-27) (vector 1 e-6 (vector 1 e-7 (vector 1 (arg-22 arg) (vector 0 )))))) e-8 arg-16) eta-1))))))) (vector 0 )))) eta-0)))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0))))))) -(define AutoSearch-Core-case--9740-2884 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-25 eta-0))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-fstName arg-13 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) e-5) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Context-Core-sndName arg-13 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-isPairType arg-13 arg-19 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (let ((act-27 (Context-Core-clearDefs arg-24 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (Normalise-Core-quote_Quote__Closure arg-0 e-8 arg-4 arg-17 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (Normalise-Core-quote_Quote__Closure arg-0 e-8 arg-4 arg-18 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) ((AutoSearch-Core-exactlyOne arg-0 arg-13 arg-12 arg-11 arg-4 arg-5 arg-16 (vector 1 (lambda (eta-1) (let ((act-30 ((Normalise-Core-evalClosure arg-0 arg-24 arg-17) eta-1))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc8 1))) ((AutoSearch-Core-n--9713-2365-findPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-11 (vector 1 arg-11 (vector 1 ) e-5) (vector 1 e-9 (vector 1 e-10 (vector 1 (arg-22 arg) (vector 0 )))))) e-11 arg-16) eta-1))))))) (vector 1 (lambda (eta-1) (let ((act-30 ((Normalise-Core-evalClosure arg-0 arg-24 arg-18) eta-1))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc8 1))) ((AutoSearch-Core-n--9713-2365-findPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-11 (vector 1 arg-11 (vector 1 ) e-6) (vector 1 e-9 (vector 1 e-10 (vector 1 (arg-22 arg) (vector 0 )))))) e-11 arg-16) eta-1))))))) (vector 0 )))) eta-0))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0))))))))))))))))))))))))) -(define AutoSearch-Core-case--9928-2639 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (cond ((equal? sc0 0) (let ((candidate (TT-Core-apply 'erased arg-11 (arg-16 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc1 eta-0)) (let ((e-4 (vector-ref sc1 4))) e-4))) arg-19)))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Local var candidate ") arg-4 candidate eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((envC-39 (AutoSearch-Core-n--9713-2363-clearEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-1 arg-4))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-9 arg-8 1 arg-7 arg-6 arg-5 envC-39 eta-1)) (AutoSearch-Core-impLast 'erased arg-19)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 candidate))))))))))))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Can't use ") arg-4 arg-15 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0))))))))))) -(define AutoSearch-Core-case--9834-2577 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-usableLocal arg-0 arg-13 arg-11 arg-9 arg-4 arg-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (let ((candidate (TT-Core-apply 'erased arg-11 (arg-16 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc3 eta-1)) (let ((e-4 (vector-ref sc3 4))) e-4))) arg-19)))) (let ((act-25 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Local var candidate ") arg-4 candidate eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((envC-39 (AutoSearch-Core-n--9713-2363-clearEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-1 arg-4))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-9 arg-8 1 arg-7 arg-6 arg-5 envC-39 eta-1)) (AutoSearch-Core-impLast 'erased arg-19)) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 candidate)))))))))))) (else (let ((act-25 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Can't use ") arg-4 arg-15 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0)))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0))))))) -(define AutoSearch-Core-case--9739-2499 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Trying") arg-4 arg-15 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "For target") arg-4 arg-14 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-13 arg-12) (Unify-Core-inTerm)) arg-11) arg-4) arg-14) e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 0 e-2 e-3))) ((AutoSearch-Core-case--9834-2577 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 e-2 e-3 _-0 e-5 e-6 e-7 (let ((sc4 e-7)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))))))))))))))))))))))) -(define AutoSearch-Core-case--9394-2103 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (AutoSearch-Core-n--9328-2034-usableLocalArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-13) arg-12 arg-11)) (else (lambda (eta-0) (vector 1 1))))))) -(define AutoSearch-Core-case--9378-2050 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-3 e-5 arg-10) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((AutoSearch-Core-usableLocal arg-3 arg-9 arg-8 arg-7 arg-6 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) ((AutoSearch-Core-n--9328-2034-usableLocalArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-13) arg-12 arg-11) eta-0)) (else (vector 1 1)))))))))))))))) (else (AutoSearch-Core-n--9328-2034-usableLocalArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-13) arg-12 arg-11)))))) -(define AutoSearch-Core-case--9197-1890 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 1 (vector 0 (vector 0 arg-6 (vector 0 ) arg-8) (TT-Core-weakenNs_Weaken__Term arg-1 (List-Prelude-C-43C-43 'erased arg-4 (vector 1 arg-0 (vector 0 ))) (TT-Core-binderType 'erased arg-3))) arg-7))) -(define AutoSearch-Core-case--9150-1863 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (AutoSearch-Core-case--9197-1890 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (TT-Core-weakenVar 'erased 'erased arg-4 0 'erased))) (else arg-7))))) -(define AutoSearch-Core-case--8891-1680 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-6 e-11))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-25 (let ((act-25 (set-box! arg-7 e-10))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((act-26 (Context-Core-commit arg-7 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (vector 1 e-6)))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 arg-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--8891-1653-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) arg-9) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-5 arg-4 e-8 e-9) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 arg-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--8891-1653-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) arg-9) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-5 arg-4 e-8 e-9) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 arg-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--8891-1653-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) arg-9) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-5 arg-4 e-6 e-7) eta-0))))))))))))))))))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-5 (vector 0 ) arg-3) eta-0)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 arg-2 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--8891-1653-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) arg-9) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-5 arg-4 e-6 e-7) eta-0)))))))))))))))))))))) -(define AutoSearch-Core-case--8891-1599 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((29) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-8 eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-5 (vector 0 ) arg-3) eta-0))))))) -(define AutoSearch-Core-case--8785-1516 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((29) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-7 eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-4 (vector 0 ) arg-2) eta-0))))))) -(define AutoSearch-Core-case--8304-1150 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-9 (vector 0 ) arg-4) eta-0))))))) -(define AutoSearch-Core-case--8103-1040 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) arg-0 arg-11 arg-10) (Unify-Core-inTerm)) arg-9) arg-3) (let ((sc1 arg-2)) (let ((e-4 (vector-ref sc1 4))) e-4))) arg-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((ok 1)) ((AutoSearch-Core-case--8304-1150 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 ok e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))))))))))))) -(define AutoSearch-Core-case--8103-960 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Normalise-Core-normaliseScope (vector 0 ) arg-14 (vector 0 ) (let ((sc1 arg-15)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (else (lambda (eta-0) (vector 1 arg-4))))))) -(define AutoSearch-Core-case--8052-870 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-6)) (cond ((equal? sc1 0) ((Normalise-Core-normaliseScope (vector 0 ) arg-14 (vector 0 ) (let ((sc2 arg-15)) (let ((e-2 (vector-ref sc2 3))) e-2))) eta-0)) (else (vector 1 arg-4)))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-normaliseScope arg-0 arg-14 arg-3 (let ((sc2 arg-2)) (let ((e-6 (vector-ref sc2 5))) e-6))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((AutoSearch-Core-searchType arg-0 arg-11 arg-10 arg-9 arg-13 arg-8 arg-7 arg-1 arg-5 1 e-5 arg-3 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-logTermNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Solved arg") arg-3 e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Normalise-Core-logTermNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Arg meta") arg-3 (let ((sc4 arg-2)) (let ((e-4 (vector-ref sc4 4))) e-4)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Unify-Core-solveIfUndefined arg-0 arg-11 arg-10 arg-3 (let ((sc5 arg-2)) (let ((e-4 (vector-ref sc5 4))) e-4)) e-6) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (cond ((equal? sc6 0) (vector 1 (vector 0 ))) (else (let ((act-29 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) arg-0 arg-11 arg-10) (Unify-Core-inTerm)) arg-9) arg-3) (let ((sc7 arg-2)) (let ((e-4 (vector-ref sc7 4))) e-4))) e-6) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) (let ((ok 1)) ((AutoSearch-Core-case--8304-1150 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-0 e-1 e-5 e-6 e-7 e-8 ok e-10 (let ((sc8 e-10)) (let ((e-11 (vector-ref sc8 1))) e-11))) eta-0)))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define AutoSearch-Core-case--8004-835 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (AutoSearch-Core-case--8052-870 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-9 (vector 0 ) arg-4) eta-0))))))) -(define AutoSearch-Core-case--7963-761 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) 1)(else 0))))) -(define AutoSearch-Core-case--7789-684 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 (vector 0 arg-17 arg-16 arg-3 arg-18 arg-15) e-2) e-3)))))))) -(define AutoSearch-Core-case--7725-619 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Unify-Core-setInvertible arg-1 arg-10 (vector 9 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (((arg-5 arg-12) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-8 e-3)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((AutoSearch-Core-mkArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 1 (vector 0 e-2 arg-16 arg-3 e-3 arg-15) e-7) e-4)))))))))))))))))))) -(define AutoSearch-Core-n--11309-3846-visible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-17 arg-15) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((AutoSearch-Core-case--11354-3899 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-17 arg-16 arg-15 e-1 _-0 (Context-Core-visibleInAny arg-16 arg-17 (let ((sc2 e-1)) (let ((e-9 (vector-ref sc2 10))) e-9)))) ext-0)))) (else (vector 1 (vector 0 )))))))))))) -(define AutoSearch-Core-n--9328-2034-usableLocalArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (AutoSearch-Core-case--9378-2050 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-3 arg-11 arg-10 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-10 arg-11))))))))) -(define AutoSearch-Core-n--7569-4986-tryGroups (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-8 (vector-ref sc0 1))) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased e-8 eta-0)))(else (let ((sc1 arg-15)) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (lambda (eta-1) (let ((act-24 (Context-Core-logC arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-3) (Context-Core-getFullName arg-12 eta-3)) e-6) eta-2))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Search: Trying " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-7)) (Strings-Prelude-C-43C-43 " names " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-7))))))))))) eta-1))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-25 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "For target") arg-2 arg-14 eta-1))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else ((AutoSearch-Core-searchNames arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (vector 1 arg-1 arg-7) arg-6 arg-5 arg-3 arg-2 e-5 e-6 arg-14) eta-1)))))))))) (lambda (err) (AutoSearch-Core-case--12662-5087 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 e-6 e-2 arg-14 arg-13 err (AutoSearch-Core-n--7569-4985-ambig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 err))) eta-0))))))))))))) ((0) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-10 (vector 0 ) arg-3) eta-0)))(else (let ((sc1 arg-15)) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (lambda (eta-1) (let ((act-24 (Context-Core-logC arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-3) (Context-Core-getFullName arg-12 eta-3)) e-6) eta-2))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Search: Trying " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-7)) (Strings-Prelude-C-43C-43 " names " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-7))))))))))) eta-1))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-25 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "For target") arg-2 arg-14 eta-1))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else ((AutoSearch-Core-searchNames arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (vector 1 arg-1 arg-7) arg-6 arg-5 arg-3 arg-2 e-5 e-6 arg-14) eta-1)))))))))) (lambda (err) (AutoSearch-Core-case--12662-5087 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 e-6 e-2 arg-14 arg-13 err (AutoSearch-Core-n--7569-4985-ambig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 err))) eta-0))))))))))))(else (let ((sc0 arg-15)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (lambda (eta-1) (let ((act-24 (Context-Core-logC arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-3) (Context-Core-getFullName arg-12 eta-3)) e-6) eta-2))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Search: Trying " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-7)) (Strings-Prelude-C-43C-43 " names " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-7))))))))))) eta-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-25 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "For target") arg-2 arg-14 eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else ((AutoSearch-Core-searchNames arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (vector 1 arg-1 arg-7) arg-6 arg-5 arg-3 arg-2 e-5 e-6 arg-14) eta-1)))))))))) (lambda (err) (AutoSearch-Core-case--12662-5087 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 e-6 e-2 arg-14 arg-13 err (AutoSearch-Core-n--7569-4985-ambig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 err))) eta-0))))))))))))) -(define AutoSearch-Core-n--8891-1653-normRes (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (Normalise-Core-normaliseHoles arg-0 e-6 arg-4 e-2 eta-0))))))))) -(define AutoSearch-Core-n--7958-753-impl (lambda (arg-0 arg-1 arg-2 arg-3) (AutoSearch-Core-case--7963-761 'erased arg-1 'erased arg-3 (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 3))) e-3))))) -(define AutoSearch-Core-n--9713-2365-findPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-13 arg-12 (lambda (eta-1) (AutoSearch-Core-n--9713-2364-findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-1 arg-16 arg-17 arg-18 eta-1)) (lambda (e) (let ((nty (vector 3 e-1 e-2 e-3 e-4 (vector 1 e-7 (vector 1 e-10 (vector 0 )))))) (AutoSearch-Core-case--9740-2884 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-3 e-4 arg-18 e-7 e-10 e-2 e-1 nty arg-16 arg-15 arg-14 e (AutoSearch-Core-n--9713-2361-ambig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e)))) eta-0)))(else (lambda (eta-0) (AutoSearch-Core-n--9713-2364-findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0))))))))(else (lambda (eta-0) (AutoSearch-Core-n--9713-2364-findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0))))))))(else (lambda (eta-0) (AutoSearch-Core-n--9713-2364-findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0)))))))))))(else (lambda (eta-0) (AutoSearch-Core-n--9713-2364-findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0))))))) -(define AutoSearch-Core-n--9713-2364-findDirect (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 ext-0) (let ((act-24 ((AutoSearch-Core-mkArgs arg-0 arg-13 arg-12 arg-11 arg-10 arg-4 arg-17) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Trying") arg-4 arg-17 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "For target") arg-4 arg-18 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-13 arg-12) (Unify-Core-inTerm)) arg-11) arg-4) arg-18) e-3) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 0 e-2 e-3))) ((AutoSearch-Core-case--9834-2577 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-18 arg-17 arg-16 arg-15 arg-14 e-2 e-3 _-0 e-6 e-7 e-8 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) e-0))) ext-0))))))))))))))))))))))))))) -(define AutoSearch-Core-n--11701-4168-drop (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (AutoSearch-Core-case--11725-4189 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased e-2 e-3 arg-13 arg-12 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-12 arg-13))))))))) -(define AutoSearch-Core-n--11701-4169-concrete (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (((e-4 arg-11) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-6 (vector 10 e-1 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) ((AutoSearch-Core-n--11701-4169-concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 1) eta-0)))))))))) ((3) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-10 e-6 1 e-7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((argsC-39 (AutoSearch-Core-n--11701-4168-drop arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) e-10))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (parg) (lambda (eta-1) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-11 parg) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc2 1))) ((AutoSearch-Core-n--11701-4169-concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-11 1) eta-1)))))))) argsC-39) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (let ((e-16 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (parg) (lambda (eta-1) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-11 parg) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((AutoSearch-Core-n--11701-4169-concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 1) eta-1)))))))) e-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) ((1) (let ((e-19 (vector-ref sc0 2))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((2) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((sc2 arg-13)) (cond ((equal? sc2 0) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-22 (let ((sc3 arg-11)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((7) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (cond ((equal? sc6 0) (vector 1 (vector 0 )))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 e-22 e-23 (vector 0 ) arg-5) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 e-22 e-23 (vector 0 ) arg-5) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 e-22 e-23 (vector 0 ) arg-5) eta-0))))))))))) ((equal? sc2 1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-22 (let ((sc3 arg-11)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((7) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (cond ((equal? sc6 0) (vector 1 (vector 0 )))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define AutoSearch-Core-n--9713-2362-clearEnvType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (let ((sc1 arg-19)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (vector 1 (vector 0 (TT-Core-multiplicity 'erased e-4) (vector 1 ) (vector 10 arg-18 1)) e-5)))))(else (let ((e-0 (- arg-16 1))) (let ((sc0 arg-19)) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (vector 1 e-9 (AutoSearch-Core-n--9713-2362-clearEnvType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased 'erased e-0 'erased arg-18 e-10))))))))))) -(define AutoSearch-Core-n--9713-2363-clearEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 3))) (AutoSearch-Core-n--9713-2362-clearEnvType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased 'erased e-4 'erased e-2 arg-15))))(else arg-15))))) -(define AutoSearch-Core-n--9713-2361-ambig (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((19) 0)(else 1))))) -(define AutoSearch-Core-n--7569-4985-ambig (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((19) 0)(else 1))))) -(define AutoSearch-Core-usableLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-25 (vector-ref sc1 1))) (let ((sc2 e-25)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure arg-0 e-5 eta-1)) e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-usableLocal arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-6) eta-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Extra-Bool-Data-allTrue e-6))))))))))))))(else (lambda (eta-0) (vector 1 0)))))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-1 arg-2 (Prelude-not arg-3) e-6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc1 1))) ((AutoSearch-Core-n--9328-2034-usableLocalArg e-5 e-7 e-8 arg-0 e-9 e-6 arg-4 arg-3 arg-2 arg-1 0 (let ((sc2 e-10)) (let ((e-0 (vector-ref sc2 1))) e-0)) e-9) eta-0))))))))))))) ((2) (let ((e-15 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure arg-0 e-5 eta-1)) e-15) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-usableLocal arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Extra-Bool-Data-allTrue e-6))))))))))))))) ((0) (let ((e-17 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 3))) (let ((e-20 (vector-ref sc0 4))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-20 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 (vector 10 e-17 1))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((AutoSearch-Core-usableLocal arg-0 arg-1 arg-2 arg-3 arg-4 e-6) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 0))))))))) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0))))))) +(define AutoSearch-Core-case--13111-5464 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-25 eta-0))) (else (AutoSearch-Core-n--7614-5018-tryGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (vector 0 ) arg-21 (let ((sc1 arg-23)) (let ((e-1 (vector-ref sc1 2))) e-1)))))))) +(define AutoSearch-Core-case--13020-5350 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (cond ((equal? sc0 0) (AutoSearch-Core-n--7614-5018-tryGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (vector 0 ) arg-21 (let ((sc1 arg-23)) (let ((e-1 (vector-ref sc1 2))) e-1)))) (else (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (AutoSearch-Core-searchLocal arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-15 arg-6 arg-5 arg-3 arg-2 arg-21) (lambda (e) (AutoSearch-Core-case--13111-5464 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 e (AutoSearch-Core-n--7614-5017-ambig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e))) eta-0))))))) +(define AutoSearch-Core-case--12958-5276 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target") arg-2 arg-21 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-getSearchData arg-12 arg-10 arg-8 arg-19 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 arg-4)) (cond ((equal? sc3 0) ((AutoSearch-Core-checkConcreteDets arg-0 arg-12 arg-11 arg-10 arg-8 arg-2 arg-3 (vector 3 arg-20 arg-19 arg-18 arg-17 arg-16)) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((AutoSearch-Core-case--13020-5350 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 e-5 e-6 e-7 (Prelude-C-38C-38 arg-8 (lambda () arg-4))) eta-0)))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-10 (vector 0 ) arg-3) eta-0))))))) +(define AutoSearch-Core-case--7614-5235 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((nty (vector 3 e-1 e-2 e-3 e-4 e-5))) (AutoSearch-Core-case--12958-5276 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-5 e-4 e-3 e-2 e-1 nty (Prelude-C-61C-61_Eq__Nat e-4 (List-Data-length 'erased e-5))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target: ") arg-2 arg-16 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else ((AutoSearch-Core-searchLocal arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-15 arg-6 arg-5 arg-3 arg-2 arg-16) eta-0))))))))))) +(define AutoSearch-Core-case--12731-5119 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-18 eta-0))) (else (AutoSearch-Core-n--7614-5018-tryGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (vector 1 (Maybe-Data-fromMaybe 'erased (lambda () arg-18) arg-17)) arg-16 arg-15)))))) +(define AutoSearch-Core-case--12568-4918 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Cycle in search") eta-0))) (else (AutoSearch-Core-abandonIfCycle arg-0 arg-5 arg-4 arg-3 arg-2)))))) +(define AutoSearch-Core-case--12348-4717 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-12 e-1) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-12 e-4) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-7) eta-0)))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0)) arg-1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) arg-1) eta-0)))))))))))) +(define AutoSearch-Core-case--12314-4687 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-12 e-1) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-12 e-4) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-6) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-7) eta-0)))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) e-0)) arg-1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) arg-1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-1) eta-0))))))))))) (else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Context-Core-toFullNames 'erased arg-11 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) arg-4 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Determining arguments for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))))))) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) arg-1) eta-0)))))))))))))))) +(define AutoSearch-Core-case--11746-4580 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (AutoSearch-Core-concreteDets arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-4) arg-3 arg-2)) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-10))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 e-5 arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((AutoSearch-Core-n--11746-4177-concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 e-6 0) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((AutoSearch-Core-concreteDets arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-4) arg-3 arg-2) eta-0))))))))))))))))))))) +(define AutoSearch-Core-case--11771-4478 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((sc2 (Prelude-not (let ((sc3 e-3)) (let ((e-0 (vector-ref sc3 1))) e-0))))) (cond ((equal? sc2 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0))))))) +(define AutoSearch-Core-case--11771-4362 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((sc2 (Prelude-not (let ((sc3 e-3)) (let ((e-0 (vector-ref sc3 1))) e-0))))) (cond ((equal? sc2 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 arg-15 arg-14 (vector 0 ) arg-5) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 arg-15 arg-14 (vector 0 ) arg-5) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 arg-15 arg-14 (vector 0 ) arg-5) eta-0))))))) +(define AutoSearch-Core-case--11770-4197 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (vector 1 arg-12 (AutoSearch-Core-n--11746-4176-drop arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-15) arg-14 arg-13))) (else (AutoSearch-Core-n--11746-4176-drop arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-15) arg-14 arg-13)))))) +(define AutoSearch-Core-case--11354-4081 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (AutoSearch-Core-anyOne arg-0 arg-14 arg-13 arg-12 arg-5 arg-6 arg-18)) (else (AutoSearch-Core-exactlyOne arg-0 arg-14 arg-13 arg-12 arg-5 arg-6 arg-3 arg-18)))))) +(define AutoSearch-Core-case--11399-3907 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-15 arg-18))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define AutoSearch-Core-case--11389-3866 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (AutoSearch-Core-case--11399-3907 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-1 _-0 (Context-Core-visibleInAny arg-16 arg-15 (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define AutoSearch-Core-case--11094-3670 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-isPairNF 'erased arg-13 arg-4 arg-19 arg-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((candidate (TT-Core-apply 'erased arg-11 (vector 1 arg-11 arg-18 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc2 eta-1)) (let ((e-4 (vector-ref sc2 4))) e-4))) arg-21)))) (let ((act-25 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Candidate ") arg-4 candidate eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-9 arg-8 e-5 arg-7 arg-6 arg-5 arg-4 eta-1)) (AutoSearch-Core-impLast 'erased arg-21)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 candidate)))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0))))))) +(define AutoSearch-Core-case--10834-3609 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-13 arg-12) (Unify-Core-inTerm)) arg-11) arg-4) arg-3) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 0 e-2 e-3))) ((AutoSearch-Core-case--11094-3670 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 e-2 e-3 _-0 e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))))))))))))) +(define AutoSearch-Core-case--10834-3404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 2 e-0 e-1)))) ((6) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (vector 3 e-3 e-4))))(else (vector 1 )))))) +(define AutoSearch-Core-case--10319-3060 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-24 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-4 arg-17 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-4 arg-18 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((AutoSearch-Core-exactlyOne arg-0 arg-13 arg-12 arg-11 arg-4 arg-5 arg-16 (vector 1 (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-24 arg-17) eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((AutoSearch-Core-n--9758-2373-findPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-11 (vector 1 arg-11 (vector 1 ) arg-26) (vector 1 e-6 (vector 1 e-7 (vector 1 (arg-22 arg) (vector 0 )))))) e-8 arg-16) eta-1))))))) (vector 1 (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-24 arg-18) eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((AutoSearch-Core-n--9758-2373-findPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-11 (vector 1 arg-11 (vector 1 ) arg-27) (vector 1 e-6 (vector 1 e-7 (vector 1 (arg-22 arg) (vector 0 )))))) e-8 arg-16) eta-1))))))) (vector 0 )))) eta-0)))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0))))))) +(define AutoSearch-Core-case--9785-2892 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-25 eta-0))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-fstName arg-13 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) e-5) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Context-Core-sndName arg-13 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-isPairType arg-13 arg-19 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (let ((act-27 (Context-Core-clearDefs arg-24 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (Normalise-Core-quote_Quote__Closure arg-0 e-8 arg-4 arg-17 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (Normalise-Core-quote_Quote__Closure arg-0 e-8 arg-4 arg-18 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) ((AutoSearch-Core-exactlyOne arg-0 arg-13 arg-12 arg-11 arg-4 arg-5 arg-16 (vector 1 (lambda (eta-1) (let ((act-30 ((Normalise-Core-evalClosure arg-0 arg-24 arg-17) eta-1))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc8 1))) ((AutoSearch-Core-n--9758-2373-findPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-11 (vector 1 arg-11 (vector 1 ) e-5) (vector 1 e-9 (vector 1 e-10 (vector 1 (arg-22 arg) (vector 0 )))))) e-11 arg-16) eta-1))))))) (vector 1 (lambda (eta-1) (let ((act-30 ((Normalise-Core-evalClosure arg-0 arg-24 arg-18) eta-1))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc8 1))) ((AutoSearch-Core-n--9758-2373-findPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-11 (vector 1 arg-11 (vector 1 ) e-6) (vector 1 e-9 (vector 1 e-10 (vector 1 (arg-22 arg) (vector 0 )))))) e-11 arg-16) eta-1))))))) (vector 0 )))) eta-0))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0))))))))))))))))))))))))) +(define AutoSearch-Core-case--9973-2647 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (cond ((equal? sc0 0) (let ((candidate (TT-Core-apply 'erased arg-11 (arg-16 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc1 eta-0)) (let ((e-4 (vector-ref sc1 4))) e-4))) arg-19)))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Local var candidate ") arg-4 candidate eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((envC-39 (AutoSearch-Core-n--9758-2371-clearEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-1 arg-4))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-9 arg-8 1 arg-7 arg-6 arg-5 envC-39 eta-1)) (AutoSearch-Core-impLast 'erased arg-19)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 candidate))))))))))))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Can't use ") arg-4 arg-15 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0))))))))))) +(define AutoSearch-Core-case--9879-2585 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-usableLocal arg-0 arg-13 arg-11 arg-9 arg-4 arg-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (let ((candidate (TT-Core-apply 'erased arg-11 (arg-16 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc3 eta-1)) (let ((e-4 (vector-ref sc3 4))) e-4))) arg-19)))) (let ((act-25 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Local var candidate ") arg-4 candidate eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((envC-39 (AutoSearch-Core-n--9758-2371-clearEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-1 arg-4))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-9 arg-8 1 arg-7 arg-6 arg-5 envC-39 eta-1)) (AutoSearch-Core-impLast 'erased arg-19)) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 candidate)))))))))))) (else (let ((act-25 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Can't use ") arg-4 arg-15 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0)))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0))))))) +(define AutoSearch-Core-case--9784-2507 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Trying") arg-4 arg-15 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "For target") arg-4 arg-14 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-13 arg-12) (Unify-Core-inTerm)) arg-11) arg-4) arg-14) e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 0 e-2 e-3))) ((AutoSearch-Core-case--9879-2585 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 e-2 e-3 _-0 e-5 e-6 e-7 (let ((sc4 e-7)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))))))))))))))))))))))) +(define AutoSearch-Core-case--9439-2111 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (AutoSearch-Core-n--9373-2042-usableLocalArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-13) arg-12 arg-11)) (else (lambda (eta-0) (vector 1 1))))))) +(define AutoSearch-Core-case--9423-2058 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-3 e-5 arg-10) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((AutoSearch-Core-usableLocal arg-3 arg-9 arg-8 arg-7 arg-6 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) ((AutoSearch-Core-n--9373-2042-usableLocalArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-13) arg-12 arg-11) eta-0)) (else (vector 1 1)))))))))))))))) (else (AutoSearch-Core-n--9373-2042-usableLocalArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-13) arg-12 arg-11)))))) +(define AutoSearch-Core-case--9242-1898 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 1 (vector 0 (vector 0 arg-6 (vector 0 ) arg-8) (TT-Core-weakenNs_Weaken__Term arg-1 (List-Prelude-C-43C-43 'erased arg-4 (vector 1 arg-0 (vector 0 ))) (TT-Core-binderType 'erased arg-3))) arg-7))) +(define AutoSearch-Core-case--9195-1871 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (AutoSearch-Core-case--9242-1898 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (TT-Core-weakenVar 'erased 'erased arg-4 0 'erased))) (else arg-7))))) +(define AutoSearch-Core-case--8936-1688 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-6 e-11))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-25 (let ((act-25 (set-box! arg-7 e-10))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((act-26 (Context-Core-commit arg-7 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (vector 1 e-6)))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 arg-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--8936-1661-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) arg-9) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-5 arg-4 e-8 e-9) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 arg-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--8936-1661-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) arg-9) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-5 arg-4 e-8 e-9) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 arg-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--8936-1661-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) arg-9) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-5 arg-4 e-6 e-7) eta-0))))))))))))))))))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-5 (vector 0 ) arg-3) eta-0)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 arg-2 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--8936-1661-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) arg-9) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-5 arg-4 e-6 e-7) eta-0)))))))))))))))))))))) +(define AutoSearch-Core-case--8936-1607 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((29) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-8 eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-5 (vector 0 ) arg-3) eta-0))))))) +(define AutoSearch-Core-case--8830-1524 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((29) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-7 eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-4 (vector 0 ) arg-2) eta-0))))))) +(define AutoSearch-Core-case--8349-1158 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-9 (vector 0 ) arg-4) eta-0))))))) +(define AutoSearch-Core-case--8148-1048 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-1))))))))))) arg-0 arg-11 arg-10) (Unify-Core-inTerm)) arg-9) arg-3) (let ((sc1 arg-2)) (let ((e-4 (vector-ref sc1 4))) e-4))) arg-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((ok 1)) ((AutoSearch-Core-case--8349-1158 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 ok e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))))))))))))) +(define AutoSearch-Core-case--8148-968 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Normalise-Core-normaliseScope (vector 0 ) arg-14 (vector 0 ) (let ((sc1 arg-15)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (else (lambda (eta-0) (vector 1 arg-4))))))) +(define AutoSearch-Core-case--8097-878 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-6)) (cond ((equal? sc1 0) ((Normalise-Core-normaliseScope (vector 0 ) arg-14 (vector 0 ) (let ((sc2 arg-15)) (let ((e-2 (vector-ref sc2 3))) e-2))) eta-0)) (else (vector 1 arg-4)))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-normaliseScope arg-0 arg-14 arg-3 (let ((sc2 arg-2)) (let ((e-6 (vector-ref sc2 5))) e-6))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((AutoSearch-Core-searchType arg-0 arg-11 arg-10 arg-9 arg-13 arg-8 arg-7 arg-1 arg-5 1 e-5 arg-3 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-logTermNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Solved arg") arg-3 e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Normalise-Core-logTermNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Arg meta") arg-3 (let ((sc4 arg-2)) (let ((e-4 (vector-ref sc4 4))) e-4)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Unify-Core-solveIfUndefined arg-0 arg-11 arg-10 arg-3 (let ((sc5 arg-2)) (let ((e-4 (vector-ref sc5 4))) e-4)) e-6) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (cond ((equal? sc6 0) (vector 1 (vector 0 ))) (else (let ((act-29 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-1))))))))))) arg-0 arg-11 arg-10) (Unify-Core-inTerm)) arg-9) arg-3) (let ((sc7 arg-2)) (let ((e-4 (vector-ref sc7 4))) e-4))) e-6) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) (let ((ok 1)) ((AutoSearch-Core-case--8349-1158 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-0 e-1 e-5 e-6 e-7 e-8 ok e-10 (let ((sc8 e-10)) (let ((e-11 (vector-ref sc8 1))) e-11))) eta-0)))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define AutoSearch-Core-case--8049-843 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (AutoSearch-Core-case--8097-878 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-9 (vector 0 ) arg-4) eta-0))))))) +(define AutoSearch-Core-case--8008-769 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) 1)(else 0))))) +(define AutoSearch-Core-case--7834-692 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 (vector 0 arg-17 arg-16 arg-3 arg-18 arg-15) e-2) e-3)))))))) +(define AutoSearch-Core-case--7770-627 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Unify-Core-setInvertible arg-1 arg-10 (vector 9 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (((arg-5 arg-12) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-8 e-3)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((AutoSearch-Core-mkArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 1 (vector 0 e-2 arg-16 arg-3 e-3 arg-15) e-7) e-4)))))))))))))))))))) +(define AutoSearch-Core-n--11354-3854-visible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-17 arg-15) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((AutoSearch-Core-case--11399-3907 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-17 arg-16 arg-15 e-1 _-0 (Context-Core-visibleInAny arg-16 arg-17 (let ((sc2 e-1)) (let ((e-9 (vector-ref sc2 10))) e-9)))) ext-0)))) (else (vector 1 (vector 0 )))))))))))) +(define AutoSearch-Core-n--9373-2042-usableLocalArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (AutoSearch-Core-case--9423-2058 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-3 arg-11 arg-10 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-10 arg-11))))))))) +(define AutoSearch-Core-n--7614-5018-tryGroups (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-8 (vector-ref sc0 1))) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased e-8 eta-0)))(else (let ((sc1 arg-15)) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (lambda (eta-1) (let ((act-24 (Context-Core-logC arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-3) (Context-Core-getFullName arg-12 eta-3)) e-6) eta-2))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Search: Trying " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-7)) (Strings-Prelude-C-43C-43 " names " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-7))))))))))) eta-1))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-25 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "For target") arg-2 arg-14 eta-1))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else ((AutoSearch-Core-searchNames arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (vector 1 arg-1 arg-7) arg-6 arg-5 arg-3 arg-2 e-5 e-6 arg-14) eta-1)))))))))) (lambda (err) (AutoSearch-Core-case--12731-5119 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 e-6 e-2 arg-14 arg-13 err (AutoSearch-Core-n--7614-5017-ambig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 err))) eta-0))))))))))))) ((0) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-10 (vector 0 ) arg-3) eta-0)))(else (let ((sc1 arg-15)) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (lambda (eta-1) (let ((act-24 (Context-Core-logC arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-3) (Context-Core-getFullName arg-12 eta-3)) e-6) eta-2))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Search: Trying " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-7)) (Strings-Prelude-C-43C-43 " names " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-7))))))))))) eta-1))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-25 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "For target") arg-2 arg-14 eta-1))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else ((AutoSearch-Core-searchNames arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (vector 1 arg-1 arg-7) arg-6 arg-5 arg-3 arg-2 e-5 e-6 arg-14) eta-1)))))))))) (lambda (err) (AutoSearch-Core-case--12731-5119 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 e-6 e-2 arg-14 arg-13 err (AutoSearch-Core-n--7614-5017-ambig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 err))) eta-0))))))))))))(else (let ((sc0 arg-15)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (lambda (eta-1) (let ((act-24 (Context-Core-logC arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-3) (Context-Core-getFullName arg-12 eta-3)) e-6) eta-2))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Search: Trying " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-7)) (Strings-Prelude-C-43C-43 " names " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-7))))))))))) eta-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-25 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "For target") arg-2 arg-14 eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else ((AutoSearch-Core-searchNames arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (vector 1 arg-1 arg-7) arg-6 arg-5 arg-3 arg-2 e-5 e-6 arg-14) eta-1)))))))))) (lambda (err) (AutoSearch-Core-case--12731-5119 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 e-6 e-2 arg-14 arg-13 err (AutoSearch-Core-n--7614-5017-ambig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 err))) eta-0))))))))))))) +(define AutoSearch-Core-n--8936-1661-normRes (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (Normalise-Core-normaliseHoles arg-0 e-6 arg-4 e-2 eta-0))))))))) +(define AutoSearch-Core-n--8003-761-impl (lambda (arg-0 arg-1 arg-2 arg-3) (AutoSearch-Core-case--8008-769 'erased arg-1 'erased arg-3 (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 3))) e-3))))) +(define AutoSearch-Core-n--9758-2373-findPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-13 arg-12 (lambda (eta-1) (AutoSearch-Core-n--9758-2372-findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-1 arg-16 arg-17 arg-18 eta-1)) (lambda (e) (let ((nty (vector 3 e-1 e-2 e-3 e-4 (vector 1 e-7 (vector 1 e-10 (vector 0 )))))) (AutoSearch-Core-case--9785-2892 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-3 e-4 arg-18 e-7 e-10 e-2 e-1 nty arg-16 arg-15 arg-14 e (AutoSearch-Core-n--9758-2369-ambig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e)))) eta-0)))(else (lambda (eta-0) (AutoSearch-Core-n--9758-2372-findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0))))))))(else (lambda (eta-0) (AutoSearch-Core-n--9758-2372-findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0))))))))(else (lambda (eta-0) (AutoSearch-Core-n--9758-2372-findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0)))))))))))(else (lambda (eta-0) (AutoSearch-Core-n--9758-2372-findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0))))))) +(define AutoSearch-Core-n--9758-2372-findDirect (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 ext-0) (let ((act-24 ((AutoSearch-Core-mkArgs arg-0 arg-13 arg-12 arg-11 arg-10 arg-4 arg-17) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Trying") arg-4 arg-17 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "For target") arg-4 arg-18 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-13 arg-12) (Unify-Core-inTerm)) arg-11) arg-4) arg-18) e-3) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 0 e-2 e-3))) ((AutoSearch-Core-case--9879-2585 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-18 arg-17 arg-16 arg-15 arg-14 e-2 e-3 _-0 e-6 e-7 e-8 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) e-0))) ext-0))))))))))))))))))))))))))) +(define AutoSearch-Core-n--11746-4176-drop (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (AutoSearch-Core-case--11770-4197 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased e-2 e-3 arg-13 arg-12 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-12 arg-13))))))))) +(define AutoSearch-Core-n--11746-4177-concrete (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (((e-4 arg-11) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-6 (vector 10 e-1 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) ((AutoSearch-Core-n--11746-4177-concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 1) eta-0)))))))))) ((3) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-10 e-6 1 e-7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((argsC-39 (AutoSearch-Core-n--11746-4176-drop arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) e-10))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (parg) (lambda (eta-1) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-11 parg) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc2 1))) ((AutoSearch-Core-n--11746-4177-concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-11 1) eta-1)))))))) argsC-39) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (let ((e-16 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (parg) (lambda (eta-1) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-11 parg) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((AutoSearch-Core-n--11746-4177-concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 1) eta-1)))))))) e-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) ((1) (let ((e-19 (vector-ref sc0 2))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((2) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((sc2 arg-13)) (cond ((equal? sc2 0) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-22 (let ((sc3 arg-11)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((7) (let ((e-3 (vector-ref sc5 2))) (let ((act-25 (let ((sc6 (Prelude-not (let ((sc7 e-3)) (let ((e-0 (vector-ref sc7 1))) e-0))))) (cond ((equal? sc6 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 e-22 e-23 (vector 0 ) arg-5) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 (vector 0 ))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 e-22 e-23 (vector 0 ) arg-5) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 e-22 e-23 (vector 0 ) arg-5) eta-0))))))))))) ((equal? sc2 1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-22 (let ((sc3 arg-11)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((7) (let ((e-3 (vector-ref sc5 2))) (let ((act-25 (let ((sc6 (Prelude-not (let ((sc7 e-3)) (let ((e-0 (vector-ref sc7 1))) e-0))))) (cond ((equal? sc6 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 (vector 0 ))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define AutoSearch-Core-n--9758-2370-clearEnvType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (let ((sc1 arg-19)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (vector 1 (vector 0 (TT-Core-multiplicity 'erased e-4) (vector 1 ) (vector 10 arg-18 1)) e-5)))))(else (let ((e-0 (- arg-16 1))) (let ((sc0 arg-19)) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (vector 1 e-9 (AutoSearch-Core-n--9758-2370-clearEnvType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased 'erased e-0 'erased arg-18 e-10))))))))))) +(define AutoSearch-Core-n--9758-2371-clearEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 3))) (AutoSearch-Core-n--9758-2370-clearEnvType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased 'erased e-4 'erased e-2 arg-15))))(else arg-15))))) +(define AutoSearch-Core-n--9758-2369-ambig (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((19) 0)(else 1))))) +(define AutoSearch-Core-n--7614-5017-ambig (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((19) 0)(else 1))))) +(define AutoSearch-Core-usableLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-25 (vector-ref sc1 1))) (let ((sc2 e-25)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure arg-0 e-5 eta-1)) e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-usableLocal arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-6) eta-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Extra-Bool-Data-allTrue e-6))))))))))))))(else (lambda (eta-0) (vector 1 0)))))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-1 arg-2 (Prelude-not arg-3) e-6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc1 1))) ((AutoSearch-Core-n--9373-2042-usableLocalArg e-5 e-7 e-8 arg-0 e-9 e-6 arg-4 arg-3 arg-2 arg-1 0 (let ((sc2 e-10)) (let ((e-0 (vector-ref sc2 1))) e-0)) e-9) eta-0))))))))))))) ((2) (let ((e-15 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure arg-0 e-5 eta-1)) e-15) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-usableLocal arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Extra-Bool-Data-allTrue e-6))))))))))))))) ((0) (let ((e-17 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 3))) (let ((e-20 (vector-ref sc0 4))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-20 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 (vector 10 e-17 1))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((AutoSearch-Core-usableLocal arg-0 arg-1 arg-2 arg-3 arg-4 e-6) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 0))))))))) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0))))))) (define AutoSearch-Core-successful (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-branch arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-26 (e-2 eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (unbox arg-2))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (unbox arg-1))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (let ((act-29 (set-box! arg-2 e-5))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (set-box! arg-1 e-6))) (vector 1 act-30)))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 ((AutoSearch-Core-successful arg-0 arg-1 arg-2 e-3) eta-1))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 1 (vector 0 e-7 (vector 0 e-9 e-8))) e-12))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-26 (let ((act-26 (set-box! arg-2 e-5))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-27 (let ((act-27 (set-box! arg-1 e-6))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-28 ((AutoSearch-Core-successful arg-0 arg-1 arg-2 e-3) eta-1))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 0 err) e-9))))))))))))))))) eta-0))))))))))))))))))) -(define AutoSearch-Core-searchType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-searchType (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-7 arg-8 arg-9 arg-10 (vector 1 (vector 2 e-6 e-7 e-8) arg-11) e-4) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 3 e-1 e-2 (vector 0 e-6 e-7 e-8) e-5)))))))))))) ((1) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-searchType (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-7 arg-8 arg-9 arg-10 (vector 1 (vector 1 e-10 e-11 e-12) arg-11) e-4) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 3 e-1 e-2 (vector 1 e-10 e-11 e-12) e-5))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((AutoSearch-Core-abandonIfCycle arg-0 arg-1 arg-11 arg-12 arg-6) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((tryingC-39 (vector 1 arg-12 arg-6))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-11 arg-12) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((3) (let ((e-12 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((e-10 (vector-ref sc4 3))) (let ((e-9 (vector-ref sc4 4))) (let ((e-8 (vector-ref sc4 5))) (let ((nty (vector 3 e-12 e-11 e-10 e-9 e-8))) ((AutoSearch-Core-case--12889-5244 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 tryingC-39 e-8 e-9 e-10 e-11 e-12 nty (Prelude-C-61C-61_Eq__Nat e-9 (List-Data-length 'erased e-8))) eta-0))))))))(else (let ((act-27 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target: ") arg-11 e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else ((AutoSearch-Core-searchLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 tryingC-39 arg-7 arg-8 arg-10 arg-11 e-7) eta-0)))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((AutoSearch-Core-abandonIfCycle arg-0 arg-1 arg-11 arg-12 arg-6) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((tryingC-39 (vector 1 arg-12 arg-6))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-11 arg-12) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((e-8 (vector-ref sc3 5))) (let ((nty (vector 3 e-1 e-2 e-3 e-4 e-8))) ((AutoSearch-Core-case--12889-5244 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 tryingC-39 e-8 e-4 e-3 e-2 e-1 nty (Prelude-C-61C-61_Eq__Nat e-4 (List-Data-length 'erased e-8))) eta-0))))))))(else (let ((act-27 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target: ") arg-11 e-7 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((AutoSearch-Core-searchLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 tryingC-39 arg-7 arg-8 arg-10 arg-11 e-7) eta-0)))))))))))))))))))))))))))))) -(define AutoSearch-Core-searchNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (AutoSearch-Core-n--11309-3846-visible arg-0 e-2 e-3 arg-13 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (vector 1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 3))) e-28)) (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 4))) e-27))) eta-1 eta-2))) (vector 1 e-2 e-3)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((visns (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-6))) (let ((elabs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (AutoSearch-Core-searchName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 eta-1)) visns))) (let ((sc3 arg-11)) (cond ((equal? sc3 0) ((AutoSearch-Core-anyOne arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 elabs) eta-0)) (else ((AutoSearch-Core-exactlyOne arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 arg-13 elabs) eta-0)))))))))))))))))))))))) -(define AutoSearch-Core-searchName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Context-Core-getNS arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-getNestedNS arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 (Prelude-not (Context-Core-visibleInAny (vector 1 e-6 e-7) (let ((sc5 e-3)) (let ((e-1 (vector-ref sc5 2))) e-1)) (let ((sc5 e-3)) (let ((e-9 (vector-ref sc5 10))) e-9)))))) (cond ((equal? sc4 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0)) (else (vector 1 (vector 0 ))))))))))))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__DefFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__DefFlag arg-430 arg-431)))) (vector 5 ) (let ((sc4 e-3)) (let ((e-11 (vector-ref sc4 12))) e-11))))) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((ty (let ((sc4 e-3)) (let ((e-25 (vector-ref sc4 3))) e-25)))) (let ((namety (AutoSearch-Core-case--10789-3396 arg-0 e-2 e-3 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 ty (let ((sc4 e-3)) (let ((e-17 (vector-ref sc4 18))) e-17))))) (let ((act-27 ((Normalise-Core-nf arg-0 e-5 arg-10 (TT-Core-embed 'erased 'erased ty)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Searching Name " (Name-Core-show_Show__Name e-2))) arg-10 e-8 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((AutoSearch-Core-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 e-8) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (let ((e-11 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((act-30 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) (Unify-Core-inTerm)) arg-3) arg-10) arg-11) e-4) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (let ((_-0 (vector 0 e-11 e-4))) ((AutoSearch-Core-case--11049-3662 arg-0 e-2 e-3 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 ty namety e-8 e-9 e-11 e-4 _-0 e-12 (let ((sc9 e-12)) (let ((e-0 (vector-ref sc9 1))) e-0))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))) -(define AutoSearch-Core-searchLocalWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf arg-0 e-5 arg-10 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((AutoSearch-Core-n--9713-2365-findPos arg-0 e-2 e-3 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-2 (lambda (eta-1) eta-1) e-6 arg-12) eta-0))))))))))))))))) +(define AutoSearch-Core-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--12958-5276 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 tryingC-39 e-8 e-9 e-10 e-11 e-12 nty (Prelude-C-61C-61_Eq__Nat e-9 (List-Data-length 'erased e-8))) eta-0))))))))(else (let ((act-27 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target: ") arg-11 e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else ((AutoSearch-Core-searchLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 tryingC-39 arg-7 arg-8 arg-10 arg-11 e-7) eta-0)))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((AutoSearch-Core-abandonIfCycle arg-0 arg-1 arg-11 arg-12 arg-6) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((tryingC-39 (vector 1 arg-12 arg-6))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-11 arg-12) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((e-8 (vector-ref sc3 5))) (let ((nty (vector 3 e-1 e-2 e-3 e-4 e-8))) ((AutoSearch-Core-case--12958-5276 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 tryingC-39 e-8 e-4 e-3 e-2 e-1 nty (Prelude-C-61C-61_Eq__Nat e-4 (List-Data-length 'erased e-8))) eta-0))))))))(else (let ((act-27 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target: ") arg-11 e-7 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((AutoSearch-Core-searchLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 tryingC-39 arg-7 arg-8 arg-10 arg-11 e-7) eta-0)))))))))))))))))))))))))))))) +(define AutoSearch-Core-searchNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (AutoSearch-Core-n--11354-3854-visible arg-0 e-2 e-3 arg-13 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (vector 1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 3))) e-28)) (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 4))) e-27))) eta-1 eta-2))) (vector 1 e-2 e-3)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((visns (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-6))) (let ((elabs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (AutoSearch-Core-searchName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 eta-1)) visns))) (let ((sc3 arg-11)) (cond ((equal? sc3 0) ((AutoSearch-Core-anyOne arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 elabs) eta-0)) (else ((AutoSearch-Core-exactlyOne arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 arg-13 elabs) eta-0)))))))))))))))))))))))) +(define AutoSearch-Core-searchName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Context-Core-getNS arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-getNestedNS arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 (Prelude-not (Context-Core-visibleInAny (vector 1 e-6 e-7) (let ((sc5 e-3)) (let ((e-1 (vector-ref sc5 2))) e-1)) (let ((sc5 e-3)) (let ((e-9 (vector-ref sc5 10))) e-9)))))) (cond ((equal? sc4 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0)) (else (vector 1 (vector 0 ))))))))))))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Context-Core-C-61C-61_Eq__DefFlag arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Context-Core-C-47C-61_Eq__DefFlag arg-438 arg-439)))) (vector 5 ) (let ((sc4 e-3)) (let ((e-11 (vector-ref sc4 12))) e-11))))) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((ty (let ((sc4 e-3)) (let ((e-25 (vector-ref sc4 3))) e-25)))) (let ((namety (AutoSearch-Core-case--10834-3404 arg-0 e-2 e-3 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 ty (let ((sc4 e-3)) (let ((e-17 (vector-ref sc4 18))) e-17))))) (let ((act-27 ((Normalise-Core-nf arg-0 e-5 arg-10 (TT-Core-embed 'erased 'erased ty)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Searching Name " (Name-Core-show_Show__Name e-2))) arg-10 e-8 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((AutoSearch-Core-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 e-8) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (let ((e-11 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((act-30 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-1 arg-2) (Unify-Core-inTerm)) arg-3) arg-10) arg-11) e-4) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (let ((_-0 (vector 0 e-11 e-4))) ((AutoSearch-Core-case--11094-3670 arg-0 e-2 e-3 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 ty namety e-8 e-9 e-11 e-4 _-0 e-12 (let ((sc9 e-12)) (let ((e-0 (vector-ref sc9 1))) e-0))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))) +(define AutoSearch-Core-searchLocalWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf arg-0 e-5 arg-10 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((AutoSearch-Core-n--9758-2373-findPos arg-0 e-2 e-3 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-2 (lambda (eta-1) eta-1) e-6 arg-12) eta-0))))))))))))))))) (define AutoSearch-Core-searchLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((elabs (Prelude-map_Functor__List 'erased 'erased (lambda (t) (AutoSearch-Core-searchLocalWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 t arg-11)) (AutoSearch-Core-getAllEnv arg-0 arg-3 arg-4 (vector 0 ) arg-10)))) (AutoSearch-Core-exactlyOne arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 arg-11 elabs)))) -(define AutoSearch-Core-searchIfHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0)))(else (let ((e-0 (- arg-7 1))) (let ((hole (let ((sc0 arg-11)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (let ((rig (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 2))) e-2)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 9 hole) (let ((sc1 e-5)) (let ((e-27 (vector-ref sc1 1))) e-27))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((AutoSearch-Core-case--8052-870 arg-0 e-0 arg-11 arg-10 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 hole rig e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0)))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0))))))))))))))))))))))) +(define AutoSearch-Core-searchIfHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0)))(else (let ((e-0 (- arg-7 1))) (let ((hole (let ((sc0 arg-11)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (let ((rig (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 2))) e-2)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 9 hole) (let ((sc1 e-5)) (let ((e-27 (vector-ref sc1 1))) e-27))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((AutoSearch-Core-case--8097-878 arg-0 e-0 arg-11 arg-10 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 hole rig e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0)))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0))))))))))))))))))))))) (define ArgInfo-AutoSearch-Core-plicit (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) e-3)))) -(define AutoSearch-Core-mkArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-2 "sa" eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-9 arg-5 e-8 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-4 e-6))) (let ((act-28 ((UnifyState-Core-newMeta arg-0 arg-1 arg-2 arg-3 argRig arg-5 e-10 e-11 (vector 7 (Env-Core-length 'erased 'erased arg-5) 1) 1) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) (let ((sc7 e-12)) (let ((e-14 (vector-ref sc7 1))) (let ((e-13 (vector-ref sc7 2))) (let ((act-29 (Unify-Core-setInvertible arg-1 arg-3 (vector 9 e-14) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-15 (vector-ref sc8 1))) (vector 0 e-15))) (else (let ((act-30 (let ((act-30 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 e-13)) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc9 1))) ((AutoSearch-Core-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-16) eta-0)))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc9 1))) (let ((sc10 e-16)) (let ((e-18 (vector-ref sc10 1))) (let ((e-17 (vector-ref sc10 2))) (vector 1 (vector 0 (vector 1 (vector 0 e-14 argRig e-7 e-13 e-11) e-18) e-17))))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-6)))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-6)))))))) +(define AutoSearch-Core-mkArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-2 "sa" eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-9 arg-5 e-8 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-4 e-6))) (let ((act-28 ((UnifyState-Core-newMeta arg-0 arg-1 arg-2 arg-3 argRig arg-5 e-10 e-11 (vector 7 (Env-Core-length 'erased 'erased arg-5) (Context-Core-holeInit 1)) 1) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) (let ((sc7 e-12)) (let ((e-14 (vector-ref sc7 1))) (let ((e-13 (vector-ref sc7 2))) (let ((act-29 (Unify-Core-setInvertible arg-1 arg-3 (vector 9 e-14) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-15 (vector-ref sc8 1))) (vector 0 e-15))) (else (let ((act-30 (let ((act-30 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 e-13)) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc9 1))) ((AutoSearch-Core-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-16) eta-0)))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc9 1))) (let ((sc10 e-16)) (let ((e-18 (vector-ref sc10 1))) (let ((e-17 (vector-ref sc10 2))) (vector 1 (vector 0 (vector 1 (vector 0 e-14 argRig e-7 e-13 e-11) e-18) e-17))))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-6)))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-6)))))))) (define ArgInfo-AutoSearch-Core-metaApp (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 4))) e-4)))) (define AutoSearch-Core-isPairNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (Context-Core-isPairType arg-1 e-2 eta-0)))) ((0) (let ((e-7 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((sc1 e-9)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-10 arg-4) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-2 (vector 10 e-7 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((AutoSearch-Core-isPairNF 'erased arg-1 arg-2 e-5 arg-4) eta-0))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define AutoSearch-Core-impLast (lambda (arg-0 arg-1) (List-Prelude-C-43C-43 'erased (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (AutoSearch-Core-n--7958-753-impl 'erased arg-1 'erased eta-0))) arg-1) (List-Data-filter 'erased (lambda (eta-0) (AutoSearch-Core-n--7958-753-impl 'erased arg-1 'erased eta-0)) arg-1)))) +(define AutoSearch-Core-impLast (lambda (arg-0 arg-1) (List-Prelude-C-43C-43 'erased (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (AutoSearch-Core-n--8003-761-impl 'erased arg-1 'erased eta-0))) arg-1) (List-Data-filter 'erased (lambda (eta-0) (AutoSearch-Core-n--8003-761-impl 'erased arg-1 'erased eta-0)) arg-1)))) (define ArgInfo-AutoSearch-Core-holeID (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)))) -(define AutoSearch-Core-getAllEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((rest (AutoSearch-Core-getAllEnv e-3 arg-1 arg-2 (List-Prelude-C-43C-43 'erased arg-3 (vector 1 e-2 (vector 0 ))) e-9))) (AutoSearch-Core-case--9150-1863 e-2 e-3 e-9 e-8 arg-3 arg-2 arg-1 rest (Prelude-C-124C-124 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega (TT-Core-multiplicity 'erased e-8) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)) (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-2))))))))))))))) -(define AutoSearch-Core-exactlyOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased e-1 (lambda (err) (let ((sc2 err)) (case (vector-ref sc2 0) ((29) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-5) eta-1)))))) eta-0)))(else (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-successful arg-0 arg-1 arg-2 arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((AutoSearch-Core-case--8891-1680 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Either-Data-rights 'erased 'erased e-5)) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-successful arg-0 arg-1 arg-2 arg-7) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((AutoSearch-Core-case--8891-1680 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Either-Data-rights 'erased 'erased e-5)) eta-0)))))))))))) -(define AutoSearch-Core-concreteDets (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (AutoSearch-Core-case--11701-4548 arg-0 e-2 e-3 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-7 arg-8)))))))))) -(define AutoSearch-Core-checkConcreteDets (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (Context-Core-isPairType arg-1 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Normalise-Core-evalClosure arg-0 e-6 e-9) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure arg-0 e-6 e-11) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((AutoSearch-Core-checkConcreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else ((AutoSearch-Core-checkConcreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13) eta-0))))))))))))))))(else (let ((act-26 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) ((AutoSearch-Core-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc7 e-12)) (let ((e-0 (vector-ref sc7 1))) e-0)) e-5) eta-0))))))))))))(else (let ((act-26 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) ((AutoSearch-Core-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc6 e-10)) (let ((e-0 (vector-ref sc6 1))) e-0)) e-5) eta-0))))))))))))(else (let ((act-26 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) ((AutoSearch-Core-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) e-0)) e-5) eta-0)))))))))) (else (let ((act-26 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Determining arguments for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0))))))) eta-0)))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else ((AutoSearch-Core-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0)) e-5) eta-0)))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define AutoSearch-Core-getAllEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((rest (AutoSearch-Core-getAllEnv e-3 arg-1 arg-2 (List-Prelude-C-43C-43 'erased arg-3 (vector 1 e-2 (vector 0 ))) e-9))) (AutoSearch-Core-case--9195-1871 e-2 e-3 e-9 e-8 arg-3 arg-2 arg-1 rest (Prelude-C-124C-124 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega (TT-Core-multiplicity 'erased e-8) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)) (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-2))))))))))))))) +(define AutoSearch-Core-exactlyOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased e-1 (lambda (err) (let ((sc2 err)) (case (vector-ref sc2 0) ((29) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-5) eta-1)))))) eta-0)))(else (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-successful arg-0 arg-1 arg-2 arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((AutoSearch-Core-case--8936-1688 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Either-Data-rights 'erased 'erased e-5)) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-successful arg-0 arg-1 arg-2 arg-7) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((AutoSearch-Core-case--8936-1688 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Either-Data-rights 'erased 'erased e-5)) eta-0)))))))))))) +(define AutoSearch-Core-concreteDets (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (AutoSearch-Core-case--11746-4580 arg-0 e-2 e-3 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-7 arg-8)))))))))) +(define AutoSearch-Core-checkConcreteDets (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (Context-Core-isPairType arg-1 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Normalise-Core-evalClosure arg-0 e-6 e-9) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure arg-0 e-6 e-11) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((AutoSearch-Core-checkConcreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else ((AutoSearch-Core-checkConcreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13) eta-0))))))))))))))))(else (let ((act-26 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) ((AutoSearch-Core-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc7 e-12)) (let ((e-0 (vector-ref sc7 1))) e-0)) e-5) eta-0))))))))))))(else (let ((act-26 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) ((AutoSearch-Core-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc6 e-10)) (let ((e-0 (vector-ref sc6 1))) e-0)) e-5) eta-0))))))))))))(else (let ((act-26 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) ((AutoSearch-Core-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) e-0)) e-5) eta-0)))))))))) (else (let ((act-26 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Determining arguments for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0))))))) eta-0)))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else ((AutoSearch-Core-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0)) e-5) eta-0)))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define ArgInfo-AutoSearch-Core-argType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-5 (vector-ref sc0 5))) e-5)))) (define ArgInfo-AutoSearch-Core-argRig (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2)))) (define AutoSearch-Core-anyOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-5) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased e-2 (lambda (err) (let ((sc2 err)) (case (vector-ref sc2 0) ((29) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-5) eta-1)))))) eta-0)))(else (lambda (eta-0) (UnifyState-Core-tryUnify 'erased arg-1 arg-2 e-2 (AutoSearch-Core-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) eta-0)))))))))))) (define AutoSearch-Core-abandonIfCycle (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-convert_Convert__Term arg-0 e-5 arg-2 arg-3 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Cycle in search") eta-0)) (else ((AutoSearch-Core-abandonIfCycle arg-0 arg-1 arg-2 arg-3 e-3) eta-0)))))))))))))))))))))) (define InitPrimitives-Core-addPrimitives (lambda (arg-0) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (InitPrimitives-Core-addPrim arg-0 eta-0 eta-1))) (Primitives-Core-allPrimitives)))) (define InitPrimitives-Core-addPrim (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-addBuiltin (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) arg-0 (Primitives-Core-opName 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) e-1))) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2)) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 4))) e-3)) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) e-1)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (CompileExpr-Compiler-compileDef arg-0 (Primitives-Core-opName 'erased (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0))))))) -(define CompileExpr-Compiler-case--12190-8093 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((ncdef (CompileExpr-Core-forgetDef e-2))) (lambda (eta-0) (Context-Core-setNamedCompiled arg-1 arg-0 ncdef eta-0))))))))) -(define CompileExpr-Compiler-case--12172-8081 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (CompileExpr-Compiler-case--12190-8093 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Trying to compile unknown name " (Name-Core-show_Show__Name arg-0))) eta-0))))))) -(define CompileExpr-Compiler-case--12109-8023 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Def arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Def arg-5888 arg-5889)))) (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((CompileExpr-Compiler-toCDef arg-1 arg-0 (let ((sc2 e-1)) (let ((e-2 (vector-ref sc2 3))) e-2)) e-5) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Trying to compile unknown name " (Name-Core-show_Show__Name arg-0))) eta-0))))))) -(define CompileExpr-Compiler-case--11702-7843 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 6 arg-0 (FC-Core-emptyFC) arg-1 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-n--11702-7791-toArgExp arg-0 arg-1 arg-2 arg-3 arg-4 'erased eta-1)) (CompileExpr-Compiler-n--11702-7792-getVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-3))))))))))) -(define CompileExpr-Compiler-case--11702-7771 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 2 arg-0 e-2 e-3)))))))) -(define CompileExpr-Compiler-case--11702-7711 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-3 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-2 (vector 7 (FC-Core-emptyFC) e-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-n--11702-7661-toArgExp arg-0 arg-1 arg-2 arg-3 'erased eta-1)) (CompileExpr-Compiler-n--11702-7662-getVars arg-0 arg-1 arg-2 arg-3 'erased 'erased e-3)))))))))))))))) -(define CompileExpr-Compiler-case--11311-7335 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-8 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-7 arg-5 0 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-2 e-6)))))))))))))))))) -(define CompileExpr-Compiler-case--11107-7259 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-8 eta-1)) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-7 arg-5 arg-6 eta-1)) e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 13 arg-9 e-6))))))))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-5 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (lambda (eta-1) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-8 e-4) eta-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-7 arg-5 0 e-6) eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 e-7))))))))))))))))) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 12 e-2 e-5))))))))))) ((2) (lambda (eta-0) (vector 1 (vector 0 )))) ((3) (lambda (eta-0) (vector 1 (vector 6 )))) ((4) (lambda (eta-0) (vector 1 (vector 7 )))) ((5) (lambda (eta-0) (vector 1 (vector 8 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-8 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-7 arg-5 arg-6 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 11 e-6))))))))))))))))))) -(define CompileExpr-Compiler-case--10967-7022 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (CompileExpr-Compiler-getFieldArgs arg-3 arg-2 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 1 e-3 e-5))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-4) "Unknown name for struct") eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-4) "Unknown name for struct") eta-0))))))) -(define CompileExpr-Compiler-case--10838-6858 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 e-3) arg-11)))))))) -(define CompileExpr-Compiler-case--10819-6818 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (CompileExpr-Compiler-getFieldArgs arg-1 e-7 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (CompileExpr-Compiler-getPArgs arg-1 e-4 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (let ((e-10 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (vector 1 (vector 1 (vector 0 e-10 e-3) e-6)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CompileExpr-Compiler-case--10807-6803 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-11 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (CompileExpr-Compiler-getFieldArgs arg-1 e-11 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc5 1))) (let ((act-25 (CompileExpr-Compiler-getPArgs arg-1 e-9 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc6 1))) (let ((sc7 e-13)) (let ((e-15 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (vector 1 (vector 1 (vector 0 e-15 e-14) e-12)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-2) "Badly formed struct type") eta-0))))))) -(define CompileExpr-Compiler-case--10657-6697 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 e-3 arg-9)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-11) "Unknown field name") eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-11) "Unknown field name") eta-0))))))) -(define CompileExpr-Compiler-case--10637-6663 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-1 e-4) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((8) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((6) (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-8 e-1))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-6) "Unknown field name") eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-6) "Unknown field name") eta-0))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 "Badly formed struct type") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 "Badly formed struct type") eta-0))))))) -(define CompileExpr-Compiler-case--10625-6647 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((_-0 (vector 2 e-1 e-2 e-3 e-4 e-5))) (CompileExpr-Compiler-case--10637-6663 arg-0 arg-1 e-2 e-3 e-4 e-5 e-1 _-0 (List-Data-reverse 'erased e-5)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-2) "Badly formed struct type") eta-0))))))) -(define CompileExpr-Compiler-case--10572-6607 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 (vector 2 "arg" arg-1) e-2) (vector 1 (vector 2 "arg" arg-1) e-3))))))) -(define CompileExpr-Compiler-case--9315-6453 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Maybe-Data-fromMaybe 'erased (lambda () (vector 13 arg-11)) arg-13)))) (else (lambda (eta-0) (vector 1 (vector 11 arg-11 (vector 0 arg-7 arg-11) arg-12 arg-13)))))))) -(define CompileExpr-Compiler-case--10158-6277 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Maybe-Data-fromMaybe 'erased (lambda () (vector 13 arg-13)) arg-17)))) (else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-boolHackTree 'erased (CompileExpr-Compiler-natHackTree 'erased (vector 10 arg-13 (vector 0 arg-2 arg-13) arg-16 arg-17)))))))))) -(define CompileExpr-Compiler-case--9315-6221 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompileExpr-Compiler-conCases arg-0 arg-12 arg-11 arg-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CompileExpr-Compiler-getDef arg-0 arg-12 arg-11 arg-8) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 0 ))) ((CompileExpr-Compiler-case--10158-6277 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-11 arg-12 arg-13 _-0 e-5 e-6 e-7 (List-Data-isNil 'erased e-6)) eta-0))))))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))))))) -(define CompileExpr-Compiler-case--9306-6012 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 3))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 2))) (let ((env (CompileExpr-Compiler-n--9306-5883-mkSubst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 0 arg-7 e-10 arg-0))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-9 arg-6 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (vector 1 (CompileExpr-Core-substs arg-0 arg-1 env e-5))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CompileExpr-Compiler-case--9775-5909 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (vector 1 arg-14 (CompileExpr-Compiler-n--9306-5883-mkSubst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased (Prelude-C-43_Num__Nat (+ 1 0) arg-15) arg-14 arg-13 arg-12))) (else (vector 1 (vector 13 arg-8) (CompileExpr-Compiler-n--9306-5883-mkSubst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased (Prelude-C-43_Num__Nat (+ 1 0) arg-15) arg-14 arg-13 arg-12))))))) -(define CompileExpr-Compiler-case--9472-5668 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-12 (vector 1 arg-3) arg-13 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-14 arg-15)) arg-16)))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-12 (vector 0 ) arg-13 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-14 arg-15)) arg-16)))))))) -(define CompileExpr-Compiler-case--9394-5620 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-7 arg-6 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompileExpr-Compiler-conCases arg-1 arg-7 arg-6 arg-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((CompileExpr-Compiler-case--9472-5668 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-3 e-5 e-6 (CompileExpr-Compiler-n--9300-5503-dcon arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc3 arg-9)) (let ((e-17 (vector-ref sc3 18))) e-17)))) eta-0))))))))))))))))) -(define CompileExpr-Compiler-case--9361-5554 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((5) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (CompileExpr-Compiler-conCases arg-1 arg-7 arg-6 arg-5))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-7 arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((CompileExpr-Compiler-case--9394-5620 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 (CompileExpr-Compiler-mkDropSubst 0 (let ((sc2 arg-9)) (let ((e-3 (vector-ref sc2 4))) e-3)) arg-1 arg-0)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-7 arg-4) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((CompileExpr-Compiler-case--9394-5620 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 (CompileExpr-Compiler-mkDropSubst 0 (let ((sc1 arg-9)) (let ((e-3 (vector-ref sc1 4))) e-3)) arg-1 arg-0)) eta-0)))))))))))) -(define CompileExpr-Compiler-case--9300-5531 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (CompileExpr-Compiler-case--9361-5554 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-7 arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-7 arg-6 arg-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CompileExpr-Compiler-conCases arg-1 arg-7 arg-6 arg-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-5 (vector 0 ) arg-0 e-6) e-7))))))))))))))))))))))) -(define CompileExpr-Compiler-case--9165-5396 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((res (CompileExpr-Compiler-expandToArity arg-0 e-0 arg-8 arg-6))) (lambda (eta-0) (vector 1 (CompileExpr-Compiler-natHack 'erased res)))))) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((res (CompileExpr-Compiler-applyNewType arg-0 e-1 e-2 arg-8 arg-6))) (lambda (eta-0) (vector 1 (CompileExpr-Compiler-natHack 'erased res))))))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((res (CompileExpr-Compiler-eraseConArgs arg-0 e-3 e-4 arg-8 arg-6))) (lambda (eta-0) (vector 1 (CompileExpr-Compiler-natHack 'erased res))))))))))) -(define CompileExpr-Compiler-case--8709-5346 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-toCExp arg-0 arg-3 arg-2 eta-1)) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-3))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CompileExpr-Compiler-toCExpTm arg-0 arg-3 arg-2 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((CompileExpr-Compiler-numArgs 'erased e-6 e-2) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((2) (let ((e-0 (vector-ref sc5 1))) (let ((res (CompileExpr-Compiler-expandToArity arg-0 e-0 e-7 e-5))) (vector 1 (CompileExpr-Compiler-natHack 'erased res))))) ((0) (let ((e-1 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((res (CompileExpr-Compiler-applyNewType arg-0 e-1 e-4 e-7 e-5))) (vector 1 (CompileExpr-Compiler-natHack 'erased res)))))) (else (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((res (CompileExpr-Compiler-eraseConArgs arg-0 e-9 e-4 e-7 e-5))) (vector 1 (CompileExpr-Compiler-natHack 'erased res)))))))))))))))))))))))))))))))))) -(define CompileExpr-Compiler-case--8706-5282 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 12 arg-3 arg-2)))) (else (lambda (eta-0) (vector 1 (vector 5 arg-3 (vector 1 (TT-Core-show_Show__Constant arg-2)) (vector 0 ) (vector 0 ))))))))) -(define CompileExpr-Compiler-case--8553-4873 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 11 arg-4 arg-3 e-1 arg-1))) (else (vector 10 arg-4 arg-3 arg-2 arg-1)))))) -(define CompileExpr-Compiler-case--8477-4704 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((defb (Prelude-maybe 'erased 'erased (lambda () (vector 14 arg-4 "Nat case not covered")) (lambda () (lambda (eta-0) eta-0)) arg-1))) (let ((scase (Prelude-maybe 'erased 'erased (lambda () defb) (lambda () (lambda (eta-0) eta-0)) (CompileExpr-Compiler-getSBranch 'erased arg-3 arg-2)))) (let ((zcase (Prelude-maybe 'erased 'erased (lambda () defb) (lambda () (lambda (eta-0) eta-0)) (CompileExpr-Compiler-getZBranch 'erased arg-2)))) (vector 11 arg-4 arg-3 (vector 1 (vector 0 (vector 1 0) zcase) (vector 0 )) (vector 1 scase)))))) (else (vector 10 arg-4 arg-3 arg-2 arg-1)))))) -(define CompileExpr-Compiler-case--8084-4352 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (vector 0 arg-5 (vector 1 arg-6))) (else (vector 0 (vector 1 arg-0 arg-5) (vector 2 arg-6))))))) -(define CompileExpr-Compiler-case--8054-4331 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-case--8084-4352 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-4 arg-3))))))) -(define CompileExpr-Compiler-case--7961-4237 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (CompileExpr-Compiler-n--7942-4223-drop 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (Prelude-C-43_Num__Nat (+ 1 0) arg-8) arg-7)) (else (vector 1 arg-6 (CompileExpr-Compiler-n--7942-4223-drop 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (Prelude-C-43_Num__Nat (+ 1 0) arg-8) arg-7))))))) -(define CompileExpr-Compiler-case--7833-4139 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) arg-6) (else (CompileExpr-Compiler-n--7824-4117-keep arg-0 arg-1 arg-2 arg-3 arg-4 'erased (Prelude-C-43_Num__Nat (+ 1 0) arg-8) arg-7)))))) -(define CompileExpr-Compiler-case--7393-3734 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((5) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 e-1 (let ((sc2 arg-5)) (let ((e-3 (vector-ref sc2 4))) e-3)))))) ((1) (let ((e-15 (vector-ref sc1 1))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((0) (let ((e-19 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (vector 0 e-1 e-19)))))(else (lambda (eta-0) (vector 1 (vector 2 0))))))))(else (lambda (eta-0) (vector 1 (vector 2 0))))))))) ((1) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 2 (List-Data-length 'erased e-4)))))) ((2) (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 2 e-8))))) ((3) (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 2 e-9))))) ((4) (let ((e-11 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 2 e-11)))))(else (lambda (eta-0) (vector 1 (vector 2 0)))))))) -(define CompileExpr-Compiler-case--7364-3719 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (CompileExpr-Compiler-case--7393-3734 'erased arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 2 0)))))))) -(define CompileExpr-Compiler-n--8553-4765-toBool (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-8)) (cond ((equal? sc3 "Prelude") (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((sc6 e-11)) (cond ((equal? sc6 "True") (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 (vector 0 e-13) e-4)))(else (vector 0 ))))))(else (vector 0 ))))) ((equal? sc6 "False") (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((e-16 (vector-ref sc7 1))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 (vector 0 e-16) e-4)))(else (vector 0 ))))))(else (vector 0 ))))) ((equal? sc6 "LT") (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((e-19 (vector-ref sc7 1))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 (vector 0 e-19) e-4)))(else (vector 0 ))))))(else (vector 0 ))))) ((equal? sc6 "EQ") (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((e-22 (vector-ref sc7 1))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 (vector 0 e-22) e-4)))(else (vector 0 ))))))(else (vector 0 ))))) ((equal? sc6 "GT") (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((e-25 (vector-ref sc7 1))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 (vector 0 e-25) e-4)))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))))))(else (vector 0 )))))) -(define CompileExpr-Compiler-n--11702-7791-toArgExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 0 arg-6 (FC-Core-emptyFC)))) -(define CompileExpr-Compiler-n--11702-7661-toArgExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 0 arg-5 (FC-Core-emptyFC)))) -(define CompileExpr-Compiler-n--9306-5883-mkSubst (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-case--9775-5909 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased e-2 e-3 arg-13 arg-12 arg-11 (Prelude-C-61C-61_Eq__Nat arg-11 arg-13))))))))) -(define CompileExpr-Compiler-n--7625-3938-mkLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 0 arg-5 arg-4))) -(define CompileExpr-Compiler-n--7625-3939-mkApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) arg-4)(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (vector 4 e-1 e-2 (List-Prelude-C-43C-43 'erased e-3 arg-5)))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 5 e-5 e-6 e-7 (List-Prelude-C-43C-43 'erased e-8 arg-5))))))) ((7) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (vector 7 e-10 e-11 (List-Prelude-C-43C-43 'erased e-12 arg-5))))))(else (vector 4 (CompileExpr-Core-getFC 'erased arg-4) arg-4 arg-5))))))))) -(define CompileExpr-Compiler-n--7824-4118-keepArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (vector 2 e-1 e-2 (CompileExpr-Compiler-n--7824-4118-keepArg arg-0 arg-1 arg-2 arg-3 arg-4 'erased e-3)))))) ((5) (let ((e-8 (vector-ref sc0 4))) (CompileExpr-Compiler-n--7824-4117-keep arg-0 arg-1 arg-2 arg-3 arg-4 'erased 0 e-8)))(else (vector 13 (CompileExpr-Core-getFC 'erased arg-2))))))) -(define CompileExpr-Compiler-n--7824-4117-keep (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 13 (CompileExpr-Core-getFC 'erased arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-case--7833-4139 arg-0 arg-1 arg-2 arg-3 arg-4 'erased e-2 e-3 arg-6 (Prelude-C-61C-61_Eq__Nat arg-6 arg-3))))))))) -(define CompileExpr-Compiler-n--11702-7792-getVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 0 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-weakenVar 'erased 'erased eta-0)) (CompileExpr-Compiler-n--11702-7792-getVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-3))))))))) -(define CompileExpr-Compiler-n--11702-7662-getVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-weakenVar 'erased 'erased eta-0)) (CompileExpr-Compiler-n--11702-7662-getVars arg-0 arg-1 arg-2 arg-3 'erased 'erased e-3))))))))) -(define CompileExpr-Compiler-n--7942-4223-drop (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-case--7961-4237 'erased arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-6 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-6 arg-5))))))))) -(define CompileExpr-Compiler-n--9300-5503-dcon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((5) 0)(else 1))))) -(define CompileExpr-Compiler-n--7721-4036-applyAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-n--7721-4036-applyAll arg-0 arg-1 arg-2 (vector 4 (CompileExpr-Core-getFC 'erased arg-3) arg-3 (vector 1 e-2 (vector 0 ))) e-3)))))))) -(define CompileExpr-Compiler-n--7721-4058-addArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (vector 4 e-1 e-2 (List-Prelude-C-43C-43 'erased e-3 (vector 1 arg-6 (vector 0 )))))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 5 e-5 e-6 e-7 (List-Prelude-C-43C-43 'erased e-8 (vector 1 arg-6 (vector 0 ))))))))) ((7) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (vector 7 e-10 e-11 (List-Prelude-C-43C-43 'erased e-12 (vector 1 arg-6 (vector 0 ))))))))(else (vector 4 (CompileExpr-Core-getFC 'erased arg-5) arg-5 (vector 1 arg-6 (vector 0 )))))))) +(define CompileExpr-Compiler-case--12249-8101 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((ncdef (CompileExpr-Core-forgetDef e-2))) (lambda (eta-0) (Context-Core-setNamedCompiled arg-1 arg-0 ncdef eta-0))))))))) +(define CompileExpr-Compiler-case--12231-8089 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (CompileExpr-Compiler-case--12249-8101 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Trying to compile unknown name " (Name-Core-show_Show__Name arg-0))) eta-0))))))) +(define CompileExpr-Compiler-case--12168-8031 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Def arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Def arg-6292 arg-6293)))) (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((CompileExpr-Compiler-toCDef arg-1 arg-0 (let ((sc2 e-1)) (let ((e-2 (vector-ref sc2 3))) e-2)) e-5) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Trying to compile unknown name " (Name-Core-show_Show__Name arg-0))) eta-0))))))) +(define CompileExpr-Compiler-case--11761-7851 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 6 arg-0 (FC-Core-emptyFC) arg-1 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-n--11761-7799-toArgExp arg-0 arg-1 arg-2 arg-3 arg-4 'erased eta-1)) (CompileExpr-Compiler-n--11761-7800-getVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-3))))))))))) +(define CompileExpr-Compiler-case--11761-7779 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 2 arg-0 e-2 e-3)))))))) +(define CompileExpr-Compiler-case--11761-7719 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-3 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-2 (vector 7 (FC-Core-emptyFC) e-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-n--11761-7669-toArgExp arg-0 arg-1 arg-2 arg-3 'erased eta-1)) (CompileExpr-Compiler-n--11761-7670-getVars arg-0 arg-1 arg-2 arg-3 'erased 'erased e-3)))))))))))))))) +(define CompileExpr-Compiler-case--11370-7343 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-8 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-7 arg-5 0 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-2 e-6)))))))))))))))))) +(define CompileExpr-Compiler-case--11166-7267 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-8 eta-1)) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-7 arg-5 arg-6 eta-1)) e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 13 arg-9 e-6))))))))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-5 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (lambda (eta-1) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-8 e-4) eta-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-7 arg-5 0 e-6) eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 e-7))))))))))))))))) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 12 e-2 e-5))))))))))) ((2) (lambda (eta-0) (vector 1 (vector 0 )))) ((3) (lambda (eta-0) (vector 1 (vector 6 )))) ((4) (lambda (eta-0) (vector 1 (vector 7 )))) ((5) (lambda (eta-0) (vector 1 (vector 8 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-8 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-7 arg-5 arg-6 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 11 e-6))))))))))))))))))) +(define CompileExpr-Compiler-case--11026-7030 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (CompileExpr-Compiler-getFieldArgs arg-3 arg-2 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 1 e-3 e-5))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-4) "Unknown name for struct") eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-4) "Unknown name for struct") eta-0))))))) +(define CompileExpr-Compiler-case--10897-6866 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 e-3) arg-11)))))))) +(define CompileExpr-Compiler-case--10878-6826 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (CompileExpr-Compiler-getFieldArgs arg-1 e-7 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (CompileExpr-Compiler-getPArgs arg-1 e-4 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (let ((e-10 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (vector 1 (vector 1 (vector 0 e-10 e-3) e-6)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define CompileExpr-Compiler-case--10866-6811 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-11 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (CompileExpr-Compiler-getFieldArgs arg-1 e-11 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc5 1))) (let ((act-25 (CompileExpr-Compiler-getPArgs arg-1 e-9 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc6 1))) (let ((sc7 e-13)) (let ((e-15 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (vector 1 (vector 1 (vector 0 e-15 e-14) e-12)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-2) "Badly formed struct type") eta-0))))))) +(define CompileExpr-Compiler-case--10716-6705 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 e-3 arg-9)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-11) "Unknown field name") eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-11) "Unknown field name") eta-0))))))) +(define CompileExpr-Compiler-case--10696-6671 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-1 e-4) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((8) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((6) (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-8 e-1))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-6) "Unknown field name") eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-6) "Unknown field name") eta-0))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 "Badly formed struct type") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 "Badly formed struct type") eta-0))))))) +(define CompileExpr-Compiler-case--10684-6655 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((_-0 (vector 2 e-1 e-2 e-3 e-4 e-5))) (CompileExpr-Compiler-case--10696-6671 arg-0 arg-1 e-2 e-3 e-4 e-5 e-1 _-0 (List-Data-reverse 'erased e-5)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-2) "Badly formed struct type") eta-0))))))) +(define CompileExpr-Compiler-case--10631-6615 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 (vector 2 "arg" arg-1) e-2) (vector 1 (vector 2 "arg" arg-1) e-3))))))) +(define CompileExpr-Compiler-case--9374-6461 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Maybe-Data-fromMaybe 'erased (lambda () (vector 13 arg-11)) arg-13)))) (else (lambda (eta-0) (vector 1 (vector 11 arg-11 (vector 0 arg-7 arg-11) arg-12 arg-13)))))))) +(define CompileExpr-Compiler-case--10217-6285 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Maybe-Data-fromMaybe 'erased (lambda () (vector 13 arg-13)) arg-17)))) (else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-boolHackTree 'erased (CompileExpr-Compiler-natHackTree 'erased (vector 10 arg-13 (vector 0 arg-2 arg-13) arg-16 arg-17)))))))))) +(define CompileExpr-Compiler-case--9374-6229 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompileExpr-Compiler-conCases arg-0 arg-12 arg-11 arg-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CompileExpr-Compiler-getDef arg-0 arg-12 arg-11 arg-8) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 0 ))) ((CompileExpr-Compiler-case--10217-6285 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-11 arg-12 arg-13 _-0 e-5 e-6 e-7 (List-Data-isNil 'erased e-6)) eta-0))))))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))))))) +(define CompileExpr-Compiler-case--9365-6020 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 3))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 2))) (let ((env (CompileExpr-Compiler-n--9365-5891-mkSubst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 0 arg-7 e-10 arg-0))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-9 arg-6 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (vector 1 (CompileExpr-Core-substs arg-0 arg-1 env e-5))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define CompileExpr-Compiler-case--9834-5917 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (vector 1 arg-14 (CompileExpr-Compiler-n--9365-5891-mkSubst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased (Prelude-C-43_Num__Nat (+ 1 0) arg-15) arg-14 arg-13 arg-12))) (else (vector 1 (vector 13 arg-8) (CompileExpr-Compiler-n--9365-5891-mkSubst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased (Prelude-C-43_Num__Nat (+ 1 0) arg-15) arg-14 arg-13 arg-12))))))) +(define CompileExpr-Compiler-case--9531-5676 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-12 (vector 1 arg-3) arg-13 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-14 arg-15)) arg-16)))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-12 (vector 0 ) arg-13 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-14 arg-15)) arg-16)))))))) +(define CompileExpr-Compiler-case--9453-5628 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-7 arg-6 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompileExpr-Compiler-conCases arg-1 arg-7 arg-6 arg-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((CompileExpr-Compiler-case--9531-5676 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-3 e-5 e-6 (CompileExpr-Compiler-n--9359-5511-dcon arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc3 arg-9)) (let ((e-17 (vector-ref sc3 18))) e-17)))) eta-0))))))))))))))))) +(define CompileExpr-Compiler-case--9420-5562 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((5) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (CompileExpr-Compiler-conCases arg-1 arg-7 arg-6 arg-5))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-7 arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((CompileExpr-Compiler-case--9453-5628 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 (CompileExpr-Compiler-mkDropSubst 0 (let ((sc2 arg-9)) (let ((e-3 (vector-ref sc2 4))) e-3)) arg-1 arg-0)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-7 arg-4) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((CompileExpr-Compiler-case--9453-5628 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 (CompileExpr-Compiler-mkDropSubst 0 (let ((sc1 arg-9)) (let ((e-3 (vector-ref sc1 4))) e-3)) arg-1 arg-0)) eta-0)))))))))))) +(define CompileExpr-Compiler-case--9359-5539 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (CompileExpr-Compiler-case--9420-5562 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-7 arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-7 arg-6 arg-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CompileExpr-Compiler-conCases arg-1 arg-7 arg-6 arg-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-5 (vector 0 ) arg-0 e-6) e-7))))))))))))))))))))))) +(define CompileExpr-Compiler-case--9224-5404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((res (CompileExpr-Compiler-expandToArity arg-0 e-0 arg-8 arg-6))) (lambda (eta-0) (vector 1 (CompileExpr-Compiler-natHack 'erased res)))))) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((res (CompileExpr-Compiler-applyNewType arg-0 e-1 e-2 arg-8 arg-6))) (lambda (eta-0) (vector 1 (CompileExpr-Compiler-natHack 'erased res))))))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((res (CompileExpr-Compiler-eraseConArgs arg-0 e-3 e-4 arg-8 arg-6))) (lambda (eta-0) (vector 1 (CompileExpr-Compiler-natHack 'erased res))))))))))) +(define CompileExpr-Compiler-case--8768-5354 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-toCExp arg-0 arg-3 arg-2 eta-1)) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-3))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CompileExpr-Compiler-toCExpTm arg-0 arg-3 arg-2 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((CompileExpr-Compiler-numArgs 'erased e-6 e-2) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((2) (let ((e-0 (vector-ref sc5 1))) (let ((res (CompileExpr-Compiler-expandToArity arg-0 e-0 e-7 e-5))) (vector 1 (CompileExpr-Compiler-natHack 'erased res))))) ((0) (let ((e-1 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((res (CompileExpr-Compiler-applyNewType arg-0 e-1 e-4 e-7 e-5))) (vector 1 (CompileExpr-Compiler-natHack 'erased res)))))) (else (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((res (CompileExpr-Compiler-eraseConArgs arg-0 e-9 e-4 e-7 e-5))) (vector 1 (CompileExpr-Compiler-natHack 'erased res)))))))))))))))))))))))))))))))))) +(define CompileExpr-Compiler-case--8765-5290 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 12 arg-3 arg-2)))) (else (lambda (eta-0) (vector 1 (vector 5 arg-3 (vector 1 (TT-Core-show_Show__Constant arg-2)) (vector 0 ) (vector 0 ))))))))) +(define CompileExpr-Compiler-case--8612-4881 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 11 arg-4 arg-3 e-1 arg-1))) (else (vector 10 arg-4 arg-3 arg-2 arg-1)))))) +(define CompileExpr-Compiler-case--8536-4712 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((defb (Prelude-maybe 'erased 'erased (lambda () (vector 14 arg-4 "Nat case not covered")) (lambda () (lambda (eta-0) eta-0)) arg-1))) (let ((scase (Prelude-maybe 'erased 'erased (lambda () defb) (lambda () (lambda (eta-0) eta-0)) (CompileExpr-Compiler-getSBranch 'erased arg-3 arg-2)))) (let ((zcase (Prelude-maybe 'erased 'erased (lambda () defb) (lambda () (lambda (eta-0) eta-0)) (CompileExpr-Compiler-getZBranch 'erased arg-2)))) (vector 11 arg-4 arg-3 (vector 1 (vector 0 (vector 1 0) zcase) (vector 0 )) (vector 1 scase)))))) (else (vector 10 arg-4 arg-3 arg-2 arg-1)))))) +(define CompileExpr-Compiler-case--8143-4360 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (vector 0 arg-5 (vector 1 arg-6))) (else (vector 0 (vector 1 arg-0 arg-5) (vector 2 arg-6))))))) +(define CompileExpr-Compiler-case--8113-4339 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-case--8143-4360 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-4 arg-3))))))) +(define CompileExpr-Compiler-case--8020-4245 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (CompileExpr-Compiler-n--8001-4231-drop 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (Prelude-C-43_Num__Nat (+ 1 0) arg-8) arg-7)) (else (vector 1 arg-6 (CompileExpr-Compiler-n--8001-4231-drop 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (Prelude-C-43_Num__Nat (+ 1 0) arg-8) arg-7))))))) +(define CompileExpr-Compiler-case--7892-4147 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) arg-6) (else (CompileExpr-Compiler-n--7883-4125-keep arg-0 arg-1 arg-2 arg-3 arg-4 'erased (Prelude-C-43_Num__Nat (+ 1 0) arg-8) arg-7)))))) +(define CompileExpr-Compiler-case--7452-3742 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((5) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 e-1 (let ((sc2 arg-5)) (let ((e-3 (vector-ref sc2 4))) e-3)))))) ((1) (let ((e-15 (vector-ref sc1 1))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((0) (let ((e-19 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (vector 0 e-1 e-19)))))(else (lambda (eta-0) (vector 1 (vector 2 0))))))))(else (lambda (eta-0) (vector 1 (vector 2 0))))))))) ((1) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 2 (List-Data-length 'erased e-4)))))) ((2) (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 2 e-8))))) ((3) (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 2 e-9))))) ((4) (let ((e-11 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 2 e-11)))))(else (lambda (eta-0) (vector 1 (vector 2 0)))))))) +(define CompileExpr-Compiler-case--7423-3727 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (CompileExpr-Compiler-case--7452-3742 'erased arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 2 0)))))))) +(define CompileExpr-Compiler-n--8612-4773-toBool (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-8)) (cond ((equal? sc3 "Prelude") (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((sc6 e-11)) (cond ((equal? sc6 "True") (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 (vector 0 e-13) e-4)))(else (vector 0 ))))))(else (vector 0 ))))) ((equal? sc6 "False") (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((e-16 (vector-ref sc7 1))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 (vector 0 e-16) e-4)))(else (vector 0 ))))))(else (vector 0 ))))) ((equal? sc6 "LT") (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((e-19 (vector-ref sc7 1))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 (vector 0 e-19) e-4)))(else (vector 0 ))))))(else (vector 0 ))))) ((equal? sc6 "EQ") (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((e-22 (vector-ref sc7 1))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 (vector 0 e-22) e-4)))(else (vector 0 ))))))(else (vector 0 ))))) ((equal? sc6 "GT") (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((e-25 (vector-ref sc7 1))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 (vector 0 e-25) e-4)))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))))))(else (vector 0 )))))) +(define CompileExpr-Compiler-n--11761-7799-toArgExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 0 arg-6 (FC-Core-emptyFC)))) +(define CompileExpr-Compiler-n--11761-7669-toArgExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 0 arg-5 (FC-Core-emptyFC)))) +(define CompileExpr-Compiler-n--9365-5891-mkSubst (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-case--9834-5917 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased e-2 e-3 arg-13 arg-12 arg-11 (Prelude-C-61C-61_Eq__Nat arg-11 arg-13))))))))) +(define CompileExpr-Compiler-n--7684-3946-mkLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 0 arg-5 arg-4))) +(define CompileExpr-Compiler-n--7684-3947-mkApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) arg-4)(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (vector 4 e-1 e-2 (List-Prelude-C-43C-43 'erased e-3 arg-5)))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 5 e-5 e-6 e-7 (List-Prelude-C-43C-43 'erased e-8 arg-5))))))) ((7) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (vector 7 e-10 e-11 (List-Prelude-C-43C-43 'erased e-12 arg-5))))))(else (vector 4 (CompileExpr-Core-getFC 'erased arg-4) arg-4 arg-5))))))))) +(define CompileExpr-Compiler-n--7883-4126-keepArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (vector 2 e-1 e-2 (CompileExpr-Compiler-n--7883-4126-keepArg arg-0 arg-1 arg-2 arg-3 arg-4 'erased e-3)))))) ((5) (let ((e-8 (vector-ref sc0 4))) (CompileExpr-Compiler-n--7883-4125-keep arg-0 arg-1 arg-2 arg-3 arg-4 'erased 0 e-8)))(else (vector 13 (CompileExpr-Core-getFC 'erased arg-2))))))) +(define CompileExpr-Compiler-n--7883-4125-keep (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 13 (CompileExpr-Core-getFC 'erased arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-case--7892-4147 arg-0 arg-1 arg-2 arg-3 arg-4 'erased e-2 e-3 arg-6 (Prelude-C-61C-61_Eq__Nat arg-6 arg-3))))))))) +(define CompileExpr-Compiler-n--11761-7800-getVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 0 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-weakenVar 'erased 'erased eta-0)) (CompileExpr-Compiler-n--11761-7800-getVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-3))))))))) +(define CompileExpr-Compiler-n--11761-7670-getVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-weakenVar 'erased 'erased eta-0)) (CompileExpr-Compiler-n--11761-7670-getVars arg-0 arg-1 arg-2 arg-3 'erased 'erased e-3))))))))) +(define CompileExpr-Compiler-n--8001-4231-drop (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-case--8020-4245 'erased arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-6 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-6 arg-5))))))))) +(define CompileExpr-Compiler-n--9359-5511-dcon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((5) 0)(else 1))))) +(define CompileExpr-Compiler-n--7780-4044-applyAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-n--7780-4044-applyAll arg-0 arg-1 arg-2 (vector 4 (CompileExpr-Core-getFC 'erased arg-3) arg-3 (vector 1 e-2 (vector 0 ))) e-3)))))))) +(define CompileExpr-Compiler-n--7780-4066-addArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (vector 4 e-1 e-2 (List-Prelude-C-43C-43 'erased e-3 (vector 1 arg-6 (vector 0 )))))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 5 e-5 e-6 e-7 (List-Prelude-C-43C-43 'erased e-8 (vector 1 arg-6 (vector 0 ))))))))) ((7) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (vector 7 e-10 e-11 (List-Prelude-C-43C-43 'erased e-12 (vector 1 arg-6 (vector 0 ))))))))(else (vector 4 (CompileExpr-Core-getFC 'erased arg-5) arg-5 (vector 1 arg-6 (vector 0 )))))))) (define CompileExpr-Compiler-weakenVar (lambda (arg-0 arg-1 arg-2) (+ 1 arg-2))) (define CompileExpr-Compiler-tryZBranch (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-8)) (cond ((equal? sc3 "Prelude") (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((sc6 e-11)) (cond ((equal? sc6 "Z") (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (vector 1 e-4))(else (vector 0 )))))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))))(else (vector 0 )))))) (define CompileExpr-Compiler-trySBranch (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-8)) (cond ((equal? sc3 "Prelude") (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((sc6 e-11)) (cond ((equal? sc6 "S") (let ((sc7 e-3)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((0) (let ((fc (CompileExpr-Core-getFC 'erased arg-1))) (vector 1 (vector 3 fc e-13 0 (vector 4 fc (vector 1 fc (vector 1 "prim__sub_Integer")) (vector 1 arg-1 (vector 1 (vector 12 fc (vector 1 1)) (vector 0 )))) e-4))))(else (vector 0 )))))))(else (vector 0 )))))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))))(else (vector 0 )))))) -(define CompileExpr-Compiler-toCExpTreeC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((sc2 e-13)) (case (vector-ref sc2 0) ((0) (let ((e-17 (vector-ref sc2 1))) (let ((e-18 (vector-ref sc2 2))) (let ((e-19 (vector-ref sc2 3))) (let ((e-20 (vector-ref sc2 4))) (let ((fc (TT-Core-getLoc 'erased e-4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-getNewType arg-0 arg-1 fc (vector 0 e-2 fc) arg-2 e-5) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((alts (vector 1 (vector 0 e-17 e-18 e-19 e-20) e-14))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-conCases arg-0 arg-1 arg-2 alts) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-getDef arg-0 arg-1 arg-2 alts) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc7 1))) (let ((_-0 (vector 0 ))) ((CompileExpr-Compiler-case--10158-6277 arg-0 e-0 e-2 e-14 e-17 e-18 e-19 e-20 alts e-4 'erased arg-2 arg-1 fc _-0 e-7 e-8 e-9 (List-Data-isNil 'erased e-8)) eta-0)))))))))))))))))) (else (let ((e-3 (vector-ref sc4 1))) (vector 1 e-3)))))))))))))))))) ((1) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Unexpected DelayCase") eta-0))) ((2) (let ((e-26 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((fc (TT-Core-getLoc 'erased e-4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-constCases arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 ((CompileExpr-Compiler-getDef arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((alts (vector 1 (vector 2 e-26 e-27) e-14))) ((CompileExpr-Compiler-case--9315-6453 arg-0 e-0 e-14 e-26 e-27 alts e-4 e-2 'erased arg-2 arg-1 fc e-6 e-7 (List-Data-isNil 'erased e-6)) eta-0))))))))))))))))) (else (let ((e-29 (vector-ref sc2 1))) (CompileExpr-Compiler-toCExpTree arg-0 arg-1 arg-2 e-29)))))))) (else (lambda (eta-0) (vector 1 (vector 14 (TT-Core-getLoc 'erased e-4) (Strings-Prelude-C-43C-43 "Missing case tree in " (Name-Core-show_Show__Name arg-2))))))))))))) ((1) (let ((e-8 (vector-ref sc0 2))) (CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-8))) ((2) (let ((e-10 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 14 (FC-Core-emptyFC) e-10))))) (else (lambda (eta-0) (vector 1 (vector 14 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Impossible case encountered in " (Name-Core-show_Show__Name arg-2)))))))))) +(define CompileExpr-Compiler-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--10217-6285 arg-0 e-0 e-2 e-14 e-17 e-18 e-19 e-20 alts e-4 'erased arg-2 arg-1 fc _-0 e-7 e-8 e-9 (List-Data-isNil 'erased e-8)) eta-0)))))))))))))))))) (else (let ((e-3 (vector-ref sc4 1))) (vector 1 e-3)))))))))))))))))) ((1) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Unexpected DelayCase") eta-0))) ((2) (let ((e-26 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((fc (TT-Core-getLoc 'erased e-4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-constCases arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 ((CompileExpr-Compiler-getDef arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((alts (vector 1 (vector 2 e-26 e-27) e-14))) ((CompileExpr-Compiler-case--9374-6461 arg-0 e-0 e-14 e-26 e-27 alts e-4 e-2 'erased arg-2 arg-1 fc e-6 e-7 (List-Data-isNil 'erased e-6)) eta-0))))))))))))))))) (else (let ((e-29 (vector-ref sc2 1))) (CompileExpr-Compiler-toCExpTree arg-0 arg-1 arg-2 e-29)))))))) (else (lambda (eta-0) (vector 1 (vector 14 (TT-Core-getLoc 'erased e-4) (Strings-Prelude-C-43C-43 "Missing case tree in " (Name-Core-show_Show__Name arg-2))))))))))))) ((1) (let ((e-8 (vector-ref sc0 2))) (CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-8))) ((2) (let ((e-10 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 14 (FC-Core-emptyFC) e-10))))) (else (lambda (eta-0) (vector 1 (vector 14 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Impossible case encountered in " (Name-Core-show_Show__Name arg-2)))))))))) (define CompileExpr-Compiler-toCExpTree (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (let ((fc (TT-Core-getLoc 'erased e-4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree (vector 1 e-10 (vector 1 e-11 arg-0)) arg-1 arg-2 e-12) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 3 fc e-11 0 (vector 8 fc (vector 0 e-2 (TT-Core-getLoc 'erased e-4))) (vector 3 fc e-10 0 (vector 13 fc) e-6))))))))))))))(else (CompileExpr-Compiler-toCExpTreeC-39 arg-0 arg-1 arg-2 arg-3))))))(else (CompileExpr-Compiler-toCExpTreeC-39 arg-0 arg-1 arg-2 arg-3))))))))(else (CompileExpr-Compiler-toCExpTreeC-39 arg-0 arg-1 arg-2 arg-3)))))) -(define CompileExpr-Compiler-toCExpTm (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 e-4 e-2)))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((2) (let ((e-50 (vector-ref sc1 1))) (let ((e-51 (vector-ref sc1 2))) (let ((sc2 e-51)) (cond ((equal? sc2 0) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((0) (let ((e-54 (vector-ref sc3 1))) (let ((e-55 (vector-ref sc3 2))) (let ((sc4 e-54)) (case (vector-ref sc4 0) ((1) (let ((e-57 (vector-ref sc4 1))) (let ((e-58 (vector-ref sc4 2))) (let ((sc5 e-57)) (cond ((equal? sc5 "Prelude") (let ((sc6 e-58)) (case (vector-ref sc6 0) ((0) (let ((sc7 e-55)) (case (vector-ref sc7 0) ((1) (let ((e-60 (vector-ref sc7 1))) (let ((sc8 e-60)) (cond ((equal? sc8 "True") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50))))) ((equal? sc8 "False") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50))))) ((equal? sc8 "LT") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50))))) ((equal? sc8 "EQ") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50))))) ((equal? sc8 "GT") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50)))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 ))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 ))))))))))))))) ((3) (lambda (eta-0) (vector 1 (vector 5 e-7 e-9 (vector 0 ) (vector 0 )))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 4 e-7 (vector 1 e-7 e-5) (vector 0 )))))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 eta-1)) e-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 4 e-11 (vector 1 e-11 e-12) e-5)))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 e-18)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp (vector 1 e-17 arg-0) arg-1 arg-2 e-19) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 2 e-16 e-17 e-5))))))))) ((1) (let ((e-66 (vector-ref sc1 1))) (let ((e-67 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp (vector 1 e-17 arg-0) arg-1 arg-2 e-19) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-67) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Semiring-Algebra-branchZero 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (lambda () (CompileExpr-Core-shrinkCExp 'erased 'erased (vector 1 (vector 0 )) e-5)) (lambda () (vector 3 e-16 e-17 0 e-6 e-5)) e-66)))))))))))))))) ((2) (let ((e-72 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-72) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CompileExpr-Compiler-toCExp (vector 1 e-17 arg-0) arg-1 arg-2 e-19) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 5 e-16 (vector 1 "->") (vector 0 ) (vector 1 e-5 (vector 1 (vector 2 e-16 e-17 e-6) (vector 0 ))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 13 e-16))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-22) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-23) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-21 e-5 (vector 1 e-6 (vector 0 ))))))))))))))))))) ((5) (let ((e-28 (vector-ref sc0 4))) (CompileExpr-Compiler-toCExpTm arg-0 arg-1 arg-2 e-28))) ((6) (let ((e-30 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 13 e-30))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-37) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-34 e-5))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-41) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-39 e-5))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (let ((t (TT-Core-constTag e-44))) (CompileExpr-Compiler-case--8706-5282 arg-0 arg-1 e-44 e-43 arg-2 t (Prelude-C-61C-61_Eq__Int t 0)))))) ((10) (let ((e-46 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 13 e-46))))) (else (let ((e-49 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 5 e-49 (vector 1 "Type") (vector 0 ) (vector 0 )))))))))) -(define CompileExpr-Compiler-toCExp (lambda (arg-0 arg-1 arg-2 arg-3) (CompileExpr-Compiler-case--8709-5346 arg-0 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-3)))) -(define CompileExpr-Compiler-toCDef (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-0 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 (vector 14 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered undefined name " (Name-Core-show_Show__Name e-5)))))))))))) ((1) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree e-1 arg-0 arg-1 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-5))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (CompileExpr-Compiler-case--11702-7711 e-5 arg-2 arg-1 arg-0 (CompileExpr-Compiler-mkArgList 0 e-5)))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc2 1))) ((CompileExpr-Compiler-getCFTypes arg-0 (vector 0 ) e-8) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (vector 1 (vector 2 e-7 e-2 e-3)))))))))))))))))) ((4) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (CompileExpr-Compiler-case--11702-7843 e-8 e-9 arg-2 arg-1 arg-0 (CompileExpr-Compiler-mkArgList 0 e-8))))) ((5) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((nt (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-0) (vector 1 (Builtin-snd 'erased 'erased eta-0)))) e-12))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 e-10) e-11 nt)))))))) ((6) (let ((e-14 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 ) e-14 (vector 0 )))))) ((7) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-0 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 (vector 14 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered unimplemented hole " (Name-Core-show_Show__Name e-5)))))))))))) ((9) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-0 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 (vector 14 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered constrained hole " (Name-Core-show_Show__Name e-5)))))))))))) ((8) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-0 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 (vector 14 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered incomplete proof search " (Name-Core-show_Show__Name e-5))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-0 arg-1) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 3 (vector 14 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered uncompilable name " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x))))) (vector 0 e-5 arg-3))))))))))))))))) -(define CompileExpr-Compiler-numArgs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 2 e-5)))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-3 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-4))) ((CompileExpr-Compiler-case--7393-3734 'erased e-1 e-2 e-3 arg-1 e-4 _-0 (let ((sc3 e-4)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0)))) (else (vector 1 (vector 2 0))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 2 0)))))))) -(define CompileExpr-Compiler-nfToCFType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-36 (vector-ref sc0 2))) (let ((sc1 e-36)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 (vector 1 )))) ((12) (lambda (eta-0) (vector 1 (vector 2 )))) ((13) (lambda (eta-0) (vector 1 (vector 2 )))) ((14) (lambda (eta-0) (vector 1 (vector 2 )))) ((15) (lambda (eta-0) (vector 1 (vector 2 ))))(else (let ((sc1 arg-2)) (cond ((equal? sc1 1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-30 (vector-ref sc2 2))) (let ((sc3 e-30)) (case (vector-ref sc3 0) ((16) (lambda (eta-0) (vector 1 (vector 3 ))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((8) (let ((e-27 (vector-ref sc3 2))) (let ((sc4 e-27)) (case (vector-ref sc4 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(else (let ((sc4 arg-2)) (cond ((equal? sc4 1) (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 3))) (let ((e-15 (vector-ref sc5 4))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((2) (let ((e-19 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((3) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((e-5 (vector-ref sc6 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-6 (vector-ref sc7 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-11 (vector-ref sc12 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc12 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc10 1))) (let ((e-9 (vector-ref sc10 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc11 lamc-0)) (let ((e-16 (vector-ref sc11 1))) (let ((e-11 (vector-ref sc11 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc13 act-28)) (case (vector-ref sc13 0) ((0) (let ((e-18 (vector-ref sc13 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc13 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc10 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-11 (vector-ref sc12 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc12 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-12 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-14 (vector-ref sc12 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc12 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc4 0) (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-21 (vector-ref sc5 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-12 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-14 (vector-ref sc12 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc12 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(else (let ((sc3 arg-2)) (cond ((equal? sc3 1) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 3))) (let ((e-15 (vector-ref sc4 4))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(else (let ((sc3 arg-2)) (cond ((equal? sc3 1) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 3))) (let ((e-15 (vector-ref sc4 4))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(else (let ((sc2 arg-2)) (cond ((equal? sc2 1) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-33 (vector-ref sc2 2))) (let ((sc3 e-33)) (case (vector-ref sc3 0) ((16) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "String not allowed in a foreign struct") eta-0)))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((8) (let ((e-27 (vector-ref sc3 2))) (let ((sc4 e-27)) (case (vector-ref sc4 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(else (let ((sc4 arg-2)) (cond ((equal? sc4 1) (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 3))) (let ((e-15 (vector-ref sc5 4))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((2) (let ((e-19 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((3) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((e-5 (vector-ref sc6 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-6 (vector-ref sc7 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-11 (vector-ref sc12 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc12 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc10 1))) (let ((e-9 (vector-ref sc10 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc11 lamc-0)) (let ((e-16 (vector-ref sc11 1))) (let ((e-11 (vector-ref sc11 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc13 act-28)) (case (vector-ref sc13 0) ((0) (let ((e-18 (vector-ref sc13 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc13 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc10 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-11 (vector-ref sc12 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc12 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-12 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-14 (vector-ref sc12 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc12 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc4 0) (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-21 (vector-ref sc5 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-12 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-14 (vector-ref sc12 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc12 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(else (let ((sc3 arg-2)) (cond ((equal? sc3 1) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 3))) (let ((e-15 (vector-ref sc4 4))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(else (let ((sc3 arg-2)) (cond ((equal? sc3 1) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 3))) (let ((e-15 (vector-ref sc4 4))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(else (let ((sc2 arg-2)) (cond ((equal? sc2 1) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(else (let ((sc2 arg-2)) (cond ((equal? sc2 1) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(else (let ((sc1 arg-2)) (cond ((equal? sc1 1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 3))) (let ((e-15 (vector-ref sc2 4))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-19 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-16 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-18 (vector-ref sc10 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc10 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))))))))(else (let ((sc0 arg-2)) (cond ((equal? sc0 1) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-30 (vector-ref sc1 2))) (let ((sc2 e-30)) (case (vector-ref sc2 0) ((16) (lambda (eta-0) (vector 1 (vector 3 ))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(else (let ((sc3 arg-2)) (cond ((equal? sc3 1) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 3))) (let ((e-15 (vector-ref sc4 4))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(else (let ((sc2 arg-2)) (cond ((equal? sc2 1) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(else (let ((sc2 arg-2)) (cond ((equal? sc2 1) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(else (let ((sc1 arg-2)) (cond ((equal? sc1 1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 3))) (let ((e-15 (vector-ref sc2 4))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-19 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-16 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-18 (vector-ref sc10 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc10 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))) ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-33 (vector-ref sc1 2))) (let ((sc2 e-33)) (case (vector-ref sc2 0) ((16) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "String not allowed in a foreign struct") eta-0)))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(else (let ((sc3 arg-2)) (cond ((equal? sc3 1) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 3))) (let ((e-15 (vector-ref sc4 4))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(else (let ((sc2 arg-2)) (cond ((equal? sc2 1) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(else (let ((sc2 arg-2)) (cond ((equal? sc2 1) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(else (let ((sc1 arg-2)) (cond ((equal? sc1 1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 3))) (let ((e-15 (vector-ref sc2 4))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-19 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-16 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-18 (vector-ref sc10 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc10 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-27 (vector-ref sc0 2))) (let ((sc1 e-27)) (case (vector-ref sc1 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(else (let ((sc1 arg-2)) (cond ((equal? sc1 1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 3))) (let ((e-15 (vector-ref sc2 4))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-19 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-16 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-18 (vector-ref sc10 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc10 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(else (let ((sc0 arg-2)) (cond ((equal? sc0 1) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-12 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((sc2 e-14)) (case (vector-ref sc2 0) ((2) (let ((e-19 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-16 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-18 (vector-ref sc9 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc9 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-21 (vector-ref sc1 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc5 lamc-0)) (let ((e-12 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc6 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-14 (vector-ref sc7 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc7 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))))))) -(define CompileExpr-Compiler-natHackTree (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((10) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (CompileExpr-Compiler-case--8477-4704 'erased e-4 e-3 e-2 e-1 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (CompileExpr-Compiler-natBranch 'erased eta-0))) e-3)))))))(else arg-1))))) +(define CompileExpr-Compiler-toCExpTm (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 e-4 e-2)))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((2) (let ((e-50 (vector-ref sc1 1))) (let ((e-51 (vector-ref sc1 2))) (let ((sc2 e-51)) (cond ((equal? sc2 0) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((0) (let ((e-54 (vector-ref sc3 1))) (let ((e-55 (vector-ref sc3 2))) (let ((sc4 e-54)) (case (vector-ref sc4 0) ((1) (let ((e-57 (vector-ref sc4 1))) (let ((e-58 (vector-ref sc4 2))) (let ((sc5 e-57)) (cond ((equal? sc5 "Prelude") (let ((sc6 e-58)) (case (vector-ref sc6 0) ((0) (let ((sc7 e-55)) (case (vector-ref sc7 0) ((1) (let ((e-60 (vector-ref sc7 1))) (let ((sc8 e-60)) (cond ((equal? sc8 "True") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50))))) ((equal? sc8 "False") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50))))) ((equal? sc8 "LT") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50))))) ((equal? sc8 "EQ") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50))))) ((equal? sc8 "GT") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50)))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 ))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 ))))))))))))))) ((3) (lambda (eta-0) (vector 1 (vector 5 e-7 e-9 (vector 0 ) (vector 0 )))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 4 e-7 (vector 1 e-7 e-5) (vector 0 )))))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 eta-1)) e-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 4 e-11 (vector 1 e-11 e-12) e-5)))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 e-18)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp (vector 1 e-17 arg-0) arg-1 arg-2 e-19) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 2 e-16 e-17 e-5))))))))) ((1) (let ((e-66 (vector-ref sc1 1))) (let ((e-67 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp (vector 1 e-17 arg-0) arg-1 arg-2 e-19) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-67) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Semiring-Algebra-branchZero 'erased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (lambda () (CompileExpr-Core-shrinkCExp 'erased 'erased (vector 1 (vector 0 )) e-5)) (lambda () (vector 3 e-16 e-17 0 e-6 e-5)) e-66)))))))))))))))) ((2) (let ((e-72 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-72) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CompileExpr-Compiler-toCExp (vector 1 e-17 arg-0) arg-1 arg-2 e-19) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 5 e-16 (vector 1 "->") (vector 0 ) (vector 1 e-5 (vector 1 (vector 2 e-16 e-17 e-6) (vector 0 ))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 13 e-16))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-22) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-23) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-21 e-5 (vector 1 e-6 (vector 0 ))))))))))))))))))) ((5) (let ((e-28 (vector-ref sc0 4))) (CompileExpr-Compiler-toCExpTm arg-0 arg-1 arg-2 e-28))) ((6) (let ((e-30 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 13 e-30))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-37) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-34 e-5))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-41) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-39 e-5))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (let ((t (TT-Core-constTag e-44))) (CompileExpr-Compiler-case--8765-5290 arg-0 arg-1 e-44 e-43 arg-2 t (Prelude-C-61C-61_Eq__Int t 0)))))) ((10) (let ((e-46 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 13 e-46))))) (else (let ((e-49 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 5 e-49 (vector 1 "Type") (vector 0 ) (vector 0 )))))))))) +(define CompileExpr-Compiler-toCExp (lambda (arg-0 arg-1 arg-2 arg-3) (CompileExpr-Compiler-case--8768-5354 arg-0 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-3)))) +(define CompileExpr-Compiler-toCDef (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-0 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 (vector 14 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered undefined name " (Name-Core-show_Show__Name e-5)))))))))))) ((1) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree e-1 arg-0 arg-1 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-5))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (CompileExpr-Compiler-case--11761-7719 e-5 arg-2 arg-1 arg-0 (CompileExpr-Compiler-mkArgList 0 e-5)))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc2 1))) ((CompileExpr-Compiler-getCFTypes arg-0 (vector 0 ) e-8) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (vector 1 (vector 2 e-7 e-2 e-3)))))))))))))))))) ((4) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (CompileExpr-Compiler-case--11761-7851 e-8 e-9 arg-2 arg-1 arg-0 (CompileExpr-Compiler-mkArgList 0 e-8))))) ((5) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((nt (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-0) (vector 1 (Builtin-snd 'erased 'erased eta-0)))) e-12))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 e-10) e-11 nt)))))))) ((6) (let ((e-14 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 ) e-14 (vector 0 )))))) ((7) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-0 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 (vector 14 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered unimplemented hole " (Name-Core-show_Show__Name e-5)))))))))))) ((9) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-0 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 (vector 14 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered constrained hole " (Name-Core-show_Show__Name e-5)))))))))))) ((8) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-0 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 (vector 14 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered incomplete proof search " (Name-Core-show_Show__Name e-5))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-0 arg-1) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 3 (vector 14 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered uncompilable name " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x))))) (vector 0 e-5 arg-3))))))))))))))))) +(define CompileExpr-Compiler-numArgs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 2 e-5)))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-3 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-4))) ((CompileExpr-Compiler-case--7452-3742 'erased e-1 e-2 e-3 arg-1 e-4 _-0 (let ((sc3 e-4)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0)))) (else (vector 1 (vector 2 0))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 2 0)))))))) +(define CompileExpr-Compiler-nfToCFType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-36 (vector-ref sc0 2))) (let ((sc1 e-36)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 (vector 1 )))) ((12) (lambda (eta-0) (vector 1 (vector 2 )))) ((13) (lambda (eta-0) (vector 1 (vector 2 )))) ((14) (lambda (eta-0) (vector 1 (vector 2 )))) ((15) (lambda (eta-0) (vector 1 (vector 2 ))))(else (let ((sc1 arg-2)) (cond ((equal? sc1 1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-30 (vector-ref sc2 2))) (let ((sc3 e-30)) (case (vector-ref sc3 0) ((16) (lambda (eta-0) (vector 1 (vector 3 ))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((8) (let ((e-27 (vector-ref sc3 2))) (let ((sc4 e-27)) (case (vector-ref sc4 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(else (let ((sc4 arg-2)) (cond ((equal? sc4 1) (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 3))) (let ((e-15 (vector-ref sc5 4))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((2) (let ((e-19 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((3) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((e-5 (vector-ref sc6 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-6 (vector-ref sc7 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-11 (vector-ref sc12 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc12 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc10 1))) (let ((e-9 (vector-ref sc10 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc11 lamc-0)) (let ((e-16 (vector-ref sc11 1))) (let ((e-11 (vector-ref sc11 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc13 act-28)) (case (vector-ref sc13 0) ((0) (let ((e-18 (vector-ref sc13 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc13 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc10 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-11 (vector-ref sc12 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc12 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-12 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-14 (vector-ref sc12 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc12 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc4 0) (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-21 (vector-ref sc5 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-12 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-14 (vector-ref sc12 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc12 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(else (let ((sc3 arg-2)) (cond ((equal? sc3 1) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 3))) (let ((e-15 (vector-ref sc4 4))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(else (let ((sc3 arg-2)) (cond ((equal? sc3 1) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 3))) (let ((e-15 (vector-ref sc4 4))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(else (let ((sc2 arg-2)) (cond ((equal? sc2 1) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-33 (vector-ref sc2 2))) (let ((sc3 e-33)) (case (vector-ref sc3 0) ((16) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "String not allowed in a foreign struct") eta-0)))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((8) (let ((e-27 (vector-ref sc3 2))) (let ((sc4 e-27)) (case (vector-ref sc4 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(else (let ((sc4 arg-2)) (cond ((equal? sc4 1) (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 3))) (let ((e-15 (vector-ref sc5 4))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((2) (let ((e-19 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((3) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((e-5 (vector-ref sc6 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-6 (vector-ref sc7 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-11 (vector-ref sc12 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc12 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc10 1))) (let ((e-9 (vector-ref sc10 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc11 lamc-0)) (let ((e-16 (vector-ref sc11 1))) (let ((e-11 (vector-ref sc11 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc13 act-28)) (case (vector-ref sc13 0) ((0) (let ((e-18 (vector-ref sc13 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc13 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc10 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-11 (vector-ref sc12 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc12 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-12 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-14 (vector-ref sc12 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc12 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc4 0) (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-21 (vector-ref sc5 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-12 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-14 (vector-ref sc12 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc12 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(else (let ((sc3 arg-2)) (cond ((equal? sc3 1) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 3))) (let ((e-15 (vector-ref sc4 4))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(else (let ((sc3 arg-2)) (cond ((equal? sc3 1) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 3))) (let ((e-15 (vector-ref sc4 4))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(else (let ((sc2 arg-2)) (cond ((equal? sc2 1) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(else (let ((sc2 arg-2)) (cond ((equal? sc2 1) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(else (let ((sc1 arg-2)) (cond ((equal? sc1 1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 3))) (let ((e-15 (vector-ref sc2 4))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-19 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-16 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-18 (vector-ref sc10 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc10 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))))))))(else (let ((sc0 arg-2)) (cond ((equal? sc0 1) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-30 (vector-ref sc1 2))) (let ((sc2 e-30)) (case (vector-ref sc2 0) ((16) (lambda (eta-0) (vector 1 (vector 3 ))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(else (let ((sc3 arg-2)) (cond ((equal? sc3 1) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 3))) (let ((e-15 (vector-ref sc4 4))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(else (let ((sc2 arg-2)) (cond ((equal? sc2 1) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(else (let ((sc2 arg-2)) (cond ((equal? sc2 1) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(else (let ((sc1 arg-2)) (cond ((equal? sc1 1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 3))) (let ((e-15 (vector-ref sc2 4))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-19 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-16 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-18 (vector-ref sc10 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc10 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))) ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-33 (vector-ref sc1 2))) (let ((sc2 e-33)) (case (vector-ref sc2 0) ((16) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "String not allowed in a foreign struct") eta-0)))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(else (let ((sc3 arg-2)) (cond ((equal? sc3 1) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 3))) (let ((e-15 (vector-ref sc4 4))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(else (let ((sc2 arg-2)) (cond ((equal? sc2 1) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(else (let ((sc2 arg-2)) (cond ((equal? sc2 1) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(else (let ((sc1 arg-2)) (cond ((equal? sc1 1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 3))) (let ((e-15 (vector-ref sc2 4))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-19 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-16 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-18 (vector-ref sc10 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc10 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-27 (vector-ref sc0 2))) (let ((sc1 e-27)) (case (vector-ref sc1 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(else (let ((sc1 arg-2)) (cond ((equal? sc1 1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 3))) (let ((e-15 (vector-ref sc2 4))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-19 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-16 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-18 (vector-ref sc10 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc10 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(else (let ((sc0 arg-2)) (cond ((equal? sc0 1) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-12 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((sc2 e-14)) (case (vector-ref sc2 0) ((2) (let ((e-19 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (vector 10 e-6 e-8)))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-16 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-18 (vector-ref sc9 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc9 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-21 (vector-ref sc1 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc5 lamc-0)) (let ((e-12 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc6 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-14 (vector-ref sc7 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc7 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) e-6 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))))))) +(define CompileExpr-Compiler-natHackTree (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((10) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (CompileExpr-Compiler-case--8536-4712 'erased e-4 e-3 e-2 e-1 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (CompileExpr-Compiler-natBranch 'erased eta-0))) e-3)))))))(else arg-1))))) (define CompileExpr-Compiler-natHack (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((5) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((sc2 e-13)) (case (vector-ref sc2 0) ((1) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((sc3 e-16)) (cond ((equal? sc3 "Prelude") (let ((sc4 e-17)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((1) (let ((e-19 (vector-ref sc5 1))) (let ((sc6 e-19)) (cond ((equal? sc6 "Z") (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (vector 12 e-1 (vector 1 0)))(else arg-1)))) ((equal? sc6 "S") (let ((sc7 e-4)) (case (vector-ref sc7 0) ((1) (let ((e-22 (vector-ref sc7 1))) (let ((e-23 (vector-ref sc7 2))) (let ((sc8 e-23)) (case (vector-ref sc8 0) ((0) (vector 4 e-1 (vector 1 e-1 (vector 1 "prim__add_Integer")) (vector 1 (vector 12 e-1 (vector 1 1)) (vector 1 e-22 (vector 0 )))))(else arg-1))))))(else arg-1))))(else arg-1)))))(else arg-1))))(else arg-1))))(else arg-1))))))(else arg-1))))))(else arg-1))))))) ((4) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((1) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((0) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (let ((sc3 e-28)) (case (vector-ref sc3 0) ((1) (let ((e-31 (vector-ref sc3 1))) (let ((e-32 (vector-ref sc3 2))) (let ((sc4 e-31)) (cond ((equal? sc4 "Prelude") (let ((sc5 e-32)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((1) (let ((e-34 (vector-ref sc6 1))) (let ((sc7 e-34)) (cond ((equal? sc7 "natToInteger") (let ((sc8 e-8)) (case (vector-ref sc8 0) ((1) (let ((e-36 (vector-ref sc8 1))) (let ((e-37 (vector-ref sc8 2))) (let ((sc9 e-37)) (case (vector-ref sc9 0) ((0) e-36)(else arg-1))))))(else arg-1)))) ((equal? sc7 "integerToNat") (let ((sc8 e-8)) (case (vector-ref sc8 0) ((1) (let ((e-40 (vector-ref sc8 1))) (let ((e-41 (vector-ref sc8 2))) (let ((sc9 e-41)) (case (vector-ref sc9 0) ((0) e-40)(else arg-1))))))(else arg-1)))) ((equal? sc7 "plus") (vector 4 e-6 (vector 1 e-26 (vector 1 "prim__add_Integer")) e-8)) ((equal? sc7 "mult") (vector 4 e-6 (vector 1 e-26 (vector 1 "prim__mul_Integer")) e-8))(else arg-1)))))(else arg-1))))(else arg-1)))) ((equal? sc4 "Nat") (let ((sc5 e-32)) (case (vector-ref sc5 0) ((1) (let ((e-44 (vector-ref sc5 1))) (let ((e-45 (vector-ref sc5 2))) (let ((sc6 e-44)) (cond ((equal? sc6 "Data") (let ((sc7 e-45)) (case (vector-ref sc7 0) ((0) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((1) (let ((e-47 (vector-ref sc8 1))) (let ((sc9 e-47)) (cond ((equal? sc9 "minus") (vector 4 e-6 (vector 1 e-26 (vector 1 "prim__sub_Integer")) e-8))(else arg-1)))))(else arg-1))))(else arg-1))))(else arg-1))))))(else arg-1))))(else arg-1))))))(else arg-1))))))(else arg-1))))))(else arg-1))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (vector 2 e-10 e-11 (CompileExpr-Compiler-natHack 'erased e-12))))))(else arg-1))))) (define CompileExpr-Compiler-natBranch (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (CompileExpr-Compiler-isNatCon e-1))))) -(define CompileExpr-Compiler-mkForgetDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((CompileExpr-Compiler-case--12190-8093 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-18 (vector-ref sc3 19))) e-18))) ext-0)))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Trying to compile unknown name " (Name-Core-show_Show__Name arg-1))) ext-0)))))))))))))))) -(define CompileExpr-Compiler-mkDropSubst (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-case--8054-4331 e-2 e-3 arg-2 arg-1 arg-0 (CompileExpr-Compiler-mkDropSubst (Prelude-C-43_Num__Nat (+ 1 0) arg-0) arg-1 arg-2 e-3))))))))) -(define CompileExpr-Compiler-mkArgList (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 (vector 0 ) (vector 0 )))(else (let ((e-0 (- arg-1 1))) (CompileExpr-Compiler-case--10572-6607 e-0 arg-0 (CompileExpr-Compiler-mkArgList (b+ arg-0 1 63) e-0)))))))) +(define CompileExpr-Compiler-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--12249-8101 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-18 (vector-ref sc3 19))) e-18))) ext-0)))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Trying to compile unknown name " (Name-Core-show_Show__Name arg-1))) ext-0)))))))))))))))) +(define CompileExpr-Compiler-mkDropSubst (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-case--8113-4339 e-2 e-3 arg-2 arg-1 arg-0 (CompileExpr-Compiler-mkDropSubst (Prelude-C-43_Num__Nat (+ 1 0) arg-0) arg-1 arg-2 e-3))))))))) +(define CompileExpr-Compiler-mkArgList (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 (vector 0 ) (vector 0 )))(else (let ((e-0 (- arg-1 1))) (CompileExpr-Compiler-case--10631-6615 e-0 arg-0 (CompileExpr-Compiler-mkArgList (b+ arg-0 1 63) e-0)))))))) (define CompileExpr-Compiler-isNatCon (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-3)) (cond ((equal? sc2 "Prelude") (let ((sc3 e-4)) (case (vector-ref sc3 0) ((0) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((1) (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (cond ((equal? sc5 "Z") 0) ((equal? sc5 "S") 0)(else 1)))))(else 1))))(else 1))))(else 1))))))(else 1))))))(else 1))))) (define CompileExpr-Compiler-getZBranch (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (CompileExpr-Compiler-tryZBranch 'erased e-2) (CompileExpr-Compiler-getZBranch 'erased e-3))))))))) (define CompileExpr-Compiler-getSBranch (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (CompileExpr-Compiler-trySBranch 'erased arg-1 e-2) (CompileExpr-Compiler-getSBranch 'erased arg-1 e-3))))))))) -(define CompileExpr-Compiler-getPArgs (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-0 arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((2) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((e-6 (vector-ref sc1 5))) (let ((_-0 (vector 2 e-1 e-2 e-3 e-4 e-6))) ((CompileExpr-Compiler-case--10637-6663 arg-1 arg-0 e-2 e-3 e-4 e-6 e-1 _-0 (List-Data-reverse 'erased e-6)) ext-0))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-5) "Badly formed struct type") ext-0))))))))))) -(define CompileExpr-Compiler-getNewType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 (vector 0 )))) ((0) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-lookupDefExact e-7 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((5) (let ((e-4 (vector-ref sc5 3))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((sc7 e-13)) (case (vector-ref sc7 0) ((0) (let ((e-14 (vector-ref sc7 2))) (let ((env (CompileExpr-Compiler-n--9306-5883-mkSubst e-9 arg-0 e-10 e-8 e-7 e-3 arg-4 arg-3 arg-2 arg-1 'erased 0 arg-3 e-14 e-9))) (let ((act-26 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased e-9 arg-0) arg-1 arg-4 e-10) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-16 (vector-ref sc8 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc8 1))) (vector 1 (vector 1 (CompileExpr-Core-substs e-9 arg-0 env e-16)))))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))))))))))))(else (CompileExpr-Compiler-getNewType arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))) +(define CompileExpr-Compiler-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--10696-6671 arg-1 arg-0 e-2 e-3 e-4 e-6 e-1 _-0 (List-Data-reverse 'erased e-6)) ext-0))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-5) "Badly formed struct type") ext-0))))))))))) +(define CompileExpr-Compiler-getNewType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 (vector 0 )))) ((0) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-lookupDefExact e-7 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((5) (let ((e-4 (vector-ref sc5 3))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((sc7 e-13)) (case (vector-ref sc7 0) ((0) (let ((e-14 (vector-ref sc7 2))) (let ((env (CompileExpr-Compiler-n--9365-5891-mkSubst e-9 arg-0 e-10 e-8 e-7 e-3 arg-4 arg-3 arg-2 arg-1 'erased 0 arg-3 e-14 e-9))) (let ((act-26 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased e-9 arg-0) arg-1 arg-4 e-10) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-16 (vector-ref sc8 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc8 1))) (vector 1 (vector 1 (CompileExpr-Core-substs e-9 arg-0 env e-16)))))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))))))))))))(else (CompileExpr-Compiler-getNewType arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))) (define CompileExpr-Compiler-getNArgs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "IORes") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 6 e-4))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2)))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))) ((equal? sc2 "Ptr") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 3 ))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))) ((equal? sc2 "AnyPtr") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 3 ))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))) ((equal? sc2 "GCPtr") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 4 ))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))) ((equal? sc2 "GCAnyPtr") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 4 ))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))) ((equal? sc2 "Buffer") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 5 ))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))) ((equal? sc2 "Unit") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))) ((equal? sc2 "Struct") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-21)) (case (vector-ref sc4 0) ((1) (let ((e-23 (vector-ref sc4 1))) (let ((e-24 (vector-ref sc4 2))) (let ((sc5 e-24)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-0 e-20) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc6 1))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((8) (let ((e-3 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((6) (let ((e-6 (vector-ref sc8 1))) (let ((act-25 (CompileExpr-Compiler-getFieldArgs arg-0 e-23 eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (vector 1 (vector 1 e-6 e-7)))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-5) "Unknown name for struct") eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-5) "Unknown name for struct") eta-0)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2)))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2)))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2)))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2)))))))) (define CompileExpr-Compiler-getFieldArgs (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-0 arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 5))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((0) (let ((act-25 (CompileExpr-Compiler-getFieldArgs arg-0 e-12 ext-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc6 1))) (let ((act-26 (CompileExpr-Compiler-getPArgs arg-0 e-10 ext-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-14 (vector-ref sc7 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc7 1))) (let ((sc8 e-14)) (let ((e-16 (vector-ref sc8 1))) (let ((e-15 (vector-ref sc8 2))) (vector 1 (vector 1 (vector 0 e-16 e-15) e-13))))))))))))))))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-5) "Badly formed struct type") ext-0))))))))))) (define CompileExpr-Compiler-getDef (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-6)))))))))) ((2) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree arg-0 arg-1 arg-2 e-8) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 1 e-5)))))))))(else (CompileExpr-Compiler-getDef arg-0 arg-1 arg-2 e-3)))))))(else (CompileExpr-Compiler-getDef arg-0 arg-1 arg-2 e-3))))))))))) (define CompileExpr-Compiler-getCFTypes (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 1 e-8) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 (((e-4 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) ((CompileExpr-Compiler-getCFTypes arg-0 (vector 1 e-5 arg-1) e-10) eta-0)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-nfToCFType arg-0 (Value-Core-getLoc 'erased arg-2) 1 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (List-Data-reverse 'erased arg-1) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-nfToCFType arg-0 (Value-Core-getLoc 'erased arg-2) 1 arg-2) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 0 (List-Data-reverse 'erased arg-1) e-5))))))))))))) -(define CompileExpr-Compiler-expandToArity (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((13) (let ((e-6 (vector-ref sc0 1))) (vector 13 e-6)))(else (let ((sc0 arg-1)) (cond ((equal? sc0 0) (CompileExpr-Compiler-n--7721-4036-applyAll arg-0 arg-3 arg-2 arg-2 arg-3))(else (let ((e-1 (- arg-1 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (CompileExpr-Compiler-expandToArity arg-0 e-1 (CompileExpr-Compiler-n--7721-4058-addArg arg-0 e-1 e-3 e-4 arg-2 arg-2 e-3) e-4))))(else (let ((sc0 arg-3)) (CompileExpr-Compiler-etaExpand arg-0 0 arg-1 arg-2 (vector 0 ))))))))))))))) -(define CompileExpr-Compiler-etaExpand (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (CompileExpr-Compiler-n--7625-3939-mkApp arg-0 arg-4 arg-3 arg-1 arg-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-n--7625-3938-mkLocal arg-0 arg-4 arg-3 arg-1 (CompileExpr-Core-getFC 'erased arg-3) eta-0)) (List-Data-reverse 'erased arg-4))))(else (let ((e-0 (- arg-2 1))) (vector 2 (CompileExpr-Core-getFC 'erased arg-3) (vector 2 "eta" arg-1) (CompileExpr-Compiler-etaExpand (vector 1 (vector 2 "eta" arg-1) arg-0) (b+ arg-1 1 63) e-0 (CompileExpr-Core-weaken_Weaken__CExp (vector 2 "eta" arg-1) arg-0 arg-3) (vector 1 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-weakenVar 'erased 'erased eta-0)) arg-4)))))))))) +(define CompileExpr-Compiler-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--7780-4044-applyAll arg-0 arg-3 arg-2 arg-2 arg-3))(else (let ((e-1 (- arg-1 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (CompileExpr-Compiler-expandToArity arg-0 e-1 (CompileExpr-Compiler-n--7780-4066-addArg arg-0 e-1 e-3 e-4 arg-2 arg-2 e-3) e-4))))(else (let ((sc0 arg-3)) (CompileExpr-Compiler-etaExpand arg-0 0 arg-1 arg-2 (vector 0 ))))))))))))))) +(define CompileExpr-Compiler-etaExpand (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (CompileExpr-Compiler-n--7684-3947-mkApp arg-0 arg-4 arg-3 arg-1 arg-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-n--7684-3946-mkLocal arg-0 arg-4 arg-3 arg-1 (CompileExpr-Core-getFC 'erased arg-3) eta-0)) (List-Data-reverse 'erased arg-4))))(else (let ((e-0 (- arg-2 1))) (vector 2 (CompileExpr-Core-getFC 'erased arg-3) (vector 2 "eta" arg-1) (CompileExpr-Compiler-etaExpand (vector 1 (vector 2 "eta" arg-1) arg-0) (b+ arg-1 1 63) e-0 (CompileExpr-Core-weaken_Weaken__CExp (vector 2 "eta" arg-1) arg-0 arg-3) (vector 1 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-weakenVar 'erased 'erased eta-0)) arg-4)))))))))) (define CompileExpr-Compiler-eraseConArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((fnC-39 (CompileExpr-Compiler-expandToArity arg-0 arg-1 arg-3 arg-4))) (CompileExpr-Compiler-dropPos 'erased arg-2 fnC-39)))) -(define CompileExpr-Compiler-dropPos (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (vector 2 e-1 e-2 (CompileExpr-Compiler-dropPos 'erased arg-1 e-3)))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 5 e-5 e-6 e-7 (CompileExpr-Compiler-n--7942-4223-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--8001-4231-drop 'erased e-8 e-7 e-6 e-5 arg-1 0 e-8)))))))(else arg-2))))) (define CompileExpr-Compiler-constCases (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((9) (CompileExpr-Compiler-constCases arg-0 arg-1 arg-2 e-3))(else (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree arg-0 arg-1 arg-2 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 ((CompileExpr-Compiler-constCases arg-0 arg-1 arg-2 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-5 e-7) e-8)))))))))))))))))))(else (CompileExpr-Compiler-constCases arg-0 arg-1 arg-2 e-3))))))))))) -(define CompileExpr-Compiler-conCases (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-5 (let ((sc3 e-9)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc3 1))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((CompileExpr-Compiler-case--9361-5554 e-7 arg-0 e-8 e-6 e-5 e-3 arg-2 arg-1 e-9 e-1 _-0 (let ((sc5 e-1)) (let ((e-17 (vector-ref sc5 18))) e-17))) eta-0)))) (else (let ((act-26 ((Context-Core-getFullName arg-1 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased e-7 arg-0) arg-1 arg-2 e-8) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (let ((act-28 ((CompileExpr-Compiler-conCases arg-0 arg-1 arg-2 e-3) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 0 e-11 (vector 0 ) e-7 e-12) e-13))))))))))))))))))))))))))))))))))))(else (CompileExpr-Compiler-conCases arg-0 arg-1 arg-2 e-3))))))))))) +(define CompileExpr-Compiler-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--9420-5562 e-7 arg-0 e-8 e-6 e-5 e-3 arg-2 arg-1 e-9 e-1 _-0 (let ((sc5 e-1)) (let ((e-17 (vector-ref sc5 18))) e-17))) eta-0)))) (else (let ((act-26 ((Context-Core-getFullName arg-1 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased e-7 arg-0) arg-1 arg-2 e-8) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (let ((act-28 ((CompileExpr-Compiler-conCases arg-0 arg-1 arg-2 e-3) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 0 e-11 (vector 0 ) e-7 e-12) e-13))))))))))))))))))))))))))))))))))))(else (CompileExpr-Compiler-conCases arg-0 arg-1 arg-2 e-3))))))))))) (define CompileExpr-Compiler-compileExp (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((CompileExpr-Compiler-toCExp (vector 0 ) arg-0 (vector 1 "main") arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5)))))))) -(define CompileExpr-Compiler-compileDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Def arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Def arg-5888 arg-5889)))) (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((CompileExpr-Compiler-toCDef arg-0 arg-1 (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2)) e-7) ext-0)))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Context-Core-setCompiled arg-0 arg-1 e-7 ext-0)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Trying to compile unknown name " (Name-Core-show_Show__Name arg-1))) ext-0)))))))))))))))) -(define CompileExpr-Compiler-boolHackTree (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((10) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((x (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Prelude-pure_Applicative__Maybe 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3503 arg-3505)))))) (lambda (eta-0) (CompileExpr-Compiler-n--8553-4765-toBool 'erased e-4 e-3 e-2 e-1 eta-0)) e-3))) (let ((sc1 x)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 11 e-1 e-2 e-5 e-4))) (else (vector 10 e-1 e-2 e-3 e-4))))))))))(else arg-1))))) -(define CompileExpr-Compiler-applyNewType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((fnC-39 (CompileExpr-Compiler-expandToArity arg-0 arg-1 arg-3 arg-4))) (CompileExpr-Compiler-n--7824-4118-keepArg arg-0 arg-4 arg-3 arg-2 arg-1 'erased fnC-39)))) -(define Directory-Core-case--6179-1188 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Directory-Core-n--6179-1061-findIpkgFileC-39 e-1 "" eta-0))) act-24)))) (else (lambda (eta-0) (vector 0 ))))))) -(define Directory-Core-case--6217-1135 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (Directory-Core-n--6179-1061-findIpkgFileC-39 e-5 (Path-Utils-C-60C-47C-62 e-6 arg-0) eta-0))))))) (else (lambda (eta-0) (vector 0 ))))))) -(define Directory-Core-case--6192-1097 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 e-1 arg-0)))))) (else (Directory-Core-case--6217-1135 arg-0 arg-1 arg-2 arg-3 (Path-Utils-splitParent arg-1))))))) -(define Directory-Core-case--6180-1075 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-2))) (Directory-Core-case--6192-1097 arg-0 arg-1 e-2 _-0 (List-Data-find 'erased (lambda (f) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (Path-Utils-extension f) (vector 1 "ipkg"))) e-2))))) (else (lambda (eta-0) (vector 0 ))))))) -(define Directory-Core-case--6124-1021 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Directory-Core-getEntries e-2 eta-0))) (let ((act-25 ((Directory-System-closeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-0))) (vector 1 act-24)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5)))))))) -(define Directory-Core-case--6078-977 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Directory-Core-getEntries arg-0 eta-0))) (vector 1 e-2 act-24))))) (else (lambda (eta-0) (vector 0 ))))))) -(define Directory-Core-case--6010-910 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0)))))))) -(define Directory-Core-case--5938-859 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 (Path-Utils-C-60C-47C-62 (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2)) arg-5) e-5) eta-0)))))))) -(define Directory-Core-case--5868-817 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Directory-System-createDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0))(else (lambda (eta-0) arg-2))))))(else (lambda (eta-0) arg-2)))))) -(define Directory-Core-case--5868-793 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Directory-Core-mkdirAll e-1))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Directory-Core-case--5846-772 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (let ((exist 1)) ((Directory-Core-case--5868-793 arg-0 exist (Path-Utils-parent arg-0)) eta-0)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) ((Directory-System-createDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0) eta-0))(else act-24)))))(else act-24)))))))))) -(define Directory-Core-case--5839-750 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (Directory-Core-dirExists arg-0 eta-0))) (let ((sc1 act-24)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) (else (let ((act-25 (let ((exist 1)) ((Directory-Core-case--5868-793 arg-0 exist (Path-Utils-parent arg-0)) eta-0)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) ((Directory-System-createDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0) eta-0))(else act-25)))))(else act-25)))))))))))))) -(define Directory-Core-case--5795-714 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Directory-System-closeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-0))) 0)))) (else (lambda (eta-0) 1)))))) -(define Directory-Core-case--5708-651 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 55 (Strings-Prelude-C-43C-43 "Source file " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String arg-0) (Strings-Prelude-C-43C-43 " is not in the source directory " (Prelude-show_Show__String (Path-Utils-C-60C-47C-62 arg-2 arg-3)))))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Path-Utils-show_Show__Body eta-1)) (List-Data-reverse 'erased (let ((sc1 (Path-Utils-parse (Path-Utils-C-60C-46C-62 e-2 "")))) (let ((e-4 (vector-ref sc1 3))) e-4)))))))))))) -(define Directory-Core-case--5708-629 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Path-Utils-C-60C-47C-62 arg-2 arg-3)) (else arg-3))))) -(define Directory-Core-case--5614-567 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 51 arg-1 arg-0) eta-0))))))) -(define Directory-Core-case--5541-497 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 51 arg-1 arg-0))))))))) -(define Directory-Core-case--5480-442 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't find library " arg-0)) eta-0))))))) -(define Directory-Core-case--5385-356 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-4 e-5) eta-0)))))))) -(define Directory-Core-case--5364-332 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-1) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (vector 1 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-1 e-6) eta-0))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't find data file " (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 " in any of " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) arg-3))))) eta-0))))))) -(define Directory-Core-case--5310-282 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (vector 1 (vector 1 arg-0))))))))) (else (Directory-Core-firstAvailable arg-1)))))) -(define Directory-Core-n--6179-1061-findIpkgFileC-39 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Directory-Core-dirEntries arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-2))) ((Directory-Core-case--6192-1097 arg-1 arg-0 e-2 _-0 (List-Data-find 'erased (lambda (f) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (Path-Utils-extension f) (vector 1 "ipkg"))) e-2)) ext-0)))) (else (vector 0 ))))))) -(define Directory-Core-readDataFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-getDirs arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((fs (Prelude-map_Functor__List 'erased 'erased (lambda (p) (Path-Utils-C-60C-47C-62 p arg-1)) (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 8))) e-7))))) (let ((act-25 ((Directory-Core-firstAvailable fs) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-1) ext-0))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-1 e-8) ext-0)))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't find data file " (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " in any of " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) fs))))) ext-0))))))))))))))))) -(define Directory-Core-pathToNS (lambda (arg-0 arg-1 arg-2) (let ((sdir (Maybe-Data-fromMaybe 'erased (lambda () "") arg-1))) (let ((base (Directory-Core-case--5708-629 arg-2 arg-1 arg-0 sdir (Path-Utils-isAbsolute arg-2)))) (Directory-Core-case--5708-651 arg-2 arg-1 arg-0 sdir base (Path-Utils-stripPrefix base arg-2)))))) +(define CompileExpr-Compiler-compileDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Def arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Def arg-6292 arg-6293)))) (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((CompileExpr-Compiler-toCDef arg-0 arg-1 (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2)) e-7) ext-0)))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Context-Core-setCompiled arg-0 arg-1 e-7 ext-0)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Trying to compile unknown name " (Name-Core-show_Show__Name arg-1))) ext-0)))))))))))))))) +(define CompileExpr-Compiler-boolHackTree (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((10) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((x (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Prelude-pure_Applicative__Maybe 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3511 arg-3513)))))) (lambda (eta-0) (CompileExpr-Compiler-n--8612-4773-toBool 'erased e-4 e-3 e-2 e-1 eta-0)) e-3))) (let ((sc1 x)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 11 e-1 e-2 e-5 e-4))) (else (vector 10 e-1 e-2 e-3 e-4))))))))))(else arg-1))))) +(define CompileExpr-Compiler-applyNewType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((fnC-39 (CompileExpr-Compiler-expandToArity arg-0 arg-1 arg-3 arg-4))) (CompileExpr-Compiler-n--7883-4126-keepArg arg-0 arg-4 arg-3 arg-2 arg-1 'erased fnC-39)))) +(define Directory-Core-case--6221-1196 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Directory-Core-n--6221-1069-findIpkgFileC-39 e-1 "" eta-0))) act-24)))) (else (lambda (eta-0) (vector 0 ))))))) +(define Directory-Core-case--6259-1143 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (Directory-Core-n--6221-1069-findIpkgFileC-39 e-5 (Path-Utils-C-60C-47C-62 e-6 arg-0) eta-0))))))) (else (lambda (eta-0) (vector 0 ))))))) +(define Directory-Core-case--6234-1105 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 e-1 arg-0)))))) (else (Directory-Core-case--6259-1143 arg-0 arg-1 arg-2 arg-3 (Path-Utils-splitParent arg-1))))))) +(define Directory-Core-case--6222-1083 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-2))) (Directory-Core-case--6234-1105 arg-0 arg-1 e-2 _-0 (List-Data-find 'erased (lambda (f) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (Path-Utils-extension f) (vector 1 "ipkg"))) e-2))))) (else (lambda (eta-0) (vector 0 ))))))) +(define Directory-Core-case--6166-1029 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Directory-Core-getEntries e-2 eta-0))) (let ((act-25 ((Directory-System-closeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-2) eta-0))) (vector 1 act-24)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5)))))))) +(define Directory-Core-case--6120-985 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Directory-Core-getEntries arg-0 eta-0))) (vector 1 e-2 act-24))))) (else (lambda (eta-0) (vector 0 ))))))) +(define Directory-Core-case--6052-918 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0)))))))) +(define Directory-Core-case--5980-867 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 (Path-Utils-C-60C-47C-62 (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2)) arg-5) e-5) eta-0)))))))) +(define Directory-Core-case--5910-825 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Directory-System-createDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-0))(else (lambda (eta-0) arg-2))))))(else (lambda (eta-0) arg-2)))))) +(define Directory-Core-case--5910-801 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Directory-Core-mkdirAll e-1))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Directory-Core-case--5888-780 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (let ((exist 1)) ((Directory-Core-case--5910-801 arg-0 exist (Path-Utils-parent arg-0)) eta-0)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) ((Directory-System-createDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-0) eta-0))(else act-24)))))(else act-24)))))))))) +(define Directory-Core-case--5881-758 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (Directory-Core-dirExists arg-0 eta-0))) (let ((sc1 act-24)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) (else (let ((act-25 (let ((exist 1)) ((Directory-Core-case--5910-801 arg-0 exist (Path-Utils-parent arg-0)) eta-0)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) ((Directory-System-createDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-26 (arg-3672 eta-1))) ((arg-3673 act-26) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-0) eta-0))(else act-25)))))(else act-25)))))))))))))) +(define Directory-Core-case--5837-722 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Directory-System-closeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-2) eta-0))) 0)))) (else (lambda (eta-0) 1)))))) +(define Directory-Core-case--5750-659 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 55 (Strings-Prelude-C-43C-43 "Source file " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String arg-0) (Strings-Prelude-C-43C-43 " is not in the source directory " (Prelude-show_Show__String (Path-Utils-C-60C-47C-62 arg-2 arg-3)))))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Path-Utils-show_Show__Body eta-1)) (List-Data-reverse 'erased (let ((sc1 (Path-Utils-parse (Path-Utils-C-60C-46C-62 e-2 "")))) (let ((e-4 (vector-ref sc1 3))) e-4)))))))))))) +(define Directory-Core-case--5750-637 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Path-Utils-C-60C-47C-62 arg-2 arg-3)) (else arg-3))))) +(define Directory-Core-case--5656-575 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 51 arg-1 arg-0) eta-0))))))) +(define Directory-Core-case--5583-505 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 51 arg-1 arg-0))))))))) +(define Directory-Core-case--5522-450 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't find library " arg-0)) eta-0))))))) +(define Directory-Core-case--5427-364 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-4 e-5) eta-0)))))))) +(define Directory-Core-case--5406-340 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-1) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (vector 1 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-1 e-6) eta-0))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't find data file " (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 " in any of " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) arg-3))))) eta-0))))))) +(define Directory-Core-case--5352-290 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-2) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (vector 1 (vector 1 arg-0))))))))) (else (Directory-Core-firstAvailable arg-1)))))) +(define Directory-Core-n--6221-1069-findIpkgFileC-39 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Directory-Core-dirEntries arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-2))) ((Directory-Core-case--6234-1105 arg-1 arg-0 e-2 _-0 (List-Data-find 'erased (lambda (f) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (Path-Utils-extension f) (vector 1 "ipkg"))) e-2)) ext-0)))) (else (vector 0 ))))))) +(define Directory-Core-readDataFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-getDirs arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((fs (Prelude-map_Functor__List 'erased 'erased (lambda (p) (Path-Utils-C-60C-47C-62 p arg-1)) (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 8))) e-7))))) (let ((act-25 ((Directory-Core-firstAvailable fs) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-26 (arg-3672 eta-0))) ((arg-3673 act-26) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-1) ext-0))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-1 e-8) ext-0)))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't find data file " (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " in any of " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) fs))))) ext-0))))))))))))))))) +(define Directory-Core-pathToNS (lambda (arg-0 arg-1 arg-2) (let ((sdir (Maybe-Data-fromMaybe 'erased (lambda () "") arg-1))) (let ((base (Directory-Core-case--5750-637 arg-2 arg-1 arg-0 sdir (Path-Utils-isAbsolute arg-2)))) (Directory-Core-case--5750-659 arg-2 arg-1 arg-0 sdir base (Path-Utils-stripPrefix base arg-2)))))) (define Directory-Core-nsToSource (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-getDirs arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((fnameOrig (Path-Utils-joinPath (List-Data-reverse 'erased arg-2)))) (let ((fnameBase (Prelude-maybe 'erased 'erased (lambda () fnameOrig) (lambda () (lambda (srcdir) (Path-Utils-C-60C-47C-62 srcdir fnameOrig))) (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))))) (let ((fs (Prelude-map_Functor__List 'erased 'erased (lambda (ext) (Path-Utils-C-60C-46C-62 fnameBase ext)) (vector 1 ".idr" (vector 1 ".lidr" (vector 1 ".yaff" (vector 1 ".org" (vector 1 ".md" (vector 0 ))))))))) (let ((act-25 ((Directory-Core-firstAvailable fs) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 e-1))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 51 arg-1 arg-2) ext-0))))))))))))))))))) (define Directory-Core-nsToPath (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-getDirs arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((fnameBase (Path-Utils-joinPath (List-Data-reverse 'erased arg-2)))) (let ((fs (Prelude-map_Functor__List 'erased 'erased (lambda (p) (Path-Utils-C-60C-47C-62 p (Path-Utils-C-60C-46C-62 fnameBase "ttc"))) (vector 1 (Path-Utils-C-60C-47C-62 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2)) "ttc") (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 6))) e-8)))))) (let ((act-25 ((Directory-Core-firstAvailable fs) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (vector 1 e-1)))) (else (vector 1 (vector 0 (vector 51 arg-1 arg-2)))))))))))))))))))) -(define Directory-Core-mkdirAll (lambda (arg-0) (Directory-Core-case--5839-750 arg-0 (Path-Utils-C-61C-61_Eq__Path (Path-Utils-parse arg-0) (Path-Utils-emptyPath))))) +(define Directory-Core-mkdirAll (lambda (arg-0) (Directory-Core-case--5881-758 arg-0 (Path-Utils-C-61C-61_Eq__Path (Path-Utils-parse arg-0) (Path-Utils-emptyPath))))) (define Directory-Core-makeBuildDirectory (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-getDirs arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((bdir (Path-Utils-C-60C-47C-62 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2)) "ttc"))) (let ((ns (List-Data-reverse 'erased (Maybe-Data-fromMaybe 'erased (lambda () (vector 0 )) (List-Data-tailC-39 'erased arg-1))))) (let ((ndir (Path-Utils-joinPath ns))) (let ((act-25 (let ((act-25 ((Directory-Core-mkdirAll (Path-Utils-C-60C-47C-62 bdir ndir)) ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (vector 1 (vector 0 ))) (else (let ((e-7 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 (Path-Utils-C-60C-47C-62 (let ((sc3 e-5)) (let ((e-2 (vector-ref sc3 3))) e-2)) ndir) e-7) ext-0)))))))))))))))))))) (define Directory-Core-getTTCFileName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-getNS arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (Context-Core-getDirs arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Directory-Core-pathToNS (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-6)) (let ((e-1 (vector-ref sc2 2))) e-1)) arg-1) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((fname (Path-Utils-C-60C-46C-62 (Path-Utils-joinPath (List-Data-reverse 'erased e-7)) arg-2))) (let ((bdir (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 3))) e-2)))) (vector 1 (Path-Utils-C-60C-47C-62 bdir (Path-Utils-C-60C-47C-62 "ttc" fname))))))))))))))))))))) -(define Directory-Core-getEntries (lambda (arg-0 ext-0) (let ((act-24 ((Directory-System-dirEntry 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (Directory-Core-getEntries arg-0 ext-0))) (vector 1 e-2 act-25)))) (else (vector 0 ))))))) -(define Directory-Core-firstAvailable (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-openFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2 (vector 0 )) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-4) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (vector 1 (vector 1 e-2)))))))) (else ((Directory-Core-firstAvailable e-3) eta-0))))))))))))))))) +(define Directory-Core-getEntries (lambda (arg-0 ext-0) (let ((act-24 ((Directory-System-dirEntry 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (Directory-Core-getEntries arg-0 ext-0))) (vector 1 e-2 act-25)))) (else (vector 0 ))))))) +(define Directory-Core-firstAvailable (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-openFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-2 (vector 0 )) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-4) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (vector 1 (vector 1 e-2)))))))) (else ((Directory-Core-firstAvailable e-3) eta-0))))))))))))))))) (define Directory-Core-findLibraryFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-getDirs arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((fs (Prelude-map_Functor__List 'erased 'erased (lambda (p) (Path-Utils-C-60C-47C-62 p arg-1)) (List-Prelude-C-43C-43 'erased (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6)) (Prelude-map_Functor__List 'erased 'erased (lambda (x) (Path-Utils-C-60C-47C-62 x "lib")) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 6))) e-8))))))) (let ((act-25 ((Directory-Core-firstAvailable fs) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 e-1))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't find library " arg-1)) ext-0))))))))))))))))) -(define Directory-Core-findIpkgFile (lambda (ext-0) (let ((act-24 ((Directory-System-currentDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341)))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-25 (Directory-Core-n--6179-1061-findIpkgFileC-39 e-1 "" ext-0))) act-25))) (else (vector 0 ))))))) +(define Directory-Core-findIpkgFile (lambda (ext-0) (let ((act-24 ((Directory-System-currentDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350)))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-25 (Directory-Core-n--6221-1069-findIpkgFileC-39 e-1 "" ext-0))) act-25))) (else (vector 0 ))))))) (define Directory-Core-ensureDirectoryExists (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 ((Directory-Core-mkdirAll arg-0) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (vector 1 (vector 0 ))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) ext-0)))))))))))) -(define Directory-Core-dirExists (lambda (arg-0 ext-0) (let ((act-24 ((Directory-System-openDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 ((Directory-System-closeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) ext-0))) 0))) (else 1)))))) -(define Directory-Core-dirEntries (lambda (arg-0 ext-0) (let ((act-24 ((Directory-System-openDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (Directory-Core-getEntries e-2 ext-0))) (let ((act-26 ((Directory-System-closeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) ext-0))) (vector 1 act-25))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 e-5)))))))) +(define Directory-Core-dirExists (lambda (arg-0 ext-0) (let ((act-24 ((Directory-System-openDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 ((Directory-System-closeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-2) ext-0))) 0))) (else 1)))))) +(define Directory-Core-dirEntries (lambda (arg-0 ext-0) (let ((act-24 ((Directory-System-openDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (Directory-Core-getEntries e-2 ext-0))) (let ((act-26 ((Directory-System-closeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-26 (arg-3672 eta-0))) ((arg-3673 act-26) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-2) ext-0))) (vector 1 act-25))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 e-5)))))))) (define IdrisPaths-yprefix (lambda () "__PREFIX__")) -(define IdrisPaths-idrisVersion (lambda () (vector 0 (vector 0 0 (vector 0 (+ 1 (+ 1 0)) 0)) "ebc413ede"))) -(define Version-Idris-with--1694-6131 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (cond ((equal? sc1 "") (vector 0 e-2 (vector 0 )))(else (vector 0 e-2 (vector 1 e-3)))))))))) -(define Version-Idris-case--1711-6201 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Version-Idris-n--1711-6157-showTag arg-0 arg-1 arg-2 arg-3 arg-4)) (else ""))))) -(define Version-Idris-case--1727-6161 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "-" e-2))))))) -(define Version-Idris-n--1711-6157-showTag (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "-" e-2))))))) +(define IdrisPaths-idrisVersion (lambda () (vector 0 (vector 0 0 (vector 0 (+ 1 (+ 1 0)) 0)) "3a41ccb61"))) +(define Version-Idris-with--1696-6139 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (cond ((equal? sc1 "") (vector 0 e-2 (vector 0 )))(else (vector 0 e-2 (vector 1 e-3)))))))))) +(define Version-Idris-case--1713-6209 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Version-Idris-n--1713-6165-showTag arg-0 arg-1 arg-2 arg-3 arg-4)) (else ""))))) +(define Version-Idris-case--1729-6169 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "-" e-2))))))) +(define Version-Idris-n--1713-6165-showTag (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "-" e-2))))))) (define Version-Version-Idris-versionTag (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) -(define Version-Idris-version (lambda () (Version-Idris-with--1694-6131 (IdrisPaths-idrisVersion)))) -(define Version-Idris-showVersion (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) (List-Data-intersperse 'erased "." (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-show_Show__Nat eta-0)) (vector 1 e-4 (vector 1 e-8 (vector 1 e-9 (vector 0 ))))))) (let ((sc3 arg-0)) (cond ((equal? sc3 0) (Version-Idris-n--1711-6157-showTag e-4 e-8 e-9 e-1 arg-0)) (else ""))))))))))))))) +(define Version-Idris-version (lambda () (Version-Idris-with--1696-6139 (IdrisPaths-idrisVersion)))) +(define Version-Idris-showVersion (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (Prelude-neutral_Monoid__String)))) (List-Data-intersperse 'erased "." (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-show_Show__Nat eta-0)) (vector 1 e-4 (vector 1 e-8 (vector 1 e-9 (vector 0 ))))))) (let ((sc3 arg-0)) (cond ((equal? sc3 0) (Version-Idris-n--1713-6165-showTag e-4 e-8 e-9 e-1 arg-0)) (else ""))))))))))))))) (define Version-Version-Idris-semVer (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) -(define Syntax-Idris-case--10870-5979 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 e-1 arg-2 arg-3 e-4 e-5)))))))) -(define Syntax-Idris-case--10869-5941 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 e-1 arg-2 arg-3 e-4 e-5)))))))) -(define Syntax-Idris-case--10503-5566 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 3 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Fixity" eta-0))))))) -(define Syntax-Idris-case--9780-4949 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (vector 0 arg-8 arg-7)) (else arg-9))))) -(define Syntax-Idris-case--9779-4897 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) arg-7) (else arg-8))))) -(define Syntax-Idris-case--9000-4570 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-5 arg-4) (Strings-Prelude-C-43C-43 " {" (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-5 arg-2) "}")))) (else (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-5 arg-4) (Strings-Prelude-C-43C-43 " {" (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-5 arg-2) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-5 arg-3) "}")))))))))) -(define Syntax-Idris-n--9000-4440-showCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-1) (Strings-Prelude-C-43C-43 " => " (Syntax-Idris-show_Show__PTerm e-2)))))) ((1) " | <>") (else (let ((e-10 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-10) " impossible"))))))) -(define Syntax-Idris-n--9000-4377-showAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 " | " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-1) (Strings-Prelude-C-43C-43 " => " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-2) ";"))))))) ((1) " | <>") (else (let ((e-10 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 " | " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-10) " impossible;")))))))) -(define Syntax-Idris-n--10768-5862-insertAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-3 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((sc3 arg-1)) (let ((e-4 (vector-ref sc3 2))) (((e-4 arg-3) e-7) eta-0))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((Syntax-Idris-n--10768-5862-insertAll 'erased arg-1 arg-2 arg-3 (ANameMap-Data-addName 'erased e-5 e-8 arg-4) e-3) eta-0)))))))))))))))))))))) -(define Syntax-Idris-n--10767-5821-insertAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-3 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) (((e-1 arg-3) e-7) eta-0))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((Syntax-Idris-n--10767-5821-insertAll 'erased arg-1 arg-2 arg-3 (ANameMap-Data-addName 'erased e-5 e-8 arg-4) e-3) eta-0)))))))))))))))))))))) -(define Syntax-Idris-n--11004-6042-goPiInfo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-1) eta-0))))(else (lambda (eta-0) (vector 1 arg-1))))))) -(define Syntax-Idris-n--11004-6046-goPairedPTerms (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc2 eta-2)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (lambda (eta-3) (vector 1 (vector 0 e-6 e-5) eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-7) eta-1)) (Syntax-Idris-n--11004-6046-goPairedPTerms arg-0 'erased e-3) eta-0)))))))))))) -(define Syntax-Idris-n--11004-6056-goPTypeDecls (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6039-goPTypeDecl arg-0 e-2) eta-1)) (Syntax-Idris-n--11004-6056-goPTypeDecls arg-0 e-3) eta-0))))))))) -(define Syntax-Idris-n--11004-6039-goPTypeDecl (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 e-2 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-3) eta-0))))))))) -(define Syntax-Idris-n--11004-6045-goPTerms (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-2) eta-1)) (Syntax-Idris-n--11004-6045-goPTerms arg-0 e-3) eta-0))))))))) -(define Syntax-Idris-n--11004-6034-goPTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (arg-0 arg-1)) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-4) (let ((sc1 eta-4)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 1 e-2 e-3 e-8 eta-5 eta-6 eta-7)))))))))) (Syntax-Idris-n--11004-6042-goPiInfo arg-0 e-4) eta-3)) (lambda (eta-3) (vector 1 e-5)) eta-2)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-6) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc1 1))) ((arg-0 e-8) eta-0)))))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-4) (let ((sc1 eta-4)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 2 e-8 e-9 e-5 eta-5 eta-6 eta-7)))))))))) (Syntax-Idris-n--11004-6042-goPiInfo arg-0 e-10) eta-3)) (lambda (eta-3) (vector 1 e-11)) eta-2)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-12) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))))) ((3) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (let ((e-20 (vector-ref sc0 7))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-4) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-5) (let ((sc1 eta-5)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-6) (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (vector 3 e-14 e-15 e-5 eta-6 eta-7 eta-8 eta-9))))))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-16) eta-4)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-17) eta-3)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-18) eta-2)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-19) eta-1)) (Syntax-Idris-n--11004-6050-goPClauses arg-0 e-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 4 e-21 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-22) eta-1)) (Syntax-Idris-n--11004-6050-goPClauses arg-0 e-23) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((5) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 5 e-24 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6052-goPDecls arg-0 e-25) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-26) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((6) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-27 e-5))))))) (Syntax-Idris-n--11004-6053-goPFieldUpdates arg-0 e-28) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((7) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 7 e-29 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-30) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-31) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((8) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 8 e-32 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-33) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-34) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((9) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (let ((e-38 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 9 e-35 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-36) eta-2)) (lambda (eta-2) (vector 1 e-37)) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-38) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))) ((10) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 10 e-39 e-40 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-41) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((11) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 11 e-42 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-43) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((12) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 12 e-44 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-45) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((13) (arg-0 arg-1)) ((14) (arg-0 arg-1)) ((15) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 15 e-50 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-51) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((16) (arg-0 arg-1)) ((17) (let ((e-54 (vector-ref sc0 1))) (let ((e-55 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 17 e-54 e-5))))))) (Core-Core-traverse 'erased 'erased (lambda (eta-1) (Syntax-Idris-n--11004-6038-goPDecl arg-0 eta-1)) e-55) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((18) (let ((e-56 (vector-ref sc0 1))) (let ((e-57 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 18 e-56 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-57) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((19) (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 19 e-58 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-59) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((20) (arg-0 arg-1)) ((21) (arg-0 arg-1)) ((22) (let ((e-64 (vector-ref sc0 1))) (let ((e-65 (vector-ref sc0 2))) (let ((e-66 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 22 e-64 e-65 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-66) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((23) (let ((e-67 (vector-ref sc0 1))) (let ((e-68 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 23 e-67 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-68) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((24) (arg-0 arg-1)) ((25) (arg-0 arg-1)) ((26) (let ((e-71 (vector-ref sc0 1))) (let ((e-72 (vector-ref sc0 2))) (let ((e-73 (vector-ref sc0 3))) (let ((e-74 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 26 e-71 e-72 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-73) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-74) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))) ((27) (let ((e-75 (vector-ref sc0 1))) (let ((e-76 (vector-ref sc0 2))) (let ((e-77 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 27 e-75 e-76 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-77) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((28) (let ((e-78 (vector-ref sc0 1))) (let ((e-79 (vector-ref sc0 2))) (let ((e-80 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 28 e-78 e-79 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-80) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((29) (let ((e-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (let ((e-83 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 29 e-81 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-82) eta-1)) (lambda (eta-1) (vector 1 e-83)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((30) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (let ((e-86 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 30 e-84 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-85) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-86) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((31) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 31 e-87 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-88) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((32) (let ((e-89 (vector-ref sc0 1))) (let ((e-90 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 32 e-89 e-5))))))) (Syntax-Idris-n--11004-6049-goPDos arg-0 e-90) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((33) (let ((e-91 (vector-ref sc0 1))) (let ((e-92 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 33 e-91 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-92) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((34) (let ((e-93 (vector-ref sc0 1))) (let ((e-94 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 34 e-93 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-94) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((35) (let ((e-95 (vector-ref sc0 1))) (let ((e-96 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 35 e-95 e-5))))))) (Syntax-Idris-n--11004-6045-goPTerms arg-0 e-96) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((36) (let ((e-97 (vector-ref sc0 1))) (let ((e-98 (vector-ref sc0 2))) (let ((e-99 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 36 e-97 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-98) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-99) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((37) (let ((e-100 (vector-ref sc0 1))) (let ((e-101 (vector-ref sc0 2))) (let ((e-102 (vector-ref sc0 3))) (let ((e-103 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 37 e-100 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-101) eta-2)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-102) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-103) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))) ((38) (arg-0 arg-1)) ((39) (let ((e-105 (vector-ref sc0 1))) (let ((e-106 (vector-ref sc0 2))) (let ((e-107 (vector-ref sc0 3))) (let ((e-108 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 39 e-105 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-106) eta-2)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-107) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-108) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))) ((40) (let ((e-109 (vector-ref sc0 1))) (let ((e-110 (vector-ref sc0 2))) (let ((e-111 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 40 e-109 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-110) eta-1)) (Syntax-Idris-n--11004-6049-goPDos arg-0 e-111) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((41) (let ((e-112 (vector-ref sc0 1))) (let ((e-113 (vector-ref sc0 2))) (let ((e-114 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 41 e-112 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-113) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-114) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((42) (let ((e-115 (vector-ref sc0 1))) (let ((e-116 (vector-ref sc0 2))) (let ((e-117 (vector-ref sc0 3))) (let ((e-118 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 42 e-115 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-116) eta-2)) (Syntax-Idris-n--11004-6044-goMPTerm arg-0 e-117) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-118) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))) ((43) (let ((e-119 (vector-ref sc0 1))) (let ((e-120 (vector-ref sc0 2))) (let ((e-121 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 43 e-119 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-120) eta-1)) (Syntax-Idris-n--11004-6044-goMPTerm arg-0 e-121) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((46) (let ((e-122 (vector-ref sc0 1))) (let ((e-123 (vector-ref sc0 2))) (let ((e-124 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 46 e-122 e-123 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-124) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((44) (let ((e-125 (vector-ref sc0 1))) (let ((e-126 (vector-ref sc0 2))) (let ((e-127 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 44 e-125 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-126) eta-1)) (lambda (eta-1) (vector 1 e-127)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((45) (let ((e-128 (vector-ref sc0 1))) (let ((e-129 (vector-ref sc0 2))) (arg-0 (vector 45 e-128 e-129))))) (else (let ((e-130 (vector-ref sc0 1))) (let ((e-131 (vector-ref sc0 2))) (let ((e-132 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 47 e-130 e-131 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-132) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))))))) -(define Syntax-Idris-n--11004-6055-goPFnOpts (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6043-goPFnOpt arg-0 e-2) eta-1)) (Syntax-Idris-n--11004-6055-goPFnOpts arg-0 e-3) eta-0))))))))) -(define Syntax-Idris-n--11004-6043-goPFnOpt (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-1))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (Syntax-Idris-n--11004-6045-goPTerms arg-0 e-1) eta-0)))))))) -(define Syntax-Idris-n--11004-6054-goPFields (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6041-goPField arg-0 e-2) eta-1)) (Syntax-Idris-n--11004-6054-goPFields arg-0 e-3) eta-0))))))))) -(define Syntax-Idris-n--11004-6053-goPFieldUpdates (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6035-goPFieldUpdate arg-0 e-2) eta-1)) (Syntax-Idris-n--11004-6053-goPFieldUpdates arg-0 e-3) eta-0))))))))) -(define Syntax-Idris-n--11004-6035-goPFieldUpdate (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-1) eta-0))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-2 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-3) eta-0))))))))) -(define Syntax-Idris-n--11004-6041-goPField (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 0 e-0 e-1 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--11004-6042-goPiInfo arg-0 e-2) eta-2)) (lambda (eta-2) (vector 1 e-3)) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-4) eta-0)))))))))) -(define Syntax-Idris-n--11004-6049-goPDos (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6036-goPDo arg-0 e-2) eta-1)) (Syntax-Idris-n--11004-6049-goPDos arg-0 e-3) eta-0))))))))) -(define Syntax-Idris-n--11004-6036-goPDo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-1) eta-0))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-2 e-3 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-4) eta-0)))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 2 e-5 e-9 eta-4 eta-5))))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-6) eta-2)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-7) eta-1)) (Syntax-Idris-n--11004-6050-goPClauses arg-0 e-8) eta-0))))))) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((e-12 (vector-ref sc0 4))) (let ((e-13 (vector-ref sc0 5))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 3 e-9 e-10 e-11 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-12) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-13) eta-0)))))))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-4) (let ((sc1 eta-4)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 4 e-14 e-5 eta-5 eta-6 eta-7)))))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-15) eta-3)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-16) eta-2)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-17) eta-1)) (Syntax-Idris-n--11004-6050-goPClauses arg-0 e-18) eta-0)))))))) ((5) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-19 e-5))))))) (Syntax-Idris-n--11004-6052-goPDecls arg-0 e-20) eta-0))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-21 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-22) eta-0))))))))) -(define Syntax-Idris-n--11004-6052-goPDecls (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6038-goPDecl arg-0 e-2) eta-1)) (Syntax-Idris-n--11004-6052-goPDecls arg-0 e-3) eta-0))))))))) -(define Syntax-Idris-n--11004-6038-goPDecl (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 0 e-0 e-1 e-2 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6055-goPFnOpts arg-0 e-3) eta-1)) (Syntax-Idris-n--11004-6039-goPTypeDecl arg-0 e-4) eta-0)))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-7))))))) (Syntax-Idris-n--11004-6050-goPClauses arg-0 e-6) eta-0))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-7 e-8 e-5))))))) (Syntax-Idris-n--11004-6040-goPDataDecl arg-0 e-9) eta-0)))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 3 e-10 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6046-goPairedPTerms arg-0 'erased e-11) eta-1)) (Syntax-Idris-n--11004-6052-goPDecls arg-0 e-12) eta-0)))))) ((4) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 4 e-13 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6046-goPairedPTerms arg-0 'erased e-14) eta-1)) (Syntax-Idris-n--11004-6052-goPDecls arg-0 e-15) eta-0)))))) ((5) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-16 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-17) eta-0))))) ((6) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((e-21 (vector-ref sc0 4))) (let ((e-22 (vector-ref sc0 5))) (let ((e-23 (vector-ref sc0 6))) (let ((e-24 (vector-ref sc0 7))) (let ((e-25 (vector-ref sc0 8))) (let ((e-26 (vector-ref sc0 9))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-4) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-5) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-6) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-7) (let ((sc1 eta-7)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (vector 6 e-18 e-19 e-5 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13))))))))))))) (Syntax-Idris-n--11004-6046-goPairedPTerms arg-0 'erased e-20) eta-6)) (lambda (eta-6) (vector 1 e-21)) eta-5)) (lambda (eta-5) (vector 1 e-22)) eta-4)) (Syntax-Idris-n--11004-6046-goPairedPTerms arg-0 'erased e-23) eta-3)) (lambda (eta-3) (vector 1 e-24)) eta-2)) (lambda (eta-2) (vector 1 e-25)) eta-1)) (Syntax-Idris-n--11004-6052-goPDecls arg-0 e-26) eta-0)))))))))))) ((7) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((e-30 (vector-ref sc0 4))) (let ((e-31 (vector-ref sc0 5))) (let ((e-32 (vector-ref sc0 6))) (let ((e-33 (vector-ref sc0 7))) (let ((e-34 (vector-ref sc0 8))) (let ((e-35 (vector-ref sc0 9))) (let ((e-36 (vector-ref sc0 10))) (let ((e-37 (vector-ref sc0 11))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-4) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-5) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-6) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-7) (let ((sc1 eta-7)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (vector 7 e-27 e-28 e-29 e-30 e-5 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13))))))))))))) (Syntax-Idris-n--11004-6047-go3TupledPTerms arg-0 'erased 'erased e-31) eta-6)) (Syntax-Idris-n--11004-6046-goPairedPTerms arg-0 'erased e-32) eta-5)) (lambda (eta-5) (vector 1 e-33)) eta-4)) (Syntax-Idris-n--11004-6045-goPTerms arg-0 e-34) eta-3)) (lambda (eta-3) (vector 1 e-35)) eta-2)) (lambda (eta-2) (vector 1 e-36)) eta-1)) (Syntax-Idris-n--11004-6051-goMPDecls arg-0 e-37) eta-0)))))))))))))) ((8) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (let ((e-41 (vector-ref sc0 4))) (let ((e-42 (vector-ref sc0 5))) (let ((e-43 (vector-ref sc0 6))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 8 e-38 e-39 e-40 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--11004-6048-go4TupledPTerms arg-0 'erased 'erased e-41) eta-2)) (lambda (eta-2) (vector 1 e-42)) eta-1)) (Syntax-Idris-n--11004-6054-goPFields arg-0 e-43) eta-0))))))))) ((9) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-44 e-5))))))) (Syntax-Idris-n--11004-6052-goPDecls arg-0 e-45) eta-0))))) ((10) (lambda (eta-0) (vector 1 arg-1))) ((11) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 11 e-50 e-51 e-5))))))) (Syntax-Idris-n--11004-6052-goPDecls arg-0 e-52) eta-0)))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (let ((e-55 (vector-ref sc0 3))) (let ((e-56 (vector-ref sc0 4))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 12 e-53 e-54 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-55) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-56) eta-0))))))) ((13) (let ((e-57 (vector-ref sc0 1))) (let ((e-58 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 13 e-57 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-58) eta-0))))) (else (lambda (eta-0) (vector 1 arg-1))))))) -(define Syntax-Idris-n--11004-6040-goPDataDecl (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 0 e-0 e-1 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-2) eta-2)) (lambda (eta-2) (vector 1 e-3)) eta-1)) (Syntax-Idris-n--11004-6056-goPTypeDecls arg-0 e-4) eta-0)))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-6 e-8))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-7) eta-0)))))))))) -(define Syntax-Idris-n--11004-6050-goPClauses (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6037-goPClause arg-0 e-2) eta-1)) (Syntax-Idris-n--11004-6050-goPClauses arg-0 e-3) eta-0))))))))) -(define Syntax-Idris-n--11004-6037-goPClause (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 0 e-0 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-1) eta-2)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-2) eta-1)) (Syntax-Idris-n--11004-6052-goPDecls arg-0 e-3) eta-0))))))) ((1) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (let ((e-7 (vector-ref sc0 4))) (let ((e-8 (vector-ref sc0 5))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-4) (let ((sc1 eta-4)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) (vector 1 (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 1 e-4 e-9 eta-5 eta-6 eta-7)))))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-5) eta-3)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-6) eta-2)) (lambda (eta-2) (vector 1 e-7)) eta-1)) (Syntax-Idris-n--11004-6050-goPClauses arg-0 e-8) eta-0)))))))) (else (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-9 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-10) eta-0))))))))) -(define Syntax-Idris-n--11004-6044-goMPTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-2) eta-0)))))))) -(define Syntax-Idris-n--11004-6051-goMPDecls (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (Syntax-Idris-n--11004-6052-goPDecls arg-0 e-2) eta-0)))))))) -(define Syntax-Idris-n--11004-6048-go4TupledPTerms (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc4 eta-3)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (lambda (d) (lambda (ts) (vector 1 (vector 0 e-6 (vector 0 e-10 (vector 0 e-5 d))) ts))))))))) (Syntax-Idris-n--11004-6042-goPiInfo arg-0 e-14) eta-2)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-15) eta-1)) (Syntax-Idris-n--11004-6048-go4TupledPTerms arg-0 'erased 'erased e-3) eta-0)))))))))))))))))) -(define Syntax-Idris-n--11004-6047-go3TupledPTerms (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc3 eta-2)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (lambda (eta-3) (vector 1 (vector 0 e-6 (vector 0 e-10 e-5)) eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-11) eta-1)) (Syntax-Idris-n--11004-6047-go3TupledPTerms arg-0 'erased 'erased e-3) eta-0))))))))))))))) -(define Syntax-Idris-n--8459-3673-getName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-1 (vector-ref sc0 2))) e-1)))) -(define Syntax-Idris-n--9000-4883-dePure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((tm (vector 7 e-0 (vector 0 e-3 e-4) e-2))) (Syntax-Idris-case--9779-4897 arg-0 arg-1 arg-2 arg-3 e-0 e-3 e-4 e-2 tm (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS e-4) (vector 1 "pure")))))))(else arg-4)))))))(else arg-4))))) -(define Syntax-Idris-n--9000-4884-deGuard (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((tm (vector 0 e-0 (vector 7 e-2 (vector 0 e-5 e-6) e-4)))) (Syntax-Idris-case--9780-4949 arg-0 arg-1 arg-2 arg-3 e-2 e-5 e-6 e-4 e-0 tm (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS e-6) (vector 1 "guard")))))))(else arg-4)))))))(else arg-4))))))(else arg-4))))) -(define Syntax-Idris-toBuf_TTC__SyntaxInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Syntax-Idris-toBuf_TTC__Fixity arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__Fixity arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Syntax-Idris-toBuf_TTC__Fixity arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Syntax-Idris-toBuf_TTC__Fixity arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Syntax-Idris-toBuf_TTC__Fixity arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Syntax-Idris-fromBuf_TTC__Fixity arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0)))) arg-0 (StringMap-Data-toList 'erased (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1))))) arg-2106 eta-0)))) arg-0 (StringMap-Data-toList 'erased (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-2107 eta-1))))) arg-2106 eta-0)))) arg-0 (ANameMap-Data-toList 'erased (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 3))) e-2))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) arg-0 (let ((sc3 arg-1)) (let ((e-3 (vector-ref sc3 4))) e-3)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 (let ((sc4 arg-1)) (let ((e-9 (vector-ref sc4 6))) e-9))) ext-0))))))))))))))))))) -(define Syntax-Idris-toBuf_TTC__IFaceInfo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__Name arg-0 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-1)))) arg-0 e-2 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__RigCount arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-1)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2111) (lambda (arg-2112) (TTC-Core-toBuf_TTC__TotalReq arg-2111 arg-2112))) (lambda (arg-2111) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-2111 eta-1)))) arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTC-Core-toBuf_TTC__TotalReq arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2110 eta-2)))) arg-2109 eta-1)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2111) (lambda (arg-2112) (Binary-Utils-toBuf_TTC__Bool arg-2111 arg-2112))) (lambda (arg-2111) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2111 eta-1)))) (vector 0 (lambda (arg-2111) (lambda (arg-2112) (TTImp-TTImp-toBuf_TTC__RawImp arg-2111 arg-2112))) (lambda (arg-2111) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2111 eta-1))))) arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2110) (lambda (arg-2111) (Binary-Utils-toBuf_TTC__Bool arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2110 eta-2)))) (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-2))))) arg-2109 eta-1))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTC-Core-toBuf_TTC__TotalReq arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2110 eta-2)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2110) (lambda (arg-2111) (Binary-Utils-toBuf_TTC__Bool arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2110 eta-2)))) (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-2))))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-3)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__RigCount arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTC-Core-toBuf_TTC__TotalReq arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2110 eta-2)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2110) (lambda (arg-2111) (Binary-Utils-toBuf_TTC__Bool arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2110 eta-2)))) (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-2))))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-3)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-3)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTC-Core-toBuf_TTC__TotalReq arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-4)))) arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-3)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-4)))) (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-4))))) arg-2108 eta-3))))) arg-2107 eta-2))))) arg-2106 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__RigCount arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTC-Core-toBuf_TTC__TotalReq arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2110 eta-2)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2110) (lambda (arg-2111) (Binary-Utils-toBuf_TTC__Bool arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2110 eta-2)))) (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-2))))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-3)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-3)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTC-Core-toBuf_TTC__TotalReq arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-4)))) arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-3)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-4)))) (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-4))))) arg-2108 eta-3))))) arg-2107 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__RigCount arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__RigCount arg-2108 eta-3)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-3)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTC-Core-toBuf_TTC__TotalReq arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-4)))) arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-3)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-4)))) (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-4))))) arg-2108 eta-3))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTC-Core-toBuf_TTC__TotalReq arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-4)))) arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__TotalReq arg-2103 arg-2105))) (lambda (arg-2110) (lambda (eta-5) (TTC-Core-fromBuf_TTC__TotalReq arg-2110 eta-5)))) arg-2109 eta-4)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-4)))) (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-4))))) arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2110) (lambda (eta-5) (Binary-Utils-fromBuf_TTC__Bool arg-2110 eta-5)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2110) (lambda (eta-5) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-5))))) arg-2109 eta-4))))) arg-2108 eta-3))))) arg-2107 eta-2))))) arg-2106 eta-1)))) arg-0 e-3 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2107 eta-2)))) arg-2104 arg-2106 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2107 eta-2)))) arg-2106 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2107 eta-3)))) arg-2103 arg-2105 eta-2)))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2108 eta-3)))) arg-2107 eta-2))))) arg-2106 eta-1)))) arg-0 e-4 eta-0)))))))))))))))))))))))))) +(define Syntax-Idris-case--11339-6112 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 arg-2 e-3 arg-3 e-5 e-6))))))))) +(define Syntax-Idris-case--11338-6073 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 arg-2 e-3 arg-3 e-5 e-6))))))))) +(define Syntax-Idris-case--10960-5684 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 3 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Fixity" eta-0))))))) +(define Syntax-Idris-case--10119-4957 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (vector 0 arg-8 arg-7)) (else arg-9))))) +(define Syntax-Idris-case--10118-4905 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) arg-7) (else arg-8))))) +(define Syntax-Idris-case--9339-4578 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-5 arg-4) (Strings-Prelude-C-43C-43 " {" (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-5 arg-2) "}")))) (else (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-5 arg-4) (Strings-Prelude-C-43C-43 " {" (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-5 arg-2) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-5 arg-3) "}")))))))))) +(define Syntax-Idris-n--9339-4448-showCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-1) (Strings-Prelude-C-43C-43 " => " (Syntax-Idris-show_Show__PTerm e-2)))))) ((1) " | <>") (else (let ((e-10 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-10) " impossible"))))))) +(define Syntax-Idris-n--9339-4385-showAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 " | " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-1) (Strings-Prelude-C-43C-43 " => " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-2) ";"))))))) ((1) " | <>") (else (let ((e-10 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 " | " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-10) " impossible;")))))))) +(define Syntax-Idris-n--11235-5992-insertAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-3 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((sc3 arg-1)) (let ((e-4 (vector-ref sc3 2))) (((e-4 arg-3) e-7) eta-0))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((Syntax-Idris-n--11235-5992-insertAll 'erased arg-1 arg-2 arg-3 (ANameMap-Data-addName 'erased e-5 e-8 arg-4) e-3) eta-0)))))))))))))))))))))) +(define Syntax-Idris-n--11234-5950-insertAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-3 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) (((e-1 arg-3) e-7) eta-0))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((Syntax-Idris-n--11234-5950-insertAll 'erased arg-1 arg-2 arg-3 (ANameMap-Data-addName 'erased e-5 e-8 arg-4) e-3) eta-0)))))))))))))))))))))) +(define Syntax-Idris-n--11477-6177-goPiInfo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-1) eta-0))))(else (lambda (eta-0) (vector 1 arg-1))))))) +(define Syntax-Idris-n--11477-6181-goPairedPTerms (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc2 eta-2)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (lambda (eta-3) (vector 1 (vector 0 e-6 e-5) eta-3)))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-7) eta-1)) (Syntax-Idris-n--11477-6181-goPairedPTerms arg-0 'erased e-3) eta-0)))))))))))) +(define Syntax-Idris-n--11477-6191-goPTypeDecls (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--11477-6174-goPTypeDecl arg-0 e-2) eta-1)) (Syntax-Idris-n--11477-6191-goPTypeDecls arg-0 e-3) eta-0))))))))) +(define Syntax-Idris-n--11477-6174-goPTypeDecl (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 e-2 e-5))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-3) eta-0))))))))) +(define Syntax-Idris-n--11477-6180-goPTerms (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-2) eta-1)) (Syntax-Idris-n--11477-6180-goPTerms arg-0 e-3) eta-0))))))))) +(define Syntax-Idris-n--11477-6169-goPTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (arg-0 arg-1)) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-4) (let ((sc1 eta-4)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 1 e-2 e-3 e-8 eta-5 eta-6 eta-7)))))))))) (Syntax-Idris-n--11477-6177-goPiInfo arg-0 e-4) eta-3)) (lambda (eta-3) (vector 1 e-5)) eta-2)) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-6) eta-1)) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc1 1))) ((arg-0 e-8) eta-0)))))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-4) (let ((sc1 eta-4)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 2 e-8 e-9 e-5 eta-5 eta-6 eta-7)))))))))) (Syntax-Idris-n--11477-6177-goPiInfo arg-0 e-10) eta-3)) (lambda (eta-3) (vector 1 e-11)) eta-2)) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-12) eta-1)) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))))) ((3) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (let ((e-20 (vector-ref sc0 7))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-4) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-5) (let ((sc1 eta-5)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-6) (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (vector 3 e-14 e-15 e-5 eta-6 eta-7 eta-8 eta-9))))))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-16) eta-4)) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-17) eta-3)) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-18) eta-2)) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-19) eta-1)) (Syntax-Idris-n--11477-6185-goPClauses arg-0 e-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 4 e-21 e-5 eta-3)))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-22) eta-1)) (Syntax-Idris-n--11477-6185-goPClauses arg-0 e-23) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((5) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 5 e-24 e-5 eta-3)))))))) (Syntax-Idris-n--11477-6187-goPDecls arg-0 e-25) eta-1)) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-26) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((6) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-27 e-5))))))) (Syntax-Idris-n--11477-6188-goPFieldUpdates arg-0 e-28) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((7) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 7 e-29 e-5 eta-3)))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-30) eta-1)) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-31) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((8) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 8 e-32 e-5 eta-3)))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-33) eta-1)) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-34) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((9) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (let ((e-38 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 9 e-35 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-36) eta-2)) (lambda (eta-2) (vector 1 e-37)) eta-1)) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-38) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))) ((10) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 10 e-39 e-40 e-5))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-41) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((11) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 11 e-42 e-5))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-43) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((12) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 12 e-44 e-5))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-45) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((13) (arg-0 arg-1)) ((14) (arg-0 arg-1)) ((15) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 15 e-50 e-5))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-51) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((16) (arg-0 arg-1)) ((17) (let ((e-54 (vector-ref sc0 1))) (let ((e-55 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 17 e-54 e-5))))))) (Core-Core-traverse 'erased 'erased (lambda (eta-1) (Syntax-Idris-n--11477-6173-goPDecl arg-0 eta-1)) e-55) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((18) (let ((e-56 (vector-ref sc0 1))) (let ((e-57 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 18 e-56 e-5))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-57) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((19) (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 19 e-58 e-5))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-59) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((20) (arg-0 arg-1)) ((21) (arg-0 arg-1)) ((22) (let ((e-64 (vector-ref sc0 1))) (let ((e-65 (vector-ref sc0 2))) (let ((e-66 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 22 e-64 e-65 e-5))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-66) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((23) (let ((e-67 (vector-ref sc0 1))) (let ((e-68 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 23 e-67 e-5))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-68) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((24) (arg-0 arg-1)) ((25) (arg-0 arg-1)) ((26) (let ((e-71 (vector-ref sc0 1))) (let ((e-72 (vector-ref sc0 2))) (let ((e-73 (vector-ref sc0 3))) (let ((e-74 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 26 e-71 e-72 e-5 eta-3)))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-73) eta-1)) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-74) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))) ((27) (let ((e-75 (vector-ref sc0 1))) (let ((e-76 (vector-ref sc0 2))) (let ((e-77 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 27 e-75 e-76 e-5))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-77) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((28) (let ((e-78 (vector-ref sc0 1))) (let ((e-79 (vector-ref sc0 2))) (let ((e-80 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 28 e-78 e-79 e-5))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-80) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((29) (let ((e-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (let ((e-83 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 29 e-81 e-5 eta-3)))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-82) eta-1)) (lambda (eta-1) (vector 1 e-83)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((30) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (let ((e-86 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 30 e-84 e-5 eta-3)))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-85) eta-1)) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-86) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((31) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 31 e-87 e-5))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-88) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((32) (let ((e-89 (vector-ref sc0 1))) (let ((e-90 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 32 e-89 e-5))))))) (Syntax-Idris-n--11477-6184-goPDos arg-0 e-90) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((33) (let ((e-91 (vector-ref sc0 1))) (let ((e-92 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 33 e-91 e-5))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-92) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((34) (let ((e-93 (vector-ref sc0 1))) (let ((e-94 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 34 e-93 e-5))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-94) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((35) (let ((e-95 (vector-ref sc0 1))) (let ((e-96 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 35 e-95 e-5))))))) (Syntax-Idris-n--11477-6180-goPTerms arg-0 e-96) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((36) (let ((e-97 (vector-ref sc0 1))) (let ((e-98 (vector-ref sc0 2))) (let ((e-99 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 36 e-97 e-5 eta-3)))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-98) eta-1)) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-99) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((37) (let ((e-100 (vector-ref sc0 1))) (let ((e-101 (vector-ref sc0 2))) (let ((e-102 (vector-ref sc0 3))) (let ((e-103 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 37 e-100 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-101) eta-2)) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-102) eta-1)) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-103) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))) ((38) (arg-0 arg-1)) ((39) (let ((e-105 (vector-ref sc0 1))) (let ((e-106 (vector-ref sc0 2))) (let ((e-107 (vector-ref sc0 3))) (let ((e-108 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 39 e-105 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-106) eta-2)) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-107) eta-1)) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-108) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))) ((40) (let ((e-109 (vector-ref sc0 1))) (let ((e-110 (vector-ref sc0 2))) (let ((e-111 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 40 e-109 e-5 eta-3)))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-110) eta-1)) (Syntax-Idris-n--11477-6184-goPDos arg-0 e-111) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((41) (let ((e-112 (vector-ref sc0 1))) (let ((e-113 (vector-ref sc0 2))) (let ((e-114 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 41 e-112 e-5 eta-3)))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-113) eta-1)) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-114) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((42) (let ((e-115 (vector-ref sc0 1))) (let ((e-116 (vector-ref sc0 2))) (let ((e-117 (vector-ref sc0 3))) (let ((e-118 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 42 e-115 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-116) eta-2)) (Syntax-Idris-n--11477-6179-goMPTerm arg-0 e-117) eta-1)) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-118) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))) ((43) (let ((e-119 (vector-ref sc0 1))) (let ((e-120 (vector-ref sc0 2))) (let ((e-121 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 43 e-119 e-5 eta-3)))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-120) eta-1)) (Syntax-Idris-n--11477-6179-goMPTerm arg-0 e-121) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((46) (let ((e-122 (vector-ref sc0 1))) (let ((e-123 (vector-ref sc0 2))) (let ((e-124 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 46 e-122 e-123 e-5))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-124) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((44) (let ((e-125 (vector-ref sc0 1))) (let ((e-126 (vector-ref sc0 2))) (let ((e-127 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 44 e-125 e-5 eta-3)))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-126) eta-1)) (lambda (eta-1) (vector 1 e-127)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((45) (let ((e-128 (vector-ref sc0 1))) (let ((e-129 (vector-ref sc0 2))) (arg-0 (vector 45 e-128 e-129))))) (else (let ((e-130 (vector-ref sc0 1))) (let ((e-131 (vector-ref sc0 2))) (let ((e-132 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 47 e-130 e-131 e-5))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-132) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))))))) +(define Syntax-Idris-n--11477-6190-goPFnOpts (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--11477-6178-goPFnOpt arg-0 e-2) eta-1)) (Syntax-Idris-n--11477-6190-goPFnOpts arg-0 e-3) eta-0))))))))) +(define Syntax-Idris-n--11477-6178-goPFnOpt (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-1))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (Syntax-Idris-n--11477-6180-goPTerms arg-0 e-1) eta-0)))))))) +(define Syntax-Idris-n--11477-6189-goPFields (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--11477-6176-goPField arg-0 e-2) eta-1)) (Syntax-Idris-n--11477-6189-goPFields arg-0 e-3) eta-0))))))))) +(define Syntax-Idris-n--11477-6188-goPFieldUpdates (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--11477-6170-goPFieldUpdate arg-0 e-2) eta-1)) (Syntax-Idris-n--11477-6188-goPFieldUpdates arg-0 e-3) eta-0))))))))) +(define Syntax-Idris-n--11477-6170-goPFieldUpdate (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-5))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-1) eta-0))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-2 e-5))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-3) eta-0))))))))) +(define Syntax-Idris-n--11477-6176-goPField (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 0 e-0 e-1 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--11477-6177-goPiInfo arg-0 e-2) eta-2)) (lambda (eta-2) (vector 1 e-3)) eta-1)) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-4) eta-0)))))))))) +(define Syntax-Idris-n--11477-6184-goPDos (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--11477-6171-goPDo arg-0 e-2) eta-1)) (Syntax-Idris-n--11477-6184-goPDos arg-0 e-3) eta-0))))))))) +(define Syntax-Idris-n--11477-6171-goPDo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-5))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-1) eta-0))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-2 e-3 e-5))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-4) eta-0)))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 2 e-5 e-9 eta-4 eta-5))))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-6) eta-2)) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-7) eta-1)) (Syntax-Idris-n--11477-6185-goPClauses arg-0 e-8) eta-0))))))) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((e-12 (vector-ref sc0 4))) (let ((e-13 (vector-ref sc0 5))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 3 e-9 e-10 e-11 e-5 eta-3)))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-12) eta-1)) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-13) eta-0)))))))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-4) (let ((sc1 eta-4)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 4 e-14 e-5 eta-5 eta-6 eta-7)))))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-15) eta-3)) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-16) eta-2)) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-17) eta-1)) (Syntax-Idris-n--11477-6185-goPClauses arg-0 e-18) eta-0)))))))) ((5) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-19 e-5))))))) (Syntax-Idris-n--11477-6187-goPDecls arg-0 e-20) eta-0))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-21 e-5))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-22) eta-0))))))))) +(define Syntax-Idris-n--11477-6187-goPDecls (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--11477-6173-goPDecl arg-0 e-2) eta-1)) (Syntax-Idris-n--11477-6187-goPDecls arg-0 e-3) eta-0))))))))) +(define Syntax-Idris-n--11477-6173-goPDecl (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 0 e-0 e-1 e-2 e-5 eta-3)))))))) (Syntax-Idris-n--11477-6190-goPFnOpts arg-0 e-3) eta-1)) (Syntax-Idris-n--11477-6174-goPTypeDecl arg-0 e-4) eta-0)))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-7))))))) (Syntax-Idris-n--11477-6185-goPClauses arg-0 e-6) eta-0))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-7 e-8 e-5))))))) (Syntax-Idris-n--11477-6175-goPDataDecl arg-0 e-9) eta-0)))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 3 e-10 e-5 eta-3)))))))) (Syntax-Idris-n--11477-6181-goPairedPTerms arg-0 'erased e-11) eta-1)) (Syntax-Idris-n--11477-6187-goPDecls arg-0 e-12) eta-0)))))) ((4) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 4 e-13 e-5 eta-3)))))))) (Syntax-Idris-n--11477-6181-goPairedPTerms arg-0 'erased e-14) eta-1)) (Syntax-Idris-n--11477-6187-goPDecls arg-0 e-15) eta-0)))))) ((5) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-16 e-5))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-17) eta-0))))) ((6) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((e-21 (vector-ref sc0 4))) (let ((e-22 (vector-ref sc0 5))) (let ((e-23 (vector-ref sc0 6))) (let ((e-24 (vector-ref sc0 7))) (let ((e-25 (vector-ref sc0 8))) (let ((e-26 (vector-ref sc0 9))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-4) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-5) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-6) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-7) (let ((sc1 eta-7)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (vector 6 e-18 e-19 e-5 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13))))))))))))) (Syntax-Idris-n--11477-6181-goPairedPTerms arg-0 'erased e-20) eta-6)) (lambda (eta-6) (vector 1 e-21)) eta-5)) (lambda (eta-5) (vector 1 e-22)) eta-4)) (Syntax-Idris-n--11477-6181-goPairedPTerms arg-0 'erased e-23) eta-3)) (lambda (eta-3) (vector 1 e-24)) eta-2)) (lambda (eta-2) (vector 1 e-25)) eta-1)) (Syntax-Idris-n--11477-6187-goPDecls arg-0 e-26) eta-0)))))))))))) ((7) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((e-30 (vector-ref sc0 4))) (let ((e-31 (vector-ref sc0 5))) (let ((e-32 (vector-ref sc0 6))) (let ((e-33 (vector-ref sc0 7))) (let ((e-34 (vector-ref sc0 8))) (let ((e-35 (vector-ref sc0 9))) (let ((e-36 (vector-ref sc0 10))) (let ((e-37 (vector-ref sc0 11))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-4) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-5) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-6) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-7) (let ((sc1 eta-7)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (vector 7 e-27 e-28 e-29 e-30 e-5 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13))))))))))))) (Syntax-Idris-n--11477-6182-go3TupledPTerms arg-0 'erased 'erased e-31) eta-6)) (Syntax-Idris-n--11477-6181-goPairedPTerms arg-0 'erased e-32) eta-5)) (lambda (eta-5) (vector 1 e-33)) eta-4)) (Syntax-Idris-n--11477-6180-goPTerms arg-0 e-34) eta-3)) (lambda (eta-3) (vector 1 e-35)) eta-2)) (lambda (eta-2) (vector 1 e-36)) eta-1)) (Syntax-Idris-n--11477-6186-goMPDecls arg-0 e-37) eta-0)))))))))))))) ((8) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (let ((e-41 (vector-ref sc0 4))) (let ((e-42 (vector-ref sc0 5))) (let ((e-43 (vector-ref sc0 6))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 8 e-38 e-39 e-40 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--11477-6183-go4TupledPTerms arg-0 'erased 'erased e-41) eta-2)) (lambda (eta-2) (vector 1 e-42)) eta-1)) (Syntax-Idris-n--11477-6189-goPFields arg-0 e-43) eta-0))))))))) ((9) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-44 e-5))))))) (Syntax-Idris-n--11477-6187-goPDecls arg-0 e-45) eta-0))))) ((10) (lambda (eta-0) (vector 1 arg-1))) ((11) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 11 e-50 e-51 e-5))))))) (Syntax-Idris-n--11477-6187-goPDecls arg-0 e-52) eta-0)))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (let ((e-55 (vector-ref sc0 3))) (let ((e-56 (vector-ref sc0 4))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 12 e-53 e-54 e-5 eta-3)))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-55) eta-1)) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-56) eta-0))))))) ((13) (let ((e-57 (vector-ref sc0 1))) (let ((e-58 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 13 e-57 e-5))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-58) eta-0))))) (else (lambda (eta-0) (vector 1 arg-1))))))) +(define Syntax-Idris-n--11477-6175-goPDataDecl (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 0 e-0 e-1 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-2) eta-2)) (lambda (eta-2) (vector 1 e-3)) eta-1)) (Syntax-Idris-n--11477-6191-goPTypeDecls arg-0 e-4) eta-0)))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-6 e-8))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-7) eta-0)))))))))) +(define Syntax-Idris-n--11477-6185-goPClauses (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--11477-6172-goPClause arg-0 e-2) eta-1)) (Syntax-Idris-n--11477-6185-goPClauses arg-0 e-3) eta-0))))))))) +(define Syntax-Idris-n--11477-6172-goPClause (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 0 e-0 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-1) eta-2)) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-2) eta-1)) (Syntax-Idris-n--11477-6187-goPDecls arg-0 e-3) eta-0))))))) ((1) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (let ((e-7 (vector-ref sc0 4))) (let ((e-8 (vector-ref sc0 5))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-4) (let ((sc1 eta-4)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) (vector 1 (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 1 e-4 e-9 eta-5 eta-6 eta-7)))))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-5) eta-3)) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-6) eta-2)) (lambda (eta-2) (vector 1 e-7)) eta-1)) (Syntax-Idris-n--11477-6185-goPClauses arg-0 e-8) eta-0)))))))) (else (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-9 e-5))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-10) eta-0))))))))) +(define Syntax-Idris-n--11477-6179-goMPTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-2) eta-0)))))))) +(define Syntax-Idris-n--11477-6186-goMPDecls (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (Syntax-Idris-n--11477-6187-goPDecls arg-0 e-2) eta-0)))))))) +(define Syntax-Idris-n--11477-6183-go4TupledPTerms (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc4 eta-3)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (lambda (d) (lambda (ts) (vector 1 (vector 0 e-6 (vector 0 e-10 (vector 0 e-5 d))) ts))))))))) (Syntax-Idris-n--11477-6177-goPiInfo arg-0 e-14) eta-2)) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-15) eta-1)) (Syntax-Idris-n--11477-6183-go4TupledPTerms arg-0 'erased 'erased e-3) eta-0)))))))))))))))))) +(define Syntax-Idris-n--11477-6182-go3TupledPTerms (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc3 eta-2)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (lambda (eta-3) (vector 1 (vector 0 e-6 (vector 0 e-10 e-5)) eta-3)))))))) (Syntax-Idris-n--11477-6169-goPTerm arg-0 e-11) eta-1)) (Syntax-Idris-n--11477-6182-go3TupledPTerms arg-0 'erased 'erased e-3) eta-0))))))))))))))) +(define Syntax-Idris-n--8798-3681-getName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-1 (vector-ref sc0 2))) e-1)))) +(define Syntax-Idris-n--9339-4891-dePure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((tm (vector 7 e-0 (vector 0 e-3 e-4) e-2))) (Syntax-Idris-case--10118-4905 arg-0 arg-1 arg-2 arg-3 e-0 e-3 e-4 e-2 tm (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS e-4) (vector 1 "pure")))))))(else arg-4)))))))(else arg-4))))) +(define Syntax-Idris-n--9339-4892-deGuard (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((tm (vector 0 e-0 (vector 7 e-2 (vector 0 e-5 e-6) e-4)))) (Syntax-Idris-case--10119-4957 arg-0 arg-1 arg-2 arg-3 e-2 e-5 e-6 e-4 e-0 tm (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS e-6) (vector 1 "guard")))))))(else arg-4)))))))(else arg-4))))))(else arg-4))))) +(define Syntax-Idris-toBuf_TTC__SyntaxInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Syntax-Idris-toBuf_TTC__Fixity arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__Fixity arg-2125 eta-0)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Syntax-Idris-toBuf_TTC__Fixity arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-1))))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Syntax-Idris-toBuf_TTC__Fixity arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Syntax-Idris-toBuf_TTC__Fixity arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Syntax-Idris-fromBuf_TTC__Fixity arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 eta-0)))) arg-0 (StringMap-Data-toList 'erased (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-1))))) arg-2124 eta-0)))) arg-0 (StringMap-Data-toList 'erased (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-2125 eta-1))))) arg-2124 eta-0)))) arg-0 (List-Data-filter 'erased (lambda (n) (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (Builtin-fst 'erased 'erased n) (let ((sc2 arg-1)) (let ((e-3 (vector-ref sc2 4))) e-3)))) (ANameMap-Data-toList 'erased (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 3))) e-2)))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) arg-0 (let ((sc3 arg-1)) (let ((e-4 (vector-ref sc3 5))) e-4)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 (let ((sc4 arg-1)) (let ((e-9 (vector-ref sc4 7))) e-9))) ext-0))))))))))))))))))) +(define Syntax-Idris-toBuf_TTC__IFaceInfo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__Name arg-0 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-0 e-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-0 e-2 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 eta-1)))) arg-0 e-3 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((act-28 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__RigCount arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2125 eta-1)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2129) (lambda (arg-2130) (TTC-Core-toBuf_TTC__TotalReq arg-2129 arg-2130))) (lambda (arg-2129) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-2129 eta-1)))) arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTC-Core-toBuf_TTC__TotalReq arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2128 eta-2)))) arg-2127 eta-1)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2129) (lambda (arg-2130) (Binary-Utils-toBuf_TTC__Bool arg-2129 arg-2130))) (lambda (arg-2129) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2129 eta-1)))) (vector 0 (lambda (arg-2129) (lambda (arg-2130) (TTImp-TTImp-toBuf_TTC__RawImp arg-2129 arg-2130))) (lambda (arg-2129) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2129 eta-1))))) arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2128) (lambda (arg-2129) (Binary-Utils-toBuf_TTC__Bool arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2128 eta-2)))) (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTImp-TTImp-toBuf_TTC__RawImp arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-2))))) arg-2127 eta-1))))) arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTC-Core-toBuf_TTC__TotalReq arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2128 eta-2)))) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__TotalReq arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-3)))) arg-2126 eta-2)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2128) (lambda (arg-2129) (Binary-Utils-toBuf_TTC__Bool arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2128 eta-2)))) (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTImp-TTImp-toBuf_TTC__RawImp arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-2))))) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__Bool arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-3)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3))))) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__RigCount arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2125 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTC-Core-toBuf_TTC__TotalReq arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2128 eta-2)))) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__TotalReq arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-3)))) arg-2126 eta-2)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2128) (lambda (arg-2129) (Binary-Utils-toBuf_TTC__Bool arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2128 eta-2)))) (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTImp-TTImp-toBuf_TTC__RawImp arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-2))))) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__Bool arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-3)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3))))) arg-2126 eta-2))))) arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__TotalReq arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-3)))) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTC-Core-toBuf_TTC__TotalReq arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-4)))) arg-2126 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__Bool arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-3)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3))))) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-4)))) (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-4))))) arg-2126 eta-3))))) arg-2125 eta-2))))) arg-2124 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__RigCount arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2125 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTC-Core-toBuf_TTC__TotalReq arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2128 eta-2)))) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__TotalReq arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-3)))) arg-2126 eta-2)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2128) (lambda (arg-2129) (Binary-Utils-toBuf_TTC__Bool arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2128 eta-2)))) (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTImp-TTImp-toBuf_TTC__RawImp arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-2))))) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__Bool arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-3)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3))))) arg-2126 eta-2))))) arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__TotalReq arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-3)))) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTC-Core-toBuf_TTC__TotalReq arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-4)))) arg-2126 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__Bool arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-3)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3))))) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-4)))) (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-4))))) arg-2126 eta-3))))) arg-2125 eta-2))))) arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__RigCount arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__RigCount arg-2126 eta-3)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__TotalReq arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-3)))) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTC-Core-toBuf_TTC__TotalReq arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-4)))) arg-2126 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__Bool arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-3)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3))))) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-4)))) (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-4))))) arg-2126 eta-3))))) arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTC-Core-toBuf_TTC__TotalReq arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-4)))) arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__TotalReq arg-2121 arg-2123))) (lambda (arg-2128) (lambda (eta-5) (TTC-Core-fromBuf_TTC__TotalReq arg-2128 eta-5)))) arg-2127 eta-4)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-4)))) (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-4))))) arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2128) (lambda (eta-5) (Binary-Utils-fromBuf_TTC__Bool arg-2128 eta-5)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2128) (lambda (eta-5) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-5))))) arg-2127 eta-4))))) arg-2126 eta-3))))) arg-2125 eta-2))))) arg-2124 eta-1)))) arg-0 e-4 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2125 eta-2)))) arg-2122 arg-2124 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2125 eta-2)))) arg-2124 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2125 eta-3)))) arg-2121 arg-2123 eta-2)))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2126 eta-3)))) arg-2125 eta-2))))) arg-2124 eta-1)))) arg-0 e-5 eta-0))))))))))))))))))))))))))))))) (define Syntax-Idris-toBuf_TTC__Fixity (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) ((2) (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0))))))) (define Syntax-Idris-show_Show__REPLOpt (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "showimplicits = " (Prelude-show_Show__Bool e-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "shownamespace = " (Prelude-show_Show__Bool e-1)))) ((2) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "showtypes = " (Prelude-show_Show__Bool e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "eval = " (Syntax-Idris-show_Show__REPLEval e-3)))) ((4) (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "editor = " (Prelude-show_Show__String e-4)))) (else (let ((e-5 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "cg = " e-5))))))) (define Syntax-Idris-show_Show__REPLEval (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "typecheck") ((1) "normalise") (else "execute"))))) (define Syntax-Idris-show_Show__PTerm (lambda (arg-0) (Syntax-Idris-showPrec_Show__PTerm (vector 0 ) arg-0))) -(define Syntax-Idris-showPrec_Show__PTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (Name-Core-showPrec_Show__Name arg-0 e-1))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((1) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 " -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))) (else (let ((e-140 (vector-ref sc2 1))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-140) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 ") -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))))))))))) ((0) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "{" (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 "_ : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7))))))) (else (let ((e-143 (vector-ref sc2 1))) (Strings-Prelude-C-43C-43 "{" (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-143) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))))))))))) ((2) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 " => " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))) (else (let ((e-146 (vector-ref sc2 1))) (Strings-Prelude-C-43C-43 "{auto " (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-146) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))))))))))) (else (let ((e-137 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "{default " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) e-137) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 "_ : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7))))))))) (else (let ((e-149 (vector-ref sc2 1))) (Strings-Prelude-C-43C-43 "{default " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) e-137) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-149) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7))))))))))))))))))))))) ((2) (let ((e-9 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (let ((sc1 e-12)) (case (vector-ref sc1 0) ((24) (Strings-Prelude-C-43C-43 "\\" (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-9) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-11) (Strings-Prelude-C-43C-43 " => " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-13))))))(else (Strings-Prelude-C-43C-43 "\\" (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-9) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-11) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-12) (Strings-Prelude-C-43C-43 " => " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-13))))))))))))))) ((3) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (let ((e-20 (vector-ref sc0 7))) (let ((sc1 e-17)) (case (vector-ref sc1 0) ((24) (Strings-Prelude-C-43C-43 "let " (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-15) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-16) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-18) (Strings-Prelude-C-43C-43 " in " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-19))))))))(else (Strings-Prelude-C-43C-43 "let " (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-15) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-16) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-17) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-18) (Strings-Prelude-C-43C-43 ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Syntax-Idris-n--9000-4377-showAlt e-14 e-20 e-19 e-18 e-17 e-16 e-15 arg-0 eta-0))) e-20) (Strings-Prelude-C-43C-43 " in " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-19))))))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "case " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-22) (Strings-Prelude-C-43C-43 " of { " (Strings-Prelude-C-43C-43 (Name-Core-showSep " ; " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-n--9000-4440-showCase arg-0 e-21 e-23 e-22 eta-0)) e-23)) " }")))))))) ((5) (let ((e-26 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "let { << definitions >> } in " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-26)))) ((6) (let ((e-28 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "record { " (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-showUpdate eta-0)) e-28)) " }")))) ((7) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) e-30) (Strings-Prelude-C-43C-43 " " (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) e-31)))))) ((8) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-33) (Strings-Prelude-C-43C-43 " | " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-34)))))) ((9) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (let ((e-38 (vector-ref sc0 4))) (let ((sc1 e-37)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-36) (Strings-Prelude-C-43C-43 " @{" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-38) "}")))) (else (let ((e-154 (vector-ref sc1 1))) (let ((sc2 e-38)) (case (vector-ref sc2 0) ((0) (let ((e-155 (vector-ref sc2 1))) (let ((e-156 (vector-ref sc2 2))) (Syntax-Idris-case--9000-4570 e-35 e-155 e-154 e-156 e-36 arg-0 (Name-Core-C-61C-61_Eq__Name e-154 e-156)))))(else (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-36) (Strings-Prelude-C-43C-43 " {" (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-154) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-38) "}"))))))))))))))))) ((10) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (let ((sc1 e-40)) (case (vector-ref sc1 0) ((0) (Prelude-showCon arg-0 "Inf" (Prelude-showArg 'erased (vector 0 (lambda (x) (Syntax-Idris-show_Show__PTerm x)) (lambda (d) (lambda (x) (Syntax-Idris-showPrec_Show__PTerm d x)))) e-41)))(else (Prelude-showCon arg-0 "Lazy" (Prelude-showArg 'erased (vector 0 (lambda (x) (Syntax-Idris-show_Show__PTerm x)) (lambda (d) (lambda (x) (Syntax-Idris-showPrec_Show__PTerm d x)))) e-41)))))))) ((11) (let ((e-43 (vector-ref sc0 2))) (Prelude-showCon arg-0 "Delay" (Prelude-showArg 'erased (vector 0 (lambda (x) (Syntax-Idris-show_Show__PTerm x)) (lambda (d) (lambda (x) (Syntax-Idris-showPrec_Show__PTerm d x)))) e-43)))) ((12) (let ((e-45 (vector-ref sc0 2))) (Prelude-showCon arg-0 "Force" (Prelude-showArg 'erased (vector 0 (lambda (x) (Syntax-Idris-show_Show__PTerm x)) (lambda (d) (lambda (x) (Syntax-Idris-showPrec_Show__PTerm d x)))) e-45)))) ((13) "%search") ((15) (let ((e-49 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "`(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-49) ")")))) ((16) (let ((e-51 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "`{{" (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-51) "}}")))) ((17) "`[ <> ]") ((18) (let ((e-55 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "~(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-55) ")")))) ((19) (let ((e-57 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "%runElab " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-57)))) ((14) (let ((e-59 (vector-ref sc0 2))) (TT-Core-showPrec_Show__Constant arg-0 e-59))) ((20) (let ((e-62 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "?" e-62))) ((21) "Type") ((22) (let ((e-65 (vector-ref sc0 2))) (let ((e-66 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-65) (Strings-Prelude-C-43C-43 "@" (Syntax-Idris-showPrec_Show__PTerm arg-0 e-66)))))) ((23) (let ((e-68 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "." (Syntax-Idris-showPrec_Show__PTerm arg-0 e-68)))) ((24) "_") ((25) "?") ((26) (let ((e-72 (vector-ref sc0 2))) (let ((e-73 (vector-ref sc0 3))) (let ((e-74 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-73) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-72) (Strings-Prelude-C-43C-43 " " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-74))))))))) ((27) (let ((e-76 (vector-ref sc0 2))) (let ((e-77 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-76) (Syntax-Idris-showPrec_Show__PTerm arg-0 e-77))))) ((28) (let ((e-79 (vector-ref sc0 2))) (let ((e-80 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-79) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-80) ")"))))))) ((29) (let ((e-82 (vector-ref sc0 2))) (let ((e-83 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-82) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-83) ")"))))))) ((30) (let ((e-85 (vector-ref sc0 2))) (let ((e-86 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-85) (Strings-Prelude-C-43C-43 " = " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-86)))))) ((31) (let ((e-88 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-88) ")")))) ((32) (let ((e-90 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "do " (Name-Core-showSep " ; " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-showDo eta-0)) e-90))))) ((33) (let ((e-92 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "!" (Syntax-Idris-showPrec_Show__PTerm arg-0 e-92)))) ((34) (let ((e-94 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "[|" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-94) "|]")))) ((35) (let ((e-96 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-2) (Syntax-Idris-showPrec_Show__PTerm arg-0 arg-2)) e-96)) "]")))) ((36) (let ((e-98 (vector-ref sc0 2))) (let ((e-99 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-98) (Strings-Prelude-C-43C-43 ", " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-99) ")"))))))) ((37) (let ((e-101 (vector-ref sc0 2))) (let ((e-102 (vector-ref sc0 3))) (let ((e-103 (vector-ref sc0 4))) (let ((sc1 e-102)) (case (vector-ref sc1 0) ((24) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-101) (Strings-Prelude-C-43C-43 " ** " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-103) ")")))))(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-101) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-102) (Strings-Prelude-C-43C-43 " ** " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-103) ")"))))))))))))) ((38) "()") ((39) (let ((e-106 (vector-ref sc0 2))) (let ((e-107 (vector-ref sc0 3))) (let ((e-108 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "if " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-106) (Strings-Prelude-C-43C-43 " then " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-107) (Strings-Prelude-C-43C-43 " else " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-108)))))))))) ((40) (let ((e-109 (vector-ref sc0 1))) (let ((e-110 (vector-ref sc0 2))) (let ((e-111 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 (Syntax-Idris-n--9000-4883-dePure e-109 e-111 e-110 arg-0 e-110)) (Strings-Prelude-C-43C-43 " | " (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-showDo (Syntax-Idris-n--9000-4884-deGuard e-109 e-111 e-110 arg-0 eta-0))) e-111)) "]")))))))) ((41) (let ((e-113 (vector-ref sc0 2))) (let ((e-114 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "rewrite " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-113) (Strings-Prelude-C-43C-43 " in " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-114))))))) ((42) (let ((e-116 (vector-ref sc0 2))) (let ((e-117 (vector-ref sc0 3))) (let ((e-118 (vector-ref sc0 4))) (let ((sc1 e-117)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-116) (Strings-Prelude-C-43C-43 " .. " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-118) "]"))))) (else (let ((e-160 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-116) (Strings-Prelude-C-43C-43 ", " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-160) (Strings-Prelude-C-43C-43 " .. " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-118) "]")))))))))))))) ((43) (let ((e-120 (vector-ref sc0 2))) (let ((e-121 (vector-ref sc0 3))) (let ((sc1 e-121)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-120) " .. ]"))) (else (let ((e-163 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-120) (Strings-Prelude-C-43C-43 ", " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-163) " .. ]"))))))))))) ((46) (let ((e-124 (vector-ref sc0 3))) (Syntax-Idris-showPrec_Show__PTerm arg-0 e-124))) ((44) (let ((e-126 (vector-ref sc0 2))) (let ((e-127 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-126) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Name-Core-show_Show__Name eta-0))) e-127))))) ((45) (let ((e-129 (vector-ref sc0 2))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Name-Core-show_Show__Name eta-0))) e-129))) (else (let ((e-131 (vector-ref sc0 2))) (let ((e-132 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "with " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-131) (Strings-Prelude-C-43C-43 " " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-132))))))))))) -(define Syntax-Idris-resolved_HasNames__SyntaxInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Syntax-Idris-resolved_HasNames__C-40ANameMapC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (lambda (eta-0) (Syntax-Idris-full_HasNames__IFaceInfo arg-5886 arg-5887 eta-0)))) (lambda (arg-5888) (lambda (arg-5889) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__IFaceInfo arg-5888 arg-5889 eta-0))))) arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (arg-2) (Context-Core-resolved_HasNames__Name arg-0 arg-2)) (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 4))) e-3))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-5 e-6 e-4 e-7))))))))))))))))))) +(define Syntax-Idris-showPrec_Show__PTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (Name-Core-showPrec_Show__Name arg-0 e-1))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((1) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 " -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))) (else (let ((e-140 (vector-ref sc2 1))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-140) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 ") -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))))))))))) ((0) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "{" (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 "_ : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7))))))) (else (let ((e-143 (vector-ref sc2 1))) (Strings-Prelude-C-43C-43 "{" (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-143) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))))))))))) ((2) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 " => " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))) (else (let ((e-146 (vector-ref sc2 1))) (Strings-Prelude-C-43C-43 "{auto " (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-146) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))))))))))) (else (let ((e-137 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "{default " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) e-137) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 "_ : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7))))))))) (else (let ((e-149 (vector-ref sc2 1))) (Strings-Prelude-C-43C-43 "{default " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) e-137) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-149) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7))))))))))))))))))))))) ((2) (let ((e-9 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (let ((sc1 e-12)) (case (vector-ref sc1 0) ((24) (Strings-Prelude-C-43C-43 "\\" (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-9) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-11) (Strings-Prelude-C-43C-43 " => " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-13))))))(else (Strings-Prelude-C-43C-43 "\\" (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-9) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-11) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-12) (Strings-Prelude-C-43C-43 " => " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-13))))))))))))))) ((3) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (let ((e-20 (vector-ref sc0 7))) (let ((sc1 e-17)) (case (vector-ref sc1 0) ((24) (Strings-Prelude-C-43C-43 "let " (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-15) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-16) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-18) (Strings-Prelude-C-43C-43 " in " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-19))))))))(else (Strings-Prelude-C-43C-43 "let " (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-15) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-16) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-17) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-18) (Strings-Prelude-C-43C-43 ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Syntax-Idris-n--9339-4385-showAlt e-14 e-20 e-19 e-18 e-17 e-16 e-15 arg-0 eta-0))) e-20) (Strings-Prelude-C-43C-43 " in " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-19))))))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "case " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-22) (Strings-Prelude-C-43C-43 " of { " (Strings-Prelude-C-43C-43 (Name-Core-showSep " ; " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-n--9339-4448-showCase arg-0 e-21 e-23 e-22 eta-0)) e-23)) " }")))))))) ((5) (let ((e-26 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "let { << definitions >> } in " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-26)))) ((6) (let ((e-28 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "record { " (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-showUpdate eta-0)) e-28)) " }")))) ((7) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) e-30) (Strings-Prelude-C-43C-43 " " (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) e-31)))))) ((8) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-33) (Strings-Prelude-C-43C-43 " | " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-34)))))) ((9) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (let ((e-38 (vector-ref sc0 4))) (let ((sc1 e-37)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-36) (Strings-Prelude-C-43C-43 " @{" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-38) "}")))) (else (let ((e-154 (vector-ref sc1 1))) (let ((sc2 e-38)) (case (vector-ref sc2 0) ((0) (let ((e-155 (vector-ref sc2 1))) (let ((e-156 (vector-ref sc2 2))) (Syntax-Idris-case--9339-4578 e-35 e-155 e-154 e-156 e-36 arg-0 (Name-Core-C-61C-61_Eq__Name e-154 e-156)))))(else (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-36) (Strings-Prelude-C-43C-43 " {" (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-154) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-38) "}"))))))))))))))))) ((10) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (let ((sc1 e-40)) (case (vector-ref sc1 0) ((0) (Prelude-showCon arg-0 "Inf" (Prelude-showArg 'erased (vector 0 (lambda (x) (Syntax-Idris-show_Show__PTerm x)) (lambda (d) (lambda (x) (Syntax-Idris-showPrec_Show__PTerm d x)))) e-41)))(else (Prelude-showCon arg-0 "Lazy" (Prelude-showArg 'erased (vector 0 (lambda (x) (Syntax-Idris-show_Show__PTerm x)) (lambda (d) (lambda (x) (Syntax-Idris-showPrec_Show__PTerm d x)))) e-41)))))))) ((11) (let ((e-43 (vector-ref sc0 2))) (Prelude-showCon arg-0 "Delay" (Prelude-showArg 'erased (vector 0 (lambda (x) (Syntax-Idris-show_Show__PTerm x)) (lambda (d) (lambda (x) (Syntax-Idris-showPrec_Show__PTerm d x)))) e-43)))) ((12) (let ((e-45 (vector-ref sc0 2))) (Prelude-showCon arg-0 "Force" (Prelude-showArg 'erased (vector 0 (lambda (x) (Syntax-Idris-show_Show__PTerm x)) (lambda (d) (lambda (x) (Syntax-Idris-showPrec_Show__PTerm d x)))) e-45)))) ((13) "%search") ((15) (let ((e-49 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "`(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-49) ")")))) ((16) (let ((e-51 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "`{{" (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-51) "}}")))) ((17) "`[ <> ]") ((18) (let ((e-55 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "~(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-55) ")")))) ((19) (let ((e-57 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "%runElab " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-57)))) ((14) (let ((e-59 (vector-ref sc0 2))) (TT-Core-showPrec_Show__Constant arg-0 e-59))) ((20) (let ((e-62 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "?" e-62))) ((21) "Type") ((22) (let ((e-65 (vector-ref sc0 2))) (let ((e-66 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-65) (Strings-Prelude-C-43C-43 "@" (Syntax-Idris-showPrec_Show__PTerm arg-0 e-66)))))) ((23) (let ((e-68 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "." (Syntax-Idris-showPrec_Show__PTerm arg-0 e-68)))) ((24) "_") ((25) "?") ((26) (let ((e-72 (vector-ref sc0 2))) (let ((e-73 (vector-ref sc0 3))) (let ((e-74 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-73) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-72) (Strings-Prelude-C-43C-43 " " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-74))))))))) ((27) (let ((e-76 (vector-ref sc0 2))) (let ((e-77 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-76) (Syntax-Idris-showPrec_Show__PTerm arg-0 e-77))))) ((28) (let ((e-79 (vector-ref sc0 2))) (let ((e-80 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-79) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-80) ")"))))))) ((29) (let ((e-82 (vector-ref sc0 2))) (let ((e-83 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-82) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-83) ")"))))))) ((30) (let ((e-85 (vector-ref sc0 2))) (let ((e-86 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-85) (Strings-Prelude-C-43C-43 " = " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-86)))))) ((31) (let ((e-88 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-88) ")")))) ((32) (let ((e-90 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "do " (Name-Core-showSep " ; " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-showDo eta-0)) e-90))))) ((33) (let ((e-92 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "!" (Syntax-Idris-showPrec_Show__PTerm arg-0 e-92)))) ((34) (let ((e-94 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "[|" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-94) "|]")))) ((35) (let ((e-96 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-2) (Syntax-Idris-showPrec_Show__PTerm arg-0 arg-2)) e-96)) "]")))) ((36) (let ((e-98 (vector-ref sc0 2))) (let ((e-99 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-98) (Strings-Prelude-C-43C-43 ", " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-99) ")"))))))) ((37) (let ((e-101 (vector-ref sc0 2))) (let ((e-102 (vector-ref sc0 3))) (let ((e-103 (vector-ref sc0 4))) (let ((sc1 e-102)) (case (vector-ref sc1 0) ((24) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-101) (Strings-Prelude-C-43C-43 " ** " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-103) ")")))))(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-101) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-102) (Strings-Prelude-C-43C-43 " ** " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-103) ")"))))))))))))) ((38) "()") ((39) (let ((e-106 (vector-ref sc0 2))) (let ((e-107 (vector-ref sc0 3))) (let ((e-108 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "if " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-106) (Strings-Prelude-C-43C-43 " then " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-107) (Strings-Prelude-C-43C-43 " else " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-108)))))))))) ((40) (let ((e-109 (vector-ref sc0 1))) (let ((e-110 (vector-ref sc0 2))) (let ((e-111 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 (Syntax-Idris-n--9339-4891-dePure e-109 e-111 e-110 arg-0 e-110)) (Strings-Prelude-C-43C-43 " | " (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-showDo (Syntax-Idris-n--9339-4892-deGuard e-109 e-111 e-110 arg-0 eta-0))) e-111)) "]")))))))) ((41) (let ((e-113 (vector-ref sc0 2))) (let ((e-114 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "rewrite " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-113) (Strings-Prelude-C-43C-43 " in " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-114))))))) ((42) (let ((e-116 (vector-ref sc0 2))) (let ((e-117 (vector-ref sc0 3))) (let ((e-118 (vector-ref sc0 4))) (let ((sc1 e-117)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-116) (Strings-Prelude-C-43C-43 " .. " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-118) "]"))))) (else (let ((e-160 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-116) (Strings-Prelude-C-43C-43 ", " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-160) (Strings-Prelude-C-43C-43 " .. " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-118) "]")))))))))))))) ((43) (let ((e-120 (vector-ref sc0 2))) (let ((e-121 (vector-ref sc0 3))) (let ((sc1 e-121)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-120) " .. ]"))) (else (let ((e-163 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-120) (Strings-Prelude-C-43C-43 ", " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-163) " .. ]"))))))))))) ((46) (let ((e-124 (vector-ref sc0 3))) (Syntax-Idris-showPrec_Show__PTerm arg-0 e-124))) ((44) (let ((e-126 (vector-ref sc0 2))) (let ((e-127 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-126) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Name-Core-show_Show__Name eta-0))) e-127))))) ((45) (let ((e-129 (vector-ref sc0 2))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Name-Core-show_Show__Name eta-0))) e-129))) (else (let ((e-131 (vector-ref sc0 2))) (let ((e-132 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "with " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-131) (Strings-Prelude-C-43C-43 " " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-132))))))))))) +(define Syntax-Idris-resolved_HasNames__SyntaxInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Syntax-Idris-resolved_HasNames__C-40ANameMapC-32C-36aC-41 'erased (vector 0 (lambda (arg-6290) (lambda (arg-6291) (lambda (eta-0) (Syntax-Idris-full_HasNames__IFaceInfo arg-6290 arg-6291 eta-0)))) (lambda (arg-6292) (lambda (arg-6293) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__IFaceInfo arg-6292 arg-6293 eta-0))))) arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (arg-2) (Context-Core-resolved_HasNames__Name arg-0 arg-2)) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 4))) (let ((e-8 (vector-ref sc2 6))) (let ((e-7 (vector-ref sc2 7))) (vector 0 e-0 e-1 e-5 e-3 e-6 e-8 e-7)))))))))))))))))))) (define Syntax-Idris-resolved_HasNames__IFaceInfo (lambda (arg-0 arg-1 ext-0) (vector 1 arg-1))) -(define Syntax-Idris-resolved_HasNames__C-40ANameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Syntax-Idris-n--10768-5862-insertAll 'erased arg-1 arg-3 arg-2 (ANameMap-Data-empty 'erased) (ANameMap-Data-toList 'erased arg-3)))) -(define Syntax-Idris-full_HasNames__SyntaxInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Syntax-Idris-full_HasNames__C-40ANameMapC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (lambda (eta-0) (Syntax-Idris-full_HasNames__IFaceInfo arg-5886 arg-5887 eta-0)))) (lambda (arg-5888) (lambda (arg-5889) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__IFaceInfo arg-5888 arg-5889 eta-0))))) arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (arg-2) (Context-Core-full_HasNames__Name arg-0 arg-2)) (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 4))) e-3))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-5 e-6 e-4 e-7))))))))))))))))))) +(define Syntax-Idris-resolved_HasNames__C-40ANameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Syntax-Idris-n--11235-5992-insertAll 'erased arg-1 arg-3 arg-2 (ANameMap-Data-empty 'erased) (ANameMap-Data-toList 'erased arg-3)))) +(define Syntax-Idris-full_HasNames__SyntaxInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Syntax-Idris-full_HasNames__C-40ANameMapC-32C-36aC-41 'erased (vector 0 (lambda (arg-6290) (lambda (arg-6291) (lambda (eta-0) (Syntax-Idris-full_HasNames__IFaceInfo arg-6290 arg-6291 eta-0)))) (lambda (arg-6292) (lambda (arg-6293) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__IFaceInfo arg-6292 arg-6293 eta-0))))) arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (arg-2) (Context-Core-full_HasNames__Name arg-0 arg-2)) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 4))) (let ((e-8 (vector-ref sc2 6))) (let ((e-7 (vector-ref sc2 7))) (vector 0 e-0 e-1 e-5 e-3 e-6 e-8 e-7)))))))))))))))))))) (define Syntax-Idris-full_HasNames__IFaceInfo (lambda (arg-0 arg-1 ext-0) (vector 1 arg-1))) -(define Syntax-Idris-full_HasNames__C-40ANameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Syntax-Idris-n--10767-5821-insertAll 'erased arg-1 arg-3 arg-2 (ANameMap-Data-empty 'erased) (ANameMap-Data-toList 'erased arg-3)))) -(define Syntax-Idris-fromBuf_TTC__SyntaxInfo (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Syntax-Idris-toBuf_TTC__Fixity arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__Fixity arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Syntax-Idris-toBuf_TTC__Fixity arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Syntax-Idris-toBuf_TTC__Fixity arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Syntax-Idris-toBuf_TTC__Fixity arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Syntax-Idris-fromBuf_TTC__Fixity arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1))))) arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-2107 eta-1))))) arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (vector 0 (StringMap-Data-fromList 'erased e-5) (StringMap-Data-fromList 'erased e-6) (ANameMap-Data-fromList 'erased e-7) e-8 (vector 0 ) e-9))))))))))))))))))))))))))))) -(define Syntax-Idris-fromBuf_TTC__IFaceInfo (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__RigCount arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2111) (lambda (arg-2112) (TTC-Core-toBuf_TTC__TotalReq arg-2111 arg-2112))) (lambda (arg-2111) (lambda (eta-0) (TTC-Core-fromBuf_TTC__TotalReq arg-2111 eta-0)))) arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTC-Core-toBuf_TTC__TotalReq arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-2110 eta-1)))) arg-2109 eta-0)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2111) (lambda (arg-2112) (Binary-Utils-toBuf_TTC__Bool arg-2111 arg-2112))) (lambda (arg-2111) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2111 eta-0)))) (vector 0 (lambda (arg-2111) (lambda (arg-2112) (TTImp-TTImp-toBuf_TTC__RawImp arg-2111 arg-2112))) (lambda (arg-2111) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2111 eta-0))))) arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2110) (lambda (arg-2111) (Binary-Utils-toBuf_TTC__Bool arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2110 eta-1)))) (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-1))))) arg-2109 eta-0))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTC-Core-toBuf_TTC__TotalReq arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-2110 eta-1)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-2)))) arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2110) (lambda (arg-2111) (Binary-Utils-toBuf_TTC__Bool arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2110 eta-1)))) (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-1))))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-2)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2))))) arg-2108 eta-1))))) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__RigCount arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTC-Core-toBuf_TTC__TotalReq arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-2110 eta-1)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-2)))) arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2110) (lambda (arg-2111) (Binary-Utils-toBuf_TTC__Bool arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2110 eta-1)))) (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-1))))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-2)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2))))) arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-2)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTC-Core-toBuf_TTC__TotalReq arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-2)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2))))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__RigCount arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTC-Core-toBuf_TTC__TotalReq arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-2110 eta-1)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-2)))) arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2110) (lambda (arg-2111) (Binary-Utils-toBuf_TTC__Bool arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2110 eta-1)))) (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-1))))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-2)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2))))) arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-2)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTC-Core-toBuf_TTC__TotalReq arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-2)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2))))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__RigCount arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-2)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTC-Core-toBuf_TTC__TotalReq arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-2)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2))))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTC-Core-toBuf_TTC__TotalReq arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-3)))) arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__TotalReq arg-2103 arg-2105))) (lambda (arg-2110) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-2110 eta-4)))) arg-2109 eta-3)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2110) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-2110 eta-4)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2110) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-4))))) arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2107 eta-1)))) arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2107 eta-1)))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2107 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2108 eta-2)))) arg-2107 eta-1))))) arg-2106 eta-0)))) arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) +(define Syntax-Idris-full_HasNames__C-40ANameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Syntax-Idris-n--11234-5950-insertAll 'erased arg-1 arg-3 arg-2 (ANameMap-Data-empty 'erased) (ANameMap-Data-toList 'erased arg-3)))) +(define Syntax-Idris-fromBuf_TTC__SyntaxInfo (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Syntax-Idris-toBuf_TTC__Fixity arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__Fixity arg-2125 eta-0)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Syntax-Idris-toBuf_TTC__Fixity arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-1))))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Syntax-Idris-toBuf_TTC__Fixity arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Syntax-Idris-toBuf_TTC__Fixity arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Syntax-Idris-fromBuf_TTC__Fixity arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-1))))) arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-2125 eta-1))))) arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (vector 0 (StringMap-Data-fromList 'erased e-5) (StringMap-Data-fromList 'erased e-6) (ANameMap-Data-fromList 'erased e-7) (vector 0 ) e-8 (vector 0 ) e-9))))))))))))))))))))))))))))) +(define Syntax-Idris-fromBuf_TTC__IFaceInfo (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__RigCount arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RigCount arg-2125 eta-0)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2129) (lambda (arg-2130) (TTC-Core-toBuf_TTC__TotalReq arg-2129 arg-2130))) (lambda (arg-2129) (lambda (eta-0) (TTC-Core-fromBuf_TTC__TotalReq arg-2129 eta-0)))) arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTC-Core-toBuf_TTC__TotalReq arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-2128 eta-1)))) arg-2127 eta-0)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2129) (lambda (arg-2130) (Binary-Utils-toBuf_TTC__Bool arg-2129 arg-2130))) (lambda (arg-2129) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2129 eta-0)))) (vector 0 (lambda (arg-2129) (lambda (arg-2130) (TTImp-TTImp-toBuf_TTC__RawImp arg-2129 arg-2130))) (lambda (arg-2129) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2129 eta-0))))) arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2128) (lambda (arg-2129) (Binary-Utils-toBuf_TTC__Bool arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2128 eta-1)))) (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTImp-TTImp-toBuf_TTC__RawImp arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-1))))) arg-2127 eta-0))))) arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTC-Core-toBuf_TTC__TotalReq arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-2128 eta-1)))) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__TotalReq arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-2)))) arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2128) (lambda (arg-2129) (Binary-Utils-toBuf_TTC__Bool arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2128 eta-1)))) (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTImp-TTImp-toBuf_TTC__RawImp arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-1))))) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__Bool arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-2)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-2))))) arg-2126 eta-1))))) arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__RigCount arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTC-Core-toBuf_TTC__TotalReq arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-2128 eta-1)))) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__TotalReq arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-2)))) arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2128) (lambda (arg-2129) (Binary-Utils-toBuf_TTC__Bool arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2128 eta-1)))) (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTImp-TTImp-toBuf_TTC__RawImp arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-1))))) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__Bool arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-2)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-2))))) arg-2126 eta-1))))) arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__TotalReq arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-2)))) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTC-Core-toBuf_TTC__TotalReq arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-3)))) arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__Bool arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-2)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-2))))) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3))))) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__RigCount arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTC-Core-toBuf_TTC__TotalReq arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-2128 eta-1)))) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__TotalReq arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-2)))) arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2128) (lambda (arg-2129) (Binary-Utils-toBuf_TTC__Bool arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2128 eta-1)))) (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTImp-TTImp-toBuf_TTC__RawImp arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-1))))) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__Bool arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-2)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-2))))) arg-2126 eta-1))))) arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__TotalReq arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-2)))) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTC-Core-toBuf_TTC__TotalReq arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-3)))) arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__Bool arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-2)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-2))))) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3))))) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__RigCount arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__TotalReq arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-2)))) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTC-Core-toBuf_TTC__TotalReq arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-3)))) arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__Bool arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-2)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-2))))) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3))))) arg-2126 eta-2))))) arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTC-Core-toBuf_TTC__TotalReq arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-3)))) arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__TotalReq arg-2121 arg-2123))) (lambda (arg-2128) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-2128 eta-4)))) arg-2127 eta-3)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3))))) arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2128) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-2128 eta-4)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2128) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-4))))) arg-2127 eta-3))))) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2125 eta-1)))) arg-2122 arg-2124 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2125 eta-1)))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2125 eta-2)))) arg-2121 arg-2123 eta-1)))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2126 eta-2)))) arg-2125 eta-1))))) arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))))))))) (define Syntax-Idris-fromBuf_TTC__Fixity (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (vector 1 (vector 2 ))) ((equal? sc1 3) (vector 1 (vector 3 )))(else (Binary-Utils-corrupt 'erased "Fixity" ext-0))))))))))) -(define Syntax-Idris-__Impl_TTC_SyntaxInfo (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-2106 eta-0)))))) -(define Syntax-Idris-__Impl_TTC_IFaceInfo (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-2106 eta-0)))))) -(define Syntax-Idris-__Impl_TTC_Fixity (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Syntax-Idris-toBuf_TTC__Fixity arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__Fixity arg-2106 eta-0)))))) +(define Syntax-Idris-__Impl_TTC_SyntaxInfo (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-2124 eta-0)))))) +(define Syntax-Idris-__Impl_TTC_IFaceInfo (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-2124 eta-0)))))) +(define Syntax-Idris-__Impl_TTC_Fixity (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Syntax-Idris-toBuf_TTC__Fixity arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__Fixity arg-2124 eta-0)))))) (define Syntax-Idris-__Impl_Show_PTerm (lambda () (vector 0 (lambda (x) (Syntax-Idris-show_Show__PTerm x)) (lambda (d) (lambda (x) (Syntax-Idris-showPrec_Show__PTerm d x)))))) -(define Syntax-Idris-__Impl_HasNames_SyntaxInfo (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (lambda (eta-0) (Syntax-Idris-full_HasNames__SyntaxInfo arg-5886 arg-5887 eta-0)))) (lambda (arg-5888) (lambda (arg-5889) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__SyntaxInfo arg-5888 arg-5889 eta-0))))))) -(define Syntax-Idris-__Impl_HasNames_IFaceInfo (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (lambda (eta-0) (Syntax-Idris-full_HasNames__IFaceInfo arg-5886 arg-5887 eta-0)))) (lambda (arg-5888) (lambda (arg-5889) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__IFaceInfo arg-5888 arg-5889 eta-0))))))) -(define Syntax-Idris-__Impl_HasNames_C-40ANameMapC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Syntax-Idris-full_HasNames__C-40ANameMapC-32C-36aC-41 'erased arg-1 arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Syntax-Idris-resolved_HasNames__C-40ANameMapC-32C-36aC-41 'erased arg-1 arg-5888 arg-5889)))))) +(define Syntax-Idris-__Impl_HasNames_SyntaxInfo (lambda () (vector 0 (lambda (arg-6290) (lambda (arg-6291) (lambda (eta-0) (Syntax-Idris-full_HasNames__SyntaxInfo arg-6290 arg-6291 eta-0)))) (lambda (arg-6292) (lambda (arg-6293) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__SyntaxInfo arg-6292 arg-6293 eta-0))))))) +(define Syntax-Idris-__Impl_HasNames_IFaceInfo (lambda () (vector 0 (lambda (arg-6290) (lambda (arg-6291) (lambda (eta-0) (Syntax-Idris-full_HasNames__IFaceInfo arg-6290 arg-6291 eta-0)))) (lambda (arg-6292) (lambda (arg-6293) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__IFaceInfo arg-6292 arg-6293 eta-0))))))) +(define Syntax-Idris-__Impl_HasNames_C-40ANameMapC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Syntax-Idris-full_HasNames__C-40ANameMapC-32C-36aC-41 'erased arg-1 arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Syntax-Idris-resolved_HasNames__C-40ANameMapC-32C-36aC-41 'erased arg-1 arg-6292 arg-6293)))))) (define Syntax-Idris-C-61C-61_Eq__Pass (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0)(else 1))))(else 1))))) -(define SyntaxInfo-Syntax-Idris-usingImpl (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4)))) +(define SyntaxInfo-Syntax-Idris-usingImpl (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5)))) (define Syntax-Idris-typePass (lambda (arg-0) (Prelude-C-124C-124 (Syntax-Idris-C-61C-61_Eq__Pass arg-0 (vector 0 )) (lambda () (Syntax-Idris-C-61C-61_Eq__Pass arg-0 (vector 1 )))))) -(define SyntaxInfo-Syntax-Idris-startExpr (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5)))) +(define SyntaxInfo-Syntax-Idris-startExpr (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-6 (vector-ref sc0 7))) e-6)))) (define Syntax-Idris-showUpdate (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-showSep "." e-0) (Strings-Prelude-C-43C-43 " = " (Syntax-Idris-show_Show__PTerm e-1)))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-showSep "." e-2) (Strings-Prelude-C-43C-43 " $= " (Syntax-Idris-show_Show__PTerm e-3)))))))))) -(define Syntax-Idris-showDo (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (Syntax-Idris-show_Show__PTerm e-1))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-3) (Strings-Prelude-C-43C-43 " <- " (Syntax-Idris-show_Show__PTerm e-4)))))) ((2) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-6) (Strings-Prelude-C-43C-43 " <- " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-7) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Syntax-Idris-showAlt eta-0))) e-8)))))))) ((3) (let ((e-10 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 "let " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-10) (Strings-Prelude-C-43C-43 " = " (Syntax-Idris-show_Show__PTerm e-13))))))) ((4) (let ((e-15 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 "let " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-15) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-17) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Syntax-Idris-showAlt eta-0))) e-18))))))))) ((5) "let { << definitions >> }") (else (let ((e-22 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "rewrite " (Syntax-Idris-show_Show__PTerm e-22)))))))) -(define Syntax-Idris-showCount (lambda (ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) "0 " "1 " (lambda (eta-0) "") ext-0))) +(define Syntax-Idris-showDo (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (Syntax-Idris-show_Show__PTerm e-1))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-3) (Strings-Prelude-C-43C-43 " <- " (Syntax-Idris-show_Show__PTerm e-4)))))) ((2) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-6) (Strings-Prelude-C-43C-43 " <- " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-7) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Syntax-Idris-showAlt eta-0))) e-8)))))))) ((3) (let ((e-10 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 "let " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-10) (Strings-Prelude-C-43C-43 " = " (Syntax-Idris-show_Show__PTerm e-13))))))) ((4) (let ((e-15 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 "let " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-15) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-17) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Syntax-Idris-showAlt eta-0))) e-18))))))))) ((5) "let { << definitions >> }") (else (let ((e-22 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "rewrite " (Syntax-Idris-show_Show__PTerm e-22)))))))) +(define Syntax-Idris-showCount (lambda (ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) "0 " "1 " (lambda (eta-0) "") ext-0))) (define Syntax-Idris-showAlt (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 " | " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-1) (Strings-Prelude-C-43C-43 " => " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-2) ";"))))))) ((1) " | <>;") (else (let ((e-10 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 " | " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-10) " impossible;")))))))) +(define SyntaxInfo-Syntax-Idris-saveIFaces (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))) (define Import-Syntax-Idris-reexport (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (define SyntaxInfo-Syntax-Idris-prefixes (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (define Import-Syntax-Idris-path (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) -(define IFaceInfo-Syntax-Idris-parents (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) -(define IFaceInfo-Syntax-Idris-params (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) +(define IFaceInfo-Syntax-Idris-parents (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))) +(define IFaceInfo-Syntax-Idris-params (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) (define Syntax-Idris-papply (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Syntax-Idris-papply arg-0 (vector 7 arg-0 arg-1 e-2) e-3)))))))) (define Import-Syntax-Idris-nameAs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))) (define Module-Syntax-Idris-moduleNS (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) -(define IFaceInfo-Syntax-Idris-methods (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))) -(define Syntax-Idris-mapPTermM (lambda (arg-0 ext-0) (Syntax-Idris-n--11004-6034-goPTerm arg-0 ext-0))) +(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--11477-6169-goPTerm arg-0 ext-0))) (define Import-Syntax-Idris-loc (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) -(define Syntax-Idris-initSyntax (lambda () (vector 0 (StringMap-Data-insert 'erased "=" (vector 0 (vector 2 ) 0) (StringMap-Data-empty 'erased)) (StringMap-Data-insert 'erased "-" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (StringMap-Data-empty 'erased)) (ANameMap-Data-empty 'erased) (vector 0 ) (vector 0 ) (vector 0 (vector 0 "(default)" (vector 0 0 0) (vector 0 0 0)) (vector 1 "main"))))) +(define Syntax-Idris-initSyntax (lambda () (vector 0 (StringMap-Data-insert 'erased "=" (vector 0 (vector 2 ) 0) (StringMap-Data-empty 'erased)) (StringMap-Data-insert 'erased "-" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (StringMap-Data-empty 'erased)) (ANameMap-Data-empty 'erased) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 (vector 0 "(default)" (vector 0 0 0) (vector 0 0 0)) (vector 1 "main"))))) (define SyntaxInfo-Syntax-Idris-infixes (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (define Module-Syntax-Idris-imports (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) +(define IFaceInfo-Syntax-Idris-implParams (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (define SyntaxInfo-Syntax-Idris-ifaces (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) (define IFaceInfo-Syntax-Idris-iconstructor (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (define Module-Syntax-Idris-headerloc (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) @@ -6199,343 +6252,358 @@ (define Syntax-Idris-getPDataDeclLoc (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) e-0)) (else (let ((e-5 (vector-ref sc0 1))) e-5)))))) (define Syntax-Idris-getPClauseLoc (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) e-0)) ((1) (let ((e-4 (vector-ref sc0 1))) e-4)) (else (let ((e-9 (vector-ref sc0 1))) e-9)))))) (define Syntax-Idris-getLoc (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) e-0)) ((1) (let ((e-2 (vector-ref sc0 1))) e-2)) ((2) (let ((e-5 (vector-ref sc0 1))) e-5)) ((3) (let ((e-9 (vector-ref sc0 1))) e-9)) ((4) (let ((e-14 (vector-ref sc0 1))) e-14)) ((5) (let ((e-19 (vector-ref sc0 1))) e-19)) (else (let ((e-21 (vector-ref sc0 1))) e-21)))))) -(define Syntax-Idris-definedInData (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 1 e-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-n--8459-3673-getName e-0 e-2 e-3 e-4 e-1 eta-0)) e-4)))))))) (else (let ((e-6 (vector-ref sc0 2))) (vector 1 e-6 (vector 0 )))))))) +(define Syntax-Idris-definedInData (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 1 e-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-n--8798-3681-getName e-0 e-2 e-3 e-4 e-1 eta-0)) e-4)))))))) (else (let ((e-6 (vector-ref sc0 2))) (vector 1 e-6 (vector 0 )))))))) (define Syntax-Idris-definedIn (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 5))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((0) (let ((e-22 (vector-ref sc2 2))) (vector 1 e-22 (Syntax-Idris-definedIn e-3))))(else (Syntax-Idris-definedIn e-3)))))) ((2) (let ((e-11 (vector-ref sc1 3))) (List-Prelude-C-43C-43 'erased (Syntax-Idris-definedInData e-11) (Syntax-Idris-definedIn e-3)))) ((3) (let ((e-14 (vector-ref sc1 3))) (List-Prelude-C-43C-43 'erased (Syntax-Idris-definedIn e-14) (Syntax-Idris-definedIn e-3)))) ((4) (let ((e-17 (vector-ref sc1 3))) (List-Prelude-C-43C-43 'erased (Syntax-Idris-definedIn e-17) (Syntax-Idris-definedIn e-3)))) ((11) (let ((e-20 (vector-ref sc1 3))) (List-Prelude-C-43C-43 'erased (Syntax-Idris-definedIn e-20) (Syntax-Idris-definedIn e-3))))(else (Syntax-Idris-definedIn e-3))))))))))) -(define IFaceInfo-Syntax-Idris-defaults (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4)))) +(define IFaceInfo-Syntax-Idris-defaults (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5)))) (define Syntax-Idris-defPass (lambda (arg-0) (Prelude-C-124C-124 (Syntax-Idris-C-61C-61_Eq__Pass arg-0 (vector 0 )) (lambda () (Syntax-Idris-C-61C-61_Eq__Pass arg-0 (vector 2 )))))) (define Module-Syntax-Idris-decls (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4)))) -(define SyntaxInfo-Syntax-Idris-bracketholes (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))) -(define ANameMap-Data-case--2558-3243 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (StringMap-Data-insert 'erased arg-4 (vector 1 (vector 0 arg-2 arg-3) (vector 0 )) arg-1)) (else (let ((e-2 (vector-ref sc0 1))) (StringMap-Data-insert 'erased arg-4 (ANameMap-Data-n--2469-3139-update 'erased arg-3 arg-1 arg-2 arg-3 e-2) arg-1))))))) -(define ANameMap-Data-case--2469-3213 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (ANameMap-Data-case--2558-3243 'erased arg-2 arg-3 arg-1 e-2 (StringMap-Data-lookup 'erased e-2 arg-2)))))))) -(define ANameMap-Data-case--2478-3163 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-3 arg-6) arg-5)) (else (vector 1 arg-4 (ANameMap-Data-n--2469-3139-update 'erased arg-1 arg-2 arg-3 arg-6 arg-5))))))) -(define ANameMap-Data-case--2379-3107 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (List-Data-filter 'erased (lambda (eta-0) (ANameMap-Data-n--2343-3021-matches 'erased arg-1 arg-2 arg-2 eta-0)) e-2))))))) -(define ANameMap-Data-case--2379-3065 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 0 arg-2 e-2) (vector 0 )))))))) -(define ANameMap-Data-case--2343-3052 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (ANameMap-Data-case--2379-3065 'erased arg-1 arg-2 (ANameMap-Data-lookupExact 'erased arg-2 arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (ANameMap-Data-case--2379-3107 'erased arg-1 arg-2 e-2 (StringMap-Data-lookup 'erased e-2 (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 2))) e-3)))))))))) -(define ANameMap-Data-n--2469-3139-update (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 arg-3 arg-4) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ANameMap-Data-case--2478-3163 'erased arg-1 arg-2 arg-3 e-2 e-3 arg-4 (Name-Core-C-61C-61_Eq__Name arg-3 (Builtin-fst 'erased 'erased e-2)))))))))) -(define ANameMap-Data-n--2343-3021-matches (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (List-Data-isPrefixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-0 e-6)))(else 0)))))(else 0)))))(else 0))))) -(define ANameMap-Data-n--2717-3358-insertFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) arg-7) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ANameMap-Data-n--2717-3358-insertFrom 'erased arg-1 arg-2 arg-3 arg-4 arg-5 e-3 (ANameMap-Data-addName 'erased e-6 e-7 arg-7)))))))))))) -(define ANameMap-Data-n--2667-3310-fromListC-39 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ANameMap-Data-n--2667-3310-fromListC-39 'erased (ANameMap-Data-addName 'erased e-6 e-7 arg-1) e-3))))))))))) +(define SyntaxInfo-Syntax-Idris-bracketholes (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4)))) +(define ANameMap-Data-case--2564-3251 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (StringMap-Data-insert 'erased arg-4 (vector 1 (vector 0 arg-2 arg-3) (vector 0 )) arg-1)) (else (let ((e-2 (vector-ref sc0 1))) (StringMap-Data-insert 'erased arg-4 (ANameMap-Data-n--2475-3147-update 'erased arg-3 arg-1 arg-2 arg-3 e-2) arg-1))))))) +(define ANameMap-Data-case--2475-3221 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (ANameMap-Data-case--2564-3251 'erased arg-2 arg-3 arg-1 e-2 (StringMap-Data-lookup 'erased e-2 arg-2)))))))) +(define ANameMap-Data-case--2484-3171 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-3 arg-6) arg-5)) (else (vector 1 arg-4 (ANameMap-Data-n--2475-3147-update 'erased arg-1 arg-2 arg-3 arg-6 arg-5))))))) +(define ANameMap-Data-case--2385-3115 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (List-Data-filter 'erased (lambda (eta-0) (ANameMap-Data-n--2349-3029-matches 'erased arg-1 arg-2 arg-2 eta-0)) e-2))))))) +(define ANameMap-Data-case--2385-3073 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 0 arg-2 e-2) (vector 0 )))))))) +(define ANameMap-Data-case--2349-3060 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (ANameMap-Data-case--2385-3073 'erased arg-1 arg-2 (ANameMap-Data-lookupExact 'erased arg-2 arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (ANameMap-Data-case--2385-3115 'erased arg-1 arg-2 e-2 (StringMap-Data-lookup 'erased e-2 (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 2))) e-3)))))))))) +(define ANameMap-Data-n--2475-3147-update (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 arg-3 arg-4) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ANameMap-Data-case--2484-3171 'erased arg-1 arg-2 arg-3 e-2 e-3 arg-4 (Name-Core-C-61C-61_Eq__Name arg-3 (Builtin-fst 'erased 'erased e-2)))))))))) +(define ANameMap-Data-n--2349-3029-matches (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (List-Data-isPrefixOf 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) e-0 e-6)))(else 0)))))(else 0)))))(else 0))))) +(define ANameMap-Data-n--2695-3341-insertFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-5) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ANameMap-Data-n--2695-3341-insertFrom 'erased arg-1 arg-2 arg-3 e-3 (ANameMap-Data-addName 'erased e-6 e-7 arg-5)))))))))))) +(define ANameMap-Data-n--2673-3318-fromListC-39 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ANameMap-Data-n--2673-3318-fromListC-39 'erased (ANameMap-Data-addName 'erased e-6 e-7 arg-1) e-3))))))))))) (define ANameMap-Data-toList (lambda (arg-0 arg-1) (NameMap-Data-toList 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))) -(define ANameMap-Data-mergeAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (ANameMap-Data-n--2717-3358-insertFrom 'erased e-2 e-1 arg-3 arg-2 arg-1 (NameMap-Data-toList 'erased e-1) arg-3)))))) -(define ANameMap-Data-lookupName (lambda (arg-0 arg-1 arg-2) (ANameMap-Data-case--2343-3052 'erased arg-2 arg-1 (Name-Core-userNameRoot arg-1)))) +(define ANameMap-Data-merge (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (ANameMap-Data-n--2695-3341-insertFrom 'erased e-2 e-1 arg-2 (NameMap-Data-toList 'erased e-1) arg-2)))))) +(define ANameMap-Data-lookupName (lambda (arg-0 arg-1 arg-2) (ANameMap-Data-case--2349-3060 'erased arg-2 arg-1 (Name-Core-userNameRoot arg-1)))) (define ANameMap-Data-lookupExact (lambda (arg-0 arg-1 arg-2) (NameMap-Data-lookup 'erased arg-1 (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) e-1))))) (define ANameMap-ANameMap-Data-hierarchy (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2)))) -(define ANameMap-Data-fromList (lambda (arg-0 ext-0) (ANameMap-Data-n--2667-3310-fromListC-39 'erased (ANameMap-Data-empty 'erased) ext-0))) +(define ANameMap-Data-fromList (lambda (arg-0 ext-0) (ANameMap-Data-n--2673-3318-fromListC-39 'erased (ANameMap-Data-empty 'erased) ext-0))) (define ANameMap-ANameMap-Data-exactNames (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (define ANameMap-Data-empty (lambda (arg-0) (vector 0 (NameMap-Data-empty 'erased) (StringMap-Data-empty 'erased)))) -(define ANameMap-Data-addToHier (lambda (arg-0 arg-1 arg-2 arg-3) (ANameMap-Data-case--2469-3213 'erased arg-2 arg-3 arg-1 (Name-Core-userNameRoot arg-1)))) +(define ANameMap-Data-addToHier (lambda (arg-0 arg-1 arg-2 arg-3) (ANameMap-Data-case--2475-3221 'erased arg-2 arg-3 arg-1 (Name-Core-userNameRoot arg-1)))) (define ANameMap-Data-addName (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((dictC-39 (NameMap-Data-insert 'erased arg-1 arg-2 e-1))) (let ((hierC-39 (ANameMap-Data-addToHier 'erased arg-1 arg-2 e-2))) (vector 0 dictC-39 hierC-39)))))))) -(define SetOptions-Idris-case--10758-8562 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 1 arg-0))))))))))))))) -(define SetOptions-Idris-case--10758-8519 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (vector 1 arg-0) e-10)))))))))))))) -(define SetOptions-Idris-case--10758-8476 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 arg-0) e-9 e-10)))))))))))))) -(define SetOptions-Idris-case--10758-8433 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 arg-0) e-8 e-9 e-10)))))))))))))) -(define SetOptions-Idris-case--10758-8394 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 0 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) -(define SetOptions-Idris-case--10758-8351 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) -(define SetOptions-Idris-case--10758-8150 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setCG arg-3 e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((SetOptions-Idris-preOptions arg-3 arg-2 arg-1) eta-0)))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "No such code generator") eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Code generators available: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (Options-Core-availableCGs (let ((sc2 arg-4)) (let ((e-4 (vector-ref sc2 5))) e-4))))))) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-26)))))))))))))))) -(define SetOptions-Idris-case--10758-8128 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) -(define SetOptions-Idris-case--10758-8077 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) -(define SetOptions-Idris-case--10758-8038 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) -(define SetOptions-Idris-case--10758-7997 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) -(define SetOptions-Idris-case--10758-7954 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) -(define SetOptions-Idris-case--10758-7913 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) -(define SetOptions-Idris-preOptions (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((11) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 0 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-12 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 0 e-14 e-13 e-12 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-12 (vector-ref sc3 6))) (let ((e-11 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 0 e-14 e-13 e-4 e-12 e-11 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((18) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 0 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 0 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((12) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setOutput arg-1 (vector 1 0) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((4) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 0 e-1 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((3) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((SetOptions-Idris-case--10758-8150 e-6 e-3 arg-1 arg-0 e-5 (Options-Core-getCG (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)) e-6)) eta-0))))))))) ((14) (let ((e-7 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (SetOptions-Idris-addPkgDir arg-0 e-7 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((5) (let ((e-8 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setSourceDir arg-0 (vector 1 e-8) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((6) (let ((e-9 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setBuildDir arg-0 e-9 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((7) (let ((e-10 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setOutputDir arg-0 (vector 1 e-10) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((16) (let ((e-11 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((SetOptions-Idris-dirOption (let ((sc3 (let ((sc4 e-5)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (let ((e-0 (vector-ref sc3 1))) e-0)) e-11) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 1))))))))))))) ((28) (lambda (eta-0) (let ((act-24 (Context-Core-setLogTimings arg-0 0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((29) (lambda (eta-0) (let ((act-24 (Context-Core-setDebugElabCheck arg-0 0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((26) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setOutput arg-1 (vector 1 0) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (Context-Core-getSession arg-0 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (Context-Core-setSession arg-0 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 3))) (let ((e-14 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-13 (vector-ref sc4 6))) (let ((e-11 (vector-ref sc4 7))) (let ((e-7 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (vector 0 e-0 0 e-15 e-14 e-4 e-13 e-11 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))))))) ((27) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 0 e-12 e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((22) (let ((e-13 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-14 e-12 e-4 e-11 e-6 (vector 1 e-13) e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((23) (let ((e-14 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-13 e-12 e-4 e-11 e-6 e-7 (vector 1 e-14) e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((24) (let ((e-15 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-13 e-12 e-4 e-11 e-6 e-7 e-8 (vector 1 e-15) e-10)))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((25) (let ((e-16 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (vector 0 e-0 e-1 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 (vector 1 e-16))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))))(else (SetOptions-Idris-preOptions arg-0 arg-1 e-3))))))))))) -(define SetOptions-Idris-postOptions (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (REPL-Idris-compileExp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 (vector 0 "(script)" (vector 0 0 0) (vector 0 0 0)) (vector 1 "main")) e-4 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((act-25 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (vector 1 1)))))))))))) ((2) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (REPL-Idris-execExp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 (vector 0 "(script)" (vector 0 0 0) (vector 0 0 0)) (vector 1 e-5)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-25 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 1)))))))))))) ((0) (lambda (eta-0) (let ((act-24 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 1))))))) ((26) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((REPL-Idris-replCmd arg-0 arg-1 arg-2 arg-3 arg-4 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 1))))))))(else (SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))) -(define SetOptions-Idris-ideModeSocket (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((19) 0)(else (SetOptions-Idris-ideModeSocket e-3))))))))))) -(define SetOptions-Idris-ideMode (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((18) 0)(else (SetOptions-Idris-ideMode e-3))))))))))) -(define SetOptions-Idris-dirOption (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Path-Utils-C-60C-47C-62 (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 5))) e-4)) (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))))) eta-0))) (vector 1 act-24)))))) +(define SetOptions-Idris-case--10832-8613 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 arg-0 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) +(define SetOptions-Idris-case--10832-8570 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 1 arg-0))))))))))))))) +(define SetOptions-Idris-case--10832-8527 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (vector 1 arg-0) e-10)))))))))))))) +(define SetOptions-Idris-case--10832-8484 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 arg-0) e-9 e-10)))))))))))))) +(define SetOptions-Idris-case--10832-8441 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 arg-0) e-8 e-9 e-10)))))))))))))) +(define SetOptions-Idris-case--10832-8402 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 0 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) +(define SetOptions-Idris-case--10832-8359 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) +(define SetOptions-Idris-case--10832-8158 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setCG arg-3 e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((SetOptions-Idris-preOptions arg-3 arg-2 arg-1) eta-0)))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "No such code generator") eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Code generators available: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (Options-Core-availableCGs (let ((sc2 arg-4)) (let ((e-4 (vector-ref sc2 5))) e-4))))))) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-26 (arg-3672 eta-1))) ((arg-3673 act-26) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-26)))))))))))))))) +(define SetOptions-Idris-case--10832-8136 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) +(define SetOptions-Idris-case--10832-8085 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) +(define SetOptions-Idris-case--10832-8046 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) +(define SetOptions-Idris-case--10832-8005 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) +(define SetOptions-Idris-case--10832-7962 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) +(define SetOptions-Idris-case--10832-7921 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) +(define SetOptions-Idris-preOptions (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((11) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 0 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-12 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 0 e-14 e-13 e-12 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-12 (vector-ref sc3 6))) (let ((e-11 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 0 e-14 e-13 e-4 e-12 e-11 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((19) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 0 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 0 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((12) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setOutput arg-1 (vector 1 0) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((4) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 0 e-1 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((3) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((SetOptions-Idris-case--10832-8158 e-6 e-3 arg-1 arg-0 e-5 (Options-Core-getCG (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)) e-6)) eta-0))))))))) ((15) (let ((e-7 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (SetOptions-Idris-addPkgDir arg-0 e-7 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((5) (let ((e-8 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setSourceDir arg-0 (vector 1 e-8) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((6) (let ((e-9 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setBuildDir arg-0 e-9 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((7) (let ((e-10 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setOutputDir arg-0 (vector 1 e-10) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((17) (let ((e-11 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((SetOptions-Idris-dirOption (let ((sc3 (let ((sc4 e-5)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (let ((e-0 (vector-ref sc3 1))) e-0)) e-11) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 1))))))))))))) ((29) (lambda (eta-0) (let ((act-24 (Context-Core-setLogTimings arg-0 0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((30) (lambda (eta-0) (let ((act-24 (Context-Core-setDebugElabCheck arg-0 0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((27) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setOutput arg-1 (vector 1 0) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (Context-Core-getSession arg-0 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (Context-Core-setSession arg-0 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 3))) (let ((e-14 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-13 (vector-ref sc4 6))) (let ((e-11 (vector-ref sc4 7))) (let ((e-7 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (vector 0 e-0 0 e-15 e-14 e-4 e-13 e-11 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))))))) ((28) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 0 e-12 e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((23) (let ((e-13 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-14 e-12 e-4 e-11 e-6 (vector 1 e-13) e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((24) (let ((e-14 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-13 e-12 e-4 e-11 e-6 e-7 (vector 1 e-14) e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((25) (let ((e-15 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-13 e-12 e-4 e-11 e-6 e-7 e-8 (vector 1 e-15) e-10)))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((26) (let ((e-16 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (vector 0 e-0 e-1 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 (vector 1 e-16))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((14) (let ((e-17 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-13 e-12 e-17 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))))(else (SetOptions-Idris-preOptions arg-0 arg-1 e-3))))))))))) +(define SetOptions-Idris-postOptions (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (REPL-Idris-compileExp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 (vector 0 "(script)" (vector 0 0 0) (vector 0 0 0)) (vector 1 "main")) e-4 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((act-25 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (vector 1 1)))))))))))) ((2) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (REPL-Idris-execExp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 (vector 0 "(script)" (vector 0 0 0) (vector 0 0 0)) (vector 1 e-5)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-25 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 1)))))))))))) ((0) (lambda (eta-0) (let ((act-24 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 1))))))) ((27) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((REPL-Idris-replCmd arg-0 arg-1 arg-2 arg-3 arg-4 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 1))))))))(else (SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))) +(define SetOptions-Idris-ideModeSocket (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((20) 0)(else (SetOptions-Idris-ideModeSocket e-3))))))))))) +(define SetOptions-Idris-ideMode (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((19) 0)(else (SetOptions-Idris-ideMode e-3))))))))))) +(define SetOptions-Idris-dirOption (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Path-Utils-C-60C-47C-62 (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 5))) e-4)) (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))))) eta-0))) (vector 1 act-24)))))) (define SetOptions-Idris-addPkgDir (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Context-Core-addExtraDir arg-0 (Path-Utils-C-60C-47C-62 (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-4 (vector-ref sc1 5))) e-4)) (Path-Utils-C-60C-47C-62 (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))) arg-1)) ext-0)))))))) -(define REPL-Idris-case--27259-8813 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3)))))))) -(define REPL-Idris-case--27252-8671 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0)))))))) -(define REPL-Idris-case--27246-8596 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "") eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (REPLCommon-Idris-iputStrLn arg-0 "Bye for now!" eta-0))))))) (else (lambda (eta-0) (let ((act-24 ((REPL-Idris-interpret arg-4 arg-3 arg-2 arg-1 arg-0 arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-handleResult arg-4 arg-3 arg-2 arg-1 arg-0 e-5) eta-0)))))))))))) -(define REPL-Idris-case--27146-8429 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) e-2)))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-8 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setCurrentElabSource arg-1 arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (REPL-Idris-processCatch arg-5 arg-4 arg-3 arg-2 arg-1 e-8 eta-0)))))))))))))))) -(define REPL-Idris-case--27042-8396 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Source-Parser-runParser 'erased 1 (vector 0 ) arg-0 (vector 9 1 1 (REPL-Idris-parseEmptyCmd) (lambda () (REPL-Idris-parseCmd))))) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 1 e-2)))))))) -(define REPL-Idris-case--27045-8340 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (REPL-Idris-n--27042-8314-getLoad arg-0 (Prelude-length arg-1) arg-2 arg-4)) (else (REPL-Idris-n--27042-8315-fnameCmd arg-0 arg-3 arg-4)))))) -(define REPL-Idris-case--25292-8140 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 1 e-2)))))) -(define REPL-Idris-case--25292-8056 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Holes-IDEMode-Idris-isHole e-7) (lambda (args) (Prelude-pure_Applicative__Maybe 'erased (vector 0 e-2 (vector 0 e-7 args)))))))))))) -(define REPL-Idris-case--25292-8004 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (Holes-IDEMode-Idris-holeData (vector 0 ) arg-4 arg-2 arg-5 (vector 0 ) e-2 e-7 (let ((sc2 e-6)) (let ((e-24 (vector-ref sc2 3))) e-24)) eta-0)))))))))) -(define REPL-Idris-case--25292-7819 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc0 eta-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 18 e-5))))))) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-24 (Termination-Core-checkTotal arg-5 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (Context-Core-getTotality arg-5 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Totality arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Totality arg-5888 arg-5889)))) e-6 eta-1)))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 fn e-6))))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))) -(define REPL-Idris-case--26334-7703 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPL-Idris-displayPatTerm arg-5 arg-3 arg-6 eta-1 eta-2))) e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 arg-9 e-5)))))))))) ((2) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-5 eta-1)) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 arg-9 e-5))))))))))(else (lambda (eta-0) (vector 1 (vector 2 arg-9)))))))) -(define REPL-Idris-case--25292-7645 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc0 eta-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 17 e-5))))))) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-24 (Context-Core-getTotality arg-5 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((bind-0 arg-7)) ((REPL-Idris-case--26334-7703 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 bind-0 fn e-5 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))) eta-1))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))) -(define REPL-Idris-case--25292-7518 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Unify-Core-search (vector 0 ) arg-5 arg-4 (REPLOpts-Idris-replFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-6 e-11 (vector 0 ) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-5 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-8 eta-0)))))))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (vector 16 e-8))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))) -(define REPL-Idris-case--25292-7423 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 12 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((line (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (i) (Strings-Prelude-C-43C-43 " +" (Prelude-show_Show__Int (b+ i 1 63))))) (let ((sc1 arg-5)) (let ((e-5 (vector-ref sc1 6))) e-5))))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((System-system 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (let ((sc1 arg-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-2 line)))) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (REPL-Idris-loadMainFile arg-4 arg-3 arg-2 arg-1 arg-0 e-2 eta-0))))))))))))) -(define REPL-Idris-case--25292-7350 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 (vector 1 arg-0) e-3 e-4 e-5 e-6 e-7 e-8)))))))))))) -(define REPL-Idris-case--25292-7276 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 12 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (REPL-Idris-loadMainFile arg-4 arg-3 arg-2 arg-1 arg-0 e-2 eta-0)))))))) -(define REPL-Idris-case--25292-7218 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayPats arg-5 arg-3 arg-6 eta-1)) arg-7) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 5 e-5))))))))))))) -(define REPL-Idris-case--25292-7128 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-6 eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-normaliseScope (vector 0 ) e-5 (vector 0 ) e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-8 eta-0)))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 6 e-6 e-8)))))))))))))))))))))))))))) -(define REPL-Idris-case--25292-7042 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-6 arg-4 arg-7 eta-1)) arg-8) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 5 e-5))))))))))))) -(define REPL-Idris-case--25430-6887 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((((arg-16 arg-14) (vector 0 )) e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-6 eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 arg-18 (vector 1 e-6))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 4 arg-18 (vector 0 ))))))))) -(define REPL-Idris-case--25336-6812 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((norm (REPL-Idris-n--25292-6686-nfun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) e-1))))) (let ((act-26 ((((norm e-5) (vector 0 )) e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Normalise-Core-logTermNF (vector 0 ) arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") (vector 0 ) e-7 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-0 (vector 0 e-2 e-3))) ((REPL-Idris-case--25430-6887 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2 e-3 _-0 e-5 e-6 norm e-7 e-8 e-9 (let ((sc6 e-6)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0)))))))))))))))))))))))))))))))))) -(define REPL-Idris-case--25292-6721 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (let ((act-24 (REPL-Idris-execExp arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-0))))))))(else (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-3 arg-5 arg-2 arg-4 (vector 1 ) (vector 0 ) arg-0 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-resolveName arg-5 (vector 1 "[input]")) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-26 (Context-Core-hide arg-5 (REPLOpts-Idris-replFC) (vector 0 (vector 1 "PrimIO" (vector 0 )) (vector 1 "::")) eta-1))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Context-Core-hide arg-5 (REPLOpts-Idris-replFC) (vector 0 (vector 1 "PrimIO" (vector 0 )) (vector 1 "Nil")) eta-1)))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 0 )))) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Elab-TTImp-elabTerm (vector 0 ) arg-5 arg-2 arg-4 e-6 (REPL-Idris-n--25292-6685-emode arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc3 arg-6)) (let ((e-1 (vector-ref sc3 2))) e-1))) (vector 0 ) (vector 0 ) (vector 0 ) e-5 (vector 0 )) eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-28 (let ((act-28 (unbox arg-5))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (let ((act-29 (unbox arg-1))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((norm (REPL-Idris-n--25292-6686-nfun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 2))) e-1))))) (let ((act-30 ((((norm e-9) (vector 0 )) e-2) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-11 eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Normalise-Core-logTermNF (vector 0 ) arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") (vector 0 ) e-11 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((_-0 (vector 0 e-2 e-3))) ((REPL-Idris-case--25430-6887 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 e-6 e-7 e-2 e-3 _-0 e-9 e-10 norm e-11 e-12 e-13 (let ((sc10 e-10)) (let ((e-0 (vector-ref sc10 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define REPL-Idris-case--25153-6596 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 7 arg-0))))(else (lambda (eta-0) (vector 1 (vector 11 arg-0 arg-9)))))))) -(define REPL-Idris-case--25122-6551 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-logTime 'erased arg-5 (lambda () "Build deps") (lambda (eta-1) (ModTree-Idris-buildDeps arg-5 arg-3 arg-2 arg-4 arg-1 arg-0 eta-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((REPLCommon-Idris-updateErrorLine arg-1 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 (REPLOpts-Idris-setSource arg-1 e-2 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((sc4 e-5)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 7 arg-0)))(else (vector 1 (vector 11 arg-0 e-5))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setSource arg-1 "" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 10 arg-0 e-5))))))))))))) -(define REPL-Idris-case--25008-6461 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-linearCheck (vector 0 ) arg-6 arg-5 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (REPL-Idris-findCG arg-2 arg-6 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (Common-Compiler-compile arg-6 e-6 e-5 arg-0 eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 14 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 (vector 15 eta-1))))) e-6) eta-0)))))))))))))))) -(define REPL-Idris-case--24861-6327 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-linearCheck (vector 0 ) arg-5 arg-4 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (REPL-Idris-findCG arg-1 arg-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (Common-Compiler-execute arg-5 e-6 e-5 eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 (vector 2 arg-0)))))))))))))))) -(define REPL-Idris-case--21269-6210 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 (MakeClause-IDEMode-Idris-makeWith arg-0 e-1) (vector 0 ))))))) (else (lambda (eta-0) (vector 1 (vector 1 "Source line not available")))))))) -(define REPL-Idris-case--24434-5985 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addMadeLemma arg-27 arg-0 (Syntax-Idris-show_Show__PTerm arg-20) arg-23 (Prelude-max_Ord__Nat (Prelude-fromInteger_Num__Nat 0) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-1 1))) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 2 arg-27 arg-0 arg-20 arg-23)))))))) -(define REPL-Idris-case--24355-5922 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addMadeLemma e-2 arg-0 (Syntax-Idris-show_Show__PTerm arg-20) arg-23 (Prelude-max_Ord__Nat (Prelude-fromInteger_Num__Nat 0) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-1 1))) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 2 e-2 arg-0 arg-20 arg-23)))))))))) -(define REPL-Idris-case--24150-5868 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (REPL-Idris-case--24355-5922 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-1 _-0 (Unlit-Parser-isLitLine e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 "Source line not found")))))))) -(define REPL-Idris-case--24150-5769 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) arg-21)) (else arg-21))))) -(define REPL-Idris-case--24084-5703 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-pterm arg-7 arg-5 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Resugar-Idris-pterm arg-7 arg-5 e-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-3))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((pappstr (Syntax-Idris-show_Show__PTerm (let ((sc4 arg-10)) (cond ((equal? sc4 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-6)) (else e-6)))))) (let ((act-27 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((_-1 (vector 1 e-1))) ((REPL-Idris-case--24355-5922 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-2 e-3 _-0 e-5 e-6 e-7 pappstr e-1 _-1 (Unlit-Parser-isLitLine e-1)) eta-0)))) (else (vector 1 (vector 1 "Source line not found"))))))))))))))))))))))))))))))))) -(define REPL-Idris-case--21269-5651 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((7) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (MakeLemma-Interactive-TTImp-makeLemma arg-4 arg-7 (REPLOpts-Idris-replFC) arg-0 e-15 e-14 eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc6 1))) (let ((bind-0 (vector 1 (vector 0 e-5 (vector 0 e-9 (vector 0 (vector 7 e-15 e-16) e-14))) (vector 0 )))) (let ((sc7 e-7)) (let ((e-4 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((act-25 (Resugar-Idris-pterm arg-7 arg-5 e-4 eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((act-26 (Resugar-Idris-pterm arg-7 arg-5 e-3 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (let ((act-27 (let ((act-27 (unbox arg-3))) (vector 1 act-27)))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc10 1))) (let ((pappstr (Syntax-Idris-show_Show__PTerm (let ((sc11 arg-10)) (cond ((equal? sc11 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-11)) (else e-11)))))) (let ((act-28 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((_-0 (vector 0 e-4 e-3))) (let ((sc12 e-17)) (case (vector-ref sc12 0) ((1) (let ((e-18 (vector-ref sc12 1))) (let ((_-1 (vector 1 e-18))) ((REPL-Idris-case--24355-5922 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-16 e-5 e-9 e-15 e-14 bind-0 e-4 e-3 _-0 e-8 e-11 e-12 pappstr e-18 _-1 (Unlit-Parser-isLitLine e-18)) eta-0)))) (else (vector 1 (vector 1 "Source line not found"))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition")))))))) -(define REPL-Idris-case--23667-5338 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause (Strings-Data-unlines arg-23) (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 arg-23)))))))) -(define REPL-Idris-case--23606-5275 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (let ((l (Prelude-cast_Cast__Int_Integer (Builtin-snd 'erased 'erased (FC-Core-startPos arg-15))))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-printClause arg-7 arg-5 e-2 l eta-1)) arg-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 arg-2)) (cond ((equal? sc2 0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause (Strings-Data-unlines e-5) (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0)) (else (vector 1 (vector 0 e-5)))))))))))))))) -(define REPL-Idris-case--23543-5233 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (REPL-Idris-case--23606-5275 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-1 _-0 (Unlit-Parser-isLitLine e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 "Source line not found")))))))) -(define REPL-Idris-case--23463-5186 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((_-0 (vector 1 (vector 0 e-5 e-6)))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((_-1 (vector 1 e-2))) ((REPL-Idris-case--23606-5275 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-5 e-6 _-0 e-2 _-1 (Unlit-Parser-isLitLine e-2)) eta-0)))) (else (vector 1 (vector 1 "Source line not found"))))))))))))))))) (else (REPL-Idris-processEdit arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 arg-1 arg-0))))))) -(define REPL-Idris-case--23407-5117 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (GenerateDef-Interactive-TTImp-makeDef arg-7 arg-4 arg-6 (lambda (p) (lambda (n) (FC-Core-onLine (Prelude-C-45_Neg__Int arg-1 1) p))) arg-12 eta-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((bind-0 (vector 1 (vector 0 )))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((sc4 e-2)) (let ((e-7 (vector-ref sc4 1))) (let ((e-6 (vector-ref sc4 2))) (let ((act-25 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-1))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (let ((_-0 (vector 1 (vector 0 e-7 e-6)))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((_-1 (vector 1 e-3))) ((REPL-Idris-case--23606-5275 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 bind-0 e-7 e-6 _-0 e-3 _-1 (Unlit-Parser-isLitLine e-3)) eta-1)))) (else (vector 1 (vector 1 "Source line not found")))))))))))))))) (else ((REPL-Idris-processEdit arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 arg-1 arg-0)) eta-1))))))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find a definition for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) (Strings-Prelude-C-43C-43 ": " (Core-Core-show_Show__Error err)))))))) eta-0)))(else (lambda (eta-0) (vector 1 (vector 1 "Already defined")))))))) (else (lambda (eta-0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0)))))))))) -(define REPL-Idris-case--21269-5070 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-9 (let ((sc4 arg-8)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 (vector 0 e-13 e-14)))))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-2 (vector-ref sc5 1))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (GenerateDef-Interactive-TTImp-makeDef arg-7 arg-4 arg-6 (lambda (p) (lambda (n) (FC-Core-onLine (Prelude-C-45_Neg__Int arg-1 1) p))) e-9 eta-1))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc7 1))) (let ((bind-0 (vector 1 (vector 0 )))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((sc9 e-3)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (let ((act-26 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-1))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc10 1))) (let ((_-1 (vector 1 (vector 0 e-12 e-11)))) (let ((sc11 e-15)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((_-2 (vector 1 e-4))) ((REPL-Idris-case--23606-5275 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-14 e-13 e-5 e-9 _-0 bind-0 e-12 e-11 _-1 e-4 _-2 (Unlit-Parser-isLitLine e-4)) eta-1)))) (else (vector 1 (vector 1 "Source line not found")))))))))))))))) (else ((REPL-Idris-processEdit arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 arg-1 arg-0)) eta-1))))))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find a definition for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 ": " (Core-Core-show_Show__Error err)))))))) eta-0))(else (vector 1 (vector 1 "Already defined"))))))) (else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) (Strings-Prelude-C-43C-43 " on line " (Prelude-show_Show__Int arg-1)))))))))))) -(define REPL-Idris-case--22952-4858 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 arg-26 (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-26 (vector 0 )))))))))) -(define REPL-Idris-case--22952-4755 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) arg-25)) (else arg-25))))) -(define REPL-Idris-case--22835-4685 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-resugar e-2 arg-9 arg-7 e-6 e-7 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc3 arg-12)) (cond ((equal? sc3 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-5)) (else e-5)))))) (let ((sc3 arg-4)) (cond ((equal? sc3 0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0)) (else (vector 1 (vector 0 (vector 1 res (vector 0 )))))))))))))))))))))) -(define REPL-Idris-case--22104-4589 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole")))) (else (let ((e-0 (vector-ref sc0 1))) (REPL-Idris-case--22835-4685 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 e-0 (REPL-Idris-n--21269-3901-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 ) e-0 (vector 0 ) arg-18)))))))) -(define REPL-Idris-case--22104-4480 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (Resugar-Idris-resugar e-2 arg-9 arg-7 e-6 e-7 eta-0)))))))))) -(define REPL-Idris-case--22320-4360 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-proofSearch arg-1 arg-24 (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-24 (vector 0 )))))))))) -(define REPL-Idris-case--22320-4265 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) arg-21)) (else arg-21))))) -(define REPL-Idris-case--22202-4168 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 "No search results")))) (else (let ((e-2 (vector-ref sc0 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc1 arg-11)) (cond ((equal? sc1 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-2)) (else e-2)))))) (let ((sc1 arg-3)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-proofSearch arg-1 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 res (vector 0 ))))))))))))))) -(define REPL-Idris-case--22104-4070 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-22) (Syntax-Idris-show_Show__PTerm arg-22)) arg-21))))) (else (let ((sc1 arg-21)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 "No search results")))) (else (let ((e-2 (vector-ref sc1 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc2 arg-12)) (cond ((equal? sc2 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-2)) (else e-2)))))) (let ((sc2 arg-4)) (cond ((equal? sc2 0) (lambda (eta-0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 res (vector 0 )))))))))))))))))) -(define REPL-Idris-case--21269-3985 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((7) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (ExprSearch-Interactive-TTImp-exprSearch arg-9 arg-6 arg-8 (REPLOpts-Idris-replFC) arg-2 (vector 0 ) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) eta-1 eta-2))) e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (tm) (let ((bind-0 (vector 1 (vector 0 e-6 (vector 0 e-10 (vector 7 e-12 e-13))) (vector 0 )))) (REPL-Idris-case--22104-4480 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-13 e-6 e-10 e-12 bind-0 e-5 e-8 e-9 tm (REPL-Idris-n--21269-3901-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 ) e-12 (vector 0 ) tm)))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc8 1))) (let ((sc9 arg-0)) (cond ((equal? sc9 0) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-14) (Syntax-Idris-show_Show__PTerm arg-14)) e-14)))) (else (let ((sc10 e-14)) (case (vector-ref sc10 0) ((0) (vector 1 (vector 1 "No search results"))) (else (let ((e-4 (vector-ref sc10 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc11 arg-12)) (cond ((equal? sc11 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-4)) (else e-4)))))) (let ((sc11 arg-4)) (cond ((equal? sc11 0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0)) (else (vector 1 (vector 0 (vector 1 res (vector 0 )))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole"))))))))) ((1) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((e-16 (vector-ref sc3 3))) (let ((e-17 (vector-ref sc3 4))) (let ((e-18 (vector-ref sc3 5))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((1) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((bind-0 (vector 1 (vector 0 e-6 (vector 0 e-10 (vector 1 e-14 (vector 0 ) (vector 1 e-22 e-23) e-17 e-18))) (vector 0 )))) (REPL-Idris-case--22104-4589 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-17 e-18 e-22 e-6 e-10 e-23 e-14 bind-0 (let ((sc7 e-14)) (let ((e-0 (vector-ref sc7 1))) e-0)))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole")))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole"))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole"))))))))) ((0) (lambda (eta-0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Unknown name " (Name-Core-show_Show__Name arg-2))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole")))))))) -(define REPL-Idris-case--21908-3828 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause arg-8 (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-8 (vector 0 )))))))))) -(define REPL-Idris-case--21269-3807 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause e-1 (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 e-1 (vector 0 )))))))))) (else (lambda (eta-0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not defined here"))))))))) -(define REPL-Idris-case--21746-3704 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-caseSplit (Strings-Data-unlines arg-12) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 arg-12)))))))) -(define REPL-Idris-case--21269-3662 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (CaseSplit-IDEMode-Idris-updateCase arg-8 arg-6 arg-4 e-1 (Prelude-C-45_Neg__Int arg-2 1) (Prelude-C-45_Neg__Int arg-1 1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 arg-3)) (cond ((equal? sc2 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-caseSplit (Strings-Data-unlines e-5) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0)) (else (vector 1 (vector 0 e-5))))))))))))) (else (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (CaseSplit-Interactive-TTImp-show_Show__SplitError e-3)))))))))) -(define REPL-Idris-case--21269-3588 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (FC-Core-within (vector 0 (Prelude-C-45_Neg__Int arg-2 1) (Prelude-C-45_Neg__Int arg-1 1)) eta-0))) (else (lambda (eta-0) (FC-Core-onLine (Prelude-C-45_Neg__Int arg-2 1) eta-0))))))) -(define REPL-Idris-case--21269-3526 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 "")))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-7 arg-5 arg-8 eta-1)) arg-9) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Name-Core-showSep "\u000a" e-5))))))))))))) -(define REPL-Idris-case--21326-3443 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (vector 0 "(interactive)" (vector 0 0 0) (vector 0 0 0)) arg-0) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-10 (vector 0 )))))))))) -(define REPL-Idris-case--21326-3333 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (REPL-Idris-displayTerm arg-7 arg-5 arg-8 arg-13 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-nameRoot arg-11) (Strings-Prelude-C-43C-43 " : " e-5)) (vector 0 ))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ))))))))) -(define REPL-Idris-case--21269-3294 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 e-10))))) (REPL-Idris-case--21326-3333 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 e-9 e-10 _-0 (Prelude-C-61C-61_Eq__String arg-10 ""))))))))))) (else (let ((_-0 (vector 0 ))) (REPL-Idris-case--21326-3443 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 _-0 (Prelude-C-61C-61_Eq__String arg-10 "")))))))) -(define REPL-Idris-case--21157-3164 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (vector 1 (Strings-Prelude-C-43C-43 "\u000a" (Unlit-Parser-relit arg-8 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 arg-3 "\u000a"))))) arg-7)) (else (vector 1 arg-6 (REPL-Idris-n--21150-3139-insertInBlank arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7))))))) -(define REPL-Idris-case--21084-3081 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 arg-5 (Prelude-pack (List-Data-drop 'erased (Prelude-length arg-6) (Prelude-unpack arg-4))))) (else (Prelude-strCons (string-ref arg-4 0) (REPL-Idris-n--21075-3074-replaceStr arg-0 arg-1 arg-2 arg-3 arg-6 arg-5 (substring arg-4 1 (string-length arg-4))))))))) -(define REPL-Idris-case--20934-2955 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 arg-3 "~") e-2) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 (let ((act-25 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-3 (Strings-Data-unlines (arg-0 (Strings-Data-lines e-2)))) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (vector 1 (vector 0 (vector 0 )))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-3 e-5) eta-0)))))))) -(define REPL-Idris-case--20920-2931 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-1) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 e-1 "~") e-2) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-26 (let ((act-26 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-1 (Strings-Data-unlines (arg-0 (Strings-Data-lines e-2)))) eta-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 (vector 0 (vector 0 ))))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-1 e-6) eta-0))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ))))))))) -(define REPL-Idris-case--20708-2755 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "No such code generator: " arg-3)) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-25)))))))))))) -(define REPL-Idris-case--20694-2711 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (Chez-Scheme-Compiler-codegenChez)))) ((1) (lambda (eta-0) (vector 1 (Racket-Scheme-Compiler-codegenRacket)))) ((2) (lambda (eta-0) (vector 1 (Gambit-Scheme-Compiler-codegenGambit)))) (else (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-getCodegen arg-1 e-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 e-1))) (else (let ((act-25 (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "No such code generator: " e-0)) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-26 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-26))))))))))))))))))))) -(define REPL-Idris-case--20454-2638 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setCG arg-2 e-1 eta-0)))) (else (lambda (eta-0) (REPLCommon-Idris-iputStrLn arg-1 "No such code generator available" eta-0))))))) -(define REPL-Idris-case--20454-2619 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 arg-0 e-5 e-6 e-7 e-8)))))))))))) -(define REPL-Idris-case--20454-2585 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 arg-0 e-2 e-3 e-4 e-5 e-6 e-7 e-8)))))))))))) -(define REPL-Idris-case--20454-2551 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 arg-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8)))))))))))) -(define REPL-Idris-case--20454-2517 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 arg-0)))))) -(define REPL-Idris-case--20454-2496 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 arg-0 e-1 e-2)))))) -(define REPL-Idris-case--20360-2410 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((REPL-Idris-displayType arg-5 arg-4 arg-3 (vector 0 arg-0 (vector 0 arg-1 arg-2))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayClause arg-5 arg-4 arg-3 eta-1)) e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\u000a" (Name-Core-showSep "\u000a" e-6)))))))))))))))))(else (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " is not a pattern matching definition")))))))) -(define REPL-Idris-case--19827-2069 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Compiled: " (CompileExpr-Core-show_Show__CDef e-2))) eta-0))) (vector 1 act-24))))))))) -(define REPL-Idris-n--21075-3074-replaceStr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 "") "")(else (REPL-Idris-case--21084-3081 arg-0 arg-1 arg-2 arg-3 arg-6 arg-5 arg-4 (Strings-Data-isPrefixOf arg-4 arg-6))))))) -(define REPL-Idris-n--27246-8548-prompt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) "[tc] ") ((1) "") (else "[exec] "))))) -(define REPL-Idris-n--25292-6686-nfun (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Normalise-Core-normaliseAll arg-6 eta-0 eta-1 eta-2 eta-3))))))(else (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Normalise-Core-normalise arg-6 eta-0 eta-1 eta-2 eta-3)))))))))) -(define REPL-Idris-n--27265-8925-makeSpace (lambda (arg-0) (Prelude-pack (Prelude-take 'erased arg-0 (Stream-Data-repeat 'erased #\ ))))) -(define REPL-Idris-n--21150-3139-insertInBlank (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 1 (Unlit-Parser-relit arg-6 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 arg-3 "\u000a")))) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (REPL-Idris-case--21157-3164 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-6 (Prelude-C-61C-61_Eq__String (Strings-Data-trim e-2) ""))))))))) -(define REPL-Idris-n--27042-8314-getLoad (lambda (arg-0 arg-1 arg-2 arg-3) (vector 1 (arg-2 (Strings-Data-trim (Prelude-substr arg-1 (Prelude-length arg-3) arg-3)))))) -(define REPL-Idris-n--27042-8315-fnameCmd (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (REPL-Idris-case--27045-8340 arg-0 e-6 e-7 e-3 arg-2 (Strings-Data-isPrefixOf e-6 arg-2)))))))))))) -(define REPL-Idris-n--24963-6380-execDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Desugar-Idris-desugarDecl arg-2 arg-4 arg-3 arg-1 (vector 0 ) arg-5) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-processDecl (vector 0 ) arg-4 arg-1 arg-3 (vector 0 ) (vector 0 ) (vector 0 ) eta-0)) e-5) ext-0)))))))) -(define REPL-Idris-n--25292-6685-emode (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (vector 2 )))))) -(define REPL-Idris-n--21269-3901-dropLams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (vector 0 arg-10 (vector 0 arg-12 arg-13)))(else (let ((e-0 (- arg-11 1))) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((3) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (REPL-Idris-n--21269-3901-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-3 arg-10) e-0 (vector 1 e-4 arg-12) e-5)))))(else (vector 0 arg-10 (vector 0 arg-12 arg-13))))))))))) -(define REPL-Idris-n--27265-8926-col (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (REPL-Idris-n--27265-8925-makeSpace (Prelude-minus arg-0 (Prelude-length arg-2))) (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 (REPL-Idris-n--27265-8925-makeSpace (Prelude-minus arg-1 (Prelude-length arg-3))) arg-4)))))) -(define REPL-Idris-n--27265-8927-cmdInfo (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 " " (REPL-Idris-n--27265-8926-col (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))) (Name-Core-showSep " " e-2) (Parser-Idris-show_Show__CmdArg e-6) e-7)))))))))) -(define REPL-Idris-n--21150-3140-addApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased (REPL-Idris-n--21150-3139-insertInBlank arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8)) arg-9))(else (let ((e-0 (- arg-7 1))) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (REPL-Idris-n--21150-3140-addApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-0 (vector 1 e-2 arg-8) e-3)))) (else (List-Data-reverse 'erased arg-8)))))))))) -(define REPL-Idris-updateFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((REPL-Idris-case--20920-2931 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) ext-0)))))))) -(define REPL-Idris-showInfo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Def arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Def arg-5888 arg-5889)))) (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1))) (Strings-Prelude-C-43C-43 " ==> " (Context-Core-show_Show__Def e-5)))) eta-0))) (vector 1 act-25))))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega (let ((sc3 e-7)) (let ((e-21 (vector-ref sc3 8))) e-21)))) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Erasable args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc4 e-7)) (let ((e-25 (vector-ref sc4 4))) e-25))))) eta-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Detaggable arg types: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc5 e-7)) (let ((e-4 (vector-ref sc5 5))) e-4))))) eta-0))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-28 (arg-3664 eta-1))) ((arg-3665 act-28) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Specialise args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc6 e-7)) (let ((e-26 (vector-ref sc6 6))) e-26))))) eta-0))) (vector 1 act-28)))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-29 (let ((act-29 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-29 (arg-3664 eta-1))) ((arg-3665 act-29) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Inferrable args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc7 e-7)) (let ((e-26 (vector-ref sc7 7))) e-26))))) eta-0))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-30 ((REPL-Idris-case--19827-2069 e-2 e-6 e-7 arg-0 e-5 e-8 e-9 e-10 e-11 e-12 (let ((sc8 e-7)) (let ((e-18 (vector-ref sc8 19))) e-18))) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-31 (let ((act-31 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) (NameMap-Data-keys 'erased (Context-Core-refersTo e-7))) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-32 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-32 (arg-3664 eta-1))) ((arg-3665 act-32) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Refers to: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-14))) eta-0))) (vector 1 act-32))))))))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 (let ((act-32 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) (NameMap-Data-keys 'erased (Context-Core-refersToRuntime e-7))) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-33 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-33 (arg-3664 eta-1))) ((arg-3665 act-33) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Refers to (runtime): " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-15))) eta-0))) (vector 1 act-33))))))))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-33 (let ((act-33 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-33 (arg-3664 eta-1))) ((arg-3665 act-33) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Flags: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__DefFlag x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__DefFlag d x)))) (let ((sc11 e-7)) (let ((e-25 (vector-ref sc11 12))) e-25))))) eta-0))) (vector 1 act-33)))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-34 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (lambda (eta-3) (Context-Core-full_HasNames__SCCall arg-5886 arg-5887 eta-3)))) (lambda (arg-5888) (lambda (arg-5889) (lambda (eta-3) (Context-Core-resolved_HasNames__SCCall arg-5888 arg-5889 eta-3))))) eta-1 eta-2))) (let ((sc12 e-7)) (let ((e-20 (vector-ref sc12 21))) e-20))) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc12 1))) (let ((sc13 (Prelude-not (List-Data-isNil 'erased (let ((sc14 e-7)) (let ((e-20 (vector-ref sc14 21))) e-20)))))) (cond ((equal? sc13 0) (((let ((scinfo (Prelude-map_Functor__List 'erased 'erased (lambda (s) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc14 s)) (let ((e-0 (vector-ref sc14 1))) e-0))) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__Nat d x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-0) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-0 x-1))))) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-0) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__Nat d-1 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-1) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-1 x-1))))) d-0 x-0)))) d x)))) (let ((sc14 s)) (let ((e-1 (vector-ref sc14 2))) e-1)))))) e-17))) (lambda () (lambda (eta-1) (let ((act-35 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-35 (arg-3664 eta-2))) ((arg-3665 act-35) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Size change: " (Name-Core-showSep ", " scinfo))) eta-1))) (vector 1 act-35)))))) eta-0)) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define REPL-Idris-setOpt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setPPrint arg-0 (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (vector 0 e-0 e-1 e-2)))) eta-0))))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setPPrint arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 0 e-0 e-3 e-1)))) eta-0))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (set-box! arg-1 (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) (let ((e-10 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-9 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (vector 0 e-2 e-1 e-10 e-3 e-4 e-9 e-6 e-7 e-8))))))))))))) (vector 1 act-25)))))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (set-box! arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 3))) (let ((e-10 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-9 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (vector 0 e-0 e-3 e-2 e-10 e-4 e-9 e-6 e-7 e-8))))))))))))) (vector 1 act-25)))))))))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (set-box! arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-9 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-9 e-6 e-7 e-8))))))))))))) (vector 1 act-25)))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((REPL-Idris-case--20454-2638 e-5 arg-1 arg-0 e-6 (Options-Core-getCG (let ((sc2 e-6)) (let ((e-4 (vector-ref sc2 5))) e-4)) e-5)) eta-0))))))))))))) +(define REPL-Idris-case--27922-9357 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3)))))))) +(define REPL-Idris-case--27915-9215 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0)))))))) +(define REPL-Idris-case--27909-9140 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "") eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (REPLCommon-Idris-iputStrLn arg-0 "Bye for now!" eta-0))))))) (else (lambda (eta-0) (let ((act-24 ((REPL-Idris-interpret arg-4 arg-3 arg-2 arg-1 arg-0 arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-handleResult arg-4 arg-3 arg-2 arg-1 arg-0 e-5) eta-0)))))))))))) +(define REPL-Idris-case--27809-8973 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) e-2)))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-8 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setCurrentElabSource arg-1 arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (REPL-Idris-processCatch arg-5 arg-4 arg-3 arg-2 arg-1 e-8 eta-0)))))))))))))))) +(define REPL-Idris-case--27705-8940 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Source-Parser-runParser 'erased 1 (vector 0 ) arg-0 (vector 9 1 1 (REPL-Idris-parseEmptyCmd) (lambda () (REPL-Idris-parseCmd))))) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 1 e-2)))))))) +(define REPL-Idris-case--27708-8884 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (REPL-Idris-n--27705-8858-getLoad arg-0 (Prelude-length arg-1) arg-2 arg-4)) (else (REPL-Idris-n--27705-8859-fnameCmd arg-0 arg-3 arg-4)))))) +(define REPL-Idris-case--25954-8684 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 1 e-2)))))) +(define REPL-Idris-case--25954-8600 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Holes-IDEMode-Idris-isHole e-7) (lambda (args) (Prelude-pure_Applicative__Maybe 'erased (vector 0 e-2 (vector 0 e-7 args)))))))))))) +(define REPL-Idris-case--25954-8548 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (Holes-IDEMode-Idris-holeData (vector 0 ) arg-4 arg-2 arg-5 (vector 0 ) e-2 e-7 (let ((sc2 e-6)) (let ((e-24 (vector-ref sc2 3))) e-24)) eta-0)))))))))) +(define REPL-Idris-case--25954-8363 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc0 eta-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 18 e-5))))))) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-24 (Termination-Core-checkTotal arg-5 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (Context-Core-getTotality arg-5 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Totality arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Totality arg-6292 arg-6293)))) e-6 eta-1)))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 fn e-6))))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))) +(define REPL-Idris-case--26997-8247 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPL-Idris-displayPatTerm arg-5 arg-3 arg-6 eta-1 eta-2))) e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 arg-9 e-5)))))))))) ((2) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-5 eta-1)) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 arg-9 e-5))))))))))(else (lambda (eta-0) (vector 1 (vector 2 arg-9)))))))) +(define REPL-Idris-case--25954-8189 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc0 eta-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 17 e-5))))))) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-24 (Context-Core-getTotality arg-5 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((bind-0 arg-7)) ((REPL-Idris-case--26997-8247 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 bind-0 fn e-5 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))) eta-1))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))) +(define REPL-Idris-case--25954-8062 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Unify-Core-search (vector 0 ) arg-5 arg-4 (REPLOpts-Idris-replFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-6 e-11 (vector 0 ) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-5 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-8 eta-0)))))))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (vector 16 e-8))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))) +(define REPL-Idris-case--25954-7967 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 12 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((line (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (i) (Strings-Prelude-C-43C-43 " +" (Prelude-show_Show__Int (b+ i 1 63))))) (let ((sc1 arg-5)) (let ((e-6 (vector-ref sc1 7))) e-6))))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((System-system 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 (let ((sc1 arg-5)) (let ((e-5 (vector-ref sc1 6))) e-5)) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-2 line)))) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (REPL-Idris-loadMainFile arg-4 arg-3 arg-2 arg-1 arg-0 e-2 eta-0))))))))))))) +(define REPL-Idris-case--25954-7894 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 (vector 1 arg-0) e-3 e-4 e-5 e-6 e-7 e-8 e-9))))))))))))) +(define REPL-Idris-case--25954-7819 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 12 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (REPL-Idris-loadMainFile arg-4 arg-3 arg-2 arg-1 arg-0 e-2 eta-0)))))))) +(define REPL-Idris-case--25954-7761 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayPats arg-5 arg-3 arg-6 eta-1)) arg-7) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 5 e-5))))))))))))) +(define REPL-Idris-case--25954-7671 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-6 eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-normaliseScope (vector 0 ) e-5 (vector 0 ) e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-8 eta-0)))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 6 e-6 e-8)))))))))))))))))))))))))))) +(define REPL-Idris-case--25954-7585 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-6 arg-4 arg-7 eta-1)) arg-8) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 5 e-5))))))))))))) +(define REPL-Idris-case--26092-7430 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((((arg-16 arg-14) (vector 0 )) e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-6 eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 arg-18 (vector 1 e-6))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 4 arg-18 (vector 0 ))))))))) +(define REPL-Idris-case--25998-7355 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((norm (REPL-Idris-n--25954-7229-nfun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) e-1))))) (let ((act-26 ((((norm e-5) (vector 0 )) e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Normalise-Core-logTermNF (vector 0 ) arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") (vector 0 ) e-7 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-0 (vector 0 e-2 e-3))) ((REPL-Idris-case--26092-7430 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2 e-3 _-0 e-5 e-6 norm e-7 e-8 e-9 (let ((sc6 e-6)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0)))))))))))))))))))))))))))))))))) +(define REPL-Idris-case--25954-7264 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (let ((act-24 (REPL-Idris-execExp arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-0))))))))(else (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-3 arg-5 arg-2 arg-4 (vector 1 ) (vector 0 ) arg-0 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-resolveName arg-5 (vector 1 "[input]")) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-26 (Context-Core-hide arg-5 (REPLOpts-Idris-replFC) (vector 0 (vector 1 "PrimIO" (vector 0 )) (vector 1 "::")) eta-1))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Context-Core-hide arg-5 (REPLOpts-Idris-replFC) (vector 0 (vector 1 "PrimIO" (vector 0 )) (vector 1 "Nil")) eta-1)))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 0 )))) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Elab-TTImp-elabTerm (vector 0 ) arg-5 arg-2 arg-4 e-6 (REPL-Idris-n--25954-7228-emode arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc3 arg-6)) (let ((e-1 (vector-ref sc3 2))) e-1))) (vector 0 ) (vector 0 ) (vector 0 ) e-5 (vector 0 )) eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-28 (let ((act-28 (unbox arg-5))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (let ((act-29 (unbox arg-1))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((norm (REPL-Idris-n--25954-7229-nfun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 2))) e-1))))) (let ((act-30 ((((norm e-9) (vector 0 )) e-2) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-11 eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Normalise-Core-logTermNF (vector 0 ) arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") (vector 0 ) e-11 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((_-0 (vector 0 e-2 e-3))) ((REPL-Idris-case--26092-7430 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 e-6 e-7 e-2 e-3 _-0 e-9 e-10 norm e-11 e-12 e-13 (let ((sc10 e-10)) (let ((e-0 (vector-ref sc10 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define REPL-Idris-case--25815-7139 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 7 arg-0))))(else (lambda (eta-0) (vector 1 (vector 11 arg-0 arg-9)))))))) +(define REPL-Idris-case--25784-7094 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-logTime 'erased arg-5 (lambda () "Build deps") (lambda (eta-1) (ModTree-Idris-buildDeps arg-5 arg-3 arg-2 arg-4 arg-1 arg-0 eta-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((REPLCommon-Idris-updateErrorLine arg-1 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 (REPLOpts-Idris-setSource arg-1 e-2 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((sc4 e-5)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 7 arg-0)))(else (vector 1 (vector 11 arg-0 e-5))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setSource arg-1 "" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 10 arg-0 e-5))))))))))))) +(define REPL-Idris-case--25670-7004 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-linearCheck (vector 0 ) arg-6 arg-5 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (REPL-Idris-findCG arg-2 arg-6 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (Common-Compiler-compile arg-6 e-6 e-5 arg-0 eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 14 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 (vector 15 eta-1))))) e-6) eta-0)))))))))))))))) +(define REPL-Idris-case--25523-6870 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-linearCheck (vector 0 ) arg-5 arg-4 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (REPL-Idris-findCG arg-1 arg-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (Common-Compiler-execute arg-5 e-6 e-5 eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 (vector 2 arg-0)))))))))))))))) +(define REPL-Idris-case--25307-6677 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addMadeCase arg-13 arg-14 (Prelude-max_Ord__Nat (Prelude-fromInteger_Num__Nat 0) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-1 1))) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 3 arg-13 arg-14)))))))) +(define REPL-Idris-case--25266-6641 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((w (Strings-Data-lines (MakeClause-IDEMode-Idris-makeWith arg-0 arg-11)))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addMadeCase e-2 w (Prelude-max_Ord__Nat (Prelude-fromInteger_Num__Nat 0) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-1 1))) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 3 e-2 w))))))))))) +(define REPL-Idris-case--25231-6611 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (REPL-Idris-case--25266-6641 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2 (Unlit-Parser-isLitLine arg-9)))) (else (lambda (eta-0) (vector 1 (vector 1 "Invalid literate Idris")))))))) +(define REPL-Idris-case--21401-6586 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (REPL-Idris-case--25231-6611 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 (Unlit-Parser-unlit arg-8 e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 "Source line not available")))))))) +(define REPL-Idris-case--25008-6431 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addMadeCase arg-15 arg-16 (Prelude-max_Ord__Nat (Prelude-fromInteger_Num__Nat 0) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-1 1))) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 4 arg-15 arg-16)))))))) +(define REPL-Idris-case--24961-6391 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((c (Strings-Data-lines (MakeClause-IDEMode-Idris-makeCase arg-10 arg-0 arg-13)))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addMadeCase e-2 c (Prelude-max_Ord__Nat (Prelude-fromInteger_Num__Nat 0) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-1 1))) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 4 e-2 c))))))))))) +(define REPL-Idris-case--24920-6357 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (REPL-Idris-case--24961-6391 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 (Unlit-Parser-isLitLine arg-11)))) (else (lambda (eta-0) (vector 1 (vector 1 "Invalid literate Idris")))))))) +(define REPL-Idris-case--21401-6328 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (REPL-Idris-case--24920-6357 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 (Unlit-Parser-unlit arg-8 e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 "Source line not available")))))))) +(define REPL-Idris-case--24566-6086 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addMadeLemma arg-27 arg-0 (Syntax-Idris-show_Show__PTerm arg-20) arg-23 (Prelude-max_Ord__Nat (Prelude-fromInteger_Num__Nat 0) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-1 1))) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 2 arg-27 arg-0 arg-20 arg-23)))))))) +(define REPL-Idris-case--24487-6024 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addMadeLemma e-2 arg-0 (Syntax-Idris-show_Show__PTerm arg-20) arg-23 (Prelude-max_Ord__Nat (Prelude-fromInteger_Num__Nat 0) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-1 1))) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 2 e-2 arg-0 arg-20 arg-23)))))))))) +(define REPL-Idris-case--24282-5970 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (REPL-Idris-case--24487-6024 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-1 _-0 (Unlit-Parser-isLitLine e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 "Source line not found")))))))) +(define REPL-Idris-case--24282-5871 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) arg-21)) (else arg-21))))) +(define REPL-Idris-case--24216-5805 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-pterm arg-7 arg-5 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Resugar-Idris-pterm arg-7 arg-5 e-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-3))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((pappstr (Syntax-Idris-show_Show__PTerm (let ((sc4 arg-10)) (cond ((equal? sc4 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-6)) (else e-6)))))) (let ((act-27 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((_-1 (vector 1 e-1))) ((REPL-Idris-case--24487-6024 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-2 e-3 _-0 e-5 e-6 e-7 pappstr e-1 _-1 (Unlit-Parser-isLitLine e-1)) eta-0)))) (else (vector 1 (vector 1 "Source line not found"))))))))))))))))))))))))))))))))) +(define REPL-Idris-case--21401-5753 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((7) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (MakeLemma-Interactive-TTImp-makeLemma arg-4 arg-7 (REPLOpts-Idris-replFC) arg-0 e-15 e-14 eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc6 1))) (let ((bind-0 (vector 1 (vector 0 e-5 (vector 0 e-9 (vector 0 (vector 7 e-15 e-16) e-14))) (vector 0 )))) (let ((sc7 e-7)) (let ((e-4 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((act-25 (Resugar-Idris-pterm arg-7 arg-5 e-4 eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((act-26 (Resugar-Idris-pterm arg-7 arg-5 e-3 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (let ((act-27 (let ((act-27 (unbox arg-3))) (vector 1 act-27)))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc10 1))) (let ((pappstr (Syntax-Idris-show_Show__PTerm (let ((sc11 arg-10)) (cond ((equal? sc11 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-11)) (else e-11)))))) (let ((act-28 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((_-0 (vector 0 e-4 e-3))) (let ((sc12 e-17)) (case (vector-ref sc12 0) ((1) (let ((e-18 (vector-ref sc12 1))) (let ((_-1 (vector 1 e-18))) ((REPL-Idris-case--24487-6024 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-16 e-5 e-9 e-15 e-14 bind-0 e-4 e-3 _-0 e-8 e-11 e-12 pappstr e-18 _-1 (Unlit-Parser-isLitLine e-18)) eta-0)))) (else (vector 1 (vector 1 "Source line not found"))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition")))))))) +(define REPL-Idris-case--23799-5440 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause (Strings-Data-unlines arg-23) (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 arg-23)))))))) +(define REPL-Idris-case--23738-5377 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (let ((l (Prelude-cast_Cast__Int_Integer (Builtin-snd 'erased 'erased (FC-Core-startPos arg-15))))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-printClause arg-7 arg-5 e-2 l eta-1)) arg-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 arg-2)) (cond ((equal? sc2 0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause (Strings-Data-unlines e-5) (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0)) (else (vector 1 (vector 0 e-5)))))))))))))))) +(define REPL-Idris-case--23675-5335 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (REPL-Idris-case--23738-5377 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-1 _-0 (Unlit-Parser-isLitLine e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 "Source line not found")))))))) +(define REPL-Idris-case--23595-5288 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((_-0 (vector 1 (vector 0 e-5 e-6)))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((_-1 (vector 1 e-2))) ((REPL-Idris-case--23738-5377 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-5 e-6 _-0 e-2 _-1 (Unlit-Parser-isLitLine e-2)) eta-0)))) (else (vector 1 (vector 1 "Source line not found"))))))))))))))))) (else (REPL-Idris-processEdit arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 arg-1 arg-0))))))) +(define REPL-Idris-case--23539-5219 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (GenerateDef-Interactive-TTImp-makeDef arg-7 arg-4 arg-6 (lambda (p) (lambda (n) (FC-Core-onLine (Prelude-C-45_Neg__Int arg-1 1) p))) arg-12 eta-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((bind-0 (vector 1 (vector 0 )))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((sc4 e-2)) (let ((e-7 (vector-ref sc4 1))) (let ((e-6 (vector-ref sc4 2))) (let ((act-25 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-1))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (let ((_-0 (vector 1 (vector 0 e-7 e-6)))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((_-1 (vector 1 e-3))) ((REPL-Idris-case--23738-5377 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 bind-0 e-7 e-6 _-0 e-3 _-1 (Unlit-Parser-isLitLine e-3)) eta-1)))) (else (vector 1 (vector 1 "Source line not found")))))))))))))))) (else ((REPL-Idris-processEdit arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 arg-1 arg-0)) eta-1))))))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find a definition for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) (Strings-Prelude-C-43C-43 ": " (Core-Core-show_Show__Error err)))))))) eta-0)))(else (lambda (eta-0) (vector 1 (vector 1 "Already defined")))))))) (else (lambda (eta-0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0)))))))))) +(define REPL-Idris-case--21401-5172 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-9 (let ((sc4 arg-8)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 (vector 0 e-13 e-14)))))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-2 (vector-ref sc5 1))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (GenerateDef-Interactive-TTImp-makeDef arg-7 arg-4 arg-6 (lambda (p) (lambda (n) (FC-Core-onLine (Prelude-C-45_Neg__Int arg-1 1) p))) e-9 eta-1))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc7 1))) (let ((bind-0 (vector 1 (vector 0 )))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((sc9 e-3)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (let ((act-26 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-1))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc10 1))) (let ((_-1 (vector 1 (vector 0 e-12 e-11)))) (let ((sc11 e-15)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((_-2 (vector 1 e-4))) ((REPL-Idris-case--23738-5377 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-14 e-13 e-5 e-9 _-0 bind-0 e-12 e-11 _-1 e-4 _-2 (Unlit-Parser-isLitLine e-4)) eta-1)))) (else (vector 1 (vector 1 "Source line not found")))))))))))))))) (else ((REPL-Idris-processEdit arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 arg-1 arg-0)) eta-1))))))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find a definition for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 ": " (Core-Core-show_Show__Error err)))))))) eta-0))(else (vector 1 (vector 1 "Already defined"))))))) (else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) (Strings-Prelude-C-43C-43 " on line " (Prelude-show_Show__Int arg-1)))))))))))) +(define REPL-Idris-case--23084-4960 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 arg-26 (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-26 (vector 0 )))))))))) +(define REPL-Idris-case--23084-4857 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) arg-25)) (else arg-25))))) +(define REPL-Idris-case--22967-4787 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-resugar e-2 arg-9 arg-7 e-6 e-7 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc3 arg-12)) (cond ((equal? sc3 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-5)) (else e-5)))))) (let ((sc3 arg-4)) (cond ((equal? sc3 0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0)) (else (vector 1 (vector 0 (vector 1 res (vector 0 )))))))))))))))))))))) +(define REPL-Idris-case--22236-4691 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole")))) (else (let ((e-0 (vector-ref sc0 1))) (REPL-Idris-case--22967-4787 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 e-0 (REPL-Idris-n--21401-4003-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 ) e-0 (vector 0 ) arg-18)))))))) +(define REPL-Idris-case--22236-4582 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (Resugar-Idris-resugar e-2 arg-9 arg-7 e-6 e-7 eta-0)))))))))) +(define REPL-Idris-case--22452-4462 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-proofSearch arg-1 arg-24 (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-24 (vector 0 )))))))))) +(define REPL-Idris-case--22452-4367 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) arg-21)) (else arg-21))))) +(define REPL-Idris-case--22334-4270 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 "No search results")))) (else (let ((e-2 (vector-ref sc0 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc1 arg-11)) (cond ((equal? sc1 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-2)) (else e-2)))))) (let ((sc1 arg-3)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-proofSearch arg-1 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 res (vector 0 ))))))))))))))) +(define REPL-Idris-case--22236-4172 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-22) (Syntax-Idris-show_Show__PTerm arg-22)) arg-21))))) (else (let ((sc1 arg-21)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 "No search results")))) (else (let ((e-2 (vector-ref sc1 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc2 arg-12)) (cond ((equal? sc2 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-2)) (else e-2)))))) (let ((sc2 arg-4)) (cond ((equal? sc2 0) (lambda (eta-0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 res (vector 0 )))))))))))))))))) +(define REPL-Idris-case--21401-4087 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((7) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (ExprSearch-Interactive-TTImp-exprSearch arg-9 arg-6 arg-8 (REPLOpts-Idris-replFC) arg-2 (vector 0 ) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) eta-1 eta-2))) e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (tm) (let ((bind-0 (vector 1 (vector 0 e-6 (vector 0 e-10 (vector 7 e-12 e-13))) (vector 0 )))) (REPL-Idris-case--22236-4582 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-13 e-6 e-10 e-12 bind-0 e-5 e-8 e-9 tm (REPL-Idris-n--21401-4003-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 ) e-12 (vector 0 ) tm)))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc8 1))) (let ((sc9 arg-0)) (cond ((equal? sc9 0) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-14) (Syntax-Idris-show_Show__PTerm arg-14)) e-14)))) (else (let ((sc10 e-14)) (case (vector-ref sc10 0) ((0) (vector 1 (vector 1 "No search results"))) (else (let ((e-4 (vector-ref sc10 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc11 arg-12)) (cond ((equal? sc11 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-4)) (else e-4)))))) (let ((sc11 arg-4)) (cond ((equal? sc11 0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0)) (else (vector 1 (vector 0 (vector 1 res (vector 0 )))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole"))))))))) ((1) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((e-16 (vector-ref sc3 3))) (let ((e-17 (vector-ref sc3 4))) (let ((e-18 (vector-ref sc3 5))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((1) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((bind-0 (vector 1 (vector 0 e-6 (vector 0 e-10 (vector 1 e-14 (vector 0 ) (vector 1 e-22 e-23) e-17 e-18))) (vector 0 )))) (REPL-Idris-case--22236-4691 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-17 e-18 e-22 e-6 e-10 e-23 e-14 bind-0 (let ((sc7 e-14)) (let ((e-0 (vector-ref sc7 1))) e-0)))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole")))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole"))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole"))))))))) ((0) (lambda (eta-0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Unknown name " (Name-Core-show_Show__Name arg-2))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole")))))))) +(define REPL-Idris-case--22040-3930 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause arg-8 (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-8 (vector 0 )))))))))) +(define REPL-Idris-case--21401-3909 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause e-1 (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 e-1 (vector 0 )))))))))) (else (lambda (eta-0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not defined here"))))))))) +(define REPL-Idris-case--21878-3806 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-caseSplit (Strings-Data-unlines arg-12) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 arg-12)))))))) +(define REPL-Idris-case--21401-3764 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (CaseSplit-IDEMode-Idris-updateCase arg-8 arg-6 arg-4 e-1 (Prelude-C-45_Neg__Int arg-2 1) (Prelude-C-45_Neg__Int arg-1 1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 arg-3)) (cond ((equal? sc2 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-caseSplit (Strings-Data-unlines e-5) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0)) (else (vector 1 (vector 0 e-5))))))))))))) (else (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (CaseSplit-Interactive-TTImp-show_Show__SplitError e-3)))))))))) +(define REPL-Idris-case--21401-3690 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (FC-Core-within (vector 0 (Prelude-C-45_Neg__Int arg-2 1) (Prelude-C-45_Neg__Int arg-1 1)) eta-0))) (else (lambda (eta-0) (FC-Core-onLine (Prelude-C-45_Neg__Int arg-2 1) eta-0))))))) +(define REPL-Idris-case--21401-3628 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 "")))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-7 arg-5 arg-8 eta-1)) arg-9) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Name-Core-showSep "\u000a" e-5))))))))))))) +(define REPL-Idris-case--21458-3545 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (vector 0 "(interactive)" (vector 0 0 0) (vector 0 0 0)) arg-0) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-10 (vector 0 )))))))))) +(define REPL-Idris-case--21458-3435 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (REPL-Idris-displayTerm arg-7 arg-5 arg-8 arg-13 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-nameRoot arg-11) (Strings-Prelude-C-43C-43 " : " e-5)) (vector 0 ))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ))))))))) +(define REPL-Idris-case--21401-3396 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 e-10))))) (REPL-Idris-case--21458-3435 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 e-9 e-10 _-0 (Prelude-C-61C-61_Eq__String arg-10 ""))))))))))) (else (let ((_-0 (vector 0 ))) (REPL-Idris-case--21458-3545 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 _-0 (Prelude-C-61C-61_Eq__String arg-10 "")))))))) +(define REPL-Idris-case--21243-3222 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (vector 1 (Strings-Prelude-C-43C-43 "\u000a" (Unlit-Parser-relit arg-8 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 arg-3 "\u000a"))))) arg-7)) (else (vector 1 arg-6 (REPL-Idris-n--21236-3197-insertInBlank arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7))))))) +(define REPL-Idris-case--21170-3139 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 arg-5 (Prelude-pack (List-Data-drop 'erased (Prelude-length arg-6) (Prelude-unpack arg-4))))) (else (Prelude-strCons (string-ref arg-4 0) (REPL-Idris-n--21161-3132-replaceStr arg-0 arg-1 arg-2 arg-3 arg-6 arg-5 (substring arg-4 1 (string-length arg-4))))))))) +(define REPL-Idris-case--21076-3066 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (REPL-Idris-rtrim arg-2) (vector 1 arg-0 arg-1))) (else (vector 1 arg-0 (REPL-Idris-addClause arg-2 0 arg-1))))))) +(define REPL-Idris-case--20981-2975 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 arg-3 "~") e-2) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 (let ((act-25 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-3 (Strings-Data-unlines (arg-0 (Strings-Data-lines e-2)))) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (vector 1 (vector 0 (vector 0 )))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-3 e-5) eta-0)))))))) +(define REPL-Idris-case--20967-2951 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-1) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 e-1 "~") e-2) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-26 (let ((act-26 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-26 (arg-3672 eta-1))) ((arg-3673 act-26) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-1 (Strings-Data-unlines (arg-0 (Strings-Data-lines e-2)))) eta-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 (vector 0 (vector 0 ))))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-1 e-6) eta-0))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ))))))))) +(define REPL-Idris-case--20753-2771 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "No such code generator: " arg-3)) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-25)))))))))))) +(define REPL-Idris-case--20739-2727 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (Chez-Scheme-Compiler-codegenChez)))) ((1) (lambda (eta-0) (vector 1 (Racket-Scheme-Compiler-codegenRacket)))) ((2) (lambda (eta-0) (vector 1 (Gambit-Scheme-Compiler-codegenGambit)))) (else (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-getCodegen arg-1 e-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 e-1))) (else (let ((act-25 (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "No such code generator: " e-0)) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-26 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-26 (arg-3672 eta-1))) ((arg-3673 act-26) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-26))))))))))))))))))))) +(define REPL-Idris-case--20496-2654 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setCG arg-2 e-1 eta-0)))) (else (lambda (eta-0) (REPLCommon-Idris-iputStrLn arg-1 "No such code generator available" eta-0))))))) +(define REPL-Idris-case--20496-2635 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 arg-0 e-6 e-7 e-8 e-9))))))))))))) +(define REPL-Idris-case--20496-2600 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 arg-0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9))))))))))))) +(define REPL-Idris-case--20496-2565 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 arg-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9))))))))))))) +(define REPL-Idris-case--20496-2530 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 arg-0)))))) +(define REPL-Idris-case--20496-2509 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 arg-0 e-1 e-2)))))) +(define REPL-Idris-case--20402-2423 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((REPL-Idris-displayType arg-5 arg-4 arg-3 (vector 0 arg-0 (vector 0 arg-1 arg-2))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayClause arg-5 arg-4 arg-3 eta-1)) e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\u000a" (Name-Core-showSep "\u000a" e-6)))))))))))))))))(else (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " is not a pattern matching definition")))))))) +(define REPL-Idris-case--19864-2077 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Compiled: " (CompileExpr-Core-show_Show__CDef e-2))) eta-0))) (vector 1 act-24))))))))) +(define REPL-Idris-n--21161-3132-replaceStr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 "") "")(else (REPL-Idris-case--21170-3139 arg-0 arg-1 arg-2 arg-3 arg-6 arg-5 arg-4 (Strings-Data-isPrefixOf arg-4 arg-6))))))) +(define REPL-Idris-n--27909-9092-prompt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) "[tc] ") ((1) "") (else "[exec] "))))) +(define REPL-Idris-n--25954-7229-nfun (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Normalise-Core-normaliseAll arg-6 eta-0 eta-1 eta-2 eta-3))))))(else (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Normalise-Core-normalise arg-6 eta-0 eta-1 eta-2 eta-3)))))))))) +(define REPL-Idris-n--27928-9487-makeSpace (lambda (arg-0) (Prelude-pack (Prelude-take 'erased arg-0 (Stream-Data-repeat 'erased #\ ))))) +(define REPL-Idris-n--21236-3197-insertInBlank (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 1 (Unlit-Parser-relit arg-6 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 arg-3 "\u000a")))) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (REPL-Idris-case--21243-3222 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-6 (Prelude-C-61C-61_Eq__String (Strings-Data-trim e-2) ""))))))))) +(define REPL-Idris-n--27705-8858-getLoad (lambda (arg-0 arg-1 arg-2 arg-3) (vector 1 (arg-2 (Strings-Data-trim (Prelude-substr arg-1 (Prelude-length arg-3) arg-3)))))) +(define REPL-Idris-n--27705-8859-fnameCmd (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (REPL-Idris-case--27708-8884 arg-0 e-6 e-7 e-3 arg-2 (Strings-Data-isPrefixOf e-6 arg-2)))))))))))) +(define REPL-Idris-n--25625-6923-execDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Desugar-Idris-desugarDecl arg-2 arg-4 arg-3 arg-1 (vector 0 ) arg-5) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-processDecl (vector 0 ) arg-4 arg-1 arg-3 (vector 0 ) (vector 0 ) (vector 0 ) eta-0)) e-5) ext-0)))))))) +(define REPL-Idris-n--25954-7228-emode (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (vector 2 )))))) +(define REPL-Idris-n--21401-4003-dropLams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (vector 0 arg-10 (vector 0 arg-12 arg-13)))(else (let ((e-0 (- arg-11 1))) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((3) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (REPL-Idris-n--21401-4003-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-3 arg-10) e-0 (vector 1 e-4 arg-12) e-5)))))(else (vector 0 arg-10 (vector 0 arg-12 arg-13))))))))))) +(define REPL-Idris-n--27928-9488-col (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (REPL-Idris-n--27928-9487-makeSpace (Prelude-minus arg-0 (Prelude-length arg-2))) (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 (REPL-Idris-n--27928-9487-makeSpace (Prelude-minus arg-1 (Prelude-length arg-3))) arg-4)))))) +(define REPL-Idris-n--27928-9489-cmdInfo (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 " " (REPL-Idris-n--27928-9488-col (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))) (Name-Core-showSep " " e-2) (Parser-Idris-show_Show__CmdArg e-6) e-7)))))))))) +(define REPL-Idris-n--21355-3302-addW (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 2))) (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-5) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Unlit-Parser-relit arg-3 eta-0)) arg-2) e-3)))) (else (vector 0 )))))(else (let ((e-0 (- arg-4 1))) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (REPL-Idris-n--21355-3302-addW arg-0 arg-1 arg-2 arg-3 e-0 (vector 1 e-6 arg-5) e-7)))) (else (List-Data-reverse 'erased arg-5)))))))))) +(define REPL-Idris-n--21236-3198-addApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased (REPL-Idris-n--21236-3197-insertInBlank arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8)) arg-9))(else (let ((e-0 (- arg-7 1))) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (REPL-Idris-n--21236-3198-addApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-0 (vector 1 e-2 arg-8) e-3)))) (else (List-Data-reverse 'erased arg-8)))))))))) +(define REPL-Idris-updateFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((REPL-Idris-case--20967-2951 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) ext-0)))))))) +(define REPL-Idris-showInfo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Def arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Def arg-6292 arg-6293)))) (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1))) (Strings-Prelude-C-43C-43 " ==> " (Context-Core-show_Show__Def e-5)))) eta-0))) (vector 1 act-25))))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega (let ((sc3 e-7)) (let ((e-21 (vector-ref sc3 8))) e-21)))) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-26 (arg-3672 eta-1))) ((arg-3673 act-26) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Erasable args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc4 e-7)) (let ((e-25 (vector-ref sc4 4))) e-25))))) eta-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-27 (arg-3672 eta-1))) ((arg-3673 act-27) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Detaggable arg types: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc5 e-7)) (let ((e-4 (vector-ref sc5 5))) e-4))))) eta-0))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-28 (arg-3672 eta-1))) ((arg-3673 act-28) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Specialise args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc6 e-7)) (let ((e-26 (vector-ref sc6 6))) e-26))))) eta-0))) (vector 1 act-28)))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-29 (let ((act-29 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-29 (arg-3672 eta-1))) ((arg-3673 act-29) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Inferrable args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc7 e-7)) (let ((e-26 (vector-ref sc7 7))) e-26))))) eta-0))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-30 ((REPL-Idris-case--19864-2077 e-2 e-6 e-7 arg-0 e-5 e-8 e-9 e-10 e-11 e-12 (let ((sc8 e-7)) (let ((e-18 (vector-ref sc8 19))) e-18))) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-31 (let ((act-31 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) ((NameMap-Data-keys 'erased) (Context-Core-refersTo e-7))) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-32 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-32 (arg-3672 eta-1))) ((arg-3673 act-32) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Refers to: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-14))) eta-0))) (vector 1 act-32))))))))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 (let ((act-32 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) ((NameMap-Data-keys 'erased) (Context-Core-refersToRuntime e-7))) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-33 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-33 (arg-3672 eta-1))) ((arg-3673 act-33) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Refers to (runtime): " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-15))) eta-0))) (vector 1 act-33))))))))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-33 (let ((act-33 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-33 (arg-3672 eta-1))) ((arg-3673 act-33) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Flags: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__DefFlag x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__DefFlag d x)))) (let ((sc11 e-7)) (let ((e-25 (vector-ref sc11 12))) e-25))))) eta-0))) (vector 1 act-33)))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-34 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (lambda (eta-3) (Context-Core-full_HasNames__SCCall arg-6290 arg-6291 eta-3)))) (lambda (arg-6292) (lambda (arg-6293) (lambda (eta-3) (Context-Core-resolved_HasNames__SCCall arg-6292 arg-6293 eta-3))))) eta-1 eta-2))) (let ((sc12 e-7)) (let ((e-20 (vector-ref sc12 21))) e-20))) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc12 1))) (let ((sc13 (Prelude-not (List-Data-isNil 'erased (let ((sc14 e-7)) (let ((e-20 (vector-ref sc14 21))) e-20)))))) (cond ((equal? sc13 0) (((let ((scinfo (Prelude-map_Functor__List 'erased 'erased (lambda (s) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc14 s)) (let ((e-0 (vector-ref sc14 1))) e-0))) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__Nat d x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-0) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-0 x-1))))) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-0) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__Nat d-1 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-1) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-1 x-1))))) d-0 x-0)))) d x)))) (let ((sc14 s)) (let ((e-1 (vector-ref sc14 2))) e-1)))))) e-17))) (lambda () (lambda (eta-1) (let ((act-35 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-35 (arg-3672 eta-2))) ((arg-3673 act-35) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Size change: " (Name-Core-showSep ", " scinfo))) eta-1))) (vector 1 act-35)))))) eta-0)) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define REPL-Idris-setOpt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setPPrint arg-0 (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (vector 0 e-0 e-1 e-2)))) eta-0))))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setPPrint arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 0 e-0 e-3 e-1)))) eta-0))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (set-box! arg-1 (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) (let ((e-11 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-10 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-2 e-1 e-11 e-3 e-4 e-10 e-6 e-7 e-8 e-9)))))))))))))) (vector 1 act-25)))))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (set-box! arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 3))) (let ((e-11 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-10 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-0 e-3 e-2 e-11 e-4 e-10 e-6 e-7 e-8 e-9)))))))))))))) (vector 1 act-25)))))))))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (set-box! arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-11 (vector-ref sc2 5))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-0 e-1 e-2 e-3 e-11 e-4 e-6 e-7 e-8 e-9)))))))))))))) (vector 1 act-25)))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((REPL-Idris-case--20496-2654 e-5 arg-1 arg-0 e-6 (Options-Core-getCG (let ((sc2 e-6)) (let ((e-4 (vector-ref sc2 5))) e-4)) e-5)) eta-0))))))))))))) (define REPL-Idris-rtrim (lambda (arg-0) (Prelude-reverse (Strings-Data-ltrim (Prelude-reverse arg-0))))) (define REPL-Idris-replCmd (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 "") (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 ((REPL-Idris-interpret arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((REPL-Idris-displayResult arg-0 arg-1 arg-2 arg-3 arg-4 e-5) eta-0)))))))))))) -(define REPL-Idris-repl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-getNS arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 ((Prelude-putStr 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (REPL-Idris-n--27246-8548-prompt arg-4 arg-3 arg-2 arg-1 arg-0 (let ((sc2 e-6)) (let ((e-1 (vector-ref sc2 2))) e-1))) (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-5)) "> "))) ext-0))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 ((Prelude-getLine 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-27 (arg-3664 eta-0))) ((arg-3665 act-27) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341)))) ext-0))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 ((File-System-fEOF 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-28 (arg-3664 eta-0))) ((arg-3665 act-28) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (File-System-stdin)) ext-0))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (cond ((equal? sc5 0) (let ((act-29 (let ((act-29 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-29 (arg-3664 eta-0))) ((arg-3665 act-29) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "") ext-0))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (REPLCommon-Idris-iputStrLn arg-4 "Bye for now!" ext-0)))))) (else (let ((act-29 ((REPL-Idris-interpret arg-0 arg-1 arg-2 arg-3 arg-4 e-8) ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) ((REPL-Idris-handleResult arg-0 arg-1 arg-2 arg-3 arg-4 e-10) ext-0))))))))))))))))))))))))))))))))))) -(define REPL-Idris-proofSearch (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (vector 1 (REPL-Idris-n--21075-3074-replaceStr e-3 e-4 arg-1 arg-0 (Strings-Prelude-C-43C-43 "?" (Name-Core-show_Show__Name arg-0)) arg-1 e-3) e-4))))(else (let ((sc1 arg-3)) (vector 0 ))))))(else (let ((e-1 (- arg-2 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-6 (REPL-Idris-proofSearch arg-0 arg-1 e-1 e-7)))))(else (let ((sc0 arg-3)) (vector 0 ))))))))))) -(define REPL-Idris-processEdit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-2 (let ((sc2 e-5)) (let ((e-29 (vector-ref sc2 1))) e-29))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 ""))(else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-0 arg-2 e-5 eta-1)) e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Name-Core-showSep "\u000a" e-7)))))))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Metadata-Core-findTypeAt arg-3 (lambda (p) (lambda (n) (FC-Core-within (vector 0 (Prelude-C-45_Neg__Int e-0 1) (Prelude-C-45_Neg__Int e-1 1)) p))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((sc6 e-3)) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((_-0 (vector 1 (vector 0 e-10 (vector 0 e-12 e-11))))) ((REPL-Idris-case--21326-3333 e-2 e-1 e-0 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 e-10 e-12 e-11 _-0 (Prelude-C-61C-61_Eq__String e-7 "")) eta-0)))))))))) (else (let ((_-0 (vector 0 ))) ((REPL-Idris-case--21326-3443 e-2 e-1 e-0 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 _-0 (Prelude-C-61C-61_Eq__String e-7 "")) eta-0)))))))))))))))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((find (REPL-Idris-case--21269-3588 e-6 e-5 e-4 e-3 arg-4 arg-3 arg-2 arg-1 arg-0 (Prelude-C-62_Ord__Int e-5 0)))) (lambda (eta-0) (let ((act-24 (CaseSplit-Interactive-TTImp-getSplits arg-0 arg-3 arg-1 (lambda (eta-1) (lambda (eta-2) (REPL-Idris-anyAt 'erased find eta-1 eta-2))) e-6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc1 1))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 (CaseSplit-IDEMode-Idris-updateCase arg-0 arg-2 arg-4 e-1 (Prelude-C-45_Neg__Int e-4 1) (Prelude-C-45_Neg__Int e-5 1) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-3)) (cond ((equal? sc4 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-caseSplit (Strings-Data-unlines e-8) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int e-4 1)) eta-1)) eta-0)) (else (vector 1 (vector 0 e-8)))))))))))) (else (let ((e-8 (vector-ref sc2 1))) (vector 1 (vector 1 (CaseSplit-Interactive-TTImp-show_Show__SplitError e-8))))))))))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (CaseSplit-IDEMode-Idris-getClause arg-0 arg-3 arg-4 e-8 e-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-addClause e-1 (Prelude-cast_Cast__Int_Integer e-8) eta-1)) eta-0)) (else (vector 1 (vector 0 (vector 1 e-1 (vector 0 ))))))))) (else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) " not defined here")))))))))))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((brack (List-Data-elemBy 'erased (lambda (x) (lambda (y) (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS x) (Name-Core-dropNS y)))) e-12 (let ((sc3 e-6)) (let ((e-3 (vector-ref sc3 4))) e-3))))) (let ((act-26 (Context-Core-lookupDefName e-12 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-16 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((7) (let ((e-18 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((sc8 e-2)) (case (vector-ref sc8 0) ((0) (let ((act-27 (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-3 arg-1 (REPLOpts-Idris-replFC) e-12 (vector 0 ) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((e-19 (vector-ref sc9 1))) (let ((act-28 (let ((act-28 (unbox arg-0))) (vector 1 act-28)))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-20 (vector-ref sc10 1))) (let ((act-29 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-normaliseHoles (vector 0 ) e-20 (vector 0 ) eta-1 eta-2))) e-19) eta-0))) (let ((sc11 act-29)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-21 (vector-ref sc11 1))) (let ((act-30 ((Core-Core-traverse 'erased 'erased (lambda (tm) (let ((bind-0 (vector 1 (vector 0 e-9 (vector 0 e-16 (vector 7 e-18 e-17))) (vector 0 )))) (REPL-Idris-case--22104-4480 e-14 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-17 e-9 e-16 e-18 bind-0 e-19 e-20 e-21 tm (REPL-Idris-n--21269-3901-dropLams e-14 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 (vector 0 ) e-18 (vector 0 ) tm)))) e-21) eta-0))) (let ((sc12 act-30)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((e-22 (vector-ref sc12 1))) (let ((sc13 e-14)) (cond ((equal? sc13 0) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-6) (Syntax-Idris-show_Show__PTerm arg-6)) e-22)))) (else (let ((sc14 e-22)) (case (vector-ref sc14 0) ((0) (vector 1 (vector 1 "No search results"))) (else (let ((e-4 (vector-ref sc14 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc15 brack)) (cond ((equal? sc15 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-4)) (else e-4)))))) (let ((sc15 e-10)) (cond ((equal? sc15 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-proofSearch e-12 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int e-11 1)) eta-1)) eta-0)) (else (vector 1 (vector 0 (vector 1 res (vector 0 ))))))))))))))))))))))))))))))))))))(else (vector 1 (vector 1 "Not a searchable hole")))))))) ((1) (let ((e-21 (vector-ref sc7 1))) (let ((e-20 (vector-ref sc7 2))) (let ((e-19 (vector-ref sc7 3))) (let ((e-17 (vector-ref sc7 4))) (let ((e-18 (vector-ref sc7 5))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((sc9 e-19)) (case (vector-ref sc9 0) ((1) (let ((e-22 (vector-ref sc9 1))) (let ((e-23 (vector-ref sc9 2))) (let ((sc10 e-2)) (case (vector-ref sc10 0) ((0) (let ((bind-0 (vector 1 (vector 0 e-9 (vector 0 e-16 (vector 1 e-21 (vector 0 ) (vector 1 e-22 e-23) e-17 e-18))) (vector 0 )))) ((REPL-Idris-case--22104-4589 e-14 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-17 e-18 e-22 e-9 e-16 e-23 e-21 bind-0 (let ((sc11 e-21)) (let ((e-0 (vector-ref sc11 1))) e-0))) eta-0)))(else (vector 1 (vector 1 "Not a searchable hole"))))))))(else (vector 1 (vector 1 "Not a searchable hole"))))))(else (vector 1 (vector 1 "Not a searchable hole")))))))))))(else (vector 1 (vector 1 "Not a searchable hole"))))))))(else (vector 1 (vector 1 "Not a searchable hole"))))))))(else (vector 1 (vector 1 "Not a searchable hole")))))))) ((0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Unknown name " (Name-Core-show_Show__Name e-12)))))(else (vector 1 (vector 1 "Not a searchable hole")))))))))))))))))))))))))))) ((4) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Metadata-Core-findTyDeclAt arg-3 (lambda (p) (lambda (n) (FC-Core-onLine (Prelude-C-45_Neg__Int e-16 1) p))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-10)) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((act-26 (Context-Core-lookupDefExact e-9 (let ((sc7 e-5)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((_-0 (vector 1 (vector 0 e-8 (vector 0 e-9 (vector 0 e-13 e-14)))))) (let ((sc8 e-11)) (case (vector-ref sc8 0) ((1) (let ((e-2 (vector-ref sc8 1))) (let ((sc9 e-2)) (case (vector-ref sc9 0) ((0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-27 (GenerateDef-Interactive-TTImp-makeDef arg-0 arg-3 arg-1 (lambda (p) (lambda (n) (FC-Core-onLine (Prelude-C-45_Neg__Int e-16 1) p))) e-9 eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc10 1))) (let ((bind-0 (vector 1 (vector 0 )))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((sc12 e-3)) (let ((e-19 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((act-28 (REPLOpts-Idris-getSourceLine arg-4 e-16 eta-1))) (let ((sc13 act-28)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc13 1))) (let ((_-1 (vector 1 (vector 0 e-19 e-18)))) (let ((sc14 e-20)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((_-2 (vector 1 e-4))) ((REPL-Idris-case--23606-5275 e-17 e-16 e-15 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-14 e-13 e-8 e-9 _-0 bind-0 e-19 e-18 _-1 e-4 _-2 (Unlit-Parser-isLitLine e-4)) eta-1)))) (else (vector 1 (vector 1 "Source line not found")))))))))))))))) (else ((REPL-Idris-processEdit arg-0 arg-1 arg-2 arg-3 arg-4 (vector 2 e-15 e-16 e-17)) eta-1))))))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find a definition for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 ": " (Core-Core-show_Show__Error err)))))))) eta-0))(else (vector 1 (vector 1 "Already defined"))))))) (else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name e-17)))))))))))))))))))))))) (else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-17) (Strings-Prelude-C-43C-43 " on line " (Prelude-show_Show__Int e-16)))))))))))))))))))))))) ((5) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((brack (List-Data-elemBy 'erased (lambda (x) (lambda (y) (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS x) (Name-Core-dropNS y)))) e-20 (let ((sc3 e-6)) (let ((e-3 (vector-ref sc3 4))) e-3))))) (let ((act-26 (REPL-Idris-lookupDefTyName e-20 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-13)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((e-16 (vector-ref sc8 2))) (let ((sc9 e-2)) (case (vector-ref sc9 0) ((0) (let ((act-27 (MakeLemma-Interactive-TTImp-makeLemma arg-3 arg-0 (REPLOpts-Idris-replFC) e-20 e-15 e-14 eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc10 1))) (let ((bind-0 (vector 1 (vector 0 e-9 (vector 0 e-11 (vector 0 (vector 7 e-15 e-16) e-14))) (vector 0 )))) (let ((sc11 e-12)) (let ((e-4 (vector-ref sc11 1))) (let ((e-3 (vector-ref sc11 2))) (let ((act-28 (Resugar-Idris-pterm arg-0 arg-2 e-4 eta-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-29 (Resugar-Idris-pterm arg-0 arg-2 e-3 eta-0))) (let ((sc13 act-29)) (case (vector-ref sc13 0) ((0) (let ((e-21 (vector-ref sc13 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc13 1))) (let ((act-30 (let ((act-30 (unbox arg-4))) (vector 1 act-30)))) (let ((sc14 act-30)) (case (vector-ref sc14 0) ((0) (let ((e-22 (vector-ref sc14 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc14 1))) (let ((pappstr (Syntax-Idris-show_Show__PTerm (let ((sc15 brack)) (cond ((equal? sc15 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-21)) (else e-21)))))) (let ((act-31 (REPLOpts-Idris-getSourceLine arg-4 e-19 eta-0))) (let ((sc15 act-31)) (case (vector-ref sc15 0) ((0) (let ((e-23 (vector-ref sc15 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc15 1))) (let ((_-0 (vector 0 e-4 e-3))) (let ((sc16 e-23)) (case (vector-ref sc16 0) ((1) (let ((e-24 (vector-ref sc16 1))) (let ((_-1 (vector 1 e-24))) ((REPL-Idris-case--24355-5922 e-20 e-19 e-18 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-16 e-9 e-11 e-15 e-14 bind-0 e-4 e-3 _-0 e-17 e-21 e-22 pappstr e-24 _-1 (Unlit-Parser-isLitLine e-24)) eta-0)))) (else (vector 1 (vector 1 "Source line not found")))))))))))))))))))))))))))))))))))))(else (vector 1 (vector 1 "Can't make lifted definition"))))))))(else (vector 1 (vector 1 "Can't make lifted definition"))))))))(else (vector 1 (vector 1 "Can't make lifted definition"))))))))(else (vector 1 (vector 1 "Can't make lifted definition"))))))))(else (vector 1 (vector 1 "Can't make lifted definition"))))))))(else (vector 1 (vector 1 "Can't make lifted definition")))))))))))))))))))))))))) ((6) (lambda (eta-0) (vector 1 (vector 1 "Not implemented yet")))) (else (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-getSourceLine arg-4 e-25 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 1 (MakeClause-IDEMode-Idris-makeWith e-26 e-1) (vector 0 )))))) (else (vector 1 (vector 1 "Source line not available")))))))))))))))))) +(define REPL-Idris-repl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-getNS arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 ((Prelude-putStr 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-26 (arg-3672 eta-0))) ((arg-3673 act-26) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 (REPL-Idris-n--27909-9092-prompt arg-4 arg-3 arg-2 arg-1 arg-0 (let ((sc2 e-6)) (let ((e-1 (vector-ref sc2 2))) e-1))) (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-5)) "> "))) ext-0))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 ((Prelude-getLine 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-27 (arg-3672 eta-0))) ((arg-3673 act-27) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350)))) ext-0))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 ((File-System-fEOF 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-28 (arg-3672 eta-0))) ((arg-3673 act-28) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (File-System-stdin)) ext-0))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (cond ((equal? sc5 0) (let ((act-29 (let ((act-29 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-29 (arg-3672 eta-0))) ((arg-3673 act-29) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "") ext-0))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (REPLCommon-Idris-iputStrLn arg-4 "Bye for now!" ext-0)))))) (else (let ((act-29 ((REPL-Idris-interpret arg-0 arg-1 arg-2 arg-3 arg-4 e-8) ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) ((REPL-Idris-handleResult arg-0 arg-1 arg-2 arg-3 arg-4 e-10) ext-0))))))))))))))))))))))))))))))))))) +(define REPL-Idris-proofSearch (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (vector 1 (REPL-Idris-n--21161-3132-replaceStr e-3 e-4 arg-1 arg-0 (Strings-Prelude-C-43C-43 "?" (Name-Core-show_Show__Name arg-0)) arg-1 e-3) e-4))))(else (let ((sc1 arg-3)) (vector 0 ))))))(else (let ((e-1 (- arg-2 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-6 (REPL-Idris-proofSearch arg-0 arg-1 e-1 e-7)))))(else (let ((sc0 arg-3)) (vector 0 ))))))))))) +(define REPL-Idris-processEdit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-2 (let ((sc2 e-5)) (let ((e-29 (vector-ref sc2 1))) e-29))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 ""))(else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-0 arg-2 e-5 eta-1)) e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Name-Core-showSep "\u000a" e-7)))))))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Metadata-Core-findTypeAt arg-3 (lambda (p) (lambda (n) (FC-Core-within (vector 0 (Prelude-C-45_Neg__Int e-0 1) (Prelude-C-45_Neg__Int e-1 1)) p))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((sc6 e-3)) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((_-0 (vector 1 (vector 0 e-10 (vector 0 e-12 e-11))))) ((REPL-Idris-case--21458-3435 e-2 e-1 e-0 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 e-10 e-12 e-11 _-0 (Prelude-C-61C-61_Eq__String e-7 "")) eta-0)))))))))) (else (let ((_-0 (vector 0 ))) ((REPL-Idris-case--21458-3545 e-2 e-1 e-0 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 _-0 (Prelude-C-61C-61_Eq__String e-7 "")) eta-0)))))))))))))))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((find (REPL-Idris-case--21401-3690 e-6 e-5 e-4 e-3 arg-4 arg-3 arg-2 arg-1 arg-0 (Prelude-C-62_Ord__Int e-5 0)))) (lambda (eta-0) (let ((act-24 (CaseSplit-Interactive-TTImp-getSplits arg-0 arg-3 arg-1 (lambda (eta-1) (lambda (eta-2) (REPL-Idris-anyAt 'erased find eta-1 eta-2))) e-6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc1 1))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 (CaseSplit-IDEMode-Idris-updateCase arg-0 arg-2 arg-4 e-1 (Prelude-C-45_Neg__Int e-4 1) (Prelude-C-45_Neg__Int e-5 1) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-3)) (cond ((equal? sc4 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-caseSplit (Strings-Data-unlines e-8) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int e-4 1)) eta-1)) eta-0)) (else (vector 1 (vector 0 e-8)))))))))))) (else (let ((e-8 (vector-ref sc2 1))) (vector 1 (vector 1 (CaseSplit-Interactive-TTImp-show_Show__SplitError e-8))))))))))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (CaseSplit-IDEMode-Idris-getClause arg-0 arg-3 arg-4 e-8 e-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-addClause e-1 (Prelude-cast_Cast__Int_Integer e-8) eta-1)) eta-0)) (else (vector 1 (vector 0 (vector 1 e-1 (vector 0 ))))))))) (else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) " not defined here")))))))))))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((brack (List-Data-elemBy 'erased (lambda (x) (lambda (y) (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS x) (Name-Core-dropNS y)))) e-12 (let ((sc3 e-6)) (let ((e-4 (vector-ref sc3 5))) e-4))))) (let ((act-26 (Context-Core-lookupDefName e-12 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-16 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((7) (let ((e-18 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((sc8 e-2)) (case (vector-ref sc8 0) ((0) (let ((act-27 (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-3 arg-1 (REPLOpts-Idris-replFC) e-12 (vector 0 ) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((e-19 (vector-ref sc9 1))) (let ((act-28 (let ((act-28 (unbox arg-0))) (vector 1 act-28)))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-20 (vector-ref sc10 1))) (let ((act-29 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-normaliseHoles (vector 0 ) e-20 (vector 0 ) eta-1 eta-2))) e-19) eta-0))) (let ((sc11 act-29)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-21 (vector-ref sc11 1))) (let ((act-30 ((Core-Core-traverse 'erased 'erased (lambda (tm) (let ((bind-0 (vector 1 (vector 0 e-9 (vector 0 e-16 (vector 7 e-18 e-17))) (vector 0 )))) (REPL-Idris-case--22236-4582 e-14 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-17 e-9 e-16 e-18 bind-0 e-19 e-20 e-21 tm (REPL-Idris-n--21401-4003-dropLams e-14 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 (vector 0 ) e-18 (vector 0 ) tm)))) e-21) eta-0))) (let ((sc12 act-30)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((e-22 (vector-ref sc12 1))) (let ((sc13 e-14)) (cond ((equal? sc13 0) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-6) (Syntax-Idris-show_Show__PTerm arg-6)) e-22)))) (else (let ((sc14 e-22)) (case (vector-ref sc14 0) ((0) (vector 1 (vector 1 "No search results"))) (else (let ((e-4 (vector-ref sc14 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc15 brack)) (cond ((equal? sc15 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-4)) (else e-4)))))) (let ((sc15 e-10)) (cond ((equal? sc15 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-proofSearch e-12 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int e-11 1)) eta-1)) eta-0)) (else (vector 1 (vector 0 (vector 1 res (vector 0 ))))))))))))))))))))))))))))))))))))(else (vector 1 (vector 1 "Not a searchable hole")))))))) ((1) (let ((e-21 (vector-ref sc7 1))) (let ((e-20 (vector-ref sc7 2))) (let ((e-19 (vector-ref sc7 3))) (let ((e-17 (vector-ref sc7 4))) (let ((e-18 (vector-ref sc7 5))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((sc9 e-19)) (case (vector-ref sc9 0) ((1) (let ((e-22 (vector-ref sc9 1))) (let ((e-23 (vector-ref sc9 2))) (let ((sc10 e-2)) (case (vector-ref sc10 0) ((0) (let ((bind-0 (vector 1 (vector 0 e-9 (vector 0 e-16 (vector 1 e-21 (vector 0 ) (vector 1 e-22 e-23) e-17 e-18))) (vector 0 )))) ((REPL-Idris-case--22236-4691 e-14 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-17 e-18 e-22 e-9 e-16 e-23 e-21 bind-0 (let ((sc11 e-21)) (let ((e-0 (vector-ref sc11 1))) e-0))) eta-0)))(else (vector 1 (vector 1 "Not a searchable hole"))))))))(else (vector 1 (vector 1 "Not a searchable hole"))))))(else (vector 1 (vector 1 "Not a searchable hole")))))))))))(else (vector 1 (vector 1 "Not a searchable hole"))))))))(else (vector 1 (vector 1 "Not a searchable hole"))))))))(else (vector 1 (vector 1 "Not a searchable hole")))))))) ((0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Unknown name " (Name-Core-show_Show__Name e-12)))))(else (vector 1 (vector 1 "Not a searchable hole")))))))))))))))))))))))))))) ((4) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Metadata-Core-findTyDeclAt arg-3 (lambda (p) (lambda (n) (FC-Core-onLine (Prelude-C-45_Neg__Int e-16 1) p))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-10)) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((act-26 (Context-Core-lookupDefExact e-9 (let ((sc7 e-5)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((_-0 (vector 1 (vector 0 e-8 (vector 0 e-9 (vector 0 e-13 e-14)))))) (let ((sc8 e-11)) (case (vector-ref sc8 0) ((1) (let ((e-2 (vector-ref sc8 1))) (let ((sc9 e-2)) (case (vector-ref sc9 0) ((0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-27 (GenerateDef-Interactive-TTImp-makeDef arg-0 arg-3 arg-1 (lambda (p) (lambda (n) (FC-Core-onLine (Prelude-C-45_Neg__Int e-16 1) p))) e-9 eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc10 1))) (let ((bind-0 (vector 1 (vector 0 )))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((sc12 e-3)) (let ((e-19 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((act-28 (REPLOpts-Idris-getSourceLine arg-4 e-16 eta-1))) (let ((sc13 act-28)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc13 1))) (let ((_-1 (vector 1 (vector 0 e-19 e-18)))) (let ((sc14 e-20)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((_-2 (vector 1 e-4))) ((REPL-Idris-case--23738-5377 e-17 e-16 e-15 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-14 e-13 e-8 e-9 _-0 bind-0 e-19 e-18 _-1 e-4 _-2 (Unlit-Parser-isLitLine e-4)) eta-1)))) (else (vector 1 (vector 1 "Source line not found")))))))))))))))) (else ((REPL-Idris-processEdit arg-0 arg-1 arg-2 arg-3 arg-4 (vector 2 e-15 e-16 e-17)) eta-1))))))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find a definition for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 ": " (Core-Core-show_Show__Error err)))))))) eta-0))(else (vector 1 (vector 1 "Already defined"))))))) (else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name e-17)))))))))))))))))))))))) (else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-17) (Strings-Prelude-C-43C-43 " on line " (Prelude-show_Show__Int e-16)))))))))))))))))))))))) ((5) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((brack (List-Data-elemBy 'erased (lambda (x) (lambda (y) (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS x) (Name-Core-dropNS y)))) e-20 (let ((sc3 e-6)) (let ((e-4 (vector-ref sc3 5))) e-4))))) (let ((act-26 (REPL-Idris-lookupDefTyName e-20 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-13)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((e-16 (vector-ref sc8 2))) (let ((sc9 e-2)) (case (vector-ref sc9 0) ((0) (let ((act-27 (MakeLemma-Interactive-TTImp-makeLemma arg-3 arg-0 (REPLOpts-Idris-replFC) e-20 e-15 e-14 eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc10 1))) (let ((bind-0 (vector 1 (vector 0 e-9 (vector 0 e-11 (vector 0 (vector 7 e-15 e-16) e-14))) (vector 0 )))) (let ((sc11 e-12)) (let ((e-4 (vector-ref sc11 1))) (let ((e-3 (vector-ref sc11 2))) (let ((act-28 (Resugar-Idris-pterm arg-0 arg-2 e-4 eta-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-29 (Resugar-Idris-pterm arg-0 arg-2 e-3 eta-0))) (let ((sc13 act-29)) (case (vector-ref sc13 0) ((0) (let ((e-21 (vector-ref sc13 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc13 1))) (let ((act-30 (let ((act-30 (unbox arg-4))) (vector 1 act-30)))) (let ((sc14 act-30)) (case (vector-ref sc14 0) ((0) (let ((e-22 (vector-ref sc14 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc14 1))) (let ((pappstr (Syntax-Idris-show_Show__PTerm (let ((sc15 brack)) (cond ((equal? sc15 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-21)) (else e-21)))))) (let ((act-31 (REPLOpts-Idris-getSourceLine arg-4 e-19 eta-0))) (let ((sc15 act-31)) (case (vector-ref sc15 0) ((0) (let ((e-23 (vector-ref sc15 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc15 1))) (let ((_-0 (vector 0 e-4 e-3))) (let ((sc16 e-23)) (case (vector-ref sc16 0) ((1) (let ((e-24 (vector-ref sc16 1))) (let ((_-1 (vector 1 e-24))) ((REPL-Idris-case--24487-6024 e-20 e-19 e-18 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-16 e-9 e-11 e-15 e-14 bind-0 e-4 e-3 _-0 e-17 e-21 e-22 pappstr e-24 _-1 (Unlit-Parser-isLitLine e-24)) eta-0)))) (else (vector 1 (vector 1 "Source line not found")))))))))))))))))))))))))))))))))))))(else (vector 1 (vector 1 "Can't make lifted definition"))))))))(else (vector 1 (vector 1 "Can't make lifted definition"))))))))(else (vector 1 (vector 1 "Can't make lifted definition"))))))))(else (vector 1 (vector 1 "Can't make lifted definition"))))))))(else (vector 1 (vector 1 "Can't make lifted definition"))))))))(else (vector 1 (vector 1 "Can't make lifted definition")))))))))))))))))))))))))) ((6) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-getLitStyle arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((brack (List-Data-elemBy 'erased (lambda (x) (lambda (y) (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS x) (Name-Core-dropNS y)))) e-23 (let ((sc3 e-6)) (let ((e-4 (vector-ref sc3 5))) e-4))))) (let ((act-26 (REPLOpts-Idris-getSourceLine arg-4 e-22 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((REPL-Idris-case--24920-6357 e-23 e-22 e-21 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-1 _-0 (Unlit-Parser-unlit e-5 e-1)) eta-0)))) (else (vector 1 (vector 1 "Source line not available")))))))))))))))))))))))))) (else (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-getLitStyle arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (REPLOpts-Idris-getSourceLine arg-4 e-25 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((REPL-Idris-case--25231-6611 e-26 e-25 e-24 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (Unlit-Parser-unlit e-5 e-1)) eta-0)))) (else (vector 1 (vector 1 "Source line not available")))))))))))))))))))))))) (define REPL-Idris-processCatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-branch arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-2))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 (unbox arg-4))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-28 (let ((act-28 (unbox arg-1))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 ((REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Context-Core-commit arg-0 eta-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (vector 1 e-10))))))))))))))) (lambda (err) (lambda (eta-0) (let ((act-28 (let ((act-28 (set-box! arg-0 e-5))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 (set-box! arg-1 e-6))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 (set-box! arg-2 e-7))) (vector 1 act-30)))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-31 (let ((act-31 (set-box! arg-4 e-8))) (vector 1 act-31)))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-32 (Error-Idris-display arg-0 arg-2 arg-4 err eta-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc8 1))) (vector 1 (vector 1 e-13))))))))))))))))))))))))) ext-0))))))))))))))))))))))) -(define REPL-Idris-process (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (REPL-Idris-execDecls arg-0 arg-1 arg-2 arg-3 e-0 eta-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-case--25292-6721 e-1 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 2))) e-10))) eta-0))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-18 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-17 e-18) eta-0))(else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-0 arg-2 e-5 eta-1)) e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (vector 5 e-7))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Desugar-Idris-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) (vector 0 ) e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-3 arg-1 e-5 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-6 (vector 0 )) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-4 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-4 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-9 eta-0)))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 (let ((act-30 ((Normalise-Core-normaliseScope (vector 0 ) e-8 (vector 0 ) e-10) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-11 eta-0)))))))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 6 e-9 e-11)))))))))))))))))))))))))))))))))))))))))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-3 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-3) eta-0))(else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayPats arg-0 arg-2 e-5 eta-1)) e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 5 e-7))))))))))))))))))))))) ((4) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-case--25292-7276 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) eta-0)))))))) ((5) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-4 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 4))) (let ((e-10 (vector-ref sc2 5))) (let ((e-9 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (vector 0 e-0 e-1 (vector 1 e-4) e-3 e-10 e-9 e-6 e-7 e-8))))))))))))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (REPL-Idris-loadMainFile arg-0 arg-1 arg-2 arg-3 arg-4 e-4 eta-0))))))))))))) ((6) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (ProcessIdr-Idris-addImport arg-0 arg-1 arg-2 (vector 0 (FC-Core-emptyFC) 1 e-5 e-5) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 8 (Name-Core-showSep "." (List-Data-reverse 'erased e-5))))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 9 (Name-Core-showSep "." (List-Data-reverse 'erased e-5)) err)))) eta-0)))) ((15) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setWorkingDir arg-0 e-6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Context-Core-getWorkingDir eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 13 e-7)))))))))))))) ((16) (lambda (eta-0) (let ((act-24 (Context-Core-getWorkingDir eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 13 e-5))))))))) ((7) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-case--25292-7423 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) eta-0)))))))) ((8) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (REPL-Idris-compileExp arg-0 arg-1 arg-2 arg-3 arg-4 e-7 e-8 eta-0))))) ((9) (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (REPL-Idris-execExp arg-0 arg-1 arg-2 arg-3 arg-4 e-9 eta-0)))) ((10) (lambda (eta-0) (vector 1 (vector 3 )))) ((11) (let ((e-10 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyName e-10 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-26 (Unify-Core-search (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-8 e-11 (vector 0 ) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 (let ((act-27 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-9 eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc8 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-13 eta-0)))))))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc8 1))) (vector 1 (vector 16 e-13)))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-10) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((17) (let ((e-11 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-11 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-11) eta-0))(else (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc3 eta-1)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 17 e-7))))))) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-26 (Context-Core-getTotality arg-0 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((bind-0 e-6)) ((REPL-Idris-case--26334-7703 e-11 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 bind-0 fn e-7 (let ((sc4 e-7)) (let ((e-1 (vector-ref sc4 2))) e-1))) eta-1))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((18) (let ((e-12 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-12 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-12) eta-0))(else (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc3 eta-1)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 18 e-7))))))) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-26 (Termination-Core-checkTotal arg-0 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (Context-Core-getTotality arg-0 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Totality arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Totality arg-5888 arg-5889)))) e-8 eta-1)))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 fn e-8))))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((12) (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Context-Core-lookupCtxtName e-13 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (REPL-Idris-showInfo arg-0 eta-1)) e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))))) ((13) (let ((e-14 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((REPL-Idris-setOpt arg-0 arg-4 e-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) ((14) (lambda (eta-0) (let ((act-24 (REPL-Idris-getOptions arg-0 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 20 e-5))))))))) ((19) (let ((e-15 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setLogLevel arg-0 e-15 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 21 e-15))))))))) ((20) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((ctxt (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((act-25 (Context-Core-getUserHoles arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (n) (Context-Core-lookupCtxtName n ctxt)) e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((globs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-7))) (let ((holesWithArgs (List-Data-mapMaybe 'erased 'erased (lambda (lamc-0) (let ((sc4 lamc-0)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (let ((e-8 (vector-ref sc5 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Holes-IDEMode-Idris-isHole e-8) (lambda (args) (Prelude-pure_Applicative__Maybe 'erased (vector 0 e-2 (vector 0 e-8 args))))))))))) globs))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (n_gdef_args) (REPL-Idris-case--25292-8004 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 ctxt e-6 e-7 globs holesWithArgs n_gdef_args n_gdef_args)) holesWithArgs) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 19 e-8))))))))))))))))))))))))))) ((21) (let ((e-16 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-setPPrint arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 3))) (vector 0 e-0 1 e-2)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((REPL-Idris-processEdit arg-0 arg-1 arg-2 arg-3 arg-4 e-16) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-setPPrint arg-0 e-5 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 25 e-7))))))))))))))))))))))) ((23) (lambda (eta-0) (vector 1 (vector 24 )))) ((24) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 22 (Version-Idris-version))))))))) +(define REPL-Idris-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--25954-7264 e-1 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-11 (vector-ref sc2 2))) e-11))) eta-0))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-18 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-17 e-18) eta-0))(else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-0 arg-2 e-5 eta-1)) e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (vector 5 e-7))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Desugar-Idris-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) (vector 0 ) e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-3 arg-1 e-5 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-6 (vector 0 )) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-4 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-4 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-9 eta-0)))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 (let ((act-30 ((Normalise-Core-normaliseScope (vector 0 ) e-8 (vector 0 ) e-10) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-11 eta-0)))))))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 6 e-9 e-11)))))))))))))))))))))))))))))))))))))))))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-3 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-3) eta-0))(else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayPats arg-0 arg-2 e-5 eta-1)) e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 5 e-7))))))))))))))))))))))) ((4) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-case--25954-7819 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) eta-0)))))))) ((5) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-4 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 4))) (let ((e-11 (vector-ref sc2 5))) (let ((e-10 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-0 e-1 (vector 1 e-4) e-3 e-11 e-10 e-6 e-7 e-8 e-9)))))))))))))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (REPL-Idris-loadMainFile arg-0 arg-1 arg-2 arg-3 arg-4 e-4 eta-0))))))))))))) ((6) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (ProcessIdr-Idris-addImport arg-0 arg-1 arg-2 (vector 0 (FC-Core-emptyFC) 1 e-5 e-5) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 8 (Name-Core-showSep "." (List-Data-reverse 'erased e-5))))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 9 (Name-Core-showSep "." (List-Data-reverse 'erased e-5)) err)))) eta-0)))) ((15) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setWorkingDir arg-0 e-6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Context-Core-getWorkingDir eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 13 e-7)))))))))))))) ((16) (lambda (eta-0) (let ((act-24 (Context-Core-getWorkingDir eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 13 e-5))))))))) ((7) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-case--25954-7967 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) eta-0)))))))) ((8) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (REPL-Idris-compileExp arg-0 arg-1 arg-2 arg-3 arg-4 e-7 e-8 eta-0))))) ((9) (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (REPL-Idris-execExp arg-0 arg-1 arg-2 arg-3 arg-4 e-9 eta-0)))) ((10) (lambda (eta-0) (vector 1 (vector 3 )))) ((11) (let ((e-10 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyName e-10 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-26 (Unify-Core-search (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-8 e-11 (vector 0 ) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 (let ((act-27 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-9 eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc8 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-13 eta-0)))))))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc8 1))) (vector 1 (vector 16 e-13)))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-10) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((17) (let ((e-11 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-11 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-11) eta-0))(else (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc3 eta-1)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 17 e-7))))))) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-26 (Context-Core-getTotality arg-0 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((bind-0 e-6)) ((REPL-Idris-case--26997-8247 e-11 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 bind-0 fn e-7 (let ((sc4 e-7)) (let ((e-1 (vector-ref sc4 2))) e-1))) eta-1))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((18) (let ((e-12 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-12 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-12) eta-0))(else (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc3 eta-1)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 18 e-7))))))) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-26 (Termination-Core-checkTotal arg-0 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (Context-Core-getTotality arg-0 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Totality arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Totality arg-6292 arg-6293)))) e-8 eta-1)))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 fn e-8))))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((12) (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Context-Core-lookupCtxtName e-13 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (REPL-Idris-showInfo arg-0 eta-1)) e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))))) ((13) (let ((e-14 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((REPL-Idris-setOpt arg-0 arg-4 e-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) ((14) (lambda (eta-0) (let ((act-24 (REPL-Idris-getOptions arg-0 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 20 e-5))))))))) ((19) (let ((e-15 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setLogLevel arg-0 e-15 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 21 e-15))))))))) ((20) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((ctxt (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((act-25 (Context-Core-getUserHoles arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (n) (Context-Core-lookupCtxtName n ctxt)) e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((globs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-7))) (let ((holesWithArgs (List-Data-mapMaybe 'erased 'erased (lambda (lamc-0) (let ((sc4 lamc-0)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (let ((e-8 (vector-ref sc5 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Holes-IDEMode-Idris-isHole e-8) (lambda (args) (Prelude-pure_Applicative__Maybe 'erased (vector 0 e-2 (vector 0 e-8 args))))))))))) globs))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (n_gdef_args) (REPL-Idris-case--25954-8548 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 ctxt e-6 e-7 globs holesWithArgs n_gdef_args n_gdef_args)) holesWithArgs) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 19 e-8))))))))))))))))))))))))))) ((21) (let ((e-16 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-setPPrint arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 3))) (vector 0 e-0 1 e-2)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((REPL-Idris-processEdit arg-0 arg-1 arg-2 arg-3 arg-4 e-16) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-setPPrint arg-0 e-5 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 25 e-7))))))))))))))))))))))) ((23) (lambda (eta-0) (vector 1 (vector 24 )))) ((24) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 22 (Version-Idris-version))))))))) (define REPL-Idris-printClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-pterm arg-0 arg-1 e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Resugar-Idris-pterm arg-0 arg-1 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Unlit-Parser-relit arg-2 (Strings-Prelude-C-43C-43 (Prelude-pack (List-Data-replicate 'erased arg-3 #\ )) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-5) (Strings-Prelude-C-43C-43 " = " (Syntax-Idris-show_Show__PTerm e-6)))))))))))))))))))) ((1) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-7 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-pterm arg-0 arg-1 e-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 (Resugar-Idris-pterm arg-0 arg-1 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-printClause arg-0 arg-1 arg-2 (Prelude-C-43_Num__Nat arg-3 (+ 1 (+ 1 0))) eta-1)) e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 (Unlit-Parser-relit arg-2 (Strings-Prelude-C-43C-43 (Prelude-pack (List-Data-replicate 'erased arg-3 #\ )) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-8) (Strings-Prelude-C-43C-43 " with (" (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-9) ")\u000a"))))) (Name-Core-showSep "\u000a" e-10))))))))))))))))))))))) (else (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-pterm arg-0 arg-1 e-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Unlit-Parser-relit arg-2 (Strings-Prelude-C-43C-43 (Prelude-pack (List-Data-replicate 'erased arg-3 #\ )) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-5) " impossible")))))))))))))))) -(define REPL-Idris-parseRepl (lambda (arg-0) (REPL-Idris-case--27042-8396 arg-0 (REPL-Idris-n--27042-8315-fnameCmd arg-0 (vector 1 (vector 0 ":load " (lambda (eta-0) (vector 5 eta-0))) (vector 1 (vector 0 ":l " (lambda (eta-0) (vector 5 eta-0))) (vector 1 (vector 0 ":cd " (lambda (eta-0) (vector 15 eta-0))) (vector 0 )))) arg-0)))) +(define REPL-Idris-parseRepl (lambda (arg-0) (REPL-Idris-case--27705-8940 arg-0 (REPL-Idris-n--27705-8859-fnameCmd arg-0 (vector 1 (vector 0 ":load " (lambda (eta-0) (vector 5 eta-0))) (vector 1 (vector 0 ":l " (lambda (eta-0) (vector 5 eta-0))) (vector 1 (vector 0 ":cd " (lambda (eta-0) (vector 15 eta-0))) (vector 0 )))) arg-0)))) (define REPL-Idris-parseEmptyCmd (lambda () (vector 8 1 1 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 1 (lambda (eta-0) (lambda (eta-1) eta-1)) (Source-Rule-Parser-eoi)) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 1 f (vector 0 (vector 0 ))))))) -(define REPL-Idris-parseCmd (lambda () (vector 8 1 1 (Parser-Idris-command) (lambda (c) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-8304) (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 (_-8848) (vector 0 (vector 1 c)))))))) (define REPL-Idris-lookupDefTyName (lambda (ext-2 ext-1 ext-0) (Context-Core-lookupNameBy 'erased (lambda (g) (vector 0 (let ((sc0 g)) (let ((e-17 (vector-ref sc0 18))) e-17)) (let ((sc0 g)) (let ((e-2 (vector-ref sc0 3))) e-2)))) ext-2 ext-1 ext-0))) -(define REPL-Idris-loadMainFile (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (REPLCommon-Idris-resetContext arg-0 arg-1 arg-2 arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-5) ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-26 (Context-Core-logTime 'erased arg-0 (lambda () "Build deps") (lambda (eta-0) (ModTree-Idris-buildDeps arg-0 arg-2 arg-3 arg-1 arg-4 arg-5 eta-0)) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((REPLCommon-Idris-updateErrorLine arg-4 e-7) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-28 (REPLOpts-Idris-setSource arg-4 e-2 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 7 arg-5)))(else (vector 1 (vector 11 arg-5 e-7)))))))))))))))))))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 (REPLOpts-Idris-setSource arg-4 "" ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 10 arg-5 e-7))))))))))))))))))))) -(define REPL-Idris-interpret (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (REPL-Idris-case--27146-8429 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 (REPL-Idris-parseRepl arg-5)))) +(define REPL-Idris-loadMainFile (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (REPLCommon-Idris-resetContext arg-0 arg-1 arg-2 arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-5) ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-26 (Context-Core-logTime 'erased arg-0 (lambda () "Build deps") (lambda (eta-0) (ModTree-Idris-buildDeps arg-0 arg-2 arg-3 arg-1 arg-4 arg-5 eta-0)) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((REPLCommon-Idris-updateErrorLine arg-4 e-7) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-28 (REPLOpts-Idris-setSource arg-4 e-2 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 7 arg-5)))(else (vector 1 (vector 11 arg-5 e-7)))))))))))))))))))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 (REPLOpts-Idris-setSource arg-4 "" ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 10 arg-5 e-7))))))))))))))))))))) +(define REPL-Idris-interpret (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (REPL-Idris-case--27809-8973 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 (REPL-Idris-parseRepl arg-5)))) (define REPL-Idris-handleResult (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((24) (lambda (eta-0) (REPLCommon-Idris-iputStrLn arg-4 "Bye for now!" eta-0)))(else (lambda (eta-0) (let ((act-24 ((REPL-Idris-displayResult arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (REPL-Idris-repl arg-0 arg-1 arg-2 arg-3 arg-4 eta-0))))))))))) (define REPL-Idris-handleMissing (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-0) (Strings-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" e-1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 ": Calls non covering function" (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-3)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-3))))))))))) (else (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-4) ": All cases covered"))))))) -(define REPL-Idris-getOptions (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-getPPrint arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) (vector 1 (vector 1 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) (vector 1 (vector 2 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) (vector 1 (vector 3 (let ((sc2 e-6)) (let ((e-1 (vector-ref sc2 2))) e-1))) (vector 1 (vector 4 (let ((sc2 e-6)) (let ((e-4 (vector-ref sc2 5))) e-4))) (vector 0 ))))))))))))))))))) -(define REPL-Idris-findCG (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((REPL-Idris-case--20694-2711 arg-1 arg-0 e-5 (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-2 (vector-ref sc2 3))) e-2)))) (let ((e-3 (vector-ref sc1 4))) e-3))) ext-0)))))))) -(define REPL-Idris-execExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Desugar-Idris-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) (vector 0 ) (vector 7 (REPLOpts-Idris-replFC) (vector 0 (REPLOpts-Idris-replFC) (vector 1 "unsafePerformIO")) arg-5) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-3 arg-1 e-6 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-5 (vector 0 )) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-2 (vector-ref sc3 1))) (let ((act-27 (LinearCheck-Core-linearCheck (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (REPL-Idris-findCG arg-4 arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (Common-Compiler-execute arg-0 e-9 e-8 ext-0)))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (vector 2 arg-5)))))))))))))))))))))))))))))) -(define REPL-Idris-execDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (REPL-Idris-n--24963-6380-execDecl arg-4 arg-3 arg-2 arg-1 arg-0 eta-0 eta-1))) arg-4) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 (vector 23 )))))))) -(define REPL-Idris-displayType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-2 (vector 0 ) (let ((sc2 e-7)) (let ((e-24 (vector-ref sc2 3))) e-24)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-1 (vector 0 ) e-5 eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1))) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-5))))))))))) (lambda () (lambda (num) (lambda (eta-0) (Holes-IDEMode-Idris-showHole (vector 0 ) arg-0 arg-1 arg-2 (vector 0 ) e-2 num (let ((sc2 e-7)) (let ((e-24 (vector-ref sc2 3))) e-24)) eta-0)))) (Holes-IDEMode-Idris-isHole e-7))))))))) +(define REPL-Idris-getOptions (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-getPPrint arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) (vector 1 (vector 1 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) (vector 1 (vector 2 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) (vector 1 (vector 3 (let ((sc2 e-6)) (let ((e-1 (vector-ref sc2 2))) e-1))) (vector 1 (vector 4 (let ((sc2 e-6)) (let ((e-11 (vector-ref sc2 6))) e-11))) (vector 0 ))))))))))))))))))) +(define REPL-Idris-findCG (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((REPL-Idris-case--20739-2727 arg-1 arg-0 e-5 (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-2 (vector-ref sc2 3))) e-2)))) (let ((e-3 (vector-ref sc1 4))) e-3))) ext-0)))))))) +(define REPL-Idris-execExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Desugar-Idris-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) (vector 0 ) (vector 7 (REPLOpts-Idris-replFC) (vector 0 (REPLOpts-Idris-replFC) (vector 1 "unsafePerformIO")) arg-5) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-3 arg-1 e-6 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-5 (vector 0 )) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-2 (vector-ref sc3 1))) (let ((act-27 (LinearCheck-Core-linearCheck (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (REPL-Idris-findCG arg-4 arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (Common-Compiler-execute arg-0 e-9 e-8 ext-0)))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (vector 2 arg-5)))))))))))))))))))))))))))))) +(define REPL-Idris-execDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (REPL-Idris-n--25625-6923-execDecl arg-4 arg-3 arg-2 arg-1 arg-0 eta-0 eta-1))) arg-4) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 (vector 23 )))))))) +(define REPL-Idris-displayType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-2 (vector 0 ) (let ((sc2 e-7)) (let ((e-24 (vector-ref sc2 3))) e-24)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-1 (vector 0 ) e-5 eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-aliasName arg-0 (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-5)))))))))))))))) (lambda () (lambda (num) (lambda (eta-0) (Holes-IDEMode-Idris-showHole (vector 0 ) arg-0 arg-1 arg-2 (vector 0 ) e-2 num (let ((sc2 e-7)) (let ((e-24 (vector-ref sc2 3))) e-24)) eta-0)))) (Holes-IDEMode-Idris-isHole e-7))))))))) (define REPL-Idris-displayTerm (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-2 (vector 0 ) arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-1 (vector 0 ) e-5 ext-0)))))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Syntax-Idris-show_Show__PTerm e-5))))))))) -(define REPL-Idris-displayResult (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 e-0 eta-0)))) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Syntax-Idris-show_Show__PTerm e-1) eta-0))) ((1) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-1) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-26))) eta-0))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))) ((5) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\u000a" e-3) eta-0)))) ((6) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-4) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-5))) eta-0))))) ((7) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Loaded file " e-6) eta-0)))) ((8) (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Imported module " e-7) eta-0)))) ((9) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-perror arg-0 arg-2 arg-4 e-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (REPLCommon-Idris-printError arg-4 (Strings-Prelude-C-43C-43 "Error loading module " (Strings-Prelude-C-43C-43 e-8 (Strings-Prelude-C-43C-43 ": " e-5))) eta-0)))))))))) ((10) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Strings-Prelude-C-43C-43 "Error loading file " (Strings-Prelude-C-43C-43 e-10 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-11)))) eta-0))))) ((11) (let ((e-12 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Strings-Prelude-C-43C-43 "Error(s) building file " e-12) eta-0)))) ((12) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 "No file can be reloaded" eta-0))) ((13) (let ((e-14 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Current working directory is '" (Strings-Prelude-C-43C-43 e-14 "'")) eta-0)))) ((14) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 "Compilation failed" eta-0))) ((15) (let ((e-15 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "File " (Strings-Prelude-C-43C-43 e-15 " written")) eta-0)))) ((16) (let ((e-16 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Syntax-Idris-show_Show__PTerm e-16) eta-0)))) ((17) (let ((e-17 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (REPL-Idris-handleMissing eta-1)) e-17)) eta-0)))) ((18) (let ((e-18 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3))))))) e-18)) eta-0)))) ((19) (let ((e-19 (vector-ref sc0 1))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 "No holes" eta-0))) ((1) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (let ((sc2 e-30)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "1 hole: " (Name-Core-show_Show__Name (let ((sc3 e-29)) (let ((e-0 (vector-ref sc3 1))) e-0)))) eta-0)))(else (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-19)) (Strings-Prelude-C-43C-43 " holes: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name (let ((sc2 eta-1)) (let ((e-0 (vector-ref sc2 1))) e-0)))) e-19)))) eta-0))))))))(else (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-19)) (Strings-Prelude-C-43C-43 " holes: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name (let ((sc1 eta-1)) (let ((e-0 (vector-ref sc1 1))) e-0)))) e-19)))) eta-0))))))) ((21) (let ((e-20 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Set loglevel to " (Prelude-show_Show__Nat e-20)) eta-0)))) ((22) (let ((e-21 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Version-Idris-showVersion 0 e-21) eta-0)))) ((3) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (REPL-Idris-displayHelp) eta-0))) ((25) (let ((e-22 (vector-ref sc0 1))) (let ((sc1 e-22)) (case (vector-ref sc1 0) ((0) (let ((e-32 (vector-ref sc1 1))) (let ((sc2 e-32)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\u000a" e-32) eta-0))))))) ((1) (let ((e-33 (vector-ref sc1 1))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 e-33 eta-0)))) ((2) (let ((e-34 (vector-ref sc1 1))) (let ((e-35 (vector-ref sc1 2))) (let ((e-36 (vector-ref sc1 3))) (let ((e-37 (vector-ref sc1 4))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Unlit-Parser-relit e-34 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-35) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-36) "\u000a")))) e-37) eta-0)))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) ((20) (let ((e-23 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Syntax-Idris-show_Show__REPLOpt eta-1)) e-23)) eta-0))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define REPL-Idris-displayPats (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (REPL-Idris-case--20360-2410 e-2 e-6 e-7 arg-2 arg-1 arg-0 (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17))))))))))) +(define REPL-Idris-displayResult (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 e-0 eta-0)))) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Syntax-Idris-show_Show__PTerm e-1) eta-0))) ((1) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-1) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-26))) eta-0))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))) ((5) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\u000a" e-3) eta-0)))) ((6) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-4) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-5))) eta-0))))) ((7) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Loaded file " e-6) eta-0)))) ((8) (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Imported module " e-7) eta-0)))) ((9) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-perror arg-0 arg-2 arg-4 e-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (REPLCommon-Idris-printError arg-4 (Strings-Prelude-C-43C-43 "Error loading module " (Strings-Prelude-C-43C-43 e-8 (Strings-Prelude-C-43C-43 ": " e-5))) eta-0)))))))))) ((10) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Strings-Prelude-C-43C-43 "Error loading file " (Strings-Prelude-C-43C-43 e-10 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-11)))) eta-0))))) ((11) (let ((e-12 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Strings-Prelude-C-43C-43 "Error(s) building file " e-12) eta-0)))) ((12) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 "No file can be reloaded" eta-0))) ((13) (let ((e-14 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Current working directory is '" (Strings-Prelude-C-43C-43 e-14 "'")) eta-0)))) ((14) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 "Compilation failed" eta-0))) ((15) (let ((e-15 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "File " (Strings-Prelude-C-43C-43 e-15 " written")) eta-0)))) ((16) (let ((e-16 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Syntax-Idris-show_Show__PTerm e-16) eta-0)))) ((17) (let ((e-17 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (REPL-Idris-handleMissing eta-1)) e-17)) eta-0)))) ((18) (let ((e-18 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3))))))) e-18)) eta-0)))) ((19) (let ((e-19 (vector-ref sc0 1))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 "No holes" eta-0))) ((1) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (let ((sc2 e-30)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "1 hole: " (Name-Core-show_Show__Name (let ((sc3 e-29)) (let ((e-0 (vector-ref sc3 1))) e-0)))) eta-0)))(else (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-19)) (Strings-Prelude-C-43C-43 " holes: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name (let ((sc2 eta-1)) (let ((e-0 (vector-ref sc2 1))) e-0)))) e-19)))) eta-0))))))))(else (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-19)) (Strings-Prelude-C-43C-43 " holes: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name (let ((sc1 eta-1)) (let ((e-0 (vector-ref sc1 1))) e-0)))) e-19)))) eta-0))))))) ((21) (let ((e-20 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Set loglevel to " (Prelude-show_Show__Nat e-20)) eta-0)))) ((22) (let ((e-21 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Version-Idris-showVersion 0 e-21) eta-0)))) ((3) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (REPL-Idris-displayHelp) eta-0))) ((25) (let ((e-22 (vector-ref sc0 1))) (let ((sc1 e-22)) (case (vector-ref sc1 0) ((0) (let ((e-32 (vector-ref sc1 1))) (let ((sc2 e-32)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\u000a" e-32) eta-0))))))) ((1) (let ((e-33 (vector-ref sc1 1))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 e-33 eta-0)))) ((2) (let ((e-34 (vector-ref sc1 1))) (let ((e-35 (vector-ref sc1 2))) (let ((e-36 (vector-ref sc1 3))) (let ((e-37 (vector-ref sc1 4))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Unlit-Parser-relit e-34 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-35) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-36) "\u000a")))) e-37) eta-0))))))) ((3) (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Unlit-Parser-relit e-38 eta-1)) e-39)) eta-0))))) ((4) (let ((e-40 (vector-ref sc1 1))) (let ((e-41 (vector-ref sc1 2))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Unlit-Parser-relit e-40 eta-1)) e-41)) eta-0)))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) ((20) (let ((e-23 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Syntax-Idris-show_Show__REPLOpt eta-1)) e-23)) eta-0))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define REPL-Idris-displayPats (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (REPL-Idris-case--20402-2423 e-2 e-6 e-7 arg-2 arg-1 arg-0 (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17))))))))))) (define REPL-Idris-displayPatTerm (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-2 (vector 0 ) arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Resugar-Idris-resugarNoPatvars (vector 0 ) arg-0 arg-1 (vector 0 ) e-5 ext-0)))))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Syntax-Idris-show_Show__PTerm e-5))))))))) -(define REPL-Idris-displayHelp (lambda () (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-Idris-n--27265-8927-cmdInfo eta-0)) (Parser-Idris-help))))) +(define REPL-Idris-displayHelp (lambda () (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-Idris-n--27928-9489-cmdInfo eta-0)) (Parser-Idris-help))))) (define REPL-Idris-displayErrors (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Strings-Prelude-C-43C-43 "File error in " (Strings-Prelude-C-43C-43 e-0 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-1)))) eta-0)))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define REPL-Idris-displayClause (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-normaliseHoles e-2 arg-2 e-6 e-10 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (Resugar-Idris-resugar e-2 arg-0 arg-1 e-6 e-5 eta-0)))))))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normaliseHoles e-2 arg-2 e-6 e-11 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (Resugar-Idris-resugar e-2 arg-0 arg-1 e-6 e-8 eta-0)))))))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-5) (Strings-Prelude-C-43C-43 " = " (Syntax-Idris-show_Show__PTerm e-8)))))))))))))))))))))))))) -(define REPL-Idris-compileExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Desugar-Idris-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) (vector 0 ) (vector 7 (REPLOpts-Idris-replFC) (vector 0 (REPLOpts-Idris-replFC) (vector 1 "unsafePerformIO")) arg-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-3 arg-1 e-5 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-6 (vector 0 )) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-2 (vector-ref sc3 1))) (let ((act-27 (LinearCheck-Core-linearCheck (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (REPL-Idris-findCG arg-4 arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (Common-Compiler-compile arg-0 e-9 e-8 arg-6 ext-0)))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 14 )))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 15 eta-0))))) e-9) ext-0)))))))))))))))))))))))))))))) +(define REPL-Idris-compileExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Desugar-Idris-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) (vector 0 ) (vector 7 (REPLOpts-Idris-replFC) (vector 0 (REPLOpts-Idris-replFC) (vector 1 "unsafePerformIO")) arg-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-3 arg-1 e-5 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-6 (vector 0 )) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-2 (vector-ref sc3 1))) (let ((act-27 (LinearCheck-Core-linearCheck (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (REPL-Idris-findCG arg-4 arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (Common-Compiler-compile arg-0 e-9 e-8 arg-6 ext-0)))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 14 )))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 15 eta-0))))) e-9) ext-0)))))))))))))))))))))))))))))) (define REPL-Idris-caseSplit (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 2))) (vector 1 (REPL-Idris-rtrim arg-0) e-4)))(else (let ((sc1 arg-2)) (vector 1 arg-0 (vector 0 )))))))(else (let ((e-1 (- arg-1 1))) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-6 (REPL-Idris-caseSplit arg-0 e-1 e-7)))))(else (let ((sc0 arg-2)) (vector 1 arg-0 (vector 0 )))))))))))) (define REPL-Idris-anyAt (lambda (arg-0 arg-1 arg-2 arg-3) (arg-1 arg-2))) -(define REPL-Idris-addMadeLemma (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (REPL-Idris-n--21150-3140-addApp arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-0 arg-4 (vector 0 ) (REPL-Idris-proofSearch arg-1 arg-3 arg-4 arg-5)))) -(define REPL-Idris-addClause (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 1 (REPL-Idris-rtrim arg-0) arg-2))(else (let ((e-0 (- arg-1 1))) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (REPL-Idris-addClause arg-0 e-0 e-3))))) (else (vector 1 arg-0 (vector 0 ))))))))))) +(define REPL-Idris-addMadeLemma (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (REPL-Idris-n--21236-3198-addApp arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-0 arg-4 (vector 0 ) (REPL-Idris-proofSearch arg-1 arg-3 arg-4 arg-5)))) +(define REPL-Idris-addMadeCase (lambda (arg-0 arg-1 arg-2 arg-3) (REPL-Idris-n--21355-3302-addW arg-3 arg-2 arg-1 arg-0 arg-2 (vector 0 ) arg-3))) +(define REPL-Idris-addClause (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (vector 1 (REPL-Idris-rtrim arg-0) (vector 0 ))) (else (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (REPL-Idris-case--21076-3066 e-3 e-4 arg-0 ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Prelude-isSpace eta-0))) (Prelude-unpack e-3)))))))))(else (let ((e-0 (- arg-1 1))) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-6 (REPL-Idris-addClause arg-0 e-0 e-7))))) (else (vector 1 arg-0 (vector 0 ))))))))))) (define Stream-Data-repeat (lambda (arg-0 arg-1) (vector 0 arg-1 (lambda () (Stream-Data-repeat 'erased arg-1))))) -(define MakeLemma-Interactive-TTImp-case--7783-6830 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (MakeLemma-Interactive-TTImp-mkType arg-3 e-2 e-3) (MakeLemma-Interactive-TTImp-mkApp arg-3 arg-2 e-2))))))))) -(define MakeLemma-Interactive-TTImp-case--7495-6604 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (vector 1 arg-13))(else (vector 0 )))))) -(define MakeLemma-Interactive-TTImp-case--7310-6559 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (MakeLemma-Interactive-TTImp-case--7495-6604 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 (TT-Core-shrinkTerm 'erased 'erased arg-8 (vector 1 (vector 0 ))))) (else (vector 1 arg-13)))))) -(define MakeLemma-Interactive-TTImp-case--7310-6449 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (vector 1 )) (else (vector 0 )))))) -(define MakeLemma-Interactive-TTImp-case--7240-6407 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((mn (let ((_-0 (vector 0 e-2 e-3))) (MakeLemma-Interactive-TTImp-case--7310-6559 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-2 e-3 _-0 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-6 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) (let ((pC-39 (let ((_-0 (vector 0 e-2 e-3))) (MakeLemma-Interactive-TTImp-case--7310-6449 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-2 e-3 _-0 mn (Prelude-C-38C-38 (MakeLemma-Interactive-TTImp-used arg-6) (lambda () (Prelude-C-38C-38 (Prelude-not (MakeLemma-Interactive-TTImp-bindableArg 'erased 0 arg-8)) (lambda () (Prelude-not (MakeLemma-Interactive-TTImp-hiddenName arg-7)))))))))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 (vector 0 arg-7 (vector 0 mn (vector 0 pC-39 (vector 0 arg-6 arg-11)))) e-2) e-3)))))))))) -(define MakeLemma-Interactive-TTImp-case--7037-6147 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((3) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (MakeLemma-Interactive-TTImp-bindable 'erased arg-2 eta-0))) e-3)) ((2) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (MakeLemma-Interactive-TTImp-bindable 'erased arg-2 eta-0))) e-3))(else 1))))) ((6) (let ((e-11 (vector-ref sc1 3))) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (MakeLemma-Interactive-TTImp-bindable 'erased arg-2 eta-0))) (vector 1 e-11 e-3)))) ((7) (let ((e-16 (vector-ref sc1 4))) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (MakeLemma-Interactive-TTImp-bindable 'erased arg-2 eta-0))) (vector 1 e-16 e-3)))) ((8) (let ((e-20 (vector-ref sc1 3))) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (MakeLemma-Interactive-TTImp-bindable 'erased arg-2 eta-0))) (vector 1 e-20 e-3)))) ((0) (let ((e-25 (vector-ref sc1 3))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (Prelude-C-61C-61_Eq__Nat arg-2 e-25))(else 1)))))(else 1))))))(else 1))))) -(define MakeLemma-Interactive-TTImp-n--7746-6778-getArg (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((1) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 0 arg-2 e-2)))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))) -(define MakeLemma-Interactive-TTImp-used (lambda (ext-0) (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) ext-0)))) +(define MakeLemma-Interactive-TTImp-case--7844-6838 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (MakeLemma-Interactive-TTImp-mkType arg-3 e-2 e-3) (MakeLemma-Interactive-TTImp-mkApp arg-3 arg-2 e-2))))))))) +(define MakeLemma-Interactive-TTImp-case--7556-6612 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (vector 1 arg-13))(else (vector 0 )))))) +(define MakeLemma-Interactive-TTImp-case--7371-6567 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (MakeLemma-Interactive-TTImp-case--7556-6612 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 (TT-Core-shrinkTerm 'erased 'erased arg-8 (vector 1 (vector 0 ))))) (else (vector 1 arg-13)))))) +(define MakeLemma-Interactive-TTImp-case--7371-6457 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (vector 1 )) (else (vector 0 )))))) +(define MakeLemma-Interactive-TTImp-case--7301-6415 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((mn (let ((_-0 (vector 0 e-2 e-3))) (MakeLemma-Interactive-TTImp-case--7371-6567 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-2 e-3 _-0 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-6 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) (let ((pC-39 (let ((_-0 (vector 0 e-2 e-3))) (MakeLemma-Interactive-TTImp-case--7371-6457 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-2 e-3 _-0 mn (Prelude-C-38C-38 (MakeLemma-Interactive-TTImp-used arg-6) (lambda () (Prelude-C-38C-38 (Prelude-not (MakeLemma-Interactive-TTImp-bindableArg 'erased 0 arg-8)) (lambda () (Prelude-not (MakeLemma-Interactive-TTImp-hiddenName arg-7)))))))))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 (vector 0 arg-7 (vector 0 mn (vector 0 pC-39 (vector 0 arg-6 arg-11)))) e-2) e-3)))))))))) +(define MakeLemma-Interactive-TTImp-case--7098-6155 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((3) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (MakeLemma-Interactive-TTImp-bindable 'erased arg-2 eta-0))) e-3)) ((2) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (MakeLemma-Interactive-TTImp-bindable 'erased arg-2 eta-0))) e-3))(else 1))))) ((6) (let ((e-11 (vector-ref sc1 3))) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (MakeLemma-Interactive-TTImp-bindable 'erased arg-2 eta-0))) (vector 1 e-11 e-3)))) ((7) (let ((e-16 (vector-ref sc1 4))) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (MakeLemma-Interactive-TTImp-bindable 'erased arg-2 eta-0))) (vector 1 e-16 e-3)))) ((8) (let ((e-20 (vector-ref sc1 3))) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (MakeLemma-Interactive-TTImp-bindable 'erased arg-2 eta-0))) (vector 1 e-20 e-3)))) ((0) (let ((e-25 (vector-ref sc1 3))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (Prelude-C-61C-61_Eq__Nat arg-2 e-25))(else 1)))))(else 1))))))(else 1))))) +(define MakeLemma-Interactive-TTImp-n--7807-6786-getArg (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((1) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 0 arg-2 e-2)))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))) +(define MakeLemma-Interactive-TTImp-used (lambda (ext-0) (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) ext-0)))) (define MakeLemma-Interactive-TTImp-mkType (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (vector 1 arg-0 e-18 e-14 e-10 e-19 (MakeLemma-Interactive-TTImp-mkType arg-0 e-3 arg-2)))))))))))))))))))) -(define MakeLemma-Interactive-TTImp-mkApp (lambda (arg-0 arg-1 arg-2) (TTImp-TTImp-apply (vector 0 arg-0 arg-1) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (MakeLemma-Interactive-TTImp-n--7746-6778-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--7807-6786-getArg arg-2 arg-1 arg-0 eta-0)) arg-2)))) (define MakeLemma-Interactive-TTImp-makeLemma (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((MakeLemma-Interactive-TTImp-getArgs (vector 0 ) arg-1 (vector 0 ) arg-4 arg-5) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 1 (vector 0 (MakeLemma-Interactive-TTImp-mkType arg-2 e-2 e-3) (MakeLemma-Interactive-TTImp-mkApp arg-2 arg-3 e-2))))))))))))) (define MakeLemma-Interactive-TTImp-hiddenName (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 "_") 0)(else 1)))))(else 1))))) -(define MakeLemma-Interactive-TTImp-getArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normalise arg-0 e-5 arg-2 arg-4 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Unelab-TTImp-unelab arg-0 arg-1 arg-2 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 0 ) e-6))))))))))))))(else (let ((e-0 (- arg-3 1))) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normalise arg-0 e-6 arg-2 e-9 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) ((Unelab-TTImp-unelab arg-0 arg-1 arg-2 e-10) eta-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-26 (Utils-TTImp-uniqueName e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-nameRoot eta-1)) arg-0) (Name-Core-nameRoot e-3) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) (let ((xC-39 (vector 1 e-11))) (let ((act-27 ((MakeLemma-Interactive-TTImp-getArgs (vector 1 xC-39 arg-0) arg-1 (vector 1 (vector 2 e-7 e-8 e-9) arg-2) e-0 (TT-Core-renameTop 'erased 'erased xC-39 e-5)) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc5 1))) (let ((sc6 e-12)) (let ((e-14 (vector-ref sc6 1))) (let ((e-13 (vector-ref sc6 2))) (let ((mn (let ((_-0 (vector 0 e-14 e-13))) (MakeLemma-Interactive-TTImp-case--7310-6559 arg-1 e-2 e-0 arg-0 e-9 e-8 e-7 e-3 e-5 arg-2 e-6 e-10 e-11 xC-39 e-14 e-13 _-0 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-7 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) (let ((pC-39 (let ((_-0 (vector 0 e-14 e-13))) (MakeLemma-Interactive-TTImp-case--7310-6449 arg-1 e-2 e-0 arg-0 e-9 e-8 e-7 e-3 e-5 arg-2 e-6 e-10 e-11 xC-39 e-14 e-13 _-0 mn (Prelude-C-38C-38 (MakeLemma-Interactive-TTImp-used e-7) (lambda () (Prelude-C-38C-38 (Prelude-not (MakeLemma-Interactive-TTImp-bindableArg 'erased 0 e-5)) (lambda () (Prelude-not (MakeLemma-Interactive-TTImp-hiddenName e-3)))))))))) (vector 1 (vector 0 (vector 1 (vector 0 e-3 (vector 0 mn (vector 0 pC-39 (vector 0 e-7 e-10)))) e-14) e-13)))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normalise arg-0 e-6 arg-2 arg-4 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) ((Unelab-TTImp-unelab arg-0 arg-1 arg-2 e-7) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 0 ) e-7)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normalise arg-0 e-5 arg-2 arg-4 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Unelab-TTImp-unelab arg-0 arg-1 arg-2 e-6) eta-0)))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 0 ) e-6)))))))))))))))))))))) +(define MakeLemma-Interactive-TTImp-getArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normalise arg-0 e-5 arg-2 arg-4 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Unelab-TTImp-unelab arg-0 arg-1 arg-2 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 0 ) e-6))))))))))))))(else (let ((e-0 (- arg-3 1))) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normalise arg-0 e-6 arg-2 e-9 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) ((Unelab-TTImp-unelab arg-0 arg-1 arg-2 e-10) eta-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-26 (Utils-TTImp-uniqueName e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-nameRoot eta-1)) arg-0) (Name-Core-nameRoot e-3) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) (let ((xC-39 (vector 1 e-11))) (let ((act-27 ((MakeLemma-Interactive-TTImp-getArgs (vector 1 xC-39 arg-0) arg-1 (vector 1 (vector 2 e-7 e-8 e-9) arg-2) e-0 (TT-Core-renameTop 'erased 'erased xC-39 e-5)) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc5 1))) (let ((sc6 e-12)) (let ((e-14 (vector-ref sc6 1))) (let ((e-13 (vector-ref sc6 2))) (let ((mn (let ((_-0 (vector 0 e-14 e-13))) (MakeLemma-Interactive-TTImp-case--7371-6567 arg-1 e-2 e-0 arg-0 e-9 e-8 e-7 e-3 e-5 arg-2 e-6 e-10 e-11 xC-39 e-14 e-13 _-0 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-7 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) (let ((pC-39 (let ((_-0 (vector 0 e-14 e-13))) (MakeLemma-Interactive-TTImp-case--7371-6457 arg-1 e-2 e-0 arg-0 e-9 e-8 e-7 e-3 e-5 arg-2 e-6 e-10 e-11 xC-39 e-14 e-13 _-0 mn (Prelude-C-38C-38 (MakeLemma-Interactive-TTImp-used e-7) (lambda () (Prelude-C-38C-38 (Prelude-not (MakeLemma-Interactive-TTImp-bindableArg 'erased 0 e-5)) (lambda () (Prelude-not (MakeLemma-Interactive-TTImp-hiddenName e-3)))))))))) (vector 1 (vector 0 (vector 1 (vector 0 e-3 (vector 0 mn (vector 0 pC-39 (vector 0 e-7 e-10)))) e-14) e-13)))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normalise arg-0 e-6 arg-2 arg-4 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) ((Unelab-TTImp-unelab arg-0 arg-1 arg-2 e-7) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 0 ) e-7)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normalise arg-0 e-5 arg-2 arg-4 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Unelab-TTImp-unelab arg-0 arg-1 arg-2 e-6) eta-0)))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 0 ) e-6)))))))))))))))))))))) (define MakeLemma-Interactive-TTImp-bindableArg (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 3))) (Prelude-C-124C-124 (MakeLemma-Interactive-TTImp-bindable 'erased arg-1 e-8) (lambda () (MakeLemma-Interactive-TTImp-bindableArg 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) e-4)))))(else 1))))))(else 1))))) -(define MakeLemma-Interactive-TTImp-bindable (lambda (arg-0 arg-1 arg-2) (MakeLemma-Interactive-TTImp-case--7037-6147 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2)))) -(define REPLCommon-Idris-case--10881-6843 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-clearNames (let ((sc1 arg-4)) (let ((e-47 (vector-ref sc1 5))) e-47))) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) -(define REPLCommon-Idris-case--10800-6742 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 e-4 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (REPLCommon-Idris-getFCLine eta-0)) (Core-Core-getErrorLoc arg-1)) e-6 e-7 e-8)))))))))))) -(define REPLCommon-Idris-case--10800-6707 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8)))))))))))) -(define REPLCommon-Idris-case--10720-6663 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 (vector 0 )))))))))))))))))))))))))))))) -(define REPLCommon-Idris-case--10551-6498 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (REPLCommon-Idris-iputStrLn arg-2 arg-8 eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) arg-6 (vector 0 (vector 1 (vector 4 "warning") (vector 1 (vector 0 (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String (FC-Core-file e-2)) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0)) (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0))) (REPLCommon-Idris-n--10514-6421-addOne arg-0 arg-1 arg-2 arg-3 (FC-Core-startPos e-2))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0)) (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0))) (REPLCommon-Idris-n--10514-6421-addOne arg-0 arg-1 arg-2 arg-3 (FC-Core-endPos e-2))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String arg-8) (vector 1 (vector 0 (vector 0 )) (vector 0 ))))))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer arg-7) (vector 0 )))))))))))) -(define REPLCommon-Idris-case--10514-6450 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (Error-Idris-displayWarning arg-3 arg-1 arg-2 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-5) eta-0))) (vector 1 act-25))))))))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Error-Idris-pwarning arg-3 arg-1 arg-2 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((REPLCommon-Idris-case--10551-6498 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 e-1 e-5 (Core-Core-getWarningLoc arg-0)) eta-0))))))))))))))) -(define REPLCommon-Idris-case--10345-6312 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (REPLCommon-Idris-iputStrLn arg-2 arg-8 eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) arg-6 (vector 0 (vector 1 (vector 4 "warning") (vector 1 (vector 0 (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String (FC-Core-file e-2)) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0)) (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0))) (REPLCommon-Idris-n--10308-6235-addOne arg-0 arg-1 arg-2 arg-3 (FC-Core-startPos e-2))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0)) (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0))) (REPLCommon-Idris-n--10308-6235-addOne arg-0 arg-1 arg-2 arg-3 (FC-Core-endPos e-2))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String arg-8) (vector 1 (vector 0 (vector 0 )) (vector 0 ))))))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer arg-7) (vector 0 )))))))))))) -(define REPLCommon-Idris-case--10308-6264 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (Error-Idris-display arg-3 arg-1 arg-2 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-5) eta-0))) (vector 1 act-25))))))))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Error-Idris-perror arg-3 arg-1 arg-2 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((REPLCommon-Idris-case--10345-6312 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 e-1 e-5 (Core-Core-getErrorLoc arg-0)) eta-0))))))))))))))) -(define REPLCommon-Idris-case--10252-6197 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0) eta-0))) (vector 1 act-24))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define REPLCommon-Idris-case--10181-6131 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 1) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0) eta-0))) (vector 1 act-24))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) e-3 (vector 0 (vector 1 (vector 4 "write-string") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String arg-0) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer e-1) (vector 0 ))))))))))))) -(define REPLCommon-Idris-n--10514-6421-addOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (b+ e-2 1 63) (b+ e-3 1 63))))))) -(define REPLCommon-Idris-n--10308-6235-addOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (b+ e-2 1 63) (b+ e-3 1 63))))))) -(define REPLCommon-Idris-updateErrorLine (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (set-box! arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8))))))))))))) (vector 1 act-25))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (set-box! arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-11 (vector-ref sc2 3))) (let ((e-10 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (vector 0 e-0 e-1 e-11 e-10 e-4 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-1) (REPLCommon-Idris-getFCLine eta-1)) (Core-Core-getErrorLoc e-2)) e-6 e-7 e-8))))))))))))) (vector 1 act-25)))))))))))))) +(define MakeLemma-Interactive-TTImp-bindable (lambda (arg-0 arg-1 arg-2) (MakeLemma-Interactive-TTImp-case--7098-6155 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2)))) +(define REPLCommon-Idris-case--10929-6853 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-clearNames (let ((sc1 arg-4)) (let ((e-47 (vector-ref sc1 5))) e-47))) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) +(define REPLCommon-Idris-case--10846-6752 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (REPLCommon-Idris-getFCLine eta-0)) (Core-Core-getErrorLoc arg-1)) e-7 e-8 e-9))))))))))))) +(define REPLCommon-Idris-case--10846-6716 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 ) e-7 e-8 e-9))))))))))))) +(define REPLCommon-Idris-case--10766-6671 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 (vector 0 )))))))))))))))))))))))))))))) +(define REPLCommon-Idris-case--10597-6506 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (REPLCommon-Idris-iputStrLn arg-2 arg-8 eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) arg-6 (vector 0 (vector 1 (vector 4 "warning") (vector 1 (vector 0 (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String (FC-Core-file e-2)) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0)) (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0))) (REPLCommon-Idris-n--10560-6429-addOne arg-0 arg-1 arg-2 arg-3 (FC-Core-startPos e-2))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0)) (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0))) (REPLCommon-Idris-n--10560-6429-addOne arg-0 arg-1 arg-2 arg-3 (FC-Core-endPos e-2))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String arg-8) (vector 1 (vector 0 (vector 0 )) (vector 0 ))))))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer arg-7) (vector 0 )))))))))))) +(define REPLCommon-Idris-case--10560-6458 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (Error-Idris-displayWarning arg-3 arg-1 arg-2 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-5) eta-0))) (vector 1 act-25))))))))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Error-Idris-pwarning arg-3 arg-1 arg-2 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((REPLCommon-Idris-case--10597-6506 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 e-1 e-5 (Core-Core-getWarningLoc arg-0)) eta-0))))))))))))))) +(define REPLCommon-Idris-case--10391-6320 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (REPLCommon-Idris-iputStrLn arg-2 arg-8 eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) arg-6 (vector 0 (vector 1 (vector 4 "warning") (vector 1 (vector 0 (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String (FC-Core-file e-2)) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0)) (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0))) (REPLCommon-Idris-n--10354-6243-addOne arg-0 arg-1 arg-2 arg-3 (FC-Core-startPos e-2))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0)) (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0))) (REPLCommon-Idris-n--10354-6243-addOne arg-0 arg-1 arg-2 arg-3 (FC-Core-endPos e-2))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String arg-8) (vector 1 (vector 0 (vector 0 )) (vector 0 ))))))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer arg-7) (vector 0 )))))))))))) +(define REPLCommon-Idris-case--10354-6272 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (Error-Idris-display arg-3 arg-1 arg-2 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-5) eta-0))) (vector 1 act-25))))))))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Error-Idris-perror arg-3 arg-1 arg-2 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((REPLCommon-Idris-case--10391-6320 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 e-1 e-5 (Core-Core-getErrorLoc arg-0)) eta-0))))))))))))))) +(define REPLCommon-Idris-case--10298-6205 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-0) eta-0))) (vector 1 act-24))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define REPLCommon-Idris-case--10227-6139 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 1) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-0) eta-0))) (vector 1 act-24))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) e-3 (vector 0 (vector 1 (vector 4 "write-string") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String arg-0) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer e-1) (vector 0 ))))))))))))) +(define REPLCommon-Idris-n--10560-6429-addOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (b+ e-2 1 63) (b+ e-3 1 63))))))) +(define REPLCommon-Idris-n--10354-6243-addOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (b+ e-2 1 63) (b+ e-3 1 63))))))) +(define REPLCommon-Idris-updateErrorLine (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (set-box! arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-10 (vector-ref sc2 6))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-10 (vector 0 ) e-7 e-8 e-9)))))))))))))) (vector 1 act-25))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (set-box! arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (let ((e-11 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-10 (vector-ref sc2 6))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-0 e-1 e-12 e-11 e-4 e-10 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-1) (REPLCommon-Idris-getFCLine eta-1)) (Core-Core-getErrorLoc e-2)) e-7 e-8 e-9)))))))))))))) (vector 1 act-25)))))))))))))) (define REPLCommon-Idris-resetContext (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (Context-Core-initDefs ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-0 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-27 (vector-ref sc2 6))) (let ((e-26 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-clearNames (let ((sc3 e-5)) (let ((e-49 (vector-ref sc3 5))) e-49))) e-27 e-26 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-26))))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((InitPrimitives-Core-addPrimitives arg-0) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (set-box! arg-1 (UnifyState-Core-initUState)))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (set-box! arg-2 (Syntax-Idris-initSyntax)))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (set-box! arg-3 (Metadata-Core-initMetadata)))) (vector 1 act-29))))))))))))))))))))))))) -(define REPLCommon-Idris-printWithStatus (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((REPLCommon-Idris-case--10252-6197 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0)))))))) +(define REPLCommon-Idris-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--10298-6205 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 8))) e-7))) ext-0)))))))) (define REPLCommon-Idris-printResult (lambda (arg-0 arg-1 ext-0) (REPLCommon-Idris-printWithStatus arg-0 "ok" arg-1 ext-0))) (define REPLCommon-Idris-printError (lambda (arg-0 arg-1 ext-0) (REPLCommon-Idris-printWithStatus arg-0 "error" arg-1 ext-0))) -(define REPLCommon-Idris-iputStrLn (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((REPLCommon-Idris-case--10181-6131 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0)))))))) +(define REPLCommon-Idris-iputStrLn (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((REPLCommon-Idris-case--10227-6139 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 8))) e-7))) ext-0)))))))) (define REPLCommon-Idris-getFCLine (lambda (arg-0) (Builtin-fst 'erased 'erased (FC-Core-startPos arg-0)))) (define REPLCommon-Idris-emitWarnings (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (REPLCommon-Idris-emitWarning arg-0 arg-1 arg-2 eta-0 eta-1))) (List-Data-reverse 'erased (let ((sc1 e-5)) (let ((e-25 (vector-ref sc1 26))) e-25)))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (set-box! arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-27 (vector-ref sc2 6))) (let ((e-26 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-27 e-26 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 (vector 0 ))))))))))))))))))))))))))))))) (vector 1 act-26))))))))))))) -(define REPLCommon-Idris-emitWarning (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((REPLCommon-Idris-case--10514-6450 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0)))))))) -(define REPLCommon-Idris-emitError (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((REPLCommon-Idris-case--10308-6264 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0)))))))) -(define REPLOpts-Idris-case--9179-2401 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 arg-0 e-8)))))))))))) -(define REPLOpts-Idris-case--9093-2322 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 arg-0 e-4 e-5 e-6 e-7 e-8)))))))))))) -(define REPLOpts-Idris-case--9057-2289 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 arg-0 e-3 e-4 e-5 e-6 e-7 e-8)))))))))))) -(define REPLOpts-Idris-case--9008-2245 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 arg-0 e-7 e-8)))))))))))) -(define REPLOpts-Idris-n--9142-2340-findLine (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (vector 1 e-3)))(else (let ((sc1 arg-3)) (vector 0 ))))))(else (let ((e-1 (- arg-2 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-7 (vector-ref sc0 2))) (REPLOpts-Idris-n--9142-2340-findLine arg-0 arg-1 e-1 e-7)))(else (let ((sc0 arg-3)) (vector 0 ))))))))))) -(define REPLOpts-REPLOpts-Idris-source (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))) +(define REPLCommon-Idris-emitWarning (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((REPLCommon-Idris-case--10560-6458 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 8))) e-7))) ext-0)))))))) +(define REPLCommon-Idris-emitError (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((REPLCommon-Idris-case--10354-6272 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 8))) e-7))) ext-0)))))))) +(define REPLOpts-Idris-case--9411-2515 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-0 e-9))))))))))))) +(define REPLOpts-Idris-case--9311-2423 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 arg-0 e-5 e-6 e-7 e-8 e-9))))))))))))) +(define REPLOpts-Idris-case--9266-2389 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 arg-0 (REPLOpts-Idris-n--9266-2354-litStyle arg-0 arg-1 arg-0) e-4 e-5 e-6 e-7 e-8 e-9)))))))))))) +(define REPLOpts-Idris-case--9216-2336 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 arg-0 e-8 e-9))))))))))))) +(define REPLOpts-Idris-n--9266-2354-litStyle (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (Unlit-Parser-isLitFile e-2))))))) +(define REPLOpts-Idris-n--9183-2280-litStyle (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (Unlit-Parser-isLitFile e-2))))))) +(define REPLOpts-Idris-n--9361-2441-findLine (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (vector 1 e-3)))(else (let ((sc1 arg-3)) (vector 0 ))))))(else (let ((e-1 (- arg-2 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-7 (vector-ref sc0 2))) (REPLOpts-Idris-n--9361-2441-findLine arg-0 arg-1 e-1 e-7)))(else (let ((sc0 arg-3)) (vector 0 ))))))))))) +(define REPLOpts-REPLOpts-Idris-source (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4)))) (define REPLOpts-REPLOpts-Idris-showTypes (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) -(define REPLOpts-Idris-setSource (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 5))) (let ((e-9 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 arg-1 e-4 e-9 e-6 e-7 e-8))))))))))))) (vector 1 act-25))))))))) -(define REPLOpts-Idris-setOutput (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-9 (vector-ref sc1 6))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-9 arg-1 e-7 e-8))))))))))))) (vector 1 act-25))))))))) -(define REPLOpts-Idris-setMainFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-9 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (vector 0 e-0 e-1 arg-1 e-3 e-4 e-9 e-6 e-7 e-8))))))))))))) (vector 1 act-25))))))))) -(define REPLOpts-Idris-setCurrentElabSource (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-9 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-8 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-9 e-6 arg-1 e-8))))))))))))) (vector 1 act-25))))))))) +(define REPLOpts-Idris-setSource (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 arg-1 e-10 e-6 e-7 e-8 e-9)))))))))))))) (vector 1 act-25))))))))) +(define REPLOpts-Idris-setOutput (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-10 e-6 arg-1 e-8 e-9)))))))))))))) (vector 1 act-25))))))))) +(define REPLOpts-Idris-setMainFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 arg-1 (REPLOpts-Idris-n--9266-2354-litStyle arg-1 arg-0 arg-1) e-4 e-10 e-6 e-7 e-8 e-9))))))))))))) (vector 1 act-25))))))))) +(define REPLOpts-Idris-setCurrentElabSource (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-10 e-6 e-7 arg-1 e-9)))))))))))))) (vector 1 act-25))))))))) (define REPLOpts-Idris-replFC (lambda () (vector 0 "(interactive)" (vector 0 0 0) (vector 0 0 0)))) (define REPLOpts-REPLOpts-Idris-mainfile (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) -(define REPLOpts-REPLOpts-Idris-idemode (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-6 (vector-ref sc0 7))) e-6)))) -(define REPLOpts-Idris-getSourceLine (lambda (arg-0 arg-1 ext-0) (let ((act-24 (REPLOpts-Idris-getSource arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (REPLOpts-Idris-n--9142-2340-findLine arg-1 arg-0 (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-1 1)) (Strings-Data-lines e-5)))))))))) -(define REPLOpts-Idris-getSource (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 4))) e-3)))))))))) -(define REPLOpts-Idris-getOutput (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6)))))))))) -(define REPLOpts-Idris-getCurrentElabSource (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 8))) e-7)))))))))) -(define REPLOpts-Idris-getCodegen (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-1 (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 9))) e-8))))))))))) -(define REPLOpts-REPLOpts-Idris-extraCodegens (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-8 (vector-ref sc0 9))) e-8)))) +(define REPLOpts-REPLOpts-Idris-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--9361-2441-findLine arg-1 arg-0 (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-1 1)) (Strings-Data-lines e-5)))))))))) +(define REPLOpts-Idris-getSource (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)))))))))) +(define REPLOpts-Idris-getOutput (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 8))) e-7)))))))))) +(define REPLOpts-Idris-getLitStyle (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 4))) e-3)))))))))) +(define REPLOpts-Idris-getCurrentElabSource (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 9))) e-8)))))))))) +(define REPLOpts-Idris-getCodegen (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-1 (let ((sc1 e-5)) (let ((e-9 (vector-ref sc1 10))) e-9))))))))))) +(define REPLOpts-REPLOpts-Idris-extraCodegens (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-9 (vector-ref sc0 10))) e-9)))) (define REPLOpts-REPLOpts-Idris-evalMode (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) -(define REPLOpts-REPLOpts-Idris-errorLine (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5)))) -(define REPLOpts-REPLOpts-Idris-editor (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4)))) -(define REPLOpts-Idris-defaultOpts (lambda (arg-0 arg-1 arg-2) (vector 0 1 (vector 1 ) arg-0 "" "vim" (vector 0 ) arg-1 "" arg-2))) -(define REPLOpts-REPLOpts-Idris-currentElabSource (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-7 (vector-ref sc0 8))) e-7)))) -(define Common-Compiler-case--11207-2656 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0)))))))) -(define Common-Compiler-case--11184-2638 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Binary-Utils-writeToFile arg-0 e-2 eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (vector 1 (vector 0 ))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Common-Compiler-case--11171-2615 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (Binary-Utils-readFromFile arg-1 eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (Binary-Utils-writeToFile arg-0 e-2 eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (vector 1 (vector 0 ))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-7) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) -(define Common-Compiler-case--11065-2523 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) arg-2) (else (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 "." (Common-Compiler-dylib_suffix)))))))) -(define Common-Compiler-case--11058-2502 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Common-Compiler-case--11065-2523 arg-0 arg-1 e-2 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Char arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Char arg-430 arg-431)))) #\. (Prelude-unpack e-2)))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Prelude-C-61C-61_Eq__String (Common-Compiler-dylib_suffix) "dll")) (lambda () (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 "-" (Strings-Prelude-C-43C-43 e-6 ".dll"))))) (vector 1 (vector 0 (lambda () (Prelude-C-61C-61_Eq__String (Common-Compiler-dylib_suffix) "dylib")) (lambda () (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 e-6 ".dylib"))))) (vector 0 ))) (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 (Common-Compiler-dylib_suffix) (Strings-Prelude-C-43C-43 "." e-6)))))))))))))))) -(define Common-Compiler-case--10933-2428 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (cond ((equal? sc1 "") (vector 1 (vector 0 (Strings-Data-trim e-2) (vector 0 ))))(else (vector 1 (vector 0 (Strings-Data-trim e-2) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Common-Compiler-n--10933-2380-getOpts arg-0 (Strings-Data-strTail e-3))))))))))))) -(define Common-Compiler-case--10937-2393 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (cond ((equal? sc1 "") (vector 1 e-2 (vector 0 )))(else (vector 1 e-2 (Common-Compiler-n--10933-2380-getOpts arg-0 (Strings-Data-strTail e-3))))))))))) -(define Common-Compiler-case--10890-2350 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-0))) 0)))) (else (lambda (eta-0) 1)))))) -(define Common-Compiler-case--10112-2164 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (cond ((equal? sc0 0) (lambda (eta-0) (Context-Core-logTime 'erased arg-2 (lambda () "Get VM Code") (lambda (eta-1) (vector 1 (VMCode-Compiler-allDefs arg-27))) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Common-Compiler-case--10442-2031 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-toANF e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-2 e-5))))))))))))) -(define Common-Compiler-case--10112-1964 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (cond ((equal? sc0 0) (lambda (eta-0) (Context-Core-logTime 'erased arg-2 (lambda () "Get ANF") (Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-1) (let ((act-24 ((ANF-Compiler-toANF e-3) eta-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 e-2 e-5)))))))))))) arg-26) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Common-Compiler-case--10112-1840 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (cond ((equal? sc0 0) (lambda (eta-0) (Context-Core-logTime 'erased arg-2 (lambda () "Lambda lift") (Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (LambdaLift-Compiler-lambdaLift arg-2 eta-1 eta-2))) arg-15) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Common-Compiler-case--9896-1668 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Common-Compiler-getNamedDef arg-2 eta-1 eta-2))) arg-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--10112-1840 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 e-2 e-3 _-0 e-5 (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 1 ))) eta-0)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((lifted (vector 1 (vector 0 arg-20 (vector 0 (vector 0 ) (vector 0 ) e-2)) (List-Prelude-C-43C-43 'erased e-3 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-6))))) (let ((act-26 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--10112-1964 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 e-2 e-3 _-0 e-5 e-6 lifted (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 2 ))) eta-0)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--10112-2164 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 e-2 e-3 _-0 e-5 e-6 lifted e-7 (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 3 ))) eta-0)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (unbox arg-2))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-29 (let ((act-29 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-29 (arg-3664 eta-2))) ((arg-3665 act-29) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Dumping case trees to " f)) eta-1))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (Common-Compiler-dumpCases e-9 f arg-15 eta-1)))))))) (let ((sc6 arg-4)) (let ((e-13 (vector-ref sc6 8))) e-13))) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-30 (let ((act-30 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-30 (arg-3664 eta-2))) ((arg-3665 act-30) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Dumping lambda lifted defs to " f)) eta-1))) (vector 1 act-30)))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else ((Common-Compiler-dumpLifted f lifted) eta-1)))))))) (let ((sc7 arg-4)) (let ((e-13 (vector-ref sc7 9))) e-13))) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-31 (let ((act-31 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-31 (arg-3664 eta-2))) ((arg-3665 act-31) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Dumping ANF defs to " f)) eta-1))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else ((Common-Compiler-dumpANF f e-7) eta-1)))))))) (let ((sc8 arg-4)) (let ((e-13 (vector-ref sc8 10))) e-13))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-32 (let ((act-32 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-32 (arg-3664 eta-2))) ((arg-3665 act-32) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Dumping VM defs to " f)) eta-1))) (vector 1 act-32)))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else ((Common-Compiler-dumpVMCode f e-8) eta-1)))))))) (let ((sc9 arg-4)) (let ((e-13 (vector-ref sc9 11))) e-13))) eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-33 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Common-Compiler-replaceEntry arg-2 eta-1)) arg-12) eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (vector 1 (vector 0 arg-19 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-5) lifted e-7 e-8)))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Common-Compiler-case--9901-1460 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (else (lambda (eta-0) (vector 1 0))))))) -(define Common-Compiler-case--9823-1414 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-5) eta-0)))))))) -(define Common-Compiler-case--9750-1345 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-5) eta-0)))))))) -(define Common-Compiler-case--9677-1276 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-5) eta-0)))))))) -(define Common-Compiler-case--9526-1203 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-5) eta-0)))))))) -(define Common-Compiler-case--9549-1144 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 ""))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 (Common-Compiler-n--9526-1098-fullShow arg-0 arg-1 arg-2 arg-3) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedDef e-2) "\u000a"))))))))))) -(define Common-Compiler-case--9531-1119 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 ""))) (else (let ((e-2 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-2))) (Common-Compiler-case--9549-1144 arg-0 arg-1 arg-2 arg-3 e-2 bind-0 (let ((sc1 e-2)) (let ((e-19 (vector-ref sc1 20))) e-19)))))))))) -(define Common-Compiler-case--9395-997 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Common-Compiler-warnIfHole arg-0 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (vector 1 (vector 1 (vector 0 arg-0 (vector 0 (let ((sc2 arg-3)) (let ((e-0 (vector-ref sc2 1))) e-0)) e-2))))))))))))))) -(define Common-Compiler-case--9377-975 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-2))) (Common-Compiler-case--9395-997 arg-0 arg-1 arg-2 e-2 bind-0 (let ((sc1 e-2)) (let ((e-19 (vector-ref sc1 20))) e-19)))))))))) -(define Common-Compiler-case--9183-826 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-4 arg-0 (vector 0 arg-0 arg-11)) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((refs (Context-Core-refersToRuntime arg-10))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toResolvedNames 'erased arg-5 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) eta-1 eta-2))) (NameMap-Data-keys 'erased refs)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Common-Compiler-getAllDesc arg-5 (List-Prelude-C-43C-43 'erased e-6 arg-2) arg-4 arg-3) eta-0))))))))))))) (else (Common-Compiler-getAllDesc arg-5 arg-2 arg-4 arg-3)))))) -(define Common-Compiler-case--9129-786 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-5 arg-1 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((refs (Context-Core-refersToRuntime e-2))) (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--9183-826 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-3 _-0 e-5 refs (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc2 e-2)) (let ((e-7 (vector-ref sc2 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0)))))))))))))) -(define Common-Compiler-case--9102-739 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (Common-Compiler-getAllDesc arg-5 arg-2 arg-4 arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Common-Compiler-getMinimalDef e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (let ((bind-0 (vector 1 (vector 0 e-5 e-6)))) (let ((sc3 e-7)) (let ((e-4 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-25 (Context-Core-addDef arg-5 arg-1 e-4 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((refs (Context-Core-refersToRuntime e-4))) (let ((_-0 (vector 0 e-4 e-3))) ((Common-Compiler-case--9183-826 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-6 bind-0 e-4 e-3 _-0 e-8 refs (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc5 e-4)) (let ((e-22 (vector-ref sc5 8))) e-22)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0))))))))))))))))))))))))))) -(define Common-Compiler-case--9077-717 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupContextEntry arg-1 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 0 ))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) ((Common-Compiler-getAllDesc arg-5 arg-2 arg-4 arg-3) eta-0)) (else (let ((e-2 (vector-ref sc2 1))) (let ((sc3 e-2)) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((act-25 ((Common-Compiler-getMinimalDef e-6) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((bind-0 (vector 1 (vector 0 e-7 e-6)))) (let ((sc5 e-8)) (let ((e-4 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((act-26 (Context-Core-addDef arg-5 arg-1 e-4 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((refs (Context-Core-refersToRuntime e-4))) (let ((_-1 (vector 0 e-4 e-3))) ((Common-Compiler-case--9183-826 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 _-0 e-7 e-6 bind-0 e-4 e-3 _-1 e-9 refs (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc7 e-4)) (let ((e-23 (vector-ref sc7 8))) e-23)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0)))))))))))))))))))))))))))))))) (else (Common-Compiler-getAllDesc arg-5 arg-2 arg-4 arg-3)))))) -(define Common-Compiler-case--8695-385 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define Common-Compiler-case--8696-371 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define Common-Compiler-n--8690-420-tag (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) ((1) 0) ((2) 0) (else 0))))) -(define Common-Compiler-n--9896-1442-nonErased (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-3 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc3 e-1)) (let ((e-7 (vector-ref sc3 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))) (else (vector 1 0)))))))))))))))) -(define Common-Compiler-n--10933-2380-getOpts (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 "") (vector 0 ))(else (Common-Compiler-case--10937-2393 arg-0 arg-1 (Strings-Data-span (lambda (arg-2) (Prelude-C-47C-61_Eq__Char arg-2 #\,)) arg-1))))))) -(define Common-Compiler-n--9823-1372-fullShow (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 2))) (Name-Core-show_Show__Name e-1)))(else (Name-Core-show_Show__Name arg-2)))))) -(define Common-Compiler-n--9750-1303-fullShow (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 2))) (Name-Core-show_Show__Name e-1)))(else (Name-Core-show_Show__Name arg-2)))))) -(define Common-Compiler-n--9677-1234-fullShow (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 2))) (Name-Core-show_Show__Name e-1)))(else (Name-Core-show_Show__Name arg-2)))))) -(define Common-Compiler-n--9526-1098-fullShow (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 2))) (Name-Core-show_Show__Name e-1)))(else (Name-Core-show_Show__Name arg-3)))))) -(define Common-Compiler-n--9823-1373-dumpDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Common-Compiler-n--9823-1372-fullShow arg-0 arg-1 e-2) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__VMDef e-3) "\u000a")))))))) -(define Common-Compiler-n--9750-1304-dumpDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Common-Compiler-n--9750-1303-fullShow arg-0 arg-1 e-2) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (ANF-Compiler-show_Show__ANFDef e-3) "\u000a")))))))) -(define Common-Compiler-n--9677-1235-dumpDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Common-Compiler-n--9677-1234-fullShow arg-0 arg-1 e-2) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (LambdaLift-Compiler-show_Show__LiftedDef e-3) "\u000a")))))))) -(define Common-Compiler-n--9526-1099-dumpCase (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-3 (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (vector 1 "")) (else (let ((e-2 (vector-ref sc1 1))) (let ((bind-0 (vector 1 e-2))) ((Common-Compiler-case--9549-1144 arg-0 arg-1 arg-2 arg-3 e-2 bind-0 (let ((sc2 e-2)) (let ((e-19 (vector-ref sc2 20))) e-19))) ext-0))))))))))))) -(define Common-Compiler-min_Ord__UsePhase (lambda (arg-0 arg-1) (Common-Compiler-case--8696-371 arg-1 arg-0 (Common-Compiler-C-60_Ord__UsePhase arg-0 arg-1)))) -(define Common-Compiler-max_Ord__UsePhase (lambda (arg-0 arg-1) (Common-Compiler-case--8695-385 arg-1 arg-0 (Common-Compiler-C-62_Ord__UsePhase arg-0 arg-1)))) -(define Common-Compiler-compare_Ord__UsePhase (lambda (arg-0 arg-1) (Prelude-compare_Ord__Int (Common-Compiler-n--8690-420-tag arg-1 arg-0 arg-0) (Common-Compiler-n--8690-420-tag arg-1 arg-0 arg-1)))) -(define Common-Compiler-__Impl_Ord_UsePhase (lambda () (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Common-Compiler-C-61C-61_Eq__UsePhase arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Common-Compiler-C-47C-61_Eq__UsePhase arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Common-Compiler-compare_Ord__UsePhase arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Common-Compiler-C-60_Ord__UsePhase arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Common-Compiler-C-62_Ord__UsePhase arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Common-Compiler-C-60C-61_Ord__UsePhase arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Common-Compiler-C-62C-61_Ord__UsePhase arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Common-Compiler-max_Ord__UsePhase arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Common-Compiler-min_Ord__UsePhase arg-787 arg-788)))))) -(define Common-Compiler-__Impl_Eq_UsePhase (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Common-Compiler-C-61C-61_Eq__UsePhase arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Common-Compiler-C-47C-61_Eq__UsePhase arg-430 arg-431)))))) +(define 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--9183-2280-litStyle arg-2 arg-1 arg-0 arg-0) "" "vim" (vector 0 ) arg-1 "" arg-2))) +(define REPLOpts-REPLOpts-Idris-currentElabSource (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-8 (vector-ref sc0 9))) e-8)))) +(define Common-Compiler-case--11245-2664 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0)))))))) +(define Common-Compiler-case--11222-2646 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Binary-Utils-writeToFile arg-0 e-2) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (vector 1 (vector 0 ))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Common-Compiler-case--11209-2623 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (Binary-Utils-readFromFile arg-1 eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((Binary-Utils-writeToFile arg-0 e-2) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (vector 1 (vector 0 ))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-7) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) +(define Common-Compiler-case--11103-2531 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) arg-2) (else (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 "." (Common-Compiler-dylib_suffix)))))))) +(define Common-Compiler-case--11096-2510 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Common-Compiler-case--11103-2531 arg-0 arg-1 e-2 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Char arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Char arg-438 arg-439)))) #\. (Prelude-unpack e-2)))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Prelude-C-61C-61_Eq__String (Common-Compiler-dylib_suffix) "dll")) (lambda () (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 "-" (Strings-Prelude-C-43C-43 e-6 ".dll"))))) (vector 1 (vector 0 (lambda () (Prelude-C-61C-61_Eq__String (Common-Compiler-dylib_suffix) "dylib")) (lambda () (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 e-6 ".dylib"))))) (vector 0 ))) (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 (Common-Compiler-dylib_suffix) (Strings-Prelude-C-43C-43 "." e-6)))))))))))))))) +(define Common-Compiler-case--10971-2436 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (cond ((equal? sc1 "") (vector 1 (vector 0 (Strings-Data-trim e-2) (vector 0 ))))(else (vector 1 (vector 0 (Strings-Data-trim e-2) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Common-Compiler-n--10971-2388-getOpts arg-0 (Strings-Data-strTail e-3))))))))))))) +(define Common-Compiler-case--10975-2401 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (cond ((equal? sc1 "") (vector 1 e-2 (vector 0 )))(else (vector 1 e-2 (Common-Compiler-n--10971-2388-getOpts arg-0 (Strings-Data-strTail e-3))))))))))) +(define Common-Compiler-case--10928-2358 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-2) eta-0))) 0)))) (else (lambda (eta-0) 1)))))) +(define Common-Compiler-case--10150-2172 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (cond ((equal? sc0 0) (lambda (eta-0) (Context-Core-logTime 'erased arg-2 (lambda () "Get VM Code") (lambda (eta-1) (vector 1 (VMCode-Compiler-allDefs arg-27))) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Common-Compiler-case--10480-2039 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-toANF e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-2 e-5))))))))))))) +(define Common-Compiler-case--10150-1972 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (cond ((equal? sc0 0) (lambda (eta-0) (Context-Core-logTime 'erased arg-2 (lambda () "Get ANF") (Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-1) (let ((act-24 ((ANF-Compiler-toANF e-3) eta-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 e-2 e-5)))))))))))) arg-26) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Common-Compiler-case--10150-1848 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (cond ((equal? sc0 0) (lambda (eta-0) (Context-Core-logTime 'erased arg-2 (lambda () "Lambda lift") (Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (LambdaLift-Compiler-lambdaLift arg-2 eta-1 eta-2))) arg-15) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Common-Compiler-case--9934-1676 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Common-Compiler-getNamedDef arg-2 eta-1 eta-2))) arg-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--10150-1848 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 e-2 e-3 _-0 e-5 (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 1 ))) eta-0)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((lifted (vector 1 (vector 0 arg-20 (vector 0 (vector 0 ) (vector 0 ) e-2)) (List-Prelude-C-43C-43 'erased e-3 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-6))))) (let ((act-26 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--10150-1972 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 e-2 e-3 _-0 e-5 e-6 lifted (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 2 ))) eta-0)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--10150-2172 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 e-2 e-3 _-0 e-5 e-6 lifted e-7 (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 3 ))) eta-0)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (unbox arg-2))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-29 (let ((act-29 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-29 (arg-3672 eta-2))) ((arg-3673 act-29) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Dumping case trees to " f)) eta-1))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (Common-Compiler-dumpCases e-9 f arg-15 eta-1)))))))) (let ((sc6 arg-4)) (let ((e-13 (vector-ref sc6 8))) e-13))) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-30 (let ((act-30 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-30 (arg-3672 eta-2))) ((arg-3673 act-30) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Dumping lambda lifted defs to " f)) eta-1))) (vector 1 act-30)))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else ((Common-Compiler-dumpLifted f lifted) eta-1)))))))) (let ((sc7 arg-4)) (let ((e-13 (vector-ref sc7 9))) e-13))) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-31 (let ((act-31 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-31 (arg-3672 eta-2))) ((arg-3673 act-31) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Dumping ANF defs to " f)) eta-1))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else ((Common-Compiler-dumpANF f e-7) eta-1)))))))) (let ((sc8 arg-4)) (let ((e-13 (vector-ref sc8 10))) e-13))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-32 (let ((act-32 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-32 (arg-3672 eta-2))) ((arg-3673 act-32) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Dumping VM defs to " f)) eta-1))) (vector 1 act-32)))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else ((Common-Compiler-dumpVMCode f e-8) eta-1)))))))) (let ((sc9 arg-4)) (let ((e-13 (vector-ref sc9 11))) e-13))) eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-33 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Common-Compiler-replaceEntry arg-2 eta-1)) arg-12) eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (vector 1 (vector 0 arg-19 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-5) lifted e-7 e-8)))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Common-Compiler-case--9939-1468 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (else (lambda (eta-0) (vector 1 0))))))) +(define Common-Compiler-case--9861-1422 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-5) eta-0)))))))) +(define Common-Compiler-case--9788-1353 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-5) eta-0)))))))) +(define Common-Compiler-case--9715-1284 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-5) eta-0)))))))) +(define Common-Compiler-case--9564-1211 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-5) eta-0)))))))) +(define Common-Compiler-case--9587-1152 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 ""))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 (Common-Compiler-n--9564-1106-fullShow arg-0 arg-1 arg-2 arg-3) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedDef e-2) "\u000a"))))))))))) +(define Common-Compiler-case--9569-1127 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 ""))) (else (let ((e-2 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-2))) (Common-Compiler-case--9587-1152 arg-0 arg-1 arg-2 arg-3 e-2 bind-0 (let ((sc1 e-2)) (let ((e-19 (vector-ref sc1 20))) e-19)))))))))) +(define Common-Compiler-case--9433-1005 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Common-Compiler-warnIfHole arg-0 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (vector 1 (vector 1 (vector 0 arg-0 (vector 0 (let ((sc2 arg-3)) (let ((e-0 (vector-ref sc2 1))) e-0)) e-2))))))))))))))) +(define Common-Compiler-case--9415-983 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-2))) (Common-Compiler-case--9433-1005 arg-0 arg-1 arg-2 e-2 bind-0 (let ((sc1 e-2)) (let ((e-19 (vector-ref sc1 20))) e-19)))))))))) +(define Common-Compiler-case--9221-834 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-4 arg-0 (vector 0 arg-0 arg-11)) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((refs (Context-Core-refersToRuntime arg-10))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toResolvedNames 'erased arg-5 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) eta-1 eta-2))) ((NameMap-Data-keys 'erased) refs)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Common-Compiler-getAllDesc arg-5 (List-Prelude-C-43C-43 'erased e-6 arg-2) arg-4 arg-3) eta-0))))))))))))) (else (Common-Compiler-getAllDesc arg-5 arg-2 arg-4 arg-3)))))) +(define Common-Compiler-case--9167-794 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-5 arg-1 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((refs (Context-Core-refersToRuntime e-2))) (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--9221-834 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-3 _-0 e-5 refs (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc2 e-2)) (let ((e-7 (vector-ref sc2 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0)))))))))))))) +(define Common-Compiler-case--9140-747 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (Common-Compiler-getAllDesc arg-5 arg-2 arg-4 arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Common-Compiler-getMinimalDef e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (let ((bind-0 (vector 1 (vector 0 e-5 e-6)))) (let ((sc3 e-7)) (let ((e-4 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-25 (Context-Core-addDef arg-5 arg-1 e-4 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((refs (Context-Core-refersToRuntime e-4))) (let ((_-0 (vector 0 e-4 e-3))) ((Common-Compiler-case--9221-834 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-6 bind-0 e-4 e-3 _-0 e-8 refs (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc5 e-4)) (let ((e-22 (vector-ref sc5 8))) e-22)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0))))))))))))))))))))))))))) +(define Common-Compiler-case--9115-725 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupContextEntry arg-1 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 0 ))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) ((Common-Compiler-getAllDesc arg-5 arg-2 arg-4 arg-3) eta-0)) (else (let ((e-2 (vector-ref sc2 1))) (let ((sc3 e-2)) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((act-25 ((Common-Compiler-getMinimalDef e-6) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((bind-0 (vector 1 (vector 0 e-7 e-6)))) (let ((sc5 e-8)) (let ((e-4 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((act-26 (Context-Core-addDef arg-5 arg-1 e-4 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((refs (Context-Core-refersToRuntime e-4))) (let ((_-1 (vector 0 e-4 e-3))) ((Common-Compiler-case--9221-834 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 _-0 e-7 e-6 bind-0 e-4 e-3 _-1 e-9 refs (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc7 e-4)) (let ((e-23 (vector-ref sc7 8))) e-23)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0)))))))))))))))))))))))))))))))) (else (Common-Compiler-getAllDesc arg-5 arg-2 arg-4 arg-3)))))) +(define Common-Compiler-case--8733-393 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) +(define Common-Compiler-case--8734-379 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) +(define Common-Compiler-n--8728-428-tag (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) ((1) 0) ((2) 0) (else 0))))) +(define Common-Compiler-n--9934-1450-nonErased (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-3 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc3 e-1)) (let ((e-7 (vector-ref sc3 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))) (else (vector 1 0)))))))))))))))) +(define Common-Compiler-n--10971-2388-getOpts (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 "") (vector 0 ))(else (Common-Compiler-case--10975-2401 arg-0 arg-1 (Strings-Data-span (lambda (arg-2) (Prelude-C-47C-61_Eq__Char arg-2 #\,)) arg-1))))))) +(define Common-Compiler-n--9861-1380-fullShow (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 2))) (Name-Core-show_Show__Name e-1)))(else (Name-Core-show_Show__Name arg-2)))))) +(define Common-Compiler-n--9788-1311-fullShow (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 2))) (Name-Core-show_Show__Name e-1)))(else (Name-Core-show_Show__Name arg-2)))))) +(define Common-Compiler-n--9715-1242-fullShow (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 2))) (Name-Core-show_Show__Name e-1)))(else (Name-Core-show_Show__Name arg-2)))))) +(define Common-Compiler-n--9564-1106-fullShow (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 2))) (Name-Core-show_Show__Name e-1)))(else (Name-Core-show_Show__Name arg-3)))))) +(define Common-Compiler-n--9861-1381-dumpDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Common-Compiler-n--9861-1380-fullShow arg-0 arg-1 e-2) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__VMDef e-3) "\u000a")))))))) +(define Common-Compiler-n--9788-1312-dumpDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Common-Compiler-n--9788-1311-fullShow arg-0 arg-1 e-2) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (ANF-Compiler-show_Show__ANFDef e-3) "\u000a")))))))) +(define Common-Compiler-n--9715-1243-dumpDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Common-Compiler-n--9715-1242-fullShow arg-0 arg-1 e-2) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (LambdaLift-Compiler-show_Show__LiftedDef e-3) "\u000a")))))))) +(define Common-Compiler-n--9564-1107-dumpCase (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-3 (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (vector 1 "")) (else (let ((e-2 (vector-ref sc1 1))) (let ((bind-0 (vector 1 e-2))) ((Common-Compiler-case--9587-1152 arg-0 arg-1 arg-2 arg-3 e-2 bind-0 (let ((sc2 e-2)) (let ((e-19 (vector-ref sc2 20))) e-19))) ext-0))))))))))))) +(define Common-Compiler-min_Ord__UsePhase (lambda (arg-0 arg-1) (Common-Compiler-case--8734-379 arg-1 arg-0 (Common-Compiler-C-60_Ord__UsePhase arg-0 arg-1)))) +(define Common-Compiler-max_Ord__UsePhase (lambda (arg-0 arg-1) (Common-Compiler-case--8733-393 arg-1 arg-0 (Common-Compiler-C-62_Ord__UsePhase arg-0 arg-1)))) +(define Common-Compiler-compare_Ord__UsePhase (lambda (arg-0 arg-1) (Prelude-compare_Ord__Int (Common-Compiler-n--8728-428-tag arg-1 arg-0 arg-0) (Common-Compiler-n--8728-428-tag arg-1 arg-0 arg-1)))) +(define Common-Compiler-__Impl_Ord_UsePhase (lambda () (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Common-Compiler-C-61C-61_Eq__UsePhase arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Common-Compiler-C-47C-61_Eq__UsePhase arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Common-Compiler-compare_Ord__UsePhase arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Common-Compiler-C-60_Ord__UsePhase arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Common-Compiler-C-62_Ord__UsePhase arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Common-Compiler-C-60C-61_Ord__UsePhase arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Common-Compiler-C-62C-61_Ord__UsePhase arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Common-Compiler-max_Ord__UsePhase arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Common-Compiler-min_Ord__UsePhase arg-795 arg-796)))))) +(define Common-Compiler-__Impl_Eq_UsePhase (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Common-Compiler-C-61C-61_Eq__UsePhase arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Common-Compiler-C-47C-61_Eq__UsePhase arg-438 arg-439)))))) (define Common-Compiler-C-62_Ord__UsePhase (lambda (arg-0 arg-1) (Prelude-C-61C-61_Eq__Ordering (Common-Compiler-compare_Ord__UsePhase arg-0 arg-1) 2))) (define Common-Compiler-C-62C-61_Ord__UsePhase (lambda (arg-0 arg-1) (Prelude-C-47C-61_Eq__Ordering (Common-Compiler-compare_Ord__UsePhase arg-0 arg-1) 0))) (define Common-Compiler-C-61C-61_Eq__UsePhase (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0)(else 1)))) ((3) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) 0)(else 1))))(else 1))))) (define Common-Compiler-C-60_Ord__UsePhase (lambda (arg-0 arg-1) (Prelude-C-61C-61_Eq__Ordering (Common-Compiler-compare_Ord__UsePhase arg-0 arg-1) 0))) (define Common-Compiler-C-60C-61_Ord__UsePhase (lambda (arg-0 arg-1) (Prelude-C-47C-61_Eq__Ordering (Common-Compiler-compare_Ord__UsePhase arg-0 arg-1) 2))) (define Common-Compiler-C-47C-61_Eq__UsePhase (lambda (arg-0 arg-1) (Prelude-not (Common-Compiler-C-61C-61_Eq__UsePhase arg-0 arg-1)))) -(define Common-Compiler-warnIfHole (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Warning: compiling hole " (Name-Core-show_Show__Name arg-0))) eta-0))) (vector 1 act-24))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Common-Compiler-warnIfHole (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Warning: compiling hole " (Name-Core-show_Show__Name arg-0))) eta-0))) (vector 1 act-24))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define Common-Compiler-replaceEntry (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-addContextEntry arg-0 (vector 9 e-2) e-6 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))))))))))))) -(define Common-Compiler-parseCC (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "") (vector 0 ))(else (Common-Compiler-case--10933-2428 arg-0 (Strings-Data-span (lambda (arg-1) (Prelude-C-47C-61_Eq__Char arg-1 #\:)) arg-0))))))) +(define Common-Compiler-parseCC (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "") (vector 0 ))(else (Common-Compiler-case--10971-2436 arg-0 (Strings-Data-span (lambda (arg-1) (Prelude-C-47C-61_Eq__Char arg-1 #\:)) arg-0))))))) (define Common-Compiler-natHackNames (lambda () (vector 1 (vector 1 "prim__add_Integer") (vector 1 (vector 1 "prim__sub_Integer") (vector 1 (vector 1 "prim__mul_Integer") (vector 1 (vector 0 (vector 1 "Prelude" (vector 0 )) (vector 1 "natToInteger")) (vector 1 (vector 0 (vector 1 "Prelude" (vector 0 )) (vector 1 "integerToNat")) (vector 0 )))))))) (define CompileData-Common-Compiler-namedDefs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (define CompileData-Common-Compiler-mainExpr (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) -(define Common-Compiler-locate (lambda (arg-0 arg-1) (let ((fname (Common-Compiler-case--11058-2502 arg-1 arg-0 (Strings-Data-words arg-1)))) (lambda (eta-0) (let ((act-24 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (Directory-Core-findLibraryFile arg-0 fname eta-1)) (lambda (err) (lambda (eta-1) (vector 1 fname))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 0 fname e-5))))))))))) -(define Common-Compiler-getNamedDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc2 1))) (let ((bind-0 (vector 1 e-2))) ((Common-Compiler-case--9395-997 arg-1 arg-0 e-5 e-2 bind-0 (let ((sc3 e-2)) (let ((e-19 (vector-ref sc3 20))) e-19))) ext-0)))))))))))))))))) -(define Common-Compiler-getMinimalDef (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 e-0 (vector 0 )))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CDef arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CDef arg-2106 eta-1)))) e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Bool arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-2))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-3))))) arg-2106 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-3)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2108 eta-3))))) arg-2107 eta-2)))) arg-2106 eta-1)))) e-5 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((refsR (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-1) (NameMap-Data-fromList 'erased eta-1)) e-7))) (let ((act-27 (TTC-Core-fromBuf_TTC__FC e-5 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTC-Core-fromBuf_TTC__RigCount e-5 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTC-Core-fromBuf_TTC__Name e-5 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((def (vector 0 e-8 e-10 (vector 10 e-8 1) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) e-9 (vector 0 ) (vector 2 ) (vector 0 (vector 0 ) (vector 0 )) (vector 0 ) (vector 0 ) refsR 1 1 0 (vector 0 ) e-6 (vector 0 ) (vector 0 )))) (vector 1 (vector 0 def (vector 1 e-1)))))))))))))))))))))))))))))))))))))))))) -(define Common-Compiler-getCompileData (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-getSession arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((ns (TT-Core-getRefs 'erased (vector 9 (Prelude-negate_Neg__Int 1)) arg-2))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) arg-2 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) eta-0 eta-1))) (Common-Compiler-natHackNames)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Context-Core-getNextEntry arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (let ((act-29 ((IOArray-Data-newArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-29 (arg-3664 eta-0))) ((arg-3665 act-29) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-9) ext-0))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Context-Core-logTime 'erased arg-0 (lambda () "Get names") (Common-Compiler-getAllDesc arg-0 (List-Prelude-C-43C-43 'erased e-8 (NameMap-Data-keys 'erased ns)) e-10 e-5) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (let ((act-31 ((IOArray-Data-toList 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-31 (arg-3664 eta-0))) ((arg-3665 act-31) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-10) ext-0))) (vector 1 act-31)))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((entries (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-12))) (let ((allNs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 9 (Builtin-fst 'erased 'erased eta-0))) entries))) (let ((act-32 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) eta-0 eta-1))) allNs) ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-33 ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Common-Compiler-n--9896-1442-nonErased arg-2 arg-1 arg-0 eta-0 eta-1))) e-13) ext-0))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-34 (Context-Core-logTime 'erased arg-0 (lambda () "Merge lambda") (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-mergeLamDef arg-0 eta-0 eta-1))) e-14) ext-0))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-35 (Context-Core-logTime 'erased arg-0 (lambda () "Fix arity") (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-fixArityDef arg-0 eta-0 eta-1))) e-14) ext-0))) (let ((sc11 act-35)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-36 (Context-Core-logTime 'erased arg-0 (lambda () "Forget names") (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (CompileExpr-Compiler-mkForgetDef arg-0 eta-0 eta-1))) e-14) ext-0))) (let ((sc12 act-36)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-37 (let ((act-37 (CompileExpr-Compiler-compileExp arg-0 e-7 ext-0))) (let ((sc13 act-37)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc13 1))) ((Inline-Compiler-fixArityExp (vector 0 ) arg-0 e-18) ext-0)))))))) (let ((sc13 act-37)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc13 1))) (let ((mainname (vector 2 "__mainExpression" 0))) (let ((act-38 (LambdaLift-Compiler-liftBody (vector 0 ) mainname e-18 ext-0))) (let ((sc14 act-38)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc14 1))) (let ((sc15 e-19)) (let ((e-2 (vector-ref sc15 1))) (let ((e-3 (vector-ref sc15 2))) (let ((act-39 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Common-Compiler-getNamedDef arg-0 eta-0 eta-1))) e-14) ext-0))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-40 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--10112-1840 arg-2 arg-1 arg-0 e-5 e-6 ns e-7 e-8 e-9 e-10 e-11 e-12 entries allNs e-13 e-14 e-15 e-16 e-17 e-18 mainname e-2 e-3 _-0 e-20 (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 1 ))) ext-0)))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc17 1))) (let ((lifted (vector 1 (vector 0 mainname (vector 0 (vector 0 ) (vector 0 ) e-2)) (List-Prelude-C-43C-43 'erased e-3 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-21))))) (let ((act-41 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--10112-1964 arg-2 arg-1 arg-0 e-5 e-6 ns e-7 e-8 e-9 e-10 e-11 e-12 entries allNs e-13 e-14 e-15 e-16 e-17 e-18 mainname e-2 e-3 _-0 e-20 e-21 lifted (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 2 ))) ext-0)))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc18 1))) (let ((act-42 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--10112-2164 arg-2 arg-1 arg-0 e-5 e-6 ns e-7 e-8 e-9 e-10 e-11 e-12 entries allNs e-13 e-14 e-15 e-16 e-17 e-18 mainname e-2 e-3 _-0 e-20 e-21 lifted e-22 (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 3 ))) ext-0)))) (let ((sc19 act-42)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (vector 0 e-4))) (else (let ((e-23 (vector-ref sc19 1))) (let ((act-43 (let ((act-43 (unbox arg-0))) (vector 1 act-43)))) (let ((sc20 act-43)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (let ((e-24 (vector-ref sc20 1))) (let ((act-44 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-44 (let ((act-44 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-44 (arg-3664 eta-1))) ((arg-3665 act-44) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Dumping case trees to " f)) eta-0))) (vector 1 act-44)))) (let ((sc21 act-44)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (vector 0 e-4))) (else (Common-Compiler-dumpCases e-24 f e-14 eta-0)))))))) (let ((sc21 e-6)) (let ((e-28 (vector-ref sc21 8))) e-28))) ext-0))) (let ((sc21 act-44)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (vector 0 e-4))) (else (let ((act-45 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-45 (let ((act-45 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-45 (arg-3664 eta-1))) ((arg-3665 act-45) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Dumping lambda lifted defs to " f)) eta-0))) (vector 1 act-45)))) (let ((sc22 act-45)) (case (vector-ref sc22 0) ((0) (let ((e-4 (vector-ref sc22 1))) (vector 0 e-4))) (else ((Common-Compiler-dumpLifted f lifted) eta-0)))))))) (let ((sc22 e-6)) (let ((e-28 (vector-ref sc22 9))) e-28))) ext-0))) (let ((sc22 act-45)) (case (vector-ref sc22 0) ((0) (let ((e-4 (vector-ref sc22 1))) (vector 0 e-4))) (else (let ((act-46 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-46 (let ((act-46 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-46 (arg-3664 eta-1))) ((arg-3665 act-46) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Dumping ANF defs to " f)) eta-0))) (vector 1 act-46)))) (let ((sc23 act-46)) (case (vector-ref sc23 0) ((0) (let ((e-4 (vector-ref sc23 1))) (vector 0 e-4))) (else ((Common-Compiler-dumpANF f e-22) eta-0)))))))) (let ((sc23 e-6)) (let ((e-28 (vector-ref sc23 10))) e-28))) ext-0))) (let ((sc23 act-46)) (case (vector-ref sc23 0) ((0) (let ((e-4 (vector-ref sc23 1))) (vector 0 e-4))) (else (let ((act-47 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-47 (let ((act-47 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-47 (arg-3664 eta-1))) ((arg-3665 act-47) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Dumping VM defs to " f)) eta-0))) (vector 1 act-47)))) (let ((sc24 act-47)) (case (vector-ref sc24 0) ((0) (let ((e-4 (vector-ref sc24 1))) (vector 0 e-4))) (else ((Common-Compiler-dumpVMCode f e-23) eta-0)))))))) (let ((sc24 e-6)) (let ((e-28 (vector-ref sc24 11))) e-28))) ext-0))) (let ((sc24 act-47)) (case (vector-ref sc24 0) ((0) (let ((e-4 (vector-ref sc24 1))) (vector 0 e-4))) (else (let ((act-48 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Common-Compiler-replaceEntry arg-0 eta-0)) entries) ext-0))) (let ((sc25 act-48)) (case (vector-ref sc25 0) ((0) (let ((e-4 (vector-ref sc25 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-18 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-20) lifted e-22 e-23)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Common-Compiler-getAllDesc (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((IOArray-Data-readArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-2 e-4) eta-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((n (vector 9 e-4))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (let ((act-25 ((Context-Core-lookupContextEntry n (let ((sc4 arg-3)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((_-0 (vector 0 ))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) ((Common-Compiler-getAllDesc arg-0 e-3 arg-2 arg-3) eta-0)) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (let ((e-9 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((act-26 ((Common-Compiler-getMinimalDef e-8) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((bind-0 (vector 1 (vector 0 e-9 e-8)))) (let ((sc8 e-10)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (let ((act-27 (Context-Core-addDef arg-0 n e-12 eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((refs (Context-Core-refersToRuntime e-12))) (let ((_-1 (vector 0 e-12 e-11))) ((Common-Compiler-case--9183-826 e-4 n e-3 arg-3 arg-2 arg-0 _-0 e-9 e-8 bind-0 e-12 e-11 _-1 e-13 refs (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc10 e-12)) (let ((e-27 (vector-ref sc10 8))) e-27)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0))))))))))))))))))))))))))))))) (else ((Common-Compiler-getAllDesc arg-0 e-3 arg-2 arg-3) eta-0)))))))))))))(else (Common-Compiler-getAllDesc arg-0 e-3 arg-2 arg-3))))))))))) -(define Common-Compiler-exists (lambda (arg-0 ext-0) (let ((act-24 ((File-System-openFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0 (vector 0 )) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) ext-0))) 0))) (else 1)))))) +(define Common-Compiler-locate (lambda (arg-0 arg-1) (let ((fname (Common-Compiler-case--11096-2510 arg-1 arg-0 (Strings-Data-words arg-1)))) (lambda (eta-0) (let ((act-24 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (Directory-Core-findLibraryFile arg-0 fname eta-1)) (lambda (err) (lambda (eta-1) (vector 1 fname))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 0 fname e-5))))))))))) +(define Common-Compiler-getNamedDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc2 1))) (let ((bind-0 (vector 1 e-2))) ((Common-Compiler-case--9433-1005 arg-1 arg-0 e-5 e-2 bind-0 (let ((sc3 e-2)) (let ((e-19 (vector-ref sc3 20))) e-19))) ext-0)))))))))))))))))) +(define Common-Compiler-getMinimalDef (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 e-0 (vector 0 )))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CDef arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CDef arg-2124 eta-1)))) e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__Name arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-2)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Bool arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-2))))) arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-3))))) arg-2124 eta-2)))) arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-2))))) arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2126 eta-3)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2126 eta-3))))) arg-2125 eta-2)))) arg-2124 eta-1)))) e-5 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((refsR (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-1) (NameMap-Data-fromList 'erased eta-1)) e-7))) (let ((act-27 (TTC-Core-fromBuf_TTC__FC e-5 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTC-Core-fromBuf_TTC__RigCount e-5 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTC-Core-fromBuf_TTC__Name e-5 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((def (vector 0 e-8 e-10 (vector 10 e-8 1) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) e-9 (vector 0 ) (vector 2 ) (vector 0 (vector 0 ) (vector 0 )) (vector 0 ) (vector 0 ) refsR 1 1 0 (vector 0 ) e-6 (vector 0 ) (vector 0 )))) (vector 1 (vector 0 def (vector 1 e-1)))))))))))))))))))))))))))))))))))))))))) +(define Common-Compiler-getCompileData (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-getSession arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((ns (TT-Core-getRefs 'erased (vector 9 (Prelude-negate_Neg__Int 1)) arg-2))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) arg-2 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) eta-0 eta-1))) (Common-Compiler-natHackNames)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Context-Core-getNextEntry arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (let ((act-29 ((IOArray-Data-newArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-29 (arg-3672 eta-0))) ((arg-3673 act-29) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-9) ext-0))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Context-Core-logTime 'erased arg-0 (lambda () "Get names") (Common-Compiler-getAllDesc arg-0 (List-Prelude-C-43C-43 'erased e-8 ((NameMap-Data-keys 'erased) ns)) e-10 e-5) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (let ((act-31 ((IOArray-Data-toList 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-31 (arg-3672 eta-0))) ((arg-3673 act-31) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-10) ext-0))) (vector 1 act-31)))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((entries (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-12))) (let ((allNs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 9 (Builtin-fst 'erased 'erased eta-0))) entries))) (let ((act-32 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) eta-0 eta-1))) allNs) ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-33 ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Common-Compiler-n--9934-1450-nonErased arg-2 arg-1 arg-0 eta-0 eta-1))) e-13) ext-0))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-34 (Context-Core-logTime 'erased arg-0 (lambda () "Merge lambda") (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-mergeLamDef arg-0 eta-0 eta-1))) e-14) ext-0))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-35 (Context-Core-logTime 'erased arg-0 (lambda () "Fix arity") (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-fixArityDef arg-0 eta-0 eta-1))) e-14) ext-0))) (let ((sc11 act-35)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-36 (Context-Core-logTime 'erased arg-0 (lambda () "Forget names") (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (CompileExpr-Compiler-mkForgetDef arg-0 eta-0 eta-1))) e-14) ext-0))) (let ((sc12 act-36)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-37 (let ((act-37 (CompileExpr-Compiler-compileExp arg-0 e-7 ext-0))) (let ((sc13 act-37)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc13 1))) ((Inline-Compiler-fixArityExp (vector 0 ) arg-0 e-18) ext-0)))))))) (let ((sc13 act-37)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc13 1))) (let ((mainname (vector 2 "__mainExpression" 0))) (let ((act-38 (LambdaLift-Compiler-liftBody (vector 0 ) mainname e-18 ext-0))) (let ((sc14 act-38)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc14 1))) (let ((sc15 e-19)) (let ((e-2 (vector-ref sc15 1))) (let ((e-3 (vector-ref sc15 2))) (let ((act-39 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Common-Compiler-getNamedDef arg-0 eta-0 eta-1))) e-14) ext-0))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-40 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--10150-1848 arg-2 arg-1 arg-0 e-5 e-6 ns e-7 e-8 e-9 e-10 e-11 e-12 entries allNs e-13 e-14 e-15 e-16 e-17 e-18 mainname e-2 e-3 _-0 e-20 (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 1 ))) ext-0)))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc17 1))) (let ((lifted (vector 1 (vector 0 mainname (vector 0 (vector 0 ) (vector 0 ) e-2)) (List-Prelude-C-43C-43 'erased e-3 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-21))))) (let ((act-41 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--10150-1972 arg-2 arg-1 arg-0 e-5 e-6 ns e-7 e-8 e-9 e-10 e-11 e-12 entries allNs e-13 e-14 e-15 e-16 e-17 e-18 mainname e-2 e-3 _-0 e-20 e-21 lifted (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 2 ))) ext-0)))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc18 1))) (let ((act-42 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--10150-2172 arg-2 arg-1 arg-0 e-5 e-6 ns e-7 e-8 e-9 e-10 e-11 e-12 entries allNs e-13 e-14 e-15 e-16 e-17 e-18 mainname e-2 e-3 _-0 e-20 e-21 lifted e-22 (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 3 ))) ext-0)))) (let ((sc19 act-42)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (vector 0 e-4))) (else (let ((e-23 (vector-ref sc19 1))) (let ((act-43 (let ((act-43 (unbox arg-0))) (vector 1 act-43)))) (let ((sc20 act-43)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (let ((e-24 (vector-ref sc20 1))) (let ((act-44 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-44 (let ((act-44 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-44 (arg-3672 eta-1))) ((arg-3673 act-44) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Dumping case trees to " f)) eta-0))) (vector 1 act-44)))) (let ((sc21 act-44)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (vector 0 e-4))) (else (Common-Compiler-dumpCases e-24 f e-14 eta-0)))))))) (let ((sc21 e-6)) (let ((e-28 (vector-ref sc21 8))) e-28))) ext-0))) (let ((sc21 act-44)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (vector 0 e-4))) (else (let ((act-45 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-45 (let ((act-45 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-45 (arg-3672 eta-1))) ((arg-3673 act-45) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Dumping lambda lifted defs to " f)) eta-0))) (vector 1 act-45)))) (let ((sc22 act-45)) (case (vector-ref sc22 0) ((0) (let ((e-4 (vector-ref sc22 1))) (vector 0 e-4))) (else ((Common-Compiler-dumpLifted f lifted) eta-0)))))))) (let ((sc22 e-6)) (let ((e-28 (vector-ref sc22 9))) e-28))) ext-0))) (let ((sc22 act-45)) (case (vector-ref sc22 0) ((0) (let ((e-4 (vector-ref sc22 1))) (vector 0 e-4))) (else (let ((act-46 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-46 (let ((act-46 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-46 (arg-3672 eta-1))) ((arg-3673 act-46) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Dumping ANF defs to " f)) eta-0))) (vector 1 act-46)))) (let ((sc23 act-46)) (case (vector-ref sc23 0) ((0) (let ((e-4 (vector-ref sc23 1))) (vector 0 e-4))) (else ((Common-Compiler-dumpANF f e-22) eta-0)))))))) (let ((sc23 e-6)) (let ((e-28 (vector-ref sc23 10))) e-28))) ext-0))) (let ((sc23 act-46)) (case (vector-ref sc23 0) ((0) (let ((e-4 (vector-ref sc23 1))) (vector 0 e-4))) (else (let ((act-47 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-47 (let ((act-47 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-47 (arg-3672 eta-1))) ((arg-3673 act-47) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Dumping VM defs to " f)) eta-0))) (vector 1 act-47)))) (let ((sc24 act-47)) (case (vector-ref sc24 0) ((0) (let ((e-4 (vector-ref sc24 1))) (vector 0 e-4))) (else ((Common-Compiler-dumpVMCode f e-23) eta-0)))))))) (let ((sc24 e-6)) (let ((e-28 (vector-ref sc24 11))) e-28))) ext-0))) (let ((sc24 act-47)) (case (vector-ref sc24 0) ((0) (let ((e-4 (vector-ref sc24 1))) (vector 0 e-4))) (else (let ((act-48 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Common-Compiler-replaceEntry arg-0 eta-0)) entries) ext-0))) (let ((sc25 act-48)) (case (vector-ref sc25 0) ((0) (let ((e-4 (vector-ref sc25 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-18 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-20) lifted e-22 e-23)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Common-Compiler-getAllDesc (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((IOArray-Data-readArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-2 e-4) eta-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((n (vector 9 e-4))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (let ((act-25 ((Context-Core-lookupContextEntry n (let ((sc4 arg-3)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((_-0 (vector 0 ))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) ((Common-Compiler-getAllDesc arg-0 e-3 arg-2 arg-3) eta-0)) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (let ((e-9 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((act-26 ((Common-Compiler-getMinimalDef e-8) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((bind-0 (vector 1 (vector 0 e-9 e-8)))) (let ((sc8 e-10)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (let ((act-27 (Context-Core-addDef arg-0 n e-12 eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((refs (Context-Core-refersToRuntime e-12))) (let ((_-1 (vector 0 e-12 e-11))) ((Common-Compiler-case--9221-834 e-4 n e-3 arg-3 arg-2 arg-0 _-0 e-9 e-8 bind-0 e-12 e-11 _-1 e-13 refs (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc10 e-12)) (let ((e-27 (vector-ref sc10 8))) e-27)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0))))))))))))))))))))))))))))))) (else ((Common-Compiler-getAllDesc arg-0 e-3 arg-2 arg-3) eta-0)))))))))))))(else (Common-Compiler-getAllDesc arg-0 e-3 arg-2 arg-3))))))))))) +(define Common-Compiler-exists (lambda (arg-0 ext-0) (let ((act-24 ((File-System-openFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-0 (vector 0 )) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-2) ext-0))) 0))) (else 1)))))) (define Codegen-Common-Compiler-executeExpr (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (define Common-Compiler-execute (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-getDirs arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((tmpDir (Options-Core-execBuildDir e-5))) (let ((act-25 (Directory-Core-ensureDirectoryExists tmpDir ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 2))) ((((e-1 arg-0) tmpDir) arg-2) ext-0))))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))))))))) -(define Common-Compiler-dylib_suffix (lambda () (Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (Info-System-os) (vector 1 "windows" (vector 1 "mingw32" (vector 1 "cygwin32" (vector 0 )))))) (lambda () "dll")) (vector 1 (vector 0 (lambda () (Prelude-C-61C-61_Eq__String (Info-System-os) "darwin")) (lambda () "dylib")) (vector 0 ))) "so"))) -(define Common-Compiler-dumpVMCode (lambda (arg-0 arg-1) (let ((cstrs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Compiler-n--9823-1373-dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0 (Strings-Data-fastAppend cstrs)) eta-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (vector 1 (vector 0 ))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0)))))))))))))) -(define Common-Compiler-dumpLifted (lambda (arg-0 arg-1) (let ((cstrs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Compiler-n--9677-1235-dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0 (Strings-Data-fastAppend cstrs)) eta-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (vector 1 (vector 0 ))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0)))))))))))))) -(define Common-Compiler-dumpCases (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Common-Compiler-n--9526-1099-dumpCase arg-2 arg-1 arg-0 eta-0 eta-1))) arg-2) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1 (Strings-Data-fastAppend e-5)) ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((sc3 e-2)) (vector 1 (vector 0 ))))) (else (let ((e-7 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-7) ext-0))))))))))))))))) -(define Common-Compiler-dumpANF (lambda (arg-0 arg-1) (let ((cstrs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Compiler-n--9750-1304-dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0 (Strings-Data-fastAppend cstrs)) eta-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (vector 1 (vector 0 ))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0)))))))))))))) -(define Common-Compiler-copyLib (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Common-Compiler-case--11171-2615 e-2 e-3 (Prelude-C-61C-61_Eq__String e-2 e-3))))))) +(define Common-Compiler-dylib_suffix (lambda () (Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (Info-System-os) (vector 1 "windows" (vector 1 "mingw32" (vector 1 "cygwin32" (vector 0 )))))) (lambda () "dll")) (vector 1 (vector 0 (lambda () (Prelude-C-61C-61_Eq__String (Info-System-os) "darwin")) (lambda () "dylib")) (vector 0 ))) "so"))) +(define Common-Compiler-dumpVMCode (lambda (arg-0 arg-1) (let ((cstrs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Compiler-n--9861-1381-dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-0 (Strings-Data-fastAppend cstrs)) eta-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (vector 1 (vector 0 ))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0)))))))))))))) +(define Common-Compiler-dumpLifted (lambda (arg-0 arg-1) (let ((cstrs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Compiler-n--9715-1243-dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-0 (Strings-Data-fastAppend cstrs)) eta-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (vector 1 (vector 0 ))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0)))))))))))))) +(define Common-Compiler-dumpCases (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Common-Compiler-n--9564-1107-dumpCase arg-2 arg-1 arg-0 eta-0 eta-1))) arg-2) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-1 (Strings-Data-fastAppend e-5)) ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((sc3 e-2)) (vector 1 (vector 0 ))))) (else (let ((e-7 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-7) ext-0))))))))))))))))) +(define Common-Compiler-dumpANF (lambda (arg-0 arg-1) (let ((cstrs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Compiler-n--9788-1312-dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-0 (Strings-Data-fastAppend cstrs)) eta-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (vector 1 (vector 0 ))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0)))))))))))))) +(define Common-Compiler-copyLib (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Common-Compiler-case--11209-2623 e-2 e-3 (Prelude-C-61C-61_Eq__String e-2 e-3))))))) (define Codegen-Common-Compiler-compileExpr (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (define Common-Compiler-compile (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-getDirs arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((tmpDir (Options-Core-execBuildDir e-5))) (let ((outputDir (Options-Core-outputDirWithDefault e-5))) (let ((act-25 (Directory-Core-ensureDirectoryExists tmpDir ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (Directory-Core-ensureDirectoryExists outputDir ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Context-Core-logTime 'erased arg-0 (lambda () "Code generation overall") (let ((sc3 arg-1)) (let ((e-0 (vector-ref sc3 1))) (((((e-0 arg-0) tmpDir) outputDir) arg-2) arg-3))) ext-0)))))))))))))))))) -(define VMCode-Compiler-case--6597-4522 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (VMCode-Compiler-toVMDef e-3) (lambda (dC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 0 e-2 dC-39))))))))) -(define VMCode-Compiler-case--6524-4460 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (VMCode-Compiler-n--6521-4445-declareAll arg-0 arg-1 arg-4 arg-3)) (else (vector 1 (vector 0 (vector 1 arg-2)) (VMCode-Compiler-n--6521-4445-declareAll arg-0 arg-1 (vector 1 arg-2 arg-4) arg-3))))))) -(define VMCode-Compiler-case--5772-3847 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) "TAILCALL ") (else "CALL "))))) -(define VMCode-Compiler-n--6101-4201-toVMConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 (VMCode-Compiler-toVM arg-5 arg-4 e-1))))))) -(define VMCode-Compiler-n--6101-4137-toVMConAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 0 (vector 0 e-5) (List-Prelude-C-43C-43 'erased (VMCode-Compiler-n--6101-4136-projectArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 e-2) (VMCode-Compiler-toVM arg-5 arg-4 e-3))))) (else (vector 0 (vector 1 e-0) (List-Prelude-C-43C-43 'erased (VMCode-Compiler-n--6101-4136-projectArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 e-2) (VMCode-Compiler-toVM arg-5 arg-4 e-3))))))))))))) -(define VMCode-Compiler-n--6101-4136-projectArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 12 (vector 1 e-2) (vector 1 arg-0) arg-6) (VMCode-Compiler-n--6101-4136-projectArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ arg-6 1 63) e-3))))))))) -(define VMCode-Compiler-n--6326-4331-findVarAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 2))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) e-3))))) -(define VMCode-Compiler-n--6326-4382-findConstVarAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 2))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) e-3))))) -(define VMCode-Compiler-n--6521-4445-declareAll (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 1 ) arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (VMCode-Compiler-case--6524-4460 arg-0 arg-1 e-2 e-3 arg-2 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) e-2 arg-2))))))))) +(define VMCode-Compiler-case--6656-4530 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (VMCode-Compiler-toVMDef e-3) (lambda (dC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 0 e-2 dC-39))))))))) +(define VMCode-Compiler-case--6583-4468 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (VMCode-Compiler-n--6580-4453-declareAll arg-0 arg-1 arg-4 arg-3)) (else (vector 1 (vector 0 (vector 1 arg-2)) (VMCode-Compiler-n--6580-4453-declareAll arg-0 arg-1 (vector 1 arg-2 arg-4) arg-3))))))) +(define VMCode-Compiler-case--5831-3855 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) "TAILCALL ") (else "CALL "))))) +(define VMCode-Compiler-n--6160-4209-toVMConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 (VMCode-Compiler-toVM arg-5 arg-4 e-1))))))) +(define VMCode-Compiler-n--6160-4145-toVMConAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 0 (vector 0 e-5) (List-Prelude-C-43C-43 'erased (VMCode-Compiler-n--6160-4144-projectArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 e-2) (VMCode-Compiler-toVM arg-5 arg-4 e-3))))) (else (vector 0 (vector 1 e-0) (List-Prelude-C-43C-43 'erased (VMCode-Compiler-n--6160-4144-projectArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 e-2) (VMCode-Compiler-toVM arg-5 arg-4 e-3))))))))))))) +(define VMCode-Compiler-n--6160-4144-projectArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 12 (vector 1 e-2) (vector 1 arg-0) arg-6) (VMCode-Compiler-n--6160-4144-projectArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ arg-6 1 63) e-3))))))))) +(define VMCode-Compiler-n--6385-4339-findVarAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 2))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) e-3))))) +(define VMCode-Compiler-n--6385-4390-findConstVarAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 2))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) e-3))))) +(define VMCode-Compiler-n--6580-4453-declareAll (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 1 ) arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (VMCode-Compiler-case--6583-4468 arg-0 arg-1 e-2 e-3 arg-2 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) e-2 arg-2))))))))) (define VMCode-Compiler-show_Show__VMInst (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "DECLARE " (VMCode-Compiler-show_Show__Reg e-0)))) ((1) "START") ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-1) (Strings-Prelude-C-43C-43 " := " (VMCode-Compiler-show_Show__Reg e-2)))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-3) (Strings-Prelude-C-43C-43 " := MKCON " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x))))) e-4) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-show_Show__Reg eta-0)) e-5)) ")"))))))))) ((4) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-6) (Strings-Prelude-C-43C-43 " := MKCLOSURE " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-8) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-show_Show__Reg eta-0)) e-9)) ")")))))))))))) ((5) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-10) (Strings-Prelude-C-43C-43 " := MKCONSTANT " (TT-Core-show_Show__Constant e-11)))))) ((6) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-12) (Strings-Prelude-C-43C-43 " := " (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-13) (Strings-Prelude-C-43C-43 " @ " (VMCode-Compiler-show_Show__Reg e-14))))))))) ((7) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (let ((e-18 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-15) (Strings-Prelude-C-43C-43 " := " (Strings-Prelude-C-43C-43 (let ((sc1 e-16)) (cond ((equal? sc1 0) "TAILCALL ") (else "CALL "))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-17) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-show_Show__Reg eta-0)) e-18)) ")"))))))))))) ((8) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-20) (Strings-Prelude-C-43C-43 " := " (Strings-Prelude-C-43C-43 "OP " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40PrimFnC-32C-36arityC-41 'erased e-21) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-show_Show__Reg eta-0)) ((List-Data-toList 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldl_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))))) e-22))) ")")))))))))) ((9) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-23) (Strings-Prelude-C-43C-43 " := " (Strings-Prelude-C-43C-43 "EXTPRIM " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-24) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-show_Show__Reg eta-0)) e-25)) ")")))))))))) ((10) (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "CASE " (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-26) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Int x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__Int d x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Int x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Int d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-0) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Int x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Int d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Int x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__Int d-1 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1))))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-0) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-1) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-1 x-1)))) d-0 x-0))))) d x)))) e-27) (Strings-Prelude-C-43C-43 " {default: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (VMCode-Compiler-show_Show__VMInst x-0)) (lambda (d) (lambda (x-0) (VMCode-Compiler-showPrec_Show__VMInst d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (VMCode-Compiler-show_Show__VMInst x-0)) (lambda (d-0) (lambda (x-0) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-0)))) d x)))) e-28) "}")))))))))) ((11) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "CASE " (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-29) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (TT-Core-show_Show__Constant x-0)) (lambda (d) (lambda (x-0) (TT-Core-showPrec_Show__Constant d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-0) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (TT-Core-show_Show__Constant x-0)) (lambda (d-0) (lambda (x-0) (TT-Core-showPrec_Show__Constant d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-0) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-1) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-1 x-1)))) d-0 x-0))))) d x)))) e-30) (Strings-Prelude-C-43C-43 " {default: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (VMCode-Compiler-show_Show__VMInst x-0)) (lambda (d) (lambda (x-0) (VMCode-Compiler-showPrec_Show__VMInst d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (VMCode-Compiler-show_Show__VMInst x-0)) (lambda (d-0) (lambda (x-0) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-0)))) d x)))) e-31) "}")))))))))) ((12) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-32) (Strings-Prelude-C-43C-43 " := PROJECT(" (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-33) (Strings-Prelude-C-43C-43 ", " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-34) ")"))))))))) ((13) (let ((e-35 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-35) " := NULL"))) (else (let ((e-36 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "ERROR " (Prelude-show_Show__String e-36)))))))) (define VMCode-Compiler-show_Show__VMDef (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) e-0) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (VMCode-Compiler-show_Show__VMInst x)) (lambda (d) (lambda (x) (VMCode-Compiler-showPrec_Show__VMInst d x)))) e-1)))))) (else (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Error: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (VMCode-Compiler-show_Show__VMInst x)) (lambda (d) (lambda (x) (VMCode-Compiler-showPrec_Show__VMInst d x)))) e-2)))))))) (define VMCode-Compiler-show_Show__Reg (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "RVAL") ((1) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "v" (Prelude-show_Show__Int e-0)))) (else "DISCARD"))))) (define VMCode-Compiler-showPrec_Show__VMInst (lambda (arg-0 arg-1) (VMCode-Compiler-show_Show__VMInst arg-1))) (define VMCode-Compiler-__Impl_Show_VMInst (lambda () (vector 0 (lambda (x) (VMCode-Compiler-show_Show__VMInst x)) (lambda (d) (lambda (x) (VMCode-Compiler-showPrec_Show__VMInst d x)))))) (define VMCode-Compiler-toVMDef (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 1 (vector 0 e-0 (VMCode-Compiler-declareVars e-0 (VMCode-Compiler-toVM 0 (vector 0 ) e-1))))))) ((3) (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 1 (VMCode-Compiler-declareVars (vector 0 ) (VMCode-Compiler-toVM 0 (vector 0 ) e-2))))))(else (vector 0 )))))) -(define VMCode-Compiler-toVM (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (vector 0 ))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-40 (vector-ref sc1 1))) (vector 1 (vector 2 arg-1 (vector 1 e-40)) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 ))))))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 7 arg-1 arg-0 e-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-4)) (vector 0 ))))) ((2) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 1 (vector 4 arg-1 e-6 e-7 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-8)) (vector 0 )))))) ((3) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (vector 1 (vector 6 arg-1 (VMCode-Compiler-toReg e-10) (VMCode-Compiler-toReg e-11)) (vector 0 ))))) ((4) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (VMCode-Compiler-toVM 1 (vector 1 e-13) e-14) (VMCode-Compiler-toVM arg-0 arg-1 e-15)))))) ((5) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 e-18)) (case (vector-ref sc1 0) ((1) (let ((e-42 (vector-ref sc1 1))) (vector 1 (vector 3 arg-1 (vector 0 e-42) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-19)) (vector 0 )))) ((0) (vector 1 (vector 3 arg-1 (vector 1 e-17) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-19)) (vector 0 )))(else (vector 1 (vector 13 arg-1) (vector 0 ))))))))) ((6) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (vector 1 (vector 8 arg-1 e-22 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-23)) (vector 0 ))))) ((7) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (vector 1 (vector 9 arg-1 e-25 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-26)) (vector 0 ))))) ((8) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((e-30 (vector-ref sc0 4))) (let ((sc1 e-28)) (case (vector-ref sc1 0) ((0) (let ((e-44 (vector-ref sc1 1))) (vector 1 (vector 10 (vector 1 e-44) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-n--6101-4137-toVMConAlt e-44 e-30 e-29 e-27 arg-1 arg-0 eta-0)) e-29) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toVM arg-0 arg-1 eta-0)) e-30)) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 )))))))))) ((9) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (let ((sc1 e-32)) (case (vector-ref sc1 0) ((0) (let ((e-45 (vector-ref sc1 1))) (vector 1 (vector 11 (vector 1 e-45) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-n--6101-4201-toVMConstAlt e-45 e-34 e-33 e-31 arg-1 arg-0 eta-0)) e-33) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toVM arg-0 arg-1 eta-0)) e-34)) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 )))))))))) ((10) (let ((e-36 (vector-ref sc0 2))) (vector 1 (vector 5 arg-1 e-36) (vector 0 )))) ((11) (vector 1 (vector 13 arg-1) (vector 0 ))) ((12) (let ((e-39 (vector-ref sc0 2))) (vector 1 (vector 14 e-39) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 )))))))))) +(define VMCode-Compiler-toVM (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (vector 0 ))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-40 (vector-ref sc1 1))) (vector 1 (vector 2 arg-1 (vector 1 e-40)) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 ))))))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 7 arg-1 arg-0 e-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-4)) (vector 0 ))))) ((2) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 1 (vector 4 arg-1 e-6 e-7 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-8)) (vector 0 )))))) ((3) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (vector 1 (vector 6 arg-1 (VMCode-Compiler-toReg e-10) (VMCode-Compiler-toReg e-11)) (vector 0 ))))) ((4) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (VMCode-Compiler-toVM 1 (vector 1 e-13) e-14) (VMCode-Compiler-toVM arg-0 arg-1 e-15)))))) ((5) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 e-18)) (case (vector-ref sc1 0) ((1) (let ((e-42 (vector-ref sc1 1))) (vector 1 (vector 3 arg-1 (vector 0 e-42) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-19)) (vector 0 )))) ((0) (vector 1 (vector 3 arg-1 (vector 1 e-17) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-19)) (vector 0 )))(else (vector 1 (vector 13 arg-1) (vector 0 ))))))))) ((6) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (vector 1 (vector 8 arg-1 e-22 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-23)) (vector 0 ))))) ((7) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (vector 1 (vector 9 arg-1 e-25 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-26)) (vector 0 ))))) ((8) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((e-30 (vector-ref sc0 4))) (let ((sc1 e-28)) (case (vector-ref sc1 0) ((0) (let ((e-44 (vector-ref sc1 1))) (vector 1 (vector 10 (vector 1 e-44) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-n--6160-4145-toVMConAlt e-44 e-30 e-29 e-27 arg-1 arg-0 eta-0)) e-29) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toVM arg-0 arg-1 eta-0)) e-30)) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 )))))))))) ((9) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (let ((sc1 e-32)) (case (vector-ref sc1 0) ((0) (let ((e-45 (vector-ref sc1 1))) (vector 1 (vector 11 (vector 1 e-45) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-n--6160-4209-toVMConstAlt e-45 e-34 e-33 e-31 arg-1 arg-0 eta-0)) e-33) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toVM arg-0 arg-1 eta-0)) e-34)) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 )))))))))) ((10) (let ((e-36 (vector-ref sc0 2))) (vector 1 (vector 5 arg-1 e-36) (vector 0 )))) ((11) (vector 1 (vector 13 arg-1) (vector 0 ))) ((12) (let ((e-39 (vector-ref sc0 2))) (vector 1 (vector 14 e-39) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 )))))))))) (define VMCode-Compiler-toReg (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0))) (else (vector 2 )))))) -(define VMCode-Compiler-findVars (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-34 (vector-ref sc1 1))) (vector 1 e-34 (vector 0 ))))(else (vector 0 )))))) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-35 (vector-ref sc1 1))) (vector 1 e-35 (vector 0 ))))(else (vector 0 )))))) ((4) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-36 (vector-ref sc1 1))) (vector 1 e-36 (vector 0 ))))(else (vector 0 )))))) ((5) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 e-9)) (case (vector-ref sc1 0) ((1) (let ((e-37 (vector-ref sc1 1))) (vector 1 e-37 (vector 0 ))))(else (vector 0 )))))) ((6) (let ((e-11 (vector-ref sc0 1))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((1) (let ((e-38 (vector-ref sc1 1))) (vector 1 e-38 (vector 0 ))))(else (vector 0 )))))) ((7) (let ((e-14 (vector-ref sc0 1))) (let ((sc1 e-14)) (case (vector-ref sc1 0) ((1) (let ((e-39 (vector-ref sc1 1))) (vector 1 e-39 (vector 0 ))))(else (vector 0 )))))) ((8) (let ((e-19 (vector-ref sc0 1))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((1) (let ((e-40 (vector-ref sc1 1))) (vector 1 e-40 (vector 0 ))))(else (vector 0 )))))) ((9) (let ((e-22 (vector-ref sc0 1))) (let ((sc1 e-22)) (case (vector-ref sc1 0) ((1) (let ((e-41 (vector-ref sc1 1))) (vector 1 e-41 (vector 0 ))))(else (vector 0 )))))) ((10) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-n--6326-4331-findVarAlt e-25 e-27 e-26 eta-0))) e-26) (Maybe-Data-fromMaybe 'erased (lambda () (vector 0 )) (Prelude-map_Functor__Maybe 'erased 'erased (Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) e-27))))))) ((11) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-n--6326-4382-findConstVarAlt e-28 e-30 e-29 eta-0))) e-29) (Maybe-Data-fromMaybe 'erased (lambda () (vector 0 )) (Prelude-map_Functor__Maybe 'erased 'erased (Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) e-30))))))) ((12) (let ((e-31 (vector-ref sc0 1))) (let ((sc1 e-31)) (case (vector-ref sc1 0) ((1) (let ((e-42 (vector-ref sc1 1))) (vector 1 e-42 (vector 0 ))))(else (vector 0 ))))))(else (vector 0 )))))) -(define VMCode-Compiler-declareVars (lambda (arg-0 arg-1) (let ((vs ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) arg-1))) (VMCode-Compiler-n--6521-4445-declareAll arg-1 arg-0 arg-0 vs)))) +(define VMCode-Compiler-findVars (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-34 (vector-ref sc1 1))) (vector 1 e-34 (vector 0 ))))(else (vector 0 )))))) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-35 (vector-ref sc1 1))) (vector 1 e-35 (vector 0 ))))(else (vector 0 )))))) ((4) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-36 (vector-ref sc1 1))) (vector 1 e-36 (vector 0 ))))(else (vector 0 )))))) ((5) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 e-9)) (case (vector-ref sc1 0) ((1) (let ((e-37 (vector-ref sc1 1))) (vector 1 e-37 (vector 0 ))))(else (vector 0 )))))) ((6) (let ((e-11 (vector-ref sc0 1))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((1) (let ((e-38 (vector-ref sc1 1))) (vector 1 e-38 (vector 0 ))))(else (vector 0 )))))) ((7) (let ((e-14 (vector-ref sc0 1))) (let ((sc1 e-14)) (case (vector-ref sc1 0) ((1) (let ((e-39 (vector-ref sc1 1))) (vector 1 e-39 (vector 0 ))))(else (vector 0 )))))) ((8) (let ((e-19 (vector-ref sc0 1))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((1) (let ((e-40 (vector-ref sc1 1))) (vector 1 e-40 (vector 0 ))))(else (vector 0 )))))) ((9) (let ((e-22 (vector-ref sc0 1))) (let ((sc1 e-22)) (case (vector-ref sc1 0) ((1) (let ((e-41 (vector-ref sc1 1))) (vector 1 e-41 (vector 0 ))))(else (vector 0 )))))) ((10) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-n--6385-4339-findVarAlt e-25 e-27 e-26 eta-0))) e-26) (Maybe-Data-fromMaybe 'erased (lambda () (vector 0 )) (Prelude-map_Functor__Maybe 'erased 'erased (Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) e-27))))))) ((11) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-n--6385-4390-findConstVarAlt e-28 e-30 e-29 eta-0))) e-29) (Maybe-Data-fromMaybe 'erased (lambda () (vector 0 )) (Prelude-map_Functor__Maybe 'erased 'erased (Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) e-30))))))) ((12) (let ((e-31 (vector-ref sc0 1))) (let ((sc1 e-31)) (case (vector-ref sc1 0) ((1) (let ((e-42 (vector-ref sc1 1))) (vector 1 e-42 (vector 0 ))))(else (vector 0 ))))))(else (vector 0 )))))) +(define VMCode-Compiler-declareVars (lambda (arg-0 arg-1) (let ((vs ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) arg-1))) (VMCode-Compiler-n--6580-4453-declareAll arg-1 arg-0 arg-0 vs)))) (define VMCode-Compiler-allDefs (lambda (ext-0) (List-Data-mapMaybe 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (VMCode-Compiler-toVMDef e-3) (lambda (dC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 0 e-2 dC-39)))))))) ext-0))) -(define ANF-Compiler-case--7047-1594 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-3 e-3 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (List-Prelude-C-43C-43 'erased arg-4 (List-Data-reverse 'erased e-2)) e-5))))))))))))) -(define ANF-Compiler-case--6937-1560 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((vs e-3)) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-n--6937-1464-bindArgs arg-0 arg-1 arg-2 'erased arg-3 arg-0 vs) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((act-25 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-3 e-4 arg-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 (List-Prelude-C-43C-43 'erased e-2 (List-Data-reverse 'erased e-6)) e-7)))))))))))))))))))))) -(define ANF-Compiler-case--6942-1504 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-8 e-2) (vector 1 arg-8 e-3))))))))) -(define ANF-Compiler-case--6452-1423 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased arg-1 arg-0) arg-6 e-3 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 arg-4 arg-3 e-2 e-5))))))))))))) -(define ANF-Compiler-case--6788-1375 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-11 e-2) (vector 1 arg-11 e-3))))))))) -(define ANF-Compiler-case--6449-1203 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 12 arg-4 "Can't happen (AOp)")) (else (let ((e-2 (vector-ref sc0 1))) (vector 6 arg-4 arg-3 e-2))))))) -(define ANF-Compiler-case--6449-1109 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 3 arg-3 e-1 e-4))(else (vector 12 arg-3 "Can't happen (AApp)")))))))(else (vector 12 arg-3 "Can't happen (AApp)")))))))(else (vector 12 arg-3 "Can't happen (AApp)")))))) -(define ANF-Compiler-n--6063-683-showArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Strings-Prelude-C-43C-43 "v" (Prelude-show_Show__Int arg-4)))) -(define ANF-Compiler-n--6338-930-doBind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (arg-0 (List-Data-reverse 'erased arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (vector 4 arg-2 e-8 e-10 (ANF-Compiler-n--6338-930-doBind arg-0 arg-1 arg-2 arg-3 (vector 1 (vector 0 e-8) arg-4) e-3))))(else (ANF-Compiler-n--6338-930-doBind arg-0 arg-1 arg-2 arg-3 (vector 1 e-6 arg-4) e-3))))))(else (ANF-Compiler-n--6338-930-doBind arg-0 arg-1 arg-2 arg-3 (vector 1 e-6 arg-4) e-3)))))))))))))) -(define ANF-Compiler-n--6937-1464-bindArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-6)))) (else (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (ANF-Compiler-nextVar arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ANF-Compiler-n--6937-1464-bindArgs arg-0 arg-1 arg-2 'erased arg-4 e-3 arg-6) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 1 e-5 e-7) (vector 1 e-5 e-4))))))))))))))))))))))) -(define ANF-Compiler-n--6452-1341-bindArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-9)))) (else (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (ANF-Compiler-nextVar arg-6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ANF-Compiler-n--6452-1341-bindArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-3 arg-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 1 e-5 e-7) (vector 1 e-5 e-4))))))))))))))))))))))) +(define ANF-Compiler-case--7106-1602 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-3 e-3 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (List-Prelude-C-43C-43 'erased arg-4 (List-Data-reverse 'erased e-2)) e-5))))))))))))) +(define ANF-Compiler-case--6996-1568 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((vs e-3)) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-n--6996-1472-bindArgs arg-0 arg-1 arg-2 'erased arg-3 arg-0 vs) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((act-25 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-3 e-4 arg-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 (List-Prelude-C-43C-43 'erased e-2 (List-Data-reverse 'erased e-6)) e-7)))))))))))))))))))))) +(define ANF-Compiler-case--7001-1512 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-8 e-2) (vector 1 arg-8 e-3))))))))) +(define ANF-Compiler-case--6511-1431 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased arg-1 arg-0) arg-6 e-3 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 arg-4 arg-3 e-2 e-5))))))))))))) +(define ANF-Compiler-case--6847-1383 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-11 e-2) (vector 1 arg-11 e-3))))))))) +(define ANF-Compiler-case--6508-1211 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 12 arg-4 "Can't happen (AOp)")) (else (let ((e-2 (vector-ref sc0 1))) (vector 6 arg-4 arg-3 e-2))))))) +(define ANF-Compiler-case--6508-1117 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 3 arg-3 e-1 e-4))(else (vector 12 arg-3 "Can't happen (AApp)")))))))(else (vector 12 arg-3 "Can't happen (AApp)")))))))(else (vector 12 arg-3 "Can't happen (AApp)")))))) +(define ANF-Compiler-n--6122-691-showArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Strings-Prelude-C-43C-43 "v" (Prelude-show_Show__Int arg-4)))) +(define ANF-Compiler-n--6397-938-doBind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (arg-0 (List-Data-reverse 'erased arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (vector 4 arg-2 e-8 e-10 (ANF-Compiler-n--6397-938-doBind arg-0 arg-1 arg-2 arg-3 (vector 1 (vector 0 e-8) arg-4) e-3))))(else (ANF-Compiler-n--6397-938-doBind arg-0 arg-1 arg-2 arg-3 (vector 1 e-6 arg-4) e-3))))))(else (ANF-Compiler-n--6397-938-doBind arg-0 arg-1 arg-2 arg-3 (vector 1 e-6 arg-4) e-3)))))))))))))) +(define ANF-Compiler-n--6996-1472-bindArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-6)))) (else (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (ANF-Compiler-nextVar arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ANF-Compiler-n--6996-1472-bindArgs arg-0 arg-1 arg-2 'erased arg-4 e-3 arg-6) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 1 e-5 e-7) (vector 1 e-5 e-4))))))))))))))))))))))) +(define ANF-Compiler-n--6511-1349-bindArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-9)))) (else (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (ANF-Compiler-nextVar arg-6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ANF-Compiler-n--6511-1349-bindArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-3 arg-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 1 e-5 e-7) (vector 1 e-5 e-4))))))))))))))))))))))) (define ANF-Compiler-show_Show__AVar (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "v" (Prelude-show_Show__Int e-0)))) (else "[__]"))))) (define ANF-Compiler-show_Show__ANFDef (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) e-0) (Strings-Prelude-C-43C-43 ": " (ANF-Compiler-show_Show__ANF e-1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "Constructor tag " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) e-2) (Strings-Prelude-C-43C-43 " arity " (Prelude-show_Show__Nat e-3))))))) ((2) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "Foreign call " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) e-4) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__CFType x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__CFType d x)))) e-5) (Strings-Prelude-C-43C-43 " -> " (CompileExpr-Core-show_Show__CFType e-6)))))))))) (else (let ((e-7 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Error: " (ANF-Compiler-show_Show__ANF e-7)))))))) (define ANF-Compiler-show_Show__ANF (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (ANF-Compiler-show_Show__AVar e-1))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-3) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ANF-Compiler-show_Show__AVar eta-0)) e-4)) ")")))))) ((2) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "<" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) (Strings-Prelude-C-43C-43 " underapp " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-7) (Strings-Prelude-C-43C-43 ">(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ANF-Compiler-show_Show__AVar eta-0)) e-8)) ")")))))))))) ((3) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (ANF-Compiler-show_Show__AVar e-10) (Strings-Prelude-C-43C-43 " @ (" (Strings-Prelude-C-43C-43 (ANF-Compiler-show_Show__AVar e-11) ")")))))) ((4) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "%let v" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-13) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (ANF-Compiler-show_Show__ANF e-14) (Strings-Prelude-C-43C-43 " in " (ANF-Compiler-show_Show__ANF e-15)))))))))) ((5) (let ((e-17 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "%con " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-17) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ANF-Compiler-show_Show__AVar eta-0)) e-19)) ")"))))))) ((6) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "%op " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40PrimFnC-32C-36arityC-41 'erased e-22) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " ((List-Data-toList 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldl_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))))) (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (ANF-Compiler-show_Show__AVar eta-0)) e-23))) ")"))))))) ((7) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "%extprim " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-25) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ANF-Compiler-show_Show__AVar eta-0)) e-26)) ")"))))))) ((8) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((e-30 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "%case " (Strings-Prelude-C-43C-43 (ANF-Compiler-show_Show__AVar e-28) (Strings-Prelude-C-43C-43 " of { " (Strings-Prelude-C-43C-43 (Name-Core-showSep "| " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (ANF-Compiler-show_Show__AConAlt arg-1)) e-29)) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (ANF-Compiler-show_Show__ANF x)) (lambda (d) (lambda (x) (ANF-Compiler-showPrec_Show__ANF d x)))) e-30)))))))))) ((9) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "%case " (Strings-Prelude-C-43C-43 (ANF-Compiler-show_Show__AVar e-32) (Strings-Prelude-C-43C-43 " of { " (Strings-Prelude-C-43C-43 (Name-Core-showSep "| " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (ANF-Compiler-show_Show__AConstAlt arg-1)) e-33)) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (ANF-Compiler-show_Show__ANF x)) (lambda (d) (lambda (x) (ANF-Compiler-showPrec_Show__ANF d x)))) e-34)))))))))) ((10) (let ((e-36 (vector-ref sc0 2))) (TT-Core-show_Show__Constant e-36))) ((11) "___") (else (let ((e-39 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "%CRASH(" (Strings-Prelude-C-43C-43 (Prelude-show_Show__String e-39) ")")))))))) (define ANF-Compiler-show_Show__AConstAlt (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "%constalt(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-0) (Strings-Prelude-C-43C-43 ") => " (ANF-Compiler-show_Show__ANF e-1))))))))) -(define ANF-Compiler-show_Show__AConAlt (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "%conalt " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-0) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ANF-Compiler-n--6063-683-showArg e-3 e-2 e-1 e-0 eta-0)) e-2)) (Strings-Prelude-C-43C-43 ") => " (ANF-Compiler-show_Show__ANF e-3))))))))))))) +(define ANF-Compiler-show_Show__AConAlt (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "%conalt " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-0) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ANF-Compiler-n--6122-691-showArg e-3 e-2 e-1 e-0 eta-0)) e-2)) (Strings-Prelude-C-43C-43 ") => " (ANF-Compiler-show_Show__ANF e-3))))))))))))) (define ANF-Compiler-showPrec_Show__ANF (lambda (arg-0 arg-1) (ANF-Compiler-show_Show__ANF arg-1))) (define ANF-Compiler-showPrec_Show__AConstAlt (lambda (arg-0 arg-1) (ANF-Compiler-show_Show__AConstAlt arg-1))) (define ANF-Compiler-showPrec_Show__AConAlt (lambda (arg-0 arg-1) (ANF-Compiler-show_Show__AConAlt arg-1))) @@ -6543,29 +6611,29 @@ (define ANF-Compiler-__Impl_Show_AConstAlt (lambda () (vector 0 (lambda (x) (ANF-Compiler-show_Show__AConstAlt x)) (lambda (d) (lambda (x) (ANF-Compiler-showPrec_Show__AConstAlt d x)))))) (define ANF-Compiler-__Impl_Show_AConAlt (lambda () (vector 0 (lambda (x) (ANF-Compiler-show_Show__AConAlt x)) (lambda (d) (lambda (x) (ANF-Compiler-showPrec_Show__AConAlt d x)))))) (define ANF-Compiler-toVect (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 0 )))(else (vector 0 )))))(else (let ((e-0 (- arg-1 1))) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (ANF-Compiler-toVect 'erased e-0 e-4) (lambda (xsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 e-3 xsC-39)))))))(else (vector 0 )))))))))) -(define ANF-Compiler-toANF (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Compiler.ANF.Next" ) 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ANF-Compiler-n--6937-1464-bindArgs e-1 e-0 e-2 'erased e-5 e-0 (vector 0 )) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-4 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((vs e-3)) (let ((act-26 ((ANF-Compiler-n--6937-1464-bindArgs e-1 e-0 e-2 'erased e-5 e-1 vs) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((act-27 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased e-1 e-0) e-5 e-8 e-2) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 (List-Prelude-C-43C-43 'erased e-4 (List-Data-reverse 'erased e-9)) e-10)))))))))))))))))))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 e-3 e-4)))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 2 e-6 e-7 e-8))))))) (else (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Compiler.ANF.Next" ) 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ANF-Compiler-anf (vector 0 ) e-5 (vector 0 ) e-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-6))))))))))))))))))) +(define ANF-Compiler-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--6996-1472-bindArgs e-1 e-0 e-2 'erased e-5 e-0 (vector 0 )) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-4 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((vs e-3)) (let ((act-26 ((ANF-Compiler-n--6996-1472-bindArgs e-1 e-0 e-2 'erased e-5 e-1 vs) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((act-27 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased e-1 e-0) e-5 e-8 e-2) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 (List-Prelude-C-43C-43 'erased e-4 (List-Data-reverse 'erased e-9)) e-10)))))))))))))))))))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 e-3 e-4)))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 2 e-6 e-7 e-8))))))) (else (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Compiler.ANF.Next" ) 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ANF-Compiler-anf (vector 0 ) e-5 (vector 0 ) e-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-6))))))))))))))))))) (define ANF-Compiler-nextVar (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (b+ e-5 1 63)))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 e-5)))))))))))) (define ANF-Compiler-mlet (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (arg-3 e-1)))))(else (lambda (eta-0) (let ((act-24 (ANF-Compiler-nextVar arg-0 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 4 arg-1 e-5 arg-2 (arg-3 (vector 0 e-5))))))))))))))) (define ANF-Compiler-lookup (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (let ((e-3 (vector-ref sc1 1))) e-3)))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-4)) (let ((e-8 (vector-ref sc0 2))) (ANF-Compiler-lookup 'erased 'erased e-0 'erased e-8))))))))) -(define ANF-Compiler-letBind (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((ANF-Compiler-bindArgs arg-0 arg-2) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (ANF-Compiler-n--6338-930-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--6397-938-doBind arg-3 arg-2 arg-1 arg-0 (vector 0 ) e-5))))))))) (define ANF-Compiler-bindArgs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-bindArgs arg-0 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 e-5 (vector 0 )) e-6)))))))))) ((11) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-bindArgs arg-0 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 (vector 1 ) (vector 0 )) e-5)))))))))(else (lambda (eta-0) (let ((act-24 (ANF-Compiler-nextVar arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ANF-Compiler-bindArgs arg-0 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 (vector 0 e-5) (vector 1 e-2)) e-6))))))))))))))))))))))) (define ANF-Compiler-anfConstAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-anf arg-0 arg-1 arg-2 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-5))))))))))))) -(define ANF-Compiler-anfConAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-n--6452-1341-bindArgs arg-0 e-3 e-4 e-2 e-1 arg-2 arg-1 'erased e-3 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((act-25 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 e-6 e-4) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 0 e-1 e-2 e-7 e-8))))))))))))))))))))))) +(define ANF-Compiler-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--6511-1349-bindArgs arg-0 e-3 e-4 e-2 e-1 arg-2 arg-1 'erased e-3 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((act-25 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 e-6 e-4) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 0 e-1 e-2 e-7 e-8))))))))))))))))))))))) (define ANF-Compiler-anfArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (ANF-Compiler-anf arg-0 arg-1 arg-3 eta-0)) arg-4) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (ANF-Compiler-letBind arg-1 arg-2 e-5 arg-5 ext-0)))))))) -(define ANF-Compiler-anf (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-3 (vector 0 (ANF-Compiler-lookup 'erased 'erased e-2 'erased arg-2)))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (ANF-Compiler-anfArgs arg-0 arg-1 e-6 arg-2 e-8 (lambda (eta-1) (vector 1 e-6 e-7 eta-1)) eta-0)))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (lambda (eta-0) (ANF-Compiler-anfArgs arg-0 arg-1 e-10 arg-2 e-13 (lambda (eta-1) (vector 2 e-10 e-11 e-12 eta-1)) eta-0))))))) ((3) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (lambda (eta-0) (ANF-Compiler-anfArgs arg-0 arg-1 e-15 arg-2 (vector 1 e-16 (vector 1 e-17 (vector 0 ))) (lambda (args) (let ((sc1 args)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (vector 3 e-15 e-1 e-4))(else (vector 12 e-15 "Can't happen (AApp)")))))))(else (vector 12 e-15 "Can't happen (AApp)")))))))(else (vector 12 e-15 "Can't happen (AApp)"))))) eta-0)))))) ((4) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (ANF-Compiler-nextVar arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((vsC-39 (vector 1 e-5 arg-2))) (let ((act-25 ((ANF-Compiler-anf arg-0 arg-1 arg-2 e-21) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((ANF-Compiler-anf (vector 1 e-20 arg-0) arg-1 vsC-39 e-22) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 4 e-19 e-5 e-6 e-7)))))))))))))))))))))))) ((5) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (let ((e-27 (vector-ref sc0 4))) (lambda (eta-0) (ANF-Compiler-anfArgs arg-0 arg-1 e-24 arg-2 e-27 (lambda (eta-1) (vector 5 e-24 e-25 e-26 eta-1)) eta-0))))))) ((6) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (let ((e-32 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ANF-Compiler-anf arg-0 arg-1 arg-2 eta-1)) ((List-Data-toList 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldl_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))))) e-32)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (ANF-Compiler-letBind arg-1 e-30 e-5 (lambda (args) (ANF-Compiler-case--6449-1203 arg-0 e-29 e-32 e-31 e-30 arg-2 arg-1 e-5 args (ANF-Compiler-toVect 'erased e-29 args))) eta-0)))))))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (lambda (eta-0) (ANF-Compiler-anfArgs arg-0 arg-1 e-34 arg-2 e-36 (lambda (eta-1) (vector 7 e-34 e-35 eta-1)) eta-0)))))) ((8) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (let ((e-41 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-anf arg-0 arg-1 arg-2 e-39) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ANF-Compiler-anfConAlt arg-0 arg-1 arg-2 eta-1)) e-40) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (ANF-Compiler-anf arg-0 arg-1 arg-2 eta-1)) e-41) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((ANF-Compiler-mlet arg-1 e-38 e-5 (lambda (x) (vector 8 e-38 x e-6 e-7))) eta-0)))))))))))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (let ((e-45 (vector-ref sc0 3))) (let ((e-46 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-anf arg-0 arg-1 arg-2 e-44) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ANF-Compiler-anfConstAlt arg-0 arg-1 arg-2 eta-1)) e-45) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (ANF-Compiler-anf arg-0 arg-1 arg-2 eta-1)) e-46) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((ANF-Compiler-mlet arg-1 e-43 e-5 (lambda (x) (vector 9 e-43 x e-6 e-7))) eta-0)))))))))))))))))))))) ((10) (let ((e-48 (vector-ref sc0 1))) (let ((e-49 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 10 e-48 e-49)))))) ((11) (let ((e-51 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 11 e-51))))) (else (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 12 e-53 e-54)))))))))) -(define LambdaLift-Compiler-case--6797-1604 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (LambdaLift-Compiler-lambdaLiftDef arg-0 e-1))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define LambdaLift-Compiler-case--6779-1592 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (LambdaLift-Compiler-case--6797-1604 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define LambdaLift-Compiler-case--6681-1556 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-1 (vector 3 e-2)) e-3)))))))) -(define LambdaLift-Compiler-case--6681-1502 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-2 (vector 0 arg-0 (vector 0 ) e-2)) e-3)))))))) -(define LambdaLift-Compiler-case--6143-1089 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 (vector 1 (vector 0 arg-6 (vector 0 arg-1 arg-0 arg-5)) e-1) e-2))))))) -(define LambdaLift-Compiler-case--6170-1023 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 0 arg-6 arg-3))) -(define LambdaLift-Compiler-case--6070-939 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 (b+ arg-2 1 63))))))) -(define LambdaLift-Compiler-n--6147-1243-traverseArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-5 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((LambdaLift-Compiler-n--6147-1243-traverseArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-6)))))))))))))))))))) -(define LambdaLift-Compiler-n--6070-900-mkName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 (LambdaLift-Compiler-n--6070-900-mkName arg-0 e-1 arg-2))))) ((1) (let ((e-2 (vector-ref sc0 1))) (vector 2 e-2 arg-2))) ((4) (let ((e-4 (vector-ref sc0 2))) (LambdaLift-Compiler-n--6070-900-mkName arg-0 e-4 arg-2)))(else (vector 2 (Name-Core-show_Show__Name arg-1) arg-2)))))) -(define LambdaLift-Compiler-n--6147-1386-liftConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-5 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-5))))))))))))) -(define LambdaLift-Compiler-n--6147-1338-liftConAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-5 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-2 e-3 e-5))))))))))))))) -(define LambdaLift-Compiler-n--6143-986-allVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (vector 0 lamc-0 arg-3)) (LambdaLift-Compiler-n--6143-985-allPrfs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5)))) -(define LambdaLift-Compiler-n--6143-985-allPrfs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var e-2 e-3 eta-0)) (LambdaLift-Compiler-n--6143-985-allPrfs arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))) +(define 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--6508-1211 arg-0 e-29 e-32 e-31 e-30 arg-2 arg-1 e-5 args (ANF-Compiler-toVect 'erased e-29 args))) eta-0)))))))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (lambda (eta-0) (ANF-Compiler-anfArgs arg-0 arg-1 e-34 arg-2 e-36 (lambda (eta-1) (vector 7 e-34 e-35 eta-1)) eta-0)))))) ((8) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (let ((e-41 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-anf arg-0 arg-1 arg-2 e-39) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ANF-Compiler-anfConAlt arg-0 arg-1 arg-2 eta-1)) e-40) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (ANF-Compiler-anf arg-0 arg-1 arg-2 eta-1)) e-41) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((ANF-Compiler-mlet arg-1 e-38 e-5 (lambda (x) (vector 8 e-38 x e-6 e-7))) eta-0)))))))))))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (let ((e-45 (vector-ref sc0 3))) (let ((e-46 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-anf arg-0 arg-1 arg-2 e-44) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ANF-Compiler-anfConstAlt arg-0 arg-1 arg-2 eta-1)) e-45) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (ANF-Compiler-anf arg-0 arg-1 arg-2 eta-1)) e-46) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((ANF-Compiler-mlet arg-1 e-43 e-5 (lambda (x) (vector 9 e-43 x e-6 e-7))) eta-0)))))))))))))))))))))) ((10) (let ((e-48 (vector-ref sc0 1))) (let ((e-49 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 10 e-48 e-49)))))) ((11) (let ((e-51 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 11 e-51))))) (else (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 12 e-53 e-54)))))))))) +(define LambdaLift-Compiler-case--6856-1612 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (LambdaLift-Compiler-lambdaLiftDef arg-0 e-1))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define LambdaLift-Compiler-case--6838-1600 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (LambdaLift-Compiler-case--6856-1612 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define LambdaLift-Compiler-case--6740-1564 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-1 (vector 3 e-2)) e-3)))))))) +(define LambdaLift-Compiler-case--6740-1510 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-2 (vector 0 arg-0 (vector 0 ) e-2)) e-3)))))))) +(define LambdaLift-Compiler-case--6202-1097 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 (vector 1 (vector 0 arg-6 (vector 0 arg-1 arg-0 arg-5)) e-1) e-2))))))) +(define LambdaLift-Compiler-case--6229-1031 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 0 arg-6 arg-3))) +(define LambdaLift-Compiler-case--6129-947 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 (b+ arg-2 1 63))))))) +(define LambdaLift-Compiler-n--6206-1251-traverseArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-5 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((LambdaLift-Compiler-n--6206-1251-traverseArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-6)))))))))))))))))))) +(define LambdaLift-Compiler-n--6129-908-mkName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 (LambdaLift-Compiler-n--6129-908-mkName arg-0 e-1 arg-2))))) ((1) (let ((e-2 (vector-ref sc0 1))) (vector 2 e-2 arg-2))) ((4) (let ((e-4 (vector-ref sc0 2))) (LambdaLift-Compiler-n--6129-908-mkName arg-0 e-4 arg-2)))(else (vector 2 (Name-Core-show_Show__Name arg-1) arg-2)))))) +(define LambdaLift-Compiler-n--6206-1394-liftConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-5 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-5))))))))))))) +(define LambdaLift-Compiler-n--6206-1346-liftConAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-5 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-2 e-3 e-5))))))))))))))) +(define LambdaLift-Compiler-n--6202-994-allVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (vector 0 lamc-0 arg-3)) (LambdaLift-Compiler-n--6202-993-allPrfs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5)))) +(define LambdaLift-Compiler-n--6202-993-allPrfs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var e-2 e-3 eta-0)) (LambdaLift-Compiler-n--6202-993-allPrfs arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))) (define LambdaLift-Compiler-show_Show__LiftedDef (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-0) (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (List-Data-reverse 'erased e-1)) (Strings-Prelude-C-43C-43 ": " (LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 (List-Prelude-C-43C-43 'erased e-1 e-0) e-2)))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "Constructor tag " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) e-3) (Strings-Prelude-C-43C-43 " arity " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-4) (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (n) (Strings-Prelude-C-43C-43 " (newtype by " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat n) ")")))) e-5))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "Foreign call " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) e-6) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__CFType x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__CFType d x)))) e-7) (Strings-Prelude-C-43C-43 " -> " (CompileExpr-Core-show_Show__CFType e-8)))))))))) (else (let ((e-9 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Error: " (LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 (vector 0 ) e-9)))))))) (define LambdaLift-Compiler-show_Show__C-40LiftedConstAltC-32C-36vsC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "%constalt(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-1) (Strings-Prelude-C-43C-43 ") => " (LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 arg-0 e-2))))))))) (define LambdaLift-Compiler-show_Show__C-40LiftedConAltC-32C-36vsC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "%conalt " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-1) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-3)) (Strings-Prelude-C-43C-43 ") => " (LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 (List-Prelude-C-43C-43 'erased e-3 arg-0) e-4)))))))))))) @@ -6578,89 +6646,89 @@ (define LambdaLift-Compiler-__Impl_Show_C-40LiftedC-32C-36vsC-41 (lambda (arg-0) (vector 0 (lambda (x) (LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 arg-0 x)) (lambda (d) (lambda (x) (LambdaLift-Compiler-showPrec_Show__C-40LiftedC-32C-36vsC-41 arg-0 d x)))))) (define LambdaLift-Compiler-unload (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (LambdaLift-Compiler-unload 'erased arg-1 (vector 3 arg-1 arg-2 e-2) e-3)))))))) (define LDefs-LambdaLift-Compiler-nextName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) -(define LambdaLift-Compiler-makeLam (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (LambdaLift-Compiler-makeLam arg-0 arg-1 arg-2 (vector 1 e-2 arg-3) e-3))))(else (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp (List-Prelude-C-43C-43 'erased arg-3 arg-1) arg-0 arg-4) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (LambdaLift-Compiler-genName arg-0 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 (set-box! arg-0 (let ((sc3 e-7)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (vector 0 e-0 (vector 1 (vector 0 e-6 (vector 0 arg-1 arg-3 e-5)) e-1) e-2)))))))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-2 e-6 (List-Data-length 'erased arg-3) (LambdaLift-Compiler-n--6143-986-allVars arg-3 arg-1 arg-4 arg-2 arg-0 arg-1)))))))))))))))))))))))))))) -(define LambdaLift-Compiler-liftExp (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 e-3)))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 e-6 e-7 (vector 0 ))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (LambdaLift-Compiler-makeLam arg-1 arg-0 e-9 (vector 1 e-10 (vector 0 )) e-11))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 4))) (let ((e-17 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-1 e-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((LambdaLift-Compiler-liftExp (vector 1 e-14 arg-0) arg-1 e-17) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-13 e-14 e-5 e-6)))))))))))))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((sc1 e-20)) (case (vector-ref sc1 0) ((1) (let ((e-62 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-21) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 1 e-19 e-62 e-5))))))))))(else (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-1 e-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-21) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((LambdaLift-Compiler-unload 'erased e-19 e-5 e-6) eta-0))))))))))))))))))) ((5) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-26) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-23 e-24 e-25 e-5))))))))))))) ((6) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-n--6147-1243-traverseArgs arg-0 e-28 e-31 e-30 e-29 arg-1 'erased e-31) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-28 e-29 e-30 e-5))))))))))))) ((7) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-35) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 7 e-33 e-34 e-5)))))))))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (LambdaLift-Compiler-liftExp arg-0 arg-1 (vector 4 e-37 e-38 (vector 1 (vector 13 e-37) (vector 0 ))))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (LambdaLift-Compiler-liftExp arg-0 arg-1 (vector 2 e-40 (vector 2 "act" 0) (CompileExpr-Core-weaken_Weaken__CExp (vector 2 "act" 0) arg-0 e-41)))))) ((10) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (let ((e-45 (vector-ref sc0 3))) (let ((e-46 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-1 e-44) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-n--6147-1338-liftConAlt arg-0 e-46 e-45 e-44 e-43 arg-1 eta-1)) e-45) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-46) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 8 e-43 e-5 e-6 e-7))))))))))))))))))))))) ((11) (let ((e-48 (vector-ref sc0 1))) (let ((e-49 (vector-ref sc0 2))) (let ((e-50 (vector-ref sc0 3))) (let ((e-51 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-1 e-49) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-n--6147-1386-liftConstAlt arg-0 e-51 e-50 e-49 e-48 arg-1 eta-1)) e-50) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-51) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 9 e-48 e-5 e-6 e-7))))))))))))))))))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 10 e-53 e-54)))))) ((13) (let ((e-56 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 11 e-56))))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 12 e-58 e-59)))))))))) +(define LambdaLift-Compiler-makeLam (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (LambdaLift-Compiler-makeLam arg-0 arg-1 arg-2 (vector 1 e-2 arg-3) e-3))))(else (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp (List-Prelude-C-43C-43 'erased arg-3 arg-1) arg-0 arg-4) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (LambdaLift-Compiler-genName arg-0 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 (set-box! arg-0 (let ((sc3 e-7)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (vector 0 e-0 (vector 1 (vector 0 e-6 (vector 0 arg-1 arg-3 e-5)) e-1) e-2)))))))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-2 e-6 (List-Data-length 'erased arg-3) (LambdaLift-Compiler-n--6202-994-allVars arg-3 arg-1 arg-4 arg-2 arg-0 arg-1)))))))))))))))))))))))))))) +(define LambdaLift-Compiler-liftExp (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 e-3)))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 e-6 e-7 (vector 0 ))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (LambdaLift-Compiler-makeLam arg-1 arg-0 e-9 (vector 1 e-10 (vector 0 )) e-11))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 4))) (let ((e-17 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-1 e-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((LambdaLift-Compiler-liftExp (vector 1 e-14 arg-0) arg-1 e-17) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-13 e-14 e-5 e-6)))))))))))))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((sc1 e-20)) (case (vector-ref sc1 0) ((1) (let ((e-62 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-21) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 1 e-19 e-62 e-5))))))))))(else (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-1 e-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-21) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((LambdaLift-Compiler-unload 'erased e-19 e-5 e-6) eta-0))))))))))))))))))) ((5) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-26) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-23 e-24 e-25 e-5))))))))))))) ((6) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-n--6206-1251-traverseArgs arg-0 e-28 e-31 e-30 e-29 arg-1 'erased e-31) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-28 e-29 e-30 e-5))))))))))))) ((7) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-35) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 7 e-33 e-34 e-5)))))))))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (LambdaLift-Compiler-liftExp arg-0 arg-1 (vector 4 e-37 e-38 (vector 1 (vector 13 e-37) (vector 0 ))))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (LambdaLift-Compiler-liftExp arg-0 arg-1 (vector 2 e-40 (vector 2 "act" 0) (CompileExpr-Core-weaken_Weaken__CExp (vector 2 "act" 0) arg-0 e-41)))))) ((10) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (let ((e-45 (vector-ref sc0 3))) (let ((e-46 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-1 e-44) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-n--6206-1346-liftConAlt arg-0 e-46 e-45 e-44 e-43 arg-1 eta-1)) e-45) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-46) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 8 e-43 e-5 e-6 e-7))))))))))))))))))))))) ((11) (let ((e-48 (vector-ref sc0 1))) (let ((e-49 (vector-ref sc0 2))) (let ((e-50 (vector-ref sc0 3))) (let ((e-51 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-1 e-49) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-n--6206-1394-liftConstAlt arg-0 e-51 e-50 e-49 e-48 arg-1 eta-1)) e-50) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-51) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 9 e-48 e-5 e-6 e-7))))))))))))))))))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 10 e-53 e-54)))))) ((13) (let ((e-56 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 11 e-56))))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 12 e-58 e-59)))))))))) (define LambdaLift-Compiler-liftBody (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Compiler.LambdaLift.Lifts" ) (vector 0 arg-1 (vector 0 ) 0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((LambdaLift-Compiler-liftExp arg-0 e-5 arg-2) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox e-5))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 0 e-6 (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1))))))))))))))))))))) (define LambdaLift-Compiler-lambdaLiftDef (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (LambdaLift-Compiler-liftBody e-0 arg-0 e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 1 (vector 0 arg-0 (vector 0 e-0 (vector 0 ) e-2)) e-3)))))))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-0 (vector 1 e-2 e-3 e-4)) (vector 0 )))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-0 (vector 2 e-5 e-6 e-7)) (vector 0 )))))))) (else (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (LambdaLift-Compiler-liftBody (vector 0 ) arg-0 e-8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 1 (vector 0 arg-0 (vector 3 e-2)) e-3))))))))))))))))) -(define LambdaLift-Compiler-lambdaLift (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((LambdaLift-Compiler-case--6797-1604 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-18 (vector-ref sc3 19))) e-18))) ext-0)))) (else (vector 1 (vector 0 ))))))))))))))))) -(define LambdaLift-Compiler-genName (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((i (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((act-25 (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-0 e-1 (b+ i 1 63)))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (LambdaLift-Compiler-n--6070-900-mkName arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) i)))))))))))))) +(define 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--6856-1612 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-18 (vector-ref sc3 19))) e-18))) ext-0)))) (else (vector 1 (vector 0 ))))))))))))))))) +(define LambdaLift-Compiler-genName (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((i (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((act-25 (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-0 e-1 (b+ i 1 63)))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (LambdaLift-Compiler-n--6129-908-mkName arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) i)))))))))))))) (define LDefs-LambdaLift-Compiler-defs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (define LDefs-LambdaLift-Compiler-basename (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) -(define Inline-Compiler-case--10175-3980 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (else (lambda (eta-0) (vector 1 1))))))) -(define Inline-Compiler-case--10107-3918 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-mergeLam arg-1 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Inline-Compiler-case--10089-3906 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Inline-Compiler-case--10107-3918 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Inline-Compiler-case--10024-3845 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArity arg-1 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Inline-Compiler-case--10006-3833 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Inline-Compiler-case--10024-3845 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Inline-Compiler-case--9941-3772 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-inline arg-1 arg-0 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Inline-Compiler-case--9923-3760 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Inline-Compiler-case--9941-3772 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Inline-Compiler-case--9893-3726 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 e-3)))))))) -(define Inline-Compiler-case--9730-3581 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((expNs (CompileExpr-Core-substs e-2 arg-1 e-6 e-7))) (let ((newArgs (List-Data-reverse 'erased (Inline-Compiler-getNewArgs 'erased e-2 e-6)))) (let ((expLocs (CompileExpr-Core-mkLocals arg-1 newArgs (vector 0 ) (Inline-Compiler-mkBounds newArgs) expNs))) (vector 0 (List-Prelude-C-43C-43 'erased arg-1 (List-Prelude-C-43C-43 'erased newArgs (vector 0 ))) expLocs)))))))))))) -(define Inline-Compiler-case--9161-3039 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((arity (Inline-Compiler-getArity e-1))) (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 arity (vector 4 arg-2 (vector 1 arg-2 arg-1) (vector 0 )) arg-3)))))) (else (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-3 (vector 1 arg-2 arg-1))))))))) -(define Inline-Compiler-case--9135-3021 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Inline-Compiler-case--9161-3039 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-3 (vector 1 arg-2 arg-1))))))))) -(define Inline-Compiler-case--7196-2915 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (Inline-Compiler-eval arg-4 arg-3 arg-0 arg-12 arg-11 arg-10 arg-9 arg-5) eta-0))) (else (Inline-Compiler-pickConstAlt arg-4 arg-3 arg-0 arg-12 arg-11 arg-10 arg-9 (vector 12 arg-2 arg-1) arg-7 arg-8)))))) -(define Inline-Compiler-case--8773-2726 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((envC-39 (Inline-Compiler-extend 'erased 'erased arg-13 arg-1 arg-5 e-2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval (List-Prelude-C-43C-43 'erased arg-5 arg-6) arg-0 arg-16 arg-15 arg-14 envC-39 arg-12 arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))))))))))) -(define Inline-Compiler-case--7189-2685 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (Inline-Compiler-case--8773-2726 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 (LengthMatch-Data-checkLengthMatch 'erased 'erased arg-1 arg-5))) (else (Inline-Compiler-pickAlt arg-6 arg-0 arg-16 arg-15 arg-14 arg-13 arg-12 (vector 5 arg-4 arg-3 arg-2 arg-1) arg-10 arg-11)))))) -(define Inline-Compiler-case--7177-2555 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval (List-Prelude-C-43C-43 'erased arg-0 arg-2) arg-1 arg-11 arg-10 arg-8 e-3 arg-6 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 arg-5 arg-4 arg-0 (CompileExpr-Core-refsToLocals arg-0 arg-1 e-2 e-5)))))))))))))) -(define Inline-Compiler-case--7172-2510 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-2 arg-7 e-2) (vector 1 (vector 1 arg-5 arg-7) e-3))))))))) -(define Inline-Compiler-case--7166-2360 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-10 arg-9 arg-8 arg-7 arg-6 eta-1)) arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-10 arg-9 arg-8 arg-7 arg-6 eta-1)) arg-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 11 arg-5 arg-11 e-6 e-5)))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))))))) -(define Inline-Compiler-case--7166-2249 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-10 arg-9 arg-8 arg-7 arg-6 eta-1)) arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-10 arg-9 arg-5 arg-8 arg-7 arg-6 eta-1)) arg-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 10 arg-5 arg-11 e-6 e-5)))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))))))) -(define Inline-Compiler-case--7166-2148 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((9) (let ((e-2 (vector-ref sc0 2))) (Inline-Compiler-eval (vector 0 ) arg-1 arg-8 arg-7 arg-6 (vector 0 ) arg-4 e-2)))(else (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-4 (vector 8 arg-3 arg-9))))))))) -(define Inline-Compiler-case--7166-1912 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-2 arg-1 arg-10 arg-9 arg-8 arg-7 (vector 0 ) arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Inline-Compiler-eval (vector 1 arg-0 arg-2) arg-1 arg-10 arg-9 arg-8 (vector 1 e-5 arg-7) arg-6 arg-3) eta-0)))))))) (else (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-9 "letv" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 arg-0 arg-2) arg-1 arg-10 arg-9 arg-8 (vector 1 (vector 1 arg-5 e-5) arg-7) arg-6 arg-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Inline-Compiler-eval arg-2 arg-1 arg-10 arg-9 arg-8 arg-7 (vector 0 ) arg-4) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 arg-5 arg-0 0 e-7 (Inline-Compiler-refToLocal arg-1 e-5 arg-0 e-6)))))))))))))))))))))))) -(define Inline-Compiler-case--7605-1662 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-tryApply arg-0 arg-1 arg-8 arg-7 (vector 1 arg-2 arg-6) arg-4 arg-5 arg-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Prelude-maybe 'erased 'erased (lambda () (Inline-Compiler-unloadApp 'erased arg-13 arg-4 (vector 1 arg-3 arg-2))) (lambda () (lambda (eta-1) eta-1)) e-5))))))))) (else (lambda (eta-0) (vector 1 (Inline-Compiler-unloadApp 'erased arg-13 arg-4 (vector 1 arg-3 arg-2))))))))) -(define Inline-Compiler-case--7568-1623 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((arity (Inline-Compiler-getArity e-1))) (Inline-Compiler-case--7605-1662 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-1 arity (Prelude-C-38C-38 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__DefFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__DefFlag arg-430 arg-431)))) (vector 0 ) (let ((sc1 arg-10)) (let ((e-11 (vector-ref sc1 12))) e-11))) (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-2 arg-6)))))))) (else (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-4 (vector 1 arg-3 arg-2))))))))) -(define Inline-Compiler-case--7166-1597 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Inline-Compiler-case--7568-1623 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-4 (vector 1 arg-3 arg-2))))))))) -(define Inline-Compiler-case--7161-1395 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval (List-Prelude-C-43C-43 'erased arg-0 arg-3) arg-2 arg-8 arg-7 arg-6 e-5 e-6 (CompileExpr-Core-embed 'erased 'erased arg-1)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 1 e-7))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Inline-Compiler-case--7154-1307 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-4)))(else (Inline-Compiler-eval arg-2 arg-0 arg-10 arg-9 arg-7 arg-3 arg-6 (CompileExpr-Core-weakenNs_Weaken__CExp arg-0 arg-2 arg-4))))))) -(define Inline-Compiler-case--6656-1163 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Inline-Compiler-used 'erased (List-Prelude-C-43C-43 'erased arg-5 arg-1) arg-8 'erased arg-6))) -(define Inline-Compiler-case--6653-845 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) 1000) (else arg-8))))) -(define Inline-Compiler-case--6653-752 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) 1) (else 0))))) -(define Inline-Compiler-case--6591-699 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Inline-Compiler-largest 'erased arg-1 arg-2 arg-3)) (else (Inline-Compiler-largest 'erased arg-1 arg-4 arg-3)))))) -(define Inline-Compiler-case--6456-585 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (vector 1 arg-2 e-2) e-3))))))) -(define Inline-Compiler-n--9135-3206-traverseArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-7 arg-5 e-3 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Inline-Compiler-n--9135-3206-traverseArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-6)))))))))))))))))))) -(define Inline-Compiler-n--10172-3962-nonErased (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc3 e-1)) (let ((e-7 (vector-ref sc3 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))) (else (vector 1 1)))))))))))))))) -(define Inline-Compiler-n--7189-2648-matches (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-20)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__Int e-1 e-4)))(else 1))))) ((0) (let ((sc1 arg-20)) (case (vector-ref sc1 0) ((0) (Name-Core-C-61C-61_Eq__Name arg-17 arg-19))(else 1))))(else 1))))) -(define Inline-Compiler-n--9135-3377-fixArityConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-6 e-2 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-5))))))))))))) -(define Inline-Compiler-n--9135-3320-fixArityAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-6 e-4 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-2 e-3 e-5))))))))))))))) +(define Inline-Compiler-case--10234-3988 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (else (lambda (eta-0) (vector 1 1))))))) +(define Inline-Compiler-case--10166-3926 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-mergeLam arg-1 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Inline-Compiler-case--10148-3914 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Inline-Compiler-case--10166-3926 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Inline-Compiler-case--10083-3853 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArity arg-1 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Inline-Compiler-case--10065-3841 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Inline-Compiler-case--10083-3853 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Inline-Compiler-case--10000-3780 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-inline arg-1 arg-0 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Inline-Compiler-case--9982-3768 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Inline-Compiler-case--10000-3780 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Inline-Compiler-case--9952-3734 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 e-3)))))))) +(define Inline-Compiler-case--9789-3589 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((expNs (CompileExpr-Core-substs e-2 arg-1 e-6 e-7))) (let ((newArgs (List-Data-reverse 'erased (Inline-Compiler-getNewArgs 'erased e-2 e-6)))) (let ((expLocs (CompileExpr-Core-mkLocals arg-1 newArgs (vector 0 ) (Inline-Compiler-mkBounds newArgs) expNs))) (vector 0 (List-Prelude-C-43C-43 'erased arg-1 (List-Prelude-C-43C-43 'erased newArgs (vector 0 ))) expLocs)))))))))))) +(define Inline-Compiler-case--9220-3047 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((arity (Inline-Compiler-getArity e-1))) (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 arity (vector 4 arg-2 (vector 1 arg-2 arg-1) (vector 0 )) arg-3)))))) (else (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-3 (vector 1 arg-2 arg-1))))))))) +(define Inline-Compiler-case--9194-3029 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Inline-Compiler-case--9220-3047 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-3 (vector 1 arg-2 arg-1))))))))) +(define Inline-Compiler-case--7255-2923 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (Inline-Compiler-eval arg-4 arg-3 arg-0 arg-12 arg-11 arg-10 arg-9 arg-5) eta-0))) (else (Inline-Compiler-pickConstAlt arg-4 arg-3 arg-0 arg-12 arg-11 arg-10 arg-9 (vector 12 arg-2 arg-1) arg-7 arg-8)))))) +(define Inline-Compiler-case--8832-2734 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((envC-39 (Inline-Compiler-extend 'erased 'erased arg-13 arg-1 arg-5 e-2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval (List-Prelude-C-43C-43 'erased arg-5 arg-6) arg-0 arg-16 arg-15 arg-14 envC-39 arg-12 arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))))))))))) +(define Inline-Compiler-case--7248-2693 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (Inline-Compiler-case--8832-2734 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 (LengthMatch-Data-checkLengthMatch 'erased 'erased arg-1 arg-5))) (else (Inline-Compiler-pickAlt arg-6 arg-0 arg-16 arg-15 arg-14 arg-13 arg-12 (vector 5 arg-4 arg-3 arg-2 arg-1) arg-10 arg-11)))))) +(define Inline-Compiler-case--7236-2563 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval (List-Prelude-C-43C-43 'erased arg-0 arg-2) arg-1 arg-11 arg-10 arg-8 e-3 arg-6 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 arg-5 arg-4 arg-0 (CompileExpr-Core-refsToLocals arg-0 arg-1 e-2 e-5)))))))))))))) +(define Inline-Compiler-case--7231-2518 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-2 arg-7 e-2) (vector 1 (vector 1 arg-5 arg-7) e-3))))))))) +(define Inline-Compiler-case--7225-2368 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-10 arg-9 arg-8 arg-7 arg-6 eta-1)) arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-10 arg-9 arg-8 arg-7 arg-6 eta-1)) arg-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 11 arg-5 arg-11 e-6 e-5)))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))))))) +(define Inline-Compiler-case--7225-2257 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-10 arg-9 arg-8 arg-7 arg-6 eta-1)) arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-10 arg-9 arg-5 arg-8 arg-7 arg-6 eta-1)) arg-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 10 arg-5 arg-11 e-6 e-5)))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))))))) +(define Inline-Compiler-case--7225-2156 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((9) (let ((e-2 (vector-ref sc0 2))) (Inline-Compiler-eval (vector 0 ) arg-1 arg-8 arg-7 arg-6 (vector 0 ) arg-4 e-2)))(else (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-4 (vector 8 arg-3 arg-9))))))))) +(define Inline-Compiler-case--7225-1920 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-2 arg-1 arg-10 arg-9 arg-8 arg-7 (vector 0 ) arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Inline-Compiler-eval (vector 1 arg-0 arg-2) arg-1 arg-10 arg-9 arg-8 (vector 1 e-5 arg-7) arg-6 arg-3) eta-0)))))))) (else (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-9 "letv" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 arg-0 arg-2) arg-1 arg-10 arg-9 arg-8 (vector 1 (vector 1 arg-5 e-5) arg-7) arg-6 arg-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Inline-Compiler-eval arg-2 arg-1 arg-10 arg-9 arg-8 arg-7 (vector 0 ) arg-4) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 arg-5 arg-0 0 e-7 (Inline-Compiler-refToLocal arg-1 e-5 arg-0 e-6)))))))))))))))))))))))) +(define Inline-Compiler-case--7664-1670 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-tryApply arg-0 arg-1 arg-8 arg-7 (vector 1 arg-2 arg-6) arg-4 arg-5 arg-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Prelude-maybe 'erased 'erased (lambda () (Inline-Compiler-unloadApp 'erased arg-13 arg-4 (vector 1 arg-3 arg-2))) (lambda () (lambda (eta-1) eta-1)) e-5))))))))) (else (lambda (eta-0) (vector 1 (Inline-Compiler-unloadApp 'erased arg-13 arg-4 (vector 1 arg-3 arg-2))))))))) +(define Inline-Compiler-case--7627-1631 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((arity (Inline-Compiler-getArity e-1))) (Inline-Compiler-case--7664-1670 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-1 arity (Prelude-C-38C-38 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Context-Core-C-61C-61_Eq__DefFlag arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Context-Core-C-47C-61_Eq__DefFlag arg-438 arg-439)))) (vector 0 ) (let ((sc1 arg-10)) (let ((e-11 (vector-ref sc1 12))) e-11))) (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) arg-2 arg-6)))))))) (else (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-4 (vector 1 arg-3 arg-2))))))))) +(define Inline-Compiler-case--7225-1605 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Inline-Compiler-case--7627-1631 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-4 (vector 1 arg-3 arg-2))))))))) +(define Inline-Compiler-case--7220-1403 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval (List-Prelude-C-43C-43 'erased arg-0 arg-3) arg-2 arg-8 arg-7 arg-6 e-5 e-6 (CompileExpr-Core-embed 'erased 'erased arg-1)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 1 e-7))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Inline-Compiler-case--7213-1315 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-4)))(else (Inline-Compiler-eval arg-2 arg-0 arg-10 arg-9 arg-7 arg-3 arg-6 (CompileExpr-Core-weakenNs_Weaken__CExp arg-0 arg-2 arg-4))))))) +(define Inline-Compiler-case--6715-1171 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Inline-Compiler-used 'erased (List-Prelude-C-43C-43 'erased arg-5 arg-1) arg-8 'erased arg-6))) +(define Inline-Compiler-case--6712-853 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) 1000) (else arg-8))))) +(define Inline-Compiler-case--6712-760 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) 1) (else 0))))) +(define Inline-Compiler-case--6650-707 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Inline-Compiler-largest 'erased arg-1 arg-2 arg-3)) (else (Inline-Compiler-largest 'erased arg-1 arg-4 arg-3)))))) +(define Inline-Compiler-case--6515-593 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (vector 1 arg-2 e-2) e-3))))))) +(define Inline-Compiler-n--9194-3214-traverseArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-7 arg-5 e-3 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Inline-Compiler-n--9194-3214-traverseArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-6)))))))))))))))))))) +(define Inline-Compiler-n--10231-3970-nonErased (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc3 e-1)) (let ((e-7 (vector-ref sc3 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))) (else (vector 1 1)))))))))))))))) +(define Inline-Compiler-n--7248-2656-matches (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-20)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__Int e-1 e-4)))(else 1))))) ((0) (let ((sc1 arg-20)) (case (vector-ref sc1 0) ((0) (Name-Core-C-61C-61_Eq__Name arg-17 arg-19))(else 1))))(else 1))))) +(define Inline-Compiler-n--9194-3385-fixArityConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-6 e-2 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-5))))))))))))) +(define Inline-Compiler-n--9194-3328-fixArityAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-6 e-4 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-2 e-3 e-5))))))))))))))) (define Inline-Compiler-usedConst (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 2))) (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-2))))) -(define Inline-Compiler-usedCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (Inline-Compiler-case--6656-1163 'erased arg-1 arg-2 e-1 e-2 e-3 e-4 'erased (TT-Core-weakenNs_Weaken__Var arg-1 e-3 arg-2))))))))) -(define Inline-Compiler-used (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Inline-Compiler-case--6653-752 'erased arg-1 'erased e-3 e-2 'erased arg-2 'erased (Prelude-C-61C-61_Eq__Nat arg-2 e-2))))) ((2) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (Inline-Compiler-used 'erased (vector 1 e-7 arg-1) (+ 1 arg-2) 'erased e-8)))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (let ((sc1 e-12)) (cond ((equal? sc1 1) (let ((usedl (b+ (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-13) (Inline-Compiler-used 'erased (vector 1 e-11 arg-1) (+ 1 arg-2) 'erased e-14) 63))) (Inline-Compiler-case--6653-845 'erased arg-1 arg-2 e-10 e-11 e-14 e-13 'erased usedl (Prelude-C-62_Ord__Int usedl 0)))) ((equal? sc1 0) (b+ (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-13) (Inline-Compiler-used 'erased (vector 1 e-11 arg-1) (+ 1 arg-2) 'erased e-14) 63))(else 0))))))))) ((4) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (Prelude-foldr_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (b+ eta-0 eta-1 63))) (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-17) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0)) e-18))))) ((5) (let ((e-23 (vector-ref sc0 4))) (Prelude-foldr_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (b+ eta-0 eta-1 63))) 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0)) e-23)))) ((6) (let ((e-28 (vector-ref sc0 4))) (Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (b+ eta-0 eta-1 63))) 0 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0)) e-28)))) ((7) (let ((e-32 (vector-ref sc0 3))) (Prelude-foldr_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (b+ eta-0 eta-1 63))) 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0)) e-32)))) ((8) (let ((e-35 (vector-ref sc0 2))) (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-35))) ((9) (let ((e-38 (vector-ref sc0 2))) (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-38))) ((10) (let ((e-41 (vector-ref sc0 2))) (let ((e-42 (vector-ref sc0 3))) (let ((e-43 (vector-ref sc0 4))) (b+ (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-41) (Inline-Compiler-largest 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) (Prelude-maybe 'erased 'erased (lambda () 0) (lambda () (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0))) e-43) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-usedCon 'erased arg-1 arg-2 'erased eta-0)) e-42)) 63))))) ((11) (let ((e-46 (vector-ref sc0 2))) (let ((e-47 (vector-ref sc0 3))) (let ((e-48 (vector-ref sc0 4))) (b+ (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-46) (Inline-Compiler-largest 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) (Prelude-maybe 'erased 'erased (lambda () 0) (lambda () (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0))) e-48) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-usedConst 'erased arg-1 arg-2 'erased eta-0)) e-47)) 63)))))(else 0))))) +(define Inline-Compiler-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--6715-1171 'erased arg-1 arg-2 e-1 e-2 e-3 e-4 'erased (TT-Core-weakenNs_Weaken__Var arg-1 e-3 arg-2))))))))) +(define Inline-Compiler-used (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Inline-Compiler-case--6712-760 'erased arg-1 'erased e-3 e-2 'erased arg-2 'erased (Prelude-C-61C-61_Eq__Nat arg-2 e-2))))) ((2) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (Inline-Compiler-used 'erased (vector 1 e-7 arg-1) (+ 1 arg-2) 'erased e-8)))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (let ((sc1 e-12)) (cond ((equal? sc1 1) (let ((usedl (b+ (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-13) (Inline-Compiler-used 'erased (vector 1 e-11 arg-1) (+ 1 arg-2) 'erased e-14) 63))) (Inline-Compiler-case--6712-853 'erased arg-1 arg-2 e-10 e-11 e-14 e-13 'erased usedl (Prelude-C-62_Ord__Int usedl 0)))) ((equal? sc1 0) (b+ (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-13) (Inline-Compiler-used 'erased (vector 1 e-11 arg-1) (+ 1 arg-2) 'erased e-14) 63))(else 0))))))))) ((4) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (Prelude-foldr_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (b+ eta-0 eta-1 63))) (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-17) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0)) e-18))))) ((5) (let ((e-23 (vector-ref sc0 4))) (Prelude-foldr_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (b+ eta-0 eta-1 63))) 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0)) e-23)))) ((6) (let ((e-28 (vector-ref sc0 4))) (Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (b+ eta-0 eta-1 63))) 0 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0)) e-28)))) ((7) (let ((e-32 (vector-ref sc0 3))) (Prelude-foldr_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (b+ eta-0 eta-1 63))) 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0)) e-32)))) ((8) (let ((e-35 (vector-ref sc0 2))) (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-35))) ((9) (let ((e-38 (vector-ref sc0 2))) (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-38))) ((10) (let ((e-41 (vector-ref sc0 2))) (let ((e-42 (vector-ref sc0 3))) (let ((e-43 (vector-ref sc0 4))) (b+ (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-41) (Inline-Compiler-largest 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) (Prelude-maybe 'erased 'erased (lambda () 0) (lambda () (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0))) e-43) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-usedCon 'erased arg-1 arg-2 'erased eta-0)) e-42)) 63))))) ((11) (let ((e-46 (vector-ref sc0 2))) (let ((e-47 (vector-ref sc0 3))) (let ((e-48 (vector-ref sc0 4))) (b+ (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-46) (Inline-Compiler-largest 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) (Prelude-maybe 'erased 'erased (lambda () 0) (lambda () (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0))) e-48) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-usedConst 'erased arg-1 arg-2 'erased eta-0)) e-47)) 63)))))(else 0))))) (define Inline-Compiler-unloadApp (lambda (arg-0 arg-1 arg-2 arg-3) (Inline-Compiler-unload 'erased (List-Data-drop 'erased arg-1 arg-2) (vector 4 (CompileExpr-Core-getFC 'erased arg-3) arg-3 (List-Data-take 'erased arg-1 arg-2))))) (define Inline-Compiler-unload (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Inline-Compiler-unload 'erased e-3 (vector 4 (CompileExpr-Core-getFC 'erased arg-2) arg-2 (vector 1 e-2 (vector 0 ))))))))))) -(define Inline-Compiler-tryApply (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Inline-Compiler-case--7161-1395 e-0 e-1 arg-1 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 (Inline-Compiler-takeFromStack 'erased 'erased arg-6 arg-5 e-0)))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Inline-Compiler-tryApply (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Inline-Compiler-case--7220-1403 e-0 e-1 arg-1 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 (Inline-Compiler-takeFromStack 'erased 'erased arg-6 arg-5 e-0)))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define Inline-Compiler-takeFromStack (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Inline-Compiler-takeFromStack 'erased 'erased arg-2 e-4 e-7) (lambda (_-0) (let ((sc2 _-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (vector 1 e-3 e-2) e-5)))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-2 arg-3)))(else (let ((sc1 arg-3)) (vector 0 )))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-2 arg-3)))(else (let ((sc0 arg-3)) (vector 0 )))))))))) (define Inline-Compiler-refToLocal (lambda (arg-0 arg-1 arg-2 arg-3) (CompileExpr-Core-refsToLocals (vector 1 arg-2 (vector 0 )) arg-0 (vector 1 arg-2 arg-1 (vector 0 )) arg-3))) -(define Inline-Compiler-pickConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((12) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (Core-Core-traverseOpt 'erased 'erased (lambda (eta-0) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) arg-9)) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (Inline-Compiler-case--7196-2915 arg-2 e-2 e-1 arg-1 arg-0 e-9 e-8 e-6 arg-9 arg-6 arg-5 arg-4 arg-3 (TT-Core-C-61C-61_Eq__Constant e-2 e-8)))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Inline-Compiler-pickAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((5) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (Core-Core-traverseOpt 'erased 'erased (lambda (eta-0) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) arg-9)) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (let ((e-13 (vector-ref sc2 4))) (Inline-Compiler-case--7189-2685 arg-1 e-4 e-3 e-2 e-1 e-12 arg-0 e-13 e-11 e-10 e-8 arg-9 arg-6 arg-5 arg-4 arg-3 arg-2 (Inline-Compiler-n--7189-2648-matches arg-1 e-4 e-3 e-2 e-1 e-12 arg-0 e-13 e-11 e-10 e-8 arg-9 arg-6 arg-5 arg-4 arg-3 arg-2 e-2 e-3 e-10 e-11)))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Inline-Compiler-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--7255-2923 arg-2 e-2 e-1 arg-1 arg-0 e-9 e-8 e-6 arg-9 arg-6 arg-5 arg-4 arg-3 (TT-Core-C-61C-61_Eq__Constant e-2 e-8)))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Inline-Compiler-pickAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((5) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (Core-Core-traverseOpt 'erased 'erased (lambda (eta-0) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) arg-9)) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (let ((e-13 (vector-ref sc2 4))) (Inline-Compiler-case--7248-2693 arg-1 e-4 e-3 e-2 e-1 e-12 arg-0 e-13 e-11 e-10 e-8 arg-9 arg-6 arg-5 arg-4 arg-3 arg-2 (Inline-Compiler-n--7248-2656-matches arg-1 e-4 e-3 e-2 e-1 e-12 arg-0 e-13 e-11 e-10 e-8 arg-9 arg-6 arg-5 arg-4 arg-3 arg-2 e-2 e-3 e-10 e-11)))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define Inline-Compiler-mkBounds (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 e-2 (Inline-Compiler-mkBounds e-3))))))))) -(define Inline-Compiler-mergeLambdas (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Inline-Compiler-case--9730-3581 e-2 arg-0 e-3 e-1 (Inline-Compiler-getLams 'erased (vector 0 ) 0 (vector 0 ) (vector 2 e-1 e-2 e-3)))))))(else (vector 0 arg-0 arg-1)))))) -(define Inline-Compiler-mergeLamDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--10107-3918 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-18 (vector-ref sc3 19))) e-18))) ext-0)))) (else (vector 1 (vector 0 ))))))))))))))))) -(define Inline-Compiler-mergeLam (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Inline-Compiler-case--9893-3726 e-0 e-1 arg-0 (Inline-Compiler-mergeLambdas e-0 e-1)))))(else (lambda (eta-0) (vector 1 arg-1))))))) -(define Inline-Compiler-largest (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Inline-Compiler-case--6591-699 'erased arg-1 e-2 e-3 arg-2 (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 4))) ((e-4 e-2) arg-2))))))))))) -(define Inline-Compiler-inlineDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--9941-3772 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-18 (vector-ref sc3 19))) e-18))) ext-0)))) (else (vector 1 (vector 0 ))))))))))))))))) +(define Inline-Compiler-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--9789-3589 e-2 arg-0 e-3 e-1 (Inline-Compiler-getLams 'erased (vector 0 ) 0 (vector 0 ) (vector 2 e-1 e-2 e-3)))))))(else (vector 0 arg-0 arg-1)))))) +(define Inline-Compiler-mergeLamDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--10166-3926 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-18 (vector-ref sc3 19))) e-18))) ext-0)))) (else (vector 1 (vector 0 ))))))))))))))))) +(define Inline-Compiler-mergeLam (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Inline-Compiler-case--9952-3734 e-0 e-1 arg-0 (Inline-Compiler-mergeLambdas e-0 e-1)))))(else (lambda (eta-0) (vector 1 arg-1))))))) +(define Inline-Compiler-largest (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Inline-Compiler-case--6650-707 'erased arg-1 e-2 e-3 arg-2 (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 4))) ((e-4 e-2) arg-2))))))))))) +(define Inline-Compiler-inlineDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--10000-3780 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-18 (vector-ref sc3 19))) e-18))) ext-0)))) (else (vector 1 (vector 0 ))))))))))))))))) (define Inline-Compiler-inline (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-doEval e-0 arg-0 arg-1 e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-5)))))))))))(else (lambda (eta-0) (vector 1 arg-2))))))) (define Inline-Compiler-getNewArgs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 2))) (vector 1 e-12 (Inline-Compiler-getNewArgs 'erased e-3 e-9))))(else (vector 1 e-2 (Inline-Compiler-getNewArgs 'erased e-3 e-9))))))))))))))) (define Inline-Compiler-getLams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Inline-Compiler-getLams 'erased (vector 1 e-2 arg-1) (b+ arg-2 1 63) (vector 1 (vector 1 e-1 (vector 2 "ext" arg-2)) arg-3) e-3)))))(else (vector 0 arg-1 (vector 0 arg-3 arg-4))))))) (define Inline-Compiler-getArity (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (List-Data-length 'erased e-0))) ((1) (let ((e-3 (vector-ref sc0 2))) e-3)) ((2) (let ((e-6 (vector-ref sc0 2))) (List-Data-length 'erased e-6))) (else 0))))) (define Inline-Compiler-genName (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (b+ e-5 1 63)))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-1 e-5))))))))))))) -(define Inline-Compiler-fixArityTm (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-3 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--9161-3039 arg-0 e-3 e-2 arg-3 arg-1 e-5 e-1 _-0 (let ((sc4 e-1)) (let ((e-18 (vector-ref sc4 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-3 (vector 1 e-2 e-3)))))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm (vector 1 e-6 arg-0) arg-1 e-7 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 2 e-5 e-6 e-8) arg-3)))))))))))) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((e-12 (vector-ref sc0 4))) (let ((e-13 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-12 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Inline-Compiler-fixArityTm (vector 1 e-10 arg-0) arg-1 e-13 (vector 0 )) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 3 e-9 e-10 e-11 e-5 e-6) arg-3))))))))))))))))))) ((4) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-17) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Inline-Compiler-fixArityTm arg-0 arg-1 e-16 (List-Prelude-C-43C-43 'erased e-5 arg-3)) eta-0)))))))))) ((5) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-22) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 5 e-19 e-20 e-21 e-5)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3)))))))))))))) ((6) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (let ((e-27 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-n--9135-3206-traverseArgs arg-0 e-24 e-27 e-26 e-25 arg-1 'erased arg-0 e-27) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 6 e-24 e-25 e-26 e-5)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3)))))))))))))) ((7) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-31) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 7 e-29 e-30 e-5)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3))))))))))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-34 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 8 e-33 e-5) arg-3))))))))))) ((9) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-37 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 9 e-36 e-5) arg-3))))))))))) ((10) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (let ((e-42 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-40 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-n--9135-3320-fixArityAlt arg-0 e-42 e-41 e-40 e-39 arg-3 arg-1 eta-1)) e-41) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-42) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 10 e-39 e-5 e-6 e-7) arg-3))))))))))))))))))))))) ((11) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (let ((e-46 (vector-ref sc0 3))) (let ((e-47 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-45 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-n--9135-3377-fixArityConstAlt arg-0 e-47 e-46 e-45 e-44 arg-3 arg-1 eta-1)) e-46) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-47) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 11 e-44 e-5 e-6 e-7) arg-3)))))))))))))))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3))))))))))) +(define Inline-Compiler-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--9220-3047 arg-0 e-3 e-2 arg-3 arg-1 e-5 e-1 _-0 (let ((sc4 e-1)) (let ((e-18 (vector-ref sc4 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-3 (vector 1 e-2 e-3)))))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm (vector 1 e-6 arg-0) arg-1 e-7 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 2 e-5 e-6 e-8) arg-3)))))))))))) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((e-12 (vector-ref sc0 4))) (let ((e-13 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-12 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Inline-Compiler-fixArityTm (vector 1 e-10 arg-0) arg-1 e-13 (vector 0 )) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 3 e-9 e-10 e-11 e-5 e-6) arg-3))))))))))))))))))) ((4) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-17) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Inline-Compiler-fixArityTm arg-0 arg-1 e-16 (List-Prelude-C-43C-43 'erased e-5 arg-3)) eta-0)))))))))) ((5) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-22) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 5 e-19 e-20 e-21 e-5)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3)))))))))))))) ((6) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (let ((e-27 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-n--9194-3214-traverseArgs arg-0 e-24 e-27 e-26 e-25 arg-1 'erased arg-0 e-27) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 6 e-24 e-25 e-26 e-5)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3)))))))))))))) ((7) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-31) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 7 e-29 e-30 e-5)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3))))))))))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-34 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 8 e-33 e-5) arg-3))))))))))) ((9) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-37 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 9 e-36 e-5) arg-3))))))))))) ((10) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (let ((e-42 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-40 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-n--9194-3328-fixArityAlt arg-0 e-42 e-41 e-40 e-39 arg-3 arg-1 eta-1)) e-41) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-42) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 10 e-39 e-5 e-6 e-7) arg-3))))))))))))))))))))))) ((11) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (let ((e-46 (vector-ref sc0 3))) (let ((e-47 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-45 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-n--9194-3385-fixArityConstAlt arg-0 e-47 e-46 e-45 e-44 arg-3 arg-1 eta-1)) e-46) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-47) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 11 e-44 e-5 e-6 e-7) arg-3)))))))))))))))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3))))))))))) (define Inline-Compiler-fixArityExp (lambda (arg-0 arg-1 arg-2) (Inline-Compiler-fixArityTm arg-0 arg-1 arg-2 (vector 0 )))) -(define Inline-Compiler-fixArityDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--10024-3845 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-18 (vector-ref sc3 19))) e-18))) ext-0)))) (else (vector 1 (vector 0 ))))))))))))))))) +(define Inline-Compiler-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--10083-3853 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-18 (vector-ref sc3 19))) e-18))) ext-0)))) (else (vector 1 (vector 0 ))))))))))))))))) (define Inline-Compiler-fixArity (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm e-0 arg-0 e-1 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-5))))))))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm (vector 0 ) arg-0 e-2 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))))))(else (lambda (eta-0) (vector 1 arg-1))))))) (define Inline-Compiler-extendLoc (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-4)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-2 "cv" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Inline-Compiler-extendLoc 'erased 'erased arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 1 e-2 e-5 e-7) (vector 1 (vector 1 arg-3 e-5) e-4)))))))))))))))))))))))) (define Inline-Compiler-extend (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (let ((sc2 arg-5)) arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 arg-5)) (let ((e-16 (vector-ref sc2 1))) (vector 1 e-2 (Inline-Compiler-extend 'erased 'erased arg-2 e-3 e-9 e-16))))))))))))) (define Inline-Compiler-evalLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-7 (vector 0 arg-9 arg-5))))) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 arg-9)) (cond ((equal? sc2 0) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 e-7)))(else (Inline-Compiler-eval e-3 arg-2 arg-3 arg-4 arg-6 e-8 arg-7 (CompileExpr-Core-weakenNs_Weaken__CExp arg-2 e-3 e-7))))))(else (let ((e-9 (- arg-9 1))) (Inline-Compiler-evalLocal 'erased e-3 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-8 e-9 'erased)))))))))))))) (define Inline-Compiler-evalConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-5))))))) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2) eta-0))))))) (define Inline-Compiler-evalAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-extendLoc 'erased 'erased arg-3 arg-4 arg-6 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((act-25 ((Inline-Compiler-eval (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 arg-2 arg-3 arg-5 e-6 arg-7 e-4) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 0 e-1 e-2 e-3 (CompileExpr-Core-refsToLocals e-3 arg-1 e-7 e-8)))))))))))))))))))))))) -(define Inline-Compiler-eval (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-90 (vector-ref sc0 1))) (let ((e-91 (vector-ref sc0 2))) (Inline-Compiler-evalLocal 'erased arg-0 arg-1 arg-2 arg-3 e-91 arg-4 arg-6 arg-5 e-90 'erased))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-65 (vector-ref sc0 2))) (let ((sc1 e-65)) (case (vector-ref sc1 0) ((1) (let ((e-68 (vector-ref sc1 2))) (let ((sc2 e-68)) (case (vector-ref sc2 0) ((1) (let ((e-70 (vector-ref sc2 1))) (let ((e-71 (vector-ref sc2 2))) (let ((sc3 e-71)) (case (vector-ref sc3 0) ((1) (let ((e-73 (vector-ref sc3 1))) (let ((e-74 (vector-ref sc3 2))) (let ((sc4 e-74)) (case (vector-ref sc4 0) ((1) (let ((e-76 (vector-ref sc4 1))) (let ((e-77 (vector-ref sc4 2))) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-79 (vector-ref sc5 1))) (let ((e-80 (vector-ref sc5 2))) (let ((sc6 e-80)) (case (vector-ref sc6 0) ((0) (let ((e-81 (vector-ref sc6 1))) (let ((e-82 (vector-ref sc6 2))) (let ((sc7 e-81)) (case (vector-ref sc7 0) ((1) (let ((e-84 (vector-ref sc7 1))) (let ((e-85 (vector-ref sc7 2))) (let ((sc8 e-84)) (cond ((equal? sc8 "PrimIO") (let ((sc9 e-85)) (case (vector-ref sc9 0) ((0) (let ((sc10 e-82)) (case (vector-ref sc10 0) ((1) (let ((e-87 (vector-ref sc10 1))) (let ((sc11 e-87)) (cond ((equal? sc11 "io_bind") (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "act" eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) (vector 0 ) (vector 4 e-79 e-73 (vector 1 (vector 1 e-79 e-5) (vector 1 e-76 (vector 0 ))))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased e-77 (vector 3 e-79 e-5 1 (vector 4 e-79 e-70 (vector 1 e-76 (vector 0 ))) (Inline-Compiler-refToLocal arg-1 e-5 e-5 e-6))))))))))))))))(else (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((1) (let ((e-61 (vector-ref sc11 1))) (let ((e-62 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc13 e-5)) (let ((e-0 (vector-ref sc13 1))) e-0))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((sc14 e-6)) (case (vector-ref sc14 0) ((1) (let ((e-1 (vector-ref sc14 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc15 e-1)) (let ((e-18 (vector-ref sc15 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc11 arg-6)) (case (vector-ref sc11 0) ((0) (let ((sc12 arg-7)) (case (vector-ref sc12 0) ((2) (let ((e-53 (vector-ref sc12 1))) (let ((e-54 (vector-ref sc12 2))) (let ((e-55 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc12 arg-7)) (case (vector-ref sc12 0) ((3) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((e-3 (vector-ref sc12 3))) (let ((e-4 (vector-ref sc12 4))) (let ((e-5 (vector-ref sc12 5))) (let ((sc13 e-3)) (cond ((equal? sc13 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-6 (vector-ref sc14 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-7 (vector-ref sc15 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-8 (vector-ref sc16 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc12 2))) (let ((e-9 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc12 1))) (let ((e-12 (vector-ref sc12 2))) (let ((e-13 (vector-ref sc12 3))) (let ((e-14 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc12 1))) (let ((e-17 (vector-ref sc12 2))) (let ((e-18 (vector-ref sc12 3))) (let ((e-19 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc12 1))) (let ((e-22 (vector-ref sc12 2))) (let ((e-23 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc12 1))) (let ((e-26 (vector-ref sc12 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((sc14 e-5)) (case (vector-ref sc14 0) ((9) (let ((e-2 (vector-ref sc14 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc12 1))) (let ((e-29 (vector-ref sc12 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc12 1))) (let ((e-32 (vector-ref sc12 2))) (let ((e-33 (vector-ref sc12 3))) (let ((e-34 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((sc15 e-6)) (case (vector-ref sc15 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc17 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc15 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc12 1))) (let ((e-37 (vector-ref sc12 2))) (let ((e-38 (vector-ref sc12 3))) (let ((e-39 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((sc15 e-6)) (case (vector-ref sc15 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc17 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc15 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc12 1))) (let ((e-42 (vector-ref sc12 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc12 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc12 1))) (let ((e-47 (vector-ref sc12 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc11 1))) (let ((e-51 (vector-ref sc11 2))) (let ((sc12 arg-7)) (case (vector-ref sc12 0) ((2) (let ((e-58 (vector-ref sc12 2))) (let ((e-59 (vector-ref sc12 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc12 arg-7)) (case (vector-ref sc12 0) ((3) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((e-3 (vector-ref sc12 3))) (let ((e-4 (vector-ref sc12 4))) (let ((e-5 (vector-ref sc12 5))) (let ((sc13 e-3)) (cond ((equal? sc13 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-6 (vector-ref sc14 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-7 (vector-ref sc15 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-8 (vector-ref sc16 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc12 2))) (let ((e-9 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc12 1))) (let ((e-12 (vector-ref sc12 2))) (let ((e-13 (vector-ref sc12 3))) (let ((e-14 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc12 1))) (let ((e-17 (vector-ref sc12 2))) (let ((e-18 (vector-ref sc12 3))) (let ((e-19 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc12 1))) (let ((e-22 (vector-ref sc12 2))) (let ((e-23 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc12 1))) (let ((e-26 (vector-ref sc12 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((sc14 e-5)) (case (vector-ref sc14 0) ((9) (let ((e-2 (vector-ref sc14 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc12 1))) (let ((e-29 (vector-ref sc12 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc12 1))) (let ((e-32 (vector-ref sc12 2))) (let ((e-33 (vector-ref sc12 3))) (let ((e-34 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((sc15 e-6)) (case (vector-ref sc15 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc17 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc15 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc12 1))) (let ((e-37 (vector-ref sc12 2))) (let ((e-38 (vector-ref sc12 3))) (let ((e-39 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((sc15 e-6)) (case (vector-ref sc15 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc17 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc15 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc12 1))) (let ((e-42 (vector-ref sc12 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc12 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc12 1))) (let ((e-47 (vector-ref sc12 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((3) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((e-3 (vector-ref sc11 3))) (let ((e-4 (vector-ref sc11 4))) (let ((e-5 (vector-ref sc11 5))) (let ((sc12 e-3)) (cond ((equal? sc12 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-6 (vector-ref sc13 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-7 (vector-ref sc14 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-8 (vector-ref sc15 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc11 2))) (let ((e-9 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc11 1))) (let ((e-12 (vector-ref sc11 2))) (let ((e-13 (vector-ref sc11 3))) (let ((e-14 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc11 1))) (let ((e-17 (vector-ref sc11 2))) (let ((e-18 (vector-ref sc11 3))) (let ((e-19 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc11 1))) (let ((e-22 (vector-ref sc11 2))) (let ((e-23 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc11 1))) (let ((e-26 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((sc13 e-5)) (case (vector-ref sc13 0) ((9) (let ((e-2 (vector-ref sc13 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc11 1))) (let ((e-29 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc11 1))) (let ((e-32 (vector-ref sc11 2))) (let ((e-33 (vector-ref sc11 3))) (let ((e-34 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc11 1))) (let ((e-37 (vector-ref sc11 2))) (let ((e-38 (vector-ref sc11 3))) (let ((e-39 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc11 1))) (let ((e-42 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc11 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc11 1))) (let ((e-47 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))))))))))(else (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((1) (let ((e-61 (vector-ref sc10 1))) (let ((e-62 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc12 e-5)) (let ((e-0 (vector-ref sc12 1))) e-0))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((sc13 e-6)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc14 e-1)) (let ((e-18 (vector-ref sc14 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc10 arg-6)) (case (vector-ref sc10 0) ((0) (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((2) (let ((e-53 (vector-ref sc11 1))) (let ((e-54 (vector-ref sc11 2))) (let ((e-55 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((3) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((e-3 (vector-ref sc11 3))) (let ((e-4 (vector-ref sc11 4))) (let ((e-5 (vector-ref sc11 5))) (let ((sc12 e-3)) (cond ((equal? sc12 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-6 (vector-ref sc13 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-7 (vector-ref sc14 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-8 (vector-ref sc15 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc11 2))) (let ((e-9 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc11 1))) (let ((e-12 (vector-ref sc11 2))) (let ((e-13 (vector-ref sc11 3))) (let ((e-14 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc11 1))) (let ((e-17 (vector-ref sc11 2))) (let ((e-18 (vector-ref sc11 3))) (let ((e-19 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc11 1))) (let ((e-22 (vector-ref sc11 2))) (let ((e-23 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc11 1))) (let ((e-26 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((sc13 e-5)) (case (vector-ref sc13 0) ((9) (let ((e-2 (vector-ref sc13 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc11 1))) (let ((e-29 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc11 1))) (let ((e-32 (vector-ref sc11 2))) (let ((e-33 (vector-ref sc11 3))) (let ((e-34 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc11 1))) (let ((e-37 (vector-ref sc11 2))) (let ((e-38 (vector-ref sc11 3))) (let ((e-39 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc11 1))) (let ((e-42 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc11 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc11 1))) (let ((e-47 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc10 1))) (let ((e-51 (vector-ref sc10 2))) (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((2) (let ((e-58 (vector-ref sc11 2))) (let ((e-59 (vector-ref sc11 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((3) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((e-3 (vector-ref sc11 3))) (let ((e-4 (vector-ref sc11 4))) (let ((e-5 (vector-ref sc11 5))) (let ((sc12 e-3)) (cond ((equal? sc12 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-6 (vector-ref sc13 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-7 (vector-ref sc14 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-8 (vector-ref sc15 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc11 2))) (let ((e-9 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc11 1))) (let ((e-12 (vector-ref sc11 2))) (let ((e-13 (vector-ref sc11 3))) (let ((e-14 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc11 1))) (let ((e-17 (vector-ref sc11 2))) (let ((e-18 (vector-ref sc11 3))) (let ((e-19 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc11 1))) (let ((e-22 (vector-ref sc11 2))) (let ((e-23 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc11 1))) (let ((e-26 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((sc13 e-5)) (case (vector-ref sc13 0) ((9) (let ((e-2 (vector-ref sc13 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc11 1))) (let ((e-29 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc11 1))) (let ((e-32 (vector-ref sc11 2))) (let ((e-33 (vector-ref sc11 3))) (let ((e-34 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc11 1))) (let ((e-37 (vector-ref sc11 2))) (let ((e-38 (vector-ref sc11 3))) (let ((e-39 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc11 1))) (let ((e-42 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc11 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc11 1))) (let ((e-47 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((3) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((e-3 (vector-ref sc10 3))) (let ((e-4 (vector-ref sc10 4))) (let ((e-5 (vector-ref sc10 5))) (let ((sc11 e-3)) (cond ((equal? sc11 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-6 (vector-ref sc12 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-7 (vector-ref sc13 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-8 (vector-ref sc14 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc10 2))) (let ((e-9 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc10 1))) (let ((e-12 (vector-ref sc10 2))) (let ((e-13 (vector-ref sc10 3))) (let ((e-14 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc10 1))) (let ((e-17 (vector-ref sc10 2))) (let ((e-18 (vector-ref sc10 3))) (let ((e-19 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc10 1))) (let ((e-22 (vector-ref sc10 2))) (let ((e-23 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc10 1))) (let ((e-26 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((sc12 e-5)) (case (vector-ref sc12 0) ((9) (let ((e-2 (vector-ref sc12 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc10 1))) (let ((e-29 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc10 1))) (let ((e-32 (vector-ref sc10 2))) (let ((e-33 (vector-ref sc10 3))) (let ((e-34 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc10 1))) (let ((e-37 (vector-ref sc10 2))) (let ((e-38 (vector-ref sc10 3))) (let ((e-39 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc10 1))) (let ((e-42 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc10 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc10 1))) (let ((e-47 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))(else (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((1) (let ((e-61 (vector-ref sc9 1))) (let ((e-62 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc11 e-5)) (let ((e-0 (vector-ref sc11 1))) e-0))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((sc12 e-6)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc13 e-1)) (let ((e-18 (vector-ref sc13 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc9 arg-6)) (case (vector-ref sc9 0) ((0) (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((2) (let ((e-53 (vector-ref sc10 1))) (let ((e-54 (vector-ref sc10 2))) (let ((e-55 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((3) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((e-3 (vector-ref sc10 3))) (let ((e-4 (vector-ref sc10 4))) (let ((e-5 (vector-ref sc10 5))) (let ((sc11 e-3)) (cond ((equal? sc11 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-6 (vector-ref sc12 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-7 (vector-ref sc13 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-8 (vector-ref sc14 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc10 2))) (let ((e-9 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc10 1))) (let ((e-12 (vector-ref sc10 2))) (let ((e-13 (vector-ref sc10 3))) (let ((e-14 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc10 1))) (let ((e-17 (vector-ref sc10 2))) (let ((e-18 (vector-ref sc10 3))) (let ((e-19 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc10 1))) (let ((e-22 (vector-ref sc10 2))) (let ((e-23 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc10 1))) (let ((e-26 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((sc12 e-5)) (case (vector-ref sc12 0) ((9) (let ((e-2 (vector-ref sc12 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc10 1))) (let ((e-29 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc10 1))) (let ((e-32 (vector-ref sc10 2))) (let ((e-33 (vector-ref sc10 3))) (let ((e-34 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc10 1))) (let ((e-37 (vector-ref sc10 2))) (let ((e-38 (vector-ref sc10 3))) (let ((e-39 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc10 1))) (let ((e-42 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc10 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc10 1))) (let ((e-47 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc9 1))) (let ((e-51 (vector-ref sc9 2))) (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((2) (let ((e-58 (vector-ref sc10 2))) (let ((e-59 (vector-ref sc10 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((3) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((e-3 (vector-ref sc10 3))) (let ((e-4 (vector-ref sc10 4))) (let ((e-5 (vector-ref sc10 5))) (let ((sc11 e-3)) (cond ((equal? sc11 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-6 (vector-ref sc12 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-7 (vector-ref sc13 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-8 (vector-ref sc14 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc10 2))) (let ((e-9 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc10 1))) (let ((e-12 (vector-ref sc10 2))) (let ((e-13 (vector-ref sc10 3))) (let ((e-14 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc10 1))) (let ((e-17 (vector-ref sc10 2))) (let ((e-18 (vector-ref sc10 3))) (let ((e-19 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc10 1))) (let ((e-22 (vector-ref sc10 2))) (let ((e-23 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc10 1))) (let ((e-26 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((sc12 e-5)) (case (vector-ref sc12 0) ((9) (let ((e-2 (vector-ref sc12 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc10 1))) (let ((e-29 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc10 1))) (let ((e-32 (vector-ref sc10 2))) (let ((e-33 (vector-ref sc10 3))) (let ((e-34 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc10 1))) (let ((e-37 (vector-ref sc10 2))) (let ((e-38 (vector-ref sc10 3))) (let ((e-39 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc10 1))) (let ((e-42 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc10 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc10 1))) (let ((e-47 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((3) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((e-3 (vector-ref sc9 3))) (let ((e-4 (vector-ref sc9 4))) (let ((e-5 (vector-ref sc9 5))) (let ((sc10 e-3)) (cond ((equal? sc10 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-6 (vector-ref sc11 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-7 (vector-ref sc12 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-8 (vector-ref sc13 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc9 2))) (let ((e-9 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc9 1))) (let ((e-12 (vector-ref sc9 2))) (let ((e-13 (vector-ref sc9 3))) (let ((e-14 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc9 1))) (let ((e-17 (vector-ref sc9 2))) (let ((e-18 (vector-ref sc9 3))) (let ((e-19 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc9 1))) (let ((e-22 (vector-ref sc9 2))) (let ((e-23 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc9 1))) (let ((e-26 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((sc11 e-5)) (case (vector-ref sc11 0) ((9) (let ((e-2 (vector-ref sc11 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc9 1))) (let ((e-29 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc9 1))) (let ((e-32 (vector-ref sc9 2))) (let ((e-33 (vector-ref sc9 3))) (let ((e-34 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc9 1))) (let ((e-37 (vector-ref sc9 2))) (let ((e-38 (vector-ref sc9 3))) (let ((e-39 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc9 1))) (let ((e-42 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc9 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc9 1))) (let ((e-47 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))(else (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-61 (vector-ref sc8 1))) (let ((e-62 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc10 e-5)) (let ((e-0 (vector-ref sc10 1))) e-0))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((sc11 e-6)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc12 e-1)) (let ((e-18 (vector-ref sc12 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc8 arg-6)) (case (vector-ref sc8 0) ((0) (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((2) (let ((e-53 (vector-ref sc9 1))) (let ((e-54 (vector-ref sc9 2))) (let ((e-55 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((3) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((e-3 (vector-ref sc9 3))) (let ((e-4 (vector-ref sc9 4))) (let ((e-5 (vector-ref sc9 5))) (let ((sc10 e-3)) (cond ((equal? sc10 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-6 (vector-ref sc11 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-7 (vector-ref sc12 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-8 (vector-ref sc13 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc9 2))) (let ((e-9 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc9 1))) (let ((e-12 (vector-ref sc9 2))) (let ((e-13 (vector-ref sc9 3))) (let ((e-14 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc9 1))) (let ((e-17 (vector-ref sc9 2))) (let ((e-18 (vector-ref sc9 3))) (let ((e-19 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc9 1))) (let ((e-22 (vector-ref sc9 2))) (let ((e-23 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc9 1))) (let ((e-26 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((sc11 e-5)) (case (vector-ref sc11 0) ((9) (let ((e-2 (vector-ref sc11 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc9 1))) (let ((e-29 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc9 1))) (let ((e-32 (vector-ref sc9 2))) (let ((e-33 (vector-ref sc9 3))) (let ((e-34 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc9 1))) (let ((e-37 (vector-ref sc9 2))) (let ((e-38 (vector-ref sc9 3))) (let ((e-39 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc9 1))) (let ((e-42 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc9 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc9 1))) (let ((e-47 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc8 1))) (let ((e-51 (vector-ref sc8 2))) (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((2) (let ((e-58 (vector-ref sc9 2))) (let ((e-59 (vector-ref sc9 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((3) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((e-3 (vector-ref sc9 3))) (let ((e-4 (vector-ref sc9 4))) (let ((e-5 (vector-ref sc9 5))) (let ((sc10 e-3)) (cond ((equal? sc10 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-6 (vector-ref sc11 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-7 (vector-ref sc12 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-8 (vector-ref sc13 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc9 2))) (let ((e-9 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc9 1))) (let ((e-12 (vector-ref sc9 2))) (let ((e-13 (vector-ref sc9 3))) (let ((e-14 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc9 1))) (let ((e-17 (vector-ref sc9 2))) (let ((e-18 (vector-ref sc9 3))) (let ((e-19 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc9 1))) (let ((e-22 (vector-ref sc9 2))) (let ((e-23 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc9 1))) (let ((e-26 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((sc11 e-5)) (case (vector-ref sc11 0) ((9) (let ((e-2 (vector-ref sc11 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc9 1))) (let ((e-29 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc9 1))) (let ((e-32 (vector-ref sc9 2))) (let ((e-33 (vector-ref sc9 3))) (let ((e-34 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc9 1))) (let ((e-37 (vector-ref sc9 2))) (let ((e-38 (vector-ref sc9 3))) (let ((e-39 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc9 1))) (let ((e-42 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc9 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc9 1))) (let ((e-47 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((3) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((e-3 (vector-ref sc8 3))) (let ((e-4 (vector-ref sc8 4))) (let ((e-5 (vector-ref sc8 5))) (let ((sc9 e-3)) (cond ((equal? sc9 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-6 (vector-ref sc10 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc8 2))) (let ((e-9 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((e-13 (vector-ref sc8 3))) (let ((e-14 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc8 1))) (let ((e-17 (vector-ref sc8 2))) (let ((e-18 (vector-ref sc8 3))) (let ((e-19 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((e-23 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc8 1))) (let ((e-26 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((sc10 e-5)) (case (vector-ref sc10 0) ((9) (let ((e-2 (vector-ref sc10 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc8 1))) (let ((e-29 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc8 1))) (let ((e-32 (vector-ref sc8 2))) (let ((e-33 (vector-ref sc8 3))) (let ((e-34 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc8 1))) (let ((e-37 (vector-ref sc8 2))) (let ((e-38 (vector-ref sc8 3))) (let ((e-39 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc8 1))) (let ((e-42 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc8 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc8 1))) (let ((e-47 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-61 (vector-ref sc7 1))) (let ((e-62 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc9 e-5)) (let ((e-0 (vector-ref sc9 1))) e-0))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((sc10 e-6)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc11 e-1)) (let ((e-18 (vector-ref sc11 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc7 arg-6)) (case (vector-ref sc7 0) ((0) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((2) (let ((e-53 (vector-ref sc8 1))) (let ((e-54 (vector-ref sc8 2))) (let ((e-55 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((3) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((e-3 (vector-ref sc8 3))) (let ((e-4 (vector-ref sc8 4))) (let ((e-5 (vector-ref sc8 5))) (let ((sc9 e-3)) (cond ((equal? sc9 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-6 (vector-ref sc10 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc8 2))) (let ((e-9 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((e-13 (vector-ref sc8 3))) (let ((e-14 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc8 1))) (let ((e-17 (vector-ref sc8 2))) (let ((e-18 (vector-ref sc8 3))) (let ((e-19 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((e-23 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc8 1))) (let ((e-26 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((sc10 e-5)) (case (vector-ref sc10 0) ((9) (let ((e-2 (vector-ref sc10 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc8 1))) (let ((e-29 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc8 1))) (let ((e-32 (vector-ref sc8 2))) (let ((e-33 (vector-ref sc8 3))) (let ((e-34 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc8 1))) (let ((e-37 (vector-ref sc8 2))) (let ((e-38 (vector-ref sc8 3))) (let ((e-39 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc8 1))) (let ((e-42 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc8 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc8 1))) (let ((e-47 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc7 1))) (let ((e-51 (vector-ref sc7 2))) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((2) (let ((e-58 (vector-ref sc8 2))) (let ((e-59 (vector-ref sc8 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((3) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((e-3 (vector-ref sc8 3))) (let ((e-4 (vector-ref sc8 4))) (let ((e-5 (vector-ref sc8 5))) (let ((sc9 e-3)) (cond ((equal? sc9 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-6 (vector-ref sc10 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc8 2))) (let ((e-9 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((e-13 (vector-ref sc8 3))) (let ((e-14 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc8 1))) (let ((e-17 (vector-ref sc8 2))) (let ((e-18 (vector-ref sc8 3))) (let ((e-19 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((e-23 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc8 1))) (let ((e-26 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((sc10 e-5)) (case (vector-ref sc10 0) ((9) (let ((e-2 (vector-ref sc10 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc8 1))) (let ((e-29 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc8 1))) (let ((e-32 (vector-ref sc8 2))) (let ((e-33 (vector-ref sc8 3))) (let ((e-34 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc8 1))) (let ((e-37 (vector-ref sc8 2))) (let ((e-38 (vector-ref sc8 3))) (let ((e-39 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc8 1))) (let ((e-42 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc8 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc8 1))) (let ((e-47 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((3) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((e-3 (vector-ref sc7 3))) (let ((e-4 (vector-ref sc7 4))) (let ((e-5 (vector-ref sc7 5))) (let ((sc8 e-3)) (cond ((equal? sc8 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-6 (vector-ref sc9 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc7 2))) (let ((e-9 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((e-13 (vector-ref sc7 3))) (let ((e-14 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((e-18 (vector-ref sc7 3))) (let ((e-19 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((e-23 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc7 1))) (let ((e-26 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((sc9 e-5)) (case (vector-ref sc9 0) ((9) (let ((e-2 (vector-ref sc9 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc7 1))) (let ((e-29 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc7 1))) (let ((e-32 (vector-ref sc7 2))) (let ((e-33 (vector-ref sc7 3))) (let ((e-34 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc7 1))) (let ((e-37 (vector-ref sc7 2))) (let ((e-38 (vector-ref sc7 3))) (let ((e-39 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc7 1))) (let ((e-42 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc7 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc7 1))) (let ((e-47 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-61 (vector-ref sc6 1))) (let ((e-62 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc8 e-5)) (let ((e-0 (vector-ref sc8 1))) e-0))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((sc9 e-6)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc10 e-1)) (let ((e-18 (vector-ref sc10 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc6 arg-6)) (case (vector-ref sc6 0) ((0) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((2) (let ((e-53 (vector-ref sc7 1))) (let ((e-54 (vector-ref sc7 2))) (let ((e-55 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((3) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((e-3 (vector-ref sc7 3))) (let ((e-4 (vector-ref sc7 4))) (let ((e-5 (vector-ref sc7 5))) (let ((sc8 e-3)) (cond ((equal? sc8 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-6 (vector-ref sc9 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc7 2))) (let ((e-9 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((e-13 (vector-ref sc7 3))) (let ((e-14 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((e-18 (vector-ref sc7 3))) (let ((e-19 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((e-23 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc7 1))) (let ((e-26 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((sc9 e-5)) (case (vector-ref sc9 0) ((9) (let ((e-2 (vector-ref sc9 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc7 1))) (let ((e-29 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc7 1))) (let ((e-32 (vector-ref sc7 2))) (let ((e-33 (vector-ref sc7 3))) (let ((e-34 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc7 1))) (let ((e-37 (vector-ref sc7 2))) (let ((e-38 (vector-ref sc7 3))) (let ((e-39 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc7 1))) (let ((e-42 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc7 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc7 1))) (let ((e-47 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc6 1))) (let ((e-51 (vector-ref sc6 2))) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((2) (let ((e-58 (vector-ref sc7 2))) (let ((e-59 (vector-ref sc7 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((3) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((e-3 (vector-ref sc7 3))) (let ((e-4 (vector-ref sc7 4))) (let ((e-5 (vector-ref sc7 5))) (let ((sc8 e-3)) (cond ((equal? sc8 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-6 (vector-ref sc9 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc7 2))) (let ((e-9 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((e-13 (vector-ref sc7 3))) (let ((e-14 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((e-18 (vector-ref sc7 3))) (let ((e-19 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((e-23 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc7 1))) (let ((e-26 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((sc9 e-5)) (case (vector-ref sc9 0) ((9) (let ((e-2 (vector-ref sc9 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc7 1))) (let ((e-29 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc7 1))) (let ((e-32 (vector-ref sc7 2))) (let ((e-33 (vector-ref sc7 3))) (let ((e-34 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc7 1))) (let ((e-37 (vector-ref sc7 2))) (let ((e-38 (vector-ref sc7 3))) (let ((e-39 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc7 1))) (let ((e-42 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc7 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc7 1))) (let ((e-47 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((3) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((e-3 (vector-ref sc6 3))) (let ((e-4 (vector-ref sc6 4))) (let ((e-5 (vector-ref sc6 5))) (let ((sc7 e-3)) (cond ((equal? sc7 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-6 (vector-ref sc8 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc6 2))) (let ((e-9 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc6 1))) (let ((e-12 (vector-ref sc6 2))) (let ((e-13 (vector-ref sc6 3))) (let ((e-14 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc6 1))) (let ((e-17 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (let ((e-19 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((e-23 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc6 1))) (let ((e-26 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((9) (let ((e-2 (vector-ref sc8 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc6 1))) (let ((e-29 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc6 1))) (let ((e-32 (vector-ref sc6 2))) (let ((e-33 (vector-ref sc6 3))) (let ((e-34 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc6 1))) (let ((e-37 (vector-ref sc6 2))) (let ((e-38 (vector-ref sc6 3))) (let ((e-39 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc6 1))) (let ((e-42 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc6 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc6 1))) (let ((e-47 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-61 (vector-ref sc5 1))) (let ((e-62 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc7 e-5)) (let ((e-0 (vector-ref sc7 1))) e-0))) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc9 e-1)) (let ((e-18 (vector-ref sc9 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((2) (let ((e-53 (vector-ref sc6 1))) (let ((e-54 (vector-ref sc6 2))) (let ((e-55 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((3) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((e-3 (vector-ref sc6 3))) (let ((e-4 (vector-ref sc6 4))) (let ((e-5 (vector-ref sc6 5))) (let ((sc7 e-3)) (cond ((equal? sc7 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-6 (vector-ref sc8 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc6 2))) (let ((e-9 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc6 1))) (let ((e-12 (vector-ref sc6 2))) (let ((e-13 (vector-ref sc6 3))) (let ((e-14 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc6 1))) (let ((e-17 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (let ((e-19 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((e-23 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc6 1))) (let ((e-26 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((9) (let ((e-2 (vector-ref sc8 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc6 1))) (let ((e-29 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc6 1))) (let ((e-32 (vector-ref sc6 2))) (let ((e-33 (vector-ref sc6 3))) (let ((e-34 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc6 1))) (let ((e-37 (vector-ref sc6 2))) (let ((e-38 (vector-ref sc6 3))) (let ((e-39 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc6 1))) (let ((e-42 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc6 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc6 1))) (let ((e-47 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc5 1))) (let ((e-51 (vector-ref sc5 2))) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((2) (let ((e-58 (vector-ref sc6 2))) (let ((e-59 (vector-ref sc6 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((3) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((e-3 (vector-ref sc6 3))) (let ((e-4 (vector-ref sc6 4))) (let ((e-5 (vector-ref sc6 5))) (let ((sc7 e-3)) (cond ((equal? sc7 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-6 (vector-ref sc8 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc6 2))) (let ((e-9 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc6 1))) (let ((e-12 (vector-ref sc6 2))) (let ((e-13 (vector-ref sc6 3))) (let ((e-14 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc6 1))) (let ((e-17 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (let ((e-19 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((e-23 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc6 1))) (let ((e-26 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((9) (let ((e-2 (vector-ref sc8 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc6 1))) (let ((e-29 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc6 1))) (let ((e-32 (vector-ref sc6 2))) (let ((e-33 (vector-ref sc6 3))) (let ((e-34 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc6 1))) (let ((e-37 (vector-ref sc6 2))) (let ((e-38 (vector-ref sc6 3))) (let ((e-39 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc6 1))) (let ((e-42 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc6 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc6 1))) (let ((e-47 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-3 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-5 (vector-ref sc5 5))) (let ((sc6 e-3)) (cond ((equal? sc6 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-6 (vector-ref sc7 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc5 2))) (let ((e-9 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((e-13 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc5 1))) (let ((e-17 (vector-ref sc5 2))) (let ((e-18 (vector-ref sc5 3))) (let ((e-19 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((e-23 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((9) (let ((e-2 (vector-ref sc7 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc5 1))) (let ((e-29 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc5 1))) (let ((e-32 (vector-ref sc5 2))) (let ((e-33 (vector-ref sc5 3))) (let ((e-34 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc5 1))) (let ((e-37 (vector-ref sc5 2))) (let ((e-38 (vector-ref sc5 3))) (let ((e-39 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc5 1))) (let ((e-42 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc5 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc5 1))) (let ((e-47 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-61 (vector-ref sc4 1))) (let ((e-62 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc6 e-5)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc8 e-1)) (let ((e-18 (vector-ref sc8 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((2) (let ((e-53 (vector-ref sc5 1))) (let ((e-54 (vector-ref sc5 2))) (let ((e-55 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-3 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-5 (vector-ref sc5 5))) (let ((sc6 e-3)) (cond ((equal? sc6 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-6 (vector-ref sc7 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc5 2))) (let ((e-9 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((e-13 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc5 1))) (let ((e-17 (vector-ref sc5 2))) (let ((e-18 (vector-ref sc5 3))) (let ((e-19 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((e-23 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((9) (let ((e-2 (vector-ref sc7 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc5 1))) (let ((e-29 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc5 1))) (let ((e-32 (vector-ref sc5 2))) (let ((e-33 (vector-ref sc5 3))) (let ((e-34 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc5 1))) (let ((e-37 (vector-ref sc5 2))) (let ((e-38 (vector-ref sc5 3))) (let ((e-39 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc5 1))) (let ((e-42 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc5 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc5 1))) (let ((e-47 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc4 1))) (let ((e-51 (vector-ref sc4 2))) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((2) (let ((e-58 (vector-ref sc5 2))) (let ((e-59 (vector-ref sc5 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-3 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-5 (vector-ref sc5 5))) (let ((sc6 e-3)) (cond ((equal? sc6 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-6 (vector-ref sc7 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc5 2))) (let ((e-9 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((e-13 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc5 1))) (let ((e-17 (vector-ref sc5 2))) (let ((e-18 (vector-ref sc5 3))) (let ((e-19 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((e-23 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((9) (let ((e-2 (vector-ref sc7 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc5 1))) (let ((e-29 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc5 1))) (let ((e-32 (vector-ref sc5 2))) (let ((e-33 (vector-ref sc5 3))) (let ((e-34 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc5 1))) (let ((e-37 (vector-ref sc5 2))) (let ((e-38 (vector-ref sc5 3))) (let ((e-39 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc5 1))) (let ((e-42 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc5 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc5 1))) (let ((e-47 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((e-5 (vector-ref sc4 5))) (let ((sc5 e-3)) (cond ((equal? sc5 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc4 2))) (let ((e-9 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc4 1))) (let ((e-12 (vector-ref sc4 2))) (let ((e-13 (vector-ref sc4 3))) (let ((e-14 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (let ((e-19 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((e-23 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((9) (let ((e-2 (vector-ref sc6 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc4 1))) (let ((e-32 (vector-ref sc4 2))) (let ((e-33 (vector-ref sc4 3))) (let ((e-34 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((e-38 (vector-ref sc4 3))) (let ((e-39 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc4 1))) (let ((e-42 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc4 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc4 1))) (let ((e-47 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-61 (vector-ref sc3 1))) (let ((e-62 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0))) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc7 e-1)) (let ((e-18 (vector-ref sc7 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((2) (let ((e-53 (vector-ref sc4 1))) (let ((e-54 (vector-ref sc4 2))) (let ((e-55 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((e-5 (vector-ref sc4 5))) (let ((sc5 e-3)) (cond ((equal? sc5 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc4 2))) (let ((e-9 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc4 1))) (let ((e-12 (vector-ref sc4 2))) (let ((e-13 (vector-ref sc4 3))) (let ((e-14 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (let ((e-19 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((e-23 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((9) (let ((e-2 (vector-ref sc6 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc4 1))) (let ((e-32 (vector-ref sc4 2))) (let ((e-33 (vector-ref sc4 3))) (let ((e-34 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((e-38 (vector-ref sc4 3))) (let ((e-39 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc4 1))) (let ((e-42 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc4 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc4 1))) (let ((e-47 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc3 1))) (let ((e-51 (vector-ref sc3 2))) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((2) (let ((e-58 (vector-ref sc4 2))) (let ((e-59 (vector-ref sc4 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((e-5 (vector-ref sc4 5))) (let ((sc5 e-3)) (cond ((equal? sc5 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc4 2))) (let ((e-9 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc4 1))) (let ((e-12 (vector-ref sc4 2))) (let ((e-13 (vector-ref sc4 3))) (let ((e-14 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (let ((e-19 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((e-23 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((9) (let ((e-2 (vector-ref sc6 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc4 1))) (let ((e-32 (vector-ref sc4 2))) (let ((e-33 (vector-ref sc4 3))) (let ((e-34 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((e-38 (vector-ref sc4 3))) (let ((e-39 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc4 1))) (let ((e-42 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc4 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc4 1))) (let ((e-47 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((e-5 (vector-ref sc3 5))) (let ((sc4 e-3)) (cond ((equal? sc4 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc3 2))) (let ((e-9 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc3 1))) (let ((e-12 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-14 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (let ((e-19 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((9) (let ((e-2 (vector-ref sc5 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc3 1))) (let ((e-32 (vector-ref sc3 2))) (let ((e-33 (vector-ref sc3 3))) (let ((e-34 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc3 1))) (let ((e-37 (vector-ref sc3 2))) (let ((e-38 (vector-ref sc3 3))) (let ((e-39 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc3 1))) (let ((e-42 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc3 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc3 1))) (let ((e-47 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-61 (vector-ref sc2 1))) (let ((e-62 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc6 e-1)) (let ((e-18 (vector-ref sc6 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((2) (let ((e-53 (vector-ref sc3 1))) (let ((e-54 (vector-ref sc3 2))) (let ((e-55 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((e-5 (vector-ref sc3 5))) (let ((sc4 e-3)) (cond ((equal? sc4 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc3 2))) (let ((e-9 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc3 1))) (let ((e-12 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-14 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (let ((e-19 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((9) (let ((e-2 (vector-ref sc5 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc3 1))) (let ((e-32 (vector-ref sc3 2))) (let ((e-33 (vector-ref sc3 3))) (let ((e-34 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc3 1))) (let ((e-37 (vector-ref sc3 2))) (let ((e-38 (vector-ref sc3 3))) (let ((e-39 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc3 1))) (let ((e-42 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc3 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc3 1))) (let ((e-47 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc2 1))) (let ((e-51 (vector-ref sc2 2))) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((2) (let ((e-58 (vector-ref sc3 2))) (let ((e-59 (vector-ref sc3 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((e-5 (vector-ref sc3 5))) (let ((sc4 e-3)) (cond ((equal? sc4 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc3 2))) (let ((e-9 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc3 1))) (let ((e-12 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-14 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (let ((e-19 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((9) (let ((e-2 (vector-ref sc5 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc3 1))) (let ((e-32 (vector-ref sc3 2))) (let ((e-33 (vector-ref sc3 3))) (let ((e-34 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc3 1))) (let ((e-37 (vector-ref sc3 2))) (let ((e-38 (vector-ref sc3 3))) (let ((e-39 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc3 1))) (let ((e-42 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc3 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc3 1))) (let ((e-47 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((e-5 (vector-ref sc2 5))) (let ((sc3 e-3)) (cond ((equal? sc3 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (let ((e-13 (vector-ref sc2 3))) (let ((e-14 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (let ((e-19 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((9) (let ((e-2 (vector-ref sc4 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (let ((e-34 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc2 1))) (let ((e-37 (vector-ref sc2 2))) (let ((e-38 (vector-ref sc2 3))) (let ((e-39 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc2 1))) (let ((e-42 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc2 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc2 1))) (let ((e-47 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-61 (vector-ref sc1 1))) (let ((e-62 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc5 e-1)) (let ((e-18 (vector-ref sc5 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((2) (let ((e-53 (vector-ref sc2 1))) (let ((e-54 (vector-ref sc2 2))) (let ((e-55 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((e-5 (vector-ref sc2 5))) (let ((sc3 e-3)) (cond ((equal? sc3 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (let ((e-13 (vector-ref sc2 3))) (let ((e-14 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (let ((e-19 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((9) (let ((e-2 (vector-ref sc4 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (let ((e-34 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc2 1))) (let ((e-37 (vector-ref sc2 2))) (let ((e-38 (vector-ref sc2 3))) (let ((e-39 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc2 1))) (let ((e-42 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc2 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc2 1))) (let ((e-47 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc1 1))) (let ((e-51 (vector-ref sc1 2))) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((2) (let ((e-58 (vector-ref sc2 2))) (let ((e-59 (vector-ref sc2 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((e-5 (vector-ref sc2 5))) (let ((sc3 e-3)) (cond ((equal? sc3 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (let ((e-13 (vector-ref sc2 3))) (let ((e-14 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (let ((e-19 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((9) (let ((e-2 (vector-ref sc4 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (let ((e-34 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc2 1))) (let ((e-37 (vector-ref sc2 2))) (let ((e-38 (vector-ref sc2 3))) (let ((e-39 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc2 1))) (let ((e-42 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc2 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc2 1))) (let ((e-47 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 5))) (let ((sc2 e-3)) (cond ((equal? sc2 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (let ((e-19 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((9) (let ((e-2 (vector-ref sc3 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc1 1))) (let ((e-37 (vector-ref sc1 2))) (let ((e-38 (vector-ref sc1 3))) (let ((e-39 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc1 1))) (let ((e-42 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-61 (vector-ref sc0 1))) (let ((e-62 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc4 e-1)) (let ((e-18 (vector-ref sc4 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((2) (let ((e-53 (vector-ref sc1 1))) (let ((e-54 (vector-ref sc1 2))) (let ((e-55 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 5))) (let ((sc2 e-3)) (cond ((equal? sc2 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (let ((e-19 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((9) (let ((e-2 (vector-ref sc3 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc1 1))) (let ((e-37 (vector-ref sc1 2))) (let ((e-38 (vector-ref sc1 3))) (let ((e-39 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc1 1))) (let ((e-42 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((2) (let ((e-58 (vector-ref sc1 2))) (let ((e-59 (vector-ref sc1 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 5))) (let ((sc2 e-3)) (cond ((equal? sc2 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (let ((e-19 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((9) (let ((e-2 (vector-ref sc3 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc1 1))) (let ((e-37 (vector-ref sc1 2))) (let ((e-38 (vector-ref sc1 3))) (let ((e-39 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc1 1))) (let ((e-42 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-3)) (cond ((equal? sc1 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((9) (let ((e-2 (vector-ref sc2 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (let ((e-39 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))))))))))))) +(define Inline-Compiler-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--7627-1631 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc15 e-1)) (let ((e-18 (vector-ref sc15 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc11 arg-6)) (case (vector-ref sc11 0) ((0) (let ((sc12 arg-7)) (case (vector-ref sc12 0) ((2) (let ((e-53 (vector-ref sc12 1))) (let ((e-54 (vector-ref sc12 2))) (let ((e-55 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc12 arg-7)) (case (vector-ref sc12 0) ((3) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((e-3 (vector-ref sc12 3))) (let ((e-4 (vector-ref sc12 4))) (let ((e-5 (vector-ref sc12 5))) (let ((sc13 e-3)) (cond ((equal? sc13 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-6 (vector-ref sc14 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-7 (vector-ref sc15 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-8 (vector-ref sc16 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc12 2))) (let ((e-9 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc12 1))) (let ((e-12 (vector-ref sc12 2))) (let ((e-13 (vector-ref sc12 3))) (let ((e-14 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc12 1))) (let ((e-17 (vector-ref sc12 2))) (let ((e-18 (vector-ref sc12 3))) (let ((e-19 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc12 1))) (let ((e-22 (vector-ref sc12 2))) (let ((e-23 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc12 1))) (let ((e-26 (vector-ref sc12 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((sc14 e-5)) (case (vector-ref sc14 0) ((9) (let ((e-2 (vector-ref sc14 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc12 1))) (let ((e-29 (vector-ref sc12 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc12 1))) (let ((e-32 (vector-ref sc12 2))) (let ((e-33 (vector-ref sc12 3))) (let ((e-34 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((sc15 e-6)) (case (vector-ref sc15 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc17 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc15 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc12 1))) (let ((e-37 (vector-ref sc12 2))) (let ((e-38 (vector-ref sc12 3))) (let ((e-39 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((sc15 e-6)) (case (vector-ref sc15 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc17 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc15 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc12 1))) (let ((e-42 (vector-ref sc12 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc12 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc12 1))) (let ((e-47 (vector-ref sc12 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc11 1))) (let ((e-51 (vector-ref sc11 2))) (let ((sc12 arg-7)) (case (vector-ref sc12 0) ((2) (let ((e-58 (vector-ref sc12 2))) (let ((e-59 (vector-ref sc12 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc12 arg-7)) (case (vector-ref sc12 0) ((3) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((e-3 (vector-ref sc12 3))) (let ((e-4 (vector-ref sc12 4))) (let ((e-5 (vector-ref sc12 5))) (let ((sc13 e-3)) (cond ((equal? sc13 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-6 (vector-ref sc14 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-7 (vector-ref sc15 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-8 (vector-ref sc16 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc12 2))) (let ((e-9 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc12 1))) (let ((e-12 (vector-ref sc12 2))) (let ((e-13 (vector-ref sc12 3))) (let ((e-14 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc12 1))) (let ((e-17 (vector-ref sc12 2))) (let ((e-18 (vector-ref sc12 3))) (let ((e-19 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc12 1))) (let ((e-22 (vector-ref sc12 2))) (let ((e-23 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc12 1))) (let ((e-26 (vector-ref sc12 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((sc14 e-5)) (case (vector-ref sc14 0) ((9) (let ((e-2 (vector-ref sc14 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc12 1))) (let ((e-29 (vector-ref sc12 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc12 1))) (let ((e-32 (vector-ref sc12 2))) (let ((e-33 (vector-ref sc12 3))) (let ((e-34 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((sc15 e-6)) (case (vector-ref sc15 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc17 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc15 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc12 1))) (let ((e-37 (vector-ref sc12 2))) (let ((e-38 (vector-ref sc12 3))) (let ((e-39 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((sc15 e-6)) (case (vector-ref sc15 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc17 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc15 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc12 1))) (let ((e-42 (vector-ref sc12 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc12 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc12 1))) (let ((e-47 (vector-ref sc12 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((3) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((e-3 (vector-ref sc11 3))) (let ((e-4 (vector-ref sc11 4))) (let ((e-5 (vector-ref sc11 5))) (let ((sc12 e-3)) (cond ((equal? sc12 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-6 (vector-ref sc13 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-7 (vector-ref sc14 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-8 (vector-ref sc15 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc11 2))) (let ((e-9 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc11 1))) (let ((e-12 (vector-ref sc11 2))) (let ((e-13 (vector-ref sc11 3))) (let ((e-14 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc11 1))) (let ((e-17 (vector-ref sc11 2))) (let ((e-18 (vector-ref sc11 3))) (let ((e-19 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc11 1))) (let ((e-22 (vector-ref sc11 2))) (let ((e-23 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc11 1))) (let ((e-26 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((sc13 e-5)) (case (vector-ref sc13 0) ((9) (let ((e-2 (vector-ref sc13 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc11 1))) (let ((e-29 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc11 1))) (let ((e-32 (vector-ref sc11 2))) (let ((e-33 (vector-ref sc11 3))) (let ((e-34 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc11 1))) (let ((e-37 (vector-ref sc11 2))) (let ((e-38 (vector-ref sc11 3))) (let ((e-39 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc11 1))) (let ((e-42 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc11 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc11 1))) (let ((e-47 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))))))))))(else (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((1) (let ((e-61 (vector-ref sc10 1))) (let ((e-62 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc12 e-5)) (let ((e-0 (vector-ref sc12 1))) e-0))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((sc13 e-6)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7627-1631 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc14 e-1)) (let ((e-18 (vector-ref sc14 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc10 arg-6)) (case (vector-ref sc10 0) ((0) (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((2) (let ((e-53 (vector-ref sc11 1))) (let ((e-54 (vector-ref sc11 2))) (let ((e-55 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((3) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((e-3 (vector-ref sc11 3))) (let ((e-4 (vector-ref sc11 4))) (let ((e-5 (vector-ref sc11 5))) (let ((sc12 e-3)) (cond ((equal? sc12 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-6 (vector-ref sc13 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-7 (vector-ref sc14 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-8 (vector-ref sc15 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc11 2))) (let ((e-9 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc11 1))) (let ((e-12 (vector-ref sc11 2))) (let ((e-13 (vector-ref sc11 3))) (let ((e-14 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc11 1))) (let ((e-17 (vector-ref sc11 2))) (let ((e-18 (vector-ref sc11 3))) (let ((e-19 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc11 1))) (let ((e-22 (vector-ref sc11 2))) (let ((e-23 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc11 1))) (let ((e-26 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((sc13 e-5)) (case (vector-ref sc13 0) ((9) (let ((e-2 (vector-ref sc13 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc11 1))) (let ((e-29 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc11 1))) (let ((e-32 (vector-ref sc11 2))) (let ((e-33 (vector-ref sc11 3))) (let ((e-34 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc11 1))) (let ((e-37 (vector-ref sc11 2))) (let ((e-38 (vector-ref sc11 3))) (let ((e-39 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc11 1))) (let ((e-42 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc11 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc11 1))) (let ((e-47 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc10 1))) (let ((e-51 (vector-ref sc10 2))) (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((2) (let ((e-58 (vector-ref sc11 2))) (let ((e-59 (vector-ref sc11 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((3) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((e-3 (vector-ref sc11 3))) (let ((e-4 (vector-ref sc11 4))) (let ((e-5 (vector-ref sc11 5))) (let ((sc12 e-3)) (cond ((equal? sc12 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-6 (vector-ref sc13 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-7 (vector-ref sc14 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-8 (vector-ref sc15 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc11 2))) (let ((e-9 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc11 1))) (let ((e-12 (vector-ref sc11 2))) (let ((e-13 (vector-ref sc11 3))) (let ((e-14 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc11 1))) (let ((e-17 (vector-ref sc11 2))) (let ((e-18 (vector-ref sc11 3))) (let ((e-19 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc11 1))) (let ((e-22 (vector-ref sc11 2))) (let ((e-23 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc11 1))) (let ((e-26 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((sc13 e-5)) (case (vector-ref sc13 0) ((9) (let ((e-2 (vector-ref sc13 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc11 1))) (let ((e-29 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc11 1))) (let ((e-32 (vector-ref sc11 2))) (let ((e-33 (vector-ref sc11 3))) (let ((e-34 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc11 1))) (let ((e-37 (vector-ref sc11 2))) (let ((e-38 (vector-ref sc11 3))) (let ((e-39 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc11 1))) (let ((e-42 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc11 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc11 1))) (let ((e-47 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((3) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((e-3 (vector-ref sc10 3))) (let ((e-4 (vector-ref sc10 4))) (let ((e-5 (vector-ref sc10 5))) (let ((sc11 e-3)) (cond ((equal? sc11 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-6 (vector-ref sc12 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-7 (vector-ref sc13 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-8 (vector-ref sc14 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc10 2))) (let ((e-9 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc10 1))) (let ((e-12 (vector-ref sc10 2))) (let ((e-13 (vector-ref sc10 3))) (let ((e-14 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc10 1))) (let ((e-17 (vector-ref sc10 2))) (let ((e-18 (vector-ref sc10 3))) (let ((e-19 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc10 1))) (let ((e-22 (vector-ref sc10 2))) (let ((e-23 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc10 1))) (let ((e-26 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((sc12 e-5)) (case (vector-ref sc12 0) ((9) (let ((e-2 (vector-ref sc12 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc10 1))) (let ((e-29 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc10 1))) (let ((e-32 (vector-ref sc10 2))) (let ((e-33 (vector-ref sc10 3))) (let ((e-34 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc10 1))) (let ((e-37 (vector-ref sc10 2))) (let ((e-38 (vector-ref sc10 3))) (let ((e-39 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc10 1))) (let ((e-42 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc10 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc10 1))) (let ((e-47 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))(else (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((1) (let ((e-61 (vector-ref sc9 1))) (let ((e-62 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc11 e-5)) (let ((e-0 (vector-ref sc11 1))) e-0))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((sc12 e-6)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7627-1631 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc13 e-1)) (let ((e-18 (vector-ref sc13 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc9 arg-6)) (case (vector-ref sc9 0) ((0) (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((2) (let ((e-53 (vector-ref sc10 1))) (let ((e-54 (vector-ref sc10 2))) (let ((e-55 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((3) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((e-3 (vector-ref sc10 3))) (let ((e-4 (vector-ref sc10 4))) (let ((e-5 (vector-ref sc10 5))) (let ((sc11 e-3)) (cond ((equal? sc11 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-6 (vector-ref sc12 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-7 (vector-ref sc13 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-8 (vector-ref sc14 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc10 2))) (let ((e-9 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc10 1))) (let ((e-12 (vector-ref sc10 2))) (let ((e-13 (vector-ref sc10 3))) (let ((e-14 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc10 1))) (let ((e-17 (vector-ref sc10 2))) (let ((e-18 (vector-ref sc10 3))) (let ((e-19 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc10 1))) (let ((e-22 (vector-ref sc10 2))) (let ((e-23 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc10 1))) (let ((e-26 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((sc12 e-5)) (case (vector-ref sc12 0) ((9) (let ((e-2 (vector-ref sc12 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc10 1))) (let ((e-29 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc10 1))) (let ((e-32 (vector-ref sc10 2))) (let ((e-33 (vector-ref sc10 3))) (let ((e-34 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc10 1))) (let ((e-37 (vector-ref sc10 2))) (let ((e-38 (vector-ref sc10 3))) (let ((e-39 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc10 1))) (let ((e-42 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc10 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc10 1))) (let ((e-47 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc9 1))) (let ((e-51 (vector-ref sc9 2))) (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((2) (let ((e-58 (vector-ref sc10 2))) (let ((e-59 (vector-ref sc10 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((3) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((e-3 (vector-ref sc10 3))) (let ((e-4 (vector-ref sc10 4))) (let ((e-5 (vector-ref sc10 5))) (let ((sc11 e-3)) (cond ((equal? sc11 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-6 (vector-ref sc12 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-7 (vector-ref sc13 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-8 (vector-ref sc14 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc10 2))) (let ((e-9 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc10 1))) (let ((e-12 (vector-ref sc10 2))) (let ((e-13 (vector-ref sc10 3))) (let ((e-14 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc10 1))) (let ((e-17 (vector-ref sc10 2))) (let ((e-18 (vector-ref sc10 3))) (let ((e-19 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc10 1))) (let ((e-22 (vector-ref sc10 2))) (let ((e-23 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc10 1))) (let ((e-26 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((sc12 e-5)) (case (vector-ref sc12 0) ((9) (let ((e-2 (vector-ref sc12 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc10 1))) (let ((e-29 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc10 1))) (let ((e-32 (vector-ref sc10 2))) (let ((e-33 (vector-ref sc10 3))) (let ((e-34 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc10 1))) (let ((e-37 (vector-ref sc10 2))) (let ((e-38 (vector-ref sc10 3))) (let ((e-39 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc10 1))) (let ((e-42 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc10 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc10 1))) (let ((e-47 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((3) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((e-3 (vector-ref sc9 3))) (let ((e-4 (vector-ref sc9 4))) (let ((e-5 (vector-ref sc9 5))) (let ((sc10 e-3)) (cond ((equal? sc10 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-6 (vector-ref sc11 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-7 (vector-ref sc12 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-8 (vector-ref sc13 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc9 2))) (let ((e-9 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc9 1))) (let ((e-12 (vector-ref sc9 2))) (let ((e-13 (vector-ref sc9 3))) (let ((e-14 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc9 1))) (let ((e-17 (vector-ref sc9 2))) (let ((e-18 (vector-ref sc9 3))) (let ((e-19 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc9 1))) (let ((e-22 (vector-ref sc9 2))) (let ((e-23 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc9 1))) (let ((e-26 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((sc11 e-5)) (case (vector-ref sc11 0) ((9) (let ((e-2 (vector-ref sc11 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc9 1))) (let ((e-29 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc9 1))) (let ((e-32 (vector-ref sc9 2))) (let ((e-33 (vector-ref sc9 3))) (let ((e-34 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc9 1))) (let ((e-37 (vector-ref sc9 2))) (let ((e-38 (vector-ref sc9 3))) (let ((e-39 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc9 1))) (let ((e-42 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc9 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc9 1))) (let ((e-47 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))(else (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-61 (vector-ref sc8 1))) (let ((e-62 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc10 e-5)) (let ((e-0 (vector-ref sc10 1))) e-0))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((sc11 e-6)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7627-1631 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc12 e-1)) (let ((e-18 (vector-ref sc12 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc8 arg-6)) (case (vector-ref sc8 0) ((0) (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((2) (let ((e-53 (vector-ref sc9 1))) (let ((e-54 (vector-ref sc9 2))) (let ((e-55 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((3) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((e-3 (vector-ref sc9 3))) (let ((e-4 (vector-ref sc9 4))) (let ((e-5 (vector-ref sc9 5))) (let ((sc10 e-3)) (cond ((equal? sc10 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-6 (vector-ref sc11 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-7 (vector-ref sc12 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-8 (vector-ref sc13 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc9 2))) (let ((e-9 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc9 1))) (let ((e-12 (vector-ref sc9 2))) (let ((e-13 (vector-ref sc9 3))) (let ((e-14 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc9 1))) (let ((e-17 (vector-ref sc9 2))) (let ((e-18 (vector-ref sc9 3))) (let ((e-19 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc9 1))) (let ((e-22 (vector-ref sc9 2))) (let ((e-23 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc9 1))) (let ((e-26 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((sc11 e-5)) (case (vector-ref sc11 0) ((9) (let ((e-2 (vector-ref sc11 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc9 1))) (let ((e-29 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc9 1))) (let ((e-32 (vector-ref sc9 2))) (let ((e-33 (vector-ref sc9 3))) (let ((e-34 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc9 1))) (let ((e-37 (vector-ref sc9 2))) (let ((e-38 (vector-ref sc9 3))) (let ((e-39 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc9 1))) (let ((e-42 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc9 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc9 1))) (let ((e-47 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc8 1))) (let ((e-51 (vector-ref sc8 2))) (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((2) (let ((e-58 (vector-ref sc9 2))) (let ((e-59 (vector-ref sc9 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((3) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((e-3 (vector-ref sc9 3))) (let ((e-4 (vector-ref sc9 4))) (let ((e-5 (vector-ref sc9 5))) (let ((sc10 e-3)) (cond ((equal? sc10 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-6 (vector-ref sc11 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-7 (vector-ref sc12 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-8 (vector-ref sc13 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc9 2))) (let ((e-9 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc9 1))) (let ((e-12 (vector-ref sc9 2))) (let ((e-13 (vector-ref sc9 3))) (let ((e-14 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc9 1))) (let ((e-17 (vector-ref sc9 2))) (let ((e-18 (vector-ref sc9 3))) (let ((e-19 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc9 1))) (let ((e-22 (vector-ref sc9 2))) (let ((e-23 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc9 1))) (let ((e-26 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((sc11 e-5)) (case (vector-ref sc11 0) ((9) (let ((e-2 (vector-ref sc11 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc9 1))) (let ((e-29 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc9 1))) (let ((e-32 (vector-ref sc9 2))) (let ((e-33 (vector-ref sc9 3))) (let ((e-34 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc9 1))) (let ((e-37 (vector-ref sc9 2))) (let ((e-38 (vector-ref sc9 3))) (let ((e-39 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc9 1))) (let ((e-42 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc9 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc9 1))) (let ((e-47 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((3) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((e-3 (vector-ref sc8 3))) (let ((e-4 (vector-ref sc8 4))) (let ((e-5 (vector-ref sc8 5))) (let ((sc9 e-3)) (cond ((equal? sc9 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-6 (vector-ref sc10 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc8 2))) (let ((e-9 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((e-13 (vector-ref sc8 3))) (let ((e-14 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc8 1))) (let ((e-17 (vector-ref sc8 2))) (let ((e-18 (vector-ref sc8 3))) (let ((e-19 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((e-23 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc8 1))) (let ((e-26 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((sc10 e-5)) (case (vector-ref sc10 0) ((9) (let ((e-2 (vector-ref sc10 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc8 1))) (let ((e-29 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc8 1))) (let ((e-32 (vector-ref sc8 2))) (let ((e-33 (vector-ref sc8 3))) (let ((e-34 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc8 1))) (let ((e-37 (vector-ref sc8 2))) (let ((e-38 (vector-ref sc8 3))) (let ((e-39 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc8 1))) (let ((e-42 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc8 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc8 1))) (let ((e-47 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-61 (vector-ref sc7 1))) (let ((e-62 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc9 e-5)) (let ((e-0 (vector-ref sc9 1))) e-0))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((sc10 e-6)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7627-1631 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc11 e-1)) (let ((e-18 (vector-ref sc11 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc7 arg-6)) (case (vector-ref sc7 0) ((0) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((2) (let ((e-53 (vector-ref sc8 1))) (let ((e-54 (vector-ref sc8 2))) (let ((e-55 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((3) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((e-3 (vector-ref sc8 3))) (let ((e-4 (vector-ref sc8 4))) (let ((e-5 (vector-ref sc8 5))) (let ((sc9 e-3)) (cond ((equal? sc9 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-6 (vector-ref sc10 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc8 2))) (let ((e-9 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((e-13 (vector-ref sc8 3))) (let ((e-14 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc8 1))) (let ((e-17 (vector-ref sc8 2))) (let ((e-18 (vector-ref sc8 3))) (let ((e-19 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((e-23 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc8 1))) (let ((e-26 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((sc10 e-5)) (case (vector-ref sc10 0) ((9) (let ((e-2 (vector-ref sc10 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc8 1))) (let ((e-29 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc8 1))) (let ((e-32 (vector-ref sc8 2))) (let ((e-33 (vector-ref sc8 3))) (let ((e-34 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc8 1))) (let ((e-37 (vector-ref sc8 2))) (let ((e-38 (vector-ref sc8 3))) (let ((e-39 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc8 1))) (let ((e-42 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc8 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc8 1))) (let ((e-47 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc7 1))) (let ((e-51 (vector-ref sc7 2))) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((2) (let ((e-58 (vector-ref sc8 2))) (let ((e-59 (vector-ref sc8 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((3) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((e-3 (vector-ref sc8 3))) (let ((e-4 (vector-ref sc8 4))) (let ((e-5 (vector-ref sc8 5))) (let ((sc9 e-3)) (cond ((equal? sc9 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-6 (vector-ref sc10 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc8 2))) (let ((e-9 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((e-13 (vector-ref sc8 3))) (let ((e-14 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc8 1))) (let ((e-17 (vector-ref sc8 2))) (let ((e-18 (vector-ref sc8 3))) (let ((e-19 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((e-23 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc8 1))) (let ((e-26 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((sc10 e-5)) (case (vector-ref sc10 0) ((9) (let ((e-2 (vector-ref sc10 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc8 1))) (let ((e-29 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc8 1))) (let ((e-32 (vector-ref sc8 2))) (let ((e-33 (vector-ref sc8 3))) (let ((e-34 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc8 1))) (let ((e-37 (vector-ref sc8 2))) (let ((e-38 (vector-ref sc8 3))) (let ((e-39 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc8 1))) (let ((e-42 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc8 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc8 1))) (let ((e-47 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((3) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((e-3 (vector-ref sc7 3))) (let ((e-4 (vector-ref sc7 4))) (let ((e-5 (vector-ref sc7 5))) (let ((sc8 e-3)) (cond ((equal? sc8 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-6 (vector-ref sc9 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc7 2))) (let ((e-9 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((e-13 (vector-ref sc7 3))) (let ((e-14 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((e-18 (vector-ref sc7 3))) (let ((e-19 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((e-23 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc7 1))) (let ((e-26 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((sc9 e-5)) (case (vector-ref sc9 0) ((9) (let ((e-2 (vector-ref sc9 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc7 1))) (let ((e-29 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc7 1))) (let ((e-32 (vector-ref sc7 2))) (let ((e-33 (vector-ref sc7 3))) (let ((e-34 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc7 1))) (let ((e-37 (vector-ref sc7 2))) (let ((e-38 (vector-ref sc7 3))) (let ((e-39 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc7 1))) (let ((e-42 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc7 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc7 1))) (let ((e-47 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-61 (vector-ref sc6 1))) (let ((e-62 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc8 e-5)) (let ((e-0 (vector-ref sc8 1))) e-0))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((sc9 e-6)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7627-1631 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc10 e-1)) (let ((e-18 (vector-ref sc10 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc6 arg-6)) (case (vector-ref sc6 0) ((0) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((2) (let ((e-53 (vector-ref sc7 1))) (let ((e-54 (vector-ref sc7 2))) (let ((e-55 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((3) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((e-3 (vector-ref sc7 3))) (let ((e-4 (vector-ref sc7 4))) (let ((e-5 (vector-ref sc7 5))) (let ((sc8 e-3)) (cond ((equal? sc8 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-6 (vector-ref sc9 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc7 2))) (let ((e-9 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((e-13 (vector-ref sc7 3))) (let ((e-14 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((e-18 (vector-ref sc7 3))) (let ((e-19 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((e-23 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc7 1))) (let ((e-26 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((sc9 e-5)) (case (vector-ref sc9 0) ((9) (let ((e-2 (vector-ref sc9 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc7 1))) (let ((e-29 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc7 1))) (let ((e-32 (vector-ref sc7 2))) (let ((e-33 (vector-ref sc7 3))) (let ((e-34 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc7 1))) (let ((e-37 (vector-ref sc7 2))) (let ((e-38 (vector-ref sc7 3))) (let ((e-39 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc7 1))) (let ((e-42 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc7 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc7 1))) (let ((e-47 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc6 1))) (let ((e-51 (vector-ref sc6 2))) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((2) (let ((e-58 (vector-ref sc7 2))) (let ((e-59 (vector-ref sc7 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((3) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((e-3 (vector-ref sc7 3))) (let ((e-4 (vector-ref sc7 4))) (let ((e-5 (vector-ref sc7 5))) (let ((sc8 e-3)) (cond ((equal? sc8 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-6 (vector-ref sc9 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc7 2))) (let ((e-9 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((e-13 (vector-ref sc7 3))) (let ((e-14 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((e-18 (vector-ref sc7 3))) (let ((e-19 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((e-23 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc7 1))) (let ((e-26 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((sc9 e-5)) (case (vector-ref sc9 0) ((9) (let ((e-2 (vector-ref sc9 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc7 1))) (let ((e-29 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc7 1))) (let ((e-32 (vector-ref sc7 2))) (let ((e-33 (vector-ref sc7 3))) (let ((e-34 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc7 1))) (let ((e-37 (vector-ref sc7 2))) (let ((e-38 (vector-ref sc7 3))) (let ((e-39 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc7 1))) (let ((e-42 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc7 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc7 1))) (let ((e-47 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((3) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((e-3 (vector-ref sc6 3))) (let ((e-4 (vector-ref sc6 4))) (let ((e-5 (vector-ref sc6 5))) (let ((sc7 e-3)) (cond ((equal? sc7 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-6 (vector-ref sc8 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc6 2))) (let ((e-9 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc6 1))) (let ((e-12 (vector-ref sc6 2))) (let ((e-13 (vector-ref sc6 3))) (let ((e-14 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc6 1))) (let ((e-17 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (let ((e-19 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((e-23 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc6 1))) (let ((e-26 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((9) (let ((e-2 (vector-ref sc8 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc6 1))) (let ((e-29 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc6 1))) (let ((e-32 (vector-ref sc6 2))) (let ((e-33 (vector-ref sc6 3))) (let ((e-34 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc6 1))) (let ((e-37 (vector-ref sc6 2))) (let ((e-38 (vector-ref sc6 3))) (let ((e-39 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc6 1))) (let ((e-42 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc6 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc6 1))) (let ((e-47 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-61 (vector-ref sc5 1))) (let ((e-62 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc7 e-5)) (let ((e-0 (vector-ref sc7 1))) e-0))) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7627-1631 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc9 e-1)) (let ((e-18 (vector-ref sc9 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((2) (let ((e-53 (vector-ref sc6 1))) (let ((e-54 (vector-ref sc6 2))) (let ((e-55 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((3) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((e-3 (vector-ref sc6 3))) (let ((e-4 (vector-ref sc6 4))) (let ((e-5 (vector-ref sc6 5))) (let ((sc7 e-3)) (cond ((equal? sc7 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-6 (vector-ref sc8 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc6 2))) (let ((e-9 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc6 1))) (let ((e-12 (vector-ref sc6 2))) (let ((e-13 (vector-ref sc6 3))) (let ((e-14 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc6 1))) (let ((e-17 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (let ((e-19 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((e-23 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc6 1))) (let ((e-26 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((9) (let ((e-2 (vector-ref sc8 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc6 1))) (let ((e-29 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc6 1))) (let ((e-32 (vector-ref sc6 2))) (let ((e-33 (vector-ref sc6 3))) (let ((e-34 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc6 1))) (let ((e-37 (vector-ref sc6 2))) (let ((e-38 (vector-ref sc6 3))) (let ((e-39 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc6 1))) (let ((e-42 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc6 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc6 1))) (let ((e-47 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc5 1))) (let ((e-51 (vector-ref sc5 2))) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((2) (let ((e-58 (vector-ref sc6 2))) (let ((e-59 (vector-ref sc6 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((3) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((e-3 (vector-ref sc6 3))) (let ((e-4 (vector-ref sc6 4))) (let ((e-5 (vector-ref sc6 5))) (let ((sc7 e-3)) (cond ((equal? sc7 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-6 (vector-ref sc8 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc6 2))) (let ((e-9 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc6 1))) (let ((e-12 (vector-ref sc6 2))) (let ((e-13 (vector-ref sc6 3))) (let ((e-14 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc6 1))) (let ((e-17 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (let ((e-19 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((e-23 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc6 1))) (let ((e-26 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((9) (let ((e-2 (vector-ref sc8 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc6 1))) (let ((e-29 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc6 1))) (let ((e-32 (vector-ref sc6 2))) (let ((e-33 (vector-ref sc6 3))) (let ((e-34 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc6 1))) (let ((e-37 (vector-ref sc6 2))) (let ((e-38 (vector-ref sc6 3))) (let ((e-39 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc6 1))) (let ((e-42 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc6 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc6 1))) (let ((e-47 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-3 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-5 (vector-ref sc5 5))) (let ((sc6 e-3)) (cond ((equal? sc6 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-6 (vector-ref sc7 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc5 2))) (let ((e-9 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((e-13 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc5 1))) (let ((e-17 (vector-ref sc5 2))) (let ((e-18 (vector-ref sc5 3))) (let ((e-19 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((e-23 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((9) (let ((e-2 (vector-ref sc7 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc5 1))) (let ((e-29 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc5 1))) (let ((e-32 (vector-ref sc5 2))) (let ((e-33 (vector-ref sc5 3))) (let ((e-34 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc5 1))) (let ((e-37 (vector-ref sc5 2))) (let ((e-38 (vector-ref sc5 3))) (let ((e-39 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc5 1))) (let ((e-42 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc5 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc5 1))) (let ((e-47 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-61 (vector-ref sc4 1))) (let ((e-62 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc6 e-5)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7627-1631 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc8 e-1)) (let ((e-18 (vector-ref sc8 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((2) (let ((e-53 (vector-ref sc5 1))) (let ((e-54 (vector-ref sc5 2))) (let ((e-55 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-3 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-5 (vector-ref sc5 5))) (let ((sc6 e-3)) (cond ((equal? sc6 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-6 (vector-ref sc7 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc5 2))) (let ((e-9 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((e-13 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc5 1))) (let ((e-17 (vector-ref sc5 2))) (let ((e-18 (vector-ref sc5 3))) (let ((e-19 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((e-23 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((9) (let ((e-2 (vector-ref sc7 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc5 1))) (let ((e-29 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc5 1))) (let ((e-32 (vector-ref sc5 2))) (let ((e-33 (vector-ref sc5 3))) (let ((e-34 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc5 1))) (let ((e-37 (vector-ref sc5 2))) (let ((e-38 (vector-ref sc5 3))) (let ((e-39 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc5 1))) (let ((e-42 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc5 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc5 1))) (let ((e-47 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc4 1))) (let ((e-51 (vector-ref sc4 2))) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((2) (let ((e-58 (vector-ref sc5 2))) (let ((e-59 (vector-ref sc5 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-3 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-5 (vector-ref sc5 5))) (let ((sc6 e-3)) (cond ((equal? sc6 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-6 (vector-ref sc7 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc5 2))) (let ((e-9 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((e-13 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc5 1))) (let ((e-17 (vector-ref sc5 2))) (let ((e-18 (vector-ref sc5 3))) (let ((e-19 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((e-23 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((9) (let ((e-2 (vector-ref sc7 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc5 1))) (let ((e-29 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc5 1))) (let ((e-32 (vector-ref sc5 2))) (let ((e-33 (vector-ref sc5 3))) (let ((e-34 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc5 1))) (let ((e-37 (vector-ref sc5 2))) (let ((e-38 (vector-ref sc5 3))) (let ((e-39 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc5 1))) (let ((e-42 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc5 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc5 1))) (let ((e-47 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((e-5 (vector-ref sc4 5))) (let ((sc5 e-3)) (cond ((equal? sc5 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc4 2))) (let ((e-9 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc4 1))) (let ((e-12 (vector-ref sc4 2))) (let ((e-13 (vector-ref sc4 3))) (let ((e-14 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (let ((e-19 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((e-23 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((9) (let ((e-2 (vector-ref sc6 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc4 1))) (let ((e-32 (vector-ref sc4 2))) (let ((e-33 (vector-ref sc4 3))) (let ((e-34 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((e-38 (vector-ref sc4 3))) (let ((e-39 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc4 1))) (let ((e-42 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc4 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc4 1))) (let ((e-47 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-61 (vector-ref sc3 1))) (let ((e-62 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0))) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7627-1631 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc7 e-1)) (let ((e-18 (vector-ref sc7 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((2) (let ((e-53 (vector-ref sc4 1))) (let ((e-54 (vector-ref sc4 2))) (let ((e-55 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((e-5 (vector-ref sc4 5))) (let ((sc5 e-3)) (cond ((equal? sc5 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc4 2))) (let ((e-9 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc4 1))) (let ((e-12 (vector-ref sc4 2))) (let ((e-13 (vector-ref sc4 3))) (let ((e-14 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (let ((e-19 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((e-23 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((9) (let ((e-2 (vector-ref sc6 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc4 1))) (let ((e-32 (vector-ref sc4 2))) (let ((e-33 (vector-ref sc4 3))) (let ((e-34 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((e-38 (vector-ref sc4 3))) (let ((e-39 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc4 1))) (let ((e-42 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc4 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc4 1))) (let ((e-47 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc3 1))) (let ((e-51 (vector-ref sc3 2))) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((2) (let ((e-58 (vector-ref sc4 2))) (let ((e-59 (vector-ref sc4 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((e-5 (vector-ref sc4 5))) (let ((sc5 e-3)) (cond ((equal? sc5 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc4 2))) (let ((e-9 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc4 1))) (let ((e-12 (vector-ref sc4 2))) (let ((e-13 (vector-ref sc4 3))) (let ((e-14 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (let ((e-19 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((e-23 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((9) (let ((e-2 (vector-ref sc6 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc4 1))) (let ((e-32 (vector-ref sc4 2))) (let ((e-33 (vector-ref sc4 3))) (let ((e-34 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((e-38 (vector-ref sc4 3))) (let ((e-39 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc4 1))) (let ((e-42 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc4 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc4 1))) (let ((e-47 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((e-5 (vector-ref sc3 5))) (let ((sc4 e-3)) (cond ((equal? sc4 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc3 2))) (let ((e-9 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc3 1))) (let ((e-12 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-14 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (let ((e-19 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((9) (let ((e-2 (vector-ref sc5 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc3 1))) (let ((e-32 (vector-ref sc3 2))) (let ((e-33 (vector-ref sc3 3))) (let ((e-34 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc3 1))) (let ((e-37 (vector-ref sc3 2))) (let ((e-38 (vector-ref sc3 3))) (let ((e-39 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc3 1))) (let ((e-42 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc3 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc3 1))) (let ((e-47 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-61 (vector-ref sc2 1))) (let ((e-62 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7627-1631 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc6 e-1)) (let ((e-18 (vector-ref sc6 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((2) (let ((e-53 (vector-ref sc3 1))) (let ((e-54 (vector-ref sc3 2))) (let ((e-55 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((e-5 (vector-ref sc3 5))) (let ((sc4 e-3)) (cond ((equal? sc4 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc3 2))) (let ((e-9 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc3 1))) (let ((e-12 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-14 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (let ((e-19 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((9) (let ((e-2 (vector-ref sc5 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc3 1))) (let ((e-32 (vector-ref sc3 2))) (let ((e-33 (vector-ref sc3 3))) (let ((e-34 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc3 1))) (let ((e-37 (vector-ref sc3 2))) (let ((e-38 (vector-ref sc3 3))) (let ((e-39 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc3 1))) (let ((e-42 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc3 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc3 1))) (let ((e-47 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc2 1))) (let ((e-51 (vector-ref sc2 2))) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((2) (let ((e-58 (vector-ref sc3 2))) (let ((e-59 (vector-ref sc3 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((e-5 (vector-ref sc3 5))) (let ((sc4 e-3)) (cond ((equal? sc4 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc3 2))) (let ((e-9 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc3 1))) (let ((e-12 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-14 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (let ((e-19 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((9) (let ((e-2 (vector-ref sc5 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc3 1))) (let ((e-32 (vector-ref sc3 2))) (let ((e-33 (vector-ref sc3 3))) (let ((e-34 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc3 1))) (let ((e-37 (vector-ref sc3 2))) (let ((e-38 (vector-ref sc3 3))) (let ((e-39 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc3 1))) (let ((e-42 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc3 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc3 1))) (let ((e-47 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((e-5 (vector-ref sc2 5))) (let ((sc3 e-3)) (cond ((equal? sc3 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (let ((e-13 (vector-ref sc2 3))) (let ((e-14 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (let ((e-19 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((9) (let ((e-2 (vector-ref sc4 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (let ((e-34 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc2 1))) (let ((e-37 (vector-ref sc2 2))) (let ((e-38 (vector-ref sc2 3))) (let ((e-39 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc2 1))) (let ((e-42 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc2 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc2 1))) (let ((e-47 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-61 (vector-ref sc1 1))) (let ((e-62 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7627-1631 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc5 e-1)) (let ((e-18 (vector-ref sc5 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((2) (let ((e-53 (vector-ref sc2 1))) (let ((e-54 (vector-ref sc2 2))) (let ((e-55 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((e-5 (vector-ref sc2 5))) (let ((sc3 e-3)) (cond ((equal? sc3 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (let ((e-13 (vector-ref sc2 3))) (let ((e-14 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (let ((e-19 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((9) (let ((e-2 (vector-ref sc4 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (let ((e-34 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc2 1))) (let ((e-37 (vector-ref sc2 2))) (let ((e-38 (vector-ref sc2 3))) (let ((e-39 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc2 1))) (let ((e-42 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc2 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc2 1))) (let ((e-47 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc1 1))) (let ((e-51 (vector-ref sc1 2))) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((2) (let ((e-58 (vector-ref sc2 2))) (let ((e-59 (vector-ref sc2 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((e-5 (vector-ref sc2 5))) (let ((sc3 e-3)) (cond ((equal? sc3 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (let ((e-13 (vector-ref sc2 3))) (let ((e-14 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (let ((e-19 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((9) (let ((e-2 (vector-ref sc4 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (let ((e-34 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc2 1))) (let ((e-37 (vector-ref sc2 2))) (let ((e-38 (vector-ref sc2 3))) (let ((e-39 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc2 1))) (let ((e-42 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc2 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc2 1))) (let ((e-47 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 5))) (let ((sc2 e-3)) (cond ((equal? sc2 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (let ((e-19 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((9) (let ((e-2 (vector-ref sc3 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc1 1))) (let ((e-37 (vector-ref sc1 2))) (let ((e-38 (vector-ref sc1 3))) (let ((e-39 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc1 1))) (let ((e-42 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-61 (vector-ref sc0 1))) (let ((e-62 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7627-1631 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc4 e-1)) (let ((e-18 (vector-ref sc4 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((2) (let ((e-53 (vector-ref sc1 1))) (let ((e-54 (vector-ref sc1 2))) (let ((e-55 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 5))) (let ((sc2 e-3)) (cond ((equal? sc2 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (let ((e-19 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((9) (let ((e-2 (vector-ref sc3 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc1 1))) (let ((e-37 (vector-ref sc1 2))) (let ((e-38 (vector-ref sc1 3))) (let ((e-39 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc1 1))) (let ((e-42 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((2) (let ((e-58 (vector-ref sc1 2))) (let ((e-59 (vector-ref sc1 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 5))) (let ((sc2 e-3)) (cond ((equal? sc2 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (let ((e-19 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((9) (let ((e-2 (vector-ref sc3 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc1 1))) (let ((e-37 (vector-ref sc1 2))) (let ((e-38 (vector-ref sc1 3))) (let ((e-39 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc1 1))) (let ((e-42 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-3)) (cond ((equal? sc1 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7225-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((9) (let ((e-2 (vector-ref sc2 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (let ((e-39 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))))))))))))) (define Inline-Compiler-doEval (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Compiler.Inline.LVar" ) 0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Prelude-C-43C-43 ": " (CompileExpr-Core-show_Show__C-40CExpC-32C-36varsC-41 arg-0 arg-3)))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((Inline-Compiler-eval (vector 0 ) arg-0 arg-1 e-5 (vector 0 ) (vector 0 ) (vector 0 ) arg-3) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Inlined: " (CompileExpr-Core-show_Show__C-40CExpC-32C-36varsC-41 arg-0 e-7))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 e-7))))))))))))))))))))) -(define Inline-Compiler-compileAndInlineAll (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((ns (NameMap-Data-keys 'erased (let ((sc1 e-5)) (let ((e-21 (vector-ref sc1 22))) e-21))))) (let ((act-25 ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-n--10172-3962-nonErased arg-0 eta-0 eta-1))) ns) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (CompileExpr-Compiler-compileDef arg-0 eta-0 eta-1))) e-6) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-inlineDef arg-0 eta-0 eta-1))) e-6) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-mergeLamDef arg-0 eta-0 eta-1))) e-6) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-fixArityDef arg-0 eta-0 eta-1))) e-6) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-inlineDef arg-0 eta-0 eta-1))) e-6) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-31 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-mergeLamDef arg-0 eta-0 eta-1))) e-6) ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-fixArityDef arg-0 eta-0 eta-1))) e-6) ext-0)))))))))))))))))))))))))))))))))))))) +(define Inline-Compiler-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--10231-3970-nonErased arg-0 eta-0 eta-1))) ns) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (CompileExpr-Compiler-compileDef arg-0 eta-0 eta-1))) e-6) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-inlineDef arg-0 eta-0 eta-1))) e-6) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-mergeLamDef arg-0 eta-0 eta-1))) e-6) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-fixArityDef arg-0 eta-0 eta-1))) e-6) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-inlineDef arg-0 eta-0 eta-1))) e-6) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-31 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-mergeLamDef arg-0 eta-0 eta-1))) e-6) ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-fixArityDef arg-0 eta-0 eta-1))) e-6) ext-0)))))))))))))))))))))))))))))))))))))) (define Inline-Compiler-Stack (lambda (arg-0) (vector "Prelude.List" (vector "Core.CompileExpr.CExp" arg-0)))) -(define Commands-IDEMode-Idris-case--3173-3016 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (vector 0 (vector 1 ((Builtin-fst 'erased 'erased arg-2) arg-3) e-0))))(else (vector 0 (vector 1 ((Builtin-fst 'erased 'erased arg-2) arg-3) (vector 1 arg-5 (vector 0 ))))))))) -(define Commands-IDEMode-Idris-case--2106-2284 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 e-4)) (cond ((equal? sc2 "overview") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 1 (vector 0 ))))(else (vector 0 ))))) ((equal? sc2 "full") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 1 (vector 1 ))))(else (vector 0 )))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))) -(define Commands-IDEMode-Idris-case--2106-2181 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 6 arg-0 arg-1 e-1 (Commands-IDEMode-Idris-n--2106-2172-getMode arg-0 arg-1 arg-2 arg-3 arg-3)))))(else (vector 0 )))))) -(define Commands-IDEMode-Idris-case--2106-2132 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 6 arg-0 arg-1 e-1 1))))(else (vector 0 )))))) -(define Commands-IDEMode-Idris-n--2106-2172-getMode (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Prelude-C-61C-61_Eq__String arg-4 "all"))) -(define Commands-IDEMode-Idris-n--3000-2817-escapeChar (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\\) (vector 1 #\\ (vector 1 #\\ (vector 0 )))) ((equal? sc0 #\") (vector 1 #\\ (vector 1 #\" (vector 0 ))))(else (vector 1 arg-0 (vector 0 ))))))) +(define Commands-IDEMode-Idris-case--3186-3024 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (vector 0 (vector 1 ((Builtin-fst 'erased 'erased arg-2) arg-3) e-0))))(else (vector 0 (vector 1 ((Builtin-fst 'erased 'erased arg-2) arg-3) (vector 1 arg-5 (vector 0 ))))))))) +(define Commands-IDEMode-Idris-case--2119-2292 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 e-4)) (cond ((equal? sc2 "overview") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 1 (vector 0 ))))(else (vector 0 ))))) ((equal? sc2 "full") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 1 (vector 1 ))))(else (vector 0 )))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))) +(define Commands-IDEMode-Idris-case--2119-2189 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 6 arg-0 arg-1 e-1 (Commands-IDEMode-Idris-n--2119-2180-getMode arg-0 arg-1 arg-2 arg-3 arg-3)))))(else (vector 0 )))))) +(define Commands-IDEMode-Idris-case--2119-2140 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 6 arg-0 arg-1 e-1 1))))(else (vector 0 )))))) +(define Commands-IDEMode-Idris-n--2119-2180-getMode (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Prelude-C-61C-61_Eq__String arg-4 "all"))) +(define Commands-IDEMode-Idris-n--3013-2825-escapeChar (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\\) (vector 1 #\\ (vector 1 #\\ (vector 0 )))) ((equal? sc0 #\") (vector 1 #\\ (vector 1 #\" (vector 0 ))))(else (vector 1 arg-0 (vector 0 ))))))) (define Commands-IDEMode-Idris-toSExp_SExpable__String (lambda (ext-0) (vector 1 ext-0))) (define Commands-IDEMode-Idris-toSExp_SExpable__SExp (lambda (ext-0) ext-0)) (define Commands-IDEMode-Idris-toSExp_SExpable__Nat (lambda (ext-0) (vector 3 (Prelude-cast_Cast__Nat_Integer ext-0)))) @@ -6668,7 +6736,7 @@ (define Commands-IDEMode-Idris-toSExp_SExpable__Integer (lambda (ext-0) (vector 3 ext-0))) (define Commands-IDEMode-Idris-toSExp_SExpable__Int (lambda (ext-0) (vector 3 (Prelude-cast_Cast__Int_Integer ext-0)))) (define Commands-IDEMode-Idris-toSExp_SExpable__Bool (lambda (ext-0) (vector 2 ext-0))) -(define Commands-IDEMode-Idris-toSExp_SExpable__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Commands-IDEMode-Idris-case--3173-3016 'erased 'erased arg-2 e-2 e-3 ((Builtin-snd 'erased 'erased arg-2) e-3))))))) +(define Commands-IDEMode-Idris-toSExp_SExpable__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Commands-IDEMode-Idris-case--3186-3024 'erased 'erased arg-2 e-2 e-3 ((Builtin-snd 'erased 'erased arg-2) e-3))))))) (define Commands-IDEMode-Idris-toSExp_SExpable__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-3) (arg-1 arg-3)) arg-2)))) (define Commands-IDEMode-Idris-show_Show__SExp (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (Commands-IDEMode-Idris-show_Show__SExp arg-1)) e-0)) ")")))) ((1) (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "\"" (Strings-Prelude-C-43C-43 (Commands-IDEMode-Idris-escape e-1) "\"")))) ((2) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 ":" (Prelude-show_Show__Bool e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (Prelude-show_Show__Integer e-3))) (else (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 ":" e-4))))))) (define Commands-IDEMode-Idris-showPrec_Show__SExp (lambda (arg-0 arg-1) (Commands-IDEMode-Idris-show_Show__SExp arg-1))) @@ -6677,77 +6745,79 @@ (define Commands-IDEMode-Idris-__Impl_SExpable_Int (lambda (ext-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int ext-0))) (define Commands-IDEMode-Idris-__Impl_SExpable_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-0 arg-1 arg-2 ext-0) (Commands-IDEMode-Idris-toSExp_SExpable__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 ext-0))) (define Commands-IDEMode-Idris-__Impl_SExpable_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 ext-0) (Commands-IDEMode-Idris-toSExp_SExpable__C-40ListC-32C-36aC-41 'erased arg-1 ext-0))) -(define Commands-IDEMode-Idris-version (lambda (arg-0 arg-1) (Commands-IDEMode-Idris-toSExp_SExpable__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-2897) (Commands-IDEMode-Idris-toSExp_SExpable__SExp arg-2897)) (lambda (arg-2897) (Commands-IDEMode-Idris-toSExp_SExpable__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-2898) (Commands-IDEMode-Idris-toSExp_SExpable__Int arg-2898)) (lambda (arg-2898) (Commands-IDEMode-Idris-toSExp_SExpable__Int arg-2898))) arg-2897))) (vector 0 (vector 4 "protocol-version") (vector 0 arg-0 arg-1))))) +(define Commands-IDEMode-Idris-version (lambda (arg-0 arg-1) (Commands-IDEMode-Idris-toSExp_SExpable__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-2905) (Commands-IDEMode-Idris-toSExp_SExpable__SExp arg-2905)) (lambda (arg-2905) (Commands-IDEMode-Idris-toSExp_SExpable__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-2906) (Commands-IDEMode-Idris-toSExp_SExpable__Int arg-2906)) (lambda (arg-2906) (Commands-IDEMode-Idris-toSExp_SExpable__Int arg-2906))) arg-2905))) (vector 0 (vector 4 "protocol-version") (vector 0 arg-0 arg-1))))) (define Commands-IDEMode-Idris-toSExp (lambda (arg-0 arg-1 ext-0) (arg-1 ext-0))) -(define Commands-IDEMode-Idris-sendStr (lambda (arg-0 arg-1 ext-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-0) (vector 0 )) (File-System-fPutStr 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0 arg-1) ext-0))) -(define Commands-IDEMode-Idris-send (lambda (arg-0 arg-1 arg-2 arg-3) (let ((r (Strings-Prelude-C-43C-43 (Commands-IDEMode-Idris-show_Show__SExp (arg-1 arg-3)) "\u000a"))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Commands-IDEMode-Idris-sendStr arg-2 (Hex-Utils-leftPad #\0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))) (Hex-Utils-asHex (Prelude-cast_Cast__Nat_Int (Prelude-length r)))) eta-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (Commands-IDEMode-Idris-sendStr arg-2 r eta-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((File-System-fflush 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-2) eta-0))) (vector 1 act-26)))))))))))))) +(define Commands-IDEMode-Idris-sendStr (lambda (arg-0 arg-1 ext-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-0) (vector 0 )) (File-System-fPutStr 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-0 arg-1) ext-0))) +(define Commands-IDEMode-Idris-send (lambda (arg-0 arg-1 arg-2 arg-3) (let ((r (Strings-Prelude-C-43C-43 (Commands-IDEMode-Idris-show_Show__SExp (arg-1 arg-3)) "\u000a"))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Commands-IDEMode-Idris-sendStr arg-2 (Hex-Utils-leftPad #\0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))) (Hex-Utils-asHex (Prelude-cast_Cast__Nat_Int (Prelude-length r)))) eta-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (Commands-IDEMode-Idris-sendStr arg-2 r eta-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((File-System-fflush 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-26 (arg-3672 eta-1))) ((arg-3673 act-26) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-2) eta-0))) (vector 1 act-26)))))))))))))) (define Commands-IDEMode-Idris-readHints (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Commands-IDEMode-Idris-readHints e-3) (lambda (restC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 e-4 restC-39))))))(else (vector 0 )))))))(else (vector 0 )))))) (define Commands-IDEMode-Idris-getMsg (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((3) (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Commands-IDEMode-Idris-getIDECommand e-2) (lambda (cmd) (Prelude-pure_Applicative__Maybe 'erased (vector 0 cmd e-7)))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))) -(define Commands-IDEMode-Idris-getIDECommand (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 "interpret") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-7 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 0 e-9)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "load-file") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-12)) (case (vector-ref sc5 0) ((1) (let ((e-14 (vector-ref sc5 1))) (let ((sc6 e-13)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 1 e-14 (vector 0 )))) ((1) (let ((e-17 (vector-ref sc6 1))) (let ((e-18 (vector-ref sc6 2))) (let ((sc7 e-17)) (case (vector-ref sc7 0) ((3) (let ((e-19 (vector-ref sc7 1))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 1 e-14 (vector 1 e-19))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "type-of") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-22 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 2))) (let ((sc5 e-22)) (case (vector-ref sc5 0) ((1) (let ((e-24 (vector-ref sc5 1))) (let ((sc6 e-23)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 2 e-24 (vector 0 )))) ((1) (let ((e-27 (vector-ref sc6 1))) (let ((e-28 (vector-ref sc6 2))) (let ((sc7 e-27)) (case (vector-ref sc7 0) ((3) (let ((e-29 (vector-ref sc7 1))) (let ((sc8 e-28)) (case (vector-ref sc8 0) ((1) (let ((e-31 (vector-ref sc8 1))) (let ((e-32 (vector-ref sc8 2))) (let ((sc9 e-31)) (case (vector-ref sc9 0) ((3) (let ((e-33 (vector-ref sc9 1))) (let ((sc10 e-32)) (case (vector-ref sc10 0) ((0) (vector 1 (vector 2 e-24 (vector 1 (vector 0 e-29 e-33)))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "case-split") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((sc5 e-36)) (case (vector-ref sc5 0) ((3) (let ((e-38 (vector-ref sc5 1))) (let ((sc6 e-37)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 1))) (let ((e-41 (vector-ref sc6 2))) (let ((sc7 e-40)) (case (vector-ref sc7 0) ((3) (let ((e-42 (vector-ref sc7 1))) (let ((sc8 e-41)) (case (vector-ref sc8 0) ((1) (let ((e-45 (vector-ref sc8 1))) (let ((e-46 (vector-ref sc8 2))) (let ((sc9 e-45)) (case (vector-ref sc9 0) ((1) (let ((e-47 (vector-ref sc9 1))) (let ((sc10 e-46)) (case (vector-ref sc10 0) ((0) (vector 1 (vector 3 e-38 e-42 e-47)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))) ((1) (let ((e-43 (vector-ref sc7 1))) (let ((sc8 e-41)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 3 e-38 0 e-43)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "add-clause") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-51 (vector-ref sc4 1))) (let ((e-52 (vector-ref sc4 2))) (let ((sc5 e-51)) (case (vector-ref sc5 0) ((3) (let ((e-53 (vector-ref sc5 1))) (let ((sc6 e-52)) (case (vector-ref sc6 0) ((1) (let ((e-55 (vector-ref sc6 1))) (let ((e-56 (vector-ref sc6 2))) (let ((sc7 e-55)) (case (vector-ref sc7 0) ((1) (let ((e-57 (vector-ref sc7 1))) (let ((sc8 e-56)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 4 e-53 e-57)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "add-missing") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-60 (vector-ref sc4 1))) (let ((e-61 (vector-ref sc4 2))) (let ((sc5 e-60)) (case (vector-ref sc5 0) ((3) (let ((e-62 (vector-ref sc5 1))) (let ((sc6 e-61)) (case (vector-ref sc6 0) ((1) (let ((e-64 (vector-ref sc6 1))) (let ((e-65 (vector-ref sc6 2))) (let ((sc7 e-64)) (case (vector-ref sc7 0) ((1) (let ((e-66 (vector-ref sc7 1))) (let ((sc8 e-65)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 5 e-62 e-66)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "proof-search") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-69 (vector-ref sc4 1))) (let ((e-70 (vector-ref sc4 2))) (let ((sc5 e-69)) (case (vector-ref sc5 0) ((3) (let ((e-71 (vector-ref sc5 1))) (let ((sc6 e-70)) (case (vector-ref sc6 0) ((1) (let ((e-73 (vector-ref sc6 1))) (let ((e-74 (vector-ref sc6 2))) (let ((sc7 e-73)) (case (vector-ref sc7 0) ((1) (let ((e-75 (vector-ref sc7 1))) (let ((sc8 e-74)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 6 e-71 e-75 (vector 0 ) 1))) ((1) (let ((e-78 (vector-ref sc8 1))) (let ((e-79 (vector-ref sc8 2))) (let ((sc9 e-78)) (case (vector-ref sc9 0) ((0) (let ((e-80 (vector-ref sc9 1))) (let ((sc10 e-79)) (case (vector-ref sc10 0) ((0) (Commands-IDEMode-Idris-case--2106-2132 e-71 e-75 e-80 (Commands-IDEMode-Idris-readHints e-80))) ((1) (let ((e-83 (vector-ref sc10 1))) (let ((e-84 (vector-ref sc10 2))) (let ((sc11 e-83)) (case (vector-ref sc11 0) ((4) (let ((e-85 (vector-ref sc11 1))) (let ((sc12 e-84)) (case (vector-ref sc12 0) ((0) (Commands-IDEMode-Idris-case--2106-2181 e-71 e-75 e-80 e-85 (Commands-IDEMode-Idris-readHints e-80)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "generate-def") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-88 (vector-ref sc4 1))) (let ((e-89 (vector-ref sc4 2))) (let ((sc5 e-88)) (case (vector-ref sc5 0) ((3) (let ((e-90 (vector-ref sc5 1))) (let ((sc6 e-89)) (case (vector-ref sc6 0) ((1) (let ((e-92 (vector-ref sc6 1))) (let ((e-93 (vector-ref sc6 2))) (let ((sc7 e-92)) (case (vector-ref sc7 0) ((1) (let ((e-94 (vector-ref sc7 1))) (let ((sc8 e-93)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 7 e-90 e-94)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "make-lemma") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-97 (vector-ref sc4 1))) (let ((e-98 (vector-ref sc4 2))) (let ((sc5 e-97)) (case (vector-ref sc5 0) ((3) (let ((e-99 (vector-ref sc5 1))) (let ((sc6 e-98)) (case (vector-ref sc6 0) ((1) (let ((e-101 (vector-ref sc6 1))) (let ((e-102 (vector-ref sc6 2))) (let ((sc7 e-101)) (case (vector-ref sc7 0) ((1) (let ((e-103 (vector-ref sc7 1))) (let ((sc8 e-102)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 8 e-99 e-103)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "make-case") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-106 (vector-ref sc4 1))) (let ((e-107 (vector-ref sc4 2))) (let ((sc5 e-106)) (case (vector-ref sc5 0) ((3) (let ((e-108 (vector-ref sc5 1))) (let ((sc6 e-107)) (case (vector-ref sc6 0) ((1) (let ((e-110 (vector-ref sc6 1))) (let ((e-111 (vector-ref sc6 2))) (let ((sc7 e-110)) (case (vector-ref sc7 0) ((1) (let ((e-112 (vector-ref sc7 1))) (let ((sc8 e-111)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 9 e-108 e-112)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "make-with") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-115 (vector-ref sc4 1))) (let ((e-116 (vector-ref sc4 2))) (let ((sc5 e-115)) (case (vector-ref sc5 0) ((3) (let ((e-117 (vector-ref sc5 1))) (let ((sc6 e-116)) (case (vector-ref sc6 0) ((1) (let ((e-119 (vector-ref sc6 1))) (let ((e-120 (vector-ref sc6 2))) (let ((sc7 e-119)) (case (vector-ref sc7 0) ((1) (let ((e-121 (vector-ref sc7 1))) (let ((sc8 e-120)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 10 e-117 e-121)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "docs-for") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-124 (vector-ref sc4 1))) (let ((e-125 (vector-ref sc4 2))) (let ((sc5 e-124)) (case (vector-ref sc5 0) ((1) (let ((e-126 (vector-ref sc5 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (let ((sc6 e-125)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 0 ))) ((1) (let ((e-2 (vector-ref sc6 1))) (let ((e-6 (vector-ref sc6 2))) (let ((sc7 e-2)) (case (vector-ref sc7 0) ((4) (let ((e-7 (vector-ref sc7 1))) (let ((sc8 e-7)) (cond ((equal? sc8 "overview") (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (vector 1 (vector 1 (vector 0 ))))(else (vector 0 ))))) ((equal? sc8 "full") (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (vector 1 (vector 1 (vector 1 ))))(else (vector 0 )))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))) (lambda (modeOpt) (vector 1 (vector 11 e-126 modeOpt))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "apropos") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-128 (vector-ref sc4 1))) (let ((e-129 (vector-ref sc4 2))) (let ((sc5 e-128)) (case (vector-ref sc5 0) ((1) (let ((e-130 (vector-ref sc5 1))) (let ((sc6 e-129)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 12 e-130)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "metavariables") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-133 (vector-ref sc4 1))) (let ((e-134 (vector-ref sc4 2))) (let ((sc5 e-133)) (case (vector-ref sc5 0) ((3) (let ((e-135 (vector-ref sc5 1))) (let ((sc6 e-134)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 13 e-135)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "who-calls") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-138 (vector-ref sc4 1))) (let ((e-139 (vector-ref sc4 2))) (let ((sc5 e-138)) (case (vector-ref sc5 0) ((1) (let ((e-140 (vector-ref sc5 1))) (let ((sc6 e-139)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 14 e-140)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "calls-who") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-143 (vector-ref sc4 1))) (let ((e-144 (vector-ref sc4 2))) (let ((sc5 e-143)) (case (vector-ref sc5 0) ((1) (let ((e-145 (vector-ref sc5 1))) (let ((sc6 e-144)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 15 e-145)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "browse-namespace") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-148 (vector-ref sc4 1))) (let ((e-149 (vector-ref sc4 2))) (let ((sc5 e-148)) (case (vector-ref sc5 0) ((1) (let ((e-150 (vector-ref sc5 1))) (let ((sc6 e-149)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 16 e-150)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "normalise-term") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-153 (vector-ref sc4 1))) (let ((e-154 (vector-ref sc4 2))) (let ((sc5 e-153)) (case (vector-ref sc5 0) ((1) (let ((e-155 (vector-ref sc5 1))) (let ((sc6 e-154)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 17 e-155)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "show-term-implicits") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-158 (vector-ref sc4 1))) (let ((e-159 (vector-ref sc4 2))) (let ((sc5 e-158)) (case (vector-ref sc5 0) ((1) (let ((e-160 (vector-ref sc5 1))) (let ((sc6 e-159)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 18 e-160)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "hide-term-implicits") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-163 (vector-ref sc4 1))) (let ((e-164 (vector-ref sc4 2))) (let ((sc5 e-163)) (case (vector-ref sc5 0) ((1) (let ((e-165 (vector-ref sc5 1))) (let ((sc6 e-164)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 19 e-165)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "elaborate-term") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-168 (vector-ref sc4 1))) (let ((e-169 (vector-ref sc4 2))) (let ((sc5 e-168)) (case (vector-ref sc5 0) ((1) (let ((e-170 (vector-ref sc5 1))) (let ((sc6 e-169)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 20 e-170)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "print-definition") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-173 (vector-ref sc4 1))) (let ((e-174 (vector-ref sc4 2))) (let ((sc5 e-173)) (case (vector-ref sc5 0) ((1) (let ((e-175 (vector-ref sc5 1))) (let ((sc6 e-174)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 21 e-175)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "repl-completions") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-178 (vector-ref sc4 1))) (let ((e-179 (vector-ref sc4 2))) (let ((sc5 e-178)) (case (vector-ref sc5 0) ((1) (let ((e-180 (vector-ref sc5 1))) (let ((sc6 e-179)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 22 e-180)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "get-options") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 24 )))(else (vector 0 )))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (cond ((equal? sc1 "version") (vector 1 (vector 23 )))(else (vector 0 ))))))(else (vector 0 )))))) -(define Commands-IDEMode-Idris-escape (lambda (ext-0) (Prelude-pack ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Commands-IDEMode-Idris-n--3000-2817-escapeChar eta-0))) (Prelude-unpack ext-0))))) -(define Error-Idris-case--10453-3195 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-2 arg-6 arg-5 e-6 e-7 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-4 arg-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Can't find an implementation for " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at:\u000a" e-8))))))))))))))))))))))) -(define Error-Idris-case--10453-2901 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Error-Idris-perror arg-3 arg-2 arg-1 e-1)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Error-Idris-n--10453-2821-pAlterror arg-0 arg-1 arg-2 arg-3 eta-1)) arg-0) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Strings-Prelude-C-43C-43 "Sorry, I can't find any elaboration which works. All errors:\u000a" (Name-Core-showSep "\u000a" e-5)))))))))))))) -(define Error-Idris-case--10453-2735 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 0)))))) -(define Error-Idris-case--10453-2572 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-4 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Prelude-C-43C-43 " is not accessible in this context at:\u000a" e-5)))))))))) (else (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-4 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Trying to use " (Strings-Prelude-C-43C-43 (Error-Idris-n--10453-2537-showRig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-1) (Strings-Prelude-C-43C-43 " name " (Strings-Prelude-C-43C-43 (Resugar-Idris-sugarName arg-2) (Strings-Prelude-C-43C-43 " in " (Strings-Prelude-C-43C-43 (Error-Idris-n--10453-2538-showRel arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-0) (Strings-Prelude-C-43C-43 " context at:\u000a" e-5))))))))))))))))))) -(define Error-Idris-case--10453-2456 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0)))))))) -(define Error-Idris-case--10259-2065 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (Prelude-C-43_Num__Nat arg-4 (+ 1 0))) (Strings-Prelude-C-43C-43 "\u0009" (Strings-Prelude-C-43C-43 (Maybe-Data-fromMaybe 'erased (lambda () "") (Extra-List-Data-elemAt 'erased arg-8 arg-4)) (Strings-Prelude-C-43C-43 "\u000a\u0009" (Strings-Prelude-C-43C-43 (Error-Idris-n--10259-1957-repeatChar arg-0 arg-1 arg-2 arg-3 arg-5 #\ ) (Strings-Prelude-C-43C-43 (Error-Idris-n--10259-1957-repeatChar arg-0 arg-1 arg-2 arg-3 (Prelude-minus arg-7 arg-5) #\^) "\u000a"))))))))) (else (lambda (eta-0) (vector 1 (Error-Idris-n--10259-1958-addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 (Error-Idris-n--10259-1956-extractRange arg-0 arg-1 arg-2 arg-3 'erased arg-4 arg-6 arg-8))))))))) -(define Error-Idris-case--10272-1994 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (l) (vector 0 (+ 1 e-2) (Strings-Prelude-C-43C-43 e-3 (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (Prelude-C-43_Num__Nat e-2 (+ 1 0))) (Strings-Prelude-C-43C-43 "\u0009" (Strings-Prelude-C-43C-43 l "\u000a"))))))))))) -(define Error-Idris-n--10453-3062-tshow (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow arg-7 arg-6 arg-5 arg-8 e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " : " e-5)))))))))))))) -(define Error-Idris-n--10453-2537-showRig (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) "irrelevant" "linear" (lambda (eta-0) "unrestricted") ext-0))) -(define Error-Idris-n--10453-2538-showRel (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) "irrelevant" "relevant" (lambda (eta-0) "non-linear") ext-0))) -(define Error-Idris-n--10453-2190-showPVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (Error-Idris-n--10453-2190-showPVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-0)))(else (Name-Core-show_Show__Name arg-8)))))) -(define Error-Idris-n--10453-3707-showMod (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Name-Core-showSep "." (List-Data-reverse 'erased arg-4)))) -(define Error-Idris-n--10453-3263-showHoles (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Prelude-C-43C-43 " introduced at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-6) (Strings-Prelude-C-43C-43 "\u000a" (Error-Idris-n--10453-3263-showHoles arg-0 arg-1 arg-2 arg-3 e-3))))))))))))))) -(define Error-Idris-n--10259-1957-repeatChar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-pack (Prelude-take 'erased arg-4 (Stream-Data-repeat 'erased arg-5))))) -(define Error-Idris-n--10453-2821-pAlterror (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-3 e-5) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-perror arg-3 arg-2 arg-1 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "If " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 e-7 "\u000a")))))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Error-Idris-perror arg-3 arg-2 arg-1 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Possible error:\u000a\u0009" e-5)))))))))))))))) -(define Error-Idris-n--10259-1956-extractRange (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (List-Data-take 'erased (Prelude-C-43_Num__Nat (Prelude-minus arg-6 arg-5) (+ 1 0)) (List-Data-drop 'erased arg-5 arg-7)))) -(define Error-Idris-n--10453-3130-dropEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (Error-Idris-n--10453-3130-dropEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 e-2 arg-7) (vector 1 e-3 arg-8) e-4)) ((1) (Error-Idris-n--10453-3130-dropEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 e-2 arg-7) (vector 1 e-3 arg-8) e-4))(else (vector 0 arg-7 (vector 0 arg-8 arg-9)))))))))(else (vector 0 arg-7 (vector 0 arg-8 arg-9))))))) -(define Error-Idris-n--10453-2822-allUndefined (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((7) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 7 e-8 e-9)))(else (Error-Idris-n--10453-2822-allUndefined arg-0 arg-1 arg-2 arg-3 e-3)))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))) -(define Error-Idris-n--10259-1958-addLineNumbers (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Builtin-snd 'erased 'erased (Prelude-foldl_Foldable__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (l) (vector 0 (+ 1 e-2) (Strings-Prelude-C-43C-43 e-3 (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (Prelude-C-43_Num__Nat e-2 (+ 1 0))) (Strings-Prelude-C-43C-43 "\u0009" (Strings-Prelude-C-43C-43 l "\u000a")))))))))) (vector 0 arg-4 "") arg-5)))) +(define Commands-IDEMode-Idris-getIDECommand (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 "interpret") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-7 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 0 e-9)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "load-file") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-12)) (case (vector-ref sc5 0) ((1) (let ((e-14 (vector-ref sc5 1))) (let ((sc6 e-13)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 1 e-14 (vector 0 )))) ((1) (let ((e-17 (vector-ref sc6 1))) (let ((e-18 (vector-ref sc6 2))) (let ((sc7 e-17)) (case (vector-ref sc7 0) ((3) (let ((e-19 (vector-ref sc7 1))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 1 e-14 (vector 1 e-19))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "type-of") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-22 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 2))) (let ((sc5 e-22)) (case (vector-ref sc5 0) ((1) (let ((e-24 (vector-ref sc5 1))) (let ((sc6 e-23)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 2 e-24 (vector 0 )))) ((1) (let ((e-27 (vector-ref sc6 1))) (let ((e-28 (vector-ref sc6 2))) (let ((sc7 e-27)) (case (vector-ref sc7 0) ((3) (let ((e-29 (vector-ref sc7 1))) (let ((sc8 e-28)) (case (vector-ref sc8 0) ((1) (let ((e-31 (vector-ref sc8 1))) (let ((e-32 (vector-ref sc8 2))) (let ((sc9 e-31)) (case (vector-ref sc9 0) ((3) (let ((e-33 (vector-ref sc9 1))) (let ((sc10 e-32)) (case (vector-ref sc10 0) ((0) (vector 1 (vector 2 e-24 (vector 1 (vector 0 e-29 e-33)))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "case-split") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((sc5 e-36)) (case (vector-ref sc5 0) ((3) (let ((e-38 (vector-ref sc5 1))) (let ((sc6 e-37)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 1))) (let ((e-41 (vector-ref sc6 2))) (let ((sc7 e-40)) (case (vector-ref sc7 0) ((3) (let ((e-42 (vector-ref sc7 1))) (let ((sc8 e-41)) (case (vector-ref sc8 0) ((1) (let ((e-45 (vector-ref sc8 1))) (let ((e-46 (vector-ref sc8 2))) (let ((sc9 e-45)) (case (vector-ref sc9 0) ((1) (let ((e-47 (vector-ref sc9 1))) (let ((sc10 e-46)) (case (vector-ref sc10 0) ((0) (vector 1 (vector 3 e-38 e-42 e-47)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))) ((1) (let ((e-43 (vector-ref sc7 1))) (let ((sc8 e-41)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 3 e-38 0 e-43)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "add-clause") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-51 (vector-ref sc4 1))) (let ((e-52 (vector-ref sc4 2))) (let ((sc5 e-51)) (case (vector-ref sc5 0) ((3) (let ((e-53 (vector-ref sc5 1))) (let ((sc6 e-52)) (case (vector-ref sc6 0) ((1) (let ((e-55 (vector-ref sc6 1))) (let ((e-56 (vector-ref sc6 2))) (let ((sc7 e-55)) (case (vector-ref sc7 0) ((1) (let ((e-57 (vector-ref sc7 1))) (let ((sc8 e-56)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 4 e-53 e-57)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "add-missing") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-60 (vector-ref sc4 1))) (let ((e-61 (vector-ref sc4 2))) (let ((sc5 e-60)) (case (vector-ref sc5 0) ((3) (let ((e-62 (vector-ref sc5 1))) (let ((sc6 e-61)) (case (vector-ref sc6 0) ((1) (let ((e-64 (vector-ref sc6 1))) (let ((e-65 (vector-ref sc6 2))) (let ((sc7 e-64)) (case (vector-ref sc7 0) ((1) (let ((e-66 (vector-ref sc7 1))) (let ((sc8 e-65)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 5 e-62 e-66)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "proof-search") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-69 (vector-ref sc4 1))) (let ((e-70 (vector-ref sc4 2))) (let ((sc5 e-69)) (case (vector-ref sc5 0) ((3) (let ((e-71 (vector-ref sc5 1))) (let ((sc6 e-70)) (case (vector-ref sc6 0) ((1) (let ((e-73 (vector-ref sc6 1))) (let ((e-74 (vector-ref sc6 2))) (let ((sc7 e-73)) (case (vector-ref sc7 0) ((1) (let ((e-75 (vector-ref sc7 1))) (let ((sc8 e-74)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 6 e-71 e-75 (vector 0 ) 1))) ((1) (let ((e-78 (vector-ref sc8 1))) (let ((e-79 (vector-ref sc8 2))) (let ((sc9 e-78)) (case (vector-ref sc9 0) ((0) (let ((e-80 (vector-ref sc9 1))) (let ((sc10 e-79)) (case (vector-ref sc10 0) ((0) (Commands-IDEMode-Idris-case--2119-2140 e-71 e-75 e-80 (Commands-IDEMode-Idris-readHints e-80))) ((1) (let ((e-83 (vector-ref sc10 1))) (let ((e-84 (vector-ref sc10 2))) (let ((sc11 e-83)) (case (vector-ref sc11 0) ((4) (let ((e-85 (vector-ref sc11 1))) (let ((sc12 e-84)) (case (vector-ref sc12 0) ((0) (Commands-IDEMode-Idris-case--2119-2189 e-71 e-75 e-80 e-85 (Commands-IDEMode-Idris-readHints e-80)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "generate-def") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-88 (vector-ref sc4 1))) (let ((e-89 (vector-ref sc4 2))) (let ((sc5 e-88)) (case (vector-ref sc5 0) ((3) (let ((e-90 (vector-ref sc5 1))) (let ((sc6 e-89)) (case (vector-ref sc6 0) ((1) (let ((e-92 (vector-ref sc6 1))) (let ((e-93 (vector-ref sc6 2))) (let ((sc7 e-92)) (case (vector-ref sc7 0) ((1) (let ((e-94 (vector-ref sc7 1))) (let ((sc8 e-93)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 7 e-90 e-94)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "make-lemma") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-97 (vector-ref sc4 1))) (let ((e-98 (vector-ref sc4 2))) (let ((sc5 e-97)) (case (vector-ref sc5 0) ((3) (let ((e-99 (vector-ref sc5 1))) (let ((sc6 e-98)) (case (vector-ref sc6 0) ((1) (let ((e-101 (vector-ref sc6 1))) (let ((e-102 (vector-ref sc6 2))) (let ((sc7 e-101)) (case (vector-ref sc7 0) ((1) (let ((e-103 (vector-ref sc7 1))) (let ((sc8 e-102)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 8 e-99 e-103)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "make-case") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-106 (vector-ref sc4 1))) (let ((e-107 (vector-ref sc4 2))) (let ((sc5 e-106)) (case (vector-ref sc5 0) ((3) (let ((e-108 (vector-ref sc5 1))) (let ((sc6 e-107)) (case (vector-ref sc6 0) ((1) (let ((e-110 (vector-ref sc6 1))) (let ((e-111 (vector-ref sc6 2))) (let ((sc7 e-110)) (case (vector-ref sc7 0) ((1) (let ((e-112 (vector-ref sc7 1))) (let ((sc8 e-111)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 9 e-108 e-112)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "make-with") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-115 (vector-ref sc4 1))) (let ((e-116 (vector-ref sc4 2))) (let ((sc5 e-115)) (case (vector-ref sc5 0) ((3) (let ((e-117 (vector-ref sc5 1))) (let ((sc6 e-116)) (case (vector-ref sc6 0) ((1) (let ((e-119 (vector-ref sc6 1))) (let ((e-120 (vector-ref sc6 2))) (let ((sc7 e-119)) (case (vector-ref sc7 0) ((1) (let ((e-121 (vector-ref sc7 1))) (let ((sc8 e-120)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 10 e-117 e-121)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "docs-for") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-124 (vector-ref sc4 1))) (let ((e-125 (vector-ref sc4 2))) (let ((sc5 e-124)) (case (vector-ref sc5 0) ((1) (let ((e-126 (vector-ref sc5 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (let ((sc6 e-125)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 0 ))) ((1) (let ((e-2 (vector-ref sc6 1))) (let ((e-6 (vector-ref sc6 2))) (let ((sc7 e-2)) (case (vector-ref sc7 0) ((4) (let ((e-7 (vector-ref sc7 1))) (let ((sc8 e-7)) (cond ((equal? sc8 "overview") (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (vector 1 (vector 1 (vector 0 ))))(else (vector 0 ))))) ((equal? sc8 "full") (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (vector 1 (vector 1 (vector 1 ))))(else (vector 0 )))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))) (lambda (modeOpt) (vector 1 (vector 11 e-126 modeOpt))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "apropos") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-128 (vector-ref sc4 1))) (let ((e-129 (vector-ref sc4 2))) (let ((sc5 e-128)) (case (vector-ref sc5 0) ((1) (let ((e-130 (vector-ref sc5 1))) (let ((sc6 e-129)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 12 e-130)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "metavariables") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-133 (vector-ref sc4 1))) (let ((e-134 (vector-ref sc4 2))) (let ((sc5 e-133)) (case (vector-ref sc5 0) ((3) (let ((e-135 (vector-ref sc5 1))) (let ((sc6 e-134)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 13 e-135)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "who-calls") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-138 (vector-ref sc4 1))) (let ((e-139 (vector-ref sc4 2))) (let ((sc5 e-138)) (case (vector-ref sc5 0) ((1) (let ((e-140 (vector-ref sc5 1))) (let ((sc6 e-139)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 14 e-140)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "calls-who") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-143 (vector-ref sc4 1))) (let ((e-144 (vector-ref sc4 2))) (let ((sc5 e-143)) (case (vector-ref sc5 0) ((1) (let ((e-145 (vector-ref sc5 1))) (let ((sc6 e-144)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 15 e-145)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "browse-namespace") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-148 (vector-ref sc4 1))) (let ((e-149 (vector-ref sc4 2))) (let ((sc5 e-148)) (case (vector-ref sc5 0) ((1) (let ((e-150 (vector-ref sc5 1))) (let ((sc6 e-149)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 16 e-150)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "normalise-term") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-153 (vector-ref sc4 1))) (let ((e-154 (vector-ref sc4 2))) (let ((sc5 e-153)) (case (vector-ref sc5 0) ((1) (let ((e-155 (vector-ref sc5 1))) (let ((sc6 e-154)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 17 e-155)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "show-term-implicits") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-158 (vector-ref sc4 1))) (let ((e-159 (vector-ref sc4 2))) (let ((sc5 e-158)) (case (vector-ref sc5 0) ((1) (let ((e-160 (vector-ref sc5 1))) (let ((sc6 e-159)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 18 e-160)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "hide-term-implicits") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-163 (vector-ref sc4 1))) (let ((e-164 (vector-ref sc4 2))) (let ((sc5 e-163)) (case (vector-ref sc5 0) ((1) (let ((e-165 (vector-ref sc5 1))) (let ((sc6 e-164)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 19 e-165)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "elaborate-term") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-168 (vector-ref sc4 1))) (let ((e-169 (vector-ref sc4 2))) (let ((sc5 e-168)) (case (vector-ref sc5 0) ((1) (let ((e-170 (vector-ref sc5 1))) (let ((sc6 e-169)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 20 e-170)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "print-definition") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-173 (vector-ref sc4 1))) (let ((e-174 (vector-ref sc4 2))) (let ((sc5 e-173)) (case (vector-ref sc5 0) ((1) (let ((e-175 (vector-ref sc5 1))) (let ((sc6 e-174)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 21 e-175)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "repl-completions") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-178 (vector-ref sc4 1))) (let ((e-179 (vector-ref sc4 2))) (let ((sc5 e-178)) (case (vector-ref sc5 0) ((1) (let ((e-180 (vector-ref sc5 1))) (let ((sc6 e-179)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 22 e-180)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "get-options") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 24 )))(else (vector 0 )))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (cond ((equal? sc1 "version") (vector 1 (vector 23 )))(else (vector 0 ))))))(else (vector 0 )))))) +(define Commands-IDEMode-Idris-escape (lambda (ext-0) (Prelude-pack ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Commands-IDEMode-Idris-n--3013-2825-escapeChar eta-0))) (Prelude-unpack ext-0))))) +(define Error-Idris-case--10500-3203 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-2 arg-6 arg-5 e-6 e-7 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-4 arg-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Can't find an implementation for " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at:\u000a" e-8))))))))))))))))))))))) +(define Error-Idris-case--10500-2909 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Error-Idris-perror arg-3 arg-2 arg-1 e-1)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Error-Idris-n--10500-2829-pAlterror arg-0 arg-1 arg-2 arg-3 eta-1)) arg-0) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Strings-Prelude-C-43C-43 "Sorry, I can't find any elaboration which works. All errors:\u000a" (Name-Core-showSep "\u000a" e-5)))))))))))))) +(define Error-Idris-case--10500-2743 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 0)))))) +(define Error-Idris-case--10500-2580 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-4 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Prelude-C-43C-43 " is not accessible in this context at:\u000a" e-5)))))))))) (else (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-4 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Trying to use " (Strings-Prelude-C-43C-43 (Error-Idris-n--10500-2545-showRig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-1) (Strings-Prelude-C-43C-43 " name " (Strings-Prelude-C-43C-43 (Resugar-Idris-sugarName arg-2) (Strings-Prelude-C-43C-43 " in " (Strings-Prelude-C-43C-43 (Error-Idris-n--10500-2546-showRel arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-0) (Strings-Prelude-C-43C-43 " context at:\u000a" e-5))))))))))))))))))) +(define Error-Idris-case--10500-2464 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0)))))))) +(define Error-Idris-case--10306-2073 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (Prelude-C-43_Num__Nat arg-4 (+ 1 0))) (Strings-Prelude-C-43C-43 "\u0009" (Strings-Prelude-C-43C-43 (Maybe-Data-fromMaybe 'erased (lambda () "") (Extra-List-Data-elemAt 'erased arg-8 arg-4)) (Strings-Prelude-C-43C-43 "\u000a\u0009" (Strings-Prelude-C-43C-43 (Error-Idris-n--10306-1965-repeatChar arg-0 arg-1 arg-2 arg-3 arg-5 #\ ) (Strings-Prelude-C-43C-43 (Error-Idris-n--10306-1965-repeatChar arg-0 arg-1 arg-2 arg-3 (Prelude-minus arg-7 arg-5) #\^) "\u000a"))))))))) (else (lambda (eta-0) (vector 1 (Error-Idris-n--10306-1966-addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 (Error-Idris-n--10306-1964-extractRange arg-0 arg-1 arg-2 arg-3 'erased arg-4 arg-6 arg-8))))))))) +(define Error-Idris-case--10319-2002 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (l) (vector 0 (+ 1 e-2) (Strings-Prelude-C-43C-43 e-3 (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (Prelude-C-43_Num__Nat e-2 (+ 1 0))) (Strings-Prelude-C-43C-43 "\u0009" (Strings-Prelude-C-43C-43 l "\u000a"))))))))))) +(define Error-Idris-n--10500-3070-tshow (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow arg-7 arg-6 arg-5 arg-8 e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " : " e-5)))))))))))))) +(define Error-Idris-n--10500-2545-showRig (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) "irrelevant" "linear" (lambda (eta-0) "unrestricted") ext-0))) +(define Error-Idris-n--10500-2546-showRel (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) "irrelevant" "relevant" (lambda (eta-0) "non-linear") ext-0))) +(define Error-Idris-n--10500-2198-showPVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (Error-Idris-n--10500-2198-showPVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-0)))(else (Name-Core-show_Show__Name arg-8)))))) +(define Error-Idris-n--10500-3715-showMod (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Name-Core-showSep "." (List-Data-reverse 'erased arg-4)))) +(define Error-Idris-n--10500-3271-showHoles (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Prelude-C-43C-43 " introduced at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-6) (Strings-Prelude-C-43C-43 "\u000a" (Error-Idris-n--10500-3271-showHoles arg-0 arg-1 arg-2 arg-3 e-3))))))))))))))) +(define Error-Idris-n--10306-1965-repeatChar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-pack (Prelude-take 'erased arg-4 (Stream-Data-repeat 'erased arg-5))))) +(define Error-Idris-n--10500-2829-pAlterror (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-3 e-5) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-perror arg-3 arg-2 arg-1 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "If " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 e-7 "\u000a")))))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Error-Idris-perror arg-3 arg-2 arg-1 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Possible error:\u000a\u0009" e-5)))))))))))))))) +(define Error-Idris-n--10306-1964-extractRange (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (List-Data-take 'erased (Prelude-C-43_Num__Nat (Prelude-minus arg-6 arg-5) (+ 1 0)) (List-Data-drop 'erased arg-5 arg-7)))) +(define Error-Idris-n--10500-3138-dropEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (Error-Idris-n--10500-3138-dropEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 e-2 arg-7) (vector 1 e-3 arg-8) e-4)) ((1) (Error-Idris-n--10500-3138-dropEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 e-2 arg-7) (vector 1 e-3 arg-8) e-4))(else (vector 0 arg-7 (vector 0 arg-8 arg-9)))))))))(else (vector 0 arg-7 (vector 0 arg-8 arg-9))))))) +(define Error-Idris-n--10500-2830-allUndefined (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((7) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 7 e-8 e-9)))(else (Error-Idris-n--10500-2830-allUndefined arg-0 arg-1 arg-2 arg-3 e-3)))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))) +(define Error-Idris-n--10306-1966-addLineNumbers (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Builtin-snd 'erased 'erased (Prelude-foldl_Foldable__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (l) (vector 0 (+ 1 e-2) (Strings-Prelude-C-43C-43 e-3 (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (Prelude-C-43_Num__Nat e-2 (+ 1 0))) (Strings-Prelude-C-43C-43 "\u0009" (Strings-Prelude-C-43C-43 l "\u000a")))))))))) (vector 0 arg-4 "") arg-5)))) (define Error-Idris-pwarning (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-0 arg-0 arg-1 e-2 e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Warning: unreachable clause: " e-5)))))))))))))) (define Error-Idris-pshowNoNorm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (Resugar-Idris-resugar arg-0 arg-1 arg-2 arg-3 arg-4 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (Syntax-Idris-show_Show__PTerm e-6))))))))))))) (define Error-Idris-pshow (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normaliseHoles arg-0 e-5 arg-3 arg-4 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (Resugar-Idris-resugar arg-0 arg-1 arg-2 arg-3 e-6 ext-0)))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (Syntax-Idris-show_Show__PTerm e-6)))))))))))))) -(define Error-Idris-ploc (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 ""))) (else (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sr (Prelude-cast_Cast__Int_Integer (Builtin-fst 'erased 'erased e-1)))) (let ((sc (Prelude-cast_Cast__Int_Integer (Builtin-snd 'erased 'erased e-1)))) (let ((er (Prelude-cast_Cast__Int_Integer (Builtin-fst 'erased 'erased e-2)))) (let ((ec (Prelude-cast_Cast__Int_Integer (Builtin-snd 'erased 'erased e-2)))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Data-lines e-5))))))) (lambda (eta-1) (REPLOpts-Idris-getCurrentElabSource arg-0 eta-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((Error-Idris-case--10259-2065 e-0 e-2 e-1 arg-0 sr sc er ec e-5 (Prelude-C-61C-61_Eq__Nat sr er)) eta-0))))))))))))))))))) -(define Error-Idris-perror (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Error-Idris-perror arg-0 arg-1 arg-2 e-0))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-1 arg-0 arg-1 e-3 e-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (Error-Idris-pshow e-1 arg-0 arg-1 e-3 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 ((Error-Idris-ploc arg-2 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Mismatch between:\u000a\u0009" (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "\u000aand\u000a\u0009" (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 "\u000aat:\u000a" e-8)))))))))))))))))))))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-6 arg-0 arg-1 e-8 e-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Error-Idris-pshow e-6 arg-0 arg-1 e-8 e-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc2 1))) (let ((act-26 ((Error-Idris-ploc arg-2 e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Can't solve constraint between:\u000a\u0009" (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\u000aand\u000a\u0009" (Strings-Prelude-C-43C-43 e-11 (Strings-Prelude-C-43C-43 "\u000aat:\u000a" e-12)))))))))))))))))))))))))))) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (let ((e-15 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-11 arg-0 arg-1 e-13 e-15 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-12) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Pattern variable " (Strings-Prelude-C-43C-43 (Error-Idris-n--10453-2190-showPVar e-11 e-15 e-14 e-13 e-12 arg-2 arg-1 arg-0 e-14) (Strings-Prelude-C-43C-43 " unifies with:\u000a\u0009" (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\u000aat:\u000a" e-6))))))))))))))))))))))) ((4) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-19) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Error-Idris-pshow e-16 arg-0 arg-1 e-18 e-20 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Error-Idris-ploc arg-2 e-17) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Cycle detected in solution of metavariable " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String e-5) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " at:\u000a" e-7)))))))))))))))))))))))))))) ((5) (let ((e-21 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (let ((e-25 (vector-ref sc0 5))) (let ((e-26 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-21 arg-0 arg-1 e-23 e-24 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Error-Idris-pshow e-21 arg-0 arg-1 e-23 e-25 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Error-Idris-perror arg-0 arg-1 arg-2 e-26) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "When unifying " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " and " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "\u000a" e-7)))))))))))))))))))))))))))) ((6) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((e-30 (vector-ref sc0 4))) (let ((sc1 e-30)) (case (vector-ref sc1 0) ((0) (let ((e-197 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-27 arg-0 arg-1 e-29 e-197 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-28) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not a valid impossible case at:\u000a" e-6)))))))))))))))) (else (let ((e-200 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Error-Idris-perror arg-0 arg-1 arg-2 e-200) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Impossible pattern gives an error:\u000a" e-5))))))))))))))))) ((7) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-31) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Undefined name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-32) (Strings-Prelude-C-43C-43 " at:\u000a" e-5))))))))))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (let ((sc1 e-35)) (case (vector-ref sc1 0) ((1) (let ((e-202 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-33) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-34) (Strings-Prelude-C-43C-43 " is inaccessible since " (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-202)) (Strings-Prelude-C-43C-43 " is not explicitly imported at:\u000a" e-5)))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-33) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-34) (Strings-Prelude-C-43C-43 " is private at:\u000a" e-5))))))))))))))))) ((9) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-36) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Return type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-37) (Strings-Prelude-C-43C-43 " must be Type at:\u000a" e-5))))))))))))) ((10) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-38) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Return type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-39) (Strings-Prelude-C-43C-43 " must be in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-40) (Strings-Prelude-C-43C-43 " at:\u000a" e-5)))))))))))))))) ((11) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (let ((sc1 e-43)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Internal error (Coverage of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-42) ")"))))) ((1) (let ((e-204 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-42) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-41) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Error-Idris-pshow (vector 0 ) arg-0 arg-1 (vector 0 ) eta-1 eta-2))) e-204) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not covering at:\u000a" (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "Missing cases:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" e-7)))))))))))))))))))))))) (else (let ((e-205 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-42) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-41) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not covering at:\u000a" (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "\u000a\u0009" (Strings-Prelude-C-43C-43 "Calls non covering function" (let ((sc4 e-205)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-205)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-205))))))))))))))))))))))))))))))) ((12) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (let ((e-46 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-45) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-44) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not total:\u000a\u0009" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__PartialReason e-46) (Strings-Prelude-C-43C-43 "\u000aat:\u000a" e-6)))))))))))))))))))) ((13) (let ((e-47 (vector-ref sc0 1))) (let ((e-48 (vector-ref sc0 2))) (let ((e-49 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-47) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "There are " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-48) (Strings-Prelude-C-43C-43 " uses of linear name " (Strings-Prelude-C-43C-43 (Resugar-Idris-sugarName e-49) (Strings-Prelude-C-43C-43 " at:\u000a" e-5)))))))))))))))) ((14) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (let ((e-53 (vector-ref sc0 4))) (Error-Idris-case--10453-2572 e-53 e-52 e-51 e-50 arg-2 arg-1 arg-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-52))))))) ((15) (let ((e-54 (vector-ref sc0 1))) (let ((e-55 (vector-ref sc0 2))) (let ((e-56 (vector-ref sc0 3))) (let ((e-57 (vector-ref sc0 4))) (let ((e-58 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-54 arg-0 arg-1 e-56 e-57 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Error-Idris-pshow e-54 arg-0 arg-1 e-56 e-58 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Error-Idris-ploc arg-2 e-55) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " borrows argument " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " so must be fully applied at:\u000a" e-7))))))))))))))))))))))))))) ((16) (let ((e-59 (vector-ref sc0 1))) (let ((e-60 (vector-ref sc0 2))) (let ((e-61 (vector-ref sc0 3))) (let ((e-62 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-59 arg-0 arg-1 e-61 e-62 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-60) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " borrows, so must return a concrete type at:\u000a" e-6))))))))))))))))))) ((17) (let ((e-63 (vector-ref sc0 1))) (let ((e-64 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-63) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Ambiguous name " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-64) (Strings-Prelude-C-43C-43 " at:\u000a" e-5))))))))))))) ((18) (let ((e-65 (vector-ref sc0 1))) (let ((e-66 (vector-ref sc0 2))) (let ((e-67 (vector-ref sc0 3))) (let ((e-68 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-setPPrint arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (vector 0 e-0 e-1 0)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Error-Idris-ploc arg-2 e-66) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Error-Idris-pshow e-65 arg-0 arg-1 e-67 eta-1 eta-2))) e-68) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((res (Strings-Prelude-C-43C-43 "Ambiguous elaboration at:\u000a" (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 "Possible correct results:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" e-8)))))) (let ((act-28 (Context-Core-setPPrint arg-0 e-5 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 res))))))))))))))))))))))))))))))) ((19) (let ((e-69 (vector-ref sc0 1))) (let ((e-70 (vector-ref sc0 2))) (let ((e-71 (vector-ref sc0 3))) (let ((e-72 (vector-ref sc0 4))) (let ((e-73 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshowNoNorm e-69 arg-0 arg-1 e-71 e-72 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-70) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Error-Idris-pshowNoNorm e-69 arg-0 arg-1 e-71 eta-1 eta-2))) e-73) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Multiple solutions found in search of:\u000a\u0009" (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\u000aat:\u000a" (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "\u000aPossible correct results:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" e-7))))))))))))))))))))))))))))) ((20) (let ((e-74 (vector-ref sc0 1))) (let ((e-75 (vector-ref sc0 2))) (let ((e-76 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-0 e-75) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) e-76) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Error-Idris-ploc arg-2 e-74) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Maximum ambiguity depth exceeded in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (Name-Core-showSep " --> " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-6)) (Strings-Prelude-C-43C-43 " at:\u000a" e-7)))))))))))))))))))))))))) ((21) (let ((e-77 (vector-ref sc0 1))) (Error-Idris-case--10453-2901 e-77 arg-2 arg-1 arg-0 (Error-Idris-n--10453-2822-allUndefined e-77 arg-2 arg-1 arg-0 e-77)))) ((22) (let ((e-79 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-79) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Can't infer type for this record update at:\u000a" e-5)))))))))) ((23) (let ((e-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (let ((e-83 (vector-ref sc0 3))) (let ((sc1 e-83)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-81) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 e-82 (Strings-Prelude-C-43C-43 " is not part of a record type at:\u000a" e-5)))))))))) (else (let ((e-208 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-81) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Record type " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-208) (Strings-Prelude-C-43C-43 " has no field " (Strings-Prelude-C-43C-43 e-82 (Strings-Prelude-C-43C-43 " at:\u000a" e-5)))))))))))))))))))) ((24) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-84) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-85) (Strings-Prelude-C-43C-43 " is not a record type at:\u000a" e-5)))))))))))) ((25) (let ((e-86 (vector-ref sc0 1))) (let ((e-87 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-86) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Field update " (Strings-Prelude-C-43C-43 (Name-Core-showSep "->" e-87) (Strings-Prelude-C-43C-43 " not compatible with other updates at:\u000a" e-5))))))))))))) ((26) (let ((e-88 (vector-ref sc0 1))) (let ((e-89 (vector-ref sc0 2))) (let ((e-90 (vector-ref sc0 3))) (let ((e-91 (vector-ref sc0 4))) (let ((e-92 (vector-ref sc0 5))) (let ((sc1 e-91)) (case (vector-ref sc1 0) ((1) (let ((e-210 (vector-ref sc1 1))) (let ((e-211 (vector-ref sc1 2))) (let ((sc2 e-210)) (case (vector-ref sc2 0) ((1) (let ((e-213 (vector-ref sc2 1))) (let ((sc3 e-211)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-88 arg-0 arg-1 e-90 e-92 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-89) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-213) (Strings-Prelude-C-43C-43 " is not a valid implicit argument in " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at:\u000a" e-6)))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-88 arg-0 arg-1 e-90 e-92 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-89) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-4) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-4)) e-91)) (Strings-Prelude-C-43C-43 " are not valid implicit arguments in " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at:\u000a" e-6)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-88 arg-0 arg-1 e-90 e-92 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-89) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-4) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-4)) e-91)) (Strings-Prelude-C-43C-43 " are not valid implicit arguments in " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at:\u000a" e-6))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-88 arg-0 arg-1 e-90 e-92 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-89) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-4) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-4)) e-91)) (Strings-Prelude-C-43C-43 " are not valid implicit arguments in " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at:\u000a" e-6))))))))))))))))))))))))) ((27) (let ((e-93 (vector-ref sc0 1))) (let ((e-94 (vector-ref sc0 2))) (let ((e-95 (vector-ref sc0 3))) (let ((e-96 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Error-Idris-n--10453-3062-tshow e-93 e-96 e-95 e-94 arg-2 arg-1 arg-0 e-93 e-95 eta-1)) e-96) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-94) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Need to bind implicits " (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " e-5) (Strings-Prelude-C-43C-43 " at:\u000a" e-6)))))))))))))))))))) ((28) (let ((e-97 (vector-ref sc0 1))) (let ((e-98 (vector-ref sc0 2))) (let ((e-99 (vector-ref sc0 3))) (let ((e-100 (vector-ref sc0 4))) (let ((e-101 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-97 arg-0 arg-1 e-99 e-101 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-98) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Can't bind name " (Strings-Prelude-C-43C-43 (Name-Core-nameRoot e-100) (Strings-Prelude-C-43C-43 " with type " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " here at:\u000a" (Strings-Prelude-C-43C-43 e-6 "Try binding explicitly.")))))))))))))))))))))))) ((29) (let ((e-102 (vector-ref sc0 1))) (let ((e-103 (vector-ref sc0 2))) (let ((e-104 (vector-ref sc0 3))) (let ((e-105 (vector-ref sc0 4))) (Error-Idris-case--10453-3195 e-102 e-105 e-104 e-103 arg-2 arg-1 arg-0 (Error-Idris-n--10453-3130-dropEnv e-102 e-105 e-104 e-103 arg-2 arg-1 arg-0 e-102 e-104 e-105))))))) ((30) (let ((e-106 (vector-ref sc0 1))) (let ((e-107 (vector-ref sc0 2))) (let ((e-108 (vector-ref sc0 3))) (let ((e-110 (vector-ref sc0 5))) (let ((e-111 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-106 arg-0 arg-1 e-110 e-111 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-107) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Can't find an implementation for " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 "since I can't infer a value for argument " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-108) (Strings-Prelude-C-43C-43 " at:\u000a" e-6)))))))))))))))))))))))) ((31) (let ((e-112 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Unsolved holes:\u000a" (Error-Idris-n--10453-3263-showHoles e-112 arg-2 arg-1 arg-0 e-112)))))) ((32) (let ((e-113 (vector-ref sc0 1))) (let ((e-114 (vector-ref sc0 2))) (let ((e-115 (vector-ref sc0 3))) (let ((e-116 (vector-ref sc0 4))) (let ((e-117 (vector-ref sc0 5))) (let ((e-118 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-113 arg-0 arg-1 e-115 e-118 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-114) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Can't infer type for argument " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-116) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 "Got " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " with hole " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-117) (Strings-Prelude-C-43C-43 " at:\u000a" e-6))))))))))))))))))))))))))) ((33) (let ((e-119 (vector-ref sc0 1))) (let ((e-120 (vector-ref sc0 2))) (let ((e-121 (vector-ref sc0 3))) (let ((e-122 (vector-ref sc0 4))) (let ((e-123 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-119 arg-0 arg-1 e-121 e-123 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-120) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Named hole " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-122) (Strings-Prelude-C-43C-43 " has been solved by unification\u000a" (Strings-Prelude-C-43C-43 "Result: " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at:\u000a" e-6)))))))))))))))))))))))) ((34) (let ((e-124 (vector-ref sc0 1))) (let ((e-125 (vector-ref sc0 2))) (let ((e-126 (vector-ref sc0 3))) (let ((e-127 (vector-ref sc0 4))) (let ((e-128 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-126 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-128 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Error-Idris-ploc arg-2 e-124) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-125) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Resugar-Idris-sugarName e-5) (Strings-Prelude-C-43C-43 " cannot refer to " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-127) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Resugar-Idris-sugarName e-6) (Strings-Prelude-C-43C-43 " at:\u000a" e-7))))))))))))))))))))))))))))))) ((35) (let ((e-129 (vector-ref sc0 1))) (let ((e-130 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-129) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Non linear pattern " (Strings-Prelude-C-43C-43 (Resugar-Idris-sugarName e-130) (Strings-Prelude-C-43C-43 " at:\u000a" e-5))))))))))))) ((36) (let ((e-131 (vector-ref sc0 1))) (let ((e-132 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-131) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Pattern not allowed here: " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-132) (Strings-Prelude-C-43C-43 " at:\u000a" e-5))))))))))))) ((37) (let ((e-133 (vector-ref sc0 1))) (let ((e-134 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-133) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "No type declaration for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-134) (Strings-Prelude-C-43C-43 " at:\u000a" e-5))))))))))))) ((38) (let ((e-136 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-136) " is already defined"))))) ((39) (let ((e-137 (vector-ref sc0 1))) (let ((e-138 (vector-ref sc0 2))) (let ((e-139 (vector-ref sc0 3))) (let ((e-140 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-137 arg-0 arg-1 e-139 e-140 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-138) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not a function type at:\u000a" e-6))))))))))))))))))) ((40) (let ((e-141 (vector-ref sc0 1))) (let ((e-142 (vector-ref sc0 2))) (let ((e-143 (vector-ref sc0 3))) (let ((e-144 (vector-ref sc0 4))) (let ((e-145 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-141 arg-0 arg-1 e-143 e-144 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Error-Idris-pshow e-141 arg-0 arg-1 e-143 e-145 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Error-Idris-ploc arg-2 e-142) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Rewriting by " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " did not change type " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " at:\u000a" e-7)))))))))))))))))))))))))))) ((41) (let ((e-146 (vector-ref sc0 1))) (let ((e-147 (vector-ref sc0 2))) (let ((e-148 (vector-ref sc0 3))) (let ((e-149 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-146 arg-0 arg-1 e-148 e-149 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-147) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not a rewrite rule type at:\u000a" e-6))))))))))))))))))) ((42) (let ((e-150 (vector-ref sc0 1))) (let ((e-151 (vector-ref sc0 2))) (let ((e-152 (vector-ref sc0 3))) (let ((sc1 e-152)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-151) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-150) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Patterns for " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " have differing numbers of arguments at:\u000a" e-6)))))))))))))))) ((1) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-151) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-150) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Patterns for " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " require matching on different types at:\u000a" e-6)))))))))))))))) ((4) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-151) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-150) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Can't infer type to match in " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at:\u000a" e-6)))))))))))))))) ((3) (let ((e-215 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-215 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-150) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Constructor " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " is not fully applied at:\u000a" e-6))))))))))))))))) (else (let ((e-216 (vector-ref sc1 1))) (let ((sc2 e-216)) (let ((e-219 (vector-ref sc2 1))) (let ((e-220 (vector-ref sc2 2))) (let ((sc3 e-220)) (let ((e-223 (vector-ref sc3 1))) (let ((e-224 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-219 arg-0 arg-1 e-223 e-224 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Context-Core-prettyName arg-0 e-151) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 ((Error-Idris-ploc arg-2 e-150) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (Strings-Prelude-C-43C-43 "Attempt to match on erased argument " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " in " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " at\u000a:" e-7)))))))))))))))))))))))))))))))))))) ((44) (let ((e-153 (vector-ref sc0 1))) (let ((e-154 (vector-ref sc0 2))) (let ((e-155 (vector-ref sc0 3))) (let ((e-156 (vector-ref sc0 4))) (let ((e-157 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-153 arg-0 arg-1 e-155 e-157 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-154) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Can't match on " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Core-Core-show_Show__DotReason e-156) (Strings-Prelude-C-43C-43 ") at\u000a" e-6))))))))))))))))))))))) ((43) (let ((e-159 (vector-ref sc0 1))) (let ((e-160 (vector-ref sc0 2))) (let ((e-161 (vector-ref sc0 3))) (let ((e-162 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-159 arg-0 arg-1 e-161 e-162 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-160) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Can't match on " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " as it has a polymorphic type at:\u000a" e-6)))))))))))))))))))) ((45) (let ((e-163 (vector-ref sc0 1))) (let ((e-164 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-163) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Can't infer type for unbound implicit name " (Strings-Prelude-C-43C-43 e-164 (Strings-Prelude-C-43C-43 " at\u000a" (Strings-Prelude-C-43C-43 e-5 "Try making it a bound implicit.")))))))))))))) ((46) (let ((e-165 (vector-ref sc0 1))) (let ((e-166 (vector-ref sc0 2))) (let ((e-167 (vector-ref sc0 3))) (let ((e-168 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-165 arg-0 arg-1 e-167 e-168 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-166) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Bad elaborator script " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at:\u000a" e-6)))))))))))))))))))) ((47) (let ((e-169 (vector-ref sc0 1))) (let ((e-170 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-169) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 e-170 (Strings-Prelude-C-43C-43 " at:\u000a" e-5)))))))))))) ((48) (let ((e-171 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Error in TTC file: " (Core-Core-show_Show__TTCErrorMsg e-171)))))) ((49) (let ((e-172 (vector-ref sc0 1))) (let ((e-173 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "File error in " (Strings-Prelude-C-43C-43 e-172 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-173))))))))) ((50) (let ((e-175 (vector-ref sc0 1))) (let ((e-177 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased e-175 e-177)))))) ((51) (let ((e-179 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-179)) " not found"))))) ((52) (let ((e-180 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Module imports form a cycle: " (Name-Core-showSep " -> " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Error-Idris-n--10453-3707-showMod e-180 arg-2 arg-1 arg-0 eta-1)) e-180))))))) ((53) (lambda (eta-0) (vector 1 "Internal error when resolving implicit laziness"))) ((54) (let ((e-181 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "INTERNAL ERROR: " e-181))))) ((55) (let ((e-182 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Error: " e-182))))) ((56) (let ((e-183 (vector-ref sc0 1))) (let ((e-184 (vector-ref sc0 2))) (let ((e-185 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-184) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-perror arg-0 arg-1 arg-2 e-185) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "While processing type of " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-183) (Strings-Prelude-C-43C-43 ":\u000a" e-6))))))))))))))))))))) ((57) (let ((e-186 (vector-ref sc0 1))) (let ((e-187 (vector-ref sc0 2))) (let ((e-188 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-187) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-perror arg-0 arg-1 arg-2 e-188) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "While processing constructor " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-186) (Strings-Prelude-C-43C-43 ":\u000a" e-6))))))))))))))))))))) ((58) (let ((e-189 (vector-ref sc0 1))) (let ((e-190 (vector-ref sc0 2))) (let ((e-191 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-190) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-perror arg-0 arg-1 arg-2 e-191) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "While processing left hand side of " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-189) (Strings-Prelude-C-43C-43 ":\u000a" e-6))))))))))))))))))))) (else (let ((e-192 (vector-ref sc0 1))) (let ((e-193 (vector-ref sc0 2))) (let ((e-194 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-193) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-perror arg-0 arg-1 arg-2 e-194) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "While processing right hand side of " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-192) (Strings-Prelude-C-43C-43 ":\u000a" e-6))))))))))))))))))))))))) +(define Error-Idris-ploc (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 ""))) (else (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sr (Prelude-cast_Cast__Int_Integer (Builtin-fst 'erased 'erased e-1)))) (let ((sc (Prelude-cast_Cast__Int_Integer (Builtin-snd 'erased 'erased e-1)))) (let ((er (Prelude-cast_Cast__Int_Integer (Builtin-fst 'erased 'erased e-2)))) (let ((ec (Prelude-cast_Cast__Int_Integer (Builtin-snd 'erased 'erased e-2)))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Data-lines e-5))))))) (lambda (eta-1) (REPLOpts-Idris-getCurrentElabSource arg-0 eta-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((Error-Idris-case--10306-2073 e-0 e-2 e-1 arg-0 sr sc er ec e-5 (Prelude-C-61C-61_Eq__Nat sr er)) eta-0))))))))))))))))))) +(define Error-Idris-perror (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Error-Idris-perror arg-0 arg-1 arg-2 e-0))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-1 arg-0 arg-1 e-3 e-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (Error-Idris-pshow e-1 arg-0 arg-1 e-3 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 ((Error-Idris-ploc arg-2 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Mismatch between:\u000a\u0009" (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "\u000aand\u000a\u0009" (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 "\u000aat:\u000a" e-8)))))))))))))))))))))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-6 arg-0 arg-1 e-8 e-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Error-Idris-pshow e-6 arg-0 arg-1 e-8 e-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc2 1))) (let ((act-26 ((Error-Idris-ploc arg-2 e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Can't solve constraint between:\u000a\u0009" (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\u000aand\u000a\u0009" (Strings-Prelude-C-43C-43 e-11 (Strings-Prelude-C-43C-43 "\u000aat:\u000a" e-12)))))))))))))))))))))))))))) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (let ((e-15 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-11 arg-0 arg-1 e-13 e-15 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-12) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Pattern variable " (Strings-Prelude-C-43C-43 (Error-Idris-n--10500-2198-showPVar e-11 e-15 e-14 e-13 e-12 arg-2 arg-1 arg-0 e-14) (Strings-Prelude-C-43C-43 " unifies with:\u000a\u0009" (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\u000aat:\u000a" e-6))))))))))))))))))))))) ((4) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-19) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Error-Idris-pshow e-16 arg-0 arg-1 e-18 e-20 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Error-Idris-ploc arg-2 e-17) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Cycle detected in solution of metavariable " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String e-5) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " at:\u000a" e-7)))))))))))))))))))))))))))) ((5) (let ((e-21 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (let ((e-25 (vector-ref sc0 5))) (let ((e-26 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-21 arg-0 arg-1 e-23 e-24 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Error-Idris-pshow e-21 arg-0 arg-1 e-23 e-25 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Error-Idris-perror arg-0 arg-1 arg-2 e-26) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "When unifying " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " and " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "\u000a" e-7)))))))))))))))))))))))))))) ((6) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((e-30 (vector-ref sc0 4))) (let ((sc1 e-30)) (case (vector-ref sc1 0) ((0) (let ((e-197 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-27 arg-0 arg-1 e-29 e-197 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-28) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not a valid impossible case at:\u000a" e-6)))))))))))))))) (else (let ((e-200 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Error-Idris-perror arg-0 arg-1 arg-2 e-200) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Impossible pattern gives an error:\u000a" e-5))))))))))))))))) ((7) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-31) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Undefined name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-32) (Strings-Prelude-C-43C-43 " at:\u000a" e-5))))))))))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (let ((sc1 e-35)) (case (vector-ref sc1 0) ((1) (let ((e-202 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-33) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-34) (Strings-Prelude-C-43C-43 " is inaccessible since " (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-202)) (Strings-Prelude-C-43C-43 " is not explicitly imported at:\u000a" e-5)))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-33) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-34) (Strings-Prelude-C-43C-43 " is private at:\u000a" e-5))))))))))))))))) ((9) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-36) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Return type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-37) (Strings-Prelude-C-43C-43 " must be Type at:\u000a" e-5))))))))))))) ((10) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-38) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Return type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-39) (Strings-Prelude-C-43C-43 " must be in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-40) (Strings-Prelude-C-43C-43 " at:\u000a" e-5)))))))))))))))) ((11) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (let ((sc1 e-43)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Internal error (Coverage of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-42) ")"))))) ((1) (let ((e-204 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-42) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-41) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Error-Idris-pshow (vector 0 ) arg-0 arg-1 (vector 0 ) eta-1 eta-2))) e-204) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not covering at:\u000a" (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "Missing cases:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" e-7)))))))))))))))))))))))) (else (let ((e-205 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-42) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-41) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not covering at:\u000a" (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "\u000a\u0009" (Strings-Prelude-C-43C-43 "Calls non covering function" (let ((sc4 e-205)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-205)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-205))))))))))))))))))))))))))))))) ((12) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (let ((e-46 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-45) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-44) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not total:\u000a\u0009" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__PartialReason e-46) (Strings-Prelude-C-43C-43 "\u000aat:\u000a" e-6)))))))))))))))))))) ((13) (let ((e-47 (vector-ref sc0 1))) (let ((e-48 (vector-ref sc0 2))) (let ((e-49 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-47) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "There are " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-48) (Strings-Prelude-C-43C-43 " uses of linear name " (Strings-Prelude-C-43C-43 (Resugar-Idris-sugarName e-49) (Strings-Prelude-C-43C-43 " at:\u000a" e-5)))))))))))))))) ((14) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (let ((e-53 (vector-ref sc0 4))) (Error-Idris-case--10500-2580 e-53 e-52 e-51 e-50 arg-2 arg-1 arg-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) e-52))))))) ((15) (let ((e-54 (vector-ref sc0 1))) (let ((e-55 (vector-ref sc0 2))) (let ((e-56 (vector-ref sc0 3))) (let ((e-57 (vector-ref sc0 4))) (let ((e-58 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-54 arg-0 arg-1 e-56 e-57 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Error-Idris-pshow e-54 arg-0 arg-1 e-56 e-58 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Error-Idris-ploc arg-2 e-55) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " borrows argument " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " so must be fully applied at:\u000a" e-7))))))))))))))))))))))))))) ((16) (let ((e-59 (vector-ref sc0 1))) (let ((e-60 (vector-ref sc0 2))) (let ((e-61 (vector-ref sc0 3))) (let ((e-62 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-59 arg-0 arg-1 e-61 e-62 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-60) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " borrows, so must return a concrete type at:\u000a" e-6))))))))))))))))))) ((17) (let ((e-63 (vector-ref sc0 1))) (let ((e-64 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-63) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Ambiguous name " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-64) (Strings-Prelude-C-43C-43 " at:\u000a" e-5))))))))))))) ((18) (let ((e-65 (vector-ref sc0 1))) (let ((e-66 (vector-ref sc0 2))) (let ((e-67 (vector-ref sc0 3))) (let ((e-68 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-setPPrint arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (vector 0 e-0 e-1 0)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Error-Idris-ploc arg-2 e-66) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Error-Idris-pshow e-65 arg-0 arg-1 e-67 eta-1 eta-2))) e-68) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((res (Strings-Prelude-C-43C-43 "Ambiguous elaboration at:\u000a" (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 "Possible correct results:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" e-8)))))) (let ((act-28 (Context-Core-setPPrint arg-0 e-5 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 res))))))))))))))))))))))))))))))) ((19) (let ((e-69 (vector-ref sc0 1))) (let ((e-70 (vector-ref sc0 2))) (let ((e-71 (vector-ref sc0 3))) (let ((e-72 (vector-ref sc0 4))) (let ((e-73 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshowNoNorm e-69 arg-0 arg-1 e-71 e-72 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-70) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Error-Idris-pshowNoNorm e-69 arg-0 arg-1 e-71 eta-1 eta-2))) e-73) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Multiple solutions found in search of:\u000a\u0009" (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\u000aat:\u000a" (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "\u000aPossible correct results:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" e-7))))))))))))))))))))))))))))) ((20) (let ((e-74 (vector-ref sc0 1))) (let ((e-75 (vector-ref sc0 2))) (let ((e-76 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-0 e-75) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) e-76) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Error-Idris-ploc arg-2 e-74) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Maximum ambiguity depth exceeded in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (Name-Core-showSep " --> " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-6)) (Strings-Prelude-C-43C-43 " at:\u000a" e-7)))))))))))))))))))))))))) ((21) (let ((e-77 (vector-ref sc0 1))) (Error-Idris-case--10500-2909 e-77 arg-2 arg-1 arg-0 (Error-Idris-n--10500-2830-allUndefined e-77 arg-2 arg-1 arg-0 e-77)))) ((22) (let ((e-79 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-79) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Can't infer type for this record update at:\u000a" e-5)))))))))) ((23) (let ((e-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (let ((e-83 (vector-ref sc0 3))) (let ((sc1 e-83)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-81) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 e-82 (Strings-Prelude-C-43C-43 " is not part of a record type at:\u000a" e-5)))))))))) (else (let ((e-208 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-81) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Record type " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-208) (Strings-Prelude-C-43C-43 " has no field " (Strings-Prelude-C-43C-43 e-82 (Strings-Prelude-C-43C-43 " at:\u000a" e-5)))))))))))))))))))) ((24) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-84) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-85) (Strings-Prelude-C-43C-43 " is not a record type at:\u000a" e-5)))))))))))) ((25) (let ((e-86 (vector-ref sc0 1))) (let ((e-87 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-86) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Field update " (Strings-Prelude-C-43C-43 (Name-Core-showSep "->" e-87) (Strings-Prelude-C-43C-43 " not compatible with other updates at:\u000a" e-5))))))))))))) ((26) (let ((e-88 (vector-ref sc0 1))) (let ((e-89 (vector-ref sc0 2))) (let ((e-90 (vector-ref sc0 3))) (let ((e-91 (vector-ref sc0 4))) (let ((e-92 (vector-ref sc0 5))) (let ((sc1 e-91)) (case (vector-ref sc1 0) ((1) (let ((e-210 (vector-ref sc1 1))) (let ((e-211 (vector-ref sc1 2))) (let ((sc2 e-210)) (case (vector-ref sc2 0) ((1) (let ((e-213 (vector-ref sc2 1))) (let ((sc3 e-211)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-88 arg-0 arg-1 e-90 e-92 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-89) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-213) (Strings-Prelude-C-43C-43 " is not a valid implicit argument in " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at:\u000a" e-6)))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-88 arg-0 arg-1 e-90 e-92 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-89) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-4) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-4)) e-91)) (Strings-Prelude-C-43C-43 " are not valid implicit arguments in " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at:\u000a" e-6)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-88 arg-0 arg-1 e-90 e-92 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-89) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-4) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-4)) e-91)) (Strings-Prelude-C-43C-43 " are not valid implicit arguments in " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at:\u000a" e-6))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-88 arg-0 arg-1 e-90 e-92 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-89) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-4) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-4)) e-91)) (Strings-Prelude-C-43C-43 " are not valid implicit arguments in " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at:\u000a" e-6))))))))))))))))))))))))) ((27) (let ((e-93 (vector-ref sc0 1))) (let ((e-94 (vector-ref sc0 2))) (let ((e-95 (vector-ref sc0 3))) (let ((e-96 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Error-Idris-n--10500-3070-tshow e-93 e-96 e-95 e-94 arg-2 arg-1 arg-0 e-93 e-95 eta-1)) e-96) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-94) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Need to bind implicits " (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " e-5) (Strings-Prelude-C-43C-43 " at:\u000a" e-6)))))))))))))))))))) ((28) (let ((e-97 (vector-ref sc0 1))) (let ((e-98 (vector-ref sc0 2))) (let ((e-99 (vector-ref sc0 3))) (let ((e-100 (vector-ref sc0 4))) (let ((e-101 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-97 arg-0 arg-1 e-99 e-101 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-98) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Can't bind name " (Strings-Prelude-C-43C-43 (Name-Core-nameRoot e-100) (Strings-Prelude-C-43C-43 " with type " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " here at:\u000a" (Strings-Prelude-C-43C-43 e-6 "Try binding explicitly.")))))))))))))))))))))))) ((29) (let ((e-102 (vector-ref sc0 1))) (let ((e-103 (vector-ref sc0 2))) (let ((e-104 (vector-ref sc0 3))) (let ((e-105 (vector-ref sc0 4))) (Error-Idris-case--10500-3203 e-102 e-105 e-104 e-103 arg-2 arg-1 arg-0 (Error-Idris-n--10500-3138-dropEnv e-102 e-105 e-104 e-103 arg-2 arg-1 arg-0 e-102 e-104 e-105))))))) ((30) (let ((e-106 (vector-ref sc0 1))) (let ((e-107 (vector-ref sc0 2))) (let ((e-108 (vector-ref sc0 3))) (let ((e-110 (vector-ref sc0 5))) (let ((e-111 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-106 arg-0 arg-1 e-110 e-111 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-107) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Can't find an implementation for " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 "since I can't infer a value for argument " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-108) (Strings-Prelude-C-43C-43 " at:\u000a" e-6)))))))))))))))))))))))) ((31) (let ((e-112 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Unsolved holes:\u000a" (Error-Idris-n--10500-3271-showHoles e-112 arg-2 arg-1 arg-0 e-112)))))) ((32) (let ((e-113 (vector-ref sc0 1))) (let ((e-114 (vector-ref sc0 2))) (let ((e-115 (vector-ref sc0 3))) (let ((e-116 (vector-ref sc0 4))) (let ((e-117 (vector-ref sc0 5))) (let ((e-118 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-113 arg-0 arg-1 e-115 e-118 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-114) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Can't infer type for argument " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-116) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 "Got " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " with hole " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-117) (Strings-Prelude-C-43C-43 " at:\u000a" e-6))))))))))))))))))))))))))) ((33) (let ((e-119 (vector-ref sc0 1))) (let ((e-120 (vector-ref sc0 2))) (let ((e-121 (vector-ref sc0 3))) (let ((e-122 (vector-ref sc0 4))) (let ((e-123 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-119 arg-0 arg-1 e-121 e-123 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-120) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Named hole " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-122) (Strings-Prelude-C-43C-43 " has been solved by unification\u000a" (Strings-Prelude-C-43C-43 "Result: " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at:\u000a" e-6)))))))))))))))))))))))) ((34) (let ((e-124 (vector-ref sc0 1))) (let ((e-125 (vector-ref sc0 2))) (let ((e-126 (vector-ref sc0 3))) (let ((e-127 (vector-ref sc0 4))) (let ((e-128 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-126 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-128 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Error-Idris-ploc arg-2 e-124) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-125) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Resugar-Idris-sugarName e-5) (Strings-Prelude-C-43C-43 " cannot refer to " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-127) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Resugar-Idris-sugarName e-6) (Strings-Prelude-C-43C-43 " at:\u000a" e-7))))))))))))))))))))))))))))))) ((35) (let ((e-129 (vector-ref sc0 1))) (let ((e-130 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-129) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Non linear pattern " (Strings-Prelude-C-43C-43 (Resugar-Idris-sugarName e-130) (Strings-Prelude-C-43C-43 " at:\u000a" e-5))))))))))))) ((36) (let ((e-131 (vector-ref sc0 1))) (let ((e-132 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-131) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Pattern not allowed here: " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-132) (Strings-Prelude-C-43C-43 " at:\u000a" e-5))))))))))))) ((37) (let ((e-133 (vector-ref sc0 1))) (let ((e-134 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-133) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "No type declaration for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-134) (Strings-Prelude-C-43C-43 " at:\u000a" e-5))))))))))))) ((38) (let ((e-136 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-136) " is already defined"))))) ((39) (let ((e-137 (vector-ref sc0 1))) (let ((e-138 (vector-ref sc0 2))) (let ((e-139 (vector-ref sc0 3))) (let ((e-140 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-137 arg-0 arg-1 e-139 e-140 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-138) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not a function type at:\u000a" e-6))))))))))))))))))) ((40) (let ((e-141 (vector-ref sc0 1))) (let ((e-142 (vector-ref sc0 2))) (let ((e-143 (vector-ref sc0 3))) (let ((e-144 (vector-ref sc0 4))) (let ((e-145 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-141 arg-0 arg-1 e-143 e-144 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Error-Idris-pshow e-141 arg-0 arg-1 e-143 e-145 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Error-Idris-ploc arg-2 e-142) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Rewriting by " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " did not change type " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " at:\u000a" e-7)))))))))))))))))))))))))))) ((41) (let ((e-146 (vector-ref sc0 1))) (let ((e-147 (vector-ref sc0 2))) (let ((e-148 (vector-ref sc0 3))) (let ((e-149 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-146 arg-0 arg-1 e-148 e-149 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-147) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not a rewrite rule type at:\u000a" e-6))))))))))))))))))) ((42) (let ((e-150 (vector-ref sc0 1))) (let ((e-151 (vector-ref sc0 2))) (let ((e-152 (vector-ref sc0 3))) (let ((sc1 e-152)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-151) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-150) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Patterns for " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " have differing numbers of arguments at:\u000a" e-6)))))))))))))))) ((1) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-151) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-150) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Patterns for " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " require matching on different types at:\u000a" e-6)))))))))))))))) ((4) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-151) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-150) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Can't infer type to match in " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at:\u000a" e-6)))))))))))))))) ((3) (let ((e-215 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-215 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-150) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "Constructor " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " is not fully applied at:\u000a" e-6))))))))))))))))) (else (let ((e-216 (vector-ref sc1 1))) (let ((sc2 e-216)) (let ((e-219 (vector-ref sc2 1))) (let ((e-220 (vector-ref sc2 2))) (let ((sc3 e-220)) (let ((e-223 (vector-ref sc3 1))) (let ((e-224 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-219 arg-0 arg-1 e-223 e-224 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Context-Core-prettyName arg-0 e-151) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 ((Error-Idris-ploc arg-2 e-150) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (Strings-Prelude-C-43C-43 "Attempt to match on erased argument " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " in " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " at\u000a:" e-7)))))))))))))))))))))))))))))))))))) ((44) (let ((e-153 (vector-ref sc0 1))) (let ((e-154 (vector-ref sc0 2))) (let ((e-155 (vector-ref sc0 3))) (let ((e-156 (vector-ref sc0 4))) (let ((e-157 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-153 arg-0 arg-1 e-155 e-157 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-154) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Can't match on " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Core-Core-show_Show__DotReason e-156) (Strings-Prelude-C-43C-43 ") at\u000a" e-6))))))))))))))))))))))) ((43) (let ((e-159 (vector-ref sc0 1))) (let ((e-160 (vector-ref sc0 2))) (let ((e-161 (vector-ref sc0 3))) (let ((e-162 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-159 arg-0 arg-1 e-161 e-162 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-160) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Can't match on " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " as it has a polymorphic type at:\u000a" e-6)))))))))))))))))))) ((45) (let ((e-163 (vector-ref sc0 1))) (let ((e-164 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-163) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Can't infer type for unbound implicit name " (Strings-Prelude-C-43C-43 e-164 (Strings-Prelude-C-43C-43 " at\u000a" (Strings-Prelude-C-43C-43 e-5 "Try making it a bound implicit.")))))))))))))) ((46) (let ((e-165 (vector-ref sc0 1))) (let ((e-166 (vector-ref sc0 2))) (let ((e-167 (vector-ref sc0 3))) (let ((e-168 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-165 arg-0 arg-1 e-167 e-168 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-166) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Bad elaborator script " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at:\u000a" e-6)))))))))))))))))))) ((47) (let ((e-169 (vector-ref sc0 1))) (let ((e-170 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-169) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 e-170 (Strings-Prelude-C-43C-43 " at:\u000a" e-5)))))))))))) ((48) (let ((e-171 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Error in TTC file: " (Core-Core-show_Show__TTCErrorMsg e-171)))))) ((49) (let ((e-172 (vector-ref sc0 1))) (let ((e-173 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "File error in " (Strings-Prelude-C-43C-43 e-172 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-173))))))))) ((50) (let ((e-175 (vector-ref sc0 1))) (let ((e-177 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased e-175 e-177)))))) ((51) (let ((e-179 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-179)) " not found"))))) ((52) (let ((e-180 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Module imports form a cycle: " (Name-Core-showSep " -> " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Error-Idris-n--10500-3715-showMod e-180 arg-2 arg-1 arg-0 eta-1)) e-180))))))) ((53) (lambda (eta-0) (vector 1 "Internal error when resolving implicit laziness"))) ((54) (let ((e-181 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "INTERNAL ERROR: " e-181))))) ((55) (let ((e-182 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Error: " e-182))))) ((56) (let ((e-183 (vector-ref sc0 1))) (let ((e-184 (vector-ref sc0 2))) (let ((e-185 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-184) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-perror arg-0 arg-1 arg-2 e-185) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "While processing type of " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-183) (Strings-Prelude-C-43C-43 ":\u000a" e-6))))))))))))))))))))) ((57) (let ((e-186 (vector-ref sc0 1))) (let ((e-187 (vector-ref sc0 2))) (let ((e-188 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-187) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-perror arg-0 arg-1 arg-2 e-188) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "While processing constructor " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-186) (Strings-Prelude-C-43C-43 ":\u000a" e-6))))))))))))))))))))) ((58) (let ((e-189 (vector-ref sc0 1))) (let ((e-190 (vector-ref sc0 2))) (let ((e-191 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-190) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-perror arg-0 arg-1 arg-2 e-191) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "While processing left hand side of " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-189) (Strings-Prelude-C-43C-43 ":\u000a" e-6))))))))))))))))))))) (else (let ((e-192 (vector-ref sc0 1))) (let ((e-193 (vector-ref sc0 2))) (let ((e-194 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-193) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-perror arg-0 arg-1 arg-2 e-194) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "While processing right hand side of " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-192) (Strings-Prelude-C-43C-43 ":\u000a" e-6))))))))))))))))))))))))) (define Error-Idris-displayWarning (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Error-Idris-pwarning arg-0 arg-1 arg-2 arg-3) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Strings-Prelude-C-43C-43 (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (f) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC f) ":"))) (Core-Core-getWarningLoc arg-3)) e-5))))))))) (define Error-Idris-display (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Error-Idris-perror arg-0 arg-1 arg-2 arg-3) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Strings-Prelude-C-43C-43 (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (f) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC f) ":"))) (Core-Core-getErrorLoc arg-3)) e-5))))))))) (define Extra-List-Data-elemAt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (vector 1 e-2))(else (let ((e-4 (- arg-2 1))) (Extra-List-Data-elemAt 'erased e-3 e-4)))))))))))) -(define Resugar-Idris-case--11687-5205 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-0))) (else (Syntax-Idris-mapPTermM (lambda (eta-0) (Resugar-Idris-n--11687-5123-cleanNode arg-0 arg-1 eta-0)) arg-0)))))) -(define Resugar-Idris-case--11691-5127 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 e-0))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 e-4))))) ((0) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((6) (let ((e-9 (vector-ref sc1 2))) (Resugar-Idris-n--11687-5122-cleanName arg-0 arg-1 e-9)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (Context-Core-prettyName arg-1 arg-2) eta-0)))))))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc0 eta-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 1 e-5))))))) (Context-Core-prettyName arg-1 arg-2) eta-0))))))) -(define Resugar-Idris-case--10016-5024 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 arg-3 arg-2 e-2 e-6 e-10 e-11))))))))))))))) -(define Resugar-Idris-case--10010-4842 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-6 arg-5 (Resugar-Idris-startPrec) e-11) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Resugar-Idris-n--10010-4770-mapPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-8 e-5)))))))))))))))))))))))))) -(define Resugar-Idris-case--11031-4585 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) arg-0) (else (List-Data-drop 'erased (List-Data-length 'erased (let ((sc1 arg-7)) (let ((e-8 (vector-ref sc1 9))) e-8))) arg-0)))))) -(define Resugar-Idris-case--9992-4531 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-5 arg-4 (Resugar-Idris-appPrec) arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Resugar-Idris-mkApp arg-5 arg-4 e-5 arg-0) eta-0)))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-5 arg-4 (Resugar-Idris-appPrec) arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Resugar-Idris-showFullEnv arg-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((argsC-39 (let ((sc3 e-6)) (cond ((equal? sc3 0) arg-0) (else (List-Data-drop 'erased (List-Data-length 'erased (let ((sc4 e-2)) (let ((e-8 (vector-ref sc4 9))) e-8))) arg-0)))))) ((Resugar-Idris-mkApp arg-5 arg-4 e-5 argsC-39) eta-0))))))))))))))))))) -(define Resugar-Idris-case--9989-4438 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (let ((ap (vector 9 arg-0 arg-4 arg-1 arg-2))) (Resugar-Idris-mkApp arg-6 arg-5 ap arg-3))) (else (Resugar-Idris-mkApp arg-6 arg-5 arg-4 arg-3)))))) -(define Resugar-Idris-case--9986-4198 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (Resugar-Idris-bracket arg-5 arg-4 (Resugar-Idris-startPrec) arg-8 eta-0))) (else (Resugar-Idris-mkOp arg-5 arg-8)))))) -(define Resugar-Idris-case--10386-3977 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (vector 39 arg-16 arg-15 arg-12 arg-14)) (else arg-17))))) -(define Resugar-Idris-case--9986-3901 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (Resugar-Idris-toPTerm arg-8 arg-7 (Resugar-Idris-startPrec) arg-2)) (else (lambda (eta-0) (vector 1 (vector 24 arg-5)))))))) -(define Resugar-Idris-case--9986-3826 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Resugar-Idris-toPTerm arg-8 arg-7 (Resugar-Idris-tyPrec) arg-1)) (else (lambda (eta-0) (vector 1 (vector 24 arg-5)))))))) -(define Resugar-Idris-case--9986-3758 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 "_")) (else (let ((e-2 (vector-ref sc0 1))) e-2)))))) -(define Resugar-Idris-case--9986-3679 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-7 arg-6 (Resugar-Idris-appPrec) arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-7 arg-6 (Resugar-Idris-tyPrec) arg-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-bracket arg-6 arg-5 (Resugar-Idris-tyPrec) (vector 1 arg-4 arg-3 (vector 0 ) arg-2 e-5 e-6) eta-0))))))))))))) (else (Resugar-Idris-toPTerm arg-7 arg-6 arg-5 arg-0)))))) -(define Resugar-Idris-case--9986-3639 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-0)))) (else (Resugar-Idris-toPRef arg-1 arg-0)))))) -(define Resugar-Idris-case--9950-3567 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-1 (vector 1 e-0))))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-1 e-2)))))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-1 (vector 1 e-4))))))) ((6) (let ((e-7 (vector-ref sc0 2))) (Resugar-Idris-toPRef arg-1 e-7)))(else (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-1 arg-0))))))))) -(define Resugar-Idris-case--9614-3514 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 "Nil") (Prelude-pure_Applicative__Maybe 'erased (vector 35 arg-1 (vector 0 )))) ((equal? sc0 "Unit") (Prelude-pure_Applicative__Maybe 'erased (vector 38 arg-1))) ((equal? sc0 "MkUnit") (Prelude-pure_Applicative__Maybe 'erased (vector 38 arg-1)))(else (vector 0 )))))) -(define Resugar-Idris-case--9629-3414 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((35) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 35 e-0 (vector 1 (Resugar-Idris-unbracketApp arg-3) e-1))))))(else (vector 0 )))))) -(define Resugar-Idris-case--9629-3311 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (Prelude-pure_Applicative__Maybe 'erased (vector 37 arg-5 e-3 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket e-5))))))(else (vector 0 )))))) -(define Resugar-Idris-case--9614-3263 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 "Pair") (Prelude-pure_Applicative__Maybe 'erased (vector 36 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "MkPair") (Prelude-pure_Applicative__Maybe 'erased (vector 36 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "DPair") (Resugar-Idris-case--9629-3311 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Resugar-Idris-unbracket arg-4))) ((equal? sc0 "Equal") (Prelude-pure_Applicative__Maybe 'erased (vector 30 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "===") (Prelude-pure_Applicative__Maybe 'erased (vector 30 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "~=~") (Prelude-pure_Applicative__Maybe 'erased (vector 30 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "::") (Resugar-Idris-case--9629-3414 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Resugar-Idris-sugarApp (Resugar-Idris-unbracket arg-4))))(else (vector 0 )))))) -(define Resugar-Idris-case--9552-3197 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((sc3 e-12)) (cond ((equal? sc3 "Prelude") (let ((sc4 e-13)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-15)) (cond ((equal? sc6 "Z") (Prelude-pure_Applicative__Maybe 'erased arg-1))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))) ((7) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-17 (vector-ref sc1 2))) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((0) (let ((e-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((sc3 e-18)) (case (vector-ref sc3 0) ((1) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 e-21)) (cond ((equal? sc4 "Prelude") (let ((sc5 e-22)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((1) (let ((e-24 (vector-ref sc6 1))) (let ((sc7 e-24)) (cond ((equal? sc7 "S") (Resugar-Idris-extractNat (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) e-4))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 ))))))) ((14) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((1) (let ((e-25 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Prelude-C-43_Num__Nat arg-1 e-25))))(else (vector 0 )))))) ((31) (let ((e-8 (vector-ref sc0 2))) (Resugar-Idris-extractNat arg-1 e-8)))(else (vector 0 )))))) -(define Resugar-Idris-case--9457-3130 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Resugar-Idris-addBracket (FC-Core-emptyFC) arg-4)))) (else (lambda (eta-0) (vector 1 arg-4))))))) -(define Resugar-Idris-case--9392-3106 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 31 arg-1 arg-0)) (else arg-0))))) -(define Resugar-Idris-case--9308-3004 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-6))) (else (lambda (eta-0) (vector 1 (vector 26 arg-5 arg-2 (Resugar-Idris-unbracketApp arg-3) (Resugar-Idris-unbracketApp arg-4))))))))) -(define Resugar-Idris-n--9392-3056-needed (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((31) 1) ((0) 1) ((36) 1) ((37) 1) ((38) 1) ((40) 1) ((35) 1) ((14) 1)(else 0))))) -(define Resugar-Idris-n--9986-3943-mkIf (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((4) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (let ((e-9 (vector-ref sc2 4))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (let ((e-14 (vector-ref sc5 1))) (let ((e-15 (vector-ref sc5 2))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((0) (let ((e-16 (vector-ref sc6 1))) (let ((e-17 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (let ((e-19 (vector-ref sc6 4))) (let ((sc7 e-17)) (case (vector-ref sc7 0) ((0) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-19)) (case (vector-ref sc8 0) ((0) (let ((sc9 e-15)) (case (vector-ref sc9 0) ((0) (let ((tm (vector 4 e-0 e-1 (vector 1 (vector 0 e-6 (vector 0 e-10 e-11) e-8 (vector 0 )) (vector 1 (vector 0 e-16 (vector 0 e-20 e-21) e-18 (vector 0 )) (vector 0 )))))) (Resugar-Idris-case--10386-3977 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-16 e-20 e-6 e-10 e-11 e-8 e-21 e-18 e-1 e-0 tm (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS e-11) (vector 1 "True")) (lambda () (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS e-21) (vector 1 "False")))))))(else arg-7))))(else arg-7))))))(else arg-7))))))))(else arg-7))))))(else arg-7))))(else arg-7))))))(else arg-7))))))))(else arg-7))))))(else arg-7)))))))(else arg-7))))) -(define Resugar-Idris-n--10010-4770-mapPiInfo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-6 arg-5 (Resugar-Idris-startPrec) e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5)))))))))))))) -(define Resugar-Idris-n--11687-5123-cleanNode (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-5))))))) (Resugar-Idris-n--11687-5122-cleanName arg-0 arg-1 e-1) eta-0))))) ((26) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 26 e-2 e-6 e-4 e-5))))))) (Resugar-Idris-n--11687-5122-cleanName arg-0 arg-1 e-3) eta-0))))))) ((27) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 27 e-6 e-5 e-8))))))) (Resugar-Idris-n--11687-5122-cleanName arg-0 arg-1 e-7) eta-0)))))) ((28) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 28 e-9 e-5 e-11))))))) (Resugar-Idris-n--11687-5122-cleanName arg-0 arg-1 e-10) eta-0)))))) ((29) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 29 e-12 e-13 e-5))))))) (Resugar-Idris-n--11687-5122-cleanName arg-0 arg-1 e-14) eta-0))))))(else (lambda (eta-0) (vector 1 arg-2))))))) -(define Resugar-Idris-n--11687-5122-cleanName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 e-0))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 e-4))))) ((0) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((6) (let ((e-9 (vector-ref sc1 2))) (Resugar-Idris-n--11687-5122-cleanName arg-0 arg-1 e-9)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (Context-Core-prettyName arg-1 arg-2) eta-0)))))))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc0 eta-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 1 e-5))))))) (Context-Core-prettyName arg-1 arg-2) eta-0))))))) +(define Resugar-Idris-case--11905-5298 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-0))) (else (Syntax-Idris-mapPTermM (lambda (eta-0) (Resugar-Idris-n--11905-5216-cleanNode arg-0 arg-1 eta-0)) arg-0)))))) +(define Resugar-Idris-case--11909-5220 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 e-0))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 e-4))))) ((0) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((6) (let ((e-9 (vector-ref sc1 2))) (Resugar-Idris-n--11905-5215-cleanName arg-0 arg-1 e-9)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (Context-Core-prettyName arg-1 arg-2) eta-0)))))))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc0 eta-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 1 e-5))))))) (Context-Core-prettyName arg-1 arg-2) eta-0))))))) +(define Resugar-Idris-case--10142-5117 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 arg-3 arg-2 e-2 e-6 e-10 e-11))))))))))))))) +(define Resugar-Idris-case--10136-4935 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-6 arg-5 (Resugar-Idris-startPrec) e-11) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Resugar-Idris-n--10136-4863-mapPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-8 e-5)))))))))))))))))))))))))) +(define Resugar-Idris-case--11249-4678 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) arg-0) (else (List-Data-drop 'erased (List-Data-length 'erased (let ((sc1 arg-7)) (let ((e-8 (vector-ref sc1 9))) e-8))) arg-0)))))) +(define Resugar-Idris-case--10118-4624 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-5 arg-4 (Resugar-Idris-appPrec) arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Resugar-Idris-mkApp arg-5 arg-4 e-5 arg-0) eta-0)))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-5 arg-4 (Resugar-Idris-appPrec) arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Resugar-Idris-showFullEnv arg-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((argsC-39 (let ((sc3 e-6)) (cond ((equal? sc3 0) arg-0) (else (List-Data-drop 'erased (List-Data-length 'erased (let ((sc4 e-2)) (let ((e-8 (vector-ref sc4 9))) e-8))) arg-0)))))) ((Resugar-Idris-mkApp arg-5 arg-4 e-5 argsC-39) eta-0))))))))))))))))))) +(define Resugar-Idris-case--10115-4531 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (let ((ap (vector 9 arg-0 arg-4 arg-1 arg-2))) (Resugar-Idris-mkApp arg-6 arg-5 ap arg-3))) (else (Resugar-Idris-mkApp arg-6 arg-5 arg-4 arg-3)))))) +(define Resugar-Idris-case--10112-4291 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (Resugar-Idris-bracket arg-5 arg-4 (Resugar-Idris-startPrec) arg-8 eta-0))) (else (Resugar-Idris-mkOp arg-5 arg-8)))))) +(define Resugar-Idris-case--10604-4070 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (vector 39 arg-16 arg-15 arg-12 arg-14)) (else arg-17))))) +(define Resugar-Idris-case--10112-3994 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (Resugar-Idris-toPTerm arg-8 arg-7 (Resugar-Idris-startPrec) arg-2)) (else (lambda (eta-0) (vector 1 (vector 24 arg-5)))))))) +(define Resugar-Idris-case--10112-3919 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Resugar-Idris-toPTerm arg-8 arg-7 (Resugar-Idris-tyPrec) arg-1)) (else (lambda (eta-0) (vector 1 (vector 24 arg-5)))))))) +(define Resugar-Idris-case--10112-3851 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 "_")) (else (let ((e-2 (vector-ref sc0 1))) e-2)))))) +(define Resugar-Idris-case--10234-3766 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-7 arg-6 (Resugar-Idris-tyPrec) arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-7 arg-6 (Resugar-Idris-tyPrec) arg-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-bracket arg-6 arg-5 (Resugar-Idris-tyPrec) (vector 1 arg-4 arg-3 (vector 0 ) arg-2 e-5 e-6) eta-0))))))))))))) (else (Resugar-Idris-toPTerm arg-7 arg-6 arg-5 arg-0)))))) +(define Resugar-Idris-case--10112-3716 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-7 arg-6 (Resugar-Idris-tyPrec) arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-7 arg-6 (Resugar-Idris-tyPrec) arg-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-bracket arg-6 arg-5 (Resugar-Idris-tyPrec) (vector 1 arg-4 arg-3 (vector 0 ) arg-2 e-5 e-6) eta-0))))))))))))) (else (let ((imp 1)) (Resugar-Idris-case--10234-3766 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 imp (Resugar-Idris-n--10112-3679-needsBind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-2)))))))) +(define Resugar-Idris-case--10112-3647 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-0)))) (else (Resugar-Idris-toPRef arg-1 arg-0)))))) +(define Resugar-Idris-case--10076-3575 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-1 (vector 1 e-0))))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-1 e-2)))))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-1 (vector 1 e-4))))))) ((6) (let ((e-7 (vector-ref sc0 2))) (Resugar-Idris-toPRef arg-1 e-7)))(else (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-1 arg-0))))))))) +(define Resugar-Idris-case--9740-3522 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 "Nil") (Prelude-pure_Applicative__Maybe 'erased (vector 35 arg-1 (vector 0 )))) ((equal? sc0 "Unit") (Prelude-pure_Applicative__Maybe 'erased (vector 38 arg-1))) ((equal? sc0 "MkUnit") (Prelude-pure_Applicative__Maybe 'erased (vector 38 arg-1)))(else (vector 0 )))))) +(define Resugar-Idris-case--9755-3422 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((35) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 35 e-0 (vector 1 (Resugar-Idris-unbracketApp arg-3) e-1))))))(else (vector 0 )))))) +(define Resugar-Idris-case--9755-3319 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (Prelude-pure_Applicative__Maybe 'erased (vector 37 arg-5 e-3 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket e-5))))))(else (vector 0 )))))) +(define Resugar-Idris-case--9740-3271 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 "Pair") (Prelude-pure_Applicative__Maybe 'erased (vector 36 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "MkPair") (Prelude-pure_Applicative__Maybe 'erased (vector 36 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "DPair") (Resugar-Idris-case--9755-3319 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Resugar-Idris-unbracket arg-4))) ((equal? sc0 "Equal") (Prelude-pure_Applicative__Maybe 'erased (vector 30 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "===") (Prelude-pure_Applicative__Maybe 'erased (vector 30 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "~=~") (Prelude-pure_Applicative__Maybe 'erased (vector 30 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "::") (Resugar-Idris-case--9755-3422 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Resugar-Idris-sugarApp (Resugar-Idris-unbracket arg-4))))(else (vector 0 )))))) +(define Resugar-Idris-case--9678-3205 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((sc3 e-12)) (cond ((equal? sc3 "Prelude") (let ((sc4 e-13)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-15)) (cond ((equal? sc6 "Z") (Prelude-pure_Applicative__Maybe 'erased arg-1))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))) ((7) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-17 (vector-ref sc1 2))) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((0) (let ((e-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((sc3 e-18)) (case (vector-ref sc3 0) ((1) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 e-21)) (cond ((equal? sc4 "Prelude") (let ((sc5 e-22)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((1) (let ((e-24 (vector-ref sc6 1))) (let ((sc7 e-24)) (cond ((equal? sc7 "S") (Resugar-Idris-extractNat (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) e-4))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 ))))))) ((14) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((1) (let ((e-25 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Prelude-C-43_Num__Nat arg-1 e-25))))(else (vector 0 )))))) ((31) (let ((e-8 (vector-ref sc0 2))) (Resugar-Idris-extractNat arg-1 e-8)))(else (vector 0 )))))) +(define Resugar-Idris-case--9583-3138 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Resugar-Idris-addBracket (FC-Core-emptyFC) arg-4)))) (else (lambda (eta-0) (vector 1 arg-4))))))) +(define Resugar-Idris-case--9518-3114 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 31 arg-1 arg-0)) (else arg-0))))) +(define Resugar-Idris-case--9434-3012 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-6))) (else (lambda (eta-0) (vector 1 (vector 26 arg-5 arg-2 (Resugar-Idris-unbracketApp arg-3) (Resugar-Idris-unbracketApp arg-4))))))))) +(define Resugar-Idris-n--10112-3679-needsBind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((ns (Utils-TTImp-findBindableNames 1 (vector 0 ) (vector 0 ) arg-0))) (let ((allNs (Utils-TTImp-findAllNames (vector 0 ) arg-0))) (Prelude-C-38C-38 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (vector 1 e-2) allNs) (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) e-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) ns)))))))))(else 1)))))(else 1))))) +(define Resugar-Idris-n--9518-3064-needed (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((31) 1) ((0) 1) ((36) 1) ((37) 1) ((38) 1) ((40) 1) ((35) 1) ((14) 1)(else 0))))) +(define Resugar-Idris-n--10112-4036-mkIf (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((4) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (let ((e-9 (vector-ref sc2 4))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (let ((e-14 (vector-ref sc5 1))) (let ((e-15 (vector-ref sc5 2))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((0) (let ((e-16 (vector-ref sc6 1))) (let ((e-17 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (let ((e-19 (vector-ref sc6 4))) (let ((sc7 e-17)) (case (vector-ref sc7 0) ((0) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-19)) (case (vector-ref sc8 0) ((0) (let ((sc9 e-15)) (case (vector-ref sc9 0) ((0) (let ((tm (vector 4 e-0 e-1 (vector 1 (vector 0 e-6 (vector 0 e-10 e-11) e-8 (vector 0 )) (vector 1 (vector 0 e-16 (vector 0 e-20 e-21) e-18 (vector 0 )) (vector 0 )))))) (Resugar-Idris-case--10604-4070 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-16 e-20 e-6 e-10 e-11 e-8 e-21 e-18 e-1 e-0 tm (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS e-11) (vector 1 "True")) (lambda () (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS e-21) (vector 1 "False")))))))(else arg-7))))(else arg-7))))))(else arg-7))))))))(else arg-7))))))(else arg-7))))(else arg-7))))))(else arg-7))))))))(else arg-7))))))(else arg-7)))))))(else arg-7))))) +(define Resugar-Idris-n--10136-4863-mapPiInfo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-6 arg-5 (Resugar-Idris-startPrec) e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5)))))))))))))) +(define Resugar-Idris-n--11905-5216-cleanNode (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-5))))))) (Resugar-Idris-n--11905-5215-cleanName arg-0 arg-1 e-1) eta-0))))) ((26) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 26 e-2 e-6 e-4 e-5))))))) (Resugar-Idris-n--11905-5215-cleanName arg-0 arg-1 e-3) eta-0))))))) ((27) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 27 e-6 e-5 e-8))))))) (Resugar-Idris-n--11905-5215-cleanName arg-0 arg-1 e-7) eta-0)))))) ((28) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 28 e-9 e-5 e-11))))))) (Resugar-Idris-n--11905-5215-cleanName arg-0 arg-1 e-10) eta-0)))))) ((29) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 29 e-12 e-13 e-5))))))) (Resugar-Idris-n--11905-5215-cleanName arg-0 arg-1 e-14) eta-0))))))(else (lambda (eta-0) (vector 1 arg-2))))))) +(define Resugar-Idris-n--11905-5215-cleanName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 e-0))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 e-4))))) ((0) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((6) (let ((e-9 (vector-ref sc1 2))) (Resugar-Idris-n--11905-5215-cleanName arg-0 arg-1 e-9)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (Context-Core-prettyName arg-1 arg-2) eta-0)))))))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc0 eta-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 1 e-5))))))) (Context-Core-prettyName arg-1 arg-2) eta-0))))))) (define Resugar-Idris-unbracketApp (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((31) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) e-1)(else arg-0)))))(else arg-0))))) (define Resugar-Idris-unbracket (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((31) (let ((e-1 (vector-ref sc0 2))) e-1))(else arg-0))))) (define Resugar-Idris-tyPrec (lambda () (+ 1 0))) (define Resugar-Idris-toPTypeDecl (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 "" e-5)))))))))))))) (define Resugar-Idris-toPTermApp (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((Resugar-Idris-toPTermApp arg-0 arg-1 e-1 (vector 1 (vector 0 e-0 (vector 0 (vector 0 ) e-5)) arg-3)) eta-0))))))))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc1 1))) ((Resugar-Idris-toPTermApp arg-0 arg-1 e-4 (vector 1 (vector 0 e-3 (vector 0 (vector 1 e-5) e-7)) arg-3)) eta-0)))))))))))) ((0) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-8 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((fn (vector 0 e-7 e-8))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((act-26 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) fn) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) ((Resugar-Idris-mkApp arg-0 arg-1 e-9 arg-3) eta-0))))))) (else (let ((e-2 (vector-ref sc3 1))) (let ((act-26 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) fn) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (Resugar-Idris-showFullEnv arg-0 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc5 1))) (let ((argsC-39 (let ((sc6 e-10)) (cond ((equal? sc6 0) arg-3) (else (List-Data-drop 'erased (List-Data-length 'erased (let ((sc7 e-2)) (let ((e-23 (vector-ref sc7 9))) e-23))) arg-3)))))) ((Resugar-Idris-mkApp arg-0 arg-1 e-9 argsC-39) eta-0)))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) arg-2) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Resugar-Idris-mkApp arg-0 arg-1 e-5 arg-3) eta-0)))))))))))) -(define Resugar-Idris-toPTerm (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Resugar-Idris-case--9986-3639 e-1 e-0 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) eta-0)))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (Resugar-Idris-showImplicits arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (cond ((equal? sc3 0) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) e-6) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-26 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-tyPrec) e-7) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-tyPrec) (vector 1 e-2 e-3 (vector 0 ) e-5 e-9 e-10) eta-0)))))))))))) (else ((Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-7) eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) e-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-tyPrec) e-7) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-26 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) eta-1)) e-4) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-tyPrec) (vector 1 e-2 e-3 e-10 e-5 e-8 e-9) eta-0))))))))))))))))))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (let ((n (let ((sc1 e-11)) (case (vector-ref sc1 0) ((0) (vector 1 "_")) (else (let ((e-2 (vector-ref sc1 1))) e-2)))))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-showImplicits arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((sc2 e-5)) (cond ((equal? sc2 0) ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-tyPrec) e-12) eta-0)) (else (vector 1 (vector 24 e-8))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-13) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) eta-1)) e-10) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc4 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 2 e-8 e-9 e-14 (vector 0 e-8 n) e-6 e-7) eta-0)))))))))))))))))))))))))))))) ((3) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-showImplicits arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((sc2 e-5)) (cond ((equal? sc2 0) ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-17) eta-0)) (else (vector 1 (vector 24 e-14))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-18) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-19) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 3 e-14 e-15 (vector 0 e-14 e-16) e-6 e-7 e-8 (vector 0 )) eta-0))))))))))))))))))))))))))))) ((4) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (let ((e-23 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-21) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPClause arg-0 arg-1 eta-1)) e-23) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (Resugar-Idris-n--9986-3943-mkIf e-23 e-22 e-21 e-20 arg-2 arg-1 arg-0 (vector 4 e-20 e-5 e-6)) eta-0))))))))))))))))) ((5) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPDecl arg-0 arg-1 eta-1)) e-25) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-26) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 5 e-24 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-5) e-6) eta-0)))))))))))))))) ((6) (let ((e-31 (vector-ref sc0 5))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-31))) ((7) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPFieldUpdate arg-0 arg-1 eta-1)) e-33) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-34) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 7 e-32 (vector 6 e-32 e-5) e-6) eta-0)))))))))))))))) ((8) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-37) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTermApp arg-0 arg-1 e-36 (vector 1 (vector 0 e-35 (vector 0 (vector 0 ) e-5)) (vector 0 ))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-appPrec) e-6 eta-0)))))))))))))))) ((10) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-40) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-39) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-appPrec) (vector 8 e-38 e-6 e-5) eta-0)))))))))))))))) ((9) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (let ((e-44 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-44) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTermApp arg-0 arg-1 e-42 (vector 1 (vector 0 e-41 (vector 0 (vector 1 e-43) e-5)) (vector 0 ))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Resugar-Idris-showImplicits arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) e-6 eta-0)) (else ((Resugar-Idris-mkOp arg-1 e-6) eta-0))))))))))))))))))))))))) ((11) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 13 e-45 e-46)))))) ((12) (let ((e-47 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 24 e-47))))) ((13) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-51) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-52) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 41 e-50 e-5 e-6))))))))))))))))) ((14) (let ((e-54 (vector-ref sc0 2))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-54))) ((27) (let ((e-55 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 14 e-55 e-56)))))) ((29) (let ((e-57 (vector-ref sc0 1))) (let ((e-58 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 20 e-57 1 e-58)))))) ((28) (let ((e-59 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 21 e-59))))) ((16) (let ((e-60 (vector-ref sc0 1))) (let ((e-61 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-60 (vector 1 e-61))))))) ((15) (let ((e-64 (vector-ref sc0 3))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-64))) ((17) (let ((e-65 (vector-ref sc0 1))) (let ((e-67 (vector-ref sc0 3))) (let ((e-68 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-68) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 22 e-65 e-67 e-5)))))))))))) ((18) (let ((e-69 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-71) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 23 e-69 e-5))))))))))) ((19) (let ((e-72 (vector-ref sc0 1))) (let ((e-73 (vector-ref sc0 2))) (let ((e-74 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-74) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 10 e-72 e-73 e-5)))))))))))) ((20) (let ((e-75 (vector-ref sc0 1))) (let ((e-76 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-76) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 11 e-75 e-5))))))))))) ((21) (let ((e-77 (vector-ref sc0 1))) (let ((e-78 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-78) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 12 e-77 e-5))))))))))) ((22) (let ((e-79 (vector-ref sc0 1))) (let ((e-80 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-80) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 15 e-79 e-5))))))))))) ((23) (let ((e-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 16 e-81 e-82)))))) ((24) (let ((e-83 (vector-ref sc0 1))) (let ((e-84 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPDecl arg-0 arg-1 eta-1)) e-84) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 17 e-83 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-5)))))))))))) ((25) (let ((e-85 (vector-ref sc0 1))) (let ((e-86 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-86) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 18 e-85 e-5))))))))))) ((26) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-88) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 19 e-87 e-5))))))))))) ((30) (let ((e-91 (vector-ref sc0 3))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-91))) ((31) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (let ((sc1 e-93)) (cond ((equal? sc1 0) (lambda (eta-0) (vector 1 (vector 24 e-92)))) (else (lambda (eta-0) (vector 1 (vector 25 e-92))))))))) (else (let ((e-94 (vector-ref sc0 1))) (let ((e-95 (vector-ref sc0 2))) (let ((e-96 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 47 e-94 e-95 e-5))))))) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-96) eta-0)))))))))) +(define Resugar-Idris-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--10112-3647 e-1 e-0 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) eta-0)))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (Resugar-Idris-showImplicits arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (cond ((equal? sc3 0) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-tyPrec) e-6) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-26 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-tyPrec) e-7) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-tyPrec) (vector 1 e-2 e-3 (vector 0 ) e-5 e-9 e-10) eta-0)))))))))))) (else (let ((imp 1)) ((Resugar-Idris-case--10234-3766 e-7 e-6 e-5 e-3 e-2 arg-2 arg-1 arg-0 imp (Resugar-Idris-n--10112-3679-needsBind e-7 e-6 e-5 e-3 e-2 arg-2 arg-1 arg-0 e-5)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) e-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-tyPrec) e-7) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-26 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) eta-1)) e-4) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-tyPrec) (vector 1 e-2 e-3 e-10 e-5 e-8 e-9) eta-0))))))))))))))))))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (let ((n (let ((sc1 e-11)) (case (vector-ref sc1 0) ((0) (vector 1 "_")) (else (let ((e-2 (vector-ref sc1 1))) e-2)))))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-showImplicits arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((sc2 e-5)) (cond ((equal? sc2 0) ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-tyPrec) e-12) eta-0)) (else (vector 1 (vector 24 e-8))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-13) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) eta-1)) e-10) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc4 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 2 e-8 e-9 e-14 (vector 0 e-8 n) e-6 e-7) eta-0)))))))))))))))))))))))))))))) ((3) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-showImplicits arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((sc2 e-5)) (cond ((equal? sc2 0) ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-17) eta-0)) (else (vector 1 (vector 24 e-14))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-18) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-19) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 3 e-14 e-15 (vector 0 e-14 e-16) e-6 e-7 e-8 (vector 0 )) eta-0))))))))))))))))))))))))))))) ((4) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (let ((e-23 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-21) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPClause arg-0 arg-1 eta-1)) e-23) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (Resugar-Idris-n--10112-4036-mkIf e-23 e-22 e-21 e-20 arg-2 arg-1 arg-0 (vector 4 e-20 e-5 e-6)) eta-0))))))))))))))))) ((5) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPDecl arg-0 arg-1 eta-1)) e-25) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-26) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 5 e-24 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-5) e-6) eta-0)))))))))))))))) ((6) (let ((e-31 (vector-ref sc0 5))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-31))) ((7) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPFieldUpdate arg-0 arg-1 eta-1)) e-33) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-34) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 7 e-32 (vector 6 e-32 e-5) e-6) eta-0)))))))))))))))) ((8) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-37) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTermApp arg-0 arg-1 e-36 (vector 1 (vector 0 e-35 (vector 0 (vector 0 ) e-5)) (vector 0 ))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-appPrec) e-6 eta-0)))))))))))))))) ((10) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-40) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-39) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-appPrec) (vector 8 e-38 e-6 e-5) eta-0)))))))))))))))) ((9) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (let ((e-44 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-44) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTermApp arg-0 arg-1 e-42 (vector 1 (vector 0 e-41 (vector 0 (vector 1 e-43) e-5)) (vector 0 ))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Resugar-Idris-showImplicits arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) e-6 eta-0)) (else ((Resugar-Idris-mkOp arg-1 e-6) eta-0))))))))))))))))))))))))) ((11) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 13 e-45 e-46)))))) ((12) (let ((e-47 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 24 e-47))))) ((13) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-51) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-52) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 41 e-50 e-5 e-6))))))))))))))))) ((14) (let ((e-54 (vector-ref sc0 2))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-54))) ((27) (let ((e-55 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 14 e-55 e-56)))))) ((29) (let ((e-57 (vector-ref sc0 1))) (let ((e-58 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 20 e-57 1 e-58)))))) ((28) (let ((e-59 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 21 e-59))))) ((16) (let ((e-60 (vector-ref sc0 1))) (let ((e-61 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-60 (vector 1 e-61))))))) ((15) (let ((e-64 (vector-ref sc0 3))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-64))) ((17) (let ((e-65 (vector-ref sc0 1))) (let ((e-67 (vector-ref sc0 3))) (let ((e-68 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-68) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 22 e-65 e-67 e-5)))))))))))) ((18) (let ((e-69 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-71) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 23 e-69 e-5))))))))))) ((19) (let ((e-72 (vector-ref sc0 1))) (let ((e-73 (vector-ref sc0 2))) (let ((e-74 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-74) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 10 e-72 e-73 e-5)))))))))))) ((20) (let ((e-75 (vector-ref sc0 1))) (let ((e-76 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-76) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 11 e-75 e-5))))))))))) ((21) (let ((e-77 (vector-ref sc0 1))) (let ((e-78 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-78) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 12 e-77 e-5))))))))))) ((22) (let ((e-79 (vector-ref sc0 1))) (let ((e-80 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-80) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 15 e-79 e-5))))))))))) ((23) (let ((e-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 16 e-81 e-82)))))) ((24) (let ((e-83 (vector-ref sc0 1))) (let ((e-84 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPDecl arg-0 arg-1 eta-1)) e-84) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 17 e-83 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-5)))))))))))) ((25) (let ((e-85 (vector-ref sc0 1))) (let ((e-86 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-86) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 18 e-85 e-5))))))))))) ((26) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-88) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 19 e-87 e-5))))))))))) ((30) (let ((e-91 (vector-ref sc0 3))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-91))) ((31) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (let ((sc1 e-93)) (cond ((equal? sc1 0) (lambda (eta-0) (vector 1 (vector 24 e-92)))) (else (lambda (eta-0) (vector 1 (vector 25 e-92))))))))) (else (let ((e-94 (vector-ref sc0 1))) (let ((e-95 (vector-ref sc0 2))) (let ((e-96 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 47 e-94 e-95 e-5))))))) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-96) eta-0)))))))))) (define Resugar-Idris-toPRef (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-0 (vector 1 e-0))))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-0 e-2)))))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-0 (vector 1 e-4))))))) ((6) (let ((e-7 (vector-ref sc0 2))) (Resugar-Idris-toPRef arg-0 e-7)))(else (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-0 arg-1))))))))) -(define Resugar-Idris-toPRecord (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-6 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (let ((e-8 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (lambda (eta-1) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-11) eta-1))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-25 ((Resugar-Idris-n--10010-4770-mapPiInfo e-4 e-3 e-2 e-1 e-0 arg-1 arg-0 e-10) eta-1))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc5 1))) (vector 1 (vector 0 e-6 (vector 0 e-8 (vector 0 e-12 e-9))))))))))))))))))))))))) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPField arg-0 arg-1 eta-1)) e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-1 (vector 0 e-5 (vector 0 (vector 1 e-3) e-6))))))))))))))))))))))) +(define Resugar-Idris-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--10136-4863-mapPiInfo e-4 e-3 e-2 e-1 e-0 arg-1 arg-0 e-10) eta-1))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc5 1))) (vector 1 (vector 0 e-6 (vector 0 e-8 (vector 0 e-12 e-9))))))))))))))))))))))))) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPField arg-0 arg-1 eta-1)) e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-1 (vector 0 e-5 (vector 0 (vector 1 e-3) e-6))))))))))))))))))))))) (define Resugar-Idris-toPFnOpt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) eta-1)) e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2)))))))) (define Resugar-Idris-toPFieldUpdate (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-5))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-2 e-5))))))))))))))) (define Resugar-Idris-toPField (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) eta-1)) e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-1 e-6 e-3 e-5))))))))))))))))))))) @@ -6756,7 +6826,7 @@ (define Resugar-Idris-toPClause (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-5 e-6 (vector 0 )))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPClause arg-0 arg-1 eta-1)) e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (vector 1 e-3 e-8 e-9 e-6 e-10)))))))))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-8 e-5))))))))))))))) (define Resugar-Idris-toCleanPTerm (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 arg-2 arg-3) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Resugar-Idris-cleanPTerm arg-0 e-5 ext-0)))))))) (define Resugar-Idris-sugarName (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "(implicit) " e-0))) ((3) (let ((e-2 (vector-ref sc0 1))) (Resugar-Idris-sugarName e-2))) ((4) (let ((e-4 (vector-ref sc0 1))) e-4))(else (Name-Core-show_Show__Name arg-0)))))) -(define Resugar-Idris-sugarAppM (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (Resugar-Idris-case--9614-3263 e-5 e-10 e-11 e-7 e-2 e-0 (Name-Core-nameRoot e-11)))))(else (vector 0 )))))))) ((0) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((sc3 e-12)) (case (vector-ref sc3 0) ((1) (let ((e-15 (vector-ref sc3 1))) (let ((e-16 (vector-ref sc3 2))) (let ((sc4 e-15)) (cond ((equal? sc4 "Prelude") (let ((sc5 e-16)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-13)) (case (vector-ref sc6 0) ((1) (let ((e-18 (vector-ref sc6 1))) (let ((sc7 e-18)) (cond ((equal? sc7 "S") (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (vector 14 e-0 (vector 1 (Prelude-cast_Cast__Nat_Integer eta-0)))) (Resugar-Idris-extractNat (+ 1 0) e-2)))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))) ((0) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((sc2 e-19)) (case (vector-ref sc2 0) ((1) (let ((e-22 (vector-ref sc2 1))) (let ((e-23 (vector-ref sc2 2))) (let ((sc3 e-22)) (cond ((equal? sc3 "Prelude") (let ((sc4 e-23)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (let ((sc6 e-25)) (cond ((equal? sc6 "Z") (Prelude-pure_Applicative__Maybe 'erased (vector 14 e-3 (vector 1 0))))(else (Resugar-Idris-case--9614-3514 e-4 e-3 (Name-Core-nameRoot e-4)))))))(else (Resugar-Idris-case--9614-3514 e-4 e-3 (Name-Core-nameRoot e-4))))))(else (Resugar-Idris-case--9614-3514 e-4 e-3 (Name-Core-nameRoot e-4))))))(else (Resugar-Idris-case--9614-3514 e-4 e-3 (Name-Core-nameRoot e-4))))))))(else (Resugar-Idris-case--9614-3514 e-4 e-3 (Name-Core-nameRoot e-4))))))))(else (Resugar-Idris-case--9614-3514 e-4 e-3 (Name-Core-nameRoot e-4))))))))(else (vector 0 )))))) +(define Resugar-Idris-sugarAppM (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (Resugar-Idris-case--9740-3271 e-5 e-10 e-11 e-7 e-2 e-0 (Name-Core-nameRoot e-11)))))(else (vector 0 )))))))) ((0) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((sc3 e-12)) (case (vector-ref sc3 0) ((1) (let ((e-15 (vector-ref sc3 1))) (let ((e-16 (vector-ref sc3 2))) (let ((sc4 e-15)) (cond ((equal? sc4 "Prelude") (let ((sc5 e-16)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-13)) (case (vector-ref sc6 0) ((1) (let ((e-18 (vector-ref sc6 1))) (let ((sc7 e-18)) (cond ((equal? sc7 "S") (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (vector 14 e-0 (vector 1 (Prelude-cast_Cast__Nat_Integer eta-0)))) (Resugar-Idris-extractNat (+ 1 0) e-2)))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))) ((0) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((sc2 e-19)) (case (vector-ref sc2 0) ((1) (let ((e-22 (vector-ref sc2 1))) (let ((e-23 (vector-ref sc2 2))) (let ((sc3 e-22)) (cond ((equal? sc3 "Prelude") (let ((sc4 e-23)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (let ((sc6 e-25)) (cond ((equal? sc6 "Z") (Prelude-pure_Applicative__Maybe 'erased (vector 14 e-3 (vector 1 0))))(else (Resugar-Idris-case--9740-3522 e-4 e-3 (Name-Core-nameRoot e-4)))))))(else (Resugar-Idris-case--9740-3522 e-4 e-3 (Name-Core-nameRoot e-4))))))(else (Resugar-Idris-case--9740-3522 e-4 e-3 (Name-Core-nameRoot e-4))))))(else (Resugar-Idris-case--9740-3522 e-4 e-3 (Name-Core-nameRoot e-4))))))))(else (Resugar-Idris-case--9740-3522 e-4 e-3 (Name-Core-nameRoot e-4))))))))(else (Resugar-Idris-case--9740-3522 e-4 e-3 (Name-Core-nameRoot e-4))))))))(else (vector 0 )))))) (define Resugar-Idris-sugarApp (lambda (arg-0) (Maybe-Data-fromMaybe 'erased (lambda () arg-0) (Resugar-Idris-sugarAppM arg-0)))) (define Resugar-Idris-startPrec (lambda () 0)) (define Resugar-Idris-showImplicits (lambda (arg-0 ext-0) (let ((act-24 (Context-Core-getPPrint arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)))))))))) @@ -6764,303 +6834,303 @@ (define Resugar-Idris-resugarNoPatvars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Unelab-TTImp-unelabNoPatvars arg-0 arg-1 arg-3 arg-4 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Resugar-Idris-toCleanPTerm arg-1 arg-2 (Resugar-Idris-startPrec) e-5 ext-0)))))))) (define Resugar-Idris-resugar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Unelab-TTImp-unelab arg-0 arg-1 arg-3 arg-4) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Resugar-Idris-toCleanPTerm arg-1 arg-2 (Resugar-Idris-startPrec) e-5 ext-0)))))))) (define Resugar-Idris-pterm (lambda (arg-0 arg-1 arg-2 ext-0) (Resugar-Idris-toCleanPTerm arg-0 arg-1 (Resugar-Idris-startPrec) arg-2 ext-0))) -(define Resugar-Idris-mkOp (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (let ((tm (vector 7 e-0 (vector 7 e-3 (vector 0 e-6 e-7) e-5) e-2))) ((Resugar-Idris-case--9308-3004 e-3 e-6 e-7 e-5 e-2 e-0 tm arg-0 e-8 (StringMap-Data-lookup 'erased (Name-Core-nameRoot e-7) (let ((sc4 e-8)) (let ((e-14 (vector-ref sc4 1))) e-14)))) eta-0)))))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))))(else (lambda (eta-0) (vector 1 arg-1))))))) +(define Resugar-Idris-mkOp (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (let ((tm (vector 7 e-0 (vector 7 e-3 (vector 0 e-6 e-7) e-5) e-2))) ((Resugar-Idris-case--9434-3012 e-3 e-6 e-7 e-5 e-2 e-0 tm arg-0 e-8 (StringMap-Data-lookup 'erased (Name-Core-nameRoot e-7) (let ((sc4 e-8)) (let ((e-15 (vector-ref sc4 1))) e-15)))) eta-0)))))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))))(else (lambda (eta-0) (vector 1 arg-1))))))) (define Resugar-Idris-mkApp (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((ap (Resugar-Idris-sugarApp (vector 7 e-6 arg-2 e-11)))) (Resugar-Idris-mkApp arg-0 arg-1 ap e-3))) (else (let ((e-14 (vector-ref sc3 1))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-showImplicits arg-0 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (let ((sc5 e-5)) (cond ((equal? sc5 0) (let ((ap (vector 9 e-6 arg-2 e-14 e-11))) ((Resugar-Idris-mkApp arg-0 arg-1 ap e-3) eta-0))) (else ((Resugar-Idris-mkApp arg-0 arg-1 arg-2 e-3) eta-0))))))))))))))))))))))))))) (define Resugar-Idris-fullNamespace (lambda (arg-0 ext-0) (let ((act-24 (Context-Core-getPPrint arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))))) (define Resugar-Idris-extractNat (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((sc3 e-12)) (cond ((equal? sc3 "Prelude") (let ((sc4 e-13)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-15)) (cond ((equal? sc6 "Z") (Prelude-pure_Applicative__Maybe 'erased arg-0))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))) ((7) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-17 (vector-ref sc1 2))) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((0) (let ((e-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((sc3 e-18)) (case (vector-ref sc3 0) ((1) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 e-21)) (cond ((equal? sc4 "Prelude") (let ((sc5 e-22)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((1) (let ((e-24 (vector-ref sc6 1))) (let ((sc7 e-24)) (cond ((equal? sc7 "S") (Resugar-Idris-extractNat (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-0) e-4))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 ))))))) ((14) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((1) (let ((e-25 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Prelude-C-43_Num__Nat arg-0 e-25))))(else (vector 0 )))))) ((31) (let ((e-8 (vector-ref sc0 2))) (Resugar-Idris-extractNat arg-0 e-8)))(else (vector 0 )))))) -(define Resugar-Idris-cleanPTerm (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Resugar-Idris-fullNamespace arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 arg-1)) (else ((Syntax-Idris-mapPTermM (lambda (eta-0) (Resugar-Idris-n--11687-5123-cleanNode arg-1 arg-0 eta-0)) arg-1) ext-0))))))))))) -(define Resugar-Idris-bracket (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Resugar-Idris-mkOp arg-0 arg-3) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Resugar-Idris-case--9457-3130 arg-3 arg-2 arg-1 arg-0 e-5 (Prelude-C-62_Ord__Nat arg-1 arg-2)) ext-0)))))))) +(define Resugar-Idris-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--11905-5216-cleanNode arg-1 arg-0 eta-0)) arg-1) ext-0))))))))))) +(define Resugar-Idris-bracket (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Resugar-Idris-mkOp arg-0 arg-3) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Resugar-Idris-case--9583-3138 arg-3 arg-2 arg-1 arg-0 e-5 (Prelude-C-62_Ord__Nat arg-1 arg-2)) ext-0)))))))) (define Resugar-Idris-argPrec (lambda () (Prelude-fromInteger_Num__Nat 1000))) (define Resugar-Idris-appPrec (lambda () (Prelude-fromInteger_Num__Nat 999))) -(define Resugar-Idris-addBracket (lambda (arg-0 arg-1) (Resugar-Idris-case--9392-3106 arg-1 arg-0 (Resugar-Idris-n--9392-3056-needed arg-1 arg-0 arg-1)))) -(define ProcessIdr-Idris-case--17172-3971 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Context-Core-getDirs arg-6 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Directory-Core-pathToNS (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0)) (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) e-1)) arg-0) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Directory-Core-makeBuildDirectory arg-6 e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (let ((act-28 (unbox arg-3))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (Binary-Core-writeToTTC 'erased (vector 0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (lambda (eta-1) (Syntax-Idris-full_HasNames__SyntaxInfo arg-5886 arg-5887 eta-1)))) (lambda (arg-5888) (lambda (arg-5889) (lambda (eta-1) (Syntax-Idris-resolved_HasNames__SyntaxInfo arg-5888 arg-5889 eta-1))))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-2106 eta-1))))) arg-6 arg-4 e-9 arg-9 eta-0)))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 (Directory-Core-getTTCFileName arg-6 arg-0 "ttm" eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Metadata-Core-writeToTTM arg-6 arg-5 e-10 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 arg-10))))))) -(define ProcessIdr-Idris-case--17113-3945 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (ProcessIdr-Idris-case--17172-3971 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 _-0 (List-Data-isNil 'erased e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessIdr-Idris-case--17089-3892 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Directory-Core-getTTCFileName arg-6 arg-0 "ttc" eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTime 'erased arg-6 (lambda () (Strings-Prelude-C-43C-43 "Elaborating " arg-0)) (lambda (eta-2) (ProcessIdr-Idris-processMod arg-6 arg-4 arg-3 arg-5 arg-2 arg-0 e-5 arg-1 e-2 eta-2)) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-1 (vector 1 e-1))) ((ProcessIdr-Idris-case--17172-3971 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 _-0 e-5 e-1 _-1 (List-Data-isNil 'erased e-1)) eta-1)))) (else (vector 1 (vector 0 ))))))))))))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 1 err (vector 0 ))))) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 49 arg-0 e-5) (vector 0 )))))))))) -(define ProcessIdr-Idris-case--16573-3715 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33) (let ((sc0 arg-33)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-13) e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) -(define ProcessIdr-Idris-case--16573-3595 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (let ((e-0 (vector-ref sc0 1))) (lambda () (lambda (eta-0) (let ((act-24 (Context-Core-getDirs arg-8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Directory-Core-pathToNS (let ((sc2 e-5)) (let ((e-11 (vector-ref sc2 1))) e-11)) (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 2))) e-10)) e-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-21 e-6))) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (let ((sc4 arg-23)) (let ((e-9 (vector-ref sc4 1))) e-9)) (Strings-Prelude-C-43C-43 "Module name " (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased arg-21)) (Strings-Prelude-C-43C-43 " does not match file name " e-0)))) eta-0)) (else (vector 1 (vector 0 ))))))))))))))))))))) -(define ProcessIdr-Idris-case--16414-3419 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-initHash arg-8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessIdr-Idris-addPublicHash arg-8 eta-1)) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Bool arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Int arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Int arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Bool arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Int arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-436) (lambda (arg-437) (Prelude-C-47C-61_Eq__String arg-436 arg-437)))) arg-434 arg-435)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Int arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Bool arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Bool arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Bool arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Bool arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Bool arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Bool arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-min_Ord__String arg-793 arg-794)))) arg-791 arg-792)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__Int arg-791 arg-792)))) arg-789 arg-790)))) arg-787 arg-788)))) arg-13)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (UnifyState-Core-resetNextVar arg-7 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((sc4 (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-21 (vector 1 "Main" (vector 0 ))))) (cond ((equal? sc4 0) (((let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--16573-3595 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 e-2 _-0 e-5 e-6 e-7 (let ((sc5 e-2)) (let ((e-0 (vector-ref sc5 1))) e-0))))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-28 (Context-Core-logTime 'erased arg-8 (lambda () "Reading imports") (Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessIdr-Idris-readImport arg-8 arg-7 arg-6 1 eta-1 eta-2))) arg-12) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((act-29 (Context-Core-setNS arg-8 arg-21 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((act-30 (Context-Core-logTime 'erased arg-8 (lambda () "Processing decls") (lambda (eta-1) (ProcessIdr-Idris-processDecls arg-8 arg-7 arg-6 arg-5 (let ((sc7 e-2)) (let ((e-4 (vector-ref sc7 5))) e-4)) eta-1)) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Context-Core-logTime 'erased arg-8 (lambda () "Compile defs") (lambda (eta-1) (Inline-Compiler-compileAndInlineAll arg-8 eta-1)) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-32 (let ((act-32 (unbox arg-8))) (vector 1 act-32)))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 (let ((act-33 (set-box! arg-8 (let ((sc10 e-13)) (let ((e-0 (vector-ref sc10 1))) (let ((e-1 (vector-ref sc10 2))) (let ((e-35 (vector-ref sc10 3))) (let ((e-3 (vector-ref sc10 4))) (let ((e-4 (vector-ref sc10 5))) (let ((e-34 (vector-ref sc10 6))) (let ((e-33 (vector-ref sc10 7))) (let ((e-32 (vector-ref sc10 8))) (let ((e-31 (vector-ref sc10 9))) (let ((e-30 (vector-ref sc10 10))) (let ((e-29 (vector-ref sc10 11))) (let ((e-28 (vector-ref sc10 12))) (let ((e-27 (vector-ref sc10 13))) (let ((e-26 (vector-ref sc10 14))) (let ((e-14 (vector-ref sc10 15))) (let ((e-15 (vector-ref sc10 16))) (let ((e-17 (vector-ref sc10 18))) (let ((e-18 (vector-ref sc10 19))) (let ((e-19 (vector-ref sc10 20))) (let ((e-20 (vector-ref sc10 21))) (let ((e-21 (vector-ref sc10 22))) (let ((e-22 (vector-ref sc10 23))) (let ((e-23 (vector-ref sc10 24))) (let ((e-24 (vector-ref sc10 25))) (let ((e-25 (vector-ref sc10 26))) (vector 0 e-0 e-1 e-35 e-3 e-4 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-14 e-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-13) e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-33)))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (vector 1 (vector 1 e-11)))))))))))))))))))))))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 (vector 50 (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) (ProcessIdr-Idris-getParseErrorLoc arg-3 e-5) e-5) (vector 0 ))))))))))) -(define ProcessIdr-Idris-case--16137-3273 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-setNS arg-8 arg-21 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (let ((act-24 (REPLCommon-Idris-iputStrLn arg-4 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTime 'erased arg-8 (lambda () (Strings-Prelude-C-43C-43 "Parsing " arg-3)) (lambda (eta-1) (vector 1 (Source-Parser-runParser 'erased 1 (Unlit-Parser-isLitFile arg-3) arg-0 (vector 8 1 1 (Parser-Idris-prog arg-3) (lambda (p) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-3404) (vector 0 p)))))))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((act-26 (Context-Core-initHash arg-8 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessIdr-Idris-addPublicHash arg-8 eta-1)) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Bool arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Int arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Int arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Bool arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Int arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-436) (lambda (arg-437) (Prelude-C-47C-61_Eq__String arg-436 arg-437)))) arg-434 arg-435)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Int arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Bool arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Bool arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Bool arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Bool arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Bool arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Bool arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-min_Ord__String arg-793 arg-794)))) arg-791 arg-792)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__Int arg-791 arg-792)))) arg-789 arg-790)))) arg-787 arg-788)))) arg-13)) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (UnifyState-Core-resetNextVar arg-7 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (let ((sc7 (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-21 (vector 1 "Main" (vector 0 ))))) (cond ((equal? sc7 0) (((let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--16573-3595 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 e-5 e-2 _-0 e-7 e-8 e-9 (let ((sc8 e-2)) (let ((e-0 (vector-ref sc8 1))) e-0))))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((act-30 (Context-Core-logTime 'erased arg-8 (lambda () "Reading imports") (Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessIdr-Idris-readImport arg-8 arg-7 arg-6 1 eta-1 eta-2))) arg-12) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-31 (Context-Core-setNS arg-8 arg-21 eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((act-32 (Context-Core-logTime 'erased arg-8 (lambda () "Processing decls") (lambda (eta-1) (ProcessIdr-Idris-processDecls arg-8 arg-7 arg-6 arg-5 (let ((sc10 e-2)) (let ((e-4 (vector-ref sc10 5))) e-4)) eta-1)) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-33 (Context-Core-logTime 'erased arg-8 (lambda () "Compile defs") (lambda (eta-1) (Inline-Compiler-compileAndInlineAll arg-8 eta-1)) eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((act-34 (let ((act-34 (unbox arg-8))) (vector 1 act-34)))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((e-15 (vector-ref sc12 1))) (let ((act-35 (let ((act-35 (set-box! arg-8 (let ((sc13 e-15)) (let ((e-0 (vector-ref sc13 1))) (let ((e-1 (vector-ref sc13 2))) (let ((e-37 (vector-ref sc13 3))) (let ((e-3 (vector-ref sc13 4))) (let ((e-4 (vector-ref sc13 5))) (let ((e-36 (vector-ref sc13 6))) (let ((e-35 (vector-ref sc13 7))) (let ((e-34 (vector-ref sc13 8))) (let ((e-33 (vector-ref sc13 9))) (let ((e-32 (vector-ref sc13 10))) (let ((e-31 (vector-ref sc13 11))) (let ((e-30 (vector-ref sc13 12))) (let ((e-29 (vector-ref sc13 13))) (let ((e-28 (vector-ref sc13 14))) (let ((e-27 (vector-ref sc13 15))) (let ((e-26 (vector-ref sc13 16))) (let ((e-17 (vector-ref sc13 18))) (let ((e-18 (vector-ref sc13 19))) (let ((e-19 (vector-ref sc13 20))) (let ((e-20 (vector-ref sc13 21))) (let ((e-21 (vector-ref sc13 22))) (let ((e-22 (vector-ref sc13 23))) (let ((e-23 (vector-ref sc13 24))) (let ((e-24 (vector-ref sc13 25))) (let ((e-25 (vector-ref sc13 26))) (vector 0 e-0 e-1 e-37 e-3 e-4 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-13) e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-35)))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-3 (vector-ref sc13 1))) (vector 0 e-3))) (else (vector 1 (vector 1 e-13))))))))))))))))))))))))))))))))))))))))))))))))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 1 (vector 50 (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) (ProcessIdr-Idris-getParseErrorLoc arg-3 e-7) e-7) (vector 0 )))))))))))))))))))))))) -(define ProcessIdr-Idris-case--16137-3050 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (let ((sc1 arg-10)) (let ((e-2 (vector-ref sc1 3))) e-2))) (else (ProcessIdr-Idris-addPrelude (let ((sc1 arg-10)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))) -(define ProcessIdr-Idris-case--16030-2919 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) (ProcessIdr-Idris-getParseErrorLoc arg-0 e-2) e-2) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-5)))))))) -(define ProcessIdr-Idris-case--15991-2904 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--16030-2919 arg-0 arg-1 e-2 _-0 (Source-Parser-runParserTo 'erased 1 (Unlit-Parser-isLitFile arg-0) (lambda (eta-0) (ProcessIdr-Idris-n--15991-2869-isColon arg-0 arg-1 eta-0)) e-2 (Parser-Idris-progHdr arg-0)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0)))))))) -(define ProcessIdr-Idris-case--15995-2874 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 ":") 0)(else 1)))))(else 1))))) -(define ProcessIdr-Idris-case--15853-2758 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (vector 1 (Prelude-cast_Cast__Int_Integer e-2))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 0))))))))))) -(define ProcessIdr-Idris-case--15840-2739 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-fileModifiedTime 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (Prelude-cast_Cast__Int_Integer e-3)))))))) (else (let ((act-25 (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (vector 1 0)))))))))))))))) (else (lambda (eta-0) (vector 1 0))))))) -(define ProcessIdr-Idris-case--15813-2716 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 1 (ProcessIdr-Idris-prelude) arg-0)) (else arg-0))))) -(define ProcessIdr-Idris-case--15612-2655 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (let ((sc1 arg-11)) (let ((e-13 (vector-ref sc1 7))) e-13)) e-7 e-8 e-9))))))))))))) -(define ProcessIdr-Idris-case--15591-2508 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-getNS arg-3 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-getNestedNS arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (Desugar-Idris-extendAs arg-1 e-7 e-7 e-5 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (unbox arg-2))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (lambda (eta-1) (let ((act-28 (ProcessIdr-Idris-readModule arg-3 arg-2 arg-1 0 (FC-Core-emptyFC) 0 0 m as eta-1))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (Context-Core-addImported arg-3 (vector 0 m (vector 0 0 as)) eta-1))))))))) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 (Context-Core-getSession arg-3 eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc8 1))) (let ((sc9 (Prelude-not (let ((sc10 e-14)) (let ((e-0 (vector-ref sc10 1))) e-0))))) (cond ((equal? sc9 0) (ProcessIdr-Idris-readModule arg-3 arg-2 arg-1 0 (FC-Core-emptyFC) 0 0 (vector 1 "Prelude" (vector 0 )) (vector 1 "Prelude" (vector 0 )) eta-0)) (else (vector 1 (vector 0 )))))))))))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 (unbox arg-2))) (vector 1 act-30)))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc9 1))) (let ((act-31 (let ((act-31 (set-box! arg-2 (let ((sc10 e-15)) (let ((e-0 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((e-2 (vector-ref sc10 3))) (let ((e-3 (vector-ref sc10 4))) (let ((e-4 (vector-ref sc10 5))) (let ((e-20 (vector-ref sc10 6))) (let ((e-18 (vector-ref sc10 8))) (let ((e-17 (vector-ref sc10 9))) (let ((e-16 (vector-ref sc10 10))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-20 (let ((sc11 e-12)) (let ((e-25 (vector-ref sc11 7))) e-25)) e-18 e-17 e-16)))))))))))))) (vector 1 act-31)))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-32 (Context-Core-setNS arg-3 e-7 eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (Context-Core-setNestedNS arg-3 e-8 eta-0))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Already loaded") eta-0))))))) -(define ProcessIdr-Idris-case--15483-2406 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Core-readIFaceHash e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (let ((sc2 arg-0)) (let ((e-1 (vector-ref sc2 2))) e-1)) (vector 0 (let ((sc2 arg-0)) (let ((e-3 (vector-ref sc2 4))) e-3)) e-5))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased e-5 eta-0)))))))) -(define ProcessIdr-Idris-case--15211-2183 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-extendAs arg-6 arg-1 arg-0 e-5 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (unbox arg-8))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-getNS arg-8 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 (let ((sc6 arg-3)) (cond ((equal? sc6 0) (Context-Core-setVisible arg-8 arg-1 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-28 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((reexp (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((sc7 (Prelude-C-124C-124 reexp (lambda () arg-5)))) (cond ((equal? sc7 0) (lambda (eta-1) (ProcessIdr-Idris-readModule arg-8 arg-7 arg-6 arg-5 arg-4 (Prelude-C-38C-38 arg-3 (lambda () reexp)) reexp m as eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))))))) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (Context-Core-setNS arg-8 e-11 eta-0)))))))))))))))))))))))))))))) (else (let ((sc1 arg-3)) (cond ((equal? sc1 0) (lambda (eta-0) (Context-Core-setVisible arg-8 arg-1 eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))) -(define ProcessIdr-Idris-case--15170-2147 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-2106 eta-1)))) arg-8 arg-7 1 arg-4 arg-3 e-2 arg-1 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((sc4 e-6)) (let ((e-10 (vector-ref sc4 2))) (let ((act-25 (Desugar-Idris-extendAs arg-6 arg-1 arg-0 e-7 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((act-26 (let ((act-26 (unbox arg-8))) (vector 1 act-26)))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((act-27 (Context-Core-getNS arg-8 eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-28 (let ((sc8 arg-3)) (cond ((equal? sc8 0) (Context-Core-setVisible arg-8 arg-1 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-29 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((reexp (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((sc9 (Prelude-C-124C-124 reexp (lambda () arg-5)))) (cond ((equal? sc9 0) (lambda (eta-1) (ProcessIdr-Idris-readModule arg-8 arg-7 arg-6 arg-5 arg-4 (Prelude-C-38C-38 arg-3 (lambda () reexp)) reexp m as eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))))))) e-10) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (Context-Core-setNS arg-8 e-12 eta-0))))))))))))))))))))))))))))) (else (let ((sc3 arg-3)) (cond ((equal? sc3 0) (Context-Core-setVisible arg-8 arg-1 eta-0)) (else (vector 1 (vector 0 )))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased e-5 eta-0)))))))) -(define ProcessIdr-Idris-case--15115-2114 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Directory-Core-nsToPath arg-8 arg-4 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-2106 eta-1)))) arg-8 arg-7 1 arg-4 arg-3 e-2 arg-1 arg-0 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (let ((e-8 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (let ((e-10 (vector-ref sc6 2))) (let ((act-26 (Desugar-Idris-extendAs arg-6 arg-1 arg-0 e-8 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((act-27 (let ((act-27 (unbox arg-8))) (vector 1 act-27)))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-28 (Context-Core-getNS arg-8 eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-29 (let ((sc10 arg-3)) (cond ((equal? sc10 0) (Context-Core-setVisible arg-8 arg-1 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((act-30 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((reexp (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((sc11 (Prelude-C-124C-124 reexp (lambda () arg-5)))) (cond ((equal? sc11 0) (lambda (eta-1) (ProcessIdr-Idris-readModule arg-8 arg-7 arg-6 arg-5 arg-4 (Prelude-C-38C-38 arg-3 (lambda () reexp)) reexp m as eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))))))) e-10) eta-0))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (Context-Core-setNS arg-8 e-13 eta-0))))))))))))))))))))))))))))) (else (let ((sc5 arg-3)) (cond ((equal? sc5 0) (Context-Core-setVisible arg-8 arg-1 eta-0)) (else (vector 1 (vector 0 ))))))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-6 eta-0)))))))))))) (else (let ((sc1 arg-3)) (cond ((equal? sc1 0) (lambda (eta-0) (Context-Core-setVisible arg-8 arg-1 eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))) -(define ProcessIdr-Idris-case--15013-2027 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 1 arg-6 (vector 0 )))(else arg-8))))) -(define ProcessIdr-Idris-case--14981-1977 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (ProcessDecls-TTImp-getTotalityErrors arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (List-Prelude-C-43C-43 'erased (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) arg-5) e-5))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--15013-2027 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 _-0 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) arg-5))))))))))) -(define ProcessIdr-Idris-n--15991-2869-isColon (lambda (arg-0 arg-1 arg-2) (ProcessIdr-Idris-case--15995-2874 arg-0 arg-1 arg-2 (let ((sc0 arg-2)) (let ((e-5 (vector-ref sc0 5))) e-5))))) +(define Resugar-Idris-addBracket (lambda (arg-0 arg-1) (Resugar-Idris-case--9518-3114 arg-1 arg-0 (Resugar-Idris-n--9518-3064-needed arg-1 arg-0 arg-1)))) +(define ProcessIdr-Idris-case--17177-3967 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Context-Core-getDirs arg-6 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Directory-Core-pathToNS (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0)) (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) e-1)) arg-0) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Directory-Core-makeBuildDirectory arg-6 e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (let ((act-28 (unbox arg-3))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (Binary-Core-writeToTTC 'erased (vector 0 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (lambda (eta-1) (Syntax-Idris-full_HasNames__SyntaxInfo arg-6290 arg-6291 eta-1)))) (lambda (arg-6292) (lambda (arg-6293) (lambda (eta-1) (Syntax-Idris-resolved_HasNames__SyntaxInfo arg-6292 arg-6293 eta-1))))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-2124 eta-1))))) arg-6 arg-4 e-9 arg-9 eta-0)))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 (Directory-Core-getTTCFileName arg-6 arg-0 "ttm" eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Metadata-Core-writeToTTM arg-6 arg-5 e-10 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 arg-10))))))) +(define ProcessIdr-Idris-case--17118-3941 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (ProcessIdr-Idris-case--17177-3967 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 _-0 (List-Data-isNil 'erased e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessIdr-Idris-case--17094-3888 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Directory-Core-getTTCFileName arg-6 arg-0 "ttc" eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTime 'erased arg-6 (lambda () (Strings-Prelude-C-43C-43 "Elaborating " arg-0)) (lambda (eta-2) (ProcessIdr-Idris-processMod arg-6 arg-4 arg-3 arg-5 arg-2 arg-0 e-5 arg-1 e-2 eta-2)) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-1 (vector 1 e-1))) ((ProcessIdr-Idris-case--17177-3967 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 _-0 e-5 e-1 _-1 (List-Data-isNil 'erased e-1)) eta-1)))) (else (vector 1 (vector 0 ))))))))))))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 1 err (vector 0 ))))) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 49 arg-0 e-5) (vector 0 )))))))))) +(define ProcessIdr-Idris-case--16578-3711 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33) (let ((sc0 arg-33)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-13) e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) +(define ProcessIdr-Idris-case--16578-3591 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (let ((e-0 (vector-ref sc0 1))) (lambda () (lambda (eta-0) (let ((act-24 (Context-Core-getDirs arg-8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Directory-Core-pathToNS (let ((sc2 e-5)) (let ((e-11 (vector-ref sc2 1))) e-11)) (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 2))) e-10)) e-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-21 e-6))) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (let ((sc4 arg-23)) (let ((e-9 (vector-ref sc4 1))) e-9)) (Strings-Prelude-C-43C-43 "Module name " (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased arg-21)) (Strings-Prelude-C-43C-43 " does not match file name " e-0)))) eta-0)) (else (vector 1 (vector 0 ))))))))))))))))))))) +(define ProcessIdr-Idris-case--16419-3415 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-initHash arg-8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessIdr-Idris-addPublicHash arg-8 eta-1)) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Bool arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__Int arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__Int arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Bool arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__Int arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-444) (lambda (arg-445) (Prelude-C-47C-61_Eq__String arg-444 arg-445)))) arg-442 arg-443)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__Int arg-442 arg-443)))) arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Bool arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Bool arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Bool arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Bool arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Bool arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Bool arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Bool arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Bool arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Bool arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Bool arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Bool arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Bool arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Bool arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Bool arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Bool arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Bool arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Bool arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Bool arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Bool arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Bool arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Bool arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Bool arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Bool arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Bool arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Bool arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Bool arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Bool arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Bool arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Bool arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Bool arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Bool arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Bool arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Bool arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Bool arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-799) (lambda (arg-800) (Prelude-max_Ord__String arg-799 arg-800))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-799) (lambda (arg-800) (Prelude-max_Ord__String arg-799 arg-800))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__Int arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-799) (lambda (arg-800) (Prelude-max_Ord__String arg-799 arg-800))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-799) (lambda (arg-800) (Prelude-max_Ord__String arg-799 arg-800))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__Int arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Bool arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Bool arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Bool arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Bool arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Bool arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-799) (lambda (arg-800) (Prelude-max_Ord__String arg-799 arg-800))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-799) (lambda (arg-800) (Prelude-max_Ord__String arg-799 arg-800))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__Int arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-799) (lambda (arg-800) (Prelude-max_Ord__String arg-799 arg-800))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-801) (lambda (arg-802) (Prelude-min_Ord__String arg-801 arg-802)))) arg-799 arg-800)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__Int arg-799 arg-800)))) arg-797 arg-798)))) arg-795 arg-796)))) arg-13)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (UnifyState-Core-resetNextVar arg-7 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((sc4 (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-21 (vector 1 "Main" (vector 0 ))))) (cond ((equal? sc4 0) (((let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--16578-3591 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 e-2 _-0 e-5 e-6 e-7 (let ((sc5 e-2)) (let ((e-0 (vector-ref sc5 1))) e-0))))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-28 (Context-Core-logTime 'erased arg-8 (lambda () "Reading imports") (Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessIdr-Idris-readImport arg-8 arg-7 arg-6 1 eta-1 eta-2))) arg-12) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((act-29 (Context-Core-setNS arg-8 arg-21 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((act-30 (Context-Core-logTime 'erased arg-8 (lambda () "Processing decls") (lambda (eta-1) (ProcessIdr-Idris-processDecls arg-8 arg-7 arg-6 arg-5 (let ((sc7 e-2)) (let ((e-4 (vector-ref sc7 5))) e-4)) eta-1)) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Context-Core-logTime 'erased arg-8 (lambda () "Compile defs") (lambda (eta-1) (Inline-Compiler-compileAndInlineAll arg-8 eta-1)) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-32 (let ((act-32 (unbox arg-8))) (vector 1 act-32)))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 (let ((act-33 (set-box! arg-8 (let ((sc10 e-13)) (let ((e-0 (vector-ref sc10 1))) (let ((e-1 (vector-ref sc10 2))) (let ((e-35 (vector-ref sc10 3))) (let ((e-3 (vector-ref sc10 4))) (let ((e-4 (vector-ref sc10 5))) (let ((e-34 (vector-ref sc10 6))) (let ((e-33 (vector-ref sc10 7))) (let ((e-32 (vector-ref sc10 8))) (let ((e-31 (vector-ref sc10 9))) (let ((e-30 (vector-ref sc10 10))) (let ((e-29 (vector-ref sc10 11))) (let ((e-28 (vector-ref sc10 12))) (let ((e-27 (vector-ref sc10 13))) (let ((e-26 (vector-ref sc10 14))) (let ((e-14 (vector-ref sc10 15))) (let ((e-15 (vector-ref sc10 16))) (let ((e-17 (vector-ref sc10 18))) (let ((e-18 (vector-ref sc10 19))) (let ((e-19 (vector-ref sc10 20))) (let ((e-20 (vector-ref sc10 21))) (let ((e-21 (vector-ref sc10 22))) (let ((e-22 (vector-ref sc10 23))) (let ((e-23 (vector-ref sc10 24))) (let ((e-24 (vector-ref sc10 25))) (let ((e-25 (vector-ref sc10 26))) (vector 0 e-0 e-1 e-35 e-3 e-4 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-14 e-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-13) e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-33)))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (vector 1 (vector 1 e-11)))))))))))))))))))))))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 (vector 50 (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) (ProcessIdr-Idris-getParseErrorLoc arg-3 e-5) e-5) (vector 0 ))))))))))) +(define ProcessIdr-Idris-case--16142-3269 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-setNS arg-8 arg-21 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (let ((act-24 (REPLCommon-Idris-iputStrLn arg-4 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTime 'erased arg-8 (lambda () (Strings-Prelude-C-43C-43 "Parsing " arg-3)) (lambda (eta-1) (vector 1 (Source-Parser-runParser 'erased 1 (Unlit-Parser-isLitFile arg-3) arg-0 (vector 8 1 1 (Parser-Idris-prog arg-3) (lambda (p) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-3400) (vector 0 p)))))))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((act-26 (Context-Core-initHash arg-8 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessIdr-Idris-addPublicHash arg-8 eta-1)) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Bool arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__Int arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__Int arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Bool arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__Int arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-444) (lambda (arg-445) (Prelude-C-47C-61_Eq__String arg-444 arg-445)))) arg-442 arg-443)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__Int arg-442 arg-443)))) arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Bool arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Bool arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Bool arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Bool arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Bool arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Bool arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Bool arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Bool arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Bool arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Bool arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Bool arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Bool arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Bool arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Bool arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Bool arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Bool arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Bool arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Bool arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Bool arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Bool arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Bool arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Bool arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Bool arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Bool arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Bool arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Bool arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Bool arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Bool arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Bool arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Bool arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Bool arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Bool arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Bool arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Bool arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-799) (lambda (arg-800) (Prelude-max_Ord__String arg-799 arg-800))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-799) (lambda (arg-800) (Prelude-max_Ord__String arg-799 arg-800))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__Int arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-799) (lambda (arg-800) (Prelude-max_Ord__String arg-799 arg-800))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-799) (lambda (arg-800) (Prelude-max_Ord__String arg-799 arg-800))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__Int arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Bool arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Bool arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Bool arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Bool arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Bool arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-799) (lambda (arg-800) (Prelude-max_Ord__String arg-799 arg-800))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-799) (lambda (arg-800) (Prelude-max_Ord__String arg-799 arg-800))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__Int arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-799) (lambda (arg-800) (Prelude-max_Ord__String arg-799 arg-800))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-801) (lambda (arg-802) (Prelude-min_Ord__String arg-801 arg-802)))) arg-799 arg-800)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__Int arg-799 arg-800)))) arg-797 arg-798)))) arg-795 arg-796)))) arg-13)) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (UnifyState-Core-resetNextVar arg-7 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (let ((sc7 (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-21 (vector 1 "Main" (vector 0 ))))) (cond ((equal? sc7 0) (((let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--16578-3591 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 e-5 e-2 _-0 e-7 e-8 e-9 (let ((sc8 e-2)) (let ((e-0 (vector-ref sc8 1))) e-0))))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((act-30 (Context-Core-logTime 'erased arg-8 (lambda () "Reading imports") (Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessIdr-Idris-readImport arg-8 arg-7 arg-6 1 eta-1 eta-2))) arg-12) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-31 (Context-Core-setNS arg-8 arg-21 eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((act-32 (Context-Core-logTime 'erased arg-8 (lambda () "Processing decls") (lambda (eta-1) (ProcessIdr-Idris-processDecls arg-8 arg-7 arg-6 arg-5 (let ((sc10 e-2)) (let ((e-4 (vector-ref sc10 5))) e-4)) eta-1)) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-33 (Context-Core-logTime 'erased arg-8 (lambda () "Compile defs") (lambda (eta-1) (Inline-Compiler-compileAndInlineAll arg-8 eta-1)) eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((act-34 (let ((act-34 (unbox arg-8))) (vector 1 act-34)))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((e-15 (vector-ref sc12 1))) (let ((act-35 (let ((act-35 (set-box! arg-8 (let ((sc13 e-15)) (let ((e-0 (vector-ref sc13 1))) (let ((e-1 (vector-ref sc13 2))) (let ((e-37 (vector-ref sc13 3))) (let ((e-3 (vector-ref sc13 4))) (let ((e-4 (vector-ref sc13 5))) (let ((e-36 (vector-ref sc13 6))) (let ((e-35 (vector-ref sc13 7))) (let ((e-34 (vector-ref sc13 8))) (let ((e-33 (vector-ref sc13 9))) (let ((e-32 (vector-ref sc13 10))) (let ((e-31 (vector-ref sc13 11))) (let ((e-30 (vector-ref sc13 12))) (let ((e-29 (vector-ref sc13 13))) (let ((e-28 (vector-ref sc13 14))) (let ((e-27 (vector-ref sc13 15))) (let ((e-26 (vector-ref sc13 16))) (let ((e-17 (vector-ref sc13 18))) (let ((e-18 (vector-ref sc13 19))) (let ((e-19 (vector-ref sc13 20))) (let ((e-20 (vector-ref sc13 21))) (let ((e-21 (vector-ref sc13 22))) (let ((e-22 (vector-ref sc13 23))) (let ((e-23 (vector-ref sc13 24))) (let ((e-24 (vector-ref sc13 25))) (let ((e-25 (vector-ref sc13 26))) (vector 0 e-0 e-1 e-37 e-3 e-4 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-13) e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-35)))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-3 (vector-ref sc13 1))) (vector 0 e-3))) (else (vector 1 (vector 1 e-13))))))))))))))))))))))))))))))))))))))))))))))))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 1 (vector 50 (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) (ProcessIdr-Idris-getParseErrorLoc arg-3 e-7) e-7) (vector 0 )))))))))))))))))))))))) +(define ProcessIdr-Idris-case--16142-3046 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (let ((sc1 arg-10)) (let ((e-2 (vector-ref sc1 3))) e-2))) (else (ProcessIdr-Idris-addPrelude (let ((sc1 arg-10)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))) +(define ProcessIdr-Idris-case--16035-2915 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) (ProcessIdr-Idris-getParseErrorLoc arg-0 e-2) e-2) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-5)))))))) +(define ProcessIdr-Idris-case--15996-2900 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--16035-2915 arg-0 arg-1 e-2 _-0 (Source-Parser-runParserTo 'erased 1 (Unlit-Parser-isLitFile arg-0) (lambda (eta-0) (ProcessIdr-Idris-n--15996-2865-isColon arg-0 arg-1 eta-0)) e-2 (Parser-Idris-progHdr arg-0)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0)))))))) +(define ProcessIdr-Idris-case--16000-2870 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 ":") 0)(else 1)))))(else 1))))) +(define ProcessIdr-Idris-case--15858-2754 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-1) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (vector 1 (Prelude-cast_Cast__Int_Integer e-2))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-1) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 0))))))))))) +(define ProcessIdr-Idris-case--15845-2735 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-fileModifiedTime 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-2) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-2) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (Prelude-cast_Cast__Int_Integer e-3)))))))) (else (let ((act-25 (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-2) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (vector 1 0)))))))))))))))) (else (lambda (eta-0) (vector 1 0))))))) +(define ProcessIdr-Idris-case--15818-2712 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 1 (ProcessIdr-Idris-prelude) arg-0)) (else arg-0))))) +(define ProcessIdr-Idris-case--15617-2651 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (let ((sc1 arg-11)) (let ((e-13 (vector-ref sc1 7))) e-13)) e-7 e-8 e-9))))))))))))) +(define ProcessIdr-Idris-case--15596-2504 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-getNS arg-3 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-getNestedNS arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (Desugar-Idris-extendSyn arg-1 e-5 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (unbox arg-2))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (lambda (eta-1) (let ((act-28 (ProcessIdr-Idris-readModule arg-3 arg-2 arg-1 0 (FC-Core-emptyFC) 0 m as eta-1))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (Context-Core-addImported arg-3 (vector 0 m (vector 0 0 as)) eta-1))))))))) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 (Context-Core-getSession arg-3 eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc8 1))) (let ((sc9 (Prelude-not (let ((sc10 e-14)) (let ((e-0 (vector-ref sc10 1))) e-0))))) (cond ((equal? sc9 0) (ProcessIdr-Idris-readModule arg-3 arg-2 arg-1 0 (FC-Core-emptyFC) 0 (vector 1 "Prelude" (vector 0 )) (vector 1 "Prelude" (vector 0 )) eta-0)) (else (vector 1 (vector 0 )))))))))))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 (unbox arg-2))) (vector 1 act-30)))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc9 1))) (let ((act-31 (let ((act-31 (set-box! arg-2 (let ((sc10 e-15)) (let ((e-0 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((e-2 (vector-ref sc10 3))) (let ((e-3 (vector-ref sc10 4))) (let ((e-4 (vector-ref sc10 5))) (let ((e-20 (vector-ref sc10 6))) (let ((e-18 (vector-ref sc10 8))) (let ((e-17 (vector-ref sc10 9))) (let ((e-16 (vector-ref sc10 10))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-20 (let ((sc11 e-12)) (let ((e-25 (vector-ref sc11 7))) e-25)) e-18 e-17 e-16)))))))))))))) (vector 1 act-31)))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-32 (Context-Core-setNS arg-3 e-7 eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (Context-Core-setNestedNS arg-3 e-8 eta-0))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Already loaded") eta-0))))))) +(define ProcessIdr-Idris-case--15488-2402 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Core-readIFaceHash e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (let ((sc2 arg-0)) (let ((e-1 (vector-ref sc2 2))) e-1)) (vector 0 (let ((sc2 arg-0)) (let ((e-3 (vector-ref sc2 4))) e-3)) e-5))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased e-5 eta-0)))))))) +(define ProcessIdr-Idris-case--15228-2187 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-extendSyn arg-5 e-5 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (unbox arg-7))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-getNS arg-7 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 (let ((sc6 arg-2)) (cond ((equal? sc6 0) (Context-Core-setVisible arg-7 arg-1 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-28 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((reexp (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((sc7 (Prelude-C-124C-124 reexp (lambda () arg-4)))) (cond ((equal? sc7 0) (lambda (eta-1) (ProcessIdr-Idris-readModule arg-7 arg-6 arg-5 arg-4 arg-3 reexp m as eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))))))) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (Context-Core-setNS arg-7 e-11 eta-0)))))))))))))))))))))))))))))) (else (let ((sc1 arg-2)) (cond ((equal? sc1 0) (lambda (eta-0) (Context-Core-setVisible arg-7 arg-1 eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))) +(define ProcessIdr-Idris-case--15190-2153 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-2124 eta-1)))) arg-7 arg-6 1 arg-3 arg-2 e-2 arg-1 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((sc4 e-6)) (let ((e-10 (vector-ref sc4 2))) (let ((act-25 (Desugar-Idris-extendSyn arg-5 e-7 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((act-26 (let ((act-26 (unbox arg-7))) (vector 1 act-26)))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((act-27 (Context-Core-getNS arg-7 eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-28 (let ((sc8 arg-2)) (cond ((equal? sc8 0) (Context-Core-setVisible arg-7 arg-1 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-29 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((reexp (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((sc9 (Prelude-C-124C-124 reexp (lambda () arg-4)))) (cond ((equal? sc9 0) (lambda (eta-1) (ProcessIdr-Idris-readModule arg-7 arg-6 arg-5 arg-4 arg-3 reexp m as eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))))))) e-10) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (Context-Core-setNS arg-7 e-12 eta-0))))))))))))))))))))))))))))) (else (let ((sc3 arg-2)) (cond ((equal? sc3 0) (Context-Core-setVisible arg-7 arg-1 eta-0)) (else (vector 1 (vector 0 )))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased e-5 eta-0)))))))) +(define ProcessIdr-Idris-case--15136-2122 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Directory-Core-nsToPath arg-7 arg-3 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-2124 eta-1)))) arg-7 arg-6 1 arg-3 arg-2 e-2 arg-1 arg-0 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (let ((e-8 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (let ((e-10 (vector-ref sc6 2))) (let ((act-26 (Desugar-Idris-extendSyn arg-5 e-8 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((act-27 (let ((act-27 (unbox arg-7))) (vector 1 act-27)))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-28 (Context-Core-getNS arg-7 eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-29 (let ((sc10 arg-2)) (cond ((equal? sc10 0) (Context-Core-setVisible arg-7 arg-1 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((act-30 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((reexp (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((sc11 (Prelude-C-124C-124 reexp (lambda () arg-4)))) (cond ((equal? sc11 0) (lambda (eta-1) (ProcessIdr-Idris-readModule arg-7 arg-6 arg-5 arg-4 arg-3 reexp m as eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))))))) e-10) eta-0))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (Context-Core-setNS arg-7 e-13 eta-0))))))))))))))))))))))))))))) (else (let ((sc5 arg-2)) (cond ((equal? sc5 0) (Context-Core-setVisible arg-7 arg-1 eta-0)) (else (vector 1 (vector 0 ))))))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-6 eta-0)))))))))))) (else (let ((sc1 arg-2)) (cond ((equal? sc1 0) (lambda (eta-0) (Context-Core-setVisible arg-7 arg-1 eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))) +(define ProcessIdr-Idris-case--15034-2035 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 1 arg-6 (vector 0 )))(else arg-8))))) +(define ProcessIdr-Idris-case--15002-1985 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (ProcessDecls-TTImp-getTotalityErrors arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (List-Prelude-C-43C-43 'erased (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) arg-5) e-5))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--15034-2035 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 _-0 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) arg-5))))))))))) +(define ProcessIdr-Idris-n--15996-2865-isColon (lambda (arg-0 arg-1 arg-2) (ProcessIdr-Idris-case--16000-2870 arg-0 arg-1 arg-2 (let ((sc0 arg-2)) (let ((e-5 (vector-ref sc0 5))) e-5))))) (define ProcessIdr-Idris-readPrelude (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (ProcessIdr-Idris-readImport arg-0 arg-1 arg-2 arg-3 (ProcessIdr-Idris-prelude) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Context-Core-setNS arg-0 (vector 1 "Main" (vector 0 )) ext-0))))))) -(define ProcessIdr-Idris-readModule (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((ProcessIdr-Idris-case--15115-2114 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Bool arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Bool arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Bool arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Bool arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Bool arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Bool arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Bool arg-434 arg-435)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-436) (lambda (arg-437) (Prelude-C-47C-61_Eq__String arg-436 arg-437)))) arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 arg-7 (vector 0 arg-5 arg-8)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc1 e-5)) (let ((e-18 (vector-ref sc1 19))) e-18))))) ext-0)))))))) -(define ProcessIdr-Idris-readImport (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (ProcessIdr-Idris-readModule arg-0 arg-1 arg-2 arg-3 (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) e-0)) 0 (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 2))) e-1)) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 3))) e-2)) (let ((sc0 arg-4)) (let ((e-3 (vector-ref sc0 4))) e-3)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Context-Core-addImported arg-0 (vector 0 (let ((sc1 arg-4)) (let ((e-2 (vector-ref sc1 3))) e-2)) (vector 0 (let ((sc1 arg-4)) (let ((e-1 (vector-ref sc1 2))) e-1)) (let ((sc1 arg-4)) (let ((e-3 (vector-ref sc1 4))) e-3)))) ext-0))))))) -(define ProcessIdr-Idris-readHeader (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-2))) ((ProcessIdr-Idris-case--16030-2919 arg-1 arg-0 e-2 _-0 (Source-Parser-runParserTo 'erased 1 (Unlit-Parser-isLitFile arg-1) (lambda (eta-0) (ProcessIdr-Idris-n--15991-2869-isColon arg-1 arg-0 eta-0)) e-2 (Parser-Idris-progHdr arg-1))) ext-0)))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-6) ext-0)))))))))))) +(define ProcessIdr-Idris-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--15136-2122 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__Bool arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Bool arg-440 arg-441)))) (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__Bool arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Bool arg-440 arg-441)))) (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__Bool arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Bool arg-440 arg-441)))) (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__Bool arg-442 arg-443)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-444) (lambda (arg-445) (Prelude-C-47C-61_Eq__String arg-444 arg-445)))) arg-442 arg-443)))) arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 arg-6 (vector 0 arg-5 arg-7)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc1 e-5)) (let ((e-18 (vector-ref sc1 19))) e-18))))) ext-0)))))))) +(define ProcessIdr-Idris-readImport (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (ProcessIdr-Idris-readModule arg-0 arg-1 arg-2 arg-3 (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) e-0)) 0 (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 3))) e-2)) (let ((sc0 arg-4)) (let ((e-3 (vector-ref sc0 4))) e-3)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Context-Core-addImported arg-0 (vector 0 (let ((sc1 arg-4)) (let ((e-2 (vector-ref sc1 3))) e-2)) (vector 0 (let ((sc1 arg-4)) (let ((e-1 (vector-ref sc1 2))) e-1)) (let ((sc1 arg-4)) (let ((e-3 (vector-ref sc1 4))) e-3)))) ext-0))))))) +(define ProcessIdr-Idris-readHeader (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-1) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-2))) ((ProcessIdr-Idris-case--16035-2915 arg-1 arg-0 e-2 _-0 (Source-Parser-runParserTo 'erased 1 (Unlit-Parser-isLitFile arg-1) (lambda (eta-0) (ProcessIdr-Idris-n--15996-2865-isColon arg-1 arg-0 eta-0)) e-2 (Parser-Idris-progHdr arg-1))) ext-0)))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-6) ext-0)))))))))))) (define ProcessIdr-Idris-readHash (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Directory-Core-nsToPath arg-0 (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0)) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 3))) e-2)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((act-25 (Binary-Core-readIFaceHash e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 2))) e-1)) (vector 0 (let ((sc3 arg-2)) (let ((e-3 (vector-ref sc3 4))) e-3)) e-6)))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-6 ext-0)))))))))))) -(define ProcessIdr-Idris-readAsMain (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-2106 eta-0)))) arg-0 arg-1 0 (FC-Core-toplevelFC) 0 arg-3 (vector 0 ) (vector 0 ) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-10 (vector-ref sc3 2))) (let ((act-25 (Context-Core-getNS arg-0 ext-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (Context-Core-getNestedNS arg-0 ext-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 (Desugar-Idris-extendAs arg-2 e-8 e-8 e-7 ext-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (unbox arg-1))) (vector 1 act-28)))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-29 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (lambda (eta-0) (let ((act-29 (ProcessIdr-Idris-readModule arg-0 arg-1 arg-2 0 (FC-Core-emptyFC) 0 0 m as eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (Context-Core-addImported arg-0 (vector 0 m (vector 0 0 as)) eta-0))))))))) e-10) ext-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 (Context-Core-getSession arg-0 ext-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc9 1))) (let ((sc10 (Prelude-not (let ((sc11 e-15)) (let ((e-0 (vector-ref sc11 1))) e-0))))) (cond ((equal? sc10 0) (ProcessIdr-Idris-readModule arg-0 arg-1 arg-2 0 (FC-Core-emptyFC) 0 0 (vector 1 "Prelude" (vector 0 )) (vector 1 "Prelude" (vector 0 )) ext-0)) (else (vector 1 (vector 0 )))))))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc10 1))) (let ((act-32 (let ((act-32 (set-box! arg-1 (let ((sc11 e-16)) (let ((e-0 (vector-ref sc11 1))) (let ((e-22 (vector-ref sc11 2))) (let ((e-2 (vector-ref sc11 3))) (let ((e-3 (vector-ref sc11 4))) (let ((e-4 (vector-ref sc11 5))) (let ((e-21 (vector-ref sc11 6))) (let ((e-19 (vector-ref sc11 8))) (let ((e-18 (vector-ref sc11 9))) (let ((e-17 (vector-ref sc11 10))) (vector 0 e-0 e-22 e-2 e-3 e-4 e-21 (let ((sc12 e-13)) (let ((e-26 (vector-ref sc12 7))) e-26)) e-19 e-18 e-17)))))))))))))) (vector 1 act-32)))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((act-33 (Context-Core-setNS arg-0 e-8 ext-0))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (Context-Core-setNestedNS arg-0 e-11 ext-0)))))))))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Already loaded") ext-0))))))))))) -(define ProcessIdr-Idris-processMod (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setCurrentElabSource arg-4 arg-8 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (ProcessIdr-Idris-readHeader arg-0 arg-5 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((imps (ProcessIdr-Idris-case--16137-3050 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 (Prelude-C-124C-124 (let ((sc3 e-7)) (let ((e-0 (vector-ref sc3 1))) e-0)) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) e-1)) (vector 1 "Prelude" (vector 0 )))))))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessIdr-Idris-readHash arg-0 arg-1 eta-1 eta-2))) imps) eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (unbox arg-0))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Current hash " (Prelude-show_Show__Int (let ((sc5 e-9)) (let ((e-15 (vector-ref sc5 16))) e-15))))) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) (let ((sc6 e-6)) (let ((e-1 (vector-ref sc6 2))) e-1))) (Strings-Prelude-C-43C-43 " hashes:\u000a" (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__String d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__String d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Int d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__String d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__String d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Int d-0 x-0))))) d x)))) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-8)))))) eta-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (Binary-Core-readImportHashes arg-6 eta-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Old hashes from " (Strings-Prelude-C-43C-43 arg-6 (Strings-Prelude-C-43C-43 ":\u000a" (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__String d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__String d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Int d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__String d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__String d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Int d-0 x-0))))) d x)))) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) e-12)))))) eta-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-33 (ProcessIdr-Idris-modTime arg-5 eta-0))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-34 (ProcessIdr-Idris-modTime arg-6 eta-0))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc10 1))) (let ((ns (let ((sc11 e-6)) (let ((e-1 (vector-ref sc11 2))) e-1)))) ((ProcessIdr-Idris-case--16137-3273 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 imps e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 ns (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-8)) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) e-12)) (lambda () (Prelude-C-60C-61_Ord__Integer e-14 e-15)))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-0) (vector 1 (vector 1 (vector 1 err (vector 0 )))))) ext-0))) -(define ProcessIdr-Idris-processDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ProcessIdr-Idris-processDecl arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) arg-4) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (UnifyState-Core-checkDelayedHoles arg-1 arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((act-26 (ProcessDecls-TTImp-getTotalityErrors arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (List-Prelude-C-43C-43 'erased (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-5) e-7)))))))) (else (let ((e-2 (vector-ref sc2 1))) (vector 1 (let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--15013-2027 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-2 _-0 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-5)))))))))))))))))))) +(define ProcessIdr-Idris-readAsMain (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-2124 eta-0)))) arg-0 arg-1 0 (FC-Core-toplevelFC) 0 arg-3 (vector 0 ) (vector 0 ) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-10 (vector-ref sc3 2))) (let ((act-25 (Context-Core-getNS arg-0 ext-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (Context-Core-getNestedNS arg-0 ext-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 (Desugar-Idris-extendSyn arg-2 e-7 ext-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (unbox arg-1))) (vector 1 act-28)))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-29 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (lambda (eta-0) (let ((act-29 (ProcessIdr-Idris-readModule arg-0 arg-1 arg-2 0 (FC-Core-emptyFC) 0 m as eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (Context-Core-addImported arg-0 (vector 0 m (vector 0 0 as)) eta-0))))))))) e-10) ext-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 (Context-Core-getSession arg-0 ext-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc9 1))) (let ((sc10 (Prelude-not (let ((sc11 e-15)) (let ((e-0 (vector-ref sc11 1))) e-0))))) (cond ((equal? sc10 0) (ProcessIdr-Idris-readModule arg-0 arg-1 arg-2 0 (FC-Core-emptyFC) 0 (vector 1 "Prelude" (vector 0 )) (vector 1 "Prelude" (vector 0 )) ext-0)) (else (vector 1 (vector 0 )))))))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc10 1))) (let ((act-32 (let ((act-32 (set-box! arg-1 (let ((sc11 e-16)) (let ((e-0 (vector-ref sc11 1))) (let ((e-22 (vector-ref sc11 2))) (let ((e-2 (vector-ref sc11 3))) (let ((e-3 (vector-ref sc11 4))) (let ((e-4 (vector-ref sc11 5))) (let ((e-21 (vector-ref sc11 6))) (let ((e-19 (vector-ref sc11 8))) (let ((e-18 (vector-ref sc11 9))) (let ((e-17 (vector-ref sc11 10))) (vector 0 e-0 e-22 e-2 e-3 e-4 e-21 (let ((sc12 e-13)) (let ((e-26 (vector-ref sc12 7))) e-26)) e-19 e-18 e-17)))))))))))))) (vector 1 act-32)))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((act-33 (Context-Core-setNS arg-0 e-8 ext-0))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (Context-Core-setNestedNS arg-0 e-11 ext-0)))))))))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Already loaded") ext-0))))))))))) +(define ProcessIdr-Idris-processMod (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setCurrentElabSource arg-4 arg-8 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (ProcessIdr-Idris-readHeader arg-0 arg-5 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((imps (ProcessIdr-Idris-case--16142-3046 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 (Prelude-C-124C-124 (let ((sc3 e-7)) (let ((e-0 (vector-ref sc3 1))) e-0)) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) e-1)) (vector 1 "Prelude" (vector 0 )))))))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessIdr-Idris-readHash arg-0 arg-1 eta-1 eta-2))) imps) eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (unbox arg-0))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Current hash " (Prelude-show_Show__Int (let ((sc5 e-9)) (let ((e-15 (vector-ref sc5 16))) e-15))))) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) (let ((sc6 e-6)) (let ((e-1 (vector-ref sc6 2))) e-1))) (Strings-Prelude-C-43C-43 " hashes:\u000a" (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__String d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__String d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Int d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__String d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__String d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Int d-0 x-0))))) d x)))) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-8)))))) eta-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (Binary-Core-readImportHashes arg-6 eta-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Old hashes from " (Strings-Prelude-C-43C-43 arg-6 (Strings-Prelude-C-43C-43 ":\u000a" (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__String d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__String d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Int d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__String d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__String d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Int d-0 x-0))))) d x)))) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796)))) e-12)))))) eta-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-33 (ProcessIdr-Idris-modTime arg-5 eta-0))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-34 (ProcessIdr-Idris-modTime arg-6 eta-0))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc10 1))) (let ((ns (let ((sc11 e-6)) (let ((e-1 (vector-ref sc11 2))) e-1)))) ((ProcessIdr-Idris-case--16142-3269 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 imps e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 ns (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-8)) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796)))) e-12)) (lambda () (Prelude-C-60C-61_Ord__Integer e-14 e-15)))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-0) (vector 1 (vector 1 (vector 1 err (vector 0 )))))) ext-0))) +(define ProcessIdr-Idris-processDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ProcessIdr-Idris-processDecl arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) arg-4) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (UnifyState-Core-checkDelayedHoles arg-1 arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((act-26 (ProcessDecls-TTImp-getTotalityErrors arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (List-Prelude-C-43C-43 'erased (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-5) e-7)))))))) (else (let ((e-2 (vector-ref sc2 1))) (vector 1 (let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--15034-2035 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-2 _-0 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-5)))))))))))))))))))) (define ProcessIdr-Idris-processDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarDecl arg-2 arg-0 arg-1 arg-3 (vector 0 ) arg-4) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl (vector 0 ) arg-0 arg-3 arg-1 (vector 0 ) (vector 0 ) (vector 0 ) eta-1)) e-5) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))) (lambda (err) (lambda (eta-0) (let ((act-24 (Unify-Core-giveUpConstraints arg-0 arg-1 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 (vector 1 err)))))))) ext-0))) -(define ProcessIdr-Idris-process (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-6) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-25 (Directory-Core-getTTCFileName arg-0 arg-6 "ttc" eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-logTime 'erased arg-0 (lambda () (Strings-Prelude-C-43C-43 "Elaborating " arg-6)) (lambda (eta-1) (ProcessIdr-Idris-processMod arg-0 arg-2 arg-3 arg-1 arg-4 arg-6 e-6 arg-5 e-2 eta-1)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-1 (vector 1 e-1))) ((ProcessIdr-Idris-case--17172-3971 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-2 _-0 e-6 e-1 _-1 (List-Data-isNil 'erased e-1)) eta-0)))) (else (vector 1 (vector 0 ))))))))))))))))) (lambda (err) (lambda (eta-0) (vector 1 (vector 1 err (vector 0 ))))) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 49 arg-6 e-6) (vector 0 )))))))))))))) +(define ProcessIdr-Idris-process (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-6) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-25 (Directory-Core-getTTCFileName arg-0 arg-6 "ttc" eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-logTime 'erased arg-0 (lambda () (Strings-Prelude-C-43C-43 "Elaborating " arg-6)) (lambda (eta-1) (ProcessIdr-Idris-processMod arg-0 arg-2 arg-3 arg-1 arg-4 arg-6 e-6 arg-5 e-2 eta-1)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-1 (vector 1 e-1))) ((ProcessIdr-Idris-case--17177-3967 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-2 _-0 e-6 e-1 _-1 (List-Data-isNil 'erased e-1)) eta-0)))) (else (vector 1 (vector 0 ))))))))))))))))) (lambda (err) (lambda (eta-0) (vector 1 (vector 1 err (vector 0 ))))) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 49 arg-6 e-6) (vector 0 )))))))))))))) (define ProcessIdr-Idris-prelude (lambda () (vector 0 (vector 0 "(implicit)" (vector 0 0 0) (vector 0 0 0)) 1 (vector 1 "Prelude" (vector 0 )) (vector 1 "Prelude" (vector 0 ))))) -(define ProcessIdr-Idris-modTime (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 ((File-System-openFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0 (vector 0 )) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((File-System-fileModifiedTime 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) ext-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) ext-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (Prelude-cast_Cast__Int_Integer e-3)))))))) (else (let ((act-26 (let ((act-26 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) ext-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 0))))))))))))))) (else (vector 1 0))))))))))) +(define ProcessIdr-Idris-modTime (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 ((File-System-openFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-0 (vector 0 )) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((File-System-fileModifiedTime 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-2) ext-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-26 (arg-3672 eta-0))) ((arg-3673 act-26) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-2) ext-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (Prelude-cast_Cast__Int_Integer e-3)))))))) (else (let ((act-26 (let ((act-26 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-26 (arg-3672 eta-0))) ((arg-3673 act-26) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-2) ext-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 0))))))))))))))) (else (vector 1 0))))))))))) (define ProcessIdr-Idris-getParseErrorLoc (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-9 (vector-ref sc1 1))) (vector 0 arg-0 e-9 e-9)))(else (REPLOpts-Idris-replFC)))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((sc2 e-13)) (case (vector-ref sc2 0) ((0) (let ((e-16 (vector-ref sc2 1))) (vector 0 arg-0 (vector 0 e-12 e-16) (vector 0 e-12 e-16))))(else (REPLOpts-Idris-replFC)))))))(else (REPLOpts-Idris-replFC)))))) ((3) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((0) (let ((e-18 (vector-ref sc1 1))) (vector 0 arg-0 (vector 0 e-18 0) (vector 0 e-18 0))))(else (REPLOpts-Idris-replFC))))))(else (REPLOpts-Idris-replFC)))))) -(define ProcessIdr-Idris-addPublicHash (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-addHash 'erased arg-0 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7328) (Hash-Core-hash_Hashable__String arg-7328)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__String arg-7328 arg-7329)))) arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__String arg-7327)) (lambda (arg-7330) (lambda (arg-7331) (Hash-Core-hashWithSalt_Hashable__String arg-7330 arg-7331)))) arg-7328 arg-7329)))) e-6 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (Context-Core-addHash 'erased arg-0 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Int arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Int arg-7328 arg-7329)))) e-7 eta-0)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessIdr-Idris-addPrelude (lambda (arg-0) (ProcessIdr-Idris-case--15813-2716 arg-0 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 1 "Prelude" (vector 0 )) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc0 eta-0)) (let ((e-2 (vector-ref sc0 3))) e-2))) arg-0)))))) +(define ProcessIdr-Idris-addPublicHash (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-addHash 'erased arg-0 (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7336) (Hash-Core-hash_Hashable__String arg-7336)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__String arg-7336 arg-7337)))) arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__String arg-7335)) (lambda (arg-7338) (lambda (arg-7339) (Hash-Core-hashWithSalt_Hashable__String arg-7338 arg-7339)))) arg-7336 arg-7337)))) e-6 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (Context-Core-addHash 'erased arg-0 (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__Int arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Int arg-7336 arg-7337)))) e-7 eta-0)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessIdr-Idris-addPrelude (lambda (arg-0) (ProcessIdr-Idris-case--15818-2712 arg-0 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 1 "Prelude" (vector 0 )) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc0 eta-0)) (let ((e-2 (vector-ref sc0 3))) e-2))) arg-0)))))) (define ProcessIdr-Idris-addImport (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-getNS arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (ProcessIdr-Idris-readImport arg-0 arg-1 arg-2 0 arg-3 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Context-Core-setNS arg-0 e-5 ext-0)))))))))))) -(define Parser-Idris-case--22391-20945 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) e-11)))))))) -(define Parser-Idris-case--22336-20903 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (Strings-Prelude-C-43C-43 ":" arg-1)) e-2) (vector 0 e-6 e-10)))))))))))) -(define Parser-Idris-case--21042-19543 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (lambda () (Parser-Idris-setVarOption))) (else (lambda () (vector 4 0 "Unrecognised option"))))))) -(define Parser-Idris-case--9786-18982 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 1 arg-1 (List-Prelude-C-43C-43 'erased arg-0 e-2)) (Parser-Idris-collectDefs e-3))))))) -(define Parser-Idris-case--20456-18935 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (List-Prelude-C-43C-43 'erased arg-8 e-2) e-3)))))) -(define Parser-Idris-case--20423-18874 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 1 arg-5 arg-6))) (else (let ((e-2 (vector-ref sc0 1))) (Parser-Idris-case--20456-18935 arg-0 arg-1 arg-2 'erased 'erased arg-6 arg-7 arg-5 e-2 (Parser-Idris-n--9786-18840-spanMap arg-0 arg-1 arg-2 'erased 'erased arg-7 arg-6)))))))) -(define Parser-Idris-case--9785-18747 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((11) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 )))))) -(define Parser-Idris-case--19272-17899 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 arg-4 e-7))))))))))) -(define Parser-Idris-case--19272-17857 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 (vector 1 ) e-7))))))))))) -(define Parser-Idris-case--19050-17434 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) -(define Parser-Idris-case--16454-14525 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Parser-Idris-n--16452-14510-drop arg-0 arg-3 arg-2)) (else (vector 1 arg-1 arg-2)))))) -(define Parser-Idris-case--15819-13850 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 1 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) arg-2 (vector 21 arg-1) (Parser-Idris-mkDataConType arg-5 arg-4 arg-3))) (else (vector 1 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) arg-2 (vector 0 arg-1 arg-0) (Parser-Idris-mkDataConType arg-5 arg-4 arg-3))))))) -(define Parser-Idris-case--10340-12473 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Not a pattern variable")))))) -(define Parser-Idris-case--10328-11463 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (vector 1 (vector 3 arg-9 (vector 1 arg-3) arg-2 arg-5 arg-6) (Parser-Idris-buildDoLets arg-8 arg-7))) (else (vector 1 (vector 4 arg-9 (vector 0 arg-4 (vector 1 arg-3)) arg-5 arg-6 (vector 0 )) (Parser-Idris-buildDoLets arg-8 arg-7))))))) -(define Parser-Idris-case--10318-10581 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 (vector 1 e-6) e-7)))))))))) -(define Parser-Idris-case--10311-9541 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-3)(else (vector 44 (vector 0 arg-1 arg-2 arg-5) arg-3 arg-4)))))) -(define Parser-Idris-case--10304-8668 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 8 1 0 (Source-Rule-Parser-continue arg-0) (lambda (_-8686) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-8696) (vector 7 1 (Parser-Idris-opExpr arg-2 arg-1 arg-0) (lambda () (lambda (r) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc r))) (lambda (end) (vector 0 (vector 26 (vector 0 arg-1 arg-3 end) (vector 1 "=") arg-4 r))))))))))))) (else (vector 4 1 "= not allowed")))))) -(define Parser-Idris-case--10594-8234 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (vector 0 e-0 1))))) -(define Parser-Idris-case--10301-8188 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda () (vector 8 1 0 (Source-Rule-Parser-continue arg-0) (lambda (_-8202) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-8212) (vector 7 1 (Parser-Idris-expr (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) (vector 0 e-0 1))) arg-1 arg-0) (lambda () (lambda (arg) (vector 0 (vector 2 arg)))))))))))) (else (lambda () (vector 4 1 "| not allowed here"))))))) -(define Parser-Idris-case--10301-8161 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((20) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (vector 0 (vector 0 (vector 20 e-0 0 e-2))))))(else (vector 0 (vector 0 arg-4))))))) -(define Parser-Idris-case--9826-7678 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-pragma "search") (lambda () (lambda (_-7693) (vector 0 (vector 13 (vector 0 arg-0 e-2 e-3) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Parser-Idris-case--9826-7654 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-pragma "World") (lambda () (lambda (_-7669) (vector 0 (vector 14 (vector 0 arg-0 e-2 e-3) (vector 19 ))))))))))) -(define Parser-Idris-case--9826-7630 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-pragma "MkWorld") (lambda () (lambda (_-7645) (vector 0 (vector 14 (vector 0 arg-0 e-2 e-3) (vector 9 ))))))))))) -(define Parser-Idris-case--9826-7610 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-holeName) (lambda () (lambda (x) (vector 0 (vector 20 (vector 0 arg-0 e-2 e-3) 1 x)))))))))) -(define Parser-Idris-case--9826-7586 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-symbol "?") (lambda () (lambda (_-7601) (vector 0 (vector 25 (vector 0 arg-0 e-2 e-3))))))))))) -(define Parser-Idris-case--9826-7562 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-symbol "_") (lambda () (lambda (_-7577) (vector 0 (vector 24 (vector 0 arg-0 e-2 e-3))))))))))) -(define Parser-Idris-case--9826-7542 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-constant) (lambda () (lambda (x) (vector 0 (vector 14 (vector 0 arg-0 e-2 e-3) x)))))))))) -(define Parser-Idris-case--9826-7519 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (x) (vector 0 (vector 0 (vector 0 arg-0 e-2 e-3) x)))))))))) -(define Parser-Idris-case--9826-7498 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-exactIdent "Type") (lambda () (lambda (_-7511) (vector 0 (vector 21 (vector 0 arg-0 e-2 e-3))))))))))) -(define Parser-Idris-case--9816-7355 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (vector 0 1 e-1))))) -(define Parser-Idris-n--9786-18840-spanMap (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Parser-Idris-case--20423-18874 arg-0 arg-1 arg-2 'erased 'erased e-2 e-3 arg-5 (arg-5 e-2))))))))) -(define Parser-Idris-n--10303-8434-singleName (lambda (arg-0 arg-1) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 1 n (vector 0 )))))))) -(define Parser-Idris-n--10336-12180-recFieldCompat (lambda (arg-0 arg-1) (vector 9 0 (Prelude-C-124C-124 0 (lambda () 0)) (Source-Rule-Parser-recField) (lambda () (vector 8 0 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (Source-Rule-Parser-symbol "->")) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-name)))))))) -(define Parser-Idris-n--15522-13697-parseWithArg (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-13717) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-Idris-expr (Parser-Idris-plhs) arg-1 arg-0) (lambda () (lambda (tm) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc tm))) (lambda (end) (vector 0 (vector 0 (vector 0 arg-1 start end) tm)))))))))))))) -(define Parser-Idris-n--22113-20644-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20653) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20661) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (n) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) "(interactive)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 ((arg-1 tm) n)))))))))))))))) -(define Parser-Idris-n--22064-20588-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20597) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20605) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (i) (vector 0 (arg-1 (Prelude-fromInteger_Num__Nat i)))))))))))))) -(define Parser-Idris-n--22018-20537-parse (lambda (arg-0 arg-1 arg-2 arg-3) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20546) (vector 7 0 (Parser-Idris-runParseCmd arg-3) (lambda () (lambda (_-20554) (vector 7 1 (Parser-Idris-setOption arg-1) (lambda () (lambda (opt) (vector 0 (arg-2 opt))))))))))))) -(define Parser-Idris-n--21971-20483-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20492) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20500) (vector 7 1 (Parser-Idris-topDecl "(interactive)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (arg-1 tm))))))))))))) -(define Parser-Idris-n--21924-20430-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20439) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20447) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) "(interactive)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (arg-1 tm))))))))))))) -(define Parser-Idris-n--21879-20379-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20388) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20396) (vector 7 1 (Source-Rule-Parser-moduleIdent) (lambda () (lambda (n) (vector 0 (arg-1 n))))))))))))) -(define Parser-Idris-n--21832-20326-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20335) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20343) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (arg-1 n))))))))))))) -(define Parser-Idris-n--21794-20283-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20292) (vector 7 1 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20300) (vector 0 arg-1))))))))) -(define Parser-Idris-n--22113-20643-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) -(define Parser-Idris-n--22064-20587-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) -(define Parser-Idris-n--22018-20536-names (lambda (arg-0 arg-1 arg-2 arg-3) (Parser-Idris-extractNames arg-3))) -(define Parser-Idris-n--21971-20482-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) -(define Parser-Idris-n--21924-20429-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) -(define Parser-Idris-n--21879-20378-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) -(define Parser-Idris-n--21832-20325-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) -(define Parser-Idris-n--21794-20282-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) -(define Parser-Idris-n--10303-8435-nameList (lambda (arg-0 arg-1) (vector 7 0 (Source-Rule-Parser-symbol "[") (lambda () (lambda (_-8463) (vector 8 1 0 (vector 5 ) (lambda (_-8472) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-name)) (lambda () (lambda (ns) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-8494) (vector 0 ns)))))))))))))) -(define Parser-Idris-n--10345-13171-mkPi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) arg-5) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 0 arg-1 arg-3 arg-4) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) e-6 (vector 0 ) arg-5 (Parser-Idris-n--10345-13171-mkPi arg-0 arg-1 arg-2 arg-3 arg-4 e-7 e-3)))))))))))) -(define Parser-Idris-n--10310-9321-mergePairs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 38 (vector 0 arg-3 arg-2 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) e-7)(else (vector 36 (vector 0 arg-3 e-6 arg-4) e-7 (Parser-Idris-n--10310-9321-mergePairs arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))))))) -(define Parser-Idris-n--9786-18841-isClause (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 2))) (vector 1 e-1)))(else (vector 0 )))))) -(define Parser-Idris-n--10336-12179-fieldName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) e-0)) ((5) (let ((e-1 (vector-ref sc0 1))) e-1))(else "_impossible"))))) -(define Parser-Idris-n--19047-17398-fieldBody (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Idris-multiplicity) (lambda (m) (vector 8 1 0 (Parser-Idris-getMult m) (lambda (rigin) (let ((rig (Parser-Idris-case--19050-17434 arg-0 arg-1 arg-2 start m rigin (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) rigin)))) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-name)) (lambda () (lambda (ns) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-17485) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-1 arg-0) (lambda () (lambda (ty) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc ty))) (lambda (end) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 (vector 0 arg-1 start end) rig arg-2 n ty)) ns)))))))))))))))))))))) -(define Parser-Idris-n--16452-14510-drop (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Parser-Idris-case--16454-14525 arg-0 e-2 e-3 arg-1 (Prelude-C-61C-61_Eq__Char arg-1 e-2))))))))) -(define Parser-Idris-n--19590-17957-ctor (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-exactIdent "constructor") (lambda () (lambda (_-17965) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-17981) (vector 0 n))))))))))) -(define Parser-Idris-n--10317-10393-binderName (lambda (arg-0 arg-1 arg-2) (vector 9 0 0 (Source-Rule-Parser-unqualifiedName) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "_") (lambda () (lambda (_-10407) (vector 0 "_")))))))) -(define Parser-Idris-n--10325-11131-bindAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 2 arg-2 e-6 (vector 1 ) e-10 e-11 (Parser-Idris-n--10325-11131-bindAll arg-0 arg-1 arg-2 e-3 arg-4))))))))))))))) -(define Parser-Idris-n--10300-7941-applyExpImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) arg-5) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Parser-Idris-n--10300-7941-applyExpImp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 7 (vector 0 arg-1 arg-3 arg-4) arg-5 e-4) e-3))) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (Parser-Idris-n--10300-7941-applyExpImp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 9 (vector 0 arg-1 arg-3 arg-4) arg-5 e-5 e-6) e-3)))) (else (let ((e-7 (vector-ref sc1 1))) (Parser-Idris-n--10300-7941-applyExpImp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 8 (vector 0 arg-1 arg-3 arg-4) arg-5 e-7) e-3)))))))))))) -(define Parser-Idris-n--15522-13696-applyArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Parser-Idris-n--15522-13696-applyArgs arg-0 arg-1 arg-2 (vector 7 e-6 arg-3 e-7) e-3))))))))))) +(define Parser-Idris-case--22071-20597 (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--22016-20555 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (Strings-Prelude-C-43C-43 ":" arg-1)) e-2) (vector 0 e-6 e-10)))))))))))) +(define Parser-Idris-case--20744-19213 (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--9822-18671 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 1 arg-1 (List-Prelude-C-43C-43 'erased arg-0 e-2)) (Parser-Idris-collectDefs e-3))))))) +(define Parser-Idris-case--20173-18624 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (List-Prelude-C-43C-43 'erased arg-8 e-2) e-3)))))) +(define Parser-Idris-case--20140-18563 (lambda (arg-0 arg-1 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--20173-18624 arg-0 arg-1 arg-2 'erased 'erased arg-6 arg-7 arg-5 e-2 (Parser-Idris-n--9822-18529-spanMap arg-0 arg-1 arg-2 'erased 'erased arg-7 arg-6)))))))) +(define Parser-Idris-case--9821-18436 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((11) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 )))))) +(define Parser-Idris-case--19020-17634 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 (vector 1 ) e-7))))))))))) +(define Parser-Idris-case--19020-17589 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 arg-4 e-7))))))))))) +(define Parser-Idris-case--18803-17159 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) +(define Parser-Idris-case--16281-14324 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Parser-Idris-n--16279-14309-drop arg-0 arg-3 arg-2)) (else (vector 1 arg-1 arg-2)))))) +(define Parser-Idris-case--15662-13665 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 1 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) arg-2 (vector 21 arg-1) (Parser-Idris-mkDataConType arg-5 arg-4 arg-3))) (else (vector 1 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) arg-2 (vector 0 arg-1 arg-0) (Parser-Idris-mkDataConType arg-5 arg-4 arg-3))))))) +(define Parser-Idris-case--10365-12341 (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--10353-11352 (lambda (arg-0 arg-1 arg-2 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--10343-10490 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 (vector 1 e-6) e-7)))))))))) +(define Parser-Idris-case--10336-9485 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-3)(else (vector 44 (vector 0 arg-1 arg-2 arg-5) arg-3 arg-4)))))) +(define Parser-Idris-case--10329-8646 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 8 1 0 (Source-Rule-Parser-continue arg-0) (lambda (_-8664) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-8674) (vector 7 1 (Parser-Idris-opExpr arg-2 arg-1 arg-0) (lambda () (lambda (r) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc r))) (lambda (end) (vector 0 (vector 26 (vector 0 arg-1 arg-3 end) (vector 1 "=") arg-4 r))))))))))))) (else (vector 4 1 "= not allowed")))))) +(define Parser-Idris-case--10326-8215 (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--10576-8195 (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--10326-8149 (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 (_-8163) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-8173) (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--9862-7682 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-exactIdent "Type") (lambda () (lambda (_-7695) (vector 0 (vector 21 (vector 0 arg-0 e-2 e-3))))))))))) +(define Parser-Idris-case--9862-7659 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (x) (vector 0 (vector 0 (vector 0 arg-0 e-2 e-3) x)))))))))) +(define Parser-Idris-case--9862-7639 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-constant) (lambda () (lambda (x) (vector 0 (vector 14 (vector 0 arg-0 e-2 e-3) x)))))))))) +(define Parser-Idris-case--9862-7615 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-symbol "_") (lambda () (lambda (_-7630) (vector 0 (vector 24 (vector 0 arg-0 e-2 e-3))))))))))) +(define Parser-Idris-case--9862-7591 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-symbol "?") (lambda () (lambda (_-7606) (vector 0 (vector 25 (vector 0 arg-0 e-2 e-3))))))))))) +(define Parser-Idris-case--9862-7571 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-holeName) (lambda () (lambda (x) (vector 0 (vector 20 (vector 0 arg-0 e-2 e-3) 1 x)))))))))) +(define Parser-Idris-case--9862-7547 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-pragma "MkWorld") (lambda () (lambda (_-7562) (vector 0 (vector 14 (vector 0 arg-0 e-2 e-3) (vector 9 ))))))))))) +(define Parser-Idris-case--9862-7523 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-pragma "World") (lambda () (lambda (_-7538) (vector 0 (vector 14 (vector 0 arg-0 e-2 e-3) (vector 19 ))))))))))) +(define Parser-Idris-case--9862-7497 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-pragma "search") (lambda () (lambda (_-7512) (vector 0 (vector 13 (vector 0 arg-0 e-2 e-3) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Parser-Idris-case--9852-7363 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (vector 0 1 e-1))))) +(define Parser-Idris-n--9822-18529-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--20140-18563 arg-0 arg-1 arg-2 'erased 'erased e-2 e-3 arg-5 (arg-5 e-2))))))))) +(define Parser-Idris-n--10328-8416-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--10361-12055-recFieldCompat (lambda (arg-0 arg-1) (vector 9 0 (Prelude-C-124C-124 0 (lambda () 0)) (Source-Rule-Parser-recField) (lambda () (vector 8 0 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (Source-Rule-Parser-symbol "->")) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-name)))))))) +(define Parser-Idris-n--15371-13513-parseWithArg (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-13533) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-Idris-expr (Parser-Idris-plhs) arg-1 arg-0) (lambda () (lambda (tm) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc tm))) (lambda (end) (vector 0 (vector 0 (vector 0 arg-1 start end) tm)))))))))))))) +(define Parser-Idris-n--21793-20296-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20305) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20313) (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--21744-20240-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20249) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20257) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (i) (vector 0 (arg-1 (Prelude-fromInteger_Num__Nat i)))))))))))))) +(define Parser-Idris-n--21698-20189-parse (lambda (arg-0 arg-1 arg-2 arg-3) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20198) (vector 7 0 (Parser-Idris-runParseCmd arg-3) (lambda () (lambda (_-20206) (vector 7 1 (Parser-Idris-setOption arg-1) (lambda () (lambda (opt) (vector 0 (arg-2 opt))))))))))))) +(define Parser-Idris-n--21651-20135-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20144) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20152) (vector 7 1 (Parser-Idris-topDecl "(interactive)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (arg-1 tm))))))))))))) +(define Parser-Idris-n--21604-20082-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20091) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20099) (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--21559-20031-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20040) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20048) (vector 7 1 (Source-Rule-Parser-moduleIdent) (lambda () (lambda (n) (vector 0 (arg-1 n))))))))))))) +(define Parser-Idris-n--21512-19978-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-19987) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-19995) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (arg-1 n))))))))))))) +(define Parser-Idris-n--21474-19935-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-19944) (vector 7 1 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-19952) (vector 0 arg-1))))))))) +(define Parser-Idris-n--21793-20295-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) +(define Parser-Idris-n--21744-20239-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) +(define Parser-Idris-n--21698-20188-names (lambda (arg-0 arg-1 arg-2 arg-3) (Parser-Idris-extractNames arg-3))) +(define Parser-Idris-n--21651-20134-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) +(define Parser-Idris-n--21604-20081-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) +(define Parser-Idris-n--21559-20030-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) +(define Parser-Idris-n--21512-19977-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) +(define Parser-Idris-n--21474-19934-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) +(define Parser-Idris-n--10328-8417-nameList (lambda (arg-0 arg-1) (vector 7 0 (Source-Rule-Parser-symbol "[") (lambda () (lambda (_-8445) (vector 8 1 0 (vector 5 ) (lambda (_-8454) (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 (_-8476) (vector 0 ns)))))))))))))) +(define Parser-Idris-n--10370-13007-mkPi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) arg-5) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 0 arg-1 arg-3 arg-4) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) e-6 (vector 0 ) arg-5 (Parser-Idris-n--10370-13007-mkPi arg-0 arg-1 arg-2 arg-3 arg-4 e-7 e-3)))))))))))) +(define Parser-Idris-n--10335-9272-mergePairs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 38 (vector 0 arg-3 arg-2 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) e-7)(else (vector 36 (vector 0 arg-3 e-6 arg-4) e-7 (Parser-Idris-n--10335-9272-mergePairs arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))))))) +(define Parser-Idris-n--9822-18530-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--10361-12054-fieldName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) e-0)) ((5) (let ((e-1 (vector-ref sc0 1))) e-1))(else "_impossible"))))) +(define Parser-Idris-n--18800-17123-fieldBody (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Idris-multiplicity) (lambda (m) (vector 8 1 0 (Parser-Idris-getMult m) (lambda (rigin) (let ((rig (Parser-Idris-case--18803-17159 arg-0 arg-1 arg-2 start m rigin (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) rigin)))) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-name)) (lambda () (lambda (ns) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-17210) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-1 arg-0) (lambda () (lambda (ty) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc ty))) (lambda (end) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 (vector 0 arg-1 start end) rig arg-2 n ty)) ns)))))))))))))))))))))) +(define Parser-Idris-n--16279-14309-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--16281-14324 arg-0 e-2 e-3 arg-1 (Prelude-C-61C-61_Eq__Char arg-1 e-2))))))))) +(define Parser-Idris-n--19331-17670-ctor (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-exactIdent "constructor") (lambda () (lambda (_-17678) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-17694) (vector 0 n))))))))))) +(define Parser-Idris-n--10342-10307-binderName (lambda (arg-0 arg-1 arg-2) (vector 9 0 (Prelude-C-124C-124 0 (lambda () 1)) (Source-Rule-Parser-unqualifiedName) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "_") (lambda () (lambda (_-10319) (vector 0 "_")))))))) +(define Parser-Idris-n--10350-11027-bindAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 2 arg-2 e-6 (vector 1 ) e-10 e-11 (Parser-Idris-n--10350-11027-bindAll arg-0 arg-1 arg-2 e-3 arg-4))))))))))))))) +(define Parser-Idris-n--10325-7938-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--10325-7938-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--10325-7938-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--10325-7938-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--15371-13512-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--15371-13512-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) "